[cxml-cvs] CVS cxml/xml

[dlichteblau]

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