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

2010-09-04 16:27:17 +02:00
parent 7f4ed3cd41
commit 186488e386
1 changed files with 1 additions and 1 deletions
--- a/xml/catalog.lisp
+++ b/xml/catalog.lisp
@ -254,7 +254,7 @@
                      :root #"catalog"
                      :entity-resolver #'entity-resolver)))))

-(defclass catalog-parser ()
+(defclass catalog-parser (sax:default-handler)
  ((result :initform (make-entry-file) :accessor result)
   (next :initform '() :accessor next)
   (prefer-stack :initform (list *prefer*) :accessor prefer-stack)