特定のクラスとそのサブクラスについて、make-instanceの処理の前になんかしたい場合ってどんな方法がありますか？

(defmethod :around make-instance ((class 'standard-class) &rest initargs)
(if (subtypep class particular-class)
...
(call-next-method)))

こんなんしか思いつかないんですが、いろいろよくない感じがします