repaired clone-node of a document without an internal subset

2006-08-27 17:29:39 +00:00
parent 8f2254d820
commit 86e32cbf75
1 changed files with 1 additions and 1 deletions
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@ -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)