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

When compiling PSETQ, the arguments would be evaluated in the wrong order.

Browse source
This commit is contained in:
jjgarcia 2001-10-17 18:41:17 +00:00
parent 7957040185
commit 101cddc1b1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpvar.lsp
View file

@ -376,7 +376,7 @@
(cmpck (endp (cdr l))
"No form was given for the value of ~s." var)
(setq var (chk-symbol-macrolet var))
(setq args (list* var (second l) args))
(setq args (nconc args (list var (second l))))
(if (symbolp var)
(cmpck (constantp var)
"The constant ~s is being assigned a value." var)