From 6b930dd4b781a93a4d64252048b15df58036f331 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 29 Aug 2013 18:45:09 +0200 Subject: [PATCH] defmacro expansion uses eval-when --- src/boot.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4