blob: de293652b91f21a164af6df26b617de80d46fad5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(load "../common")
(let ((x (list* 1 2 3 4)))
(mtest
(set x (delcons x x)) (2 3 . 4)
(set x (delcons x x)) (3 . 4)
(set x (delcons x x)) 4
(set x (delcons x x)) 4))
(let ((x (list* 1 2 3 4 5)))
(mtest
(delcons (cdr x) x) (1 3 4 . 5)
(delcons (cddr x) x) (1 3 . 5)
(delcons (cdr x) x) (1 . 5)))
|