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))