From 0c4635bb07784cac3fe495568d3dbd3e449862f2 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 5 Aug 2007 11:16:15 +0000
Subject: [PATCH] fixed canonical output of processing instructions

---
 xml/unparse.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/xml/unparse.lisp b/xml/unparse.lisp
index 9a39c4f..23369d4 100644
--- 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))