From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Thu, 18 Jul 2013 15:37:48 +0000 (+0200)
Subject: Simpler suites list.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=fiveam.git;a=commitdiff_plain;h=30a6d49354871aebf6854d7e6c90df0376f37970

Simpler suites list.
---

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)