(cl:in-package #:sicl-clos)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (fmakunbound 'class-of))

(defun class-of (object)
  (heap-instance-class object))

(cl:in-package #:sicl-clos)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (fmakunbound 'class-of))

(defun class-of (object)
  (if (heap-instance-p object)
      (heap-instance-class object)
      (cdr (assoc t *classes*))))

Handle any CL object without error.
Handle any CL object without error.

vtomole/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,clasp-developers/SICL,clasp-developers/SICL