- ;; FIXME: Why is *STACK-TOP-HINT* in SB-DEBUG instead of SB-DI?
- ;; SB-DEBUG should probably be only for true interface stuff.
- (sb!debug:*stack-top-hint* sb!debug:*stack-top-hint*))
- (unless (and (condition-function-name condition)
- sb!debug:*stack-top-hint*)
- (multiple-value-bind (name frame) (sb!kernel:find-caller-name)
- (unless (condition-function-name condition)
- (setf (condition-function-name condition) name))
- (unless sb!debug:*stack-top-hint*
- (setf sb!debug:*stack-top-hint* frame))))