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_11.lisp

12 lines
202 B
Common Lisp
Raw Blame History

(defun f (x) "apa")
(check (= (match (f 0)
("bepa" 0)
("eepa" 1)
("kurt" 2)
("apa" 3)
("hej" 4))
3))
Reference in New Issue View Git Blame Copy Permalink