Changeset 10988

Timestamp:

11/18/05 19:36:17 (3 years ago)

Author:

rtoy

Message:

Modify DOTIMES macro so that it always iterates the specified number
of times, regardless of what the body might do to the index variable.

Files:

• trunk/src/code/macros.lisp (modified) (1 diff)

trunk/src/code/macros.lisp

@@ -545 +545 @@
   (unless (and (listp varlist) (every #'symbolp varlist))
     (simple-program-error "Varlist is not a list of symbols: ~S." varlist))
-  `(values (setf (values ,@varlist) ,value-form)))
+  (if varlist
+      `(values (setf (values ,@varlist) ,value-form))
+      `(values ,value-form)))
 
 ;;;