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