Получить класс объекта

(class-of 'a)         #<Built-In-Class SYMBOL>
(class-of "a")        #<Built-In-Class STRING>
(class-of 12)         #<Built-In-Class INTEGER>
(class-of '(a b))     #<Built-In-Class CONS>
(class-of '#(a b c))  #<Built-In-Class VECTOR>