subclass catalog-parser from sax:default-handler, patch by Ivan Shvedunov
This commit is contained in:
committed by
David Lichteblau
parent
7f4ed3cd41
commit
186488e386
@ -254,7 +254,7 @@
|
|||||||
:root #"catalog"
|
:root #"catalog"
|
||||||
:entity-resolver #'entity-resolver)))))
|
:entity-resolver #'entity-resolver)))))
|
||||||
|
|
||||||
(defclass catalog-parser ()
|
(defclass catalog-parser (sax:default-handler)
|
||||||
((result :initform (make-entry-file) :accessor result)
|
((result :initform (make-entry-file) :accessor result)
|
||||||
(next :initform '() :accessor next)
|
(next :initform '() :accessor next)
|
||||||
(prefer-stack :initform (list *prefer*) :accessor prefer-stack)
|
(prefer-stack :initform (list *prefer*) :accessor prefer-stack)
|
||||||
|
|||||||
Reference in New Issue
Block a user