common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

%coerce-callable-for-call optimizer: don't fall on literal functions.

Browse source
This commit is contained in:
Stas Boukarev 2025-07-11 03:37:55 +03:00
parent e10d5f6b4c
commit 5f439cc5ba
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/compiler/srctran.lisp
View file

@ -8188,12 +8188,12 @@
when (ref-p use)
do (let ((leaf (ref-leaf use)))
(when (and (constant-p leaf)
(symbolp (constant-value leaf))
(or (internal-name-p (constant-value leaf))
(almost-immediately-used-p fun use)))
(let ((name (constant-value leaf)))
(record-late-xref :calls name use)
(change-ref-leaf use (find-global-fun name t) :recklessly t)))))))
nil)
(change-ref-leaf use (find-global-fun name t) :recklessly t))))))))
(defoptimizer (open derive-type) ((filename
&key