OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eof in kommentaren

Browse Source
This commit is contained in:
dlichteblau
2005-11-27 12:26:08 +00:00
parent dd81cb75f1
commit 5378f023e3
2 changed files with 14 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xml/xml-parse.lisp
View File

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