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.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'testiere.lisp')

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