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

Modified Files: xml-parse.lisp Log Message: eof in kommentaren

Date: Sun Nov 27 13:26:09 2005 Author: dlichteblau

Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.24 cxml/xml/xml-parse.lisp:1.25 --- cxml/xml/xml-parse.lisp:1.24 Sun Nov 27 13:24:40 2005 +++ cxml/xml/xml-parse.lisp Sun Nov 27 13:26:09 2005 @@ -1573,6 +1573,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)) @@ -1580,6 +1582,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)) @@ -1588,6 +1592,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 #/>) (return))