From 583e68ba34023bf5f1fdce3aa7e643fb097cc9ae Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Fri, 14 Feb 2003 05:53:50 +0000 Subject: [PATCH] 0.7.12.37: New compiler bug. --- BUGS | 21 +++++++++++++++++++++ version.lisp-expr | 2 +- 2 files changed, 22 insertions(+), 1 deletion(-) 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. diff --git a/version.lisp-expr b/version.lisp-expr index dbe7413..322e91b 100644 --- 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" -- 1.7.10.4