diff --git a/DOMTEST b/DOMTEST index ce6454c..d04b87b 100644 --- a/DOMTEST +++ b/DOMTEST @@ -602,23 +602,8 @@ implementationAttribute signed not supported, skipping test 572/808 documentimportnode04.xml 573/808 documentimportnode05.xml 574/808 documentimportnode06.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (# - # NIL). 575/808 documentimportnode07.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (# - # T). 576/808 documentimportnode08.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (# - # T). 577/808 documentimportnode09.xml 578/808 documentimportnode10.xml 579/808 documentimportnode11.xml @@ -756,17 +741,7 @@ not implemented 690/808 importNode14.xml 691/808 importNode15.xml 692/808 importNode16.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (# - # NIL). 693/808 importNode17.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (# - # NIL). 694/808 internalSubset01.xml TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 695/808 isSupported01.xml @@ -913,4 +888,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -32/763 tests failed; 45 tests were skipped \ No newline at end of file +27/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 b0568b2..84b2a7c 100644 --- a/dom/dom-impl.lisp +++ b/dom/dom-impl.lisp @@ -1248,6 +1248,10 @@ (dom:append-child result (dom:import-node document child t)))) result)) +(defmethod dom:import-node ((document document) (node t) deep) + (declare (ignore deep)) + (dom-error :NOT_SUPPORTED_ERR "not implemented")) + (defmethod dom:import-node ((document document) (node attribute) deep) (declare (ignore deep)) (import-node-internal 'attribute