[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv29196

Modified Files:
	unparse.lisp 
Log Message:
fixed canonical output of processing instructions


--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/07/22 19:44:01	1.19
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/08/05 11:16:15	1.20
@@ -423,9 +423,12 @@
   (unless (rod-equal target '#.(string-rod "xml"))
     (%write-rod '#.(string-rod "<?") sink)
     (%write-rod target sink)
-    (unless (zerop (length data))
-      (%write-rune #/space sink)
-      (%write-rod data sink))
+    (cond
+      ((plusp (length data))
+       (%write-rune #/space sink)
+       (%write-rod data sink))
+      ((canonical sink)
+       (%write-rune #/space sink)))
     (%write-rod '#.(string-rod "?>") sink)))
 
 (defmethod sax:start-cdata ((sink sink))