From 11a1e3709ab269cb90d69eb12e42ab2ab5c90452 Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Wed, 13 Mar 2013 22:56:05 -0500
Subject: [PATCH] Correctly quote name and use valid-test-name in define-test.

---
 lisp-unit.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index ba5a7fb..196c0b9 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -220,7 +220,7 @@ assertion.")
   "Store the test in the test database."
   (let ((qname (gensym "NAME-")))
     (multiple-value-bind (doc tag code) (parse-body body)
-      `(let* ((,qname ,(valid-test-name name))
+      `(let* ((,qname (valid-test-name ',name))
               (doc (or ,doc (string ,qname))))
          (setf
           ;; Unit test
-- 
2.11.4.GIT