Shut up warnings about unknown *SUITE* variable.

[fiveam.git] / src / suite.lisp

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.