[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

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'"))