-(define-layered-function (setf attribute-value) (v o a)
- (:method (value object attribute)
- (let ((setter (attribute-setter attribute)))
- (if setter
- (funcall setter value object)
- (error "No setter in ~A for ~A" attribute object)))))
+(define-layered-method (setf attribute-value-using-object)
+ :in-layer #.(defining-description 'editable)(value object attribute)
+
+ (let ((setter (attribute-setter attribute)))
+ (if setter
+ (funcall setter value object)
+ (error "No setter in ~A for ~A" attribute object))))