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

[fiveam.git] / src / suite.lisp

diff --git a/src/suite.lisp b/src/suite.lisp
index c09c071..14427c6 100644 (file)
--- 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)))