mirror of https://github.com/rusefi/bldc.git
15 lines
315 B
Common Lisp
15 lines
315 B
Common Lisp
|
|
(define arr (array-create type-byte 16))
|
|
|
|
(bufset-u32 arr 0 16777215)
|
|
(bufset-u32 arr 4 0xFFFFFFFF)
|
|
(bufset-u32 arr 8 10)
|
|
(bufset-u32 arr 12 0xDEADBEEF)
|
|
|
|
(and (= (bufget-u32 arr 0) 16777215)
|
|
(= (bufget-u32 arr 4) 0xFFFFFFFF)
|
|
(= (bufget-u32 arr 8) 10)
|
|
(= (bufget-u32 arr 12) 0xDEADBEEF))
|
|
|
|
|