MORE WRONG_DOCUMENT_ERR

2005-12-04 22:25:34 +00:00
parent 31b32fc50e
commit 3dce1bffe5
2 changed files with 3 additions and 3 deletions
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@ -239,6 +239,8 @@
      (unless (typep doctype 'document-type)
 	(dom-error :WRONG_DOCUMENT_ERR
 		   "doctype was created by a different dom implementation"))
+      (when (dom:owner-document doctype)
+	(dom-error :WRONG_DOCUMENT_ERR "doctype already in use"))
      (setf (slot-value doctype 'dom-impl::owner) document
 	    (slot-value (dom:notations doctype) 'dom-impl::owner) document
 	    (slot-value (dom:entities doctype) 'dom-impl::owner) document))