30 |
(let ((result (nconc x y))) |
(let ((result (nconc x y))) |
31 |
(and |
(and |
32 |
(check-scaffold-copy y ycopy) |
(check-scaffold-copy y ycopy) |
33 |
(eq (cdddr x) y) |
(eqt (cdddr x) y) |
34 |
result)))) |
result)))) |
35 |
(a b c d e f)) |
(a b c d e f)) |
36 |
|
|
38 |
(let ((x (list 'a 'b 'c))) |
(let ((x (list 'a 'b 'c))) |
39 |
(nconc x x) |
(nconc x x) |
40 |
(and |
(and |
41 |
(eq (cdddr x) x) |
(eqt (cdddr x) x) |
42 |
(null (list-length x)))) |
(null (list-length x)))) |
43 |
t) |
t) |
44 |
|
|
48 |
(z (list 'i 'j 'k))) |
(z (list 'i 'j 'k))) |
49 |
(let ((result (nconc x y z 'foo))) |
(let ((result (nconc x y z 'foo))) |
50 |
(and |
(and |
51 |
(eq (nthcdr 3 x) y) |
(eqt (nthcdr 3 x) y) |
52 |
(eq (nthcdr 5 y) z) |
(eqt (nthcdr 5 y) z) |
53 |
(eq (nthcdr 3 z) 'foo) |
(eqt (nthcdr 3 z) 'foo) |
54 |
result))) |
result))) |
55 |
(a b c d e f g h i j k . foo)) |
(a b c d e f g h i j k . foo)) |
56 |
|
|
119 |
(and |
(and |
120 |
(check-scaffold-copy x xcopy) |
(check-scaffold-copy x xcopy) |
121 |
(check-scaffold-copy y ycopy) |
(check-scaffold-copy y ycopy) |
122 |
(eq (cdddr result) y) |
(eqt (cdddr result) y) |
123 |
result))) |
result))) |
124 |
(c b a d e f)) |
(c b a d e f)) |
125 |
|
|