34a35,43
> (defmacro with-blank-tests (&body body)
>   `(let ((regression-test::*entries* (list nil))
>        (regression-test::*entries-table* (make-hash-table :test #'equal))
>        (*test* nil)
>        (regression-test::*in-test* nil))
>     (let ((regression-test::*entries-tail* regression-test::*entries*))
>       ,@body)))
>
>
36,45c45,52
<   (let ((*test* nil)
<       (*do-tests-when-defined* nil)
<       (rt::*entries* (list nil))
<       (rt::*in-test* nil)
<       (rt::*debug* t)
<       result)
<     (deftest t1 4 4)
<     (deftest (t 2) 4 3)
<     (values-list
<       (cons (normalize
---
>   (with-blank-tests
>     (let ((*do-tests-when-defined* nil)
>         (rt::*debug* t)
>         result)
>       (deftest t1 4 4)
>       (deftest (t 2) 4 3)
>       (values-list
>        (cons (normalize
49,50c56,57
<                       (catch 'rt::*debug* (eval form))))))
<           result))))
---
>                      (catch 'rt::*debug* (eval form))))))
>            result)))))