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

loop.lsp: remove wrong type declaration for on keyword. Fixes #418

Browse source
This commit is contained in:
Marius Gerbershagen 2017-11-21 17:59:20 +01:00
parent d2fc77d4f9
commit 2f48a7df9d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/loop.lsp
View file

@ -1411,7 +1411,8 @@ Note that this is not a valid ANSI code."))
(cond ((and var (symbolp var))
(loop-make-iteration-variable var list data-type))
(t
(loop-make-variable (setq listvar (gensym)) list 'list)
;; using data type 'list for listvar can lead to errors for dotted lists
(loop-make-variable (setq listvar (gensym)) list nil)
(loop-make-iteration-variable var nil data-type)))
(let ((list-step (loop-list-step listvar)))
(let* ((first-endtest