-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
-]
This commit is contained in:
dlichteblau
2005-12-03 21:26:53 +00:00
parent 141fe3524b
commit 59fec24c15
2 changed files with 5 additions and 12 deletions

View File

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