diff --git a/compiler/locall.lisp b/compiler/locall.lisp index 0ad28751e19e107c7048eae95863119de0d06a9f..d54376cdff36a57b53509d7d3da77eb695f8d37a 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)