2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_restart.h" |
#include "clcs_restart.h" |
4 |
void init_clcs_restart(){do_init(VV);} |
void init_clcs_restart(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2195 */ |
/* local entry for function progn 'compile2194 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
11 |
TTL:; |
TTL:; |
12 |
base[0]= VV[0]; |
base[0]= VV[0]; |
13 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
14 |
(void) (*Lnk90)(); |
(void) (*Lnk95)(); |
15 |
vs_top=sup; |
vs_top=sup; |
16 |
{object V1 = Cnil; |
{object V1 = Cnil; |
17 |
VMR1(V1)} |
VMR1(V1)} |
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2207 */ |
/* local entry for function progn 'compile2206 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
41 |
base[0]=base[0]; |
base[0]=base[0]; |
42 |
return Cnil; |
return Cnil; |
43 |
} |
} |
44 |
/* local entry for function progn 'compile2220 */ |
/* local entry for function progn 'compile2219 */ |
45 |
|
|
46 |
static object LI3() |
static object LI3() |
47 |
|
|
52 |
VMR3(V3)} |
VMR3(V3)} |
53 |
return Cnil; |
return Cnil; |
54 |
} |
} |
55 |
/* local entry for function progn 'compile2236 */ |
/* local entry for function progn 'compile2235 */ |
56 |
|
|
57 |
static object LI4() |
static object LI4() |
58 |
|
|
61 |
TTL:; |
TTL:; |
62 |
base[0]= VV[1]; |
base[0]= VV[1]; |
63 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
64 |
(void) (*Lnk90)(); |
(void) (*Lnk95)(); |
65 |
vs_top=sup; |
vs_top=sup; |
66 |
{object V4 = Cnil; |
{object V4 = Cnil; |
67 |
VMR4(V4)} |
VMR4(V4)} |
68 |
base[0]=base[0]; |
base[0]=base[0]; |
69 |
return Cnil; |
return Cnil; |
70 |
} |
} |
71 |
/* local entry for function progn 'compile2248 */ |
/* local entry for function progn 'compile2247 */ |
72 |
|
|
73 |
static object LI5() |
static object LI5() |
74 |
|
|
87 |
VMR5(V5)} |
VMR5(V5)} |
88 |
return Cnil; |
return Cnil; |
89 |
} |
} |
90 |
/* local entry for function progn 'compile2261 */ |
/* local entry for function progn 'compile2260 */ |
91 |
|
|
92 |
static object LI6() |
static object LI6() |
93 |
|
|
208 |
base[6]= VV[3]; |
base[6]= VV[3]; |
209 |
base[7]= (V23); |
base[7]= (V23); |
210 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
211 |
(void) (*Lnk91)(); |
(void) (*Lnk96)(); |
212 |
vs_top=sup; |
vs_top=sup; |
213 |
goto T41; |
goto T41; |
214 |
T41:; |
T41:; |
280 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
281 |
return;}}} |
return;}}} |
282 |
} |
} |
283 |
/* local entry for function progn 'compile2362 */ |
/* local entry for function progn 'compile2361 */ |
284 |
|
|
285 |
static object LI10() |
static object LI10() |
286 |
|
|
289 |
TTL:; |
TTL:; |
290 |
base[0]= VV[10]; |
base[0]= VV[10]; |
291 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
292 |
(void) (*Lnk90)(); |
(void) (*Lnk95)(); |
293 |
vs_top=sup; |
vs_top=sup; |
294 |
{object V40 = Cnil; |
{object V40 = Cnil; |
295 |
VMR10(V40)} |
VMR10(V40)} |
296 |
base[0]=base[0]; |
base[0]=base[0]; |
297 |
return Cnil; |
return Cnil; |
298 |
} |
} |
299 |
/* local entry for function progn 'compile2374 */ |
/* local entry for function progn 'compile2373 */ |
300 |
|
|
301 |
static object LI11() |
static object LI11() |
302 |
|
|
315 |
VMR11(V41)} |
VMR11(V41)} |
316 |
return Cnil; |
return Cnil; |
317 |
} |
} |
318 |
/* local entry for function progn 'compile2387 */ |
/* local entry for function progn 'compile2386 */ |
319 |
|
|
320 |
static object LI12() |
static object LI12() |
321 |
|
|
326 |
VMR12(V42)} |
VMR12(V42)} |
327 |
return Cnil; |
return Cnil; |
328 |
} |
} |
329 |
/* local entry for function progn 'compile2403 */ |
/* local entry for function progn 'compile2402 */ |
330 |
|
|
331 |
static object LI13() |
static object LI13() |
332 |
|
|
335 |
TTL:; |
TTL:; |
336 |
base[0]= VV[11]; |
base[0]= VV[11]; |
337 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
338 |
(void) (*Lnk90)(); |
(void) (*Lnk95)(); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
{object V43 = Cnil; |
{object V43 = Cnil; |
341 |
VMR13(V43)} |
VMR13(V43)} |
342 |
base[0]=base[0]; |
base[0]=base[0]; |
343 |
return Cnil; |
return Cnil; |
344 |
} |
} |
345 |
/* local entry for function progn 'compile2415 */ |
/* local entry for function progn 'compile2414 */ |
346 |
|
|
347 |
static object LI14() |
static object LI14() |
348 |
|
|
361 |
VMR14(V44)} |
VMR14(V44)} |
362 |
return Cnil; |
return Cnil; |
363 |
} |
} |
364 |
/* local entry for function progn 'compile2428 */ |
/* local entry for function progn 'compile2427 */ |
365 |
|
|
366 |
static object LI15() |
static object LI15() |
367 |
|
|
481 |
goto T97; |
goto T97; |
482 |
T97:; |
T97:; |
483 |
V59= nreverse((V51)); |
V59= nreverse((V51)); |
484 |
V60= (*(LnkLI92))(); |
V60= (*(LnkLI97))(); |
485 |
{object V61 = nconc(/* INLINE-ARGS */V59,/* INLINE-ARGS */V60); |
{object V61 = nconc(/* INLINE-ARGS */V59,/* INLINE-ARGS */V60); |
486 |
VMR16(V61)}}} |
VMR16(V61)}}} |
487 |
va_end(ap); |
va_end(ap); |
537 |
Ltype_of(); |
Ltype_of(); |
538 |
vs_top=sup; |
vs_top=sup; |
539 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
540 |
base[6]= (*(LnkLI93))((V67)); |
base[6]= (*(LnkLI98))((V67)); |
541 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
542 |
Lformat(); |
Lformat(); |
543 |
return; |
return; |
546 |
base[3]= (V67); |
base[3]= (V67); |
547 |
base[4]= (V68); |
base[4]= (V68); |
548 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
549 |
(void) (*Lnk94)(); |
(void) (*Lnk99)(); |
550 |
return; |
return; |
551 |
} |
} |
552 |
} |
} |
553 |
/* local entry for function progn 'compile2579 */ |
/* local entry for function progn 'compile2578 */ |
554 |
|
|
555 |
static object LI19() |
static object LI19() |
556 |
|
|
572 |
base[12]= VV[24]; |
base[12]= VV[24]; |
573 |
base[13]= Cnil; |
base[13]= Cnil; |
574 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
575 |
(void) (*Lnk95)(); |
(void) (*Lnk100)(); |
576 |
vs_top=sup; |
vs_top=sup; |
577 |
{object V70 = Cnil; |
{object V70 = Cnil; |
578 |
VMR19(V70)} |
VMR19(V70)} |
599 |
V73=(Vcs[2]); |
V73=(Vcs[2]); |
600 |
V74=(Vcs[3]); |
V74=(Vcs[3]); |
601 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
602 |
V75= VV[96]; |
V75= VV[101]; |
603 |
}else{ |
}else{ |
604 |
V75=(Vcs[4]);} |
V75=(Vcs[4]);} |
605 |
base[0]= VV[12]; |
base[0]= VV[12]; |
617 |
base[0]=base[0]; |
base[0]=base[0]; |
618 |
return Cnil;} |
return Cnil;} |
619 |
}} |
}} |
620 |
/* local entry for function progn 'compile2607 */ |
/* local entry for function progn 'compile2606 */ |
621 |
|
|
622 |
static object LI21() |
static object LI21() |
623 |
|
|
628 |
VMR21(V77)} |
VMR21(V77)} |
629 |
return Cnil; |
return Cnil; |
630 |
} |
} |
631 |
/* local entry for function progn 'compile2623 */ |
/* local entry for function progn 'compile2622 */ |
632 |
|
|
633 |
static object LI22() |
static object LI22() |
634 |
|
|
637 |
TTL:; |
TTL:; |
638 |
base[0]= VV[25]; |
base[0]= VV[25]; |
639 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
640 |
(void) (*Lnk90)(); |
(void) (*Lnk95)(); |
641 |
vs_top=sup; |
vs_top=sup; |
642 |
{object V78 = Cnil; |
{object V78 = Cnil; |
643 |
VMR22(V78)} |
VMR22(V78)} |
644 |
base[0]=base[0]; |
base[0]=base[0]; |
645 |
return Cnil; |
return Cnil; |
646 |
} |
} |
647 |
/* local entry for function progn 'compile2635 */ |
/* local entry for function progn 'compile2634 */ |
648 |
|
|
649 |
static object LI23() |
static object LI23() |
650 |
|
|
663 |
VMR23(V79)} |
VMR23(V79)} |
664 |
return Cnil; |
return Cnil; |
665 |
} |
} |
666 |
/* local entry for function progn 'compile2648 */ |
/* local entry for function progn 'compile2647 */ |
667 |
|
|
668 |
static object LI24() |
static object LI24() |
669 |
|
|
684 |
TTL:; |
TTL:; |
685 |
base[0]=MMcons((V82),Cnil); |
base[0]=MMcons((V82),Cnil); |
686 |
V83= |
V83= |
|
make_cclosure_new(LC46,Cnil,base[0],Cdata); |
|
|
V84= |
|
687 |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
688 |
|
V84= |
689 |
|
make_cclosure_new(LC48,Cnil,base[0],Cdata); |
690 |
{object V85 = (VFUN_NARGS=8,(*(LnkLI43))(VV[26],VV[27],VV[28],V83,VV[29],V84,VV[39],Cnil)); |
{object V85 = (VFUN_NARGS=8,(*(LnkLI43))(VV[26],VV[27],VV[28],V83,VV[29],V84,VV[39],Cnil)); |
691 |
VMR25(V85)} |
VMR25(V85)} |
692 |
base[0]=base[0]; |
base[0]=base[0]; |
715 |
goto T181; |
goto T181; |
716 |
T181:;} |
T181:;} |
717 |
{object V92; |
{object V92; |
718 |
V93= (*(LnkLI97))((V87)); |
V93= (*(LnkLI102))((V87)); |
719 |
V92= make_cons((V87),/* INLINE-ARGS */V93); |
V92= make_cons((V87),/* INLINE-ARGS */V93); |
720 |
(VV[25]->s.s_dbind)= make_cons((V92),(VV[25]->s.s_dbind)); |
(VV[25]->s.s_dbind)= make_cons((V92),(VV[25]->s.s_dbind)); |
721 |
V91= (VV[25]->s.s_dbind);} |
V91= (VV[25]->s.s_dbind);} |
780 |
base[3]=V101=MMcons(Cnil,Cnil); |
base[3]=V101=MMcons(Cnil,Cnil); |
781 |
goto T197; |
goto T197; |
782 |
T197:; |
T197:; |
783 |
(V101->c.c_car)= (*(LnkLI98))((V102->c.c_car)); |
(V101->c.c_car)= (*(LnkLI103))((V102->c.c_car)); |
784 |
if((V102=MMcdr(V102))==Cnil){ |
if((V102=MMcdr(V102))==Cnil){ |
785 |
V97= base[3]; |
V97= base[3]; |
786 |
goto T196;} |
goto T196;} |
831 |
base[3]= STREF(object,(base[0]->c.c_car),0); |
base[3]= STREF(object,(base[0]->c.c_car),0); |
832 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
833 |
base[2]= |
base[2]= |
834 |
make_cclosure_new(LC48,Cnil,base[3],Cdata);} |
make_cclosure_new(LC49,Cnil,base[3],Cdata);} |
835 |
goto T203; |
goto T203; |
836 |
T203:; |
T203:; |
837 |
base[3]= (V107); |
base[3]= (V107); |
896 |
goto T214; |
goto T214; |
897 |
T214:; |
T214:; |
898 |
{object V118; |
{object V118; |
899 |
V118= (VFUN_NARGS=1,(*(LnkLI99))((V117))); |
V118= (VFUN_NARGS=1,(*(LnkLI104))((V117))); |
900 |
{register object V119; |
{register object V119; |
901 |
register object V120; |
register object V120; |
902 |
V119= (V118); |
V119= (V118); |
952 |
base[3]= VV[45]; |
base[3]= VV[45]; |
953 |
base[4]= (V123); |
base[4]= (V123); |
954 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
955 |
(void) (*Lnk100)(); |
(void) (*Lnk105)(); |
956 |
vs_top=sup; |
vs_top=sup; |
957 |
V125= vs_base[0]; |
V125= vs_base[0]; |
958 |
goto T235; |
goto T235; |
992 |
base[1]= VV[46]; |
base[1]= VV[46]; |
993 |
base[2]= (V128); |
base[2]= (V128); |
994 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
995 |
(void) (*Lnk91)(); |
(void) (*Lnk96)(); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
V129= vs_base[0]; |
V129= vs_base[0]; |
998 |
goto T243; |
goto T243; |
1090 |
V142= CMPcar((V138)); |
V142= CMPcar((V138)); |
1091 |
V143= make_cons(VV[42],CMPcdr((V138))); |
V143= make_cons(VV[42],CMPcdr((V138))); |
1092 |
{object V145= (V137); |
{object V145= (V137); |
1093 |
if((V145!= VV[101]))goto T271; |
if((V145!= VV[106]))goto T271; |
1094 |
V144= VV[54]; |
V144= VV[54]; |
1095 |
goto T270; |
goto T270; |
1096 |
goto T271; |
goto T271; |
1097 |
T271:; |
T271:; |
1098 |
if((V145!= VV[102]))goto T272; |
if((V145!= VV[107]))goto T272; |
1099 |
V144= VV[55]; |
V144= VV[55]; |
1100 |
goto T270; |
goto T270; |
1101 |
goto T272; |
goto T272; |
1276 |
base[4]= base[2]; |
base[4]= base[2]; |
1277 |
base[5]= (V158); |
base[5]= (V158); |
1278 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1279 |
(void) (*Lnk103)(); |
(void) (*Lnk108)(); |
1280 |
vs_top=sup; |
vs_top=sup; |
1281 |
V180= vs_base[0]; |
V180= vs_base[0]; |
1282 |
V181= list(3,VV[66],V172,list(3,VV[73],(V156),V180)); |
V181= list(3,VV[66],V172,list(3,VV[73],(V156),V180)); |
1346 |
T326:; |
T326:; |
1347 |
base[1]= (VFUN_NARGS=2,(*(LnkLI59))(VV[84],(V192))); |
base[1]= (VFUN_NARGS=2,(*(LnkLI59))(VV[84],(V192))); |
1348 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1349 |
(void) (*Lnk104)(); |
(void) (*Lnk91)(); |
1350 |
vs_top=sup; |
vs_top=sup; |
1351 |
base[1]= VV[85]; |
base[1]= VV[85]; |
1352 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1353 |
(void) (*Lnk91)(); |
(void) (*Lnk96)(); |
1354 |
return; |
return; |
1355 |
} |
} |
1356 |
} |
} |
1357 |
/* function definition for CONTINUE */ |
/* function definition for MUFFLE-WARNING */ |
1358 |
|
|
1359 |
static void L41() |
static void L41() |
1360 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1361 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1362 |
vs_check; |
vs_check; |
1363 |
|
{object V193; |
1364 |
|
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
1365 |
|
V193=(base[0]); |
1366 |
vs_top=sup; |
vs_top=sup; |
1367 |
goto TTL; |
goto T332; |
1368 |
TTL:; |
goto T331; |
1369 |
base[0]= VV[86]; |
T331:; |
1370 |
vs_top=(vs_base=base+0)+1; |
V193= Cnil; |
1371 |
(void) (*Lnk104)(); |
goto T332; |
1372 |
|
T332:; |
1373 |
|
base[1]= (VFUN_NARGS=2,(*(LnkLI59))(VV[86],(V193))); |
1374 |
|
vs_top=(vs_base=base+1)+1; |
1375 |
|
(void) (*Lnk91)(); |
1376 |
return; |
return; |
1377 |
|
} |
1378 |
} |
} |
1379 |
/* function definition for MUFFLE-WARNING */ |
/* macro definition for DEFINE-NIL-RETURNING-RESTART */ |
1380 |
|
|
1381 |
static void L42() |
static void L42() |
1382 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1383 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
1384 |
vs_check; |
vs_check; |
1385 |
vs_top=sup; |
vs_top=sup; |
1386 |
goto TTL; |
{object V194=base[0]->c.c_cdr; |
1387 |
TTL:; |
base[2]= (V194->c.c_car); |
1388 |
base[0]= VV[87]; |
V194=V194->c.c_cdr; |
1389 |
vs_top=(vs_base=base+0)+1; |
base[3]= (V194->c.c_car); |
1390 |
(void) (*Lnk104)(); |
V194=V194->c.c_cdr; |
1391 |
|
base[4]= (V194->c.c_car);} |
1392 |
|
V195= append(base[3],VV[88]); |
1393 |
|
V196= list(3,VV[59],list(2,VV[7],base[2]),VV[90]); |
1394 |
|
base[5]= list(5,VV[87],base[2],/* INLINE-ARGS */V195,base[4],list(3,VV[89],/* INLINE-ARGS */V196,listA(3,VV[91],list(2,VV[7],base[2]),base[3]))); |
1395 |
|
vs_top=(vs_base=base+5)+1; |
1396 |
return; |
return; |
1397 |
} |
} |
1398 |
/* function definition for STORE-VALUE */ |
/* function definition for CONTINUE */ |
1399 |
|
|
1400 |
static void L43() |
static void L43() |
1401 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1402 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
1403 |
vs_check; |
vs_check; |
1404 |
{object V193; |
{object V197; |
1405 |
V193=(base[0]); |
if(vs_base>=vs_top){vs_top=sup;goto T335;} |
1406 |
vs_top=sup; |
V197=(base[0]); |
1407 |
goto TTL; |
vs_top=sup; |
1408 |
TTL:; |
goto T336; |
1409 |
base[1]= VV[88]; |
goto T335; |
1410 |
base[2]= (V193); |
T335:; |
1411 |
vs_top=(vs_base=base+1)+2; |
V197= Cnil; |
1412 |
(void) (*Lnk104)(); |
goto T336; |
1413 |
|
T336:; |
1414 |
|
if(((VFUN_NARGS=2,(*(LnkLI59))(VV[92],(V197))))==Cnil){ |
1415 |
|
goto T339;} |
1416 |
|
base[1]= VV[92]; |
1417 |
|
vs_top=(vs_base=base+1)+1; |
1418 |
|
(void) (*Lnk91)(); |
1419 |
|
return; |
1420 |
|
goto T339; |
1421 |
|
T339:; |
1422 |
|
base[1]= Cnil; |
1423 |
|
vs_top=(vs_base=base+1)+1; |
1424 |
return; |
return; |
1425 |
} |
} |
1426 |
} |
} |
1427 |
/* function definition for USE-VALUE */ |
/* function definition for STORE-VALUE */ |
1428 |
|
|
1429 |
static void L44() |
static void L44() |
1430 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1431 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM41; VC41 |
1432 |
vs_check; |
vs_check; |
1433 |
{object V194; |
{object V198; |
1434 |
V194=(base[0]); |
object V199; |
1435 |
|
V198=(base[0]); |
1436 |
|
vs_base=vs_base+1; |
1437 |
|
if(vs_base>=vs_top){vs_top=sup;goto T342;} |
1438 |
|
V199=(base[1]); |
1439 |
vs_top=sup; |
vs_top=sup; |
1440 |
goto TTL; |
goto T343; |
1441 |
TTL:; |
goto T342; |
1442 |
base[1]= VV[89]; |
T342:; |
1443 |
base[2]= (V194); |
V199= Cnil; |
1444 |
vs_top=(vs_base=base+1)+2; |
goto T343; |
1445 |
(void) (*Lnk104)(); |
T343:; |
1446 |
|
if(((VFUN_NARGS=2,(*(LnkLI59))(VV[93],(V199))))==Cnil){ |
1447 |
|
goto T346;} |
1448 |
|
base[2]= VV[93]; |
1449 |
|
base[3]= (V198); |
1450 |
|
vs_top=(vs_base=base+2)+2; |
1451 |
|
(void) (*Lnk91)(); |
1452 |
|
return; |
1453 |
|
goto T346; |
1454 |
|
T346:; |
1455 |
|
base[2]= Cnil; |
1456 |
|
vs_top=(vs_base=base+2)+1; |
1457 |
|
return; |
1458 |
|
} |
1459 |
|
} |
1460 |
|
/* function definition for USE-VALUE */ |
1461 |
|
|
1462 |
|
static void L45() |
1463 |
|
{register object *base=vs_base; |
1464 |
|
register object *sup=base+VM42; VC42 |
1465 |
|
vs_check; |
1466 |
|
{object V200; |
1467 |
|
object V201; |
1468 |
|
V200=(base[0]); |
1469 |
|
vs_base=vs_base+1; |
1470 |
|
if(vs_base>=vs_top){vs_top=sup;goto T350;} |
1471 |
|
V201=(base[1]); |
1472 |
|
vs_top=sup; |
1473 |
|
goto T351; |
1474 |
|
goto T350; |
1475 |
|
T350:; |
1476 |
|
V201= Cnil; |
1477 |
|
goto T351; |
1478 |
|
T351:; |
1479 |
|
if(((VFUN_NARGS=2,(*(LnkLI59))(VV[94],(V201))))==Cnil){ |
1480 |
|
goto T354;} |
1481 |
|
base[2]= VV[94]; |
1482 |
|
base[3]= (V200); |
1483 |
|
vs_top=(vs_base=base+2)+2; |
1484 |
|
(void) (*Lnk91)(); |
1485 |
|
return; |
1486 |
|
goto T354; |
1487 |
|
T354:; |
1488 |
|
base[2]= Cnil; |
1489 |
|
vs_top=(vs_base=base+2)+1; |
1490 |
return; |
return; |
1491 |
} |
} |
1492 |
} |
} |
1495 |
static void L38(base0) |
static void L38(base0) |
1496 |
register object *base0; |
register object *base0; |
1497 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1498 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM43; VC43 |
1499 |
vs_check; |
vs_check; |
1500 |
{register object V195; |
{register object V202; |
1501 |
object V196; |
object V203; |
1502 |
object V197; |
object V204; |
1503 |
parse_key(vs_base,FALSE,FALSE,3,VV[61],VV[62],VV[63]); |
parse_key(vs_base,FALSE,FALSE,3,VV[61],VV[62],VV[63]); |
1504 |
vs_top=sup; |
vs_top=sup; |
1505 |
V195=(base[0]); |
V202=(base[0]); |
1506 |
V196=(base[1]); |
V203=(base[1]); |
1507 |
V197=(base[2]); |
V204=(base[2]); |
1508 |
{register object V198; |
{register object V205; |
1509 |
V198= Cnil; |
V205= Cnil; |
1510 |
if(((V195))==Cnil){ |
if(((V202))==Cnil){ |
1511 |
goto T337;} |
goto T358;} |
1512 |
if(!(type_of((V195))==t_string)){ |
if(!(type_of((V202))==t_string)){ |
1513 |
goto T343;} |
goto T364;} |
1514 |
V199= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[76],(V195),VV[77]))); |
V206= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[76],(V202),VV[77]))); |
1515 |
goto T341; |
goto T362; |
1516 |
goto T343; |
goto T364; |
1517 |
T343:; |
T364:; |
1518 |
V199= list(2,VV[67],(V195)); |
V206= list(2,VV[67],(V202)); |
1519 |
goto T341; |
goto T362; |
1520 |
T341:; |
T362:; |
1521 |
V198= listA(3,V199,VV[29],(V198)); |
V205= listA(3,V206,VV[29],(V205)); |
1522 |
goto T337; |
goto T358; |
1523 |
T337:; |
T358:; |
1524 |
if(((V196))==Cnil){ |
if(((V203))==Cnil){ |
1525 |
goto T345;} |
goto T366;} |
1526 |
V198= listA(3,list(2,VV[67],(V196)),VV[39],(V198)); |
V205= listA(3,list(2,VV[67],(V203)),VV[39],(V205)); |
1527 |
goto T345; |
goto T366; |
1528 |
T345:; |
T366:; |
1529 |
if(((V197))==Cnil){ |
if(((V204))==Cnil){ |
1530 |
goto T349;} |
goto T370;} |
1531 |
V198= listA(3,list(2,VV[67],(V197)),VV[78],(V198)); |
V205= listA(3,list(2,VV[67],(V204)),VV[78],(V205)); |
1532 |
goto T349; |
goto T370; |
1533 |
T349:; |
T370:; |
1534 |
base[6]= nreverse((V198)); |
base[6]= nreverse((V205)); |
1535 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1536 |
return;} |
return;} |
1537 |
} |
} |
1541 |
static void L35(base0) |
static void L35(base0) |
1542 |
register object *base0; |
register object *base0; |
1543 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1544 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM44; VC44 |
1545 |
vs_check; |
vs_check; |
1546 |
{object V200; |
{object V207; |
1547 |
object V201; |
object V208; |
1548 |
V200=(base[0]); |
V207=(base[0]); |
1549 |
V201=(base[1]); |
V208=(base[1]); |
1550 |
vs_top=sup; |
vs_top=sup; |
1551 |
goto TTL; |
goto TTL; |
1552 |
TTL:; |
TTL:; |
1553 |
if(((V200))!=Cnil){ |
if(((V207))!=Cnil){ |
1554 |
goto T354;} |
goto T375;} |
1555 |
base[2]= make_cons(VV[47],(V201)); |
base[2]= make_cons(VV[47],(V208)); |
1556 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1557 |
return; |
return; |
1558 |
goto T354; |
goto T375; |
1559 |
T354:; |
T375:; |
1560 |
{register object V202; |
{register object V209; |
1561 |
V202= CMPcar((V200)); |
V209= CMPcar((V207)); |
1562 |
if(!(((long)length((V202)))!=(2))){ |
if(!(((long)length((V209)))!=(2))){ |
1563 |
goto T357;} |
goto T378;} |
1564 |
base[2]= VV[48]; |
base[2]= VV[48]; |
1565 |
base[3]= (V202); |
base[3]= (V209); |
1566 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1567 |
(void) (*Lnk91)(); |
(void) (*Lnk96)(); |
1568 |
vs_top=sup; |
vs_top=sup; |
1569 |
goto T357; |
goto T378; |
1570 |
T357:; |
T378:; |
1571 |
{object V203; |
{object V210; |
1572 |
object V204; |
object V211; |
1573 |
V203= CMPcar((V202)); |
V210= CMPcar((V209)); |
1574 |
vs_base=vs_top; |
vs_base=vs_top; |
1575 |
Lgensym(); |
Lgensym(); |
1576 |
vs_top=sup; |
vs_top=sup; |
1577 |
V204= vs_base[0]; |
V211= vs_base[0]; |
1578 |
V205= list(2,(V204),CMPcadr((V202))); |
V212= list(2,(V211),CMPcadr((V209))); |
1579 |
V206= list(2,/* INLINE-ARGS */V205,list(2,(V203),VV[49])); |
V213= list(2,/* INLINE-ARGS */V212,list(2,(V210),VV[49])); |
1580 |
V207= list(2,VV[42],list(3,VV[42],(V203),(V204))); |
V214= list(2,VV[42],list(3,VV[42],(V210),(V211))); |
1581 |
base[2]= CMPcdr((V200)); |
base[2]= CMPcdr((V207)); |
1582 |
base[3]= (V201); |
base[3]= (V208); |
1583 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1584 |
L35(base0); |
L35(base0); |
1585 |
vs_top=sup; |
vs_top=sup; |
1586 |
V208= vs_base[0]; |
V215= vs_base[0]; |
1587 |
base[2]= list(3,VV[8],/* INLINE-ARGS */V206,list(4,VV[42],VV[50],/* INLINE-ARGS */V207,V208)); |
base[2]= list(3,VV[8],/* INLINE-ARGS */V213,list(4,VV[42],VV[50],/* INLINE-ARGS */V214,V215)); |
1588 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1589 |
return;}} |
return;}} |
1590 |
} |
} |
1591 |
} |
} |
1592 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1593 |
|
|
1594 |
static void LC48(base0) |
static void LC49(base0) |
1595 |
register object *base0; |
register object *base0; |
1596 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1597 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM45; VC45 |
1598 |
vs_check; |
vs_check; |
1599 |
{object V209; |
{object V216; |
1600 |
V209=(base[0]); |
V216=(base[0]); |
1601 |
vs_top=sup; |
vs_top=sup; |
1602 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
1603 |
goto T368;} |
goto T389;} |
1604 |
base[1]= (V209); |
base[1]= (V216); |
1605 |
base[2]= VV[40]; |
base[2]= VV[40]; |
1606 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
1607 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1608 |
Lformat(); |
Lformat(); |
1609 |
return; |
return; |
1610 |
goto T368; |
goto T389; |
1611 |
T368:; |
T389:; |
1612 |
base[1]= (V209); |
base[1]= (V216); |
1613 |
base[2]= VV[41]; |
base[2]= VV[41]; |
1614 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1615 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1619 |
} |
} |
1620 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1621 |
|
|
1622 |
static void LC47(base0) |
static void LC48(base0) |
1623 |
register object *base0; |
register object *base0; |
1624 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1625 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM46; VC46 |
1626 |
vs_check; |
vs_check; |
1627 |
{object V210; |
{object V217; |
1628 |
V210=(base[0]); |
V217=(base[0]); |
1629 |
vs_top=sup; |
vs_top=sup; |
1630 |
{object V211; |
{object V218; |
1631 |
if(!(((base0[0]->c.c_car))==((VV[30]->s.s_dbind)))){ |
if(!(((base0[0]->c.c_car))==((VV[30]->s.s_dbind)))){ |
1632 |
goto T378;} |
goto T399;} |
1633 |
V211= (VV[31]->s.s_dbind); |
V218= (VV[31]->s.s_dbind); |
1634 |
goto T376; |
goto T397; |
1635 |
goto T378; |
goto T399; |
1636 |
T378:;{object V213; |
T399:;{object V220; |
1637 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1638 |
base[2]= (VV[32]->s.s_dbind); |
base[2]= (VV[32]->s.s_dbind); |
1639 |
base[3]= VV[33]; |
base[3]= VV[33]; |
1640 |
base[4]= (VV[15]->s.s_gfdef); |
base[4]= (VV[15]->s.s_gfdef); |
1641 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1642 |
(void) (*Lnk105)(); |
(void) (*Lnk109)(); |
1643 |
vs_top=sup; |
vs_top=sup; |
1644 |
V213= vs_base[0]; |
V220= vs_base[0]; |
1645 |
if(V213==Cnil)goto T381; |
if(V220==Cnil)goto T402; |
1646 |
V212= V213; |
V219= V220; |
1647 |
goto T380; |
goto T401; |
1648 |
goto T381; |
goto T402; |
1649 |
T381:;} |
T402:;} |
1650 |
V212= VV[34]; |
V219= VV[34]; |
1651 |
goto T380; |
goto T401; |
1652 |
T380:; |
T401:; |
1653 |
V211= CMPcar(V212); |
V218= CMPcar(V219); |
1654 |
goto T376; |
goto T397; |
1655 |
T376:; |
T397:; |
1656 |
if(!(((V211))==(VV[35]))){ |
if(!(((V218))==(VV[35]))){ |
1657 |
goto T388;} |
goto T409;} |
1658 |
base[1]= (V210); |
base[1]= (V217); |
1659 |
base[2]= VV[36]; |
base[2]= VV[36]; |
1660 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1661 |
Lformat(); |
Lformat(); |
1662 |
return; |
return; |
1663 |
goto T388; |
goto T409; |
1664 |
T388:; |
T409:; |
1665 |
if(((V211))!=Cnil){ |
if(((V218))!=Cnil){ |
1666 |
goto T393;} |
goto T414;} |
1667 |
base[1]= (V210); |
base[1]= (V217); |
1668 |
base[2]= VV[37]; |
base[2]= VV[37]; |
1669 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1670 |
Lformat(); |
Lformat(); |
1671 |
return; |
return; |
1672 |
goto T393; |
goto T414; |
1673 |
T393:; |
T414:; |
1674 |
base[1]= (V210); |
base[1]= (V217); |
1675 |
base[2]= VV[38]; |
base[2]= VV[38]; |
1676 |
base[3]= CMPmake_fixnum((long)length((V211))); |
base[3]= CMPmake_fixnum((long)length((V218))); |
1677 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1678 |
Lformat(); |
Lformat(); |
1679 |
return;} |
return;} |
1681 |
} |
} |
1682 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1683 |
|
|
1684 |
static void LC46(base0) |
static void LC47(base0) |
1685 |
register object *base0; |
register object *base0; |
1686 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1687 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM47; VC47 |
1688 |
vs_check; |
vs_check; |
1689 |
vs_top=sup; |
vs_top=sup; |
1690 |
{frame_ptr fr; |
{frame_ptr fr; |
1691 |
V214= make_cons((base0[0]->c.c_car),Cnil); |
V221= make_cons((base0[0]->c.c_car),Cnil); |
1692 |
base[0]= CMPcar(/* INLINE-ARGS */V214); |
base[0]= CMPcar(/* INLINE-ARGS */V221); |
1693 |
fr=frs_sch_catch(base[0]); |
fr=frs_sch_catch(base[0]); |
1694 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
1695 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1698 |
} |
} |
1699 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1700 |
|
|
1701 |
static void LC45(base0) |
static void LC46(base0) |
1702 |
register object *base0; |
register object *base0; |
1703 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1704 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM48; VC48 |
1705 |
vs_check; |
vs_check; |
1706 |
{object V215; |
{object V222; |
1707 |
V215=(base[0]); |
V222=(base[0]); |
1708 |
vs_top=sup; |
vs_top=sup; |
1709 |
base[1]= Ct; |
base[1]= Ct; |
1710 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1711 |
return; |
return; |
1712 |
} |
} |
1713 |
} |
} |
1714 |
static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIND */ |
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* FIND */ |
1715 |
static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* INVOKE-RESTART */ |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* INVOKE-RESTART */ |
1716 |
static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* MUNGE-RESTART-CASE-EXPRESSION */ |
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* MUNGE-RESTART-CASE-EXPRESSION */ |
1717 |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */ |
1718 |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* SPECIFIC-ERROR */ |
static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* SPECIFIC-ERROR */ |
1719 |
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
1720 |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)(void *)&LnkLI99,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
1721 |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */ |
1722 |
static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */ |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */ |
1723 |
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
1724 |
static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* DEFINE-STRUCTURE */ |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* DEFINE-STRUCTURE */ |
1725 |
static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* RESTART-REPORT */ |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* RESTART-REPORT */ |
1726 |
static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[93],(void **)(void *)&LnkLI93,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
1727 |
static object LnkTLI92(){return call_proc0(VV[92],(void **)(void *)&LnkLI92);} /* KCL-TOP-RESTARTS */ |
static object LnkTLI97(){return call_proc0(VV[97],(void **)(void *)&LnkLI97);} /* KCL-TOP-RESTARTS */ |
1728 |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* ERROR */ |
static void LnkT96(){ call_or_link(VV[96],(void **)(void *)&Lnk96);} /* ERROR */ |
1729 |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* *MAKE-SPECIAL */ |
static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* *MAKE-SPECIAL */ |
1730 |
|
|
1731 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1732 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |