Commit a897b418 authored by david's avatar david

Revision: cxml--devel--1.0--patch-24

Creator: David Lichteblau <>
Date: Wed Jan 14 23:04:58 CET 2004
Standard-date: 2004-01-14 22:04:58 GMT
Modified-files: xml/dom-impl.lisp
Summary: neu: dom:remove-attribute

neu: dom:remove-attribute
parent eba336a8
......@@ -456,6 +456,9 @@
:specified-p t))
(defmethod dom:remove-attribute ((element element) name)
(dom:remove-attribute-node element (dom:get-attribute-node element name)))
(defmethod dom:remove-attribute-node ((element element) (old-attr attribute))
(let ((res (dom:remove-named-item (dom:attributes element)
(dom:name old-attr))))
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