Переопределить :INITFORM слота класса в подклассе

Мне нужно немного обобщить значение слота по умолчанию в подклассе.

Пример:

(defclass class-a ()
  ((slot-1 :initarg :slot-1 :initform #'identity)
   <...> other-slots<...>))

Его подкласс

(defclass class-b (class-a)
  ((slot-2 :initarg :slot-2 :initform 0)))

Но #'IDENTITY недостаточно хорош как значение по умолчанию, немного более общее

(lambda (&rest x) x)

подойдет лучше, так как ожидает несколько аргументов (я думаю, что это не противоречит принципу Лискова). Каков наилучший способ переопределить :INITFORM для CLASS-B?

1. Я могу добавить INITIALIZE-INSTANCE :AFTER для CLASS-B и посмотреть, установлено ли SLOT-1 значение #'IDENTITY, и переопределить его.
2. Что произойдет, если я снова введу SLOT-1 в CLASS-B? Я бы хотел избежать этого, так как мне пришлось бы повторять для него всю информацию о слоте.