15 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
16 |
(result (member 'c x))) |
(result (member 'c x))) |
17 |
(and |
(and |
18 |
(eq result (cddr x)) |
(eqt result (cddr x)) |
19 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
20 |
t) |
t) |
21 |
|
|
24 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
25 |
(result (member 'e x))) |
(result (member 'e x))) |
26 |
(and |
(and |
27 |
(eq result (cddddr x)) |
(eqt result (cddddr x)) |
28 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
29 |
t) |
t) |
30 |
|
|
33 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
34 |
(result (member 4 x))) |
(result (member 4 x))) |
35 |
(and |
(and |
36 |
(eq result (cdddr x)) |
(eqt result (cdddr x)) |
37 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
38 |
t) |
t) |
39 |
|
|
42 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
43 |
(result (member 9 x :key #'1+))) |
(result (member 9 x :key #'1+))) |
44 |
(and |
(and |
45 |
(eq result (cdddr x)) |
(eqt result (cdddr x)) |
46 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
47 |
t) |
t) |
48 |
|
|
51 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
52 |
(result (member '(c d) x :test #'equal))) |
(result (member '(c d) x :test #'equal))) |
53 |
(and |
(and |
54 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
55 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
56 |
t) |
t) |
57 |
|
|
60 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
61 |
(result (member 'c x :key #'car))) |
(result (member 'c x :key #'car))) |
62 |
(and |
(and |
63 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
64 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
65 |
t) |
t) |
66 |
|
|
69 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
70 |
(result (member 'c x :key #'car :test #'eq))) |
(result (member 'c x :key #'car :test #'eq))) |
71 |
(and |
(and |
72 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
73 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
74 |
t) |
t) |
75 |
|
|
78 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
79 |
(result (member 'c x :key #'car :test-not (complement #'eq)))) |
(result (member 'c x :key #'car :test-not (complement #'eq)))) |
80 |
(and |
(and |
81 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
82 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
83 |
t) |
t) |
84 |
|
|
87 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
88 |
(result (member 'c x :key #'car :test #'eql))) |
(result (member 'c x :key #'car :test #'eql))) |
89 |
(and |
(and |
90 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
91 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
92 |
t) |
t) |
93 |
|
|
96 |
(xcopy (make-scaffold-copy x)) |
(xcopy (make-scaffold-copy x)) |
97 |
(result (member (list 'd) x :key #'cdr :test #'equal))) |
(result (member (list 'd) x :key #'cdr :test #'equal))) |
98 |
(and |
(and |
99 |
(eq result (cdr x)) |
(eqt result (cdr x)) |
100 |
(check-scaffold-copy x xcopy))) |
(check-scaffold-copy x xcopy))) |
101 |
t) |
t) |
102 |
|
|