add an (eval-when ...) when defining a test suite
authorLuca Capello <luca@pca.it>
Sun, 21 Oct 2007 20:10:56 +0000 (22:10 +0200)
committerLuca Capello <luca@pca.it>
Sun, 21 Oct 2007 20:10:56 +0000 (22:10 +0200)
t/suite.lisp

index 9db6578..50b1a6f 100644 (file)
@@ -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)