From 95b8293646b15121b3ce33168496bdd614f1e7ab Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Sun, 18 Jan 2004 13:47:55 +0000 Subject: [PATCH] LOOP accepts NIL as the variable if arithmetic loops, such as (loop for nil from 0 to 5 do (print "x")) --- code/loop.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/loop.lisp b/code/loop.lisp index 2d9a399ff..f3393a963 100644 --- a/code/loop.lisp +++ b/code/loop.lisp @@ -49,7 +49,7 @@ #+cmu (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.23 2003/08/28 14:14:57 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.24 2004/01/18 13:47:55 toy Exp $") ;;;; LOOP Iteration Macro @@ -1582,7 +1582,7 @@ collected result will be returned as the value of the LOOP." ;FOR variable keyword ..args.. (defun loop-do-for () - (let* ((var (loop-pop-source)) + (let* ((var (or (loop-pop-source) (loop-gentemp 'loop-do-for-anon-))) (data-type (loop-optional-type var)) (keyword (loop-pop-source)) (first-arg nil) -- GitLab