如何关闭 sbcl 中的调试器

我目前正在尝试学习 common lisp，并且一直在使用 sbcl （我希望这是一个不错的实现选择。）

来自 ruby​​ 和 irb 的我发现此时每个错误的自动转移到调试器有点烦人。有没有办法在我玩的时候暂时关闭它。

Common Lisp 有一个变量*调试器挂钩*，它可以绑定/设置到一个函数。

* (aref "123" 10)

debugger invoked on a SB-INT:INVALID-ARRAY-INDEX-ERROR:
  Index 10 out of bounds for (SIMPLE-ARRAY CHARACTER
                              (3)), should be nonnegative and <3.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-INT:INVALID-ARRAY-INDEX-ERROR "123" 10 3 NIL)
0] 0

* (defun debug-ignore (c h) (declare (ignore h)) (print c) (abort))

DEBUG-IGNORE
* (setf *debugger-hook* #'debug-ignore)

#<FUNCTION DEBUG-IGNORE>
* (aref "123" 10)

#<SB-INT:INVALID-ARRAY-INDEX-ERROR {1002A661D1}>
*