'<'-fehlermeldung angepasst

0/1786 tests failed; 376 tests were skipped
2005-11-27 19:37:41 +00:00
parent afc0d9481b
commit bdfd6d30e1
2 changed files with 3 additions and 13 deletions
--- 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))