[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

11 Dec 2005

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

    