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."