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