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