From 6e03beca8b660a3266e59720ef4df50cde05b03f Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 23 Jul 2024 22:10:09 -0700 Subject: Remove: config didn't work; --- src/testiere.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/testiere.lisp') 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))) -- cgit v1.2.3