(define-layered-class effective-attribute-definition-class (special-layered-effective-slot-definition)
((direct-attributes :accessor attribute-direct-attributes)
(attribute-object :accessor attribute-object
(define-layered-class effective-attribute-definition-class (special-layered-effective-slot-definition)
((direct-attributes :accessor attribute-direct-attributes)
(attribute-object :accessor attribute-object
- (attribute-class :accessor attribute-class :initarg :attribute-class :initform 'standard-attribute)
+ (attribute-class :accessor attribute-class
+ :initarg :attribute-class
+ :initform 'standard-attribute)