Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv5144/dom
Modified Files: dom-builder.lisp Log Message: 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
Date: Sun Dec 11 19:36:14 2005 Author: dlichteblau
Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.7 cxml/dom/dom-builder.lisp:1.8 --- cxml/dom/dom-builder.lisp:1.7 Mon Dec 5 00:20:25 2005 +++ cxml/dom/dom-builder.lisp Sun Dec 11 19:36:14 2005 @@ -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)