defclass-star 便利

defclass は defstruct にくらべると、:initarg や :initform を明示的に指定しなければならないあたりが面倒。
それを解決してくれのが defclass-star.

;; こんなふうに書くと
(defclass* cat ()
  ((eye-color "blue")
   (body-color "シールポイント")
   (lovely t :type boolean)))

;; こんなふうに展開される。
(DEFCLASS CAT NIL
  ((EYE-COLOR :INITFORM "blue" :ACCESSOR EYE-COLOR-OF :INITARG
              :EYE-COLOR)
   (BODY-COLOR :INITFORM "シールポイント" :ACCESSOR BODY-COLOR-OF :INITARG
               :BODY-COLOR)
   (LOVELY :INITFORM T :ACCESSOR LOVELY-P :INITARG :LOVELY :TYPE
           BOOLEAN)))

type boolean とするとちゃんと

accessor が xxx-p となってくれる。

この人は :accessor を xxx-of にするんだね。
このへんの命名規則は歴史的にもいろいろとあるのかな？