X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fexplain.lisp;h=015cdf45521a185b0c10f0e30461b4d8cf826744;hb=c820f4eaa2e95782018ebfc3cf45b85c72d6c978;hp=d29a8709e77d7f8973afd664f7ae6b0fe5411c82;hpb=4460cad7919fde8e2bf119d24807a05f1a1bf493;p=fiveam.git

diff --git a/src/explain.lisp b/src/explain.lisp
index d29a870..015cdf4 100644
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -1,4 +1,4 @@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
 
 (in-package :it.bese.fiveam)
 
@@ -12,12 +12,12 @@
 ;;;; which prints a human readable summary (number passed, number
 ;;;; failed, what failed and why, etc.) of a list of test results.
 
-(defgeneric explain (explainer results &optional stream recursive-depth))
+(defgeneric explain (explainer results &optional stream recursive-depth)
+  (:documentation "Given a list of test results report write to stream detailed
+ human readable statistics regarding the results."))
 
 (defmethod explain ((exp detailed-text-explainer) results
                     &optional (stream *test-dribble*) (recursive-depth 0))
-  #| "Given a list of test results report write to stream detailed
-  human readable statistics regarding the results." |#
   (multiple-value-bind (num-checks passed num-passed passed%
                                    skipped num-skipped skipped%
                                    failed num-failed failed%
@@ -61,7 +61,7 @@
                   (name (test-case f))
                   (description (test-case f)))
           (output "    ~A.~%" (reason f)))
-        (terpri *test-dribble*)))))
+        (terpri stream)))))
 
 (defmethod explain ((exp simple-text-explainer) results
                     &optional (stream *test-dribble*) (recursive-depth 0))