[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-serv14037/xml

Modified Files:
	xml-parse.lisp 
Log Message:
'<'-fehlermeldung angepasst
0/1786 tests failed; 376 tests were skipped

Date: Sun Nov 27 20:37:42 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.39 cxml/xml/xml-parse.lisp:1.40
--- cxml/xml/xml-parse.lisp:1.39	Sun Nov 27 20:31:19 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 20:37:42 2005
@@ -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))