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

Another THE->TRULY-THE change in evalmacros.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-01-01 19:31:22 +01:00
parent 2f42f79da5
commit edee87b62b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/evalmacros.lsp
View file

@ -246,7 +246,7 @@ FORM returns no value, NIL."
(do ((vl vars (cdr vl))
(sym (gensym))
(forms nil)
(n 0 (the fixnum (1+ n))))
(n 0 (truly-the fixnum (1+ n))))
((endp vl) `(LET ((,sym (MULTIPLE-VALUE-LIST ,form))) ,@forms))
(declare (fixnum n))
(push `(SETQ ,(car vl) (NTH ,n ,sym)) forms)))