rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_match_0.lisp

7 lines
104 B
Common Lisp
Raw Blame History

(define f (lambda (x)
(match x ( (apa (? x)) (+ x 10))
( (? x) x))))
(= (f '(apa 10)) 20)
Reference in New Issue View Git Blame Copy Permalink