bldc/tests/test_spawn_wait_1.lisp

11 lines
139 B
Common Lisp
Raw Normal View History

(define t1 (lambda (x)
(+ x 1)))
(check (let ((id (spawn t1 0)))
(progn
(wait id)
'true)))