(defmethod shared-initialize :around ((attribute standard-attribute) slots &rest initargs)
(declare (ignore initargs))
(setf (attribute-function attribute)
(defmethod shared-initialize :around ((attribute standard-attribute) slots &rest initargs)
(declare (ignore initargs))
(setf (attribute-function attribute)