Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv24489/xml Modified Files: xml-parse.lisp Log Message: -eduni/namespaces/1.0/013.xml [not validating:] FAILED: - #(98 58 97 116 116 114) fell through ETYPECASE expression. - Wanted one of (STRING SIMPLE-STRING). -[ -Bad QName syntax: multiple colons -] Date: Sat Dec 3 22:24:22 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.45 cxml/xml/xml-parse.lisp:1.46 --- cxml/xml/xml-parse.lisp:1.45 Sat Dec 3 22:02:38 2005 +++ cxml/xml/xml-parse.lisp Sat Dec 3 22:24:21 2005 @@ -3327,7 +3327,8 @@ (local-name (subseq qname (1+ pos)))) (if (nc-name-p local-name) (values prefix local-name) - (wf-error "~S is not a valid NcName." local-name))) + (wf-error nil "~S is not a valid NcName." + (rod-string local-name)))) (values () qname)))) (defun decode-qname (qname)