关闭SBCL调试器出现unmatched close parenthesis错误如何解决

正确禁用SBCL调试器的方案 #

你遇到的括号不匹配问题根源是：原有方案只处理了执行阶段的错误，但SBCL的reader阶段（读取输入文本转成S表达式的阶段）报错时，输入流中还残留未读取的内容，直接abort会让REPL继续读取剩余内容，最终触发语法错误。下面是两种可靠的解决方法：

方案1：使用SBCL原生禁用调试器开关（最推荐）

SBCL官方提供了专门的调试器禁用变量，内部已经处理了reader错误的输入残留问题，不会出现括号不匹配报错：

(setf sb-ext:*disable-debugger* t)

如果需要启动时直接生效，可以在启动SBCL时添加命令行参数：
sbcl --disable-debugger

方案2：自定义debugger hook适配reader错误

如果你需要保留自定义错误处理逻辑，可以修改原有hook，在遇到reader错误时先清空输入流的剩余内容：

(defun debug-ignore (c h)
  (declare (ignore h))
  (print c)
  ;; 处理reader错误遗留的未读输入
  (when (typep c 'sb-int:simple-reader-error)
    (loop while (listen *standard-input*)
          do (read-char *standard-input* nil nil)))
  (abort))

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

两种方案都可以完全避免你遇到的unmatched close parenthesis错误，优先选择方案1，原生实现兼容性和稳定性更好。

内容的提问来源于stack exchange，提问作者Flux