fixed CDATA serialization, thanks to Donavon Keithley

This commit is contained in:
dlichteblau
2006-05-05 09:05:22 +00:00
parent 4368c972a8
commit 13675fab67
2 changed files with 2 additions and 1 deletions

View File

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

View File

@ -545,6 +545,7 @@
value) value)
(defun cdata (data) (defun cdata (data)
(maybe-emit-start-tag)
(sax:start-cdata *sink*) (sax:start-cdata *sink*)
(sax:characters *sink* (rod data)) (sax:characters *sink* (rod data))
(sax:end-cdata *sink*) (sax:end-cdata *sink*)