From 89bed37d996ec7e788932abed66621108392c715 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 10 Nov 2022 10:49:28 -0600
Subject: Modify: eval-when in defun/t

---
 testiere.asd  | 2 +-
 testiere.lisp | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/testiere.asd b/testiere.asd
index 2c3c1c1..3db3701 100644
--- a/testiere.asd
+++ b/testiere.asd
@@ -1,7 +1,7 @@
 ;;;; testiere.asd
 
 (asdf:defsystem #:testiere
-  :description "Up Front Testing for DEFUN and DEFMETHOD"
+  :description "Interactive Testing for DEFUN"
   :author "Colin Okay <colin@cicadas.surf>"
   :license  "GPLv3"
   :version "0.1.0"
diff --git a/testiere.lisp b/testiere.lisp
index 8e1d40f..b606b9f 100644
--- a/testiere.lisp
+++ b/testiere.lisp
@@ -99,9 +99,10 @@ defined."
                (when (fboundp ',name)
                  (fdefinition ',name))))
          (restart-case
-             (progn
-               (defun ,name ,lambda-list ,@function-body)
-               ,@tests)
+             (eval-when (:compile-toplevel :load-toplevel :execute) 
+               (progn
+                 (defun ,name ,lambda-list ,@function-body)
+                 ,@tests))
            (make-unbound () (fmakunbound ',name))
            (revert-to-last-good-version ()
              (if ,cached
-- 
cgit v1.2.3