bldc/tests/test_take_2.lisp

(define ls '(1 2 3 4 5 6 7 8 9 10))

(define sub-ls (take ls 100))

(check (eq sub-ls ls))