X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ftest.lisp;h=640f6d969977ee17389d6e2aa08dc459fa97a7ea;hb=9fefbacd1858c9830945ea747f589f593e0872e0;hp=b5e590a0b519c38ac370e9911e739af507a166a1;hpb=4b85e1a17c80d4c55bd7511dd8a90954a455ecd6;p=fiveam.git

diff --git a/src/test.lisp b/src/test.lisp
index b5e590a..640f6d9 100644
--- a/src/test.lisp
+++ b/src/test.lisp
@@ -45,6 +45,8 @@ named KEY in the *TEST* hash table."
       (ensure-list name)
     `(def-test ,name (,@args) ,@body)))
 
+(declaim (special *suite*))
+
 (defmacro def-test (name (&key (suite nil suite-p)
                                fixture
                                (compile-at :run-time)