master: Delete unused function.

The branch "master" has been updated in SBCL:
       via  87608fcd950556179aa66702c4fc3551ede42070 (commit)
      from  1faf50d3dc5f3bd51f75955e64adac329f472e9b (commit)

- Log -----------------------------------------------------------------
commit 87608fcd950556179aa66702c4fc3551ede42070
Author: Charles Zhang <[email protected]>
Date:   Wed Aug 12 01:05:48 2026 +0200

    Delete unused function.
---
 src/compiler/constraint.lisp | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 8c00aefab..b00a5b123 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -1061,19 +1061,6 @@
                 (make-numeric-union-type :low bound)
                 (make-numeric-union-type :high bound))))))))
 
-;;; Return true if LEAF is "visible" from NODE.
-(defun leaf-visible-from-node-p (leaf node)
-  (cond
-    ((lambda-var-p leaf)
-     (and (find leaf (lexenv-vars (node-lexenv node))
-                :key #'cdr :test #'eq)
-          t))
-   ;; FIXME: Check on FUNCTIONALs (CLAMBDAs and OPTIONAL-DISPATCHes),
-   ;; not just LAMBDA-VARs.
-   (t
-    ;; Assume everything else is globally visible.
-    t)))
-
 (defun contiguous-numeric-set-type (xset)
   (cond ((xset-empty-p xset)
          nil)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL