mirror of https://github.com/rusefi/bldc.git
21 lines
347 B
Common Lisp
21 lines
347 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
|
|
])
|
|
|
|
(= (array-read arr 10) 2)
|