diff options
author | Colin Okay <colin@cicadas.surf> | 2022-11-10 10:49:28 -0600 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-11-10 10:49:28 -0600 |
commit | 89bed37d996ec7e788932abed66621108392c715 (patch) | |
tree | 0e7e4b0c8719ec4f39593612162049bc64d57221 /testiere.lisp | |
parent | 7b6f07105031ed15c65eac8f122abb3396c93419 (diff) |
Modify: eval-when in defun/t
Diffstat (limited to 'testiere.lisp')
-rw-r--r-- | testiere.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
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 |