(defmethod find-attribute-class-for-type ((type (eql ',type)))
',name))))
-
-
(define-layered-class
display-attribute (attribute)
()
(when (slot-boundp instance (attribute.name attribute))
(slot-value instance (attribute.name attribute)))))))
-(define-layered-function (setf attribute-value) (value instance attribute))
+(define-layered-function (setf attribute-value) (value instance attribute))
(define-layered-method
(setf attribute-value) (value instance (attribute standard-attribute))
-
(with-slots (setter slot-name) attribute
(cond ((and (slot-boundp attribute 'setter) setter)
(error "Cannot set ~A in ~A" attribute instance)))))
+
;;;; ** Default Attributes
type)
(plist-union initargs (when a
(description.properties a))))))
- (warn "attribute? ~A ~A " (and a (description.type (find-attribute object type)) ) (description.properties a))
(setf (slot-value i 'instance) object)
(initialize-slots i)
(setf (slot-value i 'initializedp) t)