2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "listlib.h" |
#include "listlib.h" |
4 |
void init_listlib(){do_init(VV);} |
void init_listlib(){do_init(VV);} |
5 |
/* local entry for function UNION */ |
/* function definition for KEY-LIST */ |
6 |
|
|
7 |
static object LI1(V2,V1,va_alist) |
static void L1() |
8 |
object V2,V1; |
{register object *base=vs_base; |
9 |
va_dcl |
register object *sup=base+VM1; VC1 |
10 |
{ |
vs_check; |
11 |
va_list ap; |
{object V1; |
12 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
object V2; |
13 |
{object V3; |
object V3; |
14 |
register object V4; |
V1=(base[0]); |
15 |
register object V5; |
V2=(base[1]); |
16 |
Vcs[0]=Vcs[0]; |
V3=(base[2]); |
17 |
va_start(ap); |
vs_top=sup; |
18 |
V3= V2; |
goto TTL; |
19 |
V4= V1; |
TTL:; |
20 |
narg= narg - 2; |
{register object V4; |
21 |
V6 = list_vector(narg,ap); |
V4= Cnil; |
22 |
V5= V6; |
if(((V1))==Cnil){ |
23 |
{register object V7; |
goto T2;} |
24 |
register object V8; |
V4= make_cons(VV[0],(V4)); |
25 |
V7= Cnil; |
V4= make_cons(V1,(V4)); |
26 |
V8= Cnil; |
goto T2; |
27 |
{register object V9; |
T2:; |
28 |
V9= (V3); |
if(((V2))==Cnil){ |
|
goto T4; |
|
|
T4:; |
|
|
if(((V9))!=Cnil){ |
|
|
goto T5;} |
|
|
if(((V8))==Cnil){ |
|
29 |
goto T8;} |
goto T8;} |
30 |
((V8))->c.c_cdr = (V4); |
V4= make_cons(VV[1],(V4)); |
31 |
|
V4= make_cons(V2,(V4)); |
32 |
goto T8; |
goto T8; |
33 |
T8:; |
T8:; |
34 |
if((V7)!=Cnil){ |
if(((V3))==Cnil){ |
35 |
{object V10 = (V7); |
goto T14;} |
36 |
VMR1(V10)}} |
V4= make_cons(VV[2],(V4)); |
37 |
{object V11 = (V4); |
V4= make_cons(V3,(V4)); |
38 |
VMR1(V11)} |
goto T14; |
39 |
goto T5; |
T14:; |
40 |
T5:; |
base[3]= nreverse((V4)); |
41 |
if(!(type_of((V9))==t_cons)){ |
vs_top=(vs_base=base+3)+1; |
42 |
goto T13;} |
return;} |
|
goto T12; |
|
|
goto T13; |
|
|
T13:; |
|
|
base[0]= VV[0]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T12; |
|
|
T12:; |
|
|
base[0]=VV[11]->s.s_gfdef; |
|
|
base[1]= CMPcar((V9)); |
|
|
base[2]= (V4); |
|
|
{object V12; |
|
|
V12= (V5); |
|
|
vs_top=base+3; |
|
|
while(V12!=Cnil) |
|
|
{vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;} |
|
|
vs_base=base+1;} |
|
|
(void) (*Lnk11)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T16;} |
|
|
if(((V8))==Cnil){ |
|
|
goto T23;} |
|
|
V13= make_cons(CMPcar((V9)),Cnil); |
|
|
((V8))->c.c_cdr = /* INLINE-ARGS */V13; |
|
|
V8= CMPcdr((V8)); |
|
|
goto T16; |
|
|
goto T23; |
|
|
T23:; |
|
|
V7= make_cons(CMPcar((V9)),Cnil); |
|
|
V8= (V7); |
|
|
goto T16; |
|
|
T16:; |
|
|
V9= CMPcdr((V9)); |
|
|
goto T4;}} |
|
|
va_end(ap); |
|
|
base[0]=base[0]; |
|
|
return Cnil;} |
|
43 |
} |
} |
44 |
/* local entry for function NUNION */ |
} |
45 |
|
/* local entry for function UNION */ |
46 |
|
|
47 |
static object LI2(V15,V14,va_alist) |
static object LI2(V12,V11,va_alist) |
48 |
object V15,V14; |
object V12,V11; |
49 |
va_dcl |
va_dcl |
50 |
{ |
{ |
51 |
va_list ap; |
va_list ap; |
52 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
53 |
{object V16; |
{object V13; |
54 |
|
register object V14; |
55 |
|
register object V15; |
56 |
|
register object V16; |
57 |
register object V17; |
register object V17; |
|
register object V18; |
|
58 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
59 |
va_start(ap); |
va_start(ap); |
60 |
V16= V15; |
V13= V12; |
61 |
V17= V14; |
V14= V11; |
62 |
narg= narg - 2; |
narg= narg - 2; |
63 |
V19 = list_vector(narg,ap); |
{ |
64 |
V18= V19; |
parse_key_new(narg,Vcs +2,(struct key *)&LI2key,ap); |
65 |
|
V15=(Vcs[2]); |
66 |
|
V16=(Vcs[3]); |
67 |
|
V17=(Vcs[4]); |
68 |
|
{register object V18; |
69 |
|
register object V19; |
70 |
|
V18= Cnil; |
71 |
|
V19= Cnil; |
72 |
{register object V20; |
{register object V20; |
73 |
register object V21; |
V20= (V13); |
74 |
V20= Cnil; |
goto T23; |
75 |
V21= Cnil; |
T23:; |
76 |
{register object V22; |
if(((V20))!=Cnil){ |
77 |
V22= (V16); |
goto T24;} |
78 |
goto T36; |
if(((V19))==Cnil){ |
79 |
T36:; |
goto T27;} |
80 |
if(((V22))!=Cnil){ |
((V19))->c.c_cdr = (V14); |
81 |
goto T37;} |
goto T27; |
82 |
if(((V21))==Cnil){ |
T27:; |
83 |
goto T40;} |
if((V18)!=Cnil){ |
84 |
((V21))->c.c_cdr = (V17); |
{object V21 = (V18); |
85 |
goto T40; |
VMR2(V21)}} |
86 |
T40:; |
{object V22 = (V14); |
87 |
if((V20)!=Cnil){ |
VMR2(V22)} |
88 |
{object V23 = (V20); |
goto T24; |
89 |
VMR2(V23)}} |
T24:; |
90 |
{object V24 = (V17); |
if(!(type_of((V20))==t_cons)){ |
91 |
VMR2(V24)} |
goto T32;} |
92 |
goto T37; |
goto T31; |
93 |
T37:; |
goto T32; |
94 |
if(!(type_of((V22))==t_cons)){ |
T32:; |
95 |
goto T45;} |
base[0]= VV[3]; |
|
goto T44; |
|
|
goto T45; |
|
|
T45:; |
|
|
base[0]= VV[1]; |
|
96 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
97 |
Lerror(); |
Lerror(); |
98 |
vs_top=sup; |
vs_top=sup; |
99 |
goto T44; |
goto T31; |
100 |
T44:; |
T31:; |
101 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
102 |
base[1]= CMPcar((V22)); |
base[1]= CMPcar((V20)); |
103 |
base[2]= (V17); |
base[2]= (V14); |
104 |
{object V25; |
{object V23; |
105 |
V25= (V18); |
base[3]= (V17); |
106 |
|
base[4]= (V15); |
107 |
|
base[5]= (V16); |
108 |
|
vs_top=(vs_base=base+3)+3; |
109 |
|
(void) (*Lnk15)(); |
110 |
|
vs_top=sup; |
111 |
|
V23= vs_base[0]; |
112 |
vs_top=base+3; |
vs_top=base+3; |
113 |
while(V25!=Cnil) |
while(V23!=Cnil) |
114 |
{vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;} |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
115 |
vs_base=base+1;} |
vs_base=base+1;} |
116 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
117 |
vs_top=sup; |
vs_top=sup; |
118 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
119 |
goto T48;} |
goto T35;} |
120 |
if(((V21))==Cnil){ |
if(((V19))==Cnil){ |
121 |
goto T56;} |
goto T45;} |
122 |
((V21))->c.c_cdr = (V22); |
V24= make_cons(CMPcar((V20)),Cnil); |
123 |
goto T54; |
((V19))->c.c_cdr = /* INLINE-ARGS */V24; |
124 |
goto T56; |
V19= CMPcdr((V19)); |
125 |
T56:; |
goto T35; |
126 |
V20= (V22); |
goto T45; |
127 |
goto T54; |
T45:; |
128 |
T54:; |
V18= make_cons(CMPcar((V20)),Cnil); |
129 |
V21= (V22); |
V19= (V18); |
130 |
goto T48; |
goto T35; |
131 |
T48:; |
T35:; |
132 |
V22= CMPcdr((V22)); |
V20= CMPcdr((V20)); |
133 |
goto T36;}} |
goto T23;}} |
134 |
va_end(ap); |
va_end(ap); |
135 |
base[0]=base[0]; |
base[0]=base[0]; |
136 |
return Cnil;} |
return Cnil;} |
137 |
} |
}} |
138 |
/* local entry for function INTERSECTION */ |
/* local entry for function NUNION */ |
139 |
|
|
140 |
static object LI3(V27,V26,va_alist) |
static object LI3(V26,V25,va_alist) |
141 |
object V27,V26; |
object V26,V25; |
142 |
va_dcl |
va_dcl |
143 |
{ |
{ |
144 |
va_list ap; |
va_list ap; |
145 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
146 |
{object V28; |
{object V27; |
147 |
|
register object V28; |
148 |
register object V29; |
register object V29; |
149 |
register object V30; |
register object V30; |
150 |
|
register object V31; |
151 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
152 |
va_start(ap); |
va_start(ap); |
153 |
V28= V27; |
V27= V26; |
154 |
V29= V26; |
V28= V25; |
155 |
narg= narg - 2; |
narg= narg - 2; |
156 |
V31 = list_vector(narg,ap); |
{ |
157 |
V30= V31; |
parse_key_new(narg,Vcs +2,(struct key *)&LI3key,ap); |
158 |
|
V29=(Vcs[2]); |
159 |
|
V30=(Vcs[3]); |
160 |
|
V31=(Vcs[4]); |
161 |
{register object V32; |
{register object V32; |
162 |
|
register object V33; |
163 |
V32= Cnil; |
V32= Cnil; |
164 |
{register object V33; |
V33= Cnil; |
165 |
V33= (V28); |
{register object V34; |
166 |
goto T65; |
V34= (V27); |
167 |
T65:; |
goto T58; |
168 |
if(((V33))!=Cnil){ |
T58:; |
169 |
goto T66;} |
if(((V34))!=Cnil){ |
170 |
{object V34 = (V32); |
goto T59;} |
171 |
VMR3(V34)} |
if(((V33))==Cnil){ |
172 |
goto T66; |
goto T62;} |
173 |
T66:; |
((V33))->c.c_cdr = (V28); |
174 |
if(!(type_of((V33))==t_cons)){ |
goto T62; |
175 |
goto T71;} |
T62:; |
176 |
goto T70; |
if((V32)!=Cnil){ |
177 |
goto T71; |
{object V35 = (V32); |
178 |
T71:; |
VMR3(V35)}} |
179 |
base[0]= VV[2]; |
{object V36 = (V28); |
180 |
|
VMR3(V36)} |
181 |
|
goto T59; |
182 |
|
T59:; |
183 |
|
if(!(type_of((V34))==t_cons)){ |
184 |
|
goto T67;} |
185 |
|
goto T66; |
186 |
|
goto T67; |
187 |
|
T67:; |
188 |
|
base[0]= VV[4]; |
189 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
190 |
Lerror(); |
Lerror(); |
191 |
vs_top=sup; |
vs_top=sup; |
192 |
goto T70; |
goto T66; |
193 |
T70:; |
T66:; |
194 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
195 |
base[1]= CMPcar((V33)); |
base[1]= CMPcar((V34)); |
196 |
base[2]= (V29); |
base[2]= (V28); |
197 |
{object V35; |
{object V37; |
198 |
V35= (V30); |
base[3]= (V31); |
199 |
|
base[4]= (V29); |
200 |
|
base[5]= (V30); |
201 |
|
vs_top=(vs_base=base+3)+3; |
202 |
|
(void) (*Lnk15)(); |
203 |
|
vs_top=sup; |
204 |
|
V37= vs_base[0]; |
205 |
vs_top=base+3; |
vs_top=base+3; |
206 |
while(V35!=Cnil) |
while(V37!=Cnil) |
207 |
{vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;} |
{vs_push((V37)->c.c_car);V37=(V37)->c.c_cdr;} |
208 |
vs_base=base+1;} |
vs_base=base+1;} |
209 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
210 |
vs_top=sup; |
vs_top=sup; |
211 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])!=Cnil){ |
212 |
goto T74;} |
goto T70;} |
213 |
V32= make_cons(CMPcar((V33)),(V32)); |
if(((V33))==Cnil){ |
214 |
goto T74; |
goto T81;} |
215 |
T74:; |
((V33))->c.c_cdr = (V34); |
216 |
V33= CMPcdr((V33)); |
goto T79; |
217 |
goto T65;}} |
goto T81; |
218 |
|
T81:; |
219 |
|
V32= (V34); |
220 |
|
goto T79; |
221 |
|
T79:; |
222 |
|
V33= (V34); |
223 |
|
goto T70; |
224 |
|
T70:; |
225 |
|
V34= CMPcdr((V34)); |
226 |
|
goto T58;}} |
227 |
va_end(ap); |
va_end(ap); |
228 |
base[0]=base[0]; |
base[0]=base[0]; |
229 |
return Cnil;} |
return Cnil;} |
230 |
} |
}} |
231 |
/* local entry for function NINTERSECTION */ |
/* local entry for function INTERSECTION */ |
232 |
|
|
233 |
static object LI4(V37,V36,va_alist) |
static object LI4(V39,V38,va_alist) |
234 |
object V37,V36; |
object V39,V38; |
235 |
va_dcl |
va_dcl |
236 |
{ |
{ |
237 |
va_list ap; |
va_list ap; |
238 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
239 |
{object V38; |
{object V40; |
240 |
register object V39; |
register object V41; |
241 |
register object V40; |
register object V42; |
242 |
|
register object V43; |
243 |
|
register object V44; |
244 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
245 |
va_start(ap); |
va_start(ap); |
246 |
V38= V37; |
V40= V39; |
247 |
V39= V36; |
V41= V38; |
248 |
narg= narg - 2; |
narg= narg - 2; |
249 |
V41 = list_vector(narg,ap); |
{ |
250 |
V40= V41; |
parse_key_new(narg,Vcs +2,(struct key *)&LI4key,ap); |
251 |
{register object V42; |
V42=(Vcs[2]); |
252 |
register object V43; |
V43=(Vcs[3]); |
253 |
V42= Cnil; |
V44=(Vcs[4]); |
254 |
V43= Cnil; |
{register object V45; |
255 |
{register object V44; |
V45= Cnil; |
256 |
V44= (V38); |
{register object V46; |
257 |
goto T87; |
V46= (V40); |
258 |
T87:; |
goto T90; |
259 |
if(((V44))!=Cnil){ |
T90:; |
260 |
goto T88;} |
if(((V46))!=Cnil){ |
|
if(((V43))==Cnil){ |
|
261 |
goto T91;} |
goto T91;} |
262 |
((V43))->c.c_cdr = Cnil; |
{object V47 = (V45); |
263 |
|
VMR4(V47)} |
264 |
goto T91; |
goto T91; |
265 |
T91:; |
T91:; |
266 |
{object V45 = (V42); |
if(!(type_of((V46))==t_cons)){ |
|
VMR4(V45)} |
|
|
goto T88; |
|
|
T88:; |
|
|
if(!(type_of((V44))==t_cons)){ |
|
267 |
goto T96;} |
goto T96;} |
268 |
goto T95; |
goto T95; |
269 |
goto T96; |
goto T96; |
270 |
T96:; |
T96:; |
271 |
base[0]= VV[3]; |
base[0]= VV[5]; |
272 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
273 |
Lerror(); |
Lerror(); |
274 |
vs_top=sup; |
vs_top=sup; |
275 |
goto T95; |
goto T95; |
276 |
T95:; |
T95:; |
277 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
278 |
base[1]= CMPcar((V44)); |
base[1]= CMPcar((V46)); |
279 |
base[2]= (V39); |
base[2]= (V41); |
280 |
{object V46; |
{object V48; |
281 |
V46= (V40); |
base[3]= (V44); |
282 |
|
base[4]= (V42); |
283 |
|
base[5]= (V43); |
284 |
|
vs_top=(vs_base=base+3)+3; |
285 |
|
(void) (*Lnk15)(); |
286 |
|
vs_top=sup; |
287 |
|
V48= vs_base[0]; |
288 |
vs_top=base+3; |
vs_top=base+3; |
289 |
while(V46!=Cnil) |
while(V48!=Cnil) |
290 |
{vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;} |
{vs_push((V48)->c.c_car);V48=(V48)->c.c_cdr;} |
291 |
vs_base=base+1;} |
vs_base=base+1;} |
292 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
293 |
vs_top=sup; |
vs_top=sup; |
294 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
295 |
goto T99;} |
goto T99;} |
296 |
if(((V43))==Cnil){ |
V45= make_cons(CMPcar((V46)),(V45)); |
|
goto T107;} |
|
|
((V43))->c.c_cdr = (V44); |
|
|
goto T105; |
|
|
goto T107; |
|
|
T107:; |
|
|
V42= (V44); |
|
|
goto T105; |
|
|
T105:; |
|
|
V43= (V44); |
|
297 |
goto T99; |
goto T99; |
298 |
T99:; |
T99:; |
299 |
V44= CMPcdr((V44)); |
V46= CMPcdr((V46)); |
300 |
goto T87;}} |
goto T90;}} |
301 |
va_end(ap); |
va_end(ap); |
302 |
base[0]=base[0]; |
base[0]=base[0]; |
303 |
return Cnil;} |
return Cnil;} |
304 |
} |
}} |
305 |
/* local entry for function SET-DIFFERENCE */ |
/* local entry for function NINTERSECTION */ |
306 |
|
|
307 |
static object LI5(V48,V47,va_alist) |
static object LI5(V50,V49,va_alist) |
308 |
object V48,V47; |
object V50,V49; |
309 |
va_dcl |
va_dcl |
310 |
{ |
{ |
311 |
va_list ap; |
va_list ap; |
312 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
313 |
{object V49; |
{object V51; |
314 |
register object V50; |
register object V52; |
315 |
register object V51; |
register object V53; |
316 |
|
register object V54; |
317 |
|
register object V55; |
318 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
319 |
va_start(ap); |
va_start(ap); |
320 |
V49= V48; |
V51= V50; |
321 |
V50= V47; |
V52= V49; |
322 |
narg= narg - 2; |
narg= narg - 2; |
323 |
V52 = list_vector(narg,ap); |
{ |
324 |
V51= V52; |
parse_key_new(narg,Vcs +2,(struct key *)&LI5key,ap); |
325 |
{register object V53; |
V53=(Vcs[2]); |
326 |
V53= Cnil; |
V54=(Vcs[3]); |
327 |
{register object V54; |
V55=(Vcs[4]); |
328 |
V54= (V49); |
{register object V56; |
329 |
|
register object V57; |
330 |
|
V56= Cnil; |
331 |
|
V57= Cnil; |
332 |
|
{register object V58; |
333 |
|
V58= (V51); |
334 |
|
goto T115; |
335 |
|
T115:; |
336 |
|
if(((V58))!=Cnil){ |
337 |
|
goto T116;} |
338 |
|
if(((V57))==Cnil){ |
339 |
|
goto T119;} |
340 |
|
((V57))->c.c_cdr = Cnil; |
341 |
|
goto T119; |
342 |
|
T119:; |
343 |
|
{object V59 = (V56); |
344 |
|
VMR5(V59)} |
345 |
goto T116; |
goto T116; |
346 |
T116:; |
T116:; |
347 |
if(((V54))!=Cnil){ |
if(!(type_of((V58))==t_cons)){ |
348 |
goto T117;} |
goto T124;} |
349 |
{object V55 = (V53); |
goto T123; |
350 |
VMR5(V55)} |
goto T124; |
351 |
goto T117; |
T124:; |
352 |
T117:; |
base[0]= VV[6]; |
|
if(!(type_of((V54))==t_cons)){ |
|
|
goto T122;} |
|
|
goto T121; |
|
|
goto T122; |
|
|
T122:; |
|
|
base[0]= VV[4]; |
|
353 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
354 |
Lerror(); |
Lerror(); |
355 |
vs_top=sup; |
vs_top=sup; |
356 |
goto T121; |
goto T123; |
357 |
T121:; |
T123:; |
358 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
359 |
base[1]= CMPcar((V54)); |
base[1]= CMPcar((V58)); |
360 |
base[2]= (V50); |
base[2]= (V52); |
361 |
{object V56; |
{object V60; |
362 |
V56= (V51); |
base[3]= (V55); |
363 |
|
base[4]= (V53); |
364 |
|
base[5]= (V54); |
365 |
|
vs_top=(vs_base=base+3)+3; |
366 |
|
(void) (*Lnk15)(); |
367 |
|
vs_top=sup; |
368 |
|
V60= vs_base[0]; |
369 |
vs_top=base+3; |
vs_top=base+3; |
370 |
while(V56!=Cnil) |
while(V60!=Cnil) |
371 |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
{vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;} |
372 |
vs_base=base+1;} |
vs_base=base+1;} |
373 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
374 |
|
vs_top=sup; |
375 |
|
if((vs_base[0])==Cnil){ |
376 |
|
goto T127;} |
377 |
|
if(((V57))==Cnil){ |
378 |
|
goto T138;} |
379 |
|
((V57))->c.c_cdr = (V58); |
380 |
|
goto T136; |
381 |
|
goto T138; |
382 |
|
T138:; |
383 |
|
V56= (V58); |
384 |
|
goto T136; |
385 |
|
T136:; |
386 |
|
V57= (V58); |
387 |
|
goto T127; |
388 |
|
T127:; |
389 |
|
V58= CMPcdr((V58)); |
390 |
|
goto T115;}} |
391 |
|
va_end(ap); |
392 |
|
base[0]=base[0]; |
393 |
|
return Cnil;} |
394 |
|
}} |
395 |
|
/* local entry for function SET-DIFFERENCE */ |
396 |
|
|
397 |
|
static object LI6(V62,V61,va_alist) |
398 |
|
object V62,V61; |
399 |
|
va_dcl |
400 |
|
{ |
401 |
|
va_list ap; |
402 |
|
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
403 |
|
{object V63; |
404 |
|
register object V64; |
405 |
|
register object V65; |
406 |
|
register object V66; |
407 |
|
register object V67; |
408 |
|
Vcs[0]=Vcs[0]; |
409 |
|
va_start(ap); |
410 |
|
V63= V62; |
411 |
|
V64= V61; |
412 |
|
narg= narg - 2; |
413 |
|
{ |
414 |
|
parse_key_new(narg,Vcs +2,(struct key *)&LI6key,ap); |
415 |
|
V65=(Vcs[2]); |
416 |
|
V66=(Vcs[3]); |
417 |
|
V67=(Vcs[4]); |
418 |
|
{register object V68; |
419 |
|
V68= Cnil; |
420 |
|
{register object V69; |
421 |
|
V69= (V63); |
422 |
|
goto T147; |
423 |
|
T147:; |
424 |
|
if(((V69))!=Cnil){ |
425 |
|
goto T148;} |
426 |
|
{object V70 = (V68); |
427 |
|
VMR6(V70)} |
428 |
|
goto T148; |
429 |
|
T148:; |
430 |
|
if(!(type_of((V69))==t_cons)){ |
431 |
|
goto T153;} |
432 |
|
goto T152; |
433 |
|
goto T153; |
434 |
|
T153:; |
435 |
|
base[0]= VV[7]; |
436 |
|
vs_top=(vs_base=base+0)+1; |
437 |
|
Lerror(); |
438 |
|
vs_top=sup; |
439 |
|
goto T152; |
440 |
|
T152:; |
441 |
|
base[0]=VV[14]->s.s_gfdef; |
442 |
|
base[1]= CMPcar((V69)); |
443 |
|
base[2]= (V64); |
444 |
|
{object V71; |
445 |
|
base[3]= (V67); |
446 |
|
base[4]= (V65); |
447 |
|
base[5]= (V66); |
448 |
|
vs_top=(vs_base=base+3)+3; |
449 |
|
(void) (*Lnk15)(); |
450 |
|
vs_top=sup; |
451 |
|
V71= vs_base[0]; |
452 |
|
vs_top=base+3; |
453 |
|
while(V71!=Cnil) |
454 |
|
{vs_push((V71)->c.c_car);V71=(V71)->c.c_cdr;} |
455 |
|
vs_base=base+1;} |
456 |
|
(void) (*Lnk14)(); |
457 |
vs_top=sup; |
vs_top=sup; |
458 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
459 |
goto T125;} |
goto T156;} |
460 |
V53= make_cons(CMPcar((V54)),(V53)); |
V68= make_cons(CMPcar((V69)),(V68)); |
461 |
goto T125; |
goto T156; |
462 |
T125:; |
T156:; |
463 |
V54= CMPcdr((V54)); |
V69= CMPcdr((V69)); |
464 |
goto T116;}} |
goto T147;}} |
465 |
va_end(ap); |
va_end(ap); |
466 |
base[0]=base[0]; |
base[0]=base[0]; |
467 |
return Cnil;} |
return Cnil;} |
468 |
} |
}} |
469 |
/* function definition for SET-DIFFERENCE-REV */ |
/* function definition for SET-DIFFERENCE-REV */ |
470 |
|
|
471 |
static void L6() |
static void L7() |
472 |
{register object *base=vs_base; |
{register object *base=vs_base; |
473 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM7; VC7 |
474 |
vs_check; |
vs_check; |
475 |
{object V57; |
{object V72; |
476 |
register object V58; |
register object V73; |
477 |
register object V59; |
register object V74; |
478 |
V57=(base[0]); |
register object V75; |
479 |
V58=(base[1]); |
register object V76; |
480 |
vs_base=vs_base+2; |
parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]); |
481 |
vs_top[0]=Cnil; |
V72=(base[0]); |
482 |
{object *p=vs_top; |
V73=(base[1]); |
483 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
vs_top=sup; |
484 |
V59=(base[2]); |
V74=(base[2]); |
485 |
vs_top=sup; |
V75=(base[3]); |
486 |
{register object V60; |
V76=(base[4]); |
487 |
V60= Cnil; |
{register object V77; |
488 |
{register object V61; |
V77= Cnil; |
489 |
V61= (V57); |
{register object V78; |
490 |
goto T137; |
V78= (V72); |
491 |
T137:; |
goto T171; |
492 |
if(((V61))!=Cnil){ |
T171:; |
493 |
goto T138;} |
if(((V78))!=Cnil){ |
494 |
base[3]= (V60); |
goto T172;} |
495 |
vs_top=(vs_base=base+3)+1; |
base[8]= (V77); |
496 |
|
vs_top=(vs_base=base+8)+1; |
497 |
return; |
return; |
498 |
goto T138; |
goto T172; |
499 |
T138:; |
T172:; |
500 |
if(!(type_of((V61))==t_cons)){ |
if(!(type_of((V78))==t_cons)){ |
501 |
goto T143;} |
goto T177;} |
502 |
goto T142; |
goto T176; |
503 |
goto T143; |
goto T177; |
504 |
T143:; |
T177:; |
505 |
base[3]= VV[5]; |
base[8]= VV[8]; |
506 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+8)+1; |
507 |
Lerror(); |
Lerror(); |
508 |
vs_top=sup; |
vs_top=sup; |
509 |
goto T142; |
goto T176; |
510 |
T142:; |
T176:; |
511 |
base[3]=VV[11]->s.s_gfdef; |
base[8]=VV[14]->s.s_gfdef; |
512 |
base[4]= CMPcar((V61)); |
base[9]= CMPcar((V78)); |
513 |
base[5]= (V58); |
base[10]= (V73); |
514 |
base[6]= VV[6]; |
base[11]= VV[9]; |
515 |
base[7]= Ct; |
base[12]= Ct; |
516 |
{object V62; |
{object V79; |
517 |
V62= (V59); |
base[13]= (V76); |
518 |
vs_top=base+8; |
base[14]= (V74); |
519 |
while(V62!=Cnil) |
base[15]= (V75); |
520 |
{vs_push((V62)->c.c_car);V62=(V62)->c.c_cdr;} |
vs_top=(vs_base=base+13)+3; |
521 |
vs_base=base+4;} |
(void) (*Lnk15)(); |
522 |
(void) (*Lnk11)(); |
vs_top=sup; |
523 |
|
V79= vs_base[0]; |
524 |
|
vs_top=base+13; |
525 |
|
while(V79!=Cnil) |
526 |
|
{vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;} |
527 |
|
vs_base=base+9;} |
528 |
|
(void) (*Lnk14)(); |
529 |
vs_top=sup; |
vs_top=sup; |
530 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
531 |
goto T146;} |
goto T180;} |
532 |
V60= make_cons(CMPcar((V61)),(V60)); |
V77= make_cons(CMPcar((V78)),(V77)); |
533 |
goto T146; |
goto T180; |
534 |
T146:; |
T180:; |
535 |
V61= CMPcdr((V61)); |
V78= CMPcdr((V78)); |
536 |
goto T137;}} |
goto T171;}} |
537 |
} |
} |
538 |
} |
} |
539 |
/* local entry for function NSET-DIFFERENCE */ |
/* local entry for function NSET-DIFFERENCE */ |
540 |
|
|
541 |
static object LI7(V64,V63,va_alist) |
static object LI8(V81,V80,va_alist) |
542 |
object V64,V63; |
object V81,V80; |
543 |
va_dcl |
va_dcl |
544 |
{ |
{ |
545 |
va_list ap; |
va_list ap; |
546 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
547 |
{object V65; |
{object V82; |
548 |
register object V66; |
register object V83; |
549 |
register object V67; |
register object V84; |
550 |
|
register object V85; |
551 |
|
register object V86; |
552 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
553 |
va_start(ap); |
va_start(ap); |
554 |
V65= V64; |
V82= V81; |
555 |
V66= V63; |
V83= V80; |
556 |
narg= narg - 2; |
narg= narg - 2; |
557 |
V68 = list_vector(narg,ap); |
{ |
558 |
V67= V68; |
parse_key_new(narg,Vcs +2,(struct key *)&LI8key,ap); |
559 |
{register object V69; |
V84=(Vcs[2]); |
560 |
register object V70; |
V85=(Vcs[3]); |
561 |
V69= Cnil; |
V86=(Vcs[4]); |
562 |
V70= Cnil; |
{register object V87; |
563 |
{register object V71; |
register object V88; |
564 |
V71= (V65); |
V87= Cnil; |
565 |
goto T161; |
V88= Cnil; |
566 |
T161:; |
{register object V89; |
567 |
if(((V71))!=Cnil){ |
V89= (V82); |
568 |
goto T162;} |
goto T198; |
569 |
if(((V70))==Cnil){ |
T198:; |
570 |
goto T165;} |
if(((V89))!=Cnil){ |
571 |
((V70))->c.c_cdr = Cnil; |
goto T199;} |
572 |
goto T165; |
if(((V88))==Cnil){ |
573 |
T165:; |
goto T202;} |
574 |
{object V72 = (V69); |
((V88))->c.c_cdr = Cnil; |
575 |
VMR7(V72)} |
goto T202; |
576 |
goto T162; |
T202:; |
577 |
T162:; |
{object V90 = (V87); |
578 |
if(!(type_of((V71))==t_cons)){ |
VMR8(V90)} |
579 |
goto T170;} |
goto T199; |
580 |
goto T169; |
T199:; |
581 |
goto T170; |
if(!(type_of((V89))==t_cons)){ |
582 |
T170:; |
goto T207;} |
583 |
base[0]= VV[7]; |
goto T206; |
584 |
|
goto T207; |
585 |
|
T207:; |
586 |
|
base[0]= VV[10]; |
587 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
588 |
Lerror(); |
Lerror(); |
589 |
vs_top=sup; |
vs_top=sup; |
590 |
goto T169; |
goto T206; |
591 |
T169:; |
T206:; |
592 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
593 |
base[1]= CMPcar((V71)); |
base[1]= CMPcar((V89)); |
594 |
base[2]= (V66); |
base[2]= (V83); |
595 |
{object V73; |
{object V91; |
596 |
V73= (V67); |
base[3]= (V86); |
597 |
|
base[4]= (V84); |
598 |
|
base[5]= (V85); |
599 |
|
vs_top=(vs_base=base+3)+3; |
600 |
|
(void) (*Lnk15)(); |
601 |
|
vs_top=sup; |
602 |
|
V91= vs_base[0]; |
603 |
vs_top=base+3; |
vs_top=base+3; |
604 |
while(V73!=Cnil) |
while(V91!=Cnil) |
605 |
{vs_push((V73)->c.c_car);V73=(V73)->c.c_cdr;} |
{vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;} |
606 |
vs_base=base+1;} |
vs_base=base+1;} |
607 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
608 |
vs_top=sup; |
vs_top=sup; |
609 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
610 |
goto T173;} |
goto T210;} |
611 |
if(((V70))==Cnil){ |
if(((V88))==Cnil){ |
612 |
goto T181;} |
goto T221;} |
613 |
((V70))->c.c_cdr = (V71); |
((V88))->c.c_cdr = (V89); |
614 |
goto T179; |
goto T219; |
615 |
goto T181; |
goto T221; |
616 |
T181:; |
T221:; |
617 |
V69= (V71); |
V87= (V89); |
618 |
goto T179; |
goto T219; |
619 |
T179:; |
T219:; |
620 |
V70= (V71); |
V88= (V89); |
621 |
goto T173; |
goto T210; |
622 |
T173:; |
T210:; |
623 |
V71= CMPcdr((V71)); |
V89= CMPcdr((V89)); |
624 |
goto T161;}} |
goto T198;}} |
625 |
va_end(ap); |
va_end(ap); |
626 |
base[0]=base[0]; |
base[0]=base[0]; |
627 |
return Cnil;} |
return Cnil;} |
628 |
} |
}} |
629 |
/* function definition for NSET-DIFFERENCE-REV */ |
/* function definition for NSET-DIFFERENCE-REV */ |
630 |
|
|
631 |
static void L8() |
static void L9() |
632 |
{register object *base=vs_base; |
{register object *base=vs_base; |
633 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM9; VC9 |
634 |
vs_check; |
vs_check; |
635 |
{object V74; |
{object V92; |
636 |
register object V75; |
register object V93; |
637 |
register object V76; |
register object V94; |
638 |
V74=(base[0]); |
register object V95; |
639 |
V75=(base[1]); |
register object V96; |
640 |
vs_base=vs_base+2; |
parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]); |
641 |
vs_top[0]=Cnil; |
V92=(base[0]); |
642 |
{object *p=vs_top; |
V93=(base[1]); |
643 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
vs_top=sup; |
644 |
V76=(base[2]); |
V94=(base[2]); |
645 |
vs_top=sup; |
V95=(base[3]); |
646 |
{register object V77; |
V96=(base[4]); |
647 |
register object V78; |
{register object V97; |
648 |
V77= Cnil; |
register object V98; |
649 |
V78= Cnil; |
V97= Cnil; |
650 |
{register object V79; |
V98= Cnil; |
651 |
V79= (V74); |
{register object V99; |
652 |
goto T191; |
V99= (V92); |
653 |
T191:; |
goto T231; |
654 |
if(((V79))!=Cnil){ |
T231:; |
655 |
goto T192;} |
if(((V99))!=Cnil){ |
656 |
if(((V78))==Cnil){ |
goto T232;} |
657 |
goto T195;} |
if(((V98))==Cnil){ |
658 |
((V78))->c.c_cdr = Cnil; |
goto T235;} |
659 |
goto T195; |
((V98))->c.c_cdr = Cnil; |
660 |
T195:; |
goto T235; |
661 |
base[3]= (V77); |
T235:; |
662 |
vs_top=(vs_base=base+3)+1; |
base[8]= (V97); |
663 |
|
vs_top=(vs_base=base+8)+1; |
664 |
return; |
return; |
665 |
goto T192; |
goto T232; |
666 |
T192:; |
T232:; |
667 |
if(!(type_of((V79))==t_cons)){ |
if(!(type_of((V99))==t_cons)){ |
668 |
goto T200;} |
goto T240;} |
669 |
goto T199; |
goto T239; |
670 |
goto T200; |
goto T240; |
671 |
T200:; |
T240:; |
672 |
base[3]= VV[8]; |
base[8]= VV[11]; |
673 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+8)+1; |
674 |
Lerror(); |
Lerror(); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
goto T199; |
goto T239; |
677 |
T199:; |
T239:; |
678 |
base[3]=VV[11]->s.s_gfdef; |
base[8]=VV[14]->s.s_gfdef; |
679 |
base[4]= CMPcar((V79)); |
base[9]= CMPcar((V99)); |
680 |
base[5]= (V75); |
base[10]= (V93); |
681 |
base[6]= VV[6]; |
base[11]= VV[9]; |
682 |
base[7]= Ct; |
base[12]= Ct; |
683 |
{object V80; |
{object V100; |
684 |
V80= (V76); |
base[13]= (V96); |
685 |
vs_top=base+8; |
base[14]= (V94); |
686 |
while(V80!=Cnil) |
base[15]= (V95); |
687 |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
vs_top=(vs_base=base+13)+3; |
688 |
vs_base=base+4;} |
(void) (*Lnk15)(); |
689 |
(void) (*Lnk11)(); |
vs_top=sup; |
690 |
|
V100= vs_base[0]; |
691 |
|
vs_top=base+13; |
692 |
|
while(V100!=Cnil) |
693 |
|
{vs_push((V100)->c.c_car);V100=(V100)->c.c_cdr;} |
694 |
|
vs_base=base+9;} |
695 |
|
(void) (*Lnk14)(); |
696 |
vs_top=sup; |
vs_top=sup; |
697 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
698 |
goto T203;} |
goto T243;} |
699 |
if(((V78))==Cnil){ |
if(((V98))==Cnil){ |
700 |
goto T213;} |
goto T256;} |
701 |
((V78))->c.c_cdr = (V79); |
((V98))->c.c_cdr = (V99); |
702 |
goto T211; |
goto T254; |
703 |
goto T213; |
goto T256; |
704 |
T213:; |
T256:; |
705 |
V77= (V79); |
V97= (V99); |
706 |
goto T211; |
goto T254; |
707 |
T211:; |
T254:; |
708 |
V78= (V79); |
V98= (V99); |
709 |
goto T203; |
goto T243; |
710 |
T203:; |
T243:; |
711 |
V79= CMPcdr((V79)); |
V99= CMPcdr((V99)); |
712 |
goto T191;}} |
goto T231;}} |
713 |
} |
} |
714 |
} |
} |
715 |
/* local entry for function SET-EXCLUSIVE-OR */ |
/* local entry for function SET-EXCLUSIVE-OR */ |
716 |
|
|
717 |
static object LI9(V82,V81,va_alist) |
static object LI10(V102,V101,va_alist) |
718 |
object V82,V81; |
object V102,V101; |
719 |
va_dcl |
va_dcl |
720 |
{ |
{ |
721 |
va_list ap; |
va_list ap; |
722 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
723 |
{object V83; |
{object V103; |
724 |
object V84; |
object V104; |
725 |
object V85; |
object V105; |
726 |
object V86; |
object V106; |
727 |
object V87; |
object V107; |
|
object V88; |
|
728 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
729 |
va_start(ap); |
va_start(ap); |
730 |
V83= V82; |
V103= V102; |
731 |
V84= V81; |
V104= V101; |
732 |
narg= narg - 2; |
narg= narg - 2; |
|
V89 = make_list(narg); |
|
|
V85= V89; |
|
733 |
{ |
{ |
734 |
parse_key_rest(V89,narg,Vcs +3,(struct key *)&LI9key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI10key,ap); |
735 |
V86=(Vcs[3]); |
V105=(Vcs[2]); |
736 |
V87=(Vcs[4]); |
V106=(Vcs[3]); |
737 |
V88=(Vcs[5]); |
V107=(Vcs[4]); |
738 |
base[0]= (V83); |
base[0]= (V103); |
739 |
base[1]= (V84); |
base[1]= (V104); |
740 |
{object V91; |
{object V109; |
741 |
V91= (V85); |
base[2]= (V107); |
742 |
|
base[3]= (V105); |
743 |
|
base[4]= (V106); |
744 |
|
vs_top=(vs_base=base+2)+3; |
745 |
|
(void) (*Lnk15)(); |
746 |
|
vs_top=sup; |
747 |
|
V109= vs_base[0]; |
748 |
vs_top=base+2; |
vs_top=base+2; |
749 |
while(V91!=Cnil) |
while(V109!=Cnil) |
750 |
{vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;} |
{vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;} |
751 |
vs_base=base+0;} |
vs_base=base+0;} |
752 |
|
(void) (*Lnk16)(); |
753 |
|
vs_top=sup; |
754 |
|
V108= vs_base[0]; |
755 |
|
base[0]= (V104); |
756 |
|
base[1]= (V103); |
757 |
|
{object V111; |
758 |
|
base[2]= (V107); |
759 |
|
base[3]= (V105); |
760 |
|
base[4]= (V106); |
761 |
|
vs_top=(vs_base=base+2)+3; |
762 |
(void) (*Lnk15)(); |
(void) (*Lnk15)(); |
763 |
vs_top=sup; |
vs_top=sup; |
764 |
V90= vs_base[0]; |
V111= vs_base[0]; |
|
base[0]= (V84); |
|
|
base[1]= (V83); |
|
|
{object V93; |
|
|
V93= (V85); |
|
765 |
vs_top=base+2; |
vs_top=base+2; |
766 |
while(V93!=Cnil) |
while(V111!=Cnil) |
767 |
{vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;} |
{vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;} |
768 |
vs_base=base+0;} |
vs_base=base+0;} |
769 |
(void) (*Lnk16)(); |
(void) (*Lnk17)(); |
770 |
vs_top=sup; |
vs_top=sup; |
771 |
V92= vs_base[0]; |
V110= vs_base[0]; |
772 |
{object V94 = nconc(V90,V92); |
{object V112 = nconc(V108,V110); |
773 |
VMR9(V94)} |
VMR10(V112)} |
774 |
va_end(ap); |
va_end(ap); |
775 |
base[0]=base[0]; |
base[0]=base[0]; |
776 |
return Cnil;} |
return Cnil;} |
777 |
}} |
}} |
778 |
/* local entry for function NSET-EXCLUSIVE-OR */ |
/* local entry for function NSET-EXCLUSIVE-OR */ |
779 |
|
|
780 |
static object LI10(V96,V95,va_alist) |
static object LI11(V114,V113,va_alist) |
781 |
object V96,V95; |
object V114,V113; |
782 |
va_dcl |
va_dcl |
783 |
{ |
{ |
784 |
va_list ap; |
va_list ap; |
785 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
786 |
{object V97; |
{object V115; |
787 |
register object V98; |
register object V116; |
788 |
register object V99; |
register object V117; |
789 |
|
register object V118; |
790 |
|
register object V119; |
791 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
792 |
va_start(ap); |
va_start(ap); |
793 |
V97= V96; |
V115= V114; |
794 |
V98= V95; |
V116= V113; |
795 |
narg= narg - 2; |
narg= narg - 2; |
796 |
V100 = list_vector(narg,ap); |
{ |
797 |
V99= V100; |
parse_key_new(narg,Vcs +2,(struct key *)&LI11key,ap); |
798 |
{object V101; |
V117=(Vcs[2]); |
799 |
register object V102; |
V118=(Vcs[3]); |
800 |
register object V103; |
V119=(Vcs[4]); |
801 |
register object V104; |
{object V120; |
802 |
V101= Cnil; |
register object V121; |
803 |
V102= Cnil; |
register object V122; |
804 |
V103= Cnil; |
register object V123; |
805 |
V104= Cnil; |
V120= Cnil; |
806 |
{register object V105; |
V121= Cnil; |
807 |
V105= (V97); |
V122= Cnil; |
808 |
goto T233; |
V123= Cnil; |
809 |
T233:; |
{register object V124; |
810 |
if(((V105))!=Cnil){ |
V124= (V115); |
811 |
goto T234;} |
goto T282; |
812 |
if(((V104))==Cnil){ |
T282:; |
813 |
goto T237;} |
if(((V124))!=Cnil){ |
814 |
((V104))->c.c_cdr = Cnil; |
goto T283;} |
815 |
goto T237; |
if(((V123))==Cnil){ |
816 |
T237:; |
goto T286;} |
817 |
if(((V102))==Cnil){ |
((V123))->c.c_cdr = Cnil; |
818 |
goto T241;} |
goto T286; |
819 |
base[0]= (V98); |
T286:; |
820 |
base[1]= (V103); |
if(((V121))==Cnil){ |
821 |
{object V107; |
goto T290;} |
822 |
V107= (V99); |
base[0]= (V116); |
823 |
|
base[1]= (V122); |
824 |
|
{object V126; |
825 |
|
base[2]= (V119); |
826 |
|
base[3]= (V117); |
827 |
|
base[4]= (V118); |
828 |
|
vs_top=(vs_base=base+2)+3; |
829 |
|
(void) (*Lnk15)(); |
830 |
|
vs_top=sup; |
831 |
|
V126= vs_base[0]; |
832 |
vs_top=base+2; |
vs_top=base+2; |
833 |
while(V107!=Cnil) |
while(V126!=Cnil) |
834 |
{vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;} |
{vs_push((V126)->c.c_car);V126=(V126)->c.c_cdr;} |
835 |
vs_base=base+0;} |
vs_base=base+0;} |
836 |
(void) (*Lnk17)(); |
(void) (*Lnk18)(); |
837 |
vs_top=sup; |
vs_top=sup; |
838 |
V106= vs_base[0]; |
V125= vs_base[0]; |
839 |
((V102))->c.c_cdr = V106; |
((V121))->c.c_cdr = V125; |
840 |
{object V108 = (V101); |
{object V127 = (V120); |
841 |
VMR10(V108)} |
VMR11(V127)} |
842 |
goto T241; |
goto T290; |
843 |
T241:; |
T290:; |
844 |
base[0]= (V98); |
base[0]= (V116); |
845 |
base[1]= (V103); |
base[1]= (V122); |
846 |
{object V109; |
{object V128; |
847 |
V109= (V99); |
base[2]= (V119); |
848 |
|
base[3]= (V117); |
849 |
|
base[4]= (V118); |
850 |
|
vs_top=(vs_base=base+2)+3; |
851 |
|
(void) (*Lnk15)(); |
852 |
|
vs_top=sup; |
853 |
|
V128= vs_base[0]; |
854 |
vs_top=base+2; |
vs_top=base+2; |
855 |
while(V109!=Cnil) |
while(V128!=Cnil) |
856 |
{vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;} |
{vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;} |
857 |
vs_base=base+0;} |
vs_base=base+0;} |
858 |
(void) (*Lnk17)(); |
(void) (*Lnk18)(); |
859 |
vs_top=sup; |
vs_top=sup; |
860 |
{object V110 = vs_base[0]; |
{object V129 = vs_base[0]; |
861 |
VMR10(V110)} |
VMR11(V129)} |
862 |
goto T234; |
goto T283; |
863 |
T234:; |
T283:; |
864 |
if(!(type_of((V105))==t_cons)){ |
if(!(type_of((V124))==t_cons)){ |
865 |
goto T253;} |
goto T308;} |
866 |
goto T252; |
goto T307; |
867 |
goto T253; |
goto T308; |
868 |
T253:; |
T308:; |
869 |
base[0]= VV[9]; |
base[0]= VV[12]; |
870 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
871 |
Lerror(); |
Lerror(); |
872 |
vs_top=sup; |
vs_top=sup; |
873 |
goto T252; |
goto T307; |
874 |
T252:; |
T307:; |
875 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
876 |
base[1]= CMPcar((V105)); |
base[1]= CMPcar((V124)); |
877 |
base[2]= (V98); |
base[2]= (V116); |
878 |
{object V111; |
{object V130; |
879 |
V111= (V99); |
base[3]= (V119); |
880 |
|
base[4]= (V117); |
881 |
|
base[5]= (V118); |
882 |
|
vs_top=(vs_base=base+3)+3; |
883 |
|
(void) (*Lnk15)(); |
884 |
|
vs_top=sup; |
885 |
|
V130= vs_base[0]; |
886 |
vs_top=base+3; |
vs_top=base+3; |
887 |
while(V111!=Cnil) |
while(V130!=Cnil) |
888 |
{vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;} |
{vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;} |
889 |
vs_base=base+1;} |
vs_base=base+1;} |
890 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
891 |
vs_top=sup; |
vs_top=sup; |
892 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
893 |
goto T258;} |
goto T313;} |
894 |
if(((V104))==Cnil){ |
if(((V123))==Cnil){ |
895 |
goto T265;} |
goto T323;} |
896 |
((V104))->c.c_cdr = (V105); |
((V123))->c.c_cdr = (V124); |
897 |
goto T263; |
goto T321; |
898 |
goto T265; |
goto T323; |
899 |
T265:; |
T323:; |
900 |
V103= (V105); |
V122= (V124); |
901 |
goto T263; |
goto T321; |
902 |
T263:; |
T321:; |
903 |
V104= (V105); |
V123= (V124); |
904 |
goto T256; |
goto T311; |
905 |
goto T258; |
goto T313; |
906 |
T258:; |
T313:; |
907 |
if(((V102))==Cnil){ |
if(((V121))==Cnil){ |
908 |
goto T271;} |
goto T329;} |
909 |
((V102))->c.c_cdr = (V105); |
((V121))->c.c_cdr = (V124); |
910 |
goto T269; |
goto T327; |
911 |
goto T271; |
goto T329; |
912 |
T271:; |
T329:; |
913 |
V101= (V105); |
V120= (V124); |
914 |
goto T269; |
goto T327; |
915 |
T269:; |
T327:; |
916 |
V102= (V105); |
V121= (V124); |
917 |
goto T256; |
goto T311; |
918 |
T256:; |
T311:; |
919 |
V105= CMPcdr((V105)); |
V124= CMPcdr((V124)); |
920 |
goto T233;}} |
goto T282;}} |
921 |
va_end(ap); |
va_end(ap); |
922 |
base[0]=base[0]; |
base[0]=base[0]; |
923 |
return Cnil;} |
return Cnil;} |
924 |
} |
}} |
925 |
/* local entry for function SUBSETP */ |
/* local entry for function SUBSETP */ |
926 |
|
|
927 |
static object LI11(V113,V112,va_alist) |
static object LI12(V132,V131,va_alist) |
928 |
object V113,V112; |
object V132,V131; |
929 |
va_dcl |
va_dcl |
930 |
{ |
{ |
931 |
va_list ap; |
va_list ap; |
932 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
933 |
{object V114; |
{object V133; |
934 |
register object V115; |
register object V134; |
935 |
register object V116; |
register object V135; |
936 |
object V117; |
register object V136; |
937 |
object V118; |
register object V137; |
|
object V119; |
|
938 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
939 |
va_start(ap); |
va_start(ap); |
940 |
V114= V113; |
V133= V132; |
941 |
V115= V112; |
V134= V131; |
942 |
narg= narg - 2; |
narg= narg - 2; |
|
V120 = make_list(narg); |
|
|
V116= V120; |
|
943 |
{ |
{ |
944 |
parse_key_rest(V120,narg,Vcs +3,(struct key *)&LI11key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap); |
945 |
V117=(Vcs[3]); |
V135=(Vcs[2]); |
946 |
V118=(Vcs[4]); |
V136=(Vcs[3]); |
947 |
V119=(Vcs[5]); |
V137=(Vcs[4]); |
948 |
{register object V121; |
{register object V138; |
949 |
V121= (V114); |
V138= (V133); |
950 |
goto T279; |
goto T337; |
951 |
T279:; |
T337:; |
952 |
if(((V121))!=Cnil){ |
if(((V138))!=Cnil){ |
953 |
goto T280;} |
goto T338;} |
954 |
{object V122 = Ct; |
{object V139 = Ct; |
955 |
VMR11(V122)} |
VMR12(V139)} |
956 |
goto T280; |
goto T338; |
957 |
T280:; |
T338:; |
958 |
if(!(type_of((V121))==t_cons)){ |
if(!(type_of((V138))==t_cons)){ |
959 |
goto T285;} |
goto T343;} |
960 |
goto T284; |
goto T342; |
961 |
goto T285; |
goto T343; |
962 |
T285:; |
T343:; |
963 |
base[0]= VV[10]; |
base[0]= VV[13]; |
964 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
965 |
Lerror(); |
Lerror(); |
966 |
vs_top=sup; |
vs_top=sup; |
967 |
goto T284; |
goto T342; |
968 |
T284:; |
T342:; |
969 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[14]->s.s_gfdef; |
970 |
base[1]= CMPcar((V121)); |
base[1]= CMPcar((V138)); |
971 |
base[2]= (V115); |
base[2]= (V134); |
972 |
{object V123; |
{object V140; |
973 |
V123= (V116); |
base[3]= (V137); |
974 |
|
base[4]= (V135); |
975 |
|
base[5]= (V136); |
976 |
|
vs_top=(vs_base=base+3)+3; |
977 |
|
(void) (*Lnk15)(); |
978 |
|
vs_top=sup; |
979 |
|
V140= vs_base[0]; |
980 |
vs_top=base+3; |
vs_top=base+3; |
981 |
while(V123!=Cnil) |
while(V140!=Cnil) |
982 |
{vs_push((V123)->c.c_car);V123=(V123)->c.c_cdr;} |
{vs_push((V140)->c.c_car);V140=(V140)->c.c_cdr;} |
983 |
vs_base=base+1;} |
vs_base=base+1;} |
984 |
(void) (*Lnk11)(); |
(void) (*Lnk14)(); |
985 |
vs_top=sup; |
vs_top=sup; |
986 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
987 |
goto T288;} |
goto T346;} |
988 |
{object V124 = Cnil; |
{object V141 = Cnil; |
989 |
VMR11(V124)} |
VMR12(V141)} |
990 |
goto T288; |
goto T346; |
991 |
T288:; |
T346:; |
992 |
V121= CMPcdr((V121)); |
V138= CMPcdr((V138)); |
993 |
goto T279;} |
goto T337;} |
994 |
va_end(ap); |
va_end(ap); |
995 |
base[0]=base[0]; |
base[0]=base[0]; |
996 |
return Cnil;} |
return Cnil;} |
997 |
}} |
}} |
998 |
static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* NSET-DIFFERENCE-REV */ |
static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* NSET-DIFFERENCE-REV */ |
999 |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SET-DIFFERENCE-REV */ |
static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* SET-DIFFERENCE-REV */ |
1000 |
static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* SET-DIFFERENCE */ |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SET-DIFFERENCE */ |
1001 |
static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* MEMBER1 */ |
static void LnkT14(){ call_or_link(VV[14],(void **)&Lnk14);} /* MEMBER1 */ |
1002 |
|
static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* KEY-LIST */ |
1003 |
|
|
1004 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1005 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |