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

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

--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/07/22 19:43:27 1.71 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/08/05 11:15:48 1.72 @@ -1095,9 +1095,10 @@ (let ((e (find-element element-name dtd))) (cond ((null e) - (setf (gethash element-name (dtd-elements dtd)) - (make-elmdef :name element-name :content content-model)) - (sax:element-declaration (handler *ctx*) element-name content-model)) + (prog1 + (setf (gethash element-name (dtd-elements dtd)) + (make-elmdef :name element-name :content content-model)) + (sax:element-declaration (handler *ctx*) element-name content-model))) ((null content-model) e) (t