diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-04-10 17:35:08 +0200 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-04-10 18:16:26 +0200 |
| commit | 219b98916bc498bf15bbef6577af648834d4727d (patch) | |
| tree | e27f5ecb7a2262676fdb2fafeb8df0a78b778c01 /lisp/emacs-lisp/comp-cstr.el | |
| parent | 36cb16556c60bf4e703764eefd4fb6668ccc37cc (diff) | |
| download | emacs-219b98916bc498bf15bbef6577af648834d4727d.tar.gz emacs-219b98916bc498bf15bbef6577af648834d4727d.tar.bz2 emacs-219b98916bc498bf15bbef6577af648834d4727d.zip | |
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-fixnum-p): Fix.
Diffstat (limited to 'lisp/emacs-lisp/comp-cstr.el')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index d6cb887759f..7452b8568de 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -912,7 +912,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)))) |