[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-serv32546/dom

Modified Files:
	dom-impl.lisp 
Log Message:
keine version == egal

Date: Sat Dec 10 21:06:05 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.18 cxml/dom/dom-impl.lisp:1.19
--- cxml/dom/dom-impl.lisp:1.18	Mon Dec  5 00:26:47 2005
+++ cxml/dom/dom-impl.lisp	Sat Dec 10 21:06:05 2005
@@ -214,7 +214,8 @@
 (defmethod dom:has-feature ((factory (eql 'implementation)) feature version)
   (and (or (string-equal (rod-string feature) "xml")
 	   (string-equal (rod-string feature) "core"))
-       (or (string-equal (rod-string version) "1.0")
+       (or (zerop (length version))
+	   (string-equal (rod-string version) "1.0")
 	   (string-equal (rod-string version) "2.0"))))
 
 (defun %create-document-type (name publicid systemid)