777/808 prefix09.xml

-TEST FAILED: expected exception NAMESPACE_ERR
2005-12-11 19:54:56 +00:00
parent ec9718fa64
commit 61d0b07062
2 changed files with 5 additions and 2 deletions
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@ -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))))