(defmethod initialize-slot-definition-attribute
(class (slotd effective-attribute-slot-definition-class)
name direct-slot-definitions)
(defmethod initialize-slot-definition-attribute
(class (slotd effective-attribute-slot-definition-class)
name direct-slot-definitions)
(description-class-attribute-class class)))
(attribute (apply #'make-instance attribute-class :name name 'description-class class (gethash t tbl))))
(maphash (lambda (layer properties)
(description-class-attribute-class class)))
(attribute (apply #'make-instance attribute-class :name name 'description-class class (gethash t tbl))))
(maphash (lambda (layer properties)