class-of (ANSI and GNU Common Lisp Document)

Next: unbound-slot, Previous: setf class-name, Up: Objects Dictionary

#### 7.7.39 class-of [Function]

`class-of` object ⇒ class

#### Arguments and Values::

object—an object.

class—a class object.

#### Description::

Returns the class of which the object is a direct instance.

#### Examples::

     (class-of 'fred) ⇒  #<BUILT-IN-CLASS SYMBOL 610327300>
     (class-of 2/3) ⇒  #<BUILT-IN-CLASS RATIO 610326642>

     (defclass book () ()) ⇒  #<STANDARD-CLASS BOOK 33424745>
     (class-of (make-instance 'book)) ⇒  #<STANDARD-CLASS BOOK 33424745>

     (defclass novel (book) ()) ⇒  #<STANDARD-CLASS NOVEL 33424764>
     (class-of (make-instance 'novel)) ⇒  #<STANDARD-CLASS NOVEL 33424764>

     (defstruct kons kar kdr) ⇒  KONS
     (class-of (make-kons :kar 3 :kdr 4)) ⇒  #<STRUCTURE-CLASS KONS 250020317>

#### See Also::

make-instance , type-of