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 になります。配列はそれを含む最も狭い組み込みクラスを返します — 文字列は string、それ以外のランク 1 の配列は vector、そのランクより上下の配列は array です。名前は class-name で読み取れます。type-of はより細かい別の見方で、こちらは変わりません。