class-of

(class-of object)

任意の値のクラスメタオブジェクトを返します — find-class が返すのと同じメモ化された standard-class インスタンスであり、(eq (class-of x) (find-class 'name)) が成り立ちます。CLOS インスタンスはそのクラスを、defstruct インスタンスはその構造体型を(こちらも standard-class インスタンスとして — structure-class はありません)、それ以外の値は integer、string、cons などの名前を持つスロットなしの組み込みクラスを返し、その集合の外の値(配列など)は t になります。名前は class-name で読み取れます。