[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

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))