(defmacro with-attributes (names description &body body)
`(let ,(loop for name in names collect
(list name `(find-attribute ,description ',name)))
(defmacro with-attributes (names description &body body)
`(let ,(loop for name in names collect
(list name `(find-attribute ,description ',name)))