From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 3 Dec 2012 18:50:45 +0000 (+0100)
Subject: Shut up warnings about unknown *SUITE* variable.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9fefbacd1858c9830945ea747f589f593e0872e0;p=fiveam.git

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
--- 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
--- 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)