subclass catalog-parser from sax:default-handler, patch by Ivan Shvedunov

This commit is contained in:
David Lichteblau
2010-09-04 16:27:17 +02:00
committed by David Lichteblau
parent 7f4ed3cd41
commit 186488e386

View File

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