[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv12268/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 755/808 nodenormalize01.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-No entity resolver registered.

Date: Sun Dec 11 21:13:05 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.30 cxml/dom/dom-impl.lisp:1.31
--- cxml/dom/dom-impl.lisp:1.30	Sun Dec 11 21:07:45 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 21:13:05 2005
@@ -1193,11 +1193,10 @@
   (let* ((owner (dom:owner-document instance))
          (handler (dom:make-dom-builder))
          (resolver (slot-value owner 'entity-resolver)))
-    (unless resolver
-      (dom-error :NOT_SUPPORTED_ERR "No entity resolver registered."))
-    (setf (document handler) owner)
-    (push instance (element-stack handler))
-    (funcall resolver (dom:name instance) handler))
+    (when resolver
+      (setf (document handler) owner)
+      (push instance (element-stack handler))
+      (funcall resolver (dom:name instance) handler)))
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)