master: sb-introspect:function-lambda-list: employ sb-ext:unencapsulated-function

The branch "master" has been updated in SBCL:
       via  a2eed39dab2a507685db791d86f188704b9cfc91 (commit)
      from  00bf2651cc516d3ecb64323ad1d96c542cfc78b5 (commit)

- Log -----------------------------------------------------------------
commit a2eed39dab2a507685db791d86f188704b9cfc91
Author: Stas Boukarev <[email protected]>
Date:   Thu Jun 11 02:34:24 2026 +0300

    sb-introspect:function-lambda-list: employ sb-ext:unencapsulated-function
---
 contrib/sb-introspect/introspect.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp
index b3a7fffdc..9883264d8 100644
--- a/contrib/sb-introspect/introspect.lisp
+++ b/contrib/sb-introspect/introspect.lisp
@@ -646,7 +646,7 @@ determined (e.g. because the function was compiled with DEBUG 0)."
         ((typep function 'generic-function)
          (sb-pcl::generic-function-pretty-arglist function))
         (t
-         (let ((raw-result (%fun-lambda-list function)))
+         (let ((raw-result (%fun-lambda-list (sb-ext:unencapsulated-function function))))
            (if (eq raw-result :unknown)
                (values nil t)
                (values raw-result nil))))))

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


hooks/post-receive
-- 
SBCL