diff --git a/doc/dom.html b/doc/dom.html index 665cad8..95d93b9 100644 --- a/doc/dom.html +++ b/doc/dom.html @@ -63,6 +63,11 @@ unparse-document as a thin wrapper around map-document.

+

+ Applications dealing with namespaces might want to inject a + namespace normalizer into the + sink chain. +

Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values include-doctype)
Traverse a DOM document and call SAX functions as if an XML @@ -111,11 +116,6 @@ doctype declaration will be written that includes notations declared in the document. -
  • - If namespace processing is enabled - (sax:*namespace-processing*), a namespace normalizer is used. -
  • unparse-document-to-octets returns an (unsigned-byte diff --git a/dom/unparse.lisp b/dom/unparse.lisp index ceadbd1..120835f 100644 --- a/dom/unparse.lisp +++ b/dom/unparse.lisp @@ -1,8 +1,6 @@ (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)) @@ -15,8 +13,7 @@ doc canonical)) -(defun unparse-document (doc character-stream &rest initargs &key canonical) - (%unparse-document - (apply #'make-character-stream-sink character-stream initargs) - doc - canonical)) +(defun unparse-document (doc stream &rest initargs &key canonical) + (%unparse-document (apply #'make-character-stream-sink stream initargs) + doc + canonical))