From 6e03beca8b660a3266e59720ef4df50cde05b03f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 23 Jul 2024 22:10:09 -0700
Subject: Remove: config didn't work;

---
 src/testiere.lisp | 6 +++---
 testiere.asd      | 3 +--
 2 files changed, 4 insertions(+), 5 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)))
diff --git a/testiere.asd b/testiere.asd
index c69c0bf..3703823 100644
--- a/testiere.asd
+++ b/testiere.asd
@@ -10,5 +10,4 @@
   :serial t
   :components ((:file "package")
                (:file "testiere")
-               (:file "standard-hooks")
-               (:file "config")))
+               (:file "standard-hooks")))
-- 
cgit v1.2.3