From 6b907e2ceddc715f8341ea2fc5c2bee858544d8d Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 20 Apr 2024 03:10:07 +0300 Subject: [PATCH] Use an integer interval in single-or-chain. Fixes lp#2062937 --- src/compiler/srctran.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index 724f24bdf..4cd5c5f7e 100644 --- a/src/compiler/srctran.lisp +++ b/src/compiler/srctran.lisp @@ -7078,7 +7078,7 @@ '(char-code a) 'a))) ,(cond ((< max sb-vm:n-word-bits) - (let ((interval (type-approximate-interval (lvar-type lvar)))) + (let ((interval (type-approximate-interval (lvar-type lvar) t))) (when (and interval (interval-high interval) (< (interval-high interval) sb-vm:n-word-bits)) -- 2.11.4.GIT