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