mirror of https://github.com/rusefi/bldc.git
30 lines
655 B
Common Lisp
30 lines
655 B
Common Lisp
|
|
|
|
|
|
(event-register-handler (self))
|
|
|
|
(defun event-sender (n)
|
|
(if (= 0 n) ()
|
|
(progn
|
|
(event-sym 'apa)
|
|
(iota 250) ; Trigger GC eventually
|
|
(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)))))
|
|
|
|
|