DTD/SAX fix

2007-07-22 19:43:27 +00:00
parent bc504276fd
commit 5142cfe2b8
1 changed files with 2 additions and 1 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -1096,7 +1096,8 @@
    (cond
      ((null e)
        (setf (gethash element-name (dtd-elements dtd))
-              (make-elmdef :name element-name :content content-model)))
+              (make-elmdef :name element-name :content content-model))
+       (sax:element-declaration (handler *ctx*) element-name content-model))
      ((null content-model)
        e)
      (t