X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fsuite.lisp;h=03e232eb5f3a88718f43a48f8ff22eef4d47e6be;hb=30a6d49354871aebf6854d7e6c90df0376f37970;hp=4e96bfb2bb949431f0fc92ca81de888949fc9d9e;hpb=f91d0bc6c6737b89880151f3b2dffbce0b47eb82;p=fiveam.git

diff --git a/src/suite.lisp b/src/suite.lisp
index 4e96bfb..03e232e 100644
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -52,6 +52,10 @@ Overrides any existing suite named NAME."
     (setf (get-test name) suite)
     suite))
 
+(defun list-all-suites ()
+  "Returns an unordered LIST of all suites."
+  (hash-table-values *suites*))
+
 ;;;; ** Managing the Current Suite
 
 (defvar *suite* (setf (get-test 'NIL)