Function: comp-subtype-p

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

Signature

(comp-subtype-p TYPE1 TYPE2)

Documentation

Return t if TYPE1 is a subtype of TYPE2 or nil otherwise.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defsubst comp-subtype-p (type1 type2)
  "Return t if TYPE1 is a subtype of TYPE2 or nil otherwise."
  (let ((types (cons type1 type2)))
    (or (gethash types (comp-cstr-ctxt-subtype-p-mem comp-ctxt))
        (puthash types
                 (eq (comp-common-supertype-2 type1 type2) type2)
                 (comp-cstr-ctxt-subtype-p-mem comp-ctxt)))))