mirror of https://github.com/rusefi/bldc.git
31 lines
639 B
Common Lisp
31 lines
639 B
Common Lisp
|
|
|
|
|
|
(event-register-handler (self))
|
|
|
|
(defun event-sender (n)
|
|
(if (= 0 n) ()
|
|
(progn
|
|
(event-sym 'apa)
|
|
(yield 100)
|
|
(event-sender (- n 1))
|
|
)))
|
|
|
|
(spawn event-sender 100)
|
|
|
|
|
|
|
|
(check (and (recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))
|
|
(recv ((? x) (eq x 'apa)))))
|
|
|
|
|