From c045b19e3f3329161c0c330d0dbbcf600b9dd0e2 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 11 Dec 2005 18:13:00 +0000 Subject: [PATCH] 582/808 documentimportnode14.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(104 116 116 112 58 47 47 119 119 - 119 46 110 105 115 116 46 103 - 111 118) - 'DOMTEST::%EQUAL) failed. --- DOMTEST | 7 +------ dom/dom-impl.lisp | 9 ++++++++- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/DOMTEST b/DOMTEST index b4b5984..5dfe3d9 100644 --- a/DOMTEST +++ b/DOMTEST @@ -610,11 +610,6 @@ implementationAttribute signed not supported, skipping test 580/808 documentimportnode12.xml 581/808 documentimportnode13.xml 582/808 documentimportnode14.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(104 116 116 112 58 47 47 119 119 - 119 46 110 105 115 116 46 103 - 111 118) - 'DOMTEST::%EQUAL) failed. 583/808 documentimportnode15.xml 584/808 documentimportnode17.xml 585/808 documentimportnode18.xml @@ -883,4 +878,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -22/763 tests failed; 45 tests were skipped \ No newline at end of file +21/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 691ee23..1e65489 100644 --- a/dom/dom-impl.lisp +++ b/dom/dom-impl.lisp @@ -1280,7 +1280,14 @@ (setf (slot-value attributes 'element) result) (dolist (attribute (dom:items (dom:attributes node))) (when (or (dom:specified attribute) *clone-not-import*) - (dom:set-attribute result (dom:name attribute) (dom:value attribute)))) + (if (dom:namespace-uri attribute) + (dom:set-attribute-ns result + (dom:namespace-uri attribute) + (dom:local-name attribute) + (dom:value attribute)) + (dom:set-attribute result + (dom:name attribute) + (dom:value attribute))))) result)) (defmethod dom:import-node ((document document) (node entity) deep)