From 5dc3929adaea0cec54be0754dfc1b225a24f312f Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 27 Nov 2005 00:46:29 +0000 Subject: [PATCH] Hurra! -1/1786 tests failed; 376 tests were skipped +0/1786 tests failed; 376 tests were skipped -ibm/not-wf/P81/ibm81n04.xml [not-wf?] FAILED: - well-formedness violation not detected -[ - Tests EncName with illegal characters. The "8-" is used as the - initial characters in the EncName in the EncodingDecl in the XMLDecl. - ] --- XMLCONF | 9 ++------- xml/xml-parse.lisp | 3 +-- 2 files changed, 3 insertions(+), 9 deletions(-) diff --git a/XMLCONF b/XMLCONF index 9864bdf..6d68427 100644 --- a/XMLCONF +++ b/XMLCONF @@ -1309,12 +1309,7 @@ ibm/not-wf/P80/ibm80n06.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n01.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n02.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n03.xml [not-wf?] not-wf -ibm/not-wf/P81/ibm81n04.xml [not-wf?] FAILED: - well-formedness violation not detected -[ - Tests EncName with illegal characters. The "8-" is used as the - initial characters in the EncName in the EncodingDecl in the XMLDecl. - ] +ibm/not-wf/P81/ibm81n04.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n05.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n06.xml [not-wf?] not-wf ibm/not-wf/P81/ibm81n07.xml [not-wf?] not-wf @@ -1793,4 +1788,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 -1/1786 tests failed; 376 tests were skipped \ No newline at end of file +0/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 415863e..0ffcbf3 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -2774,8 +2774,7 @@ (cdar atts)) ((lambda (x) (or (rune<= #/a x #/z) - (rune<= #/A x #/Z) - (rune<= #/0 x #/9))) + (rune<= #/A x #/Z))) (aref (cdar atts) 0))) (wf-error "Bad XML encoding name: ~S." (rod-string (cdar atts)))) (setf (xml-header-encoding res) (rod-string (cdar atts)))