/[gcl]/gcl/tests/lists155.tst
ViewVC logotype

Diff of /gcl/tests/lists155.tst

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

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
1    
2    (MEMBER 'A
3           '((A)
4             (B)
5             (A)
6             (C)))
7    NIL
8    
9    (MEMBER 'A
10           '((A)
11             (B)
12             (A)
13             (C))
14           :KEY 'CAR)
15    ((A)
16     (B)
17     (A)
18     (C))
19    
20    (MEMBER-IF 'NUMBERP
21           '((A)
22             (B)
23             (3)
24             (C))
25           :KEY 'CAR)
26    ((3)
27     (C))
28    
29    (MEMBER-IF-NOT 'NUMBERP
30           '((8)
31             (A)
32             (B)
33             (3)
34             (C))
35           :KEY 'CAR)
36    ((A)
37     (B)
38     (3)
39     (C))
40    
41    (TAILP '(A B)
42           '(U A B))
43    NIL
44    
45    (TAILP (CDDR (SETQ XX
46                       '(U I A B)))
47           XX)
48    T
49    
50    (TAILP (CDDR (SETQ XX
51                       '(U I A B)))
52           XX)
53    T
54    
55    (ADJOIN 'A
56           '(A B C))
57    (A B C)
58    
59    (ADJOIN 'A
60           '((A)
61             B C)
62           :TEST 'EQUAL)
63    (A (A)
64       B C)
65    
66    (ADJOIN 'A
67           '((A)
68             B C)
69           :TEST 'EQUAL)
70    (A (A)
71       B C)
72    
73    (UNION '(A B C D)
74           '(A D I V))
75    #+XCL (V I A B C D)
76    #+CLISP (B C A D I V)
77    
78    (NUNION '(A B C D)
79           '(U I B A))
80    #+XCL (A B C D U I)
81    #+CLISP (C D U I B A)
82    
83    (NINTERSECTION '(A B C D)
84           '(C D E F G))
85    (C D)
86    
87    (NINTERSECTION '(A B C D)
88           '(C D E F G)
89           :TEST-NOT 'EQL)
90    (A B C D)
91    
92    (SET-DIFFERENCE '(A B C D E)
93           '(D B E))
94    #+XCL (C A)
95    #+CLISP (A C)
96    
97    (SET-DIFFERENCE '(AUTO ANTON BERTA BERLIN)
98           '(A)
99           :TEST
100           #'(LAMBDA (X Y)
101                    (EQL (ELT (SYMBOL-NAME X)
102                              1)
103                         (ELT (SYMBOL-NAME Y)
104                              1))))
105    #+XCL (BERLIN BERTA ANTON AUTO)
106    #-XCL ERROR
107    
108    (SET-DIFFERENCE '(ANTON BERTA AUTO BERLIN)
109           '(AMERILLA)
110           :TEST
111           #'(LAMBDA (X Y)
112                    (EQL (ELT (SYMBOL-NAME X)
113                              0)
114                         (ELT (SYMBOL-NAME Y)
115                              0))))
116    #+XCL (BERLIN BERTA)
117    #+CLISP (BERTA BERLIN)
118    
119    (NSET-DIFFERENCE '(A B C D)
120           '(I J C))
121    (A B D)
122    
123    (SET-EXCLUSIVE-OR '(A B C D)
124           '(C A I L))
125    #+XCL (D B L I)
126    #+CLISP (B D I L)
127    
128    (SET-EXCLUSIVE-OR '(ANTON ANNA EMIL)
129           '(BERTA AUTO AUGUST)
130           :TEST
131           #'(LAMBDA (X Y)
132                    (EQL (ELT (SYMBOL-NAME X)
133                              0)
134                         (ELT (SYMBOL-NAME Y)
135                              0))))
136    (EMIL BERTA)
137    
138    (NSET-EXCLUSIVE-OR '(A B C)
139           '(I A D C))
140    (B I D)
141    
142    (SUBSETP '(A B)
143           '(B U I A C D))
144    T
145    
146    (SUBSETP '(A B)
147           '(B U I C D))
148    NIL
149    
150    (SUBSETP '(A B)
151           '(B A U I C D))
152    T
153    
154    (SUBSETP '(A B)
155           '(A U I C D))
156    NIL
157    

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