(defgeneric reader-method-class (class direct-slot &rest initargs))
(defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))
(defgeneric reader-method-class (class direct-slot &rest initargs))
(defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))