时间戳

首页 > 解决方案 > 在中断时抑制某些 SBCL 调试器输出

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

问题描述

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

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]

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

标签： debuggingcommon-lispsbcl

解决方案

您感到困惑的输出与代码中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. 调试 REPL 提示debug-loop-fun

最后一个输出是提示的一部分，它是通过调用以下命令生成的：

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

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

推荐阅读