o dribble-tests: 'run-all-tests require the parser function.

Index: test/xmlconf.lisp
===================================================================
RCS file: /project/cxml/cvsroot/cxml/test/xmlconf.lisp,v
retrieving revision 1.14
diff -u -r1.14 xmlconf.lisp
--- test/xmlconf.lisp	18 Feb 2007 14:35:16 -0000	1.14
+++ test/xmlconf.lisp	13 Jun 2007 08:15:04 -0000
@@ -66,14 +71,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)
 
