From f96804287925e93bd978face0285b051462aa29d Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Mon, 15 Oct 2012 10:55:33 -0500
Subject: [PATCH] Use the string name of the test for documentation if none
 provided.

---
 lisp-unit.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 46e44d3..11debc6 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -224,11 +224,11 @@ assertion.")
 (defmacro define-test (name &body body)
   "Store the test in the test database."
   (multiple-value-bind (doc tag code) (parse-body body)
-    `(progn
+    `(let ((doc (or ,doc (string ',name))))
        (setf
         ;; Unit test
         (gethash ',name (package-table *package* t))
-        (make-instance 'unit-test :doc ,doc :code ',code))
+        (make-instance 'unit-test :doc doc :code ',code))
        ;; Tags
        (loop for tag in ',tag do
              (pushnew
-- 
2.11.4.GIT