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