From: David Vázquez <davazp@gmail.com>
Date: Thu, 29 Aug 2013 16:45:09 +0000 (+0200)
Subject: defmacro expansion uses eval-when
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=6b930dd4b781a93a4d64252048b15df58036f331

defmacro expansion uses eval-when
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 1b3541c..4dead5c 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -24,13 +24,13 @@
 
 (/debug "loading boot.lisp!")
 
-(eval-when-compile
+(eval-when (:compile-toplevel)
   (let ((defmacro-macroexpander
          '#'(lambda (form)
               (destructuring-bind (name args &body body)
                   form
                 (let ((whole (gensym)))
-                  `(eval-when-compile
+                  `(eval-when (:compile-toplevel :execute)
                      (%compile-defmacro ',name
                                         '#'(lambda (,whole)
                                              (destructuring-bind ,args ,whole