(defpackage :sb-introspect
(:use "CL")
(:export "FUNCTION-ARGLIST"
- "FUNCTION-LAMBDA-LIST"
+ "FUNCTION-LAMBDA-LIST"
"DEFTYPE-LAMBDA-LIST"
"VALID-FUNCTION-NAME-P"
"FIND-DEFINITION-SOURCE"
(declaim (ftype (function (function) debug-info) function-debug-info))
(defun function-debug-info (function)
- (let* ((function-object (sb-kernel::%closure-fun function))
+ (let* ((function-object (sb-kernel::%fun-fun function))
(function-header (sb-kernel:fun-code-header function-object)))
(sb-kernel:%code-debug-info function-header)))
((or null sb-impl::funcallable-instance)
nil)
(function
- (sb-kernel::%closure-fun functoid))))
+ (sb-kernel::%fun-fun functoid))))
(defun collect-xref (kind-index wanted-name)
(let ((ret nil))