OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed cxml-xmls:map-node, thanks to Kim Minh Kaplan for the report

Browse Source
This commit is contained in:
dlichteblau
2006-05-15 21:57:47 +00:00
parent 13675fab67
commit ac1089719b
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
xml/xmls-compat.lisp
View File

@ -7,7 +7,7 @@
;;;; Copyright: David Lichteblau ;;;; Copyright: David Lichteblau
;;;; XXX Der namespace-Support in xmls kommt mir zweifelhaft vor. ;;;; 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 (defpackage cxml-xmls
(:use :cl :runes) (:use :cl :runes)
@ -135,9 +135,12 @@
(let* ((attlist (let* ((attlist
(compute-attributes node include-xmlns-attributes)) (compute-attributes node include-xmlns-attributes))
(lname (rod (node-name node))) (lname (rod (node-name node)))
(ns (rod (node-ns node))) (qname (if (node-ns node)
(qname (concatenate 'rod ns (rod ":") lname))) (concatenate 'rod
;; fixme: namespaces (rod (node-ns node))
(rod ":")
lname)
lname)))
(sax:start-element handler nil lname qname attlist) (sax:start-element handler nil lname qname attlist)
(dolist (child (node-children node)) (dolist (child (node-children node))
(typecase child (typecase child