mirror of https://github.com/rusefi/bldc.git
22 lines
418 B
Common Lisp
22 lines
418 B
Common Lisp
|
|
|
|
(event-register-handler (self))
|
|
|
|
(defun event-sender (n)
|
|
(if (= 0 n) ()
|
|
(progn
|
|
(event-list-of-float 3.14 3.14 3.14)
|
|
(iota 250) ; Trigger GC eventually
|
|
(event-sender (- n 1)))))
|
|
|
|
(spawn event-sender 100)
|
|
|
|
(defun correct (n)
|
|
(if (= n 0) t
|
|
(progn
|
|
(recv ((? x) (if (eq x '(3.14 3.14 3.14))
|
|
(correct (- n 1))
|
|
x))))))
|
|
|
|
(check (correct 70))
|