namespace normalization

2005-12-11 23:56:45 +00:00
parent 2b5b61baf1
commit 5363dadbb8
8 changed files with 205 additions and 39 deletions
--- a/dom/unparse.lisp
+++ b/dom/unparse.lisp
@ -1,6 +1,8 @@
 (in-package :cxml)

 (defun %unparse-document (sink doc canonical)
+  (when sax:*namespace-processing*
+    (setf sink (cxml:make-namespace-normalizer sink)))
  (dom:map-document sink
 		    doc
 		    :include-doctype (if (and canonical (>= canonical 2))