[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv27086/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-ibm/not-wf/P14/ibm14n01.xml [not-wf?] FAILED:
-  well-formedness violation not detected
-[
-    Tests CharData. The content of the element "student" contains the 
-    character "[[>".
-  ]

Date: Sun Nov 27 01:36:48 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.16 cxml/xml/xml-parse.lisp:1.17
--- cxml/xml/xml-parse.lisp:1.16	Sun Nov 27 01:33:55 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 01:36:47 2005
@@ -2671,6 +2671,8 @@
        (p/content input))
       ((:CDATA)
        (consume-token input)
+       (when (search #"]]>" sem)
+	 (wf-error "']]>' not allowed in CharData"))
        (validate-characters *ctx* sem)
        (sax:characters (handler *ctx*) sem)
        (p/content input))