From ec9718fa64954a50049af086e64ee43314c2a343 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 11 Dec 2005 19:46:20 +0000
Subject: [PATCH]  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.

---
 DOMTEST           | 10 +---------
 dom/dom-impl.lisp |  8 ++++++++
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/DOMTEST b/DOMTEST
index 8dc022c..20a3e5e 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -791,15 +791,7 @@ not implemented
 TEST FAILED: NOT_SUPPORTED_ERR (9):
 No entity resolver registered.
 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.
 758/808 nodesetprefix03.xml
 759/808 nodesetprefix04.xml
 760/808 nodesetprefix05.xml
@@ -854,4 +846,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-6/763 tests failed; 45 tests were skipped
\ No newline at end of file
+4/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 cfbc88a..ff94042 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -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)