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

Modified Files: dom-impl.lisp Log Message: 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.

Date: Sun Dec 11 19:13:05 2005 Author: dlichteblau

Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.19 cxml/dom/dom-impl.lisp:1.20 --- cxml/dom/dom-impl.lisp:1.19 Sat Dec 10 21:06:05 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:13:04 2005 @@ -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)