From 86e32cbf75260905cc614e0a42857ca0537f31d9 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 27 Aug 2006 17:29:39 +0000
Subject: [PATCH] repaired clone-node of a document without an internal subset

---
 dom/dom-impl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index b86734c..4b078fd 100644
--- 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)