Update of /project/cxml/cvsroot/cxml/dom In directory clnet:/tmp/cvs-serv30679

Modified Files: dom-impl.lisp Log Message: repaired clone-node of a document without an internal subset

--- /project/cxml/cvsroot/cxml/dom/dom-impl.lisp 2006/08/20 12:55:30 1.39 +++ /project/cxml/cvsroot/cxml/dom/dom-impl.lisp 2006/08/27 17:29:39 1.40 @@ -1452,7 +1452,7 @@ (slot-value node 'entity-resolver)) (setf (slot-value (dom:entities doctype) 'read-only-p) t) (setf (slot-value (dom:notations doctype) 'read-only-p) t) - (when doctype + (when (and doctype (slot-boundp doctype 'dom::%internal-subset)) (setf (dom::%internal-subset doctype) (dom::%internal-subset original-doctype))) (when (and (dom:document-element node) deep)