(defun find-attribute (description attribute-name &optional (errorp t))
(or (find attribute-name (description-attributes description)
:key #'attribute-name)
(defun find-attribute (description attribute-name &optional (errorp t))
(or (find attribute-name (description-attributes description)
:key #'attribute-name)