From: Andrea Corallo <acorallo@gnu.org>
Date: Wed, 10 Apr 2024 15:35:08 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-fixnum-p): Fix.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbb827d59a4d141266db353fb00066faa3eae5f6;p=emacs.git

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-fixnum-p): Fix.

(cherry picked from commit 219b98916bc498bf15bbef6577af648834d4727d)
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 6509def76a2..65240550f6b 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -911,7 +911,9 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
 (defun comp-cstr-fixnum-p (cstr)
   "Return t if CSTR is certainly a fixnum."
   (with-comp-cstr-accessors
-    (when (null (neg cstr))
+    (when (and (null (neg cstr))
+               (null (valset cstr))
+               (null (typeset cstr)))
       (when-let (range (range cstr))
         (let* ((low (caar range))
                (high (cdar (last range))))