Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv24551/xml

Modified Files: xml-parse.lisp Log Message: -eduni/namespaces/1.0/014.xml [not validating:] FAILED: - invalid array index 0 for #() (should be nonnegative and <0) -[ -Bad QName syntax: colon at end -]

Date: Sat Dec 3 22:26:54 2005 Author: dlichteblau

Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.46 cxml/xml/xml-parse.lisp:1.47 --- cxml/xml/xml-parse.lisp:1.46 Sat Dec 3 22:24:21 2005 +++ cxml/xml/xml-parse.lisp Sat Dec 3 22:26:54 2005 @@ -3316,7 +3316,8 @@ ;; have to check is that the first rune is a name-start-rune and that ;; there is not colon in it. (defun nc-name-p (name) - (and (name-start-rune-p (rune name 0)) + (and (plusp (length name)) + (name-start-rune-p (rune name 0)) (notany #'(lambda (rune) (rune= #/: rune)) name)))

(defun split-qname (qname)