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 243a5f1..1518333 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -58,6 +58,8 @@ def-test) to pass to tests in this suite."
       (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 e874dc8..877a847 100644 (file)
--- a/src/test.lisp
+++ b/src/test.lisp
@@ -46,6 +46,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)