>>818
stackoverflowで質問したら？
ここは思想とか自転車置き場の議論ばかりなので処理系に具体的な質問に返事はないよ．

色々良くないとか書かれても，察するのが面倒なので具体的に書いて欲しい．
副作用だけで良いなら:before，なんやかやするなら:aroundで良いんじゃね？
(defmethod make-instance :before ((class 特定のクラス) &rest initargs))
何が駄目なの？ subtypep 使ってる意味が分からんけど．