OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed canonical output of processing instructions

Browse Source
This commit is contained in:
dlichteblau
2007-08-05 11:16:15 +00:00
parent 3a37db3e9d
commit 0c4635bb07
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
xml/unparse.lisp
View File

@ -423,9 +423,12 @@
(unless (rod-equal target '#.(string-rod "xml")) (unless (rod-equal target '#.(string-rod "xml"))
(%write-rod '#.(string-rod "<?") sink) (%write-rod '#.(string-rod "<?") sink)
(%write-rod target sink) (%write-rod target sink)
(unless (zerop (length data)) (cond
(%write-rune #/space sink) ((plusp (length data))
(%write-rod data sink)) (%write-rune #/space sink)
(%write-rod data sink))
((canonical sink)
(%write-rune #/space sink)))
(%write-rod '#.(string-rod "?>") sink))) (%write-rod '#.(string-rod "?>") sink)))
(defmethod sax:start-cdata ((sink sink)) (defmethod sax:start-cdata ((sink sink))