From 30a6d49354871aebf6854d7e6c90df0376f37970 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Thu, 18 Jul 2013 17:37:48 +0200 Subject: [PATCH] Simpler suites list. --- src/suite.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4