bldc/tests/test_receive_1.lisp

10 lines
124 B
Common Lisp

(send (self) '(apa 129))
(check (= (recv
( (bepa (? x)) 'bepa)
( (apa (? x)) x))
129))