diff --git a/DOMTEST b/DOMTEST index 5abd0b4..2c122cb 100644 --- a/DOMTEST +++ b/DOMTEST @@ -718,8 +718,6 @@ implementationAttribute expandEntityReferences not supported, skipping test 685/808 importNode09.xml 686/808 importNode10.xml 687/808 importNode11.xml -TEST FAILED: NOT_SUPPORTED_ERR (9): -not implemented 688/808 importNode12.xml 689/808 importNode13.xml 690/808 importNode14.xml @@ -841,4 +839,4 @@ implementationAttribute expandEntityReferences not supported, skipping test 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -2/763 tests failed; 45 tests were skipped \ No newline at end of file +1/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 90e9cd7..ed28987 100644 --- a/dom/dom-impl.lisp +++ b/dom/dom-impl.lisp @@ -1344,12 +1344,8 @@ (defmethod dom:import-node ((document document) (node entity-reference) deep) (declare (ignore deep)) - #+(or) (import-node-internal 'entity-reference document node nil - :name (dom:name node)) - ;; XXX If the document being imported into provides a definition for - ;; this entity name, its value is assigned. - (dom-error :NOT_SUPPORTED_ERR "not implemented")) + :name (dom:name node))) (defmethod dom:import-node ((document document) (node notation) deep) (import-node-internal 'notation document node deep