bldc/tests/test_setix_1.lisp

2 lines
79 B
Common Lisp

(check (eq (setix (list 1 2 3 4 5 6 7 8 9) 0 100) (list 100 2 3 4 5 6 7 8 9)))