sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "cmp: Allow for compile time evaluation of inlined forms"

Browse source 
This reverts commit b00e62f9d3.
This commit is contained in:
Marius Gerbershagen 2020-02-02 16:01:24 +01:00
parent 56a75fec47
commit 2e4a23f7c9
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmptop.lsp
View file

@ -281,9 +281,8 @@
(cond ((not *compile-toplevel*)
(c1progn (and execute-flag (rest args))))
(load-flag
(if compile-flag
(cmp-eval (cons 'PROGN (rest args))))
(c1progn (rest args)))
(let ((*compile-time-too* compile-flag))
(c1progn (rest args))))
(compile-flag
(cmp-eval (cons 'PROGN (rest args)))
(c1progn 'NIL))