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

In LOOP REPEAT avoid using DECF

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

14
src/lsp/loop2.lsp
View file

@ -1647,10 +1647,14 @@ 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 (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*)
(type (if (fixnump form) 'fixnum 'real))
(var (loop-make-variable (gensym) form type))
#-ecl
(form `(when (minusp (decf ,var)) (go end-loop)))
#+ecl ;; ECL 10.9.1 has a problem with optimizing (+ ...)
(form `(when (minusp (setf ,var (1- ,var))) (go end-loop))))
(push form *loop-before-loop*)
(push form *loop-after-body*)
;; FIXME: What should
;; (loop count t into a
;; repeat 3
@ -1658,7 +1662,7 @@ collected result will be returned as the value of the LOOP."
;; finally (return (list a b)))
;; return: (3 3) or (4 3)? PUSHes above are for the former
;; variant, L-P-B below for the latter.
#+nil (loop-pseudo-body `(when (minusp (decf ,var)) (go end-loop))))))
#+nil (loop-pseudo-body form)))
(defun loop-when-it-variable ()
(declare (si::c-local))