From 023382282164ca7b8271cdfad2668a0cab85d109 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 4 Dec 2005 21:22:47 +0000
Subject: [PATCH]  785/808 removeNamedItemNS03.xml -TEST FAILED: expected
 exception NO_MODIFICATION_ALLOWED_ERR

---
 DOMTEST           | 3 +--
 dom/dom-impl.lisp | 1 +
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/DOMTEST b/DOMTEST
index 91a96ff..5ac7d16 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -1070,7 +1070,6 @@ TEST FAILED: There is no applicable method for the generic function
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 786/808 setAttributeNS01.xml
 787/808 setAttributeNS02.xml
 788/808 setAttributeNS03.xml
@@ -1115,4 +1114,4 @@ TEST FAILED: There is no applicable method for the generic function
                (NIL).
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-102/763 tests failed; 45 tests were skipped
\ No newline at end of file
+101/763 tests failed; 45 tests were skipped
\ No newline at end of file
diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index de013e7..4b01030 100644
--- 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)))