Function: byte-optimize-equal

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

Signature

(byte-optimize-equal FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-equal (form)
  (cond ((/= (length (cdr form)) 2) form)  ; Arity errors reported elsewhere.
        ;; Anything is identical to itself.
        ((and (eq (nth 1 form) (nth 2 form)) (symbolp (nth 1 form))) t)
        ;; Replace `equal' or `eql' with `eq' if at least one arg is a
        ;; symbol or fixnum.
        ((or (byte-optimize--constant-symbol-p (nth 1 form))
             (byte-optimize--constant-symbol-p (nth 2 form))
             (byte-optimize--fixnump (nth 1 form))
             (byte-optimize--fixnump (nth 2 form)))
         (byte-optimize-binary-predicate (cons 'eq (cdr form))))
        (t (byte-optimize-binary-predicate form))))