Function: byte-optimize-eq

byte-optimize-eq is a byte-compiled function defined in byte-opt.el.gz.

Signature

(byte-optimize-eq FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-eq (form)
  (cond ((/= (length (cdr form)) 2) form)  ; arity error
        ;; Anything is identical to itself.
        ((and (eq (nth 1 form) (nth 2 form)) (symbolp (nth 1 form))) t)
        ;; Strength-reduce comparison with `nil'.
        ((null (nth 1 form)) `(not ,(nth 2 form)))
        ((null (nth 2 form)) `(not ,(nth 1 form)))
        (t (byte-optimize-binary-predicate form))))