From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Thu, 1 Aug 2013 15:39:24 +0000 (-0500)
Subject: Correct error in parse-body that was discarding the test documentation.
X-Git-Tag: Version-1.0.0~4
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/ba267bc35b737cc378312cc5d6b3ead56ce87210

Correct error in parse-body that was discarding the test documentation.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index efaae1a..85c0fa8 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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)