From bdfd6d30e1f24a5522416c1b865851bec955cdca Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 27 Nov 2005 19:37:41 +0000 Subject: [PATCH] '<'-fehlermeldung angepasst 0/1786 tests failed; 376 tests were skipped --- XMLCONF | 10 ++-------- xml/xml-parse.lisp | 6 +----- 2 files changed, 3 insertions(+), 13 deletions(-) diff --git a/XMLCONF b/XMLCONF index 266c790..86e32d4 100644 --- a/XMLCONF +++ b/XMLCONF @@ -1194,13 +1194,7 @@ ibm/not-wf/P59/ibm59n06.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n01.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n02.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n03.xml [not validating:] not-wf [validating:] not-wf -ibm/not-wf/P60/ibm60n04.xml [not validating:] FAILED: - For no apparent reason #/< is forbidden in attribute values. You lost -- next time choose SEXPR syntax. -[ - Tests DefaultDecl with a required field missing. There is no - attribute value specified after the key word "#FIXED" in the DefaultDecl in - the AttDef in the AttlistDecl in the DTD. - ] +ibm/not-wf/P60/ibm60n04.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n05.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n06.xml [not validating:] not-wf [validating:] not-wf ibm/not-wf/P60/ibm60n07.xml [not validating:] not-wf [validating:] not-wf @@ -1794,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 f3140ee..c382033 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -1489,11 +1489,7 @@ (t (wf-error "No PE here."))))) ((and (eq mode :ATT) (rune= c #/<)) - ;; xxx fix error message - (cerror "Eat them in spite of this." - "For no apparent reason #\/< is forbidden in attribute values. ~ - You lost -- next time choose SEXPR syntax.") - (collect c)) + (wf-error "unexpected #\/<")) ((and canon-space-p (space-rune-p c)) (collect #/space)) ((not (data-rune-p c))