Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv10867/dom

Modified Files: dom-impl.lisp Log Message: 756/808 nodesetprefix01.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName| - #(100 109 115 116 99 58 97 100 100 - 114 101 115 115) - 'DOMTEST::%EQUAL) failed. 757/808 nodesetprefix02.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName| - #(100 111 109 58 97 100 100 114 - 101 115 115) - 'DOMTEST::%EQUAL) failed.

Date: Sun Dec 11 20:46:22 2005 Author: dlichteblau

Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.26 cxml/dom/dom-impl.lisp:1.27 --- cxml/dom/dom-impl.lisp:1.26 Sun Dec 11 20:38:10 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 20:46:21 2005 @@ -50,6 +50,14 @@ (dom:namespace-uri node))) (setf (slot-value node 'prefix) newval))

+(defmethod (setf dom:prefix) :after (newval (node attribute)) + (setf (slot-value node 'name) + (concatenate 'rod newval #":" (dom:local-name node)))) + +(defmethod (setf dom:prefix) :after (newval (node element)) + (setf (slot-value node 'tag-name) + (concatenate 'rod newval #":" (dom:local-name node)))) + (defclass document (node) ((doc-type :initarg :doc-type :reader dom:doctype) (dtd :initform nil :reader dtd)