Function: ^class-name

Source

(defun ^class-name (class-thing) 
  (etypecase class-thing
    ;; Not all classes are under standard class
    (standard-class (class-name class-thing))
    (symbol class-thing)
    (string (intern (string-invert class-thing)))))