mirror of https://github.com/rusefi/bldc.git
27 lines
363 B
Common Lisp
27 lines
363 B
Common Lisp
|
|
(send (self) 0)
|
|
(send (self) 1)
|
|
(send (self) 2)
|
|
(send (self) 3)
|
|
(send (self) 4)
|
|
(send (self) 5)
|
|
(send (self) 6)
|
|
(send (self) 7)
|
|
(send (self) 8)
|
|
(send (self) 9)
|
|
(send (self) 10)
|
|
(send (self) 11)
|
|
(send (self) 12)
|
|
(send (self) 13)
|
|
|
|
(gc)
|
|
|
|
(send (self) '(apa 129))
|
|
|
|
(gc)
|
|
|
|
(check (= (recv
|
|
( (bepa (? x)) 'bepa)
|
|
( (apa (? x)) x))
|
|
129))
|