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