Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv1693/src/code
Modified Files:
loop.lisp
Log Message:
0.8.3.12:
* Fix bug in RETURN clause of LOOP
... make RETURN be equivalent to DO (RETURN ...)
* cosmetic changes in constraint propagator;
* fix EVAL-WHEN and package problem in
compiler.impure-cload.test from the last commit.
Index: loop.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/loop.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- loop.lisp 29 May 2003 12:28:02 -0000 1.32
+++ loop.lisp 29 Aug 2003 12:45:46 -0000 1.33
@@ -1156,7 +1156,7 @@
(setq *loop-names* (list name))))
(defun loop-do-return ()
- (loop-pseudo-body (loop-construct-return (loop-get-form))))
+ (loop-emit-body (loop-construct-return (loop-get-form))))
;;;; value accumulation: LIST
|