- (when (symbolp name)
- (let ((fun-info (sb-int:info :function :info name)))
- (when fun-info
- (let ((otypes '((sb-c::fun-info-derive-type . sb-c:derive-type)
- (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate)
- (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate)
- (sb-c::fun-info-optimizer . sb-c:optimizer))))
- (loop for (reader . name) in otypes
- for fn = (funcall reader fun-info)
- when fn collect
- (let ((source (find-definition-source fn)))
- (setf (definition-source-description source)
- (list name))
- source)))))))
+ (let ((fun-info (and (symbolp name)
+ (sb-int:info :function :info name))))
+ (when fun-info
+ (let ((otypes '((sb-c:fun-info-derive-type . sb-c:derive-type)
+ (sb-c:fun-info-ltn-annotate . sb-c:ltn-annotate)
+ (sb-c:fun-info-optimizer . sb-c:optimizer)
+ (sb-c:fun-info-ir2-convert . sb-c:ir2-convert)
+ (sb-c::fun-info-stack-allocate-result
+ . sb-c::stack-allocate-result))))
+ (loop for (reader . name) in otypes
+ for fn = (funcall reader fun-info)
+ when fn collect
+ (let ((source (find-definition-source fn)))
+ (setf (definition-source-description source)
+ (list name))
+ source))))))