fixed CDATA serialization, thanks to Donavon Keithley
This commit is contained in:
@ -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">
|
||||||
|
|||||||
@ -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*)
|
||||||
|
|||||||
Reference in New Issue
Block a user