fixed the DTD/SAX fix

2007-08-05 11:15:48 +00:00
parent 5fcc11f244
commit 3a37db3e9d
1 changed files with 4 additions and 3 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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