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

Diff of /gcl/tests/lists156.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    (ACONS 'A 'B NIL)
3    ((A . B))
4    
5    (ACONS 'A 'B
6           '((C . D)))
7    ((A . B)
8     (C . D))
9    
10    (PAIRLIS '(A B C)
11           '(1 2))
12    #+XCL
13    ((B . 2)
14     (A . 1))
15    #-XCL
16    ERROR
17    
18    (PAIRLIS '(A B C)
19           '(1 2 3))
20    ((C . 3)
21     (B . 2)
22     (A . 1))
23    
24    (ASSOC 'A
25           '((B C)
26             (A U)
27             (A I)))
28    (A U)
29    
30    (ASSOC 'A
31           '((B C)
32             ((A)
33              U)
34             (A I)))
35    (A I)
36    
37    (ASSOC 'A
38           '((B C)
39             ((A)
40              U)
41             (A I))
42           :KEY
43           #'(LAMBDA (X)
44                    (IF (LISTP X)
45                        (CAR X))))
46    ((A)
47     U)
48    
49    (ASSOC 'A
50           '((B C)
51             A
52             ((A)
53              U)
54             (A I))
55           :KEY
56           #'(LAMBDA (X)
57                    (IF (LISTP X)
58                        (CAR X))))
59    ((A)
60     U)
61    
62    (ASSOC 'A
63           '((B C)
64             A
65             ((A)
66              U)
67             (A I))
68           :KEY
69           #'(LAMBDA (X)
70                    (IF (ATOM X)
71                        X)))
72    (A I)
73    
74    (ASSOC 'A
75           '((B C)
76             A
77             ((A)
78              U)
79             (A I))
80           :TEST
81           #'(LAMBDA (X Y)
82                    (IF (LISTP Y)
83                        (EQL (CAR Y)
84                             X))))
85    ((A)
86     U)
87    
88    (ASSOC 'A
89           '((B C)
90             A
91             ((A)
92              U)
93             (A I))
94           :TEST
95           #'(LAMBDA (X Y)
96                    (IF (ATOM Y)
97                        (EQL Y X))))
98    (A I)
99    
100    (ASSOC 'A
101           '((B C)
102             A
103             ((A)
104              U)
105             (A I))
106           :TEST-NOT
107           #'(LAMBDA (X Y)
108                    (IF (ATOM Y)
109                        (EQL Y X))))
110    (B C)
111    
112    (ASSOC-IF 'NUMBERP
113           '((A . 3)
114             (3 . A)))
115    (3 . A)
116    
117    (ASSOC-IF 'SYMBOLP
118           '((A . 3)
119             (3 . A)))
120    (A . 3)
121    
122    (ASSOC-IF-NOT 'SYMBOLP
123           '((A . 3)
124             (3 . A)))
125    (3 . A)
126    
127    (ASSOC-IF-NOT 'NUMBERP
128           '((A . 3)
129             (3 . A)))
130    (A . 3)
131    
132    (RASSOC 'A
133           '((1 . B)
134             (2 . A)))
135    (2 . A)
136    
137    (RASSOC-IF 'SYMBOLP
138           '((1 . B)
139             (2 . A)))
140    (1 . B)
141    
142    (RASSOC-IF 'SYMBOLP
143           '((1 . 3)
144             (2 . A)))
145    (2 . A)
146    
147    (RASSOC-IF-NOT 'SYMBOLP
148           '((1 . 3)
149             (2 . A)))
150    (1 . 3)
151    

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