Plaster

(ql:quickload "bt-semaphore" :silent t) (defun fun (msg) (bt:make-thread (lambda () (format t "~A~%" msg)) :name msg)) (fun "hello")