; * 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 a457e2044d8477f784f30621ac2331f139c702c0..5705b2a8fd7062909ac4b2b137acc6252be8df07 100644 (file)
--- 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