class?

Das Prädikat class? überprüft, ob sein Argument eine Klasse ist.

> (class? (defclass a-class ()))
t

> (class? nil)
nil

> (class? (quote a))
nil


Das Prädikat ist über die Funktion type-of und einen Vergleich definiert:

(setq class?
  (lambda (x)
    (eq?
      (type-of x)
      (quote class))))