Function: comp-common-supertype-2

comp-common-supertype-2 is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-common-supertype-2 TYPE1 TYPE2)

Documentation

Return the first common supertype of TYPE1 TYPE2.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-common-supertype-2 (type1 type2)
  "Return the first common supertype of TYPE1 TYPE2."
  (when-let ((types (cl-intersection
                     (comp-supertypes type1)
                     (comp-supertypes type2)
                     :key #'car)))
    (car (cl-reduce (lambda (x y)
                      (if (> (cdr x) (cdr y)) x y))
                    types))))