[movitz-cvs] CVS update: movitz/losp/muerte/loop.lisp

Frode Vatvedt Fjeld ffjeld at common-lisp.net
Wed Jan 21 22:02:10 UTC 2004


Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv10402

Modified Files:
	loop.lisp 
Log Message:
Patch to loop from new-b.

Date: Wed Jan 21 17:02:10 2004
Author: ffjeld

Index: movitz/losp/muerte/loop.lisp
diff -u movitz/losp/muerte/loop.lisp:1.2 movitz/losp/muerte/loop.lisp:1.3
--- movitz/losp/muerte/loop.lisp:1.2	Thu Jan 15 11:41:45 2004
+++ movitz/losp/muerte/loop.lisp	Wed Jan 21 17:02:09 2004
@@ -151,7 +151,7 @@
   #+ignore
   (if *loop-gentemp*
       (gentemp (string pref))
-      (gensym)))
+      (gensym (string pref))))
 
 
 
@@ -1184,7 +1184,7 @@
     (setq *loop-names* (list name nil))))
 
 (defun loop-do-return ()
-  (loop-pseudo-body (loop-construct-return (loop-get-form))))
+  (loop-emit-body (loop-construct-return (loop-get-form))))
 
 
 )
@@ -1752,7 +1752,7 @@
 		((eq prep :upfrom) (setq dir ':up)))
 	  (multiple-value-setq (form start-constantp start-value)
 	    (loop-constant-fold-if-possible form indexv-type))
-	  (loop-make-iteration-variable indexv form indexv-type))
+	  (setq indexv (loop-make-iteration-variable indexv form indexv-type)))
 	 ((:upto :to :downto :above :below)
 	  (cond ((loop-tequal prep :upto) (setq inclusive-iteration (setq dir ':up)))
 		((loop-tequal prep :to) (setq inclusive-iteration t))





More information about the Movitz-cvs mailing list