[Sbcl-commits] CVS: sbcl/tests compiler.impure-cload.lisp,1.12,1.13

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

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv8901/tests

Modified Files:
	compiler.impure-cload.lisp 
Log Message:
0.8.3.88:
        * Fix bug reported by Paul Dietz 2003-09-22: do not perform
          modular function coversion in deleted blocks.


Index: compiler.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure-cload.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- compiler.impure-cload.lisp	21 Sep 2003 09:58:08 -0000	1.12
+++ compiler.impure-cload.lisp	23 Sep 2003 06:51:40 -0000	1.13
@@ -276,7 +276,7 @@
       (device))))
 
 ;;;
-(defun foo ()
+(defun #:foo ()
   (labels ((foo (x)
              (return-from foo x)
              (block u
@@ -285,6 +285,13 @@
                  (list (bar 1) (bar 1 2))))
              (1+ x)))
     #'foo))
+
+(defun #:foo (b c)
+  (declare (type (integer 0 1) b) (optimize (speed 3)))
+  (flet ((%f2 () (lognor (block b5 138) c)))
+    (if (not (or (= -67399 b) b))
+        (deposit-field (%f2) (byte 11 8) -3)
+        c)))
 
 
 (sb-ext:quit :unix-status 104)