hg.stevelosh.com > mycelium

(ql:quickload :bordeaux-threads)

(bt:interrupt-thread
  (first (remove "main thread" (bt:all-threads) :key #'bt:thread-name :test-not #'string=))
  (lambda () (error "stop")))
author	Steve Losh <steve@stevelosh.com>
date	Sun, 18 Apr 2021 17:40:08 -0400
parents	41f2c758451f
children	614ad4a1d44e