[Sbcl-commits] CVS: sbcl/tests compiler.pure.lisp,1.62,1.63

[Alexey D. <ade...@us...>]

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)))