From 7b3b2cf51c6213e6a097ff049594977e1b1deae3 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 243a5f1..1518333 100644 --- 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 --- 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) -- 1.7.10.4