Plaster

(defun swank-thread () "Returns a thread that's acting as a Swank server." (dolist (thread (sb-thread:list-all-threads)) (when (prefixp "Swank" (sb-thread:thread-name thread)) (return thread)))) (defun wait-for-swank-threads () "Waits for all Swank server threads to exit." (loop (let ((swank-thread (swank-thread))) (unless swank-thread (return)) (sb-thread:join-thread swank-thread))) (values)) (defun main () ... (wait-for-swank-threads))