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

The compiled version of DOTIMES evaluated the output form in the wrong context

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-27 21:36:13 +02:00
parent 1dd472dbc2
commit a751b9df33
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpopt-type.lsp
View file

@ -30,11 +30,12 @@
,@declarations)
(si::while (< ,variable ,%limit)
,@body
(reckless (setq ,variable (1+ ,variable))))))
(reckless (setq ,variable (1+ ,variable))))
,@output))
(t
(let ((,variable 0))
(declare ,@declarations)
(si::while (< ,variable ,%limit)
,@body
(setq ,variable (1+ ,variable))))))
,@output)))))
(setq ,variable (1+ ,variable)))
,@output))))))))