(defclass CA()())
(setq obj(make-instance 'CA))
(defclass CB(obj)())

こんなふうにインスタンスから型を取り出して継承とかってできますか？