master: constant-fold-call: call lvar-value with ignore-types=t
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via df702c162746424480d1d5669e05c19a7b2f01cc (commit)
from 4c13a73b6a162e82615185739045f5facd2783ee (commit)
- Log -----------------------------------------------------------------
commit df702c162746424480d1d5669e05c19a7b2f01cc
Author: Stas Boukarev <[email protected]>
Date: Wed Apr 15 00:33:26 2026 +0300
constant-fold-call: call lvar-value with ignore-types=t
---
src/compiler/ir1opt.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 42b44116c..5afeea978 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -1918,7 +1918,7 @@
(unless (if (eql (car annotation) 'function-designator)
(let ((fun (or (lvar-fun-name arg t)
(and (constant-lvar-ignore-types-p arg)
- (lvar-value arg)))))
+ (lvar-value arg t)))))
(and fun
(constant-fold-arg-p fun)))
(constant-lvar-ignore-types-p arg))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL