(declaim (ftype (function (function) debug-info) function-debug-info))
(defun function-debug-info (function)
(declaim (ftype (function (function) debug-info) function-debug-info))
(defun function-debug-info (function)
(function-header (sb-kernel:fun-code-header function-object)))
(sb-kernel:%code-debug-info function-header)))
(function-header (sb-kernel:fun-code-header function-object)))
(sb-kernel:%code-debug-info function-header)))