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)