Shut up warnings about unknown *SUITE* variable.

Either this way, or moving definitions around.  Also, MAKE-SUITE and
*SUITE* depend on each other, so it's needed there as well.

diff --git a/src/suite.lisp b/src/suite.lisp
index a74f7ed..48c0076 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -53,6 +53,8 @@ will overrwrite any existing suite named `NAME`."
       (when (gethash test-name (tests s))
         (remhash test-name (tests s))))))
 
+(declaim (special *suite*))
+
 (defun make-suite (name &key description ((:in parent-suite) *suite*) fixture)
   "Create a new test suite object.
 

diff --git a/src/test.lisp b/src/test.lisp
index b5e590a..640f6d9 100644 (file)
--- 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)