mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-11 11:42:51 -08:00
Code Issues Projects Releases Packages Wiki Activity

LOOP REPEAT recognizes the type of the iterator variable

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-21 09:31:15 +02:00
parent 09ae1f43c0
commit 8046f644dd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/loop2.lsp
View file

@ -1646,8 +1646,8 @@ collected result will be returned as the value of the LOOP."
(defun loop-do-repeat ()
(loop-disallow-conditional :repeat)
(let ((form (loop-get-form))
(type 'real))
(let* ((form (loop-get-form))
(type (if (fixnump form) 'fixnum 'real)))
(let ((var (loop-make-variable (gensym) form type)))
(push `(when (minusp (decf ,var)) (go end-loop)) *loop-before-loop*)
(push `(when (minusp (decf ,var)) (go end-loop)) *loop-after-body*)