bldc/tests/test_merge_13.lisp

3 lines
59 B
Common Lisp

(check (eq (merge (lambda (x y) (< x y)) '(1) '()) '(1)))