OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added sax-parser-mixin to broadcast-handler

Browse Source
This commit is contained in:
dlichteblau
2007-05-20 09:38:35 +00:00
parent a486018c85
commit 7fa3307ec8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
xml/sax-proxy.lisp
View File

@ -8,7 +8,7 @@
(in-package :cxml) (in-package :cxml)
(defclass broadcast-handler () (defclass broadcast-handler (sax:sax-parser-mixin)
((handlers :initform nil ((handlers :initform nil
:initarg :handlers :initarg :handlers
:accessor broadcast-handler-handlers))) :accessor broadcast-handler-handlers)))
@ -59,6 +59,6 @@
(define-proxy-method sax:entity-resolver (resolver)) (define-proxy-method sax:entity-resolver (resolver))
(define-proxy-method sax::dtd (dtd))) (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)) (dolist (next (broadcast-handler-handlers handler))
(sax:register-sax-parser next parser))) (sax:register-sax-parser next parser)))