diff --git a/DOMTEST b/DOMTEST index 8bb0229..a7c03e7 100644 --- a/DOMTEST +++ b/DOMTEST @@ -555,7 +555,6 @@ implementationAttribute signed not supported, skipping test 525/808 attrgetownerelement02.xml 526/808 attrgetownerelement03.xml 527/808 attrgetownerelement04.xml -TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #. 528/808 attrgetownerelement05.xml TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName| #(97 100 100 114 101 115 115) @@ -960,4 +959,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -63/763 tests failed; 45 tests were skipped \ No newline at end of file +62/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 ffab78c..835e77d 100644 --- a/dom/dom-impl.lisp +++ b/dom/dom-impl.lisp @@ -1238,7 +1238,11 @@ (defmethod dom:import-node ((document document) (node attribute) deep) (declare (ignore deep)) - (import-node-internal 'attribute document node t :name (dom:name node))) + (import-node-internal 'attribute + document node + t + :name (dom:name node) + :owner-element nil)) (defmethod dom:import-node ((document document) (node document-fragment) deep) (import-node-internal 'document-fragment document node deep))