From: David Vázquez <davazp@gmail.com>
Date: Fri, 30 Aug 2013 18:56:47 +0000 (+0200)
Subject: defconstant uses eval-when
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=66137c363429f28f6e40e15ba3f982025ff9bb5d

defconstant uses eval-when
---

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)