[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-serv11020/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 777/808 prefix09.xml
-TEST FAILED: expected exception NAMESPACE_ERR

Date: Sun Dec 11 20:54:57 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.27 cxml/dom/dom-impl.lisp:1.28
--- cxml/dom/dom-impl.lisp:1.27	Sun Dec 11 20:46:21 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 20:54:57 2005
@@ -50,6 +50,10 @@
 		      (dom:namespace-uri node)))
   (setf (slot-value node 'prefix) newval))
 
+(defmethod (setf dom:prefix) :before (newval (node attribute))
+  (when (rod= (dom:node-name node) #"xmlns")
+    (dom-error :NAMESPACE_ERR "must not change xmlns attribute prefix")))
+
 (defmethod (setf dom:prefix) :after (newval (node attribute))
   (setf (slot-value node 'name)
 	(concatenate 'rod newval #":" (dom:local-name node))))