fixed CDATA serialization, thanks to Donavon Keithley

2006-05-05 09:05:22 +00:00
parent 4368c972a8
commit 13675fab67
2 changed files with 2 additions and 1 deletions
--- a/xml/unparse.lisp
+++ b/xml/unparse.lisp
@ -545,6 +545,7 @@
  value)

 (defun cdata (data)
+  (maybe-emit-start-tag)
  (sax:start-cdata *sink*)
  (sax:characters *sink* (rod data))
  (sax:end-cdata *sink*)