Correctly quote name and use valid-test-name in define-test.

OdonataResearchLLC · Mar 14, 2013 · 11a1e37 · 11a1e37
1 parent 3a0f079
commit 11a1e37
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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