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

DEFCONSTANT cannot have implicit compile-time side effects because it breaks our constants that use FFI

Browse source
This commit is contained in:
jjgarcia 2008-08-19 10:26:43 +00:00
parent adf8f1300f
commit 2bbd1cf646
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/evalmacros.lsp
View file

@ -101,8 +101,7 @@ as a VARIABLE doc and can be retrieved by (documentation 'NAME 'variable)."
(defmacro defconstant (&whole whole var form &optional doc-string)
`(PROGN
(eval-when (:compile-toplevel :load-toplevel :execute)
(SYS:*MAKE-CONSTANT ',var ,form))
(SYS:*MAKE-CONSTANT ',var ,form)
,@(si::expand-set-documentation var 'variable doc-string)
,(ext:register-with-pde whole)
(eval-when (:compile-toplevel)