From fe0f07ea19b36ce1abc1ec305d0203323cbf2316 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 1 Jun 2006 17:00:19 +0100
Subject: [PATCH] base: compile-time-defun should define in the interpreter.

---
 mdw-base.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 8ba9a24..73f85e7 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -57,7 +57,7 @@
 (defmacro compile-time-defun (name args &body body)
   "Define a function which can be used by macros during the compilation
    process."
-  `(eval-when (:compile-toplevel :load-toplevel)
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
      (defun ,name ,args ,@body)))
 
 (defmacro show (x)
-- 
2.11.0