From afc0d9481b87c937f8e4a235172d8b7983c0fdac Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 27 Nov 2005 19:31:18 +0000 Subject: [PATCH] *patsch* -- noch ein eof erschlagen --- XMLCONF | 16 +++------------- xml/xml-parse.lisp | 4 +++- 2 files changed, 6 insertions(+), 14 deletions(-) diff --git a/XMLCONF b/XMLCONF index 03ff040..266c790 100644 --- a/XMLCONF +++ b/XMLCONF @@ -1025,12 +1025,7 @@ ibm/not-wf/P23/ibm23n03.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P23/ibm23n04.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P23/ibm23n05.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P23/ibm23n06.xml [not validating:] not-wf [validating:] not-wf -ibm/not-wf/P24/ibm24n01.xml [not validating:] FAILED: - Argument X is not a REAL: :EOF -[ - Tests VersionInfo with a required field missing. The VersionNum is - missing in the VersionInfo in the XMLDecl. - ] +ibm/not-wf/P24/ibm24n01.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P24/ibm24n02.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P24/ibm24n03.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P24/ibm24n04.xml [not validating:] not-wf [validating:] not-wf @@ -1313,12 +1308,7 @@ ibm/not-wf/P79/ibm79n01.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P79/ibm79n02.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P80/ibm80n01.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P80/ibm80n02.xml [not validating:] not-wf [validating:] not-wf -ibm/not-wf/P80/ibm80n03.xml [not validating:] FAILED: - Argument X is not a REAL: :EOF -[ - Tests EncodingDecl with a required field missing. The double quoted - EncName are missing in the EncodingDecl in the XMLDecl. - ] +ibm/not-wf/P80/ibm80n03.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P80/ibm80n04.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P80/ibm80n05.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P80/ibm80n06.xml [not validating:] not-wf [validating:] not-wf @@ -1804,4 +1794,4 @@ ibm/valid/P86/ibm86v01.xml [not validating:] input [validating:] input ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input -3/1786 tests failed; 376 tests were skipped \ No newline at end of file +1/1786 tests failed; 376 tests were skipped \ No newline at end of file diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index eb1e997..f3140ee 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -3293,9 +3293,11 @@ (defun read-att-value-2 (input) (let ((delim (read-rune input))) + (when (eql delim :eof) + (eox input)) (unless (member delim '(#/\" #/\') :test #'eql) (wf-error "Bad attribute value delimiter ~S, must be either #\\\" or #\\\'." - (rune-char delim delim))) + (rune-char delim))) (with-rune-collector-4 (collect) (loop (let ((c (read-rune input)))