X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fsuite.lisp;h=bf1cc100b6721fcee7541e4cb98a3913b11d6af1;hb=660083a151da6492d44a5e21113d2c6064ea7817;hp=ee4b2f622207d98ce8c84779e9610f261de53713;hpb=168a8cb290c6d9b3fa40e500fd044ecacebb5429;p=fiveam.git

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.