From 7df749a8a0381171ab005a3f284385ce39757277 Mon Sep 17 00:00:00 2001 From: Luca Capello Date: Sun, 21 Oct 2007 22:10:56 +0200 Subject: [PATCH] add an (eval-when ...) when defining a test suite --- t/suite.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/suite.lisp b/t/suite.lisp index 9db6578..50b1a6f 100644 --- a/t/suite.lisp +++ b/t/suite.lisp @@ -2,7 +2,8 @@ (in-package :it.bese.fiveam) -(unless (get-test :it.bese) - (def-suite :it.bese)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (unless (get-test :it.bese) + (def-suite :it.bese))) (def-suite :it.bese.fiveam :in :it.bese) -- 1.7.10.4