Simpler suites list.

[fiveam.git] / src / suite.lisp

diff --git a/src/suite.lisp b/src/suite.lisp
index 59fe844..88bb34b 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -81,8 +81,8 @@ Overrides any existing suite named NAME."
     suite))
 
 (defun list-all-suites ()
-  (loop for suite being the hash-value in *suites*
-       collect suite))
+  "Returns an unordered LIST of all suites."
+  (hash-table-values *suites*))
 
 ;;;; ** Managing the Current Suite