Function: comp-intersect-two-typesets

comp-intersect-two-typesets is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-intersect-two-typesets T1 T2)

Documentation

Intersect typesets T1 and T2.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-intersect-two-typesets (t1 t2)
  "Intersect typesets T1 and T2."
  (with-comp-cstr-accessors
    (cl-loop
     for types in (list t1 t2)
     for other-types in (list t2 t1)
     append
     (cl-loop
      for type in types
      when (cl-some (lambda (x)
                      (comp-subtype-p type x))
                    other-types)
      collect type))))