(attribute-class
:accessor attribute-class
:initarg :attribute-class
- :initform 'standard-attribute)
+ :initform 'standard-attribute)
(keyword
:layered-accessor attribute-keyword
:initarg :keyword
(with-function-access
(slot-value-using-class class attribute property))
(funcall fn layer (attribute-description attribute)))
- (funcall fn layer (attribute-description attribute))))))
+ (handler-case (funcall fn layer (attribute-description attribute))
+ (error ()
+ (warn "Error calling ~A" fn)))))))
(defmacro with-attributes (names description &body body)
`(let ,(loop for name in names collect
(list name `(find-attribute ,description ',name)))
- ,@body))q
+ ,@body))