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