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

diff --git a/src/explain.lisp b/src/explain.lisp
index 42c6225..d29a870 100644
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -12,6 +12,8 @@
 ;;;; 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))
+
 (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