(require 'bt-semaphore)

(let ((top-level *standard-output*))
  (bt:make-thread
   (lambda ()
     (defun f () (format nil "~A" 1))
     (sleep 0.5)
     (format top-level (f)))
   :name "hello")
  (bt:make-thread
   (lambda ()
     (defun f () (format nil "~A" 2))
     (format top-level (f))
     (sleep 1.0)
     (format top-level (f))
     (format top-level "|"))
   :name "setne"))
;; => 212|