find-class

(find-class symbol &optional (errorp t) environment)

symbol が名指すクラスメタオブジェクト — class-name や closer-mop のリーダー(class-slots、slot-definition-name など)がスロットを読み取れる standard-class インスタンス — を返します。結果はメモ化されるため、同じクラスへの 2 回の呼び出しは同一(eq)のオブジェクトを返し、そのクラスのインスタンスに対して class-of が返すオブジェクトとも同一です。symbol という名前のクラスが存在しない場合、errorp が nil でなければエラーをシグナルし、nil なら nil を返します。environment は無視されます。既知のクラスはプログラム中のすべての defclass / define-condition / defstruct、組み込みコンディション階層、そして組み込みクラス(integer、string、...、t)です。コンパイルバックエンドではクラス集合はコンパイル時に固定され、実行時データから構築されるクラスは存在しません。

(setf (find-class alias) class) は class を 2 つ目の名前で登録します。これ以降、find-class、make-instance、typep、subtypep、handler-case の節はいずれも別名を同一のクラスへ解決します(メタオブジェクトは eq)。サポートするのはこの別名付けの形だけで、値は既に定義済みのクラスを名指すリテラルな (find-class 'target) である必要があり、かつトップレベルでのみ使えます。コンパイルバックエンドはクラステーブルをコンパイル時に構築するためです。