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