From 660083a151da6492d44a5e21113d2c6064ea7817 Mon Sep 17 00:00:00 2001
From: Marco Baringer <mb@bese.it>
Date: Sat, 24 Mar 2007 17:43:10 +0100
Subject: [PATCH] Added def-suite* macro

---
 src/suite.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/suite.lisp b/src/suite.lisp
index ee4b2f6..bf1cc10 100644
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -33,6 +33,11 @@ defined in this suite."
                  ,@(when default-test-args `(:default-test-args ,default-test-args)))
      ',name))
 
+(defmacro def-suite* (name &rest def-suite-args)
+  `(progn
+     (def-suite ,name ,@def-suite-args)
+     (in-suite ,name)))
+
 (defun make-suite (name &key description in default-test-args)
   "Create a new test suite object.