From fe6ac366b562a6605a491b8fc495347d880510b3 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 18 Jul 2013 17:05:12 +0200 Subject: [PATCH] DEFVAR *SUITE* before used --- src/test.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/test.lisp b/src/test.lisp index 982c176..c64d6a2 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -11,6 +11,9 @@ ;;;; collection of checks which can be run and a test suite is a named ;;;; collection of tests and test suites. +(defvar *suite* nil + "The current test suite object") + (defvar *test* (make-hash-table :test 'eql) "Lookup table mapping test (and test suite) -- 1.7.10.4