aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-07-23 22:10:09 -0700
committercolin <colin@cicadas.surf>2024-07-23 22:10:09 -0700
commit6e03beca8b660a3266e59720ef4df50cde05b03f (patch)
treee737e83f3816096344af84b946b49a7b3a43f90a /src
parent36405e8288566954dbffc33bc9c384f6216853bc (diff)
Remove: config didn't work;HEADon-by-defaultmain
Diffstat (limited to 'src')
-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)))