X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ftest.lisp;h=af7225a0bca77c380834263c2a145e51383de8b1;hb=c832bdccbc2c363b1a6714e70905721bd8c4d7c1;hp=7fed67d576e66a7672e01c5505db64314ca10e35;hpb=3958cd22acdae19eecd95e32c5570e9a51032827;p=fiveam.git diff --git a/src/test.lisp b/src/test.lisp index 7fed67d..af7225a 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -60,7 +60,7 @@ SUITE defaults to the current value of *SUITE*." ',name) `(setf (gethash ',name (tests (or *suite* (get-test 'NIL)))) ',name)) - (when *run-when-defined* + (when *run-test-when-defined* (run! ',name)) ',name))))