SAX handlers

SAX:ABSTRACT-HANDLER () class
SAX:CONTENT-HANDLER (sax:abstract-handler) class
SAX:DEFAULT-HANDLER (sax:content-handler) class

This time we collect the characters, too:

CL-USER> (defclass tostring (sax:default-handler) ())
#<STANDARD-CLASS TOSTRING>
CL-USER> (defvar *special*)
*SPECIAL*
CL-USER> (defmethod sax:characters ((handler tostring) data)
           (write-string data *special*))
#<STANDARD-METHOD SAX:CHARACTERS (TOSTRING T)>
CL-USER> (with-output-to-string (*tostring*)
           (cxml:parse "<x>111<y>222</y>333</x>"
                       (make-instance 'tostring)))
"111222333"