From 808e32b661b8288d7da259641691fedafa267fc4 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 28 May 2003 09:22:41 +0000
Subject: [PATCH] 	For-arithmetic is allowed on NUMBERs.  Found by Paul
 Dietz.

	* src/code/loop.lisp (loop-for-arithmetic): Use type number
	instead of real.
---
 code/loop.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/loop.lisp b/code/loop.lisp
index 025e023e3..71797fd84 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.21 2003/05/05 12:09:50 emarsden Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.22 2003/05/28 09:22:41 gerd Exp $")
 
 ;;;; LOOP Iteration Macro
 
@@ -1987,7 +1987,7 @@ collected result will be returned as the value of the LOOP."
 
 (defun loop-for-arithmetic (var val data-type kwd)
   (loop-sequencer
-    var (loop-check-data-type data-type *loop-real-data-type*) t
+    var (loop-check-data-type data-type 'number) t
     nil nil nil nil nil nil
     (loop-collect-prepositional-phrases
       '((:from :upfrom :downfrom) (:to :upto :downto :above :below) (:by))
-- 
GitLab