blob: 9e88b95561433eaefb325560f59e7e3f6779f023 (
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
|
(load "../common")
(mtest
[0 '(1 2 3)] 1
[1 '(1 2 3)] 2
[2 '(1 2 3)] 3)
(mtest
[0 "abc"] #\a
[1 "abc"] #\b
[2 "abc"] #\c)
(mtest
[0..1 '(1 2 3)] (1)
[1..3 '(1 2 3)] (2 3))
(mtest
[0..0 "abc"] ""
[0..2 "abc"] "ab"
[-1..: "abc"] "c")
(test (mapcar [callf list* 2 0 1 3..:] '((A B C X) (D E F Y) (G H I Z)))
((C A B X) (F D E Y) (I G H Z)))
(mtest
(set [1 1] 2) :error
(set [1 1..2] 2) :error
(set [1..2 1] 2) :error
(set [1..2 1..2] 2) :error
(let ((abc "abc")) (set [1..2 abc] "42") abc) "a42c"
(let ((abc "abc")) (set [1 abc] #\d) abc) "adc")
|
