From ac1089719bb4f71d8e38fd45951aa1bf89fc6a3b Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Mon, 15 May 2006 21:57:47 +0000
Subject: [PATCH] fixed cxml-xmls:map-node, thanks to Kim Minh Kaplan for the
 report

---
 xml/xmls-compat.lisp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/xml/xmls-compat.lisp b/xml/xmls-compat.lisp
index e8306bf..3af2468 100644
--- a/xml/xmls-compat.lisp
+++ b/xml/xmls-compat.lisp
@@ -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