Function: bytecomp--check-eq-args

bytecomp--check-eq-args is a byte-compiled function defined in bytecomp.el.gz.

Signature

(bytecomp--check-eq-args FORM &optional A B &rest IGNORE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
(defun bytecomp--check-eq-args (form &optional a b &rest _ignore)
  (let* ((number-ok (eq (car form) 'eql))
         (bad-arg (cond ((bytecomp--dodgy-eq-arg-p a number-ok) 1)
                        ((bytecomp--dodgy-eq-arg-p b number-ok) 2))))
    (if bad-arg
        (bytecomp--warn-dodgy-eq-arg
         form
         (bytecomp--arg-type-description (nth bad-arg form))
         (format "arg %d" bad-arg))
      form)))