From: Marco Baringer <mb@bese.it>
Date: Tue, 14 Aug 2007 17:36:09 +0000 (+0200)
Subject: def-suite should expand into an (eval-when (:always) ...) not a progn
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=77155f18a3fd45a228f240599174098aa5751ce3;p=fiveam.git

def-suite should expand into an (eval-when (:always) ...) not a progn
---

diff --git a/src/suite.lisp b/src/suite.lisp
index c09c071..14427c6 100644
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -23,7 +23,7 @@ IN (a symbol), if provided, causes this suite te be nested in the
 suite named by IN. NB: This macro is built on top of make-suite,
 as such it, like make-suite, will overrwrite any existing suite
 named NAME."
-  `(progn
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
      (make-suite ',name
                  ,@(when description `(:description ,description))
                  ,@(when in `(:in ',in)))