From 8a66d3575bf80fd83e337231b4ce85a53765f07d Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sun, 30 Aug 2026 03:30:59 +0300 Subject: [PATCH] Resolve an improper use of functional-kind --- src/compiler/entry.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp index 8a905f2f0..b1d239b99 100644 --- a/src/compiler/entry.lisp +++ b/src/compiler/entry.lisp @@ -137,7 +137,7 @@ missing MAKE-LOAD-FORM methods?") (closure (and ;; It may have been deleted due to none of ;; the optional entries reaching it. - (neq (functional-kind main-entry) :deleted) + (not (functional-kind-eq main-entry deleted)) (environment-closure (lambda-environment main-entry))))) (dolist (ref (leaf-refs lambda)) (let ((ref-component (node-component ref)))