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