[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