Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv10683/tests
Modified Files:
compiler.pure.lisp
Log Message:
0.8.3.71:
* Update consistency checking;
* fix bug found by Paul Dietz ("NIL is not of type LVAR") in
IMMEDIATELY-USED-P: component tail block does not have a
start CTRAN.
Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- compiler.pure.lisp 16 Sep 2003 07:45:11 -0000 1.62
+++ compiler.pure.lisp 16 Sep 2003 09:45:15 -0000 1.63
@@ -591,3 +591,17 @@
;; provoke an exception
(arithmetic-error ()))
(compile nil '(lambda (x y) (declare (type (double-float 0.0d0) x y)) (/ x y)))
+
+;;; bug reported by Paul Dietz: component last block does not have
+;;; start ctran
+(compile nil
+ '(lambda ()
+ (declare (notinline + logand)
+ (optimize (speed 0)))
+ (LOGAND
+ (BLOCK B5
+ (FLET ((%F1 ()
+ (RETURN-FROM B5 -220)))
+ (LET ((V7 (%F1)))
+ (+ 359749 35728422))))
+ -24076)))
|