/[gcl]/gcl/clcs/clcs_restart.c
ViewVC logotype

Diff of /gcl/clcs/clcs_restart.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by camm, Thu Oct 23 15:30:07 2003 UTC revision 1.11 by camm, Thu Oct 23 17:14:32 2003 UTC
# Line 2  Line 2 
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    
# Line 11  static object LI1() Line 11  static object LI1()
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    
# Line 41  T3:; Line 41  T3:;
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    
# Line 52  TTL:; Line 52  TTL:;
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    
# Line 61  static object LI4() Line 61  static object LI4()
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    
# Line 87  T10:; Line 87  T10:;
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    
# Line 208  T40:; Line 208  T40:;
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:;
# Line 280  T57:; Line 280  T57:;
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    
# Line 289  static object LI10() Line 289  static object LI10()
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    
# Line 315  T62:; Line 315  T62:;
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    
# Line 326  TTL:; Line 326  TTL:;
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    
# Line 335  static object LI13() Line 335  static object LI13()
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    
# Line 361  T69:; Line 361  T69:;
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    
# Line 481  T106:; Line 481  T106:;
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);
# Line 537  TTL:; Line 537  TTL:;
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;
# Line 546  T139:; Line 546  T139:;
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    
# Line 572  TTL:; Line 572  TTL:;
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)}
# Line 599  static object LI20(object first,...) Line 599  static object LI20(object first,...)
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];
# Line 617  static object LI20(object first,...) Line 617  static object LI20(object first,...)
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    
# Line 628  TTL:; Line 628  TTL:;
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    
# Line 637  static object LI22() Line 637  static object LI22()
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    
# Line 663  T173:; Line 663  T173:;
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    
# Line 684  object V82; Line 684  object V82;
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];
# Line 715  T182:; Line 715  T182:;
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);}
# Line 780  T192:; Line 780  T192:;
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;}
# Line 831  T206:; Line 831  T206:;
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);
# Line 896  T213:; Line 896  T213:;
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);
# Line 952  T236:;} Line 952  T236:;}
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;
# Line 992  T244:;} Line 992  T244:;}
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;
# Line 1090  T268:; Line 1090  T268:;
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;
# Line 1276  T310:; Line 1276  T310:;
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));
# Line 1346  T325:; Line 1346  T325:;
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  }  }
# Line 1423  TTL:; Line 1495  TTL:;
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          }          }
# Line 1469  T349:; Line 1541  T349:;
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;
# Line 1547  T368:; Line 1619  T368:;
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;}
# Line 1609  T393:; Line 1681  T393:;
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);
# Line 1626  register object *base0; Line 1698  register object *base0;
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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26