Function: comp-supertypes

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

Signature

(comp-supertypes TYPE)

Documentation

Return a list of pairs (supertype . hierarchy-level) for TYPE.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-supertypes (type)
  "Return a list of pairs (supertype . hierarchy-level) for TYPE."
  (cl-loop
   named outer
   with found = nil
   for l in comp--typeof-types
   do (cl-loop
       for x in l
       for i from (length l) downto 0
       when (eq type x)
         do (setf found t)
       when found
         collect `(,x . ,i) into res
       finally (when found
                 (cl-return-from outer res)))))