Commit 69b4a6b4 authored by david's avatar david

Revision: cxml--devel--1.0--patch-106

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Tue Feb 10 13:35:46 CET 2004
Standard-date: 2004-02-10 12:35:46 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-106
Summary: NOT_FOUND_ERROR in removeAttributeNode sucht das Objekt, nicht seinen Namen

NOT_FOUND_ERROR in removeAttributeNode sucht das Objekt, nicht seinen Namen
parent aab6a7e1
......@@ -614,11 +614,11 @@
(defmethod dom:remove-attribute-node ((element element) (old-attr attribute))
(assert-writeable element)
(let ((res (dom:remove-named-item (dom:attributes element)
(dom:name old-attr))))
(if res
res
(dom-error :NOT_FOUND_ERR "Attribute not found."))))
(with-slots (items) (dom:attributes element)
(unless (find old-attr items)
(dom-error :NOT_FOUND_ERR "Attribute not found."))
(setf items (remove old-attr items))
old-attr))
(defmethod dom:get-elements-by-tag-name ((element element) name)
(assert-writeable element)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment