Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv22880
Modified Files:
xmls-compat.lisp
Log Message:
fixed cxml-xmls:map-node, thanks to Kim Minh Kaplan for the report
--- /project/cxml/cvsroot/cxml/xml/xmls-compat.lisp 2005/11/28 22:33:47 1.2
+++ /project/cxml/cvsroot/cxml/xml/xmls-compat.lisp 2006/05/15 21:57:47 1.3
@@ -7,7 +7,7 @@
;;;; Copyright: David Lichteblau
;;;; XXX Der namespace-Support in xmls kommt mir zweifelhaft vor.
-;;;; Wir immitieren das soweit es gebraucht wurde bisher.
+;;;; Wir imitieren das soweit es gebraucht wurde bisher.
(defpackage cxml-xmls
(:use :cl :runes)
@@ -135,9 +135,12 @@
(let* ((attlist
(compute-attributes node include-xmlns-attributes))
(lname (rod (node-name node)))
- (ns (rod (node-ns node)))
- (qname (concatenate 'rod ns (rod ":") lname)))
- ;; fixme: namespaces
+ (qname (if (node-ns node)
+ (concatenate 'rod
+ (rod (node-ns node))
+ (rod ":")
+ lname)
+ lname)))
(sax:start-element handler nil lname qname attlist)
(dolist (child (node-children node))
(typecase child
