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

*CURRENT-FORM* was not properly updated by C1EVAL

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-12 23:41:09 +02:00
parent d8dac21c8f
commit 73f81381be
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpeval.lsp
View file

@ -15,6 +15,7 @@
(in-package "COMPILER")
(defun c1expr (form)
(let ((*current-form* form))
(setq form (catch *cmperr-tag*
(cond ((symbolp form)
(setq form (chk-symbol-macrolet form))
@ -36,7 +37,7 @@
((and (consp fun) (eq (car fun) 'LAMBDA))
(c1funcall form))
(t (cmperr "~s is not a legal function name." fun)))))
(t (c1constant-value form :always t)))))
(t (c1constant-value form :always t))))))
(if (eq form '*cmperr-tag*)
(c1nil)
form))