Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv1140/xml

Modified Files: sax-proxy.lisp Log Message: added sax-parser-mixin to broadcast-handler

--- /project/cxml/cvsroot/cxml/xml/sax-proxy.lisp 2007/04/22 13:23:55 1.5 +++ /project/cxml/cvsroot/cxml/xml/sax-proxy.lisp 2007/05/20 09:38:35 1.6 @@ -8,7 +8,7 @@

(in-package :cxml)

-(defclass broadcast-handler () +(defclass broadcast-handler (sax:sax-parser-mixin) ((handlers :initform nil :initarg :handlers :accessor broadcast-handler-handlers))) @@ -59,6 +59,6 @@ (define-proxy-method sax:entity-resolver (resolver)) (define-proxy-method sax::dtd (dtd)))

-(defmethod sax:register-sax-parser :after ((handler sax-proxy) parser) +(defmethod sax:register-sax-parser :after ((handler broadcast-handler) parser) (dolist (next (broadcast-handler-handlers handler)) (sax:register-sax-parser next parser)))