From 9fefbacd1858c9830945ea747f589f593e0872e0 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 3 Dec 2012 19:50:45 +0100 Subject: [PATCH] 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. --- src/suite.lisp | 2 ++ src/test.lisp | 2 ++ 2 files changed, 4 insertions(+) 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) -- 1.7.10.4