(defun hello-from-thread ()
  (let ((s *standard-output*))
	(bt:make-thread
	 (lambda () (format s "Hello, world~%")))
	nil))