summaryrefslogtreecommitdiff
path: root/tests/disabled/match.lisp
blob: 84503e0d715684a47b2e08d39b75768e34193c1f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(define f (x)
	(match x
		((1 2 3) "1-2-3")
		((1) "just 1")
		((1 ...) "1 something")
		((n ...) "number something")
		('v "something quoted")
		"dunno"))

(print (f '(1 2 3)))
(print (f '(1)))
(print (f '(1 2 3 4 5)))
(print (f '(2 3 4 5)))
(print (f ''"kaas"))
(print (f "kaas"))