Correct error in parse-body that was discarding the test documentation.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 1 Aug 2013 15:39:24 +0000 (1 10:39 -0500)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 1 Aug 2013 15:39:24 +0000 (1 10:39 -0500)
lisp-unit.lisp

index efaae1a..85c0fa8 100644 (file)
@@ -238,7 +238,7 @@ assertion.")
      ((and (stringp item) (not doc) (rest body))
       (if tag
           (values doc tag (rest body))
-          (parse-body (rest body) doc tag)))
+          (parse-body (rest body) item tag)))
      (t (values doc tag body)))))
 
 (defun test-name-error-report (test-name-error stream)