master: describe: call unencapsulated-function
stassats via Sbcl-commits <[email protected]> Thu, 11 Jun 2026 01:23:26 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 1b5d6e2582a84b0d6a6de89ecb5d9bb2c9c2462d (commit)
from a2eed39dab2a507685db791d86f188704b9cfc91 (commit)
- Log -----------------------------------------------------------------
commit 1b5d6e2582a84b0d6a6de89ecb5d9bb2c9c2462d
Author: Stas Boukarev <[email protected]>
Date: Thu Jun 11 02:39:53 2026 +0300
describe: call unencapsulated-function
---
src/code/describe.lisp | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index e94d2683e..883559791 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -614,7 +614,10 @@
(let ((fun (macro-function name)))
(values fun "a macro" (%fun-lambda-list fun))))
(t
- (let* ((fun (or function (fdefinition name)))
+ (when function
+ (setf function (unencapsulated-function function)))
+ (let* ((fun (unencapsulated-function (or function
+ (unencapsulated-function (fdefinition name)))))
(derived-type (and function
(%fun-ftype function)))
(legal-name-p (legal-fun-name-p name))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL