785/808 removeNamedItemNS03.xml

-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
2005-12-04 21:22:47 +00:00
parent a8d0f330a0
commit 0233822821
2 changed files with 2 additions and 2 deletions
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@ -1138,6 +1138,7 @@
  (labels ((walk (n)
             (setf (slot-value n 'read-only-p) t)
             (when (dom:element-p n)
+	       (setf (slot-value (dom:attributes n) 'read-only-p) t)
               (map nil #'walk (dom:items (dom:attributes n))))
             (map nil #'walk (dom:child-nodes n))))
    (walk instance)))