defconstant uses eval-when

diff --git a/src/boot.lisp b/src/boot.lisp
index 4dead5c..edfc576 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -38,7 +38,7 @@
     (%compile-defmacro 'defmacro defmacro-macroexpander)))
 
 (defmacro declaim (&rest decls)
-  `(eval-when-compile
+  `(eval-when (:compile-toplevel :execute)
      ,@(mapcar (lambda (decl) `(!proclaim ',decl)) decls)))
 
 (defmacro defconstant (name value &optional docstring)