From 78a7b9d54ebcf4df2d734bef366e0b27da060146 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 982c176..241ba0a 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -26,8 +26,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