blob: e2f8baf278d55c489042f05269e826dec62ec09d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(load "../common")
(defvarl v :v)
(defsymacro u (identity :u))
(mtest
[(lambda (:key))] nil
[(lambda (:key a))] :error
[(lambda (:key a) a) 1] 1)
(mtest
[(lambda (:key -- (a v)) a)] :v
[(lambda (:key -- (a 'v)) a)] v
[(lambda (:key -- (a v a-p)) (list a a-p))] (:v nil)
[(lambda (:key -- (a 'v a-p)) (list a a-p))] (v nil))
(mtest
[(lambda (:key -- (a v)) a) :a 1] 1
[(lambda (:key -- (a 'v)) a) :a 1] 1
[(lambda (:key -- (a v a-p)) (list a a-p)) :a 1] (1 t)
[(lambda (:key -- (a 'v a-p)) (list a a-p)) :a 1] (1 t))
(mtest
[(lambda (:key -- (a v) (b u)) (list a b)) :a 1] (1 :u)
[(lambda (:key -- (a 'v) (b 'u)) (list a b)) :b 1] (v 1)
[(lambda (:key -- (a v a-p) (b u b-p)) (list a a-p b b-p)) :a 1] (1 t :u nil)
[(lambda (:key -- (a v a-p) (b u b-p)) (list a a-p b b-p)) :b 1] (:v nil 1 t))
(test
[(lambda (:key -- (a v) . r) (list a r)) :a 1] (1 (:a 1)))
(defun key-place (:key -- x y (s nil s-p)) ^(,x ,y ,s ,s-p))
(defset key-place (:key -- x y) s
^(key-place :x ,x :y ,y :s ,s))
(test
(set (key-place :x 3 :y 4) 42) (3 4 42 t))
|
