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