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

fixed DTD serialization bugs, thanks to _3b for the report

Browse Source
This commit is contained in:
dlichteblau
2007-11-24 00:04:16 +00:00
parent 77db951f12
commit 37b4873ee4
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
xml/unparse.lisp
View File

@ -286,6 +286,8 @@
(%write-rod "EMPTY" sink))
((eq m :PCDATA)
(%write-rod "#PCDATA" sink))
((eq m :ANY)
(%write-rod "ANY" sink))
((atom m)
(unparse-string m sink))
(t
@ -306,13 +308,13 @@
(%write-rune #/\) sink))
(*
(walk (second m))
(%write-rod #/* sink))
(%write-rune #/* sink))
(+
(walk (second m))
(%write-rod #/+ sink))
(%write-rune #/+ sink))
(?
(walk (second m))
(%write-rod #/? sink)))))))
(%write-rune #/? sink)))))))
(walk model))
(%write-rune #/> sink)
(%write-rune #/U+000A sink))