Attributes (2)

Asking an element for its attribute nodes:

(defun list-attributes (element) ...)

(defun add-attribute (element attribute) ...)
(defun remove-attribute (element attribute) ...)

(defun find-attribute-named (element name &optional (uri "")) ...)
(defun find-attribute-if (test element) ...)