diff options
-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 |