mirror of https://github.com/rusefi/bldc.git
10 lines
228 B
Common Lisp
10 lines
228 B
Common Lisp
|
(define arr (array-create type-byte 10))
|
||
|
|
||
|
(bufset-u16 arr 0 65535)
|
||
|
(bufset-u16 arr 2 10)
|
||
|
(bufset-u16 arr 4 11700)
|
||
|
|
||
|
(and (= (bufget-u16 arr 0) 65535)
|
||
|
(= (bufget-u16 arr 2) 10)
|
||
|
(= (bufget-u16 arr 4) (mod 11700 65536)))
|