From 80558a9122719e61161668f12ad37e9ad9b74352 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 11 Dec 2005 18:36:13 +0000 Subject: [PATCH] 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 800/808 setNamedItemNS01.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR --- DOMTEST | 7 +------ dom/dom-builder.lisp | 15 +++++++++------ 2 files changed, 10 insertions(+), 12 deletions(-) diff --git a/DOMTEST b/DOMTEST index 7b825af..284edad 100644 --- a/DOMTEST +++ b/DOMTEST @@ -651,7 +651,6 @@ implementationAttribute expandEntityReferences not supported, skipping test 619/808 elementsetattributenodens01.xml 620/808 elementsetattributenodens02.xml 621/808 elementsetattributenodens03.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml 623/808 elementsetattributenodens05.xml 624/808 elementsetattributenodens06.xml @@ -776,11 +775,8 @@ TEST FAILED: There is no applicable method for the generic function 729/808 namednodemapsetnameditemns04.xml 730/808 namednodemapsetnameditemns05.xml 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 734/808 namednodemapsetnameditemns09.xml 735/808 namednodemapsetnameditemns10.xml 736/808 namednodemapsetnameditemns11.xml @@ -868,10 +864,9 @@ implementationAttribute expandEntityReferences not supported, skipping test 798/808 setAttributeNodeNS04.xml 799/808 setAttributeNodeNS05.xml 800/808 setNamedItemNS01.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 801/808 setNamedItemNS02.xml 802/808 setNamedItemNS03.xml 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -17/763 tests failed; 45 tests were skipped \ No newline at end of file +12/763 tests failed; 45 tests were skipped \ No newline at end of file diff --git a/dom/dom-builder.lisp b/dom/dom-builder.lisp index 1d6f372..0d69efa 100644 --- a/dom/dom-builder.lisp +++ b/dom/dom-builder.lisp @@ -104,12 +104,15 @@ (push anode anodes))) (setf (slot-value element 'dom-impl::parent) parent) (fast-push element (slot-value parent 'dom-impl::children)) - (setf (slot-value element 'dom-impl::attributes) - (make-instance 'attribute-node-map - :items anodes - :element-type :attribute - :element element - :owner document)) + (let ((map + (make-instance 'attribute-node-map + :items anodes + :element-type :attribute + :element element + :owner document))) + (setf (slot-value element 'dom-impl::attributes) map) + (dolist (anode anodes) + (setf (slot-value anode 'map) map))) (push element element-stack)))) (defmethod sax:end-element ((handler dom-builder) namespace-uri local-name qname)