class-name (class-name class) クラスメタオブジェクト — find-class や class-of が返すもの — の名前シンボルを返します。引数がクラスメタオブジェクトでない場合はエラーをシグナルします。 Run(class-name (class-of "hello")) ; => STRING