From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 21 Jul 2022 10:18:59 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnump): Optimise.
X-Git-Tag: emacs-29.0.90~1447^2~819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0069085be2d0e6c7d439372b06b866df4c669891;p=emacs.git

; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnump): Optimise.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index a457e2044d8..5705b2a8fd7 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -921,7 +921,7 @@ for speeding up processing.")
 (defun byte-optimize--fixnump (o)
   "Return whether O is guaranteed to be a fixnum in all Emacsen.
 See Info node `(elisp) Integer Basics'."
-  (and (fixnump o) (<= -536870912 o 536870911)))
+  (and (integerp o) (<= -536870912 o 536870911)))
 
 (defun byte-optimize-equal (form)
   ;; Replace `equal' or `eql' with `eq' if at least one arg is a