Lisp make-instanse и initialize-instance

(defclass parent ()
  ((slot :initarg slot)))

(defclass child (parent)
  ())

(make-instance 'child 'slot 1)

Не совсем оно. Эти классы не состоят в родственных отношениях.


(defclass class ()
  ((slot_number :initarg slot_number)
   (slot :initarg slot)))

(defclass subclass ()
  (subslot))

(make-instance 'class
	       :slot (make-instance 'subclass :subslot 1)
               :slot_number 2)

А хотелось бы записать создание примерно так:

(make-instance 'class
	        :subslot 1
               :slot_number 2)

Получить структуру аналогичную, описанной выше. 

Make-instance вызывает initialize-instance со всеми
переданными аргументами.
Поэтому можно к initialize-instance добавить свой кейворд:
(defmethod initialize-instance :after ((object class) &key subslot &allow-other-keys)
  (setf (slot-value object 'slot)
        (make-instance 'subclass :subslot subslot)))

(make-instance 'class :subslot 1 :slot-number 2)

Благодарю