bldc/tests/test_mail_4.lisp

13 lines
128 B
Common Lisp

(define f (lambda ()
(progn
(recv (_ nil))
(f))))
(spawn f)
(yield 10000)
(= 1 1)