bldc/tests/test_mail_4.lisp

13 lines
136 B
Common Lisp

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