[cxml-cvs] CVS update: cxml/dom/unparse.lisp

[David Lichteblau]

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