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

Modified Files:
	dom-impl.lisp 
Log Message:
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR

Date: Sun Dec  4 22:22:48 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.8 cxml/dom/dom-impl.lisp:1.9
--- cxml/dom/dom-impl.lisp:1.8	Sun Dec  4 22:15:36 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 22:22:47 2005
@@ -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)))