procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andrea Corallo 2024-04-10 17:35:08 +02:00
parent 36cb16556c
commit 219b98916b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp-cstr.el
View file

@ -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))))