DEFCONSTANT must also define the constant at compile time.

This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-28 19:36:24 +02:00
parent 0bced09c13
commit cd89447eec
2 changed files with 4 additions and 0 deletions

View file

@ -38,6 +38,9 @@ ECL 9.6.3:
- Compiler messages no show the offending form and file position. Before this
information was not properly stored in the compiled code tree.
- DEFCONSTANT only had the expected compile-time side effects in the bytecodes
compiler, not in the lisp->C translator.
* Visible changes:
- The toplevel only traps SERIOUS-CONDITIONS.

View file

@ -119,6 +119,7 @@ VARIABLE doc and can be retrieved by (DOCUMENTATION 'SYMBOL 'VARIABLE)."
,(ext:register-with-pde whole)
,(unless *bytecodes-compiler*
`(eval-when (:compile-toplevel)
(sys:*make-constant ',var ,form)
(si::register-global ',var)))
',var))