From 77155f18a3fd45a228f240599174098aa5751ce3 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Tue, 14 Aug 2007 19:36:09 +0200 Subject: [PATCH] def-suite should expand into an (eval-when (:always) ...) not a progn --- src/suite.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4