Function: comp--direct-supertypes

comp--direct-supertypes is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp--direct-supertypes TYPE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp--direct-supertypes (type)
  (when (symbolp type) ;; FIXME: Can this test ever fail?
    (let* ((class (cl--find-class type))
           (parents (if class (cl--class-parents class))))
      (mapcar #'cl--class-name parents))))