Allow interrupting an unresponsive thread with a debug interrupt

Shirakumo · Nov 27, 2019 · 6cefeb1 · 6cefeb1
1 parent e3994d6
commit 6cefeb1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -261,6 +261,9 @@
                  (error "Thread ~s did not exit after ~a s." (bt:thread-name thread) (* i interval))
                (continue ()
                  :report "Continue waiting.")
+               (debug ()
+                 :report "Try to interrupt the thread with a break."
+                 (bt:interrupt-thread thread (lambda () (break))))
                (abort ()
                  :report "Kill the thread and exit, risking corrupting the image."
                  (bt:destroy-thread thread)