Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv8304/dom

Modified Files: dom-impl.lisp Log Message: MORE WRONG_DOCUMENT_ERR

Date: Sun Dec 4 23:25:35 2005 Author: dlichteblau

Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.13 cxml/dom/dom-impl.lisp:1.14 --- cxml/dom/dom-impl.lisp:1.13 Sun Dec 4 23:22:30 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:25:35 2005 @@ -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))