fixed canonical output of processing instructions

2007-08-05 11:16:15 +00:00
parent 3a37db3e9d
commit 0c4635bb07
1 changed files with 6 additions and 3 deletions
--- a/xml/unparse.lisp
+++ b/xml/unparse.lisp
@ -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))