From 46008afcb7e42c8a3300f612577f9eb6ddab2065 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 12 Jan 1991 16:12:13 +0000
Subject: [PATCH] Mark XEPs as EVER-USED so that we don't get spurious unused
 function notes.

---
 compiler/locall.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index 0ad28751e..d54376cdf 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -165,6 +165,7 @@
   (with-ir1-environment (lambda-bind (main-entry fun))
     (let ((res (ir1-convert-lambda (make-xep-lambda fun))))
       (setf (functional-kind res) :external)
+      (setf (leaf-ever-used res) t)
       (setf (functional-entry-function res) fun)
       (setf (functional-entry-function fun) res)
       (setf (component-reanalyze *current-component*) t)
-- 
GitLab