From 71766d9db05e93567cb7e829abfc675c3cb895c9 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sat, 31 Mar 2007 10:51:20 +0000 Subject: [PATCH] 1.0.4.12: stale bugs * bug 27 has not been observed in ages, and our interrupt handling has changed sufficiently since to consider the case closed. * bug 78 has ...evolved. * bug 256.b has been fixed (test added now.) * bug 381 was fixed a while back by MAYBE-CYCLIC-P. --- BUGS | 27 ++++----------------------- tests/compiler.pure.lisp | 11 +++++++++++ version.lisp-expr | 2 +- 3 files changed, 16 insertions(+), 24 deletions(-) diff --git a/BUGS b/BUGS index 2917c5c..55bb754 100644 --- a/BUGS +++ b/BUGS @@ -84,12 +84,6 @@ WORKAROUND: d: (fixed in 0.8.1.5) -27: - Sometimes (SB-EXT:QUIT) fails with - Argh! maximum interrupt nesting depth (4096) exceeded, exiting - Process inferior-lisp exited abnormally with code 1 - I haven't noticed a repeatable case of this yet. - 33: And as long as we're wishing, it would be awfully nice if INSPECT could also report on closures, telling about the values of the bound variables. @@ -174,6 +168,9 @@ WORKAROUND: e-mail on cmucl-help@cons.org on 2001-01-16 and 2001-01-17 from WHN and Pierre Mai.) + (Actually this has changed changed since, and types as above are + now supported. This may be a bug.) + 83: RANDOM-INTEGER-EXTRA-BITS=10 may not be large enough for the RANDOM RNG to be high quality near RANDOM-FIXNUM-MAX; it looks as though @@ -732,11 +729,7 @@ WORKAROUND: a. (lambda () (svref (make-array 8 :adjustable t) 1)) - b. (lambda (x) - (list (let ((y (the real x))) - (unless (floatp y) (error "")) - y) - (integer-length x))) + b. (fixed at some point before 1.0.4.10) c. (lambda (x) (declare (optimize (debug 0))) @@ -1476,18 +1469,6 @@ WORKAROUND: tries to find and remove a method with an incompatible lambda list from the unrelated generic function. -381: incautious calls to EQUAL in fasl dumping - Compiling - (frob #(#1=(a #1#))) - (frob #(#1=(b #1#))) - (frob #(#1=(a #1#))) - in sbcl-0.9.0 causes CONTROL-STACK-EXHAUSTED. My (WHN) impression - is that this follows from the use of (MAKE-HASH-TABLE :TEST 'EQUAL) - to detect sharing, in which case fixing it might require either - getting less ambitious about detecting shared list structure, or - implementing the moral equivalent of EQUAL hash tables in a - cycle-tolerant way. - 382: externalization unexpectedly changes array simplicity COMPILE-FILE and LOAD (defun foo () diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index 9167b6b..69fcd3c 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -2190,3 +2190,14 @@ (compile nil '(lambda (x) (declare (fixnum x)) (logand most-positive-fixnum (* x most-positive-fixnum)))) + +;;; bug 256.b +(assert (let (warned-p) + (handler-bind ((warning (lambda (w) (setf warned-p t)))) + (compile nil + '(lambda (x) + (list (let ((y (the real x))) + (unless (floatp y) (error "")) + y) + (integer-length x))))) + warned-p)) diff --git a/version.lisp-expr b/version.lisp-expr index 8b845f7..7f518a6 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.4.11" +"1.0.4.12" -- 1.7.10.4