X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fsuite.lisp;fp=src%2Fsuite.lisp;h=88bb34bd4e3f264b4e647d34f2c0340ba2ca006e;hb=486ab031347afe79021dd0b56138f05e4cad7108;hp=59fe844ac6b88748e667284e7539a9e079ea49fa;hpb=4494a24a8a05e600a479f314eae96901d580c958;p=fiveam.git

diff --git a/src/suite.lisp b/src/suite.lisp
index 59fe844..88bb34b 100644
--- 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