From d0c668953afbc35a94a51d5b4f18e944f8721098 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 3 Dec 2012 22:26:54 +0100 Subject: [PATCH] Simpler TEST-NAMES. --- src/test.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/test.lisp b/src/test.lisp index c64d6a2..9b76d26 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -29,8 +29,7 @@ (remhash key *test*)) (defun test-names () - (loop for test being the hash-keys of *test* - collect test)) + (hash-table-keys *test*)) (defmacro test (name &body body) "Create a test named NAME. If NAME is a list it must be of the -- 1.7.10.4