added sax-parser-mixin to broadcast-handler

This commit is contained in:
dlichteblau
2007-05-20 09:38:35 +00:00
parent a486018c85
commit 7fa3307ec8

View File

@ -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)))