Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv6956/dom
Modified Files: unparse.lisp Log Message: namespace-normalizer lieber doch nicht per default
Date: Tue Dec 27 21:17:34 2005 Author: dlichteblau
Index: cxml/dom/unparse.lisp diff -u cxml/dom/unparse.lisp:1.3 cxml/dom/unparse.lisp:1.4 --- cxml/dom/unparse.lisp:1.3 Mon Dec 12 00:56:51 2005 +++ cxml/dom/unparse.lisp Tue Dec 27 21:17:34 2005 @@ -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))