diff options
Diffstat (limited to 'src/testiere.lisp')
| -rw-r--r-- | src/testiere.lisp | 6 |
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))) |