Spawn an thread that blocks for a single command from the control
thread, executes it, then terminates.
(defn spawn-worker-thread
"Spawn an thread that blocks for a single command from the control
thread, executes it, then terminates."
([conn]
(dothread-swank
(try
(add-active-thread (current-thread))
(thread-set-name "Swank Worker Thread")
(eval-from-control)
(finally
(remove-active-thread (current-thread)))))))
Comments top
No comments for spawn-worker-thread. Log in to add a comment.