Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv28009/xml Modified Files: xml-parse.lisp Log Message: 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. - ] Date: Sun Nov 27 01:46:33 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.19 cxml/xml/xml-parse.lisp:1.20 --- cxml/xml/xml-parse.lisp:1.19 Sun Nov 27 01:44:46 2005 +++ cxml/xml/xml-parse.lisp Sun Nov 27 01:46:33 2005 @@ -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)))