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

cmp: t1/c1expr: top-level symbol macro expansions remain top-level

Browse source
This commit is contained in:
Daniel Kochmański 2023-12-04 21:10:00 +01:00
parent 6db9231366
commit 5a5b327124
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/cmppass1-top.lsp
View file

@ -64,12 +64,9 @@
(t (t1ordinary form)))))
(defun t1/c1expr (form)
(cond ((not *compile-toplevel*)
(c1expr form))
((atom form)
(t1ordinary form))
(t
(t1expr* form))))
(if (not *compile-toplevel*)
(c1expr form)
(t1expr* form)))
(defun c1eval-when (args)
(check-args-number 'EVAL-WHEN args 1)