Function: pcase--mutually-exclusive-p

pcase--mutually-exclusive-p is a byte-compiled function defined in pcase.el.gz.

Signature

(pcase--mutually-exclusive-p PRED1 PRED2)

Documentation

This function has :around advice: cl--pcase-mutually-exclusive-p.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/pcase.el.gz
;; Extra predicates
(defun pcase--mutually-exclusive-p (pred1 pred2)
  (let ((subtypes1 (gethash pred1 pcase--subtype-bitsets)))
    (when subtypes1
      (let ((subtypes2 (gethash pred2 pcase--subtype-bitsets)))
        (when subtypes2
          (zerop (logand subtypes1 subtypes2)))))))