common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Resolve an improper use of functional-kind

Browse source
This commit is contained in:
Stas Boukarev 2026-08-30 03:30:59 +03:00
parent e938a68479
commit 8a66d3575b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/entry.lisp
View file

@ -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)))