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

namespace-normalizer lieber doch nicht per default

Browse Source
This commit is contained in:
dlichteblau
2005-12-27 20:17:33 +00:00
parent 36ba984844
commit a6a31873a8
2 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
dom/unparse.lisp
View File

@ -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))