rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_flat_unflat_1.lisp

5 lines
88 B
Common Lisp
Raw Blame History

(define a (flatten '(1 2u32 3i32 3.0)))
(check (eq (unflatten a) '(1 2u32 3i32 3.0)))
Reference in New Issue View Git Blame Copy Permalink