Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv6596

Modified Files: xml-parse.lisp Log Message: DTD/SAX fix

--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/07/07 20:47:40 1.70 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/07/22 19:43:27 1.71 @@ -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