/[gcl]/gcl/lsp/top.c
ViewVC logotype

Diff of /gcl/lsp/top.c

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

revision 1.10 by camm, Sun Feb 9 22:35:15 2003 UTC revision 1.11 by mjthomas, Thu Feb 20 04:46:27 2003 UTC
# Line 37  T8:; Line 37  T8:;
37          goto T6;}          goto T6;}
38          base[10]= VV[14];          base[10]= VV[14];
39          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
40          (void) (*Lnk148)();          (void) (*Lnk149)();
41          vs_top=sup;          vs_top=sup;
42  goto T6;  goto T6;
43  T6:;  T6:;
44          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
45          base[11]= (VV[16]->s.s_dbind);          base[11]= (VV[16]->s.s_dbind);
46          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
47          (void) (*Lnk149)();          (void) (*Lnk150)();
48          vs_top=sup;          vs_top=sup;
49          bds_unwind1;          bds_unwind1;
50          base[10]= (VV[17]->s.s_dbind);          base[10]= (VV[17]->s.s_dbind);
# Line 130  T42:; Line 130  T42:;
130          base[10]= (VV[23]->s.s_dbind);          base[10]= (VV[23]->s.s_dbind);
131          base[11]= Cnil;          base[11]= Cnil;
132          base[12]= (VV[24]->s.s_dbind);          base[12]= (VV[24]->s.s_dbind);
133          (VV[3]->s.s_dbind)= simple_symlispcall(VV[150],base+10,3);          (VV[3]->s.s_dbind)= simple_symlispcall(VV[151],base+10,3);
134          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
135          goto T53;}          goto T53;}
136          vs_base=vs_top;          vs_base=vs_top;
# Line 140  goto T53; Line 140  goto T53;
140  T53:;  T53:;
141          {object V5;          {object V5;
142          base[10]= (VV[3]->s.s_dbind);          base[10]= (VV[3]->s.s_dbind);
143          symlispcall(VV[151],base+10,1);          symlispcall(VV[152],base+10,1);
144          Llist();          Llist();
145          vs_top=sup;          vs_top=sup;
146          V5= vs_base[0];          V5= vs_base[0];
# Line 165  T76:; Line 165  T76:;
165  goto T77;  goto T77;
166  T77:;  T77:;
167          base[11]= (V7);          base[11]= (V7);
168          (void)simple_symlispcall(VV[152],base+11,1);          (void)simple_symlispcall(VV[153],base+11,1);
169          princ_char(10,Cnil);          princ_char(10,Cnil);
170          V6= CMPcdr((V6));          V6= CMPcdr((V6));
171          V7= CMPcar((V6));          V7= CMPcar((V6));
# Line 180  T46:; Line 180  T46:;
180          (VV[26]->s.s_dbind)= Cnil;          (VV[26]->s.s_dbind)= Cnil;
181          princ_char(10,VV[27]);          princ_char(10,VV[27]);
182          vs_base=vs_top;          vs_base=vs_top;
183          (void) (*Lnk153)();          (void) (*Lnk154)();
184          vs_top=sup;          vs_top=sup;
185  goto T20;  goto T20;
186  T20:;  T20:;
# Line 209  T96:; Line 209  T96:;
209          goto T102;}          goto T102;}
210          base[1]= CMPcadr((V8));          base[1]= CMPcadr((V8));
211          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
212          (void) (*Lnk148)();          (void) (*Lnk149)();
213          vs_top=sup;          vs_top=sup;
214          goto T100;          goto T100;
215  goto T102;  goto T102;
# Line 218  T102:; Line 218  T102:;
218          goto T106;}          goto T106;}
219          base[2]= CMPcadr((V8));          base[2]= CMPcadr((V8));
220          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
221          (void) (*Lnk154)();          (void) (*Lnk155)();
222          vs_top=sup;          vs_top=sup;
223          base[1]= vs_base[0];          base[1]= vs_base[0];
224          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 321  T124:; Line 321  T124:;
321          base[4]= vs_base[0];          base[4]= vs_base[0];
322          base[5]= VV[33];          base[5]= VV[33];
323          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
324          (void) (*Lnk155)();          (void) (*Lnk156)();
325          vs_top=sup;          vs_top=sup;
326          V14= vs_base[0];          V14= vs_base[0];
327          base[4]= (V14);          base[4]= (V14);
328          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
329          (void) (*Lnk156)();          (void) (*Lnk157)();
330          vs_top=sup;          vs_top=sup;
331          base[3]= vs_base[0];          base[3]= vs_base[0];
332          base[4]= (V12);          base[4]= (V12);
# Line 388  goto T168; Line 388  goto T168;
388  T168:;  T168:;
389          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));
390          vs_base=vs_top;          vs_base=vs_top;
391          (void) (*Lnk157)();          (void) (*Lnk158)();
392          vs_top=sup;          vs_top=sup;
393          V20= vs_base[0];          V20= vs_base[0];
394          bds_bind(VV[38],one_minus(V20));          bds_bind(VV[38],one_minus(V20));
# Line 396  T168:; Line 396  T168:;
396          base[25]= (VV[41]->s.s_dbind);          base[25]= (VV[41]->s.s_dbind);
397          base[26]= (VV[37]->s.s_dbind);          base[26]= (VV[37]->s.s_dbind);
398          vs_top=(vs_base=base+25)+2;          vs_top=(vs_base=base+25)+2;
399          (void) (*Lnk158)();          (void) (*Lnk159)();
400          vs_top=sup;          vs_top=sup;
401          V21= vs_base[0];          V21= vs_base[0];
402          if(V21==Cnil)goto T176;          if(V21==Cnil)goto T176;
# Line 405  T168:; Line 405  T168:;
405  goto T176;  goto T176;
406  T176:;}  T176:;}
407          vs_base=vs_top;          vs_base=vs_top;
408          (void) (*Lnk159)();          (void) (*Lnk160)();
409          vs_top=sup;          vs_top=sup;
410          V22= vs_base[0];          V22= vs_base[0];
411          bds_bind(VV[40],one_plus(V22));          bds_bind(VV[40],one_plus(V22));
412  goto T175;  goto T175;
413  T175:;  T175:;
414          vs_base=vs_top;          vs_base=vs_top;
415          (void) (*Lnk159)();          (void) (*Lnk160)();
416          vs_top=sup;          vs_top=sup;
417          bds_bind(VV[41],vs_base[0]);          bds_bind(VV[41],vs_base[0]);
418          bds_bind(VV[42],Cnil);          bds_bind(VV[42],Cnil);
# Line 448  T187:; Line 448  T187:;
448          if(!(type_of((V16))==t_string)){          if(!(type_of((V16))==t_string)){
449          goto T188;}          goto T188;}
450          vs_base=vs_top;          vs_base=vs_top;
451          (void) (*Lnk160)();          (void) (*Lnk161)();
452          vs_top=sup;          vs_top=sup;
453          base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));          base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));
454          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
455          (void) (*Lnk161)();          (void) (*Lnk162)();
456          vs_top=sup;          vs_top=sup;
457  goto T188;  goto T188;
458  T188:;  T188:;
459          base[25]= small_fixnum(1);          base[25]= small_fixnum(1);
460          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
461          (void) (*Lnk162)();          (void) (*Lnk163)();
462          vs_top=sup;          vs_top=sup;
463          (VV[47]->s.s_dbind)= Ct;          (VV[47]->s.s_dbind)= Ct;
464          if(!(type_of((V16))==t_string)){          if(!(type_of((V16))==t_string)){
465          goto T201;}          goto T201;}
466          (void)((*(LnkLI163))());          (void)((*(LnkLI164))());
467          princ_char(10,VV[27]);          princ_char(10,VV[27]);
468          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
469          goto T199;          goto T199;
# Line 472  T201:; Line 472  T201:;
472          base[25]= (V16);          base[25]= (V16);
473          base[26]= (V17);          base[26]= (V17);
474          vs_top=(vs_base=base+25)+2;          vs_top=(vs_base=base+25)+2;
475          (void) (*Lnk164)();          (void) (*Lnk165)();
476          vs_top=sup;          vs_top=sup;
477  goto T199;  goto T199;
478  T199:;  T199:;
# Line 549  T217:; Line 549  T217:;
549          base[26]= Cnil;          base[26]= Cnil;
550          base[27]= (VV[24]->s.s_dbind);          base[27]= (VV[24]->s.s_dbind);
551          vs_top=(vs_base=base+25)+3;          vs_top=(vs_base=base+25)+3;
552          (void) (*Lnk165)();          (void) (*Lnk166)();
553          vs_top=sup;          vs_top=sup;
554          (VV[3]->s.s_dbind)= vs_base[0];          (VV[3]->s.s_dbind)= vs_base[0];
555          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
# Line 576  T254:; Line 576  T254:;
576          base[26]= CMPcar((VV[3]->s.s_dbind));          base[26]= CMPcar((VV[3]->s.s_dbind));
577          base[27]= CMPcdr((VV[3]->s.s_dbind));          base[27]= CMPcdr((VV[3]->s.s_dbind));
578          base[28]= VV[54];          base[28]= VV[54];
579          symlispcall(VV[166],base+26,3);          symlispcall(VV[167],base+26,3);
580          goto T253;          goto T253;
581  goto T259;  goto T259;
582  T259:;  T259:;
# Line 584  T259:; Line 584  T259:;
584          base[27]= Cnil;          base[27]= Cnil;
585          base[28]= Cnil;          base[28]= Cnil;
586          base[29]= (VV[42]->s.s_dbind);          base[29]= (VV[42]->s.s_dbind);
587          symlispcall(VV[167],base+26,4);          symlispcall(VV[168],base+26,4);
588  goto T253;  goto T253;
589  T253:;  T253:;
590          Llist();          Llist();
# Line 650  goto T293; Line 650  goto T293;
650  T293:;  T293:;
651          base[27]= (V29);          base[27]= (V29);
652          base[28]= (VV[48]->s.s_dbind);          base[28]= (VV[48]->s.s_dbind);
653          (void)simple_symlispcall(VV[152],base+27,2);          (void)simple_symlispcall(VV[153],base+27,2);
654          princ_char(10,VV[48]);          princ_char(10,VV[48]);
655          V28= CMPcdr((V28));          V28= CMPcdr((V28));
656          V29= CMPcar((V28));          V29= CMPcar((V28));
# Line 664  goto T239; Line 664  goto T239;
664  T239:;  T239:;
665          princ_char(10,VV[48]);          princ_char(10,VV[48]);
666          vs_base=vs_top;          vs_base=vs_top;
667          (void) (*Lnk153)();          (void) (*Lnk154)();
668          vs_top=sup;          vs_top=sup;
669  goto T210;  goto T210;
670  T210:;  T210:;
# Line 698  static object LI5(object V30,object firs Line 698  static object LI5(object V30,object firs
698           while(V34!=Cnil)           while(V34!=Cnil)
699           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}
700          vs_base=base+3;}          vs_base=base+3;}
701          (void) (*Lnk168)();          (void) (*Lnk169)();
702          vs_top=sup;          vs_top=sup;
703          {object V35 = vs_base[0];          {object V35 = vs_base[0];
704          bds_unwind1;          bds_unwind1;
# Line 905  T321:; Line 905  T321:;
905          vs_top=sup;          vs_top=sup;
906          base[0]= (V50);          base[0]= (V50);
907          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
908          (void) (*Lnk169)();          (void) (*Lnk170)();
909          vs_top=sup;          vs_top=sup;
910          if(((V44))!=Cnil){          if(((V44))!=Cnil){
911          goto T388;}          goto T388;}
# Line 1006  T395:; Line 1006  T395:;
1006          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1007          base[1]= (V59);          base[1]= (V59);
1008          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1009          (void) (*Lnk169)();          (void) (*Lnk170)();
1010          vs_top=sup;          vs_top=sup;
1011          bds_unwind1;          bds_unwind1;
1012          {object V62 = Cnil;          {object V62 = Cnil;
# Line 1074  T425:; Line 1074  T425:;
1074          base[4]= VV[81];          base[4]= VV[81];
1075          base[5]= (V69);          base[5]= (V69);
1076          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1077          (void) (*Lnk170)();          (void) (*Lnk171)();
1078          vs_top=sup;          vs_top=sup;
1079          V70= vs_base[0];          V70= vs_base[0];
1080          if((V70)!=Cnil){          if((V70)!=Cnil){
# Line 1163  T453:; Line 1163  T453:;
1163  goto T456;  goto T456;
1164  T456:;  T456:;
1165          vs_base=vs_top;          vs_base=vs_top;
1166          (void) (*Lnk153)();          (void) (*Lnk154)();
1167          return;}          return;}
1168          }          }
1169  }  }
# Line 1193  T473:; Line 1193  T473:;
1193          goto T474;}          goto T474;}
1194  goto T475;  goto T475;
1195  T475:;  T475:;
1196          (void)((*(LnkLI171))());          (void)((*(LnkLI172))());
1197          vs_base=vs_top;          vs_base=vs_top;
1198          (void) (*Lnk153)();          (void) (*Lnk154)();
1199          return;          return;
1200  goto T474;  goto T474;
1201  T474:;  T474:;
1202          if(((*(LnkLI172))((V77)))==Cnil){          if(((*(LnkLI173))((V77)))==Cnil){
1203          goto T481;}          goto T481;}
1204          (VV[39]->s.s_dbind)= (V77);          (VV[39]->s.s_dbind)= (V77);
1205          V76= one_minus((V76));          V76= one_minus((V76));
# Line 1220  TTL:; Line 1220  TTL:;
1220          V78= (VV[39]->s.s_dbind);          V78= (VV[39]->s.s_dbind);
1221  goto T491;  goto T491;
1222  T491:;  T491:;
1223          if(((*(LnkLI172))((V78)))!=Cnil){          if(((*(LnkLI173))((V78)))!=Cnil){
1224          goto T493;}          goto T493;}
1225          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){
1226          goto T492;}          goto T492;}
1227  goto T493;  goto T493;
1228  T493:;  T493:;
1229          (VV[39]->s.s_dbind)= (V78);          (VV[39]->s.s_dbind)= (V78);
1230          (void)((*(LnkLI171))());          (void)((*(LnkLI172))());
1231          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1232          base[1]= VV[84];          base[1]= VV[84];
1233          base[3]= (VV[39]->s.s_dbind);          base[3]= (VV[39]->s.s_dbind);
1234          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1235          (void) (*Lnk173)();          (void) (*Lnk174)();
1236          vs_top=sup;          vs_top=sup;
1237          base[2]= vs_base[0];          base[2]= vs_base[0];
1238          base[3]= CMPcdr((VV[36]->s.s_dbind));          base[3]= CMPcdr((VV[36]->s.s_dbind));
# Line 1274  T513:; Line 1274  T513:;
1274          goto T514;}          goto T514;}
1275  goto T515;  goto T515;
1276  T515:;  T515:;
1277          (void)((*(LnkLI171))());          (void)((*(LnkLI172))());
1278          vs_base=vs_top;          vs_base=vs_top;
1279          (void) (*Lnk153)();          (void) (*Lnk154)();
1280          return;          return;
1281  goto T514;  goto T514;
1282  T514:;  T514:;
1283          if(((*(LnkLI172))((V81)))==Cnil){          if(((*(LnkLI173))((V81)))==Cnil){
1284          goto T521;}          goto T521;}
1285          (VV[39]->s.s_dbind)= (V81);          (VV[39]->s.s_dbind)= (V81);
1286          V80= one_minus((V80));          V80= one_minus((V80));
# Line 1303  goto TTL; Line 1303  goto TTL;
1303  TTL:;  TTL:;
1304          {object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind));          {object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind));
1305          (VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));}          (VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));}
1306          if(((*(LnkLI172))((VV[39]->s.s_dbind)))==Cnil){          if(((*(LnkLI173))((VV[39]->s.s_dbind)))==Cnil){
1307          goto T533;}          goto T533;}
1308          (void)((*(LnkLI171))());          (void)((*(LnkLI172))());
1309          vs_base=vs_top;          vs_base=vs_top;
1310          (void) (*Lnk153)();          (void) (*Lnk154)();
1311          return;          return;
1312  goto T533;  goto T533;
1313  T533:;  T533:;
1314          vs_base=vs_top;          vs_base=vs_top;
1315          (void) (*Lnk174)();          (void) (*Lnk175)();
1316          return;          return;
1317          }          }
1318  }  }
# Line 1510  goto T580; Line 1510  goto T580;
1510  T580:;  T580:;
1511          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1512          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1513          (void) (*Lnk175)();          (void) (*Lnk176)();
1514          vs_top=sup;          vs_top=sup;
1515          V101= vs_base[0];          V101= vs_base[0];
1516  goto T581;  goto T581;
1517  T581:;  T581:;
1518          base[2]= (VV[38]->s.s_dbind);          base[2]= (VV[38]->s.s_dbind);
1519          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1520          (void) (*Lnk175)();          (void) (*Lnk176)();
1521          vs_top=sup;          vs_top=sup;
1522          V102= vs_base[0];          V102= vs_base[0];
1523  goto T582;  goto T582;
1524  T582:;  T582:;
1525          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1526          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1527          (void) (*Lnk175)();          (void) (*Lnk176)();
1528          vs_top=sup;          vs_top=sup;
1529          V103= vs_base[0];          V103= vs_base[0];
1530          V101= (number_compare((V101),V103)>=0?((V101)):V103);          V101= (number_compare((V101),V103)>=0?((V101)):V103);
1531          base[2]= one_plus((VV[38]->s.s_dbind));          base[2]= one_plus((VV[38]->s.s_dbind));
1532          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1533          (void) (*Lnk175)();          (void) (*Lnk176)();
1534          vs_top=sup;          vs_top=sup;
1535          V104= vs_base[0];          V104= vs_base[0];
1536          V105= one_minus(V104);          V105= one_minus(V104);
# Line 1543  T596:; Line 1543  T596:;
1543          goto T598;}          goto T598;}
1544          base[2]= (V106);          base[2]= (V106);
1545          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1546          (void) (*Lnk175)();          (void) (*Lnk176)();
1547          vs_top=sup;          vs_top=sup;
1548          V107= vs_base[0];          V107= vs_base[0];
1549          if(!(number_compare(V107,(V101))>=0)){          if(!(number_compare(V107,(V101))>=0)){
# Line 1565  goto T612; Line 1565  goto T612;
1565  T612:;  T612:;
1566          base[2]= (V106);          base[2]= (V106);
1567          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1568          (void) (*Lnk175)();          (void) (*Lnk176)();
1569          vs_top=sup;          vs_top=sup;
1570          V109= vs_base[0];          V109= vs_base[0];
1571          if(!(number_compare(V109,(V108))>0)){          if(!(number_compare(V109,(V108))>0)){
# Line 1573  T612:; Line 1573  T612:;
1573          goto T610;          goto T610;
1574  goto T613;  goto T613;
1575  T613:;  T613:;
1576          if(((*(LnkLI172))((V106)))==Cnil){          if(((*(LnkLI173))((V106)))==Cnil){
1577          goto T619;}          goto T619;}
1578          (void)((*(LnkLI176))((V106)));          (void)((*(LnkLI177))((V106)));
1579  goto T619;  goto T619;
1580  T619:;  T619:;
1581          V106= number_plus((V106),small_fixnum(1));          V106= number_plus((V106),small_fixnum(1));
# Line 1587  T610:; Line 1587  T610:;
1587          base[4]= (V108);          base[4]= (V108);
1588          base[6]= (V108);          base[6]= (V108);
1589          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1590          (void) (*Lnk177)();          (void) (*Lnk178)();
1591          vs_top=sup;          vs_top=sup;
1592          base[5]= vs_base[0];          base[5]= vs_base[0];
1593          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
# Line 1620  T640:; Line 1620  T640:;
1620          {object V111;          {object V111;
1621          base[2]= (VV[39]->s.s_dbind);          base[2]= (VV[39]->s.s_dbind);
1622          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1623          (void) (*Lnk175)();          (void) (*Lnk176)();
1624          vs_top=sup;          vs_top=sup;
1625          V112= vs_base[0];          V112= vs_base[0];
1626          V111= number_plus(V112,(V110));          V111= number_plus(V112,(V110));
1627          base[2]= (V111);          base[2]= (V111);
1628          base[3]= (V111);          base[3]= (V111);
1629          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1630          (void) (*Lnk178)();          (void) (*Lnk179)();
1631          return;}          return;}
1632          }          }
1633  }  }
# Line 1649  static void L19() Line 1649  static void L19()
1649          register object V116;          register object V116;
1650          base[1]= one_minus((VV[40]->s.s_dbind));          base[1]= one_minus((VV[40]->s.s_dbind));
1651          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1652          (void) (*Lnk179)();          (void) (*Lnk180)();
1653          vs_top=sup;          vs_top=sup;
1654          V117= vs_base[0];          V117= vs_base[0];
1655          V115= one_plus(V117);          V115= one_plus(V117);
1656          base[1]= one_plus((VV[41]->s.s_dbind));          base[1]= one_plus((VV[41]->s.s_dbind));
1657          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1658          (void) (*Lnk179)();          (void) (*Lnk180)();
1659          vs_top=sup;          vs_top=sup;
1660          V116= vs_base[0];          V116= vs_base[0];
1661  goto T654;  goto T654;
# Line 1671  T655:; Line 1671  T655:;
1671          goto T660;}          goto T660;}
1672          base[1]= (V115);          base[1]= (V115);
1673          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1674          (void) (*Lnk180)();          (void) (*Lnk181)();
1675          vs_top=sup;          vs_top=sup;
1676          V119= vs_base[0];          V119= vs_base[0];
1677          {register object x= V119,V118= (V113);          {register object x= V119,V118= (V113);
# Line 1690  T668:; Line 1690  T668:;
1690          goto T670;}          goto T670;}
1691          base[1]= (V114);          base[1]= (V114);
1692          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1693          (void) (*Lnk179)();          (void) (*Lnk180)();
1694          vs_top=sup;          vs_top=sup;
1695          V120= vs_base[0];          V120= vs_base[0];
1696          if(!(number_compare(V120,(V115))>0)){          if(!(number_compare(V120,(V115))>0)){
# Line 1700  T670:; Line 1700  T670:;
1700          goto T666;          goto T666;
1701  goto T669;  goto T669;
1702  T669:;  T669:;
1703          (void)((*(LnkLI181))((V114)));          (void)((*(LnkLI182))((V114)));
1704          V114= number_plus((V114),small_fixnum(1));          V114= number_plus((V114),small_fixnum(1));
1705          goto T668;          goto T668;
1706  goto T666;  goto T666;
# Line 1710  T666:; Line 1710  T666:;
1710          base[3]= (V115);          base[3]= (V115);
1711          base[5]= (V115);          base[5]= (V115);
1712          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1713          (void) (*Lnk180)();          (void) (*Lnk181)();
1714          vs_top=sup;          vs_top=sup;
1715          base[4]= vs_base[0];          base[4]= vs_base[0];
1716          base[6]= (V115);          base[6]= (V115);
1717          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1718          (void) (*Lnk182)();          (void) (*Lnk183)();
1719          vs_top=sup;          vs_top=sup;
1720          base[5]= vs_base[0];          base[5]= vs_base[0];
1721          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
# Line 1751  T696:; Line 1751  T696:;
1751          return;          return;
1752  goto T697;  goto T697;
1753  T697:;  T697:;
1754          if(((*(LnkLI172))((V121)))==Cnil){          if(((*(LnkLI173))((V121)))==Cnil){
1755          goto T702;}          goto T702;}
1756          if(((V122))==Cnil){          if(((V122))==Cnil){
1757          goto T705;}          goto T705;}
# Line 1760  goto T705; Line 1760  goto T705;
1760  T705:;  T705:;
1761          base[1]= (V121);          base[1]= (V121);
1762          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1763          (void) (*Lnk173)();          (void) (*Lnk174)();
1764          vs_top=sup;          vs_top=sup;
1765          base[0]= vs_base[0];          base[0]= vs_base[0];
1766          base[1]= VV[95];          base[1]= VV[95];
# Line 1817  T726:; Line 1817  T726:;
1817          base[3]= (VV[40]->s.s_dbind);          base[3]= (VV[40]->s.s_dbind);
1818          base[4]= (V123);          base[4]= (V123);
1819          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1820          (void) (*Lnk158)();          (void) (*Lnk159)();
1821          vs_top=sup;          vs_top=sup;
1822          V127= vs_base[0];          V127= vs_base[0];
1823          if(V127==Cnil)goto T735;          if(V127==Cnil)goto T735;
# Line 1837  T740:; Line 1837  T740:;
1837          return;          return;
1838  goto T741;  goto T741;
1839  T741:;  T741:;
1840          if(((*(LnkLI172))((V125)))==Cnil){          if(((*(LnkLI173))((V125)))==Cnil){
1841          goto T745;}          goto T745;}
1842          (void)((*(LnkLI176))((V125)));          (void)((*(LnkLI177))((V125)));
1843  goto T745;  goto T745;
1844  T745:;  T745:;
1845  goto T750;  goto T750;
# Line 1848  T750:; Line 1848  T750:;
1848          goto T752;}          goto T752;}
1849          base[3]= (V126);          base[3]= (V126);
1850          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1851          (void) (*Lnk183)();          (void) (*Lnk184)();
1852          vs_top=sup;          vs_top=sup;
1853          V128= vs_base[0];          V128= vs_base[0];
1854          if(!(number_compare(V128,(V125))>0)){          if(!(number_compare(V128,(V125))>0)){
# Line 1858  T752:; Line 1858  T752:;
1858          goto T748;          goto T748;
1859  goto T751;  goto T751;
1860  T751:;  T751:;
1861          (void)((*(LnkLI181))((V126)));          (void)((*(LnkLI182))((V126)));
1862          V126= number_plus((V126),small_fixnum(1));          V126= number_plus((V126),small_fixnum(1));
1863          goto T750;          goto T750;
1864  goto T748;  goto T748;
# Line 1885  TTL:; Line 1885  TTL:;
1885          {register object V131;          {register object V131;
1886          base[7]= (V130);          base[7]= (V130);
1887          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1888          (void) (*Lnk184)();          (void) (*Lnk185)();
1889          vs_top=sup;          vs_top=sup;
1890          V131= vs_base[0];          V131= vs_base[0];
1891          if(type_of((V131))==t_symbol){          if(type_of((V131))==t_symbol){
# Line 1910  T775:; Line 1910  T775:;
1910          goto T771;          goto T771;
1911  goto T783;  goto T783;
1912  T783:;  T783:;
1913          if((V132!= VV[185])          if((V132!= VV[186])
1914          && (V132!= VV[186]))goto T784;          && (V132!= VV[187]))goto T784;
1915          base[6]= CMPcdr((V131));          base[6]= CMPcdr((V131));
1916          goto T771;          goto T771;
1917  goto T784;  goto T784;
# Line 1921  T784:; Line 1921  T784:;
1921          goto T771;          goto T771;
1922  goto T785;  goto T785;
1923  T785:;  T785:;
1924          if((V132!= VV[187]))goto T786;          if((V132!= VV[188]))goto T786;
1925          base[6]= CMPcddddr((V131));          base[6]= CMPcddddr((V131));
1926          goto T771;          goto T771;
1927  goto T786;  goto T786;
# Line 1956  goto T771; Line 1956  goto T771;
1956  T771:;  T771:;
1957          base[8]= (V130);          base[8]= (V130);
1958          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1959          (void) (*Lnk175)();          (void) (*Lnk176)();
1960          vs_top=sup;          vs_top=sup;
1961          base[7]= vs_base[0];          base[7]= vs_base[0];
1962          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
# Line 1980  TTL:; Line 1980  TTL:;
1980          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1981          base[1]= VV[103];          base[1]= VV[103];
1982          base[2]= (V135);          base[2]= (V135);
1983          base[3]= (*(LnkLI188))((V135));          base[3]= (*(LnkLI189))((V135));
1984          base[5]= (V135);          base[5]= (V135);
1985          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1986          (void) (*Lnk183)();          (void) (*Lnk184)();
1987          vs_top=sup;          vs_top=sup;
1988          base[4]= vs_base[0];          base[4]= vs_base[0];
1989          base[6]= (V135);          base[6]= (V135);
1990          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1991          (void) (*Lnk189)();          (void) (*Lnk190)();
1992          vs_top=sup;          vs_top=sup;
1993          base[5]= vs_base[0];          base[5]= vs_base[0];
1994          base[7]= (V135);          base[7]= (V135);
1995          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1996          (void) (*Lnk179)();          (void) (*Lnk180)();
1997          vs_top=sup;          vs_top=sup;
1998          base[6]= vs_base[0];          base[6]= vs_base[0];
1999          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
# Line 2016  TTL:; Line 2016  TTL:;
2016          V139= Cnil;          V139= Cnil;
2017          base[0]= (V138);          base[0]= (V138);
2018          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2019          (void) (*Lnk190)();          (void) (*Lnk191)();
2020          vs_top=sup;          vs_top=sup;
2021          V141= vs_base[0];          V141= vs_base[0];
2022          {object V140= V141;          {object V140= V141;
2023          if((V140!= VV[191]))goto T812;          if((V140!= VV[192]))goto T812;
2024          base[1]= (V138);          base[1]= (V138);
2025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2026          (void) (*Lnk192)();          (void) (*Lnk193)();
2027          vs_top=sup;          vs_top=sup;
2028          base[0]= vs_base[0];          base[0]= vs_base[0];
2029          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2030          (void) (*Lnk193)();          (void) (*Lnk194)();
2031          vs_top=sup;          vs_top=sup;
2032          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2033          goto T814;}{object V142;          goto T814;}{object V142;
2034          base[1]= (V138);          base[1]= (V138);
2035          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2036          (void) (*Lnk192)();          (void) (*Lnk193)();
2037          vs_top=sup;          vs_top=sup;
2038          base[0]= vs_base[0];          base[0]= vs_base[0];
2039          base[3]= (V138);          base[3]= (V138);
2040          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2041          (void) (*Lnk189)();          (void) (*Lnk190)();
2042          vs_top=sup;          vs_top=sup;
2043          V143= vs_base[0];          V143= vs_base[0];
2044          base[2]= number_plus(V143,small_fixnum(2));          base[2]= number_plus(V143,small_fixnum(2));
2045          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2046          (void) (*Lnk177)();          (void) (*Lnk178)();
2047          vs_top=sup;          vs_top=sup;
2048          base[1]= vs_base[0];          base[1]= vs_base[0];
2049          base[2]= VV[104];          base[2]= VV[104];
2050          base[3]= (VV[194]->s.s_gfdef);          base[3]= (VV[195]->s.s_gfdef);
2051          base[4]= VV[105];          base[4]= VV[105];
2052          base[5]= (VV[195]->s.s_gfdef);          base[5]= (VV[196]->s.s_gfdef);
2053          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2054          Lmember();          Lmember();
2055          vs_top=sup;          vs_top=sup;
# Line 2068  goto T834; Line 2068  goto T834;
2068  T834:;  T834:;
2069          base[1]= (V138);          base[1]= (V138);
2070          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2071          (void) (*Lnk192)();          (void) (*Lnk193)();
2072          vs_top=sup;          vs_top=sup;
2073          V147= vs_base[0];          V147= vs_base[0];
2074          V148= (VV[195]->s.s_gfdef);          V148= (VV[196]->s.s_gfdef);
2075          V149= (VV[194]->s.s_gfdef);          V149= (VV[195]->s.s_gfdef);
2076          V150= (VFUN_NARGS=6,(*(LnkLI196))(V147,(V139),VV[107],V148,VV[104],V149));          V150= (VFUN_NARGS=6,(*(LnkLI197))(V147,(V139),VV[107],V148,VV[104],V149));
2077          {object V145;          {object V145;
2078          object V146= /* INLINE-ARGS */V150;          object V146= /* INLINE-ARGS */V150;
2079          if(V146==Cnil){          if(V146==Cnil){
# Line 2102  goto T818; Line 2102  goto T818;
2102  T818:;}  T818:;}
2103          base[0]= (V138);          base[0]= (V138);
2104          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2105          (void) (*Lnk192)();          (void) (*Lnk193)();
2106          vs_top=sup;          vs_top=sup;
2107          V154= vs_base[0];          V154= vs_base[0];
2108          {object V155 = list(2,VV[109],V154);          {object V155 = list(2,VV[109],V154);
# Line 2111  goto T814; Line 2111  goto T814;
2111  T814:;  T814:;
2112          base[0]= (V138);          base[0]= (V138);
2113          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2114          (void) (*Lnk192)();          (void) (*Lnk193)();
2115          vs_top=sup;          vs_top=sup;
2116          V156= vs_base[0];          V156= vs_base[0];
2117          {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);          {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);
2118          VMR24(V157)}          VMR24(V157)}
2119  goto T812;  goto T812;
2120  T812:;  T812:;
2121          if((V140!= VV[197]))goto T847;          if((V140!= VV[198]))goto T847;
2122          {object V158 = VV[112];          {object V158 = VV[112];
2123          VMR24(V158)}          VMR24(V158)}
2124  goto T847;  goto T847;
2125  T847:;  T847:;
2126          base[0]= (V138);          base[0]= (V138);
2127          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2128          (void) (*Lnk192)();          (void) (*Lnk193)();
2129          vs_top=sup;          vs_top=sup;
2130          V159= vs_base[0];          V159= vs_base[0];
2131          {object V160 = list(2,VV[113],V159);          {object V160 = list(2,VV[113],V159);
# Line 2148  TTL:; Line 2148  TTL:;
2148          base[1]= VV[114];          base[1]= VV[114];
2149          base[3]= (VV[39]->s.s_dbind);          base[3]= (VV[39]->s.s_dbind);
2150          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2151          (void) (*Lnk173)();          (void) (*Lnk174)();
2152          vs_top=sup;          vs_top=sup;
2153          base[2]= vs_base[0];          base[2]= vs_base[0];
2154          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 2179  TTL:; Line 2179  TTL:;
2179          {object V163;          {object V163;
2180          base[1]= (V162);          base[1]= (V162);
2181          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2182          (void) (*Lnk173)();          (void) (*Lnk174)();
2183          vs_top=sup;          vs_top=sup;
2184          V163= vs_base[0];          V163= vs_base[0];
2185          if((V163)==Cnil){          if((V163)==Cnil){
# Line 2213  TTL:; Line 2213  TTL:;
2213          {register object V169;          {register object V169;
2214          base[1]= (V168);          base[1]= (V168);
2215          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2216          (void) (*Lnk184)();          (void) (*Lnk185)();
2217          vs_top=sup;          vs_top=sup;
2218          V169= vs_base[0];          V169= vs_base[0];
2219          if(!(type_of((V169))==t_symbol)){          if(!(type_of((V169))==t_symbol)){
# Line 2232  T866:; Line 2232  T866:;
2232          return;          return;
2233  goto T871;  goto T871;
2234  T871:;  T871:;
2235          if((V170!= VV[185])          if((V170!= VV[186])
2236          && (V170!= VV[186]))goto T872;          && (V170!= VV[187]))goto T872;
2237          base[1]= CMPcadr((V169));          base[1]= CMPcadr((V169));
2238          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2239          return;          return;
2240  goto T872;  goto T872;
2241  T872:;  T872:;
2242          if((V170!= VV[187]))goto T873;          if((V170!= VV[188]))goto T873;
2243          base[1]= CMPcar(CMPcddddr((V169)));          base[1]= CMPcar(CMPcddddr((V169)));
2244          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2245          return;          return;
# Line 2285  T869:; Line 2285  T869:;
2285          goto T885;}          goto T885;}
2286          base[1]= (V169);          base[1]= (V169);
2287          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2288          (void) (*Lnk198)();          (void) (*Lnk199)();
2289          return;          return;
2290  goto T885;  goto T885;
2291  T885:;  T885:;
# Line 2308  TTL:; Line 2308  TTL:;
2308          {object V172;          {object V172;
2309          base[1]= (V171);          base[1]= (V171);
2310          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2311          (void) (*Lnk184)();          (void) (*Lnk185)();
2312          vs_top=sup;          vs_top=sup;
2313          V172= vs_base[0];          V172= vs_base[0];
2314          if(!(type_of((V172))==t_cons)){          if(!(type_of((V172))==t_cons)){
# Line 2334  goto TTL; Line 2334  goto TTL;
2334  TTL:;  TTL:;
2335          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2336          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2337          (void) (*Lnk199)();          (void) (*Lnk200)();
2338          vs_top=sup;          vs_top=sup;
2339          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2340          goto T898;}          goto T898;}
# Line 2345  T898:; Line 2345  T898:;
2345          {object V173;          {object V173;
2346          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2347          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2348          (void) (*Lnk175)();          (void) (*Lnk176)();
2349          vs_top=sup;          vs_top=sup;
2350          V173= vs_base[0];          V173= vs_base[0];
2351          base[0]= (V173);          base[0]= (V173);
2352          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2353          (void) (*Lnk177)();          (void) (*Lnk178)();
2354          vs_top=sup;          vs_top=sup;
2355          V174= vs_base[0];          V174= vs_base[0];
2356          base[0]= one_plus((V173));          base[0]= one_plus((V173));
2357          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2358          (void) (*Lnk177)();          (void) (*Lnk178)();
2359          vs_top=sup;          vs_top=sup;
2360          V175= vs_base[0];          V175= vs_base[0];
2361          base[0]= number_plus((V173),small_fixnum(2));          base[0]= number_plus((V173),small_fixnum(2));
2362          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2363          (void) (*Lnk177)();          (void) (*Lnk178)();
2364          vs_top=sup;          vs_top=sup;
2365          V176= vs_base[0];          V176= vs_base[0];
2366          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}
# Line 2391  T910:; Line 2391  T910:;
2391          VMR30(V183)}          VMR30(V183)}
2392  goto T913;  goto T913;
2393  T913:;  T913:;
2394          V184= (*(LnkLI200))((V180),CMPcdr((V181)));          V184= (*(LnkLI201))((V180),CMPcdr((V181)));
2395          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;
2396          {object V185 = (V181);          {object V185 = (V181);
2397          VMR30(V185)}          VMR30(V185)}
# Line 2413  TTL:; Line 2413  TTL:;
2413          goto T916;}          goto T916;}
2414          base[1]= (V188);          base[1]= (V188);
2415          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2416          (void) (*Lnk192)();          (void) (*Lnk193)();
2417          vs_top=sup;          vs_top=sup;
2418          base[0]= vs_base[0];          base[0]= vs_base[0];
2419          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2420          (void) (*Lnk193)();          (void) (*Lnk194)();
2421          vs_top=sup;          vs_top=sup;
2422          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2423          goto T916;}          goto T916;}
2424          base[1]= (V188);          base[1]= (V188);
2425          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2426          (void) (*Lnk192)();          (void) (*Lnk193)();
2427          vs_top=sup;          vs_top=sup;
2428          base[0]= vs_base[0];          base[0]= vs_base[0];
2429          base[3]= (V188);          base[3]= (V188);
2430          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2431          (void) (*Lnk189)();          (void) (*Lnk190)();
2432          vs_top=sup;          vs_top=sup;
2433          V191= vs_base[0];          V191= vs_base[0];
2434          base[2]= number_plus(V191,small_fixnum(2));          base[2]= number_plus(V191,small_fixnum(2));
2435          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2436          (void) (*Lnk177)();          (void) (*Lnk178)();
2437          vs_top=sup;          vs_top=sup;
2438          base[1]= vs_base[0];          base[1]= vs_base[0];
2439          base[2]= VV[104];          base[2]= VV[104];
2440          base[3]= (VV[194]->s.s_gfdef);          base[3]= (VV[195]->s.s_gfdef);
2441          base[4]= VV[105];          base[4]= VV[105];
2442          base[5]= (VV[195]->s.s_gfdef);          base[5]= (VV[196]->s.s_gfdef);
2443          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2444          Lmember();          Lmember();
2445          vs_top=sup;          vs_top=sup;
# Line 2450  TTL:; Line 2450  TTL:;
2450          goto T916;}          goto T916;}
2451          base[1]= (V188);          base[1]= (V188);
2452          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2453          (void) (*Lnk192)();          (void) (*Lnk193)();
2454          vs_top=sup;          vs_top=sup;
2455          V196= vs_base[0];          V196= vs_base[0];
2456          V197= (VV[195]->s.s_gfdef);          V197= (VV[196]->s.s_gfdef);
2457          V198= (VV[194]->s.s_gfdef);          V198= (VV[195]->s.s_gfdef);
2458          V199= (VFUN_NARGS=6,(*(LnkLI196))(V196,(V190),VV[107],V197,VV[104],V198));          V199= (VFUN_NARGS=6,(*(LnkLI197))(V196,(V190),VV[107],V197,VV[104],V198));
2459          {object V194;          {object V194;
2460          object V195= /* INLINE-ARGS */V199;          object V195= /* INLINE-ARGS */V199;
2461          if(V195==Cnil){          if(V195==Cnil){
# Line 2482  goto T942; Line 2482  goto T942;
2482  T942:;  T942:;
2483          base[1]= (V188);          base[1]= (V188);
2484          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2485          (void) (*Lnk192)();          (void) (*Lnk193)();
2486          vs_top=sup;          vs_top=sup;
2487          base[0]= vs_base[0];          base[0]= vs_base[0];
2488          base[1]= (V189);          base[1]= (V189);
2489          base[2]= Ct;          base[2]= Ct;
2490          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2491          (void) (*Lnk201)();          (void) (*Lnk202)();
2492          vs_top=sup;          vs_top=sup;
2493          goto T916;          goto T916;
2494  goto T926;  goto T926;
2495  T926:;  T926:;
2496          base[1]= (V188);          base[1]= (V188);
2497          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2498          (void) (*Lnk192)();          (void) (*Lnk193)();
2499          vs_top=sup;          vs_top=sup;
2500          base[0]= vs_base[0];          base[0]= vs_base[0];
2501          base[1]= (V189);          base[1]= (V189);
2502          base[2]= Cnil;          base[2]= Cnil;
2503          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2504          (void) (*Lnk201)();          (void) (*Lnk202)();
2505          vs_top=sup;          vs_top=sup;
2506  goto T916;  goto T916;
2507  T916:;  T916:;
# Line 2533  TTL:; Line 2533  TTL:;
2533          V204= one_minus((VV[39]->s.s_dbind));          V204= one_minus((VV[39]->s.s_dbind));
2534          base[2]= (V204);          base[2]= (V204);
2535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2536          (void) (*Lnk173)();          (void) (*Lnk174)();
2537          vs_top=sup;          vs_top=sup;
2538          V205= vs_base[0];          V205= vs_base[0];
2539  goto T969;  goto T969;
# Line 2550  T969:; Line 2550  T969:;
2550          VMR32(V206)}          VMR32(V206)}
2551  goto T970;  goto T970;
2552  T970:;  T970:;
2553          if(((*(LnkLI172))((V204)))==Cnil){          if(((*(LnkLI173))((V204)))==Cnil){
2554          goto T977;}          goto T977;}
2555          V207= symbol_name((V205));          V207= symbol_name((V205));
2556          V208= (VV[203]->s.s_gfdef);          V208= (VV[204]->s.s_gfdef);
2557          if(((VFUN_NARGS=4,(*(LnkLI202))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI203))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){
2558          goto T977;}          goto T977;}
2559          base[2]= (V204);          base[2]= (V204);
2560          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2561          (void) (*Lnk204)();          (void) (*Lnk205)();
2562          vs_top=sup;          vs_top=sup;
2563          {object V209 = Cnil;          {object V209 = Cnil;
2564          VMR32(V209)}          VMR32(V209)}
# Line 2567  T977:; Line 2567  T977:;
2567          V204= one_minus((V204));          V204= one_minus((V204));
2568          base[2]= (V204);          base[2]= (V204);
2569          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2570          (void) (*Lnk173)();          (void) (*Lnk174)();
2571          vs_top=sup;          vs_top=sup;
2572          V205= vs_base[0];          V205= vs_base[0];
2573          goto T969;}}          goto T969;}}
# Line 2590  TTL:; Line 2590  TTL:;
2590          V213= one_plus((VV[39]->s.s_dbind));          V213= one_plus((VV[39]->s.s_dbind));
2591          base[2]= (V213);          base[2]= (V213);
2592          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2593          (void) (*Lnk173)();          (void) (*Lnk174)();
2594          vs_top=sup;          vs_top=sup;
2595          V214= vs_base[0];          V214= vs_base[0];
2596  goto T998;  goto T998;
# Line 2607  T998:; Line 2607  T998:;
2607          VMR33(V215)}          VMR33(V215)}
2608  goto T999;  goto T999;
2609  T999:;  T999:;
2610          if(((*(LnkLI172))((V213)))==Cnil){          if(((*(LnkLI173))((V213)))==Cnil){
2611          goto T1006;}          goto T1006;}
2612          V216= symbol_name((V214));          V216= symbol_name((V214));
2613          V217= (VV[203]->s.s_gfdef);          V217= (VV[204]->s.s_gfdef);
2614          if(((VFUN_NARGS=4,(*(LnkLI202))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI203))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){
2615          goto T1006;}          goto T1006;}
2616          base[2]= (V213);          base[2]= (V213);
2617          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2618          (void) (*Lnk204)();          (void) (*Lnk205)();
2619          vs_top=sup;          vs_top=sup;
2620          {object V218 = Cnil;          {object V218 = Cnil;
2621          VMR33(V218)}          VMR33(V218)}
# Line 2624  T1006:; Line 2624  T1006:;
2624          V213= one_plus((V213));          V213= one_plus((V213));
2625          base[2]= (V213);          base[2]= (V213);
2626          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2627          (void) (*Lnk173)();          (void) (*Lnk174)();
2628          vs_top=sup;          vs_top=sup;
2629          V214= vs_base[0];          V214= vs_base[0];
2630          goto T998;}}          goto T998;}}
# Line 2713  T1055:; Line 2713  T1055:;
2713          long V229;          long V229;
2714          base[2]= (V226);          base[2]= (V226);
2715          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2716          (void) (*Lnk205)();          (void) (*Lnk206)();
2717          if(vs_base>=vs_top){vs_top=sup;goto T1064;}          if(vs_base>=vs_top){vs_top=sup;goto T1064;}
2718          V228= fix(vs_base[0]);          V228= fix(vs_base[0]);
2719          vs_base++;          vs_base++;
# Line 2918  T1143:; Line 2918  T1143:;
2918          {register object V245;          {register object V245;
2919          base[2]= CMPcar((V243));          base[2]= CMPcar((V243));
2920          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2921          (void) (*Lnk206)();          (void) (*Lnk207)();
2922          vs_top=sup;          vs_top=sup;
2923          V245= vs_base[0];          V245= vs_base[0];
2924          (V243)->c.c_car = (V245);}          (V243)->c.c_car = (V245);}
# Line 3005  T1183:; Line 3005  T1183:;
3005          V254= Cnil;          V254= Cnil;
3006          base[4]= (V251);          base[4]= (V251);
3007          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3008          (void) (*Lnk207)();          (void) (*Lnk208)();
3009          vs_top=sup;          vs_top=sup;
3010          {register object V255;          {register object V255;
3011          register object V256;          register object V256;
# Line 3033  T1204:; Line 3033  T1204:;
3033          base[7]= (V250);          base[7]= (V250);
3034          base[8]= (V258);          base[8]= (V258);
3035          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3036          (void) (*Lnk155)();          (void) (*Lnk156)();
3037          vs_top=sup;          vs_top=sup;
3038          V254= vs_base[0];          V254= vs_base[0];
3039          if(!((file_exists((V254))))){          if(!((file_exists((V254))))){
# Line 3090  TTL:; Line 3090  TTL:;
3090          base[3]= (VV[130]->s.s_dbind);          base[3]= (VV[130]->s.s_dbind);
3091          base[4]= (VV[131]->s.s_dbind);          base[4]= (VV[131]->s.s_dbind);
3092          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3093          (void) (*Lnk208)();          (void) (*Lnk209)();
3094          vs_top=sup;          vs_top=sup;
3095          base[1]= vs_base[0];          base[1]= vs_base[0];
3096          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3097          (void) (*Lnk148)();          (void) (*Lnk149)();
3098          return;          return;
3099          }          }
3100  }  }
# Line 3247  TTL:; Line 3247  TTL:;
3247          {object V269;{object V270;          {object V269;{object V270;
3248          base[2]= (V268);          base[2]= (V268);
3249          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3250          (void) (*Lnk209)();          (void) (*Lnk210)();
3251          vs_top=sup;          vs_top=sup;
3252          V270= vs_base[0];          V270= vs_base[0];
3253          if(V270==Cnil)goto T1278;          if(V270==Cnil)goto T1278;
# Line 3273  T1277:; Line 3273  T1277:;
3273          base[2]= (V267);          base[2]= (V267);
3274          base[4]= (V269);          base[4]= (V269);
3275          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3276          (void) (*Lnk206)();          (void) (*Lnk207)();
3277          vs_top=sup;          vs_top=sup;
3278          base[3]= vs_base[0];          base[3]= vs_base[0];
3279          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 3299  TTL:; Line 3299  TTL:;
3299          {register long V271;          {register long V271;
3300          register object V272;          register object V272;
3301          vs_base=vs_top;          vs_base=vs_top;
3302          (void) (*Lnk210)();          (void) (*Lnk211)();
3303          vs_top=sup;          vs_top=sup;
3304          V271= fix(vs_base[0]);          V271= fix(vs_base[0]);
3305          V272= Cnil;          V272= Cnil;
# Line 3313  goto T1299; Line 3313  goto T1299;
3313  T1299:;  T1299:;
3314          base[0]= make_fixnum(V271);          base[0]= make_fixnum(V271);
3315          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3316          (void) (*Lnk211)();          (void) (*Lnk212)();
3317          vs_top=sup;          vs_top=sup;
3318          V273= vs_base[0];          V273= vs_base[0];
3319          V272= make_cons(V273,(V272));          V272= make_cons(V273,(V272));
# Line 3325  T1292:; Line 3325  T1292:;
3325          {object V274;          {object V274;
3326          base[0]= VV[138];          base[0]= VV[138];
3327          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3328          (void) (*Lnk212)();          (void) (*Lnk213)();
3329          vs_top=sup;          vs_top=sup;
3330          V274= vs_base[0];{object V275;          V274= vs_base[0];{object V275;
3331          base[0]= VV[137];          base[0]= VV[137];
3332          base[1]= VV[139];          base[1]= VV[139];
3333          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3334          (void) (*Lnk213)();          (void) (*Lnk214)();
3335          vs_top=sup;          vs_top=sup;
3336          V275= vs_base[0];          V275= vs_base[0];
3337          if(V275==Cnil)goto T1312;          if(V275==Cnil)goto T1312;
# Line 3342  T1312:;} Line 3342  T1312:;}
3342          goto T1311;}          goto T1311;}
3343          base[0]= (V274);          base[0]= (V274);
3344          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3345          (void) (*Lnk206)();          (void) (*Lnk207)();
3346          vs_top=sup;          vs_top=sup;
3347          (VV[137]->s.s_dbind)= vs_base[0];          (VV[137]->s.s_dbind)= vs_base[0];
3348  goto T1311;  goto T1311;
# Line 3356  T1321:; Line 3356  T1321:;
3356          base[0]= (VV[137]->s.s_dbind);          base[0]= (VV[137]->s.s_dbind);
3357          base[1]= VV[140];          base[1]= VV[140];
3358          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3359          (void) (*Lnk155)();          (void) (*Lnk156)();
3360          vs_top=sup;          vs_top=sup;
3361          V276= vs_base[0];          V276= vs_base[0];
3362          (VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind));
3363          base[0]= (VV[137]->s.s_dbind);          base[0]= (VV[137]->s.s_dbind);
3364          base[1]= VV[141];          base[1]= VV[141];
3365          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3366          (void) (*Lnk155)();          (void) (*Lnk156)();
3367          vs_top=sup;          vs_top=sup;
3368          V277= vs_base[0];          V277= vs_base[0];
3369          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));
# Line 3372  T1320:; Line 3372  T1320:;
3372          base[2]= VV[143];          base[2]= VV[143];
3373          base[3]= Cnil;          base[3]= Cnil;
3374          base[4]= VV[144];          base[4]= VV[144];
3375          base[6]= small_fixnum(0);          base[5]= Cnil;
3376          vs_top=(vs_base=base+6)+1;          base[6]= VV[145];
3377          (void) (*Lnk211)();          base[8]= small_fixnum(0);
3378            vs_top=(vs_base=base+8)+1;
3379            (void) (*Lnk212)();
3380          vs_top=sup;          vs_top=sup;
3381          base[5]= vs_base[0];          base[7]= vs_base[0];
3382          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+6;
3383          Lmake_pathname();          Lmake_pathname();
3384          vs_top=sup;          vs_top=sup;
3385          base[1]= vs_base[0];          base[1]= vs_base[0];
# Line 3390  T1320:; Line 3392  T1320:;
3392          vs_top=sup;          vs_top=sup;
3393          (VV[142]->s.s_dbind)= vs_base[0];          (VV[142]->s.s_dbind)= vs_base[0];
3394          base[0]= VV[142];          base[0]= VV[142];
3395          base[1]= VV[145];          base[1]= VV[146];
3396          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3397          (void) (*Lnk213)();          (void) (*Lnk214)();
3398          vs_top=sup;          vs_top=sup;
3399          base[0]= VV[146];          base[0]= VV[147];
3400          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3401          (void) (*Lnk209)();          (void) (*Lnk210)();
3402          if(vs_base<vs_top){          if(vs_base<vs_top){
3403          V272= vs_base[0];          V272= vs_base[0];
3404          vs_base++;          vs_base++;
# Line 3408  T1320:; Line 3410  T1320:;
3410          V272= Cnil;}          V272= Cnil;}
3411          vs_top=sup;          vs_top=sup;
3412          if(((V272))==Cnil){          if(((V272))==Cnil){
3413          goto T1347;}          goto T1349;}
3414          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
3415          base[1]= (VV[16]->s.s_dbind);          base[1]= (VV[16]->s.s_dbind);
3416          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3417          (void) (*Lnk149)();          (void) (*Lnk150)();
3418          vs_top=sup;          vs_top=sup;
3419          (VV[16]->s.s_dbind)= (V272);          (VV[16]->s.s_dbind)= (V272);
3420          base[1]= CMPcar((VV[16]->s.s_dbind));          base[1]= CMPcar((VV[16]->s.s_dbind));
3421          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3422          (void) (*Lnk214)();          (void) (*Lnk215)();
3423          bds_unwind1;          bds_unwind1;
3424          return;          return;
3425  goto T1347;  goto T1349;
3426  T1347:;  T1349:;
3427          base[0]= Cnil;          base[0]= Cnil;
3428          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3429          return;}}          return;}}
# Line 3438  static void L44() Line 3440  static void L44()
3440          vs_top=sup;          vs_top=sup;
3441  goto TTL;  goto TTL;
3442  TTL:;  TTL:;
3443          base[1]= VV[147];          base[1]= VV[148];
3444          base[2]= Cnil;          base[2]= Cnil;
3445          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
3446          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
3447          if(nlj_active)          if(nlj_active)
3448          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3449          vs_top=sup;          vs_top=sup;
3450          goto T1356;}          goto T1358;}
3451          else{          else{
3452          base[5]= (V278);          base[5]= (V278);
3453          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3454          (void) (*Lnk215)();          (void) (*Lnk216)();
3455          vs_top=sup;          vs_top=sup;
3456          base[4]= vs_base[0];          base[4]= vs_base[0];
3457          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 3460  TTL:; Line 3462  TTL:;
3462          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3463          Lread_line();          Lread_line();
3464          vs_top=sup;          vs_top=sup;
3465  goto T1365;  goto T1367;
3466  T1365:;  T1367:;
3467          base[6]= base[4];          base[6]= base[4];
3468          base[7]= Cnil;          base[7]= Cnil;
3469          base[8]= base[1];          base[8]= base[1];
# Line 3470  T1365:; Line 3472  T1365:;
3472          vs_top=sup;          vs_top=sup;
3473          base[2]= vs_base[0];          base[2]= vs_base[0];
3474          if(!((base[1])==(base[2]))){          if(!((base[1])==(base[2]))){
3475          goto T1372;}          goto T1374;}
3476          base[6]= Cnil;          base[6]= Cnil;
3477          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3478          goto T1361;          goto T1363;
3479  goto T1372;  goto T1374;
3480  T1372:;  T1374:;
3481          base[6]= base[2];          base[6]= base[2];
3482          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3483          Leval();          Leval();
3484          vs_top=sup;          vs_top=sup;
3485          goto T1365;          goto T1367;
3486  goto T1361;  goto T1363;
3487  T1361:;  T1363:;
3488          active=FALSE;}          active=FALSE;}
3489          base[5]=Cnil;          base[5]=Cnil;
3490          while(vs_base<vs_top)          while(vs_base<vs_top)
# Line 3490  T1361:; Line 3492  T1361:;
3492          vs_top=sup;          vs_top=sup;
3493          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
3494          if((base[4])==Cnil){          if((base[4])==Cnil){
3495          goto T1377;}          goto T1379;}
3496          base[6]= base[4];          base[6]= base[4];
3497          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3498          Lclose();          Lclose();
3499          vs_top=sup;          vs_top=sup;
3500  goto T1377;  goto T1379;
3501  T1377:;  T1379:;
3502          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
3503          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
3504          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
# Line 3505  T1377:; Line 3507  T1377:;
3507          Lby();          Lby();
3508          vs_top=sup;          vs_top=sup;
3509          frs_pop();}          frs_pop();}
3510  goto T1356;  goto T1358;
3511  T1356:;  T1358:;
3512          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
3513          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3514          Lby();          Lby();
# Line 3528  register object *base0; Line 3530  register object *base0;
3530          vs_top=sup;          vs_top=sup;
3531          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
3532          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3533          (void) (*Lnk216)();          (void) (*Lnk217)();
3534          vs_top=sup;          vs_top=sup;
3535          base[2]= (V279);          base[2]= (V279);
3536          base[3]= (V280);          base[3]= (V280);
# Line 3552  register object *base0; Line 3554  register object *base0;
3554          vs_top=sup;          vs_top=sup;
3555          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
3556          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3557          (void) (*Lnk216)();          (void) (*Lnk217)();
3558          vs_top=sup;          vs_top=sup;
3559          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
3560          {object V282;          {object V282;
# Line 3565  register object *base0; Line 3567  register object *base0;
3567          return;          return;
3568          }          }
3569  }  }
3570  static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* ALOAD */  static void LnkT217(){ call_or_link(VV[217],(void **)&Lnk217);} /* ALOAD */
3571  static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* OPEN */  static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* OPEN */
3572  static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* DO-F */  static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* DO-F */
3573  static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* SET-DIR */  static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* SET-DIR */
3574  static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* GETENV */  static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* GETENV */
3575  static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGV */  static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* ARGV */
3576  static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGC */  static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGC */
3577  static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* GET-COMMAND-ARG */  static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* GET-COMMAND-ARG */
3578  static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FILE-SEARCH */  static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* FILE-SEARCH */
3579  static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FIX-LOAD-PATH */  static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FIX-LOAD-PATH */
3580  static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* COERCE-SLASH-TERMINATED */  static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* COERCE-SLASH-TERMINATED */
3581  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* PACKAGE-SIZE */  static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* PACKAGE-SIZE */
3582  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* BREAK-GO */  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* BREAK-GO */
3583  static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)&LnkLI202,first,ap);va_end(ap);return V1;} /* SEARCH */  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)&LnkLI203,first,ap);va_end(ap);return V1;} /* SEARCH */
3584  static void LnkT201(){ call_or_link(VV[201],(void **)&Lnk201);} /* INTERNAL-SUPER-GO */  static void LnkT202(){ call_or_link(VV[202],(void **)&Lnk202);} /* INTERNAL-SUPER-GO */
3585  static object  LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)&LnkLI200,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)&LnkLI201,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */
3586  static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* IHS-NOT-INTERPRETED-ENV */  static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* IHS-NOT-INTERPRETED-ENV */
3587  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* COMPILED-FUNCTION-NAME */  static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* COMPILED-FUNCTION-NAME */
3588  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[196],(void **)&LnkLI196,first,ap);va_end(ap);return V1;} /* REMOVE */  static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[197],(void **)&LnkLI197,first,ap);va_end(ap);return V1;} /* REMOVE */
3589  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* SPICEP */  static void LnkT194(){ call_or_link(VV[194],(void **)&Lnk194);} /* SPICEP */
3590  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* FRS-TAG */  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* FRS-TAG */
3591  static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-CLASS */  static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-CLASS */
3592  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-VS */  static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-VS */
3593  static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* FRS-KIND */  static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)&LnkLI189,1,first,ap);va_end(ap);return V1;} /* FRS-KIND */
3594  static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* IHS-FUN */  static void LnkT185(){ call_or_link(VV[185],(void **)&Lnk185);} /* IHS-FUN */
3595  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* FRS-IHS */  static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* FRS-IHS */
3596  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* BDS-VAL */  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* BDS-VAL */
3597  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)&LnkLI181,1,first,ap);va_end(ap);return V1;} /* PRINT-FRS */  static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* PRINT-FRS */
3598  static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* BDS-VAR */  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAR */
3599  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* FRS-BDS */  static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* FRS-BDS */
3600  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* BREAK-VS */  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BREAK-VS */
3601  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* VS */  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* VS */
3602  static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* PRINT-IHS */  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* PRINT-IHS */
3603  static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* IHS-VS */  static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* IHS-VS */
3604  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* BREAK-PREVIOUS */  static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* BREAK-PREVIOUS */
3605  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* IHS-FNAME */  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-FNAME */
3606  static object  LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)&LnkLI172,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */
3607  static object  LnkTLI171(){return call_proc0(VV[171],(void **)&LnkLI171);} /* SET-ENV */  static object  LnkTLI172(){return call_proc0(VV[172],(void **)&LnkLI172);} /* SET-ENV */
3608  static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* COMPLETE-PROP */  static void LnkT171(){ call_or_link(VV[171],(void **)&Lnk171);} /* COMPLETE-PROP */
3609  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK-LEVEL */  static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* BREAK-LEVEL */
3610  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK */  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK */
3611  static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* DBL-READ */  static void LnkT166(){ call_or_link(VV[166],(void **)&Lnk166);} /* DBL-READ */
3612  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* SET-BACK */  static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* SET-BACK */
3613  static object  LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* SET-CURRENT */  static object  LnkTLI164(){return call_proc0(VV[164],(void **)&LnkLI164);} /* SET-CURRENT */
3614  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* CATCH-FATAL */  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* CATCH-FATAL */
3615  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* BREAK-QUIT */  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* BREAK-QUIT */
3616  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* SIMPLE-BACKTRACE */  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* SIMPLE-BACKTRACE */
3617  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* FRS-TOP */  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* FRS-TOP */
3618  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* SCH-FRS-BASE */  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* SCH-FRS-BASE */
3619  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* IHS-TOP */  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* IHS-TOP */
3620  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* MAKE-STRING-INPUT-STREAM */  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* MAKE-STRING-INPUT-STREAM */
3621  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-CONCATENATE */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* STRING-CONCATENATE */
3622  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* READ-FROM-STRING */  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* READ-FROM-STRING */
3623  static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* BREAK-CURRENT */  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* BREAK-CURRENT */
3624  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* PROCESS-SOME-ARGS */  static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* PROCESS-SOME-ARGS */
3625  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* LOAD */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* LOAD */
3626    
3627  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3628  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