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 /src/testiere.lisp | |
| parent | 36405e8288566954dbffc33bc9c384f6216853bc (diff) | |
Remove: config didn't work;HEADon-by-defaultmain
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))) |