[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-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))