[Sbcl-commits] CVS: sbcl/tests loop.pure.lisp,1.7,1.8

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

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv27978/tests

Modified Files:
	loop.pure.lisp 
Log Message:
0.7.9.52:
        * Fixed bug: loop-for-as-package does not require package to
          be explicitely specified;
        * PRINT-IR2-BLOCKS shows corresponding IR1 block numbers.


Index: loop.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/loop.pure.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- loop.pure.lisp	15 Nov 2002 15:21:58 -0000	1.7
+++ loop.pure.lisp	16 Nov 2002 10:26:15 -0000	1.8
@@ -80,3 +80,6 @@
 
 (assert (= (loop for nil being the external-symbols of :cl count t) 978))
 (assert (= (loop for x being the external-symbols of :cl count x) 977))
+
+(let ((*package* (find-package :cl)))
+  (assert (= (loop for x being each external-symbol count t) 978)))