[bknr-cvs] r1973 - branches/xml-class-rework/thirdparty/cxml/xml

[bknr at bknr.net]

Author: hhubner
Date: 2006-07-22 09:04:02 -0400 (Sat, 22 Jul 2006)
New Revision: 1973

Modified:
   branches/xml-class-rework/thirdparty/cxml/xml/unparse.lisp
Log:
maybe emit start tag when generating CDATA


Modified: branches/xml-class-rework/thirdparty/cxml/xml/unparse.lisp
===================================================================
--- branches/xml-class-rework/thirdparty/cxml/xml/unparse.lisp	2006-07-22 13:03:32 UTC (rev 1972)
+++ branches/xml-class-rework/thirdparty/cxml/xml/unparse.lisp	2006-07-22 13:04:02 UTC (rev 1973)
@@ -482,6 +482,7 @@
   value)
 
 (defun cdata (data)
+  (maybe-emit-start-tag)
   (sax:start-cdata *sink*)
   (sax:characters *sink* (rod data))
   (sax:end-cdata *sink*)