X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=edfc576fbcecc4e48ff4c18fab83e925d65755e6;hb=66137c363429f28f6e40e15ba3f982025ff9bb5d;hp=4dead5c76927e59d8dbb10e3a3603baeafc75e83;hpb=30f152239f54d3f07325db59f7950ed252af751c;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index 4dead5c..edfc576 100644
--- 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)