-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.
-  ]
This commit is contained in:
dlichteblau
2005-11-27 00:46:29 +00:00
parent 4db7798051
commit 5dc3929ada
2 changed files with 3 additions and 9 deletions

View File

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