CL-USER> (defun hello-from-thread ()
           (let ((s *standard-output*))
	           (bt:make-thread
	            (lambda () (format s "Hello, world~%")))
	           nil))
HELLO-FROM-THREAD
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER> (hello-from-thread)
NIL
Hello, world
CL-USER>