Plaster
New
List
Login
common-lisp
default
anonymous
2021.01.09 11:11:41
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>
Raw
Annotate
Repaste
Edit