master: Resolve an improper use of functional-kind
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 8a66d3575bf80fd83e337231b4ce85a53765f07d (commit)
from e938a68479153d11479ff77071e88e08768dfb0f (commit)
- Log -----------------------------------------------------------------
commit 8a66d3575bf80fd83e337231b4ce85a53765f07d
Author: Stas Boukarev <[email protected]>
Date: Sun Aug 30 03:30:59 2026 +0300
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)))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL