[cxml-cvs] CVS update: cxml/dom/dom-builder.lisp

[David Lichteblau]

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)