Function: byte-compile--common-test

byte-compile--common-test is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile--common-test TEST-1 TEST-2)

Documentation

Most specific common test of eq, eql and equal.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
(defun byte-compile--common-test (test-1 test-2)
  "Most specific common test of `eq', `eql' and `equal'."
  (cond ((or (eq test-1 'equal) (eq test-2 'equal)) 'equal)
        ((or (eq test-1 'eql)   (eq test-2 'eql))   'eql)
        (t                                          'eq)))