From 0d4ab8c76604b4b03a075a2946cad3140bc305f2 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sat, 16 Jun 2007 10:03:11 +0000
Subject: [PATCH] DTC patch-xmlconf o dribble-tests: 'run-all-tests require the
 parser function.

---
 test/xmlconf.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/xmlconf.lisp b/test/xmlconf.lisp
index 0d52d4a..53bdc90 100644
--- a/test/xmlconf.lisp
+++ b/test/xmlconf.lisp
@@ -66,14 +66,14 @@
       (read-sequence result s )
       result)))
 
-(defun dribble-tests (directory)
+(defun dribble-tests (parser-fn directory)
   (let ((base (slot-value (asdf:find-system :cxml) 'asdf::relative-pathname)))
     (with-open-file (*standard-output*
 		     (merge-pathnames "XMLCONF" base)
 		     :direction :output
 		     :external-format :iso-8859-1
 		     :if-exists :supersede)
-      (run-all-tests directory))))
+      (run-all-tests parser-fn directory))))
 
 (defvar *parser-fn* 'sax-test)