mirror of https://github.com/rusefi/bldc.git
16 lines
247 B
Common Lisp
16 lines
247 B
Common Lisp
|
|
||
|
|
(define compute (lambda ()
|
||
|
|
(progn
|
||
|
|
(recv (((? pid) (? x) (? y)) (send pid (+ x y))))
|
||
|
|
(compute))))
|
||
|
|
|
||
|
|
|
||
|
|
(define cpid (spawn compute))
|
||
|
|
|
||
|
|
(send cpid (list (self) 1 2))
|
||
|
|
|
||
|
|
(recv ((? x) (= x 3)))
|
||
|
|
|
||
|
|
|
||
|
|
|