- (let ((*finding-name* t))
- (/show0 "in ordinary case")
- (do ((frame (sb!di:top-frame) (sb!di:frame-down frame)))
- ((null frame)
- (/show0 "null frame")
- (values "<error finding interrupted name -- null frame>" nil))
- (/show0 "at head of DO loop")
- (when (and (sb!di::compiled-frame-p frame)
- (sb!di::compiled-frame-escaped frame))
- (sb!di:flush-frames-above frame)
- (/show0 "returning from within DO loop")
- (return (values (sb!di:debug-fun-name
- (sb!di:frame-debug-fun frame))
- frame)))))
- (error ()
- (/show0 "trapped ERROR")
- (values "<error finding interrupted name -- trapped error>" nil))
- (sb!di:debug-condition ()
- (/show0 "trapped DEBUG-CONDITION")
- (values "<error finding interrupted name -- trapped debug-condition>"
- nil)))))
+ (let ((*finding-name* t))
+ (/show0 "in ordinary case")
+ (do ((frame (sb!di:top-frame) (sb!di:frame-down frame)))
+ ((null frame)
+ (/show0 "null frame")
+ (values "<error finding interrupted name -- null frame>" nil))
+ (/show0 "at head of DO loop")
+ (when (and (sb!di::compiled-frame-p frame)
+ (sb!di::compiled-frame-escaped frame))
+ (sb!di:flush-frames-above frame)
+ (/show0 "returning from within DO loop")
+ (return (values (sb!di:debug-fun-name
+ (sb!di:frame-debug-fun frame))
+ frame)))))
+ (error ()
+ (/show0 "trapped ERROR")
+ (values "<error finding interrupted name -- trapped error>" nil))
+ (sb!di:debug-condition ()
+ (/show0 "trapped DEBUG-CONDITION")
+ (values "<error finding interrupted name -- trapped debug-condition>"
+ nil)))))