1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "defpackage.h" |
#include "defpackage.h" |
4 |
init_defpackage(){do_init(VV);} |
void init_defpackage(){do_init(VV);} |
5 |
/* macro definition for DEFPACKAGE */ |
/* macro definition for DEFPACKAGE */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
19 |
register object V3; |
register object V3; |
20 |
V2= Cnil; |
V2= Cnil; |
21 |
V3= base[3]; |
V3= base[3]; |
22 |
|
goto T3; |
23 |
T3:; |
T3:; |
24 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
25 |
goto T6;} |
goto T6;} |
26 |
goto T5; |
goto T5; |
27 |
|
goto T6; |
28 |
T6:; |
T6:; |
29 |
goto T4; |
goto T4; |
30 |
|
goto T5; |
31 |
T5:; |
T5:; |
32 |
{register object V4; |
{register object V4; |
33 |
V4= car((V3)); |
V4= car((V3)); |
43 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
44 |
Lcerror(); |
Lcerror(); |
45 |
vs_top=sup; |
vs_top=sup; |
46 |
|
goto T11; |
47 |
T11:; |
T11:; |
48 |
V3= cdr((V3)); |
V3= cdr((V3)); |
49 |
goto T3; |
goto T3; |
50 |
|
goto T4; |
51 |
T4:; |
T4:; |
52 |
goto T1; |
goto T1; |
53 |
goto T1;} |
goto T1;} |
54 |
|
goto T1; |
55 |
T1:; |
T1:; |
56 |
base[4]=MMcons(Cnil,Cnil); |
base[4]=MMcons(Cnil,Cnil); |
57 |
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
59 |
register object V7; |
register object V7; |
60 |
V6= Cnil; |
V6= Cnil; |
61 |
V7= VV[3]; |
V7= VV[3]; |
62 |
|
goto T22; |
63 |
T22:; |
T22:; |
64 |
if(((V7))==Cnil){ |
if(((V7))==Cnil){ |
65 |
goto T25;} |
goto T25;} |
66 |
goto T24; |
goto T24; |
67 |
|
goto T25; |
68 |
T25:; |
T25:; |
69 |
goto T23; |
goto T23; |
70 |
|
goto T24; |
71 |
T24:; |
T24:; |
72 |
{register object V8; |
{register object V8; |
73 |
V8= car((V7)); |
V8= car((V7)); |
83 |
vs_top=sup; |
vs_top=sup; |
84 |
V11= vs_base[0]; |
V11= vs_base[0]; |
85 |
(void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11)))); |
(void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11)))); |
86 |
|
goto T30; |
87 |
T30:; |
T30:; |
88 |
V7= cdr((V7)); |
V7= cdr((V7)); |
89 |
goto T22; |
goto T22; |
90 |
|
goto T23; |
91 |
T23:; |
T23:; |
92 |
goto T20; |
goto T20; |
93 |
goto T20;} |
goto T20;} |
94 |
|
goto T20; |
95 |
T20:; |
T20:; |
96 |
base[2]= coerce_to_string(base[2]); |
base[2]= coerce_to_string(base[2]); |
97 |
{object V12; |
{object V12; |
115 |
V12= Cnil; |
V12= Cnil; |
116 |
goto T42;} |
goto T42;} |
117 |
base[5]=V21=MMcons(Cnil,Cnil); |
base[5]=V21=MMcons(Cnil,Cnil); |
118 |
|
goto T43; |
119 |
T43:; |
T43:; |
120 |
(V21->c.c_car)= coerce_to_string((V22->c.c_car)); |
(V21->c.c_car)= coerce_to_string((V22->c.c_car)); |
121 |
if(endp(V22=MMcdr(V22))){ |
if(endp(V22=MMcdr(V22))){ |
123 |
goto T42;} |
goto T42;} |
124 |
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
125 |
goto T43;} |
goto T43;} |
126 |
|
goto T42; |
127 |
T42:; |
T42:; |
128 |
base[5]= VV[7]; |
base[5]= VV[7]; |
129 |
base[6]= base[3]; |
base[6]= base[3]; |
151 |
V15= Cnil; |
V15= Cnil; |
152 |
goto T56;} |
goto T56;} |
153 |
base[5]=V26=MMcons(Cnil,Cnil); |
base[5]=V26=MMcons(Cnil,Cnil); |
154 |
|
goto T57; |
155 |
T57:; |
T57:; |
156 |
(V26->c.c_car)= coerce_to_string((V27->c.c_car)); |
(V26->c.c_car)= coerce_to_string((V27->c.c_car)); |
157 |
if(endp(V27=MMcdr(V27))){ |
if(endp(V27=MMcdr(V27))){ |
159 |
goto T56;} |
goto T56;} |
160 |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
161 |
goto T57;} |
goto T57;} |
162 |
|
goto T56; |
163 |
T56:; |
T56:; |
164 |
base[6]= VV[10]; |
base[6]= VV[10]; |
165 |
base[7]= base[3]; |
base[7]= base[3]; |
173 |
V16= Cnil; |
V16= Cnil; |
174 |
goto T62;} |
goto T62;} |
175 |
base[5]=V29=MMcons(Cnil,Cnil); |
base[5]=V29=MMcons(Cnil,Cnil); |
176 |
|
goto T63; |
177 |
T63:; |
T63:; |
178 |
(V29->c.c_car)= coerce_to_string((V30->c.c_car)); |
(V29->c.c_car)= coerce_to_string((V30->c.c_car)); |
179 |
if(endp(V30=MMcdr(V30))){ |
if(endp(V30=MMcdr(V30))){ |
181 |
goto T62;} |
goto T62;} |
182 |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
183 |
goto T63;} |
goto T63;} |
184 |
|
goto T62; |
185 |
T62:; |
T62:; |
186 |
base[6]= VV[11]; |
base[6]= VV[11]; |
187 |
base[7]= base[3]; |
base[7]= base[3]; |
195 |
V17= Cnil; |
V17= Cnil; |
196 |
goto T68;} |
goto T68;} |
197 |
base[5]=V32=MMcons(Cnil,Cnil); |
base[5]=V32=MMcons(Cnil,Cnil); |
198 |
|
goto T69; |
199 |
T69:; |
T69:; |
200 |
(V32->c.c_car)= coerce_to_string((V33->c.c_car)); |
(V32->c.c_car)= coerce_to_string((V33->c.c_car)); |
201 |
if(endp(V33=MMcdr(V33))){ |
if(endp(V33=MMcdr(V33))){ |
203 |
goto T68;} |
goto T68;} |
204 |
V32=MMcdr(V32)=MMcons(Cnil,Cnil); |
V32=MMcdr(V32)=MMcons(Cnil,Cnil); |
205 |
goto T69;} |
goto T69;} |
206 |
|
goto T68; |
207 |
T68:; |
T68:; |
208 |
{register object V35; |
{register object V35; |
209 |
register object V36; |
register object V36; |
220 |
V37= Cnil; |
V37= Cnil; |
221 |
V38= Cnil; |
V38= Cnil; |
222 |
V39= Cnil; |
V39= Cnil; |
223 |
|
goto T79; |
224 |
T79:; |
T79:; |
225 |
if(((V36))==Cnil){ |
if(((V36))==Cnil){ |
226 |
goto T82;} |
goto T82;} |
227 |
goto T81; |
goto T81; |
228 |
|
goto T82; |
229 |
T82:; |
T82:; |
230 |
goto T80; |
goto T80; |
231 |
|
goto T81; |
232 |
T81:; |
T81:; |
233 |
{register object V40; |
{register object V40; |
234 |
V40= car((V36)); |
V40= car((V36)); |
240 |
V42= Cnil; |
V42= Cnil; |
241 |
goto T89;} |
goto T89;} |
242 |
base[5]=V43=MMcons(Cnil,Cnil); |
base[5]=V43=MMcons(Cnil,Cnil); |
243 |
|
goto T90; |
244 |
T90:; |
T90:; |
245 |
(V43->c.c_car)= coerce_to_string((V44->c.c_car)); |
(V43->c.c_car)= coerce_to_string((V44->c.c_car)); |
246 |
if(endp(V44=MMcdr(V44))){ |
if(endp(V44=MMcdr(V44))){ |
248 |
goto T89;} |
goto T89;} |
249 |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
250 |
goto T90;} |
goto T90;} |
251 |
|
goto T89; |
252 |
T89:; |
T89:; |
253 |
V39= make_cons(/* INLINE-ARGS */V41,V42); |
V39= make_cons(/* INLINE-ARGS */V41,V42); |
254 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
261 |
if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45)); |
if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45)); |
262 |
((V45))->c.c_cdr = (V46); |
((V45))->c.c_cdr = (V46); |
263 |
goto T92;} |
goto T92;} |
264 |
|
goto T94; |
265 |
T94:; |
T94:; |
266 |
V38= make_cons((V39),Cnil); |
V38= make_cons((V39),Cnil); |
267 |
V37= (V38); |
V37= (V38); |
268 |
|
goto T92; |
269 |
T92:; |
T92:; |
270 |
V36= cdr((V36)); |
V36= cdr((V36)); |
271 |
goto T79; |
goto T79; |
272 |
|
goto T80; |
273 |
T80:; |
T80:; |
274 |
V18= (V37); |
V18= (V37); |
275 |
goto T74; |
goto T74; |
277 |
goto T74; |
goto T74; |
278 |
V18= Cnil; |
V18= Cnil; |
279 |
goto T74;}} |
goto T74;}} |
280 |
|
goto T74; |
281 |
T74:; |
T74:; |
282 |
{register object V47; |
{register object V47; |
283 |
register object V48; |
register object V48; |
294 |
V49= Cnil; |
V49= Cnil; |
295 |
V50= Cnil; |
V50= Cnil; |
296 |
V51= Cnil; |
V51= Cnil; |
297 |
|
goto T111; |
298 |
T111:; |
T111:; |
299 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
300 |
goto T114;} |
goto T114;} |
301 |
goto T113; |
goto T113; |
302 |
|
goto T114; |
303 |
T114:; |
T114:; |
304 |
goto T112; |
goto T112; |
305 |
|
goto T113; |
306 |
T113:; |
T113:; |
307 |
{register object V52; |
{register object V52; |
308 |
V52= car((V48)); |
V52= car((V48)); |
314 |
V54= Cnil; |
V54= Cnil; |
315 |
goto T121;} |
goto T121;} |
316 |
base[5]=V55=MMcons(Cnil,Cnil); |
base[5]=V55=MMcons(Cnil,Cnil); |
317 |
|
goto T122; |
318 |
T122:; |
T122:; |
319 |
(V55->c.c_car)= coerce_to_string((V56->c.c_car)); |
(V55->c.c_car)= coerce_to_string((V56->c.c_car)); |
320 |
if(endp(V56=MMcdr(V56))){ |
if(endp(V56=MMcdr(V56))){ |
322 |
goto T121;} |
goto T121;} |
323 |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
324 |
goto T122;} |
goto T122;} |
325 |
|
goto T121; |
326 |
T121:; |
T121:; |
327 |
V51= make_cons(/* INLINE-ARGS */V53,V54); |
V51= make_cons(/* INLINE-ARGS */V53,V54); |
328 |
if(((V50))==Cnil){ |
if(((V50))==Cnil){ |
335 |
if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57)); |
if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57)); |
336 |
((V57))->c.c_cdr = (V58); |
((V57))->c.c_cdr = (V58); |
337 |
goto T124;} |
goto T124;} |
338 |
|
goto T126; |
339 |
T126:; |
T126:; |
340 |
V50= make_cons((V51),Cnil); |
V50= make_cons((V51),Cnil); |
341 |
V49= (V50); |
V49= (V50); |
342 |
|
goto T124; |
343 |
T124:; |
T124:; |
344 |
V48= cdr((V48)); |
V48= cdr((V48)); |
345 |
goto T111; |
goto T111; |
346 |
|
goto T112; |
347 |
T112:; |
T112:; |
348 |
V19= (V49); |
V19= (V49); |
349 |
goto T106; |
goto T106; |
351 |
goto T106; |
goto T106; |
352 |
V19= Cnil; |
V19= Cnil; |
353 |
goto T106;}} |
goto T106;}} |
354 |
|
goto T106; |
355 |
T106:; |
T106:; |
356 |
base[6]= VV[14]; |
base[6]= VV[14]; |
357 |
base[7]= base[3]; |
base[7]= base[3]; |
365 |
V20= Cnil; |
V20= Cnil; |
366 |
goto T138;} |
goto T138;} |
367 |
base[5]=V59=MMcons(Cnil,Cnil); |
base[5]=V59=MMcons(Cnil,Cnil); |
368 |
|
goto T139; |
369 |
T139:; |
T139:; |
370 |
(V59->c.c_car)= coerce_to_string((V60->c.c_car)); |
(V59->c.c_car)= coerce_to_string((V60->c.c_car)); |
371 |
if(endp(V60=MMcdr(V60))){ |
if(endp(V60=MMcdr(V60))){ |
373 |
goto T138;} |
goto T138;} |
374 |
V59=MMcdr(V59)=MMcons(Cnil,Cnil); |
V59=MMcdr(V59)=MMcons(Cnil,Cnil); |
375 |
goto T139;} |
goto T139;} |
376 |
|
goto T138; |
377 |
T138:; |
T138:; |
378 |
{register object V62; |
{register object V62; |
379 |
register object V63; |
register object V63; |
389 |
V66= Cnil; |
V66= Cnil; |
390 |
V67= Cnil; |
V67= Cnil; |
391 |
V68= Cnil; |
V68= Cnil; |
392 |
|
goto T151; |
393 |
T151:; |
T151:; |
394 |
if(((V65))==Cnil){ |
if(((V65))==Cnil){ |
395 |
goto T154;} |
goto T154;} |
396 |
goto T153; |
goto T153; |
397 |
|
goto T154; |
398 |
T154:; |
T154:; |
399 |
goto T152; |
goto T152; |
400 |
|
goto T153; |
401 |
T153:; |
T153:; |
402 |
{register object V69; |
{register object V69; |
403 |
V69= car((V65)); |
V69= car((V65)); |
418 |
if(((V71))!=Cnil){ |
if(((V71))!=Cnil){ |
419 |
goto T166;}} |
goto T166;}} |
420 |
goto T162; |
goto T162; |
421 |
|
goto T166; |
422 |
T166:; |
T166:; |
423 |
base[8]= cdr((V67)); |
base[8]= cdr((V67)); |
424 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
426 |
vs_top=sup; |
vs_top=sup; |
427 |
V67= vs_base[0]; |
V67= vs_base[0]; |
428 |
goto T162; |
goto T162; |
429 |
|
goto T164; |
430 |
T164:; |
T164:; |
431 |
V66= (V68); |
V66= (V68); |
432 |
base[8]= (V66); |
base[8]= (V66); |
434 |
Llast(); |
Llast(); |
435 |
vs_top=sup; |
vs_top=sup; |
436 |
V67= vs_base[0]; |
V67= vs_base[0]; |
437 |
|
goto T162; |
438 |
T162:; |
T162:; |
439 |
V65= cdr((V65)); |
V65= cdr((V65)); |
440 |
goto T151; |
goto T151; |
441 |
|
goto T152; |
442 |
T152:; |
T152:; |
443 |
base[7]= (V66); |
base[7]= (V66); |
444 |
goto T149; |
goto T149; |
446 |
goto T149; |
goto T149; |
447 |
base[7]= Cnil; |
base[7]= Cnil; |
448 |
goto T149;}} |
goto T149;}} |
449 |
|
goto T149; |
450 |
T149:; |
T149:; |
451 |
{register object V72; |
{register object V72; |
452 |
register object V73; |
register object V73; |
458 |
V74= Cnil; |
V74= Cnil; |
459 |
V75= Cnil; |
V75= Cnil; |
460 |
V76= Cnil; |
V76= Cnil; |
461 |
|
goto T182; |
462 |
T182:; |
T182:; |
463 |
if(((V73))==Cnil){ |
if(((V73))==Cnil){ |
464 |
goto T185;} |
goto T185;} |
465 |
goto T184; |
goto T184; |
466 |
|
goto T185; |
467 |
T185:; |
T185:; |
468 |
goto T183; |
goto T183; |
469 |
|
goto T184; |
470 |
T184:; |
T184:; |
471 |
{register object V77; |
{register object V77; |
472 |
V77= car((V73)); |
V77= car((V73)); |
487 |
if(((V79))!=Cnil){ |
if(((V79))!=Cnil){ |
488 |
goto T197;}} |
goto T197;}} |
489 |
goto T193; |
goto T193; |
490 |
|
goto T197; |
491 |
T197:; |
T197:; |
492 |
base[9]= cdr((V75)); |
base[9]= cdr((V75)); |
493 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
495 |
vs_top=sup; |
vs_top=sup; |
496 |
V75= vs_base[0]; |
V75= vs_base[0]; |
497 |
goto T193; |
goto T193; |
498 |
|
goto T195; |
499 |
T195:; |
T195:; |
500 |
V74= (V76); |
V74= (V76); |
501 |
base[9]= (V74); |
base[9]= (V74); |
503 |
Llast(); |
Llast(); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
V75= vs_base[0]; |
V75= vs_base[0]; |
506 |
|
goto T193; |
507 |
T193:; |
T193:; |
508 |
V73= cdr((V73)); |
V73= cdr((V73)); |
509 |
goto T182; |
goto T182; |
510 |
|
goto T183; |
511 |
T183:; |
T183:; |
512 |
base[8]= (V74); |
base[8]= (V74); |
513 |
goto T180; |
goto T180; |
515 |
goto T180; |
goto T180; |
516 |
base[8]= Cnil; |
base[8]= Cnil; |
517 |
goto T180;}} |
goto T180;}} |
518 |
|
goto T180; |
519 |
T180:; |
T180:; |
520 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
521 |
L2(base); |
L2(base); |
522 |
vs_top=sup; |
vs_top=sup; |
523 |
V63= vs_base[0]; |
V63= vs_base[0]; |
524 |
V62= Cnil; |
V62= Cnil; |
525 |
|
goto T212; |
526 |
T212:; |
T212:; |
527 |
if(((V63))==Cnil){ |
if(((V63))==Cnil){ |
528 |
goto T215;} |
goto T215;} |
529 |
goto T214; |
goto T214; |
530 |
|
goto T215; |
531 |
T215:; |
T215:; |
532 |
goto T213; |
goto T213; |
533 |
|
goto T214; |
534 |
T214:; |
T214:; |
535 |
{register object V80; |
{register object V80; |
536 |
V80= car((V63)); |
V80= car((V63)); |
547 |
V83= Cnil; |
V83= Cnil; |
548 |
V84= Cnil; |
V84= Cnil; |
549 |
V85= Cnil; |
V85= Cnil; |
550 |
|
goto T226; |
551 |
T226:; |
T226:; |
552 |
if(((V82))==Cnil){ |
if(((V82))==Cnil){ |
553 |
goto T229;} |
goto T229;} |
554 |
goto T228; |
goto T228; |
555 |
|
goto T229; |
556 |
T229:; |
T229:; |
557 |
goto T227; |
goto T227; |
558 |
|
goto T228; |
559 |
T228:; |
T228:; |
560 |
{register object V86; |
{register object V86; |
561 |
V86= car((V82)); |
V86= car((V82)); |
564 |
if(!eql(V87,VV[16]))goto T236; |
if(!eql(V87,VV[16]))goto T236; |
565 |
V85= VV[9]; |
V85= VV[9]; |
566 |
goto T235; |
goto T235; |
567 |
|
goto T236; |
568 |
T236:; |
T236:; |
569 |
if(!eql(V87,VV[17]))goto T237; |
if(!eql(V87,VV[17]))goto T237; |
570 |
V85= VV[10]; |
V85= VV[10]; |
571 |
goto T235; |
goto T235; |
572 |
|
goto T237; |
573 |
T237:; |
T237:; |
574 |
if(!eql(V87,VV[18]))goto T238; |
if(!eql(V87,VV[18]))goto T238; |
575 |
V85= VV[12]; |
V85= VV[12]; |
576 |
goto T235; |
goto T235; |
577 |
|
goto T238; |
578 |
T238:; |
T238:; |
579 |
if(!eql(V87,VV[19]))goto T239; |
if(!eql(V87,VV[19]))goto T239; |
580 |
V85= VV[13]; |
V85= VV[13]; |
581 |
goto T235; |
goto T235; |
582 |
|
goto T239; |
583 |
T239:; |
T239:; |
584 |
V85= Cnil;} |
V85= Cnil;} |
585 |
|
goto T235; |
586 |
T235:; |
T235:; |
587 |
if(((V84))==Cnil){ |
if(((V84))==Cnil){ |
588 |
goto T242;} |
goto T242;} |
594 |
if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88)); |
if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88)); |
595 |
((V88))->c.c_cdr = (V89); |
((V88))->c.c_cdr = (V89); |
596 |
goto T240;} |
goto T240;} |
597 |
|
goto T242; |
598 |
T242:; |
T242:; |
599 |
V84= make_cons((V85),Cnil); |
V84= make_cons((V85),Cnil); |
600 |
V83= (V84); |
V83= (V84); |
601 |
|
goto T240; |
602 |
T240:; |
T240:; |
603 |
V82= cdr((V82)); |
V82= cdr((V82)); |
604 |
goto T226; |
goto T226; |
605 |
|
goto T227; |
606 |
T227:; |
T227:; |
607 |
base[7]= (V83); |
base[7]= (V83); |
608 |
goto T223; |
goto T223; |
610 |
goto T223; |
goto T223; |
611 |
base[7]= Cnil; |
base[7]= Cnil; |
612 |
goto T223;}} |
goto T223;}} |
613 |
|
goto T223; |
614 |
T223:; |
T223:; |
615 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
616 |
Lerror(); |
Lerror(); |
617 |
vs_top=sup; |
vs_top=sup; |
618 |
V63= cdr((V63)); |
V63= cdr((V63)); |
619 |
goto T212; |
goto T212; |
620 |
|
goto T213; |
621 |
T213:; |
T213:; |
622 |
goto T145; |
goto T145; |
623 |
goto T145;} |
goto T145;} |
624 |
|
goto T145; |
625 |
T145:; |
T145:; |
626 |
{register object V90; |
{register object V90; |
627 |
register object V91; |
register object V91; |
632 |
vs_top=sup; |
vs_top=sup; |
633 |
V91= vs_base[0]; |
V91= vs_base[0]; |
634 |
V90= Cnil; |
V90= Cnil; |
635 |
|
goto T261; |
636 |
T261:; |
T261:; |
637 |
if(((V91))==Cnil){ |
if(((V91))==Cnil){ |
638 |
goto T264;} |
goto T264;} |
639 |
goto T263; |
goto T263; |
640 |
|
goto T264; |
641 |
T264:; |
T264:; |
642 |
goto T262; |
goto T262; |
643 |
|
goto T263; |
644 |
T263:; |
T263:; |
645 |
{register object V92; |
{register object V92; |
646 |
V92= car((V91)); |
V92= car((V91)); |
657 |
V95= Cnil; |
V95= Cnil; |
658 |
V96= Cnil; |
V96= Cnil; |
659 |
V97= Cnil; |
V97= Cnil; |
660 |
|
goto T275; |
661 |
T275:; |
T275:; |
662 |
if(((V94))==Cnil){ |
if(((V94))==Cnil){ |
663 |
goto T278;} |
goto T278;} |
664 |
goto T277; |
goto T277; |
665 |
|
goto T278; |
666 |
T278:; |
T278:; |
667 |
goto T276; |
goto T276; |
668 |
|
goto T277; |
669 |
T277:; |
T277:; |
670 |
{register object V98; |
{register object V98; |
671 |
V98= car((V94)); |
V98= car((V94)); |
674 |
if(!eql(V99,VV[16]))goto T285; |
if(!eql(V99,VV[16]))goto T285; |
675 |
V97= VV[11]; |
V97= VV[11]; |
676 |
goto T284; |
goto T284; |
677 |
|
goto T285; |
678 |
T285:; |
T285:; |
679 |
if(!eql(V99,VV[17]))goto T286; |
if(!eql(V99,VV[17]))goto T286; |
680 |
V97= VV[10]; |
V97= VV[10]; |
681 |
goto T284; |
goto T284; |
682 |
|
goto T286; |
683 |
T286:; |
T286:; |
684 |
V97= Cnil;} |
V97= Cnil;} |
685 |
|
goto T284; |
686 |
T284:; |
T284:; |
687 |
if(((V96))==Cnil){ |
if(((V96))==Cnil){ |
688 |
goto T289;} |
goto T289;} |
694 |
if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100)); |
if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100)); |
695 |
((V100))->c.c_cdr = (V101); |
((V100))->c.c_cdr = (V101); |
696 |
goto T287;} |
goto T287;} |
697 |
|
goto T289; |
698 |
T289:; |
T289:; |
699 |
V96= make_cons((V97),Cnil); |
V96= make_cons((V97),Cnil); |
700 |
V95= (V96); |
V95= (V96); |
701 |
|
goto T287; |
702 |
T287:; |
T287:; |
703 |
V94= cdr((V94)); |
V94= cdr((V94)); |
704 |
goto T275; |
goto T275; |
705 |
|
goto T276; |
706 |
T276:; |
T276:; |
707 |
base[7]= (V95); |
base[7]= (V95); |
708 |
goto T272; |
goto T272; |
710 |
goto T272; |
goto T272; |
711 |
base[7]= Cnil; |
base[7]= Cnil; |
712 |
goto T272;}} |
goto T272;}} |
713 |
|
goto T272; |
714 |
T272:; |
T272:; |
715 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
716 |
Lerror(); |
Lerror(); |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
V91= cdr((V91)); |
V91= cdr((V91)); |
719 |
goto T261; |
goto T261; |
720 |
|
goto T262; |
721 |
T262:; |
T262:; |
722 |
goto T144; |
goto T144; |
723 |
goto T144;} |
goto T144;} |
724 |
|
goto T144; |
725 |
T144:; |
T144:; |
726 |
V102= list(2,VV[26],base[2]); |
V102= list(2,VV[26],base[2]); |
727 |
V103= list(3,VV[28],base[2],base[2]); |
V103= list(3,VV[28],base[2],base[2]); |
730 |
V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12))); |
V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12))); |
731 |
V104= make_cons(/* INLINE-ARGS */V105,Cnil); |
V104= make_cons(/* INLINE-ARGS */V105,Cnil); |
732 |
goto T304; |
goto T304; |
733 |
|
goto T306; |
734 |
T306:; |
T306:; |
735 |
V104= Cnil; |
V104= Cnil; |
736 |
|
goto T304; |
737 |
T304:; |
T304:; |
738 |
base[5]= VV[30]; |
base[5]= VV[30]; |
739 |
base[6]= base[3]; |
base[6]= base[3]; |
747 |
V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]); |
V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]); |
748 |
V106= make_cons(/* INLINE-ARGS */V107,Cnil); |
V106= make_cons(/* INLINE-ARGS */V107,Cnil); |
749 |
goto T308; |
goto T308; |
750 |
|
goto T310; |
751 |
T310:; |
T310:; |
752 |
V106= Cnil; |
V106= Cnil; |
753 |
|
goto T308; |
754 |
T308:; |
T308:; |
755 |
V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106)); |
V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106)); |
756 |
V109= list(2,VV[29],(V12)); |
V109= list(2,VV[29],(V12)); |
758 |
goto T318;} |
goto T318;} |
759 |
V110= Cnil; |
V110= Cnil; |
760 |
goto T316; |
goto T316; |
761 |
|
goto T318; |
762 |
T318:; |
T318:; |
763 |
V110= Cnil; |
V110= Cnil; |
764 |
|
goto T316; |
765 |
T316:; |
T316:; |
766 |
V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110)); |
V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110)); |
767 |
if(((V13))==Cnil){ |
if(((V13))==Cnil){ |
775 |
V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13)); |
V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13)); |
776 |
V112= make_cons(/* INLINE-ARGS */V114,Cnil); |
V112= make_cons(/* INLINE-ARGS */V114,Cnil); |
777 |
goto T320; |
goto T320; |
778 |
|
goto T322; |
779 |
T322:; |
T322:; |
780 |
V112= Cnil; |
V112= Cnil; |
781 |
|
goto T320; |
782 |
T320:; |
T320:; |
783 |
V115= list(2,VV[42],list(2,VV[26],base[2])); |
V115= list(2,VV[42],list(2,VV[26],base[2])); |
784 |
V116= make_cons(/* INLINE-ARGS */V115,Cnil); |
V116= make_cons(/* INLINE-ARGS */V115,Cnil); |
787 |
V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15)))); |
V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15)))); |
788 |
base[5]= make_cons(/* INLINE-ARGS */V118,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V118,Cnil); |
789 |
goto T328; |
goto T328; |
790 |
|
goto T330; |
791 |
T330:; |
T330:; |
792 |
base[5]= Cnil; |
base[5]= Cnil; |
793 |
|
goto T328; |
794 |
T328:; |
T328:; |
795 |
if(((V18))==Cnil){ |
if(((V18))==Cnil){ |
796 |
goto T334;} |
goto T334;} |
800 |
base[6]= Cnil; |
base[6]= Cnil; |
801 |
goto T332;} |
goto T332;} |
802 |
base[7]=V119=MMcons(Cnil,Cnil); |
base[7]=V119=MMcons(Cnil,Cnil); |
803 |
|
goto T336; |
804 |
T336:; |
T336:; |
805 |
V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car))))); |
V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car))))); |
806 |
(V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car))))); |
(V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car))))); |
809 |
goto T332;} |
goto T332;} |
810 |
V119=MMcdr(V119)=MMcons(Cnil,Cnil); |
V119=MMcdr(V119)=MMcons(Cnil,Cnil); |
811 |
goto T336;} |
goto T336;} |
812 |
|
goto T334; |
813 |
T334:; |
T334:; |
814 |
base[6]= Cnil; |
base[6]= Cnil; |
815 |
|
goto T332; |
816 |
T332:;{object V124; |
T332:;{object V124; |
817 |
base[9]= VV[30]; |
base[9]= VV[30]; |
818 |
base[10]= base[3]; |
base[10]= base[3]; |
826 |
V124= Cnil; |
V124= Cnil; |
827 |
goto T341;} |
goto T341;} |
828 |
base[8]=V125=MMcons(Cnil,Cnil); |
base[8]=V125=MMcons(Cnil,Cnil); |
829 |
|
goto T342; |
830 |
T342:; |
T342:; |
831 |
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
832 |
if(endp(V126=MMcdr(V126))){ |
if(endp(V126=MMcdr(V126))){ |
834 |
goto T341;} |
goto T341;} |
835 |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
836 |
goto T342;} |
goto T342;} |
837 |
|
goto T341; |
838 |
T341:; |
T341:; |
839 |
if(V124==Cnil)goto T340; |
if(V124==Cnil)goto T340; |
840 |
V123= V124; |
V123= V124; |
841 |
goto T339; |
goto T339; |
842 |
|
goto T340; |
843 |
T340:;} |
T340:;} |
844 |
V123= VV[53]; |
V123= VV[53]; |
845 |
|
goto T339; |
846 |
T339:; |
T339:; |
847 |
V128= list(2,VV[52],list(2,VV[29],V123)); |
V128= list(2,VV[52],list(2,VV[29],V123)); |
848 |
if(((V19))==Cnil){ |
if(((V19))==Cnil){ |
853 |
base[8]= Cnil; |
base[8]= Cnil; |
854 |
goto T348;} |
goto T348;} |
855 |
base[9]=V130=MMcons(Cnil,Cnil); |
base[9]=V130=MMcons(Cnil,Cnil); |
856 |
|
goto T352; |
857 |
T352:; |
T352:; |
858 |
V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car))))); |
V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car))))); |
859 |
(V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car))))); |
(V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car))))); |
862 |
goto T348;} |
goto T348;} |
863 |
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
864 |
goto T352;} |
goto T352;} |
865 |
|
goto T350; |
866 |
T350:; |
T350:; |
867 |
base[8]= Cnil; |
base[8]= Cnil; |
868 |
|
goto T348; |
869 |
T348:; |
T348:; |
870 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
871 |
goto T356;} |
goto T356;} |
872 |
V134= list(3,VV[44],VV[56],list(2,VV[29],(V16))); |
V134= list(3,VV[44],VV[56],list(2,VV[29],(V16))); |
873 |
base[9]= make_cons(/* INLINE-ARGS */V134,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V134,Cnil); |
874 |
goto T354; |
goto T354; |
875 |
|
goto T356; |
876 |
T356:; |
T356:; |
877 |
base[9]= Cnil; |
base[9]= Cnil; |
878 |
|
goto T354; |
879 |
T354:; |
T354:; |
880 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
881 |
goto T360;} |
goto T360;} |
882 |
V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17)))); |
V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17)))); |
883 |
base[10]= make_cons(/* INLINE-ARGS */V135,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V135,Cnil); |
884 |
goto T358; |
goto T358; |
885 |
|
goto T360; |
886 |
T360:; |
T360:; |
887 |
base[10]= Cnil; |
base[10]= Cnil; |
888 |
|
goto T358; |
889 |
T358:; |
T358:; |
890 |
if(((V20))==Cnil){ |
if(((V20))==Cnil){ |
891 |
goto T364;} |
goto T364;} |
892 |
V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]); |
V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]); |
893 |
base[11]= make_cons(/* INLINE-ARGS */V136,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V136,Cnil); |
894 |
goto T362; |
goto T362; |
895 |
|
goto T364; |
896 |
T364:; |
T364:; |
897 |
base[11]= Cnil; |
base[11]= Cnil; |
898 |
|
goto T362; |
899 |
T362:; |
T362:; |
900 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
901 |
Lappend(); |
Lappend(); |
914 |
} |
} |
915 |
/* local function FIND-DUPLICATES */ |
/* local function FIND-DUPLICATES */ |
916 |
|
|
917 |
static L2(base0) |
static void L2(base0) |
918 |
register object *base0; |
register object *base0; |
919 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
920 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
935 |
V143= cdr((V139)); |
V143= cdr((V139)); |
936 |
{register long V144; |
{register long V144; |
937 |
V144= 1; |
V144= 1; |
938 |
|
goto T370; |
939 |
T370:; |
T370:; |
940 |
if(((V143))==Cnil){ |
if(((V143))==Cnil){ |
941 |
goto T373;} |
goto T373;} |
942 |
goto T372; |
goto T372; |
943 |
|
goto T373; |
944 |
T373:; |
T373:; |
945 |
goto T371; |
goto T371; |
946 |
|
goto T372; |
947 |
T372:; |
T372:; |
948 |
if(((V142))==Cnil){ |
if(((V142))==Cnil){ |
949 |
goto T376;} |
goto T376;} |
950 |
goto T375; |
goto T375; |
951 |
|
goto T376; |
952 |
T376:; |
T376:; |
953 |
goto T371; |
goto T371; |
954 |
|
goto T375; |
955 |
T375:; |
T375:; |
956 |
{object V145; |
{object V145; |
957 |
V145= car((V142)); |
V145= car((V142)); |
962 |
V147= (V141); |
V147= (V141); |
963 |
{register object V148; |
{register object V148; |
964 |
V148= Cnil; |
V148= Cnil; |
965 |
|
goto T383; |
966 |
T383:; |
T383:; |
967 |
if(((V147))==Cnil){ |
if(((V147))==Cnil){ |
968 |
goto T386;} |
goto T386;} |
969 |
goto T385; |
goto T385; |
970 |
|
goto T386; |
971 |
T386:; |
T386:; |
972 |
goto T384; |
goto T384; |
973 |
|
goto T385; |
974 |
T385:; |
T385:; |
975 |
{object V149; |
{object V149; |
976 |
V149= car((V147)); |
V149= car((V147)); |
997 |
V160= (type_of((V158))==t_fixnum?Ct:Cnil); |
V160= (type_of((V158))==t_fixnum?Ct:Cnil); |
998 |
if(V160==Cnil)goto T402; |
if(V160==Cnil)goto T402; |
999 |
goto T401; |
goto T401; |
1000 |
|
goto T402; |
1001 |
T402:;} |
T402:;} |
1002 |
(void)((*(LnkLI67))()); |
(void)((*(LnkLI67))()); |
1003 |
|
goto T401; |
1004 |
T401:; |
T401:; |
1005 |
V157= fix((V158));} |
V157= fix((V158));} |
1006 |
|
goto T405; |
1007 |
T405:; |
T405:; |
1008 |
if(((V156))==Cnil){ |
if(((V156))==Cnil){ |
1009 |
goto T408;} |
goto T408;} |
1010 |
goto T407; |
goto T407; |
1011 |
|
goto T408; |
1012 |
T408:; |
T408:; |
1013 |
goto T406; |
goto T406; |
1014 |
|
goto T407; |
1015 |
T407:; |
T407:; |
1016 |
{object V161; |
{object V161; |
1017 |
V161= car((V156)); |
V161= car((V156)); |
1031 |
V163= make_cons(V162,Cnil); |
V163= make_cons(V162,Cnil); |
1032 |
(void)(nconc((V148),/* INLINE-ARGS */V163)); |
(void)(nconc((V148),/* INLINE-ARGS */V163)); |
1033 |
goto T413; |
goto T413; |
1034 |
|
goto T421; |
1035 |
T421:; |
T421:; |
1036 |
V164 = make_fixnum(V144); |
V164 = make_fixnum(V144); |
1037 |
V165 = make_fixnum(V157); |
V165 = make_fixnum(V157); |
1038 |
V166= list(3,(V146),V164,V165); |
V166= list(3,(V146),V164,V165); |
1039 |
V140= make_cons(/* INLINE-ARGS */V166,(V140)); |
V140= make_cons(/* INLINE-ARGS */V166,(V140)); |
1040 |
V148= car((V140)); |
V148= car((V140)); |
1041 |
|
goto T413; |
1042 |
T413:; |
T413:; |
1043 |
V156= cdr((V156)); |
V156= cdr((V156)); |
1044 |
if(!((V157)<(2147483646))){ |
if(!((V157)<(2147483646))){ |
1045 |
goto T428;} |
goto T428;} |
1046 |
goto T427; |
goto T427; |
1047 |
|
goto T428; |
1048 |
T428:; |
T428:; |
1049 |
(void)((*(LnkLI67))()); |
(void)((*(LnkLI67))()); |
1050 |
|
goto T427; |
1051 |
T427:; |
T427:; |
1052 |
V157= (V157)+(1); |
V157= (V157)+(1); |
1053 |
goto T405; |
goto T405; |
1054 |
|
goto T406; |
1055 |
T406:; |
T406:; |
1056 |
goto T396; |
goto T396; |
1057 |
goto T396;}} |
goto T396;}} |
1058 |
|
goto T396; |
1059 |
T396:; |
T396:; |
1060 |
V147= cdr((V147)); |
V147= cdr((V147)); |
1061 |
goto T383; |
goto T383; |
1062 |
|
goto T384; |
1063 |
T384:; |
T384:; |
1064 |
goto T381; |
goto T381; |
1065 |
goto T381;}} |
goto T381;}} |
1066 |
|
goto T381; |
1067 |
T381:; |
T381:; |
1068 |
V142= cdr((V142)); |
V142= cdr((V142)); |
1069 |
V143= cdr((V143)); |
V143= cdr((V143)); |
1070 |
if(!((V144)<(2147483646))){ |
if(!((V144)<(2147483646))){ |
1071 |
goto T441;} |
goto T441;} |
1072 |
goto T440; |
goto T440; |
1073 |
|
goto T441; |
1074 |
T441:; |
T441:; |
1075 |
(void)((*(LnkLI67))()); |
(void)((*(LnkLI67))()); |
1076 |
|
goto T440; |
1077 |
T440:; |
T440:; |
1078 |
V144= (V144)+(1); |
V144= (V144)+(1); |
1079 |
goto T370; |
goto T370; |
1080 |
|
goto T371; |
1081 |
T371:; |
T371:; |
1082 |
goto T366; |
goto T366; |
1083 |
goto T366;}}} |
goto T366;}}} |
1084 |
|
goto T366; |
1085 |
T366:; |
T366:; |
1086 |
base[1]= (V140); |
base[1]= (V140); |
1087 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1090 |
} |
} |
1091 |
/* local function OPTION-TEST */ |
/* local function OPTION-TEST */ |
1092 |
|
|
1093 |
static LC3(base0) |
static void LC3(base0) |
1094 |
register object *base0; |
register object *base0; |
1095 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1096 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
1106 |
base[2]= (equal(car((V168)),(V167))?Ct:Cnil); |
base[2]= (equal(car((V168)),(V167))?Ct:Cnil); |
1107 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1108 |
return; |
return; |
1109 |
|
goto T447; |
1110 |
T447:; |
T447:; |
1111 |
base[2]= Cnil; |
base[2]= Cnil; |
1112 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1115 |
} |
} |
1116 |
/* local function OPTION-VALUES */ |
/* local function OPTION-VALUES */ |
1117 |
|
|
1118 |
static L5(base0) |
static void L5(base0) |
1119 |
register object *base0; |
register object *base0; |
1120 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1121 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
1126 |
V169=(base[0]); |
V169=(base[0]); |
1127 |
V170=(base[1]); |
V170=(base[1]); |
1128 |
vs_top=sup; |
vs_top=sup; |
1129 |
|
goto TTL; |
1130 |
TTL:; |
TTL:; |
1131 |
{register object V171; |
{register object V171; |
1132 |
V171= Cnil; |
V171= Cnil; |
1146 |
vs_top=sup; |
vs_top=sup; |
1147 |
V175= vs_base[0]; |
V175= vs_base[0]; |
1148 |
V171= (V175);} |
V171= (V175);} |
1149 |
|
goto T450; |
1150 |
T450:; |
T450:; |
1151 |
if(((V171))==Cnil){ |
if(((V171))==Cnil){ |
1152 |
goto T459;} |
goto T459;} |
1153 |
goto T458; |
goto T458; |
1154 |
|
goto T459; |
1155 |
T459:; |
T459:; |
1156 |
goto T451; |
goto T451; |
1157 |
|
goto T458; |
1158 |
T458:; |
T458:; |
1159 |
if(((V171))==Cnil){ |
if(((V171))==Cnil){ |
1160 |
goto T461;} |
goto T461;} |
1174 |
if(((V177))!=Cnil){ |
if(((V177))!=Cnil){ |
1175 |
goto T470;}} |
goto T470;}} |
1176 |
goto T461; |
goto T461; |
1177 |
|
goto T470; |
1178 |
T470:; |
T470:; |
1179 |
base[2]= cdr((V173)); |
base[2]= cdr((V173)); |
1180 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1182 |
vs_top=sup; |
vs_top=sup; |
1183 |
V173= vs_base[0]; |
V173= vs_base[0]; |
1184 |
goto T461; |
goto T461; |
1185 |
|
goto T468; |
1186 |
T468:; |
T468:; |
1187 |
V172= (V174); |
V172= (V174); |
1188 |
base[2]= (V172); |
base[2]= (V172); |
1190 |
Llast(); |
Llast(); |
1191 |
vs_top=sup; |
vs_top=sup; |
1192 |
V173= vs_base[0]; |
V173= vs_base[0]; |
1193 |
|
goto T461; |
1194 |
T461:; |
T461:; |
1195 |
{register object V178; |
{register object V178; |
1196 |
base[2]= (V169); |
base[2]= (V169); |
1203 |
V178= vs_base[0]; |
V178= vs_base[0]; |
1204 |
V171= (V178);} |
V171= (V178);} |
1205 |
goto T450; |
goto T450; |
1206 |
|
goto T451; |
1207 |
T451:; |
T451:; |
1208 |
base[2]= (V172); |
base[2]= (V172); |
1209 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1218 |
} |
} |
1219 |
/* local function OPTION-VALUES-LIST */ |
/* local function OPTION-VALUES-LIST */ |
1220 |
|
|
1221 |
static L4(base0) |
static void L4(base0) |
1222 |
register object *base0; |
register object *base0; |
1223 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1224 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
1229 |
V179=(base[0]); |
V179=(base[0]); |
1230 |
V180=(base[1]); |
V180=(base[1]); |
1231 |
vs_top=sup; |
vs_top=sup; |
1232 |
|
goto TTL; |
1233 |
TTL:; |
TTL:; |
1234 |
{register object V181; |
{register object V181; |
1235 |
V181= Cnil; |
V181= Cnil; |
1249 |
vs_top=sup; |
vs_top=sup; |
1250 |
V185= vs_base[0]; |
V185= vs_base[0]; |
1251 |
V181= (V185);} |
V181= (V185);} |
1252 |
|
goto T490; |
1253 |
T490:; |
T490:; |
1254 |
if(((V181))==Cnil){ |
if(((V181))==Cnil){ |
1255 |
goto T499;} |
goto T499;} |
1256 |
goto T498; |
goto T498; |
1257 |
|
goto T499; |
1258 |
T499:; |
T499:; |
1259 |
goto T491; |
goto T491; |
1260 |
|
goto T498; |
1261 |
T498:; |
T498:; |
1262 |
if(((V181))==Cnil){ |
if(((V181))==Cnil){ |
1263 |
goto T501;} |
goto T501;} |
1272 |
if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186)); |
if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186)); |
1273 |
((V186))->c.c_cdr = (V187); |
((V186))->c.c_cdr = (V187); |
1274 |
goto T501;} |
goto T501;} |
1275 |
|
goto T507; |
1276 |
T507:; |
T507:; |
1277 |
V183= make_cons((V184),Cnil); |
V183= make_cons((V184),Cnil); |
1278 |
V182= (V183); |
V182= (V183); |
1279 |
|
goto T501; |
1280 |
T501:; |
T501:; |
1281 |
{register object V188; |
{register object V188; |
1282 |
base[2]= (V179); |
base[2]= (V179); |
1289 |
V188= vs_base[0]; |
V188= vs_base[0]; |
1290 |
V181= (V188);} |
V181= (V188);} |
1291 |
goto T490; |
goto T490; |
1292 |
|
goto T491; |
1293 |
T491:; |
T491:; |
1294 |
base[2]= (V182); |
base[2]= (V182); |
1295 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1302 |
return;}} |
return;}} |
1303 |
} |
} |
1304 |
} |
} |
1305 |
static object LnkTLI67(){return call_proc0(VV[67],&LnkLI67);} /* TYPE-ERROR */ |
static object LnkTLI67(){return call_proc0(VV[67],(void **)&LnkLI67);} /* TYPE-ERROR */ |
1306 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* FIND */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* FIND */ |
1307 |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WARN */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],(void **)&LnkLI64,ap);} /* WARN */ |
1308 |
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* COUNT */ |
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],(void **)&LnkLI62,ap);} /* COUNT */ |
1309 |
|
|
1310 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1311 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |