OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

731/808 namednodemapsetnameditemns06.xml

Browse Source 
-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
This commit is contained in:
dlichteblau
2005-12-11 18:36:13 +00:00
parent 3df72f6f10
commit 80558a9122
2 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
dom/dom-builder.lisp
View File

@ -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)