diff options
| author | colin <colin@cicadas.surf> | 2024-07-23 22:10:09 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-07-23 22:10:09 -0700 |
| commit | 6e03beca8b660a3266e59720ef4df50cde05b03f (patch) | |
| tree | e737e83f3816096344af84b946b49a7b3a43f90a | |
| parent | 36405e8288566954dbffc33bc9c384f6216853bc (diff) | |
Remove: config didn't work;HEADon-by-defaultmain
| -rw-r--r-- | src/testiere.lisp | 6 | ||||
| -rw-r--r-- | 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"))) |