[cxml-cvs] CVS cxml/dom

[dlichteblau]

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)