[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

4 Dec 2005

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv8257/dom
Modified Files:
    dom-impl.lisp 
Log Message:
praefix ohne uri ist verboten
Date: Sun Dec  4 23:22:30 2005
Author: dlichteblau
Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.12 cxml/dom/dom-impl.lisp:1.13

--- cxml/dom/dom-impl.lisp:1.12	Sun Dec  4 23:18:34 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 23:22:30 2005
@@ -284,6 +284,8 @@
    (cxml:well-formedness-violation (c)
      (dom-error :NAMESPACE_ERR "~A" c)))
     (when prefix
+      (unless uri
+	(dom-error :NAMESPACE_ERR "prefix specified but no namespace URI"))
       (when (and (rod= prefix #"xml")
    	 (not (rod= uri #"http://www.w3.org/XML/1998/namespace")))
    (dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'"))

    