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

cmp: eval-when: be explicit about cl:load etc

Browse source
This commit is contained in:
Daniel Kochmański 2017-01-16 14:16:24 +01:00 • committed by Daniel Kochmanski
parent 226dd35775
commit 6ffa84af14
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmptop.lsp
View file

@ -294,9 +294,9 @@
(execute-flag nil))
(dolist (situation (car args))
(case situation
((LOAD :LOAD-TOPLEVEL) (setq load-flag t))
((COMPILE :COMPILE-TOPLEVEL) (setq compile-flag t))
((EVAL :EXECUTE)
((CL:LOAD :LOAD-TOPLEVEL) (setq load-flag t))
((CL:COMPILE :COMPILE-TOPLEVEL) (setq compile-flag t))
((CL:EVAL :EXECUTE)
(if *compile-toplevel*
(setq compile-flag (or *compile-time-too* compile-flag))
(setq execute-flag t)))