Структурная разница между common lisp и emacs lisp

) Приведенный ниже код работает в common lisp, но в emacs lisp жалуется "(ошибка "Неизвестный тип класса orc в параметрах метода")". Почему и как можно Я исправил это в emacs lisp? Спасибо.

(defun randval (n)
  (1+ (random (max 1 n))))

(defstruct monster (health (randval 10)))

(defstruct (orc (:include monster)) (club-level (randval 8)))

(defmethod monster-show ((m orc))
  (princ "A wicked orc with a level ")
  (princ (orc-club-level m))
  (princ " club"))