Skip to content
Browse files

Allow interrupting an unresponsive thread with a debug interrupt

  • Loading branch information
Shinmera committed Nov 27, 2019
1 parent e3994d6 commit 6cefeb1052de4918c161238e7d269d8483f4f39e
Showing with 3 additions and 0 deletions.
  1. +3 −0 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)

0 comments on commit 6cefeb1

Please sign in to comment.
You can’t perform that action at this time.