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