aboutsummaryrefslogtreecommitdiff
path: root/src/testiere.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/testiere.lisp')
-rw-r--r--src/testiere.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/testiere.lisp b/src/testiere.lisp
index 5b90ec8..451d886 100644
--- a/src/testiere.lisp
+++ b/src/testiere.lisp
@@ -238,14 +238,14 @@ restarts to try when tests fail."
(setf (fdefinition ',name) ',orig-generic))))))
(defun on ()
- (unless (member :testiere *features*)
- (pushnew :testiere *features*)
+ (pushnew :testiere *features*)
+ (unless (eq *macroexpand-hook* 'testiere-hook)
(setf
*cached-macroexpand-hook* *macroexpand-hook*
*macroexpand-hook* 'testiere-hook )))
(defun off ()
- (when (member :testiere *features*)
+ (when (eq *macroexpand-hook* 'testiere-hook)
(setf *features* (delete :testiere *features*))
(setf *macroexpand-hook* *cached-macroexpand-hook*
*cached-macroexpand-hook* nil)))