Инициализация слотов на основе других значений слотов в определениях классов Common Lisp Object System

В моем определении класса, Я хочу инициализировать один слот на основе значения другого слота. Вот что я хотел бы сделать:

(defclass my-class ()
  ((slot-1 :accessor my-class-slot-1 :initarg slot-1)
   (slot-2 :accessor my-class-slot-2 :initform (list slot-1))))

Однако это не компилируется:

1 compiler notes:

Unknown location:
  warning: 
    This variable is undefined:
      SLOT-1

  warning: 
    undefined variable: SLOT-1
    ==>
      (CONS UC-2::SLOT-1 NIL)


Compilation failed.

Есть ли способ сделать это?