Changeset 328

Timestamp:

Jan 17, 2004, 8:00:30 PM (21 years ago)

Author:

Gary Byers

Message:

From Bryan O'Connor: "LOOP FOR x ..." uses destructuring mechanism on X,
so "LOOP FOR NIL ..." is accepted.

File:

• trunk/ccl/library/loop.lisp (modified) (2 diffs)

trunk/ccl/library/loop.lisp

@@ -155 +155 @@
   (if *loop-gentemp*
       (gentemp (string pref))
-      (gensym)))
+      (gensym (string pref))))
 
 
@@ -1956 +1956 @@
           (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)))