bldc/tests/test_match_7.lisp

6 lines
100 B
Common Lisp

(check (eq (match (+ 1 2)
( 3 't)
( _ 'nil))
't))