(bt:interrupt-thread (second (bt:all-threads)) (function break))
ViewGit