在中断时抑制某些 SBCL 调试器输出

Question

可以通过执行(break(以编程方式调用调试器。例如，调试横幅随后显示导致中断的原因、HELP 行、可用的重新启动、一些相关信息，最后显示中断的来源：

debugger invoked on a SIMPLE-CONDITION in thread
#<THREAD "main thread" RUNNING {10010B0523}>:
break
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE] Return from BREAK.
1: [ABORT   ] Exit debugger, returning to top level.
#(
NODE: STATE=<NIL NIL NIL 0.0 0.0
(         )> DEPTH=0)
#(
NODE: STATE=<NIL NIL NIL 0.0 0.0
((ACTIVE GATE1) (ACTIVE GATE2) (COLOR RECEIVER1 BLUE) (COLOR RECEIVER2 RED) (COLOR TRANSMITTER1 BLUE) (COLOR TRANSMITTER2 RED) (FREE ME) (LOC CONNECTOR1 AREA5) (LOC CONNECTOR2 AREA7) (LOC ME AREA5))> DEPTH=0)
(DF-BNB1 )
source: (BREAK)
0]

我不明白重新启动和源之间的相关信息。是否可以禁止此信息，因为 有时在我的应用程序中它有很多行长。我尝试更改调试和安全优化设置，但没有效果。

Answer 1

您混淆的输出与代码中调用break的位置有关。当我从vanilla Lisp REPL(没有SLIME(调用它时，它显示：

(SB-INT:SIMPLE-EVAL-IN-LEXENV (BREAK) #<NULL-LEXENV>)

但是，如果我在调试器中做错了什么，则会发生以下情况：

0] q
; in: PROGN (PRINT 1)
;     (PROGN Q)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::Q
; 
; compilation unit finished
;   Undefined variable:
;     Q
;   caught 1 WARNING condition
debugger invoked on a UNBOUND-VARIABLE in thread
#<THREAD "main thread" RUNNING {10005204C3}>:
The variable Q is unbound.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE   ] Retry using Q.
1: [USE-VALUE  ] Use specified value.
2: [STORE-VALUE] Set specified value and use it.
3: [ABORT      ] Reduce debugger level (to debug level 1).
4:               Return from BREAK.
5:               Exit debugger, returning to top level.
((LAMBDA (#:G498)) #<unused argument>)
source: (PROGN Q)

您可以看到最后一行类似于您从source:开始的行获得的输出。实际上，我们看到的输出由 3 个主要部分组成： 1. 状况描述 2. 列出可用的重新启动 3. 调试debug-loop-fun打印的REPL提示

最后一个输出是提示的一部分，它由调用以下内容生成：

(print-frame-call *current-frame* *debug-io* :print-frame-source t)

因此，您可以重新编译提供:print-frame-source nil的调用，或者尝试了解为什么当前帧看起来像这样......