fixed CDATA serialization, thanks to Donavon Keithley

README.html

@@ -109,7 +109,7 @@
     <h2>Recent Changes</h2>
     <p class="nomargin"><tt>rel-2006-xx-yy</tt></p>
     <ul class="nomargin">
-      <li>Serialization fixes (thanks to Nathan Bird).</li>
+      <li>Serialization fixes (thanks to Nathan Bird, Donavon Keithley).</li>
     </ul>
     <p class="nomargin"><tt>rel-2006-01-05</tt></p>
     <ul class="nomargin">

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