[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0069085be2: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnu
From: |
Mattias Engdegård |
Subject: |
master 0069085be2: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnump): Optimise. |
Date: |
Thu, 21 Jul 2022 09:26:30 -0400 (EDT) |
branch: master
commit 0069085be2d0e6c7d439372b06b866df4c669891
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnump): Optimise.
---
lisp/emacs-lisp/byte-opt.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index a457e2044d..5705b2a8fd 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0069085be2: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize--fixnump): Optimise.,
Mattias Engdegård <=