X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=bb197f8558447122a7bc67baa77a92d2a4e3b4b4;hb=2066cf61711fbe53128010958c92fe40991568fc;hp=5341a1f02e338ff48e89c6337267241992e7f508;hpb=1bbb76fcfb9baddf0dc96412c87575d8aeb69c6d;p=sbcl.git

diff --git a/BUGS b/BUGS
index 5341a1f..bb197f8 100644
--- a/BUGS
+++ b/BUGS
@@ -1273,6 +1273,27 @@ WORKAROUND:
   compiler gets its hands on the code needing compilation from the REPL,
   it has been macroexpanded several times.
 
+239:
+  Since 0.7.0:
+  (defun foo (bit-array-2 &optional result-bit-array)
+    (declare (type (array bit) bit-array-2)
+             (type (or (array bit) (member t nil)) result-bit-array))
+    (unless (simple-bit-vector-p bit-array-2)
+      (multiple-value-call
+          (lambda (data1 start1)
+            (multiple-value-call
+                (lambda (data2 start2)
+                  (multiple-value-call
+                      (lambda (data3 start3)
+                        (declare (ignore start3))
+                        (print (list data1 data2)))
+                    (values 0 0)))
+              (values bit-array-2 0)))
+        (values 444 0))))
+
+  Then (foo (make-array 4 :element-type 'bit :adjustable t) nil)
+  must return the same value as it prints, but it returns random garbage.
+
 DEFUNCT CATEGORIES OF BUGS
   IR1-#:
     These labels were used for bugs related to the old IR1 interpreter.