/[gcl]/gcl/ansi-tests/cons-test-13.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-13.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 15  Line 15 
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    
# Line 24  Line 24 
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    
# Line 33  Line 33 
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    
# Line 42  Line 42 
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    
# Line 51  Line 51 
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    
# Line 60  Line 60 
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    
# Line 69  Line 69 
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    
# Line 78  Line 78 
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    
# Line 87  Line 87 
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    
# Line 96  Line 96 
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26