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 | |
| parent | 7b6f07105031ed15c65eac8f122abb3396c93419 (diff) | |
Modify: eval-when in defun/t
| -rw-r--r-- | testiere.asd | 2 | ||||
| -rw-r--r-- | 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 |