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