mirror of https://github.com/rusefi/bldc.git
21 lines
354 B
Common Lisp
21 lines
354 B
Common Lisp
|
|
(define arr
|
|
[ 1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
1 2 3 4 5 6 7 8 9
|
|
])
|
|
|
|
(check (= (bufget-i8 arr 10) 2))
|