aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testiere.asd2
-rw-r--r--testiere.lisp7
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