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)