Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |