sbcl 调试 cl-gtk2-gk 如果后端线程挂起

Question

主循环内的一些示例，直接的 gtk2

我目前正在尝试在按键事件中添加代码

如果我在 Guy 代码中犯了一个错误，gui 线程将挂在 repl 中，我仍然可以取回 repl，但我没有找到一种方法来继续 gui 开发，而无需重新启动 sbcl 并重新加载所有包

(defun run ()
  (within-main-loop
      ; match the controls that matter to vars
      (let ((window (builder-get-object builder "window"))
;....
           ; on window close keep the gtk running. helps with debugging
           (g-signal-connect search-field "key-press-event" (lambda (w) (declare (ignore w)) (format "~a" "danut")))
           (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (leave-gtk-main)))
           (widget-show window)))))

当我运行这个函数时得到的错误是：

• 调试器在线程 # 中的简单错误上调用：当使用参数 (NIL) 调用时，没有适用于通用函数的方法。

通过足够的工作，我可以修复错误，但是每次我在 gui 中出现问题时，我都无法使后端线程从挂起的位置继续。我尝试了各种线程函数。列出所有踏板将显示：

(#<SB-THREAD:THREAD "cl-gtk2 main thread" RUNNING {CF48EF1}>
 #<SB-THREAD:THREAD "initial thread" RUNNING {AA5F591}>)

这是我到目前为止所尝试过的：

(sb-thread:list-all-threads)

(sb-thread:interrupt-thread (first (sb-thread:list-all-threads)) #'leave-gtk-main)

(sb-thread:terminate-thread (first (sb-thread:list-all-threads)))

我就是无法把它解开。

您使用 cl-gtk2-gtk 的正常工作流程是什么，如何避免这个问题？

Answer 1

用于sb-thread:release-foreground在等待输入的线程之间切换。有关示例会话，请参阅SBCL 中的线程。