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

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/015.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Bad QName syntax: colon at start
-]

Date: Sat Dec  3 22:31:31 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.47 cxml/xml/xml-parse.lisp:1.48
--- cxml/xml/xml-parse.lisp:1.47	Sat Dec  3 22:26:54 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:31:31 2005
@@ -3326,6 +3326,8 @@
     (if pos
 	(let ((prefix (subseq qname 0 pos))
 	      (local-name (subseq qname (1+ pos))))
+	  (when (zerop pos)
+	    (wf-error nil "empty namespace prefix"))
 	  (if (nc-name-p local-name)
 	      (values prefix local-name)
 	      (wf-error nil "~S is not a valid NcName."