Minor klacks enhancements.

klacks/klacks.lisp (CONSUME-CHARACTERS): New function.

	klacks/package.lisp (KLACKS): Export dribble-handler and
	consume-characters.

klacks/klacks.lisp

@@ -79,6 +79,12 @@
     (check-type key (member :characters))
     characters))
 
+(defun klacks:consume-characters (source)
+  (with-output-to-string (s)
+    (while (eq (klacks:peek source) :characters)
+      (write-string (klacks:current-characters source) s)
+      (klacks:consume source))))
+
 (defun klacks:serialize-event (source handler &key (consume t))
   (multiple-value-bind (key a b c) (klacks:peek source)
     (let ((result nil))

klacks/package.lisp

@@ -21,8 +21,10 @@
   (:export #:source
 	   #:close-source
 	   #:with-open-source
+
 	   #:tapping-source
 	   #:make-tapping-source
+	   #:dribble-handler
 
 	   #:peek
 	   #:peek-value
@@ -42,6 +44,7 @@
 	   #:current-lname
 	   #:current-qname
 	   #:current-characters
+	   #:consume-characters
 	   #:current-cdata-section-p
 	   #:map-current-namespace-declarations