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