keine version == egal

2005-12-10 20:06:02 +00:00
parent e162730695
commit 31f4f22ede
2 changed files with 3 additions and 7 deletions
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@ -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)