Shut up warnings about unknown *SUITE* variable.

[fiveam.git] / src / suite.lisp

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.