From 66137c363429f28f6e40e15ba3f982025ff9bb5d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 30 Aug 2013 20:56:47 +0200 Subject: [PATCH] defconstant uses eval-when --- src/boot.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4