Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv12710/xml Modified Files: xml-parse.lisp Log Message: eof in cdata section pruefen Date: Sun Nov 27 13:13:52 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.22 cxml/xml/xml-parse.lisp:1.23 --- cxml/xml/xml-parse.lisp:1.22 Sun Nov 27 13:06:29 2005 +++ cxml/xml/xml-parse.lisp Sun Nov 27 13:13:52 2005 @@ -1601,6 +1601,8 @@ (tagbody state-1 (setf d (read-rune input)) + (when (eq d :eof) + (eox input)) (unless (data-rune-p d) (wf-error "Illegal char: ~S." d)) (when (rune= d #/\]) (go state-2)) @@ -1608,6 +1610,8 @@ (go state-1) state-2 ;; #/] seen (setf d (read-rune input)) + (when (eq d :eof) + (eox input)) (unless (data-rune-p d) (wf-error "Illegal char: ~S." d)) (when (rune= d #/\]) (go state-3)) @@ -1616,6 +1620,8 @@ (go state-1) state-3 ;; #/\] #/\] seen (setf d (read-rune input)) + (when (eq d :eof) + (eox input)) (unless (data-rune-p d) (wf-error "Illegal char: ~S." d)) (when (rune= d #/>)