mirror of https://github.com/rusefi/bldc.git
16 lines
471 B
Common Lisp
16 lines
471 B
Common Lisp
|
|
||
|
(define fred (lambda ()
|
||
|
(progn (print "fred iteration" \#newline )
|
||
|
(recv ((? x) (print "fred received: " x \#newline)))
|
||
|
(fred))))
|
||
|
|
||
|
(define bella (lambda (pid x)
|
||
|
(progn (print "bella iteration " x \#newline)
|
||
|
(send pid x)
|
||
|
(yield 500000)
|
||
|
(bella pid (+ x 1)))))
|
||
|
|
||
|
(define fredpid (spawn '(fred)))
|
||
|
|
||
|
(spawn '(bella (car fredpid) 0))
|