From 31f4f22ede1a1a7a257ae2564128969fb688549c Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sat, 10 Dec 2005 20:06:02 +0000 Subject: [PATCH] keine version == egal --- DOMTEST | 7 +------ dom/dom-impl.lisp | 3 ++- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/DOMTEST b/DOMTEST index d04b87b..b4b5984 100644 --- a/DOMTEST +++ b/DOMTEST @@ -750,15 +750,12 @@ TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 698/808 isSupported05.xml 699/808 isSupported06.xml 700/808 isSupported07.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 701/808 isSupported09.xml 702/808 isSupported10.xml 703/808 isSupported11.xml 704/808 isSupported12.xml 705/808 isSupported13.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 706/808 isSupported14.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 707/808 localName01.xml 708/808 localName02.xml 709/808 localName03.xml @@ -814,9 +811,7 @@ TEST FAILED: There is no applicable method for the generic function 748/808 nodehasattributes03.xml 749/808 nodehasattributes04.xml 750/808 nodeissupported01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 751/808 nodeissupported02.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 752/808 nodeissupported03.xml 753/808 nodeissupported04.xml 754/808 nodeissupported05.xml @@ -888,4 +883,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -27/763 tests failed; 45 tests were skipped \ No newline at end of file +22/763 tests failed; 45 tests were skipped \ No newline at end of file diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp index 84b2a7c..691ee23 100644 --- 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)