Correctly quote name and use valid-test-name in define-test.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 14 Mar 2013 03:56:05 +0000 (13 22:56 -0500)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 14 Mar 2013 03:56:05 +0000 (13 22:56 -0500)
lisp-unit.lisp

index ba5a7fb..196c0b9 100644 (file)
@@ -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