0.7.12.37:

        New compiler bug.

diff --git a/BUGS b/BUGS
index 5341a1f..bb197f8 100644 (file)
--- 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.

diff --git a/version.lisp-expr b/version.lisp-expr
index dbe7413..322e91b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.12.36"
+"0.7.12.37"