Function: comp-cstr-fixnum-p

comp-cstr-fixnum-p is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-cstr-fixnum-p CSTR)

Documentation

Return t if CSTR is certainly a fixnum.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-cstr-fixnum-p (cstr)
  "Return t if CSTR is certainly a fixnum."
  (with-comp-cstr-accessors
    (when (and (null (neg cstr))
               (null (valset cstr))
               (null (typeset cstr)))
      (when-let* ((range (range cstr)))
        (let* ((low (caar range))
               (high (cdar (last range))))
          (unless (or (eq low '-)
                      (< low most-negative-fixnum)
                      (eq high '+)
                      (> high most-positive-fixnum))
            t))))))