bldc/tests/test_drop_3.lisp

7 lines
93 B
Common Lisp

(define ls '(1 2 3 4 5 6 7 8 9 10))
(define sub-ls (drop ls 100))
(check (eq sub-ls nil))