From f1df41b02a9074bb480217c175186453e0c2887c Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 6 May 2024 00:43:08 +0300
Subject: [PATCH] ir1-convert-combination: call reference-leaf directly.

Slightly less consing.
---
 src/compiler/ir1tran.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index d81f583ab..1b3fe820a 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -967,7 +967,7 @@
            #-sb-xc-host (values combination))
   (let ((ctran (make-ctran))
         (fun-lvar (make-lvar)))
-    (ir1-convert start ctran fun-lvar `(the (or function symbol) ,fun))
+    (reference-leaf start ctran fun-lvar fun)
     (let ((combination
            (ir1-convert-combination-args fun-lvar ctran next result
                                          (cdr (proper-list form)))))
-- 
2.11.4.GIT