From 4d1390ee929c1593cb0b355048f9f8d0135d9a49 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 877a847..90b56bd 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -36,8 +36,7 @@ named KEY in the *TEST* hash table." (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) "Deprecated. See DEF-TEST." -- 1.7.10.4