Function: bytecomp--dodgy-eq-arg-p

bytecomp--dodgy-eq-arg-p is a byte-compiled function defined in bytecomp.el.gz.

Signature

(bytecomp--dodgy-eq-arg-p X NUMBER-OK)

Documentation

Whether X is a bad argument to eq (or eql if NUMBER-OK is non-nil).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
;; Check for (in)comparable constant values in calls to `eq', `memq' etc.

(defun bytecomp--dodgy-eq-arg-p (x number-ok)
  "Whether X is a bad argument to `eq' (or `eql' if NUMBER-OK is non-nil)."
  (pcase x
    ((or `(quote ,(pred consp)) `(function (lambda . ,_))) t)
    ((or (pred consp) (pred symbolp)) nil)
    ((pred integerp)
     (not (or (<= -536870912 x 536870911) number-ok)))
    ((pred floatp) (not number-ok))
    (_ t)))