OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

repaired clone-node of a document without an internal subset

Browse Source
This commit is contained in:
dlichteblau
2006-08-27 17:29:39 +00:00
parent 8f2254d820
commit 86e32cbf75
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
dom/dom-impl.lisp
View File

@ -1452,7 +1452,7 @@
(slot-value node 'entity-resolver)) (slot-value node 'entity-resolver))
(setf (slot-value (dom:entities doctype) 'read-only-p) t) (setf (slot-value (dom:entities doctype) 'read-only-p) t)
(setf (slot-value (dom:notations 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) (setf (dom::%internal-subset doctype)
(dom::%internal-subset original-doctype))) (dom::%internal-subset original-doctype)))
(when (and (dom:document-element node) deep) (when (and (dom:document-element node) deep)