summaryrefslogtreecommitdiffstats
path: root/tests/010/cons.tl
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)))