/[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.8 by camm, Sat Oct 5 18:34:15 2002 UTC revision 1.9 by camm, Fri Jan 24 18:38:28 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) (*Lnk147)();          (void) (*Lnk148)();
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) (*Lnk148)();          (void) (*Lnk149)();
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[149],base+10,3);          (VV[3]->s.s_dbind)= simple_symlispcall(VV[150],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[150],base+10,1);          symlispcall(VV[151],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[151],base+11,1);          (void)simple_symlispcall(VV[152],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) (*Lnk152)();          (void) (*Lnk153)();
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) (*Lnk147)();          (void) (*Lnk148)();
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) (*Lnk153)();          (void) (*Lnk154)();
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) (*Lnk154)();          (void) (*Lnk155)();
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) (*Lnk155)();          (void) (*Lnk156)();
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) (*Lnk156)();          (void) (*Lnk157)();
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) (*Lnk157)();          (void) (*Lnk158)();
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) (*Lnk158)();          (void) (*Lnk159)();
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) (*Lnk158)();          (void) (*Lnk159)();
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) (*Lnk159)();          (void) (*Lnk160)();
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) (*Lnk160)();          (void) (*Lnk161)();
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) (*Lnk161)();          (void) (*Lnk162)();
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)((*(LnkLI162))());          (void)((*(LnkLI163))());
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) (*Lnk163)();          (void) (*Lnk164)();
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) (*Lnk164)();          (void) (*Lnk165)();
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[165],base+26,3);          symlispcall(VV[166],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[166],base+26,4);          symlispcall(VV[167],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[151],base+27,2);          (void)simple_symlispcall(VV[152],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) (*Lnk152)();          (void) (*Lnk153)();
668          vs_top=sup;          vs_top=sup;
669  goto T210;  goto T210;
670  T210:;  T210:;
# Line 700  static object LI5(V30,va_alist) Line 700  static object LI5(V30,va_alist)
700           while(V34!=Cnil)           while(V34!=Cnil)
701           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}
702          vs_base=base+3;}          vs_base=base+3;}
703          (void) (*Lnk167)();          (void) (*Lnk168)();
704          vs_top=sup;          vs_top=sup;
705          {object V35 = vs_base[0];          {object V35 = vs_base[0];
706          bds_unwind1;          bds_unwind1;
# Line 909  T321:; Line 909  T321:;
909          vs_top=sup;          vs_top=sup;
910          base[0]= (V50);          base[0]= (V50);
911          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
912          (void) (*Lnk168)();          (void) (*Lnk169)();
913          vs_top=sup;          vs_top=sup;
914          if(((V44))!=Cnil){          if(((V44))!=Cnil){
915          goto T388;}          goto T388;}
# Line 1011  T395:; Line 1011  T395:;
1011          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1012          base[1]= (V59);          base[1]= (V59);
1013          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1014          (void) (*Lnk168)();          (void) (*Lnk169)();
1015          vs_top=sup;          vs_top=sup;
1016          bds_unwind1;          bds_unwind1;
1017          {object V62 = Cnil;          {object V62 = Cnil;
# Line 1079  T425:; Line 1079  T425:;
1079          base[4]= VV[81];          base[4]= VV[81];
1080          base[5]= (V69);          base[5]= (V69);
1081          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1082          (void) (*Lnk169)();          (void) (*Lnk170)();
1083          vs_top=sup;          vs_top=sup;
1084          V70= vs_base[0];          V70= vs_base[0];
1085          if((V70)!=Cnil){          if((V70)!=Cnil){
# Line 1168  T453:; Line 1168  T453:;
1168  goto T456;  goto T456;
1169  T456:;  T456:;
1170          vs_base=vs_top;          vs_base=vs_top;
1171          (void) (*Lnk152)();          (void) (*Lnk153)();
1172          return;}          return;}
1173          }          }
1174  }  }
# Line 1198  T473:; Line 1198  T473:;
1198          goto T474;}          goto T474;}
1199  goto T475;  goto T475;
1200  T475:;  T475:;
1201          (void)((*(LnkLI170))());          (void)((*(LnkLI171))());
1202          vs_base=vs_top;          vs_base=vs_top;
1203          (void) (*Lnk152)();          (void) (*Lnk153)();
1204          return;          return;
1205  goto T474;  goto T474;
1206  T474:;  T474:;
1207          if(((*(LnkLI171))((V77)))==Cnil){          if(((*(LnkLI172))((V77)))==Cnil){
1208          goto T481;}          goto T481;}
1209          (VV[39]->s.s_dbind)= (V77);          (VV[39]->s.s_dbind)= (V77);
1210          V76= one_minus((V76));          V76= one_minus((V76));
# Line 1225  TTL:; Line 1225  TTL:;
1225          V78= (VV[39]->s.s_dbind);          V78= (VV[39]->s.s_dbind);
1226  goto T491;  goto T491;
1227  T491:;  T491:;
1228          if(((*(LnkLI171))((V78)))!=Cnil){          if(((*(LnkLI172))((V78)))!=Cnil){
1229          goto T493;}          goto T493;}
1230          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){
1231          goto T492;}          goto T492;}
1232  goto T493;  goto T493;
1233  T493:;  T493:;
1234          (VV[39]->s.s_dbind)= (V78);          (VV[39]->s.s_dbind)= (V78);
1235          (void)((*(LnkLI170))());          (void)((*(LnkLI171))());
1236          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1237          base[1]= VV[84];          base[1]= VV[84];
1238          base[3]= (VV[39]->s.s_dbind);          base[3]= (VV[39]->s.s_dbind);
1239          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1240          (void) (*Lnk172)();          (void) (*Lnk173)();
1241          vs_top=sup;          vs_top=sup;
1242          base[2]= vs_base[0];          base[2]= vs_base[0];
1243          base[3]= CMPcdr((VV[36]->s.s_dbind));          base[3]= CMPcdr((VV[36]->s.s_dbind));
# Line 1279  T513:; Line 1279  T513:;
1279          goto T514;}          goto T514;}
1280  goto T515;  goto T515;
1281  T515:;  T515:;
1282          (void)((*(LnkLI170))());          (void)((*(LnkLI171))());
1283          vs_base=vs_top;          vs_base=vs_top;
1284          (void) (*Lnk152)();          (void) (*Lnk153)();
1285          return;          return;
1286  goto T514;  goto T514;
1287  T514:;  T514:;
1288          if(((*(LnkLI171))((V81)))==Cnil){          if(((*(LnkLI172))((V81)))==Cnil){
1289          goto T521;}          goto T521;}
1290          (VV[39]->s.s_dbind)= (V81);          (VV[39]->s.s_dbind)= (V81);
1291          V80= one_minus((V80));          V80= one_minus((V80));
# Line 1308  goto TTL; Line 1308  goto TTL;
1308  TTL:;  TTL:;
1309          {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));
1310          (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));}
1311          if(((*(LnkLI171))((VV[39]->s.s_dbind)))==Cnil){          if(((*(LnkLI172))((VV[39]->s.s_dbind)))==Cnil){
1312          goto T533;}          goto T533;}
1313          (void)((*(LnkLI170))());          (void)((*(LnkLI171))());
1314          vs_base=vs_top;          vs_base=vs_top;
1315          (void) (*Lnk152)();          (void) (*Lnk153)();
1316          return;          return;
1317  goto T533;  goto T533;
1318  T533:;  T533:;
1319          vs_base=vs_top;          vs_base=vs_top;
1320          (void) (*Lnk173)();          (void) (*Lnk174)();
1321          return;          return;
1322          }          }
1323  }  }
# Line 1515  goto T580; Line 1515  goto T580;
1515  T580:;  T580:;
1516          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1518          (void) (*Lnk174)();          (void) (*Lnk175)();
1519          vs_top=sup;          vs_top=sup;
1520          V101= vs_base[0];          V101= vs_base[0];
1521  goto T581;  goto T581;
1522  T581:;  T581:;
1523          base[2]= (VV[38]->s.s_dbind);          base[2]= (VV[38]->s.s_dbind);
1524          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1525          (void) (*Lnk174)();          (void) (*Lnk175)();
1526          vs_top=sup;          vs_top=sup;
1527          V102= vs_base[0];          V102= vs_base[0];
1528  goto T582;  goto T582;
1529  T582:;  T582:;
1530          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1531          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1532          (void) (*Lnk174)();          (void) (*Lnk175)();
1533          vs_top=sup;          vs_top=sup;
1534          V103= vs_base[0];          V103= vs_base[0];
1535          V101= (number_compare((V101),V103)>=0?((V101)):V103);          V101= (number_compare((V101),V103)>=0?((V101)):V103);
1536          base[2]= one_plus((VV[38]->s.s_dbind));          base[2]= one_plus((VV[38]->s.s_dbind));
1537          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1538          (void) (*Lnk174)();          (void) (*Lnk175)();
1539          vs_top=sup;          vs_top=sup;
1540          V104= vs_base[0];          V104= vs_base[0];
1541          V105= one_minus(V104);          V105= one_minus(V104);
# Line 1548  T596:; Line 1548  T596:;
1548          goto T598;}          goto T598;}
1549          base[2]= (V106);          base[2]= (V106);
1550          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1551          (void) (*Lnk174)();          (void) (*Lnk175)();
1552          vs_top=sup;          vs_top=sup;
1553          V107= vs_base[0];          V107= vs_base[0];
1554          if(!(number_compare(V107,(V101))>=0)){          if(!(number_compare(V107,(V101))>=0)){
# Line 1570  goto T612; Line 1570  goto T612;
1570  T612:;  T612:;
1571          base[2]= (V106);          base[2]= (V106);
1572          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1573          (void) (*Lnk174)();          (void) (*Lnk175)();
1574          vs_top=sup;          vs_top=sup;
1575          V109= vs_base[0];          V109= vs_base[0];
1576          if(!(number_compare(V109,(V108))>0)){          if(!(number_compare(V109,(V108))>0)){
# Line 1578  T612:; Line 1578  T612:;
1578          goto T610;          goto T610;
1579  goto T613;  goto T613;
1580  T613:;  T613:;
1581          if(((*(LnkLI171))((V106)))==Cnil){          if(((*(LnkLI172))((V106)))==Cnil){
1582          goto T619;}          goto T619;}
1583          (void)((*(LnkLI175))((V106)));          (void)((*(LnkLI176))((V106)));
1584  goto T619;  goto T619;
1585  T619:;  T619:;
1586          V106= number_plus((V106),small_fixnum(1));          V106= number_plus((V106),small_fixnum(1));
# Line 1592  T610:; Line 1592  T610:;
1592          base[4]= (V108);          base[4]= (V108);
1593          base[6]= (V108);          base[6]= (V108);
1594          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1595          (void) (*Lnk176)();          (void) (*Lnk177)();
1596          vs_top=sup;          vs_top=sup;
1597          base[5]= vs_base[0];          base[5]= vs_base[0];
1598          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
# Line 1625  T640:; Line 1625  T640:;
1625          {object V111;          {object V111;
1626          base[2]= (VV[39]->s.s_dbind);          base[2]= (VV[39]->s.s_dbind);
1627          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1628          (void) (*Lnk174)();          (void) (*Lnk175)();
1629          vs_top=sup;          vs_top=sup;
1630          V112= vs_base[0];          V112= vs_base[0];
1631          V111= number_plus(V112,(V110));          V111= number_plus(V112,(V110));
1632          base[2]= (V111);          base[2]= (V111);
1633          base[3]= (V111);          base[3]= (V111);
1634          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1635          (void) (*Lnk177)();          (void) (*Lnk178)();
1636          return;}          return;}
1637          }          }
1638  }  }
# Line 1654  static void L19() Line 1654  static void L19()
1654          register object V116;          register object V116;
1655          base[1]= one_minus((VV[40]->s.s_dbind));          base[1]= one_minus((VV[40]->s.s_dbind));
1656          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1657          (void) (*Lnk178)();          (void) (*Lnk179)();
1658          vs_top=sup;          vs_top=sup;
1659          V117= vs_base[0];          V117= vs_base[0];
1660          V115= one_plus(V117);          V115= one_plus(V117);
1661          base[1]= one_plus((VV[41]->s.s_dbind));          base[1]= one_plus((VV[41]->s.s_dbind));
1662          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1663          (void) (*Lnk178)();          (void) (*Lnk179)();
1664          vs_top=sup;          vs_top=sup;
1665          V116= vs_base[0];          V116= vs_base[0];
1666  goto T654;  goto T654;
# Line 1676  T655:; Line 1676  T655:;
1676          goto T660;}          goto T660;}
1677          base[1]= (V115);          base[1]= (V115);
1678          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1679          (void) (*Lnk179)();          (void) (*Lnk180)();
1680          vs_top=sup;          vs_top=sup;
1681          V119= vs_base[0];          V119= vs_base[0];
1682          {register object x= V119,V118= (V113);          {register object x= V119,V118= (V113);
# Line 1695  T668:; Line 1695  T668:;
1695          goto T670;}          goto T670;}
1696          base[1]= (V114);          base[1]= (V114);
1697          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1698          (void) (*Lnk178)();          (void) (*Lnk179)();
1699          vs_top=sup;          vs_top=sup;
1700          V120= vs_base[0];          V120= vs_base[0];
1701          if(!(number_compare(V120,(V115))>0)){          if(!(number_compare(V120,(V115))>0)){
# Line 1705  T670:; Line 1705  T670:;
1705          goto T666;          goto T666;
1706  goto T669;  goto T669;
1707  T669:;  T669:;
1708          (void)((*(LnkLI180))((V114)));          (void)((*(LnkLI181))((V114)));
1709          V114= number_plus((V114),small_fixnum(1));          V114= number_plus((V114),small_fixnum(1));
1710          goto T668;          goto T668;
1711  goto T666;  goto T666;
# Line 1715  T666:; Line 1715  T666:;
1715          base[3]= (V115);          base[3]= (V115);
1716          base[5]= (V115);          base[5]= (V115);
1717          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1718          (void) (*Lnk179)();          (void) (*Lnk180)();
1719          vs_top=sup;          vs_top=sup;
1720          base[4]= vs_base[0];          base[4]= vs_base[0];
1721          base[6]= (V115);          base[6]= (V115);
1722          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1723          (void) (*Lnk181)();          (void) (*Lnk182)();
1724          vs_top=sup;          vs_top=sup;
1725          base[5]= vs_base[0];          base[5]= vs_base[0];
1726          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
# Line 1756  T696:; Line 1756  T696:;
1756          return;          return;
1757  goto T697;  goto T697;
1758  T697:;  T697:;
1759          if(((*(LnkLI171))((V121)))==Cnil){          if(((*(LnkLI172))((V121)))==Cnil){
1760          goto T702;}          goto T702;}
1761          if(((V122))==Cnil){          if(((V122))==Cnil){
1762          goto T705;}          goto T705;}
# Line 1765  goto T705; Line 1765  goto T705;
1765  T705:;  T705:;
1766          base[1]= (V121);          base[1]= (V121);
1767          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1768          (void) (*Lnk172)();          (void) (*Lnk173)();
1769          vs_top=sup;          vs_top=sup;
1770          base[0]= vs_base[0];          base[0]= vs_base[0];
1771          base[1]= VV[95];          base[1]= VV[95];
# Line 1822  T726:; Line 1822  T726:;
1822          base[3]= (VV[40]->s.s_dbind);          base[3]= (VV[40]->s.s_dbind);
1823          base[4]= (V123);          base[4]= (V123);
1824          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1825          (void) (*Lnk157)();          (void) (*Lnk158)();
1826          vs_top=sup;          vs_top=sup;
1827          V127= vs_base[0];          V127= vs_base[0];
1828          if(V127==Cnil)goto T735;          if(V127==Cnil)goto T735;
# Line 1842  T740:; Line 1842  T740:;
1842          return;          return;
1843  goto T741;  goto T741;
1844  T741:;  T741:;
1845          if(((*(LnkLI171))((V125)))==Cnil){          if(((*(LnkLI172))((V125)))==Cnil){
1846          goto T745;}          goto T745;}
1847          (void)((*(LnkLI175))((V125)));          (void)((*(LnkLI176))((V125)));
1848  goto T745;  goto T745;
1849  T745:;  T745:;
1850  goto T750;  goto T750;
# Line 1853  T750:; Line 1853  T750:;
1853          goto T752;}          goto T752;}
1854          base[3]= (V126);          base[3]= (V126);
1855          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1856          (void) (*Lnk182)();          (void) (*Lnk183)();
1857          vs_top=sup;          vs_top=sup;
1858          V128= vs_base[0];          V128= vs_base[0];
1859          if(!(number_compare(V128,(V125))>0)){          if(!(number_compare(V128,(V125))>0)){
# Line 1863  T752:; Line 1863  T752:;
1863          goto T748;          goto T748;
1864  goto T751;  goto T751;
1865  T751:;  T751:;
1866          (void)((*(LnkLI180))((V126)));          (void)((*(LnkLI181))((V126)));
1867          V126= number_plus((V126),small_fixnum(1));          V126= number_plus((V126),small_fixnum(1));
1868          goto T750;          goto T750;
1869  goto T748;  goto T748;
# Line 1890  TTL:; Line 1890  TTL:;
1890          {register object V131;          {register object V131;
1891          base[7]= (V130);          base[7]= (V130);
1892          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1893          (void) (*Lnk183)();          (void) (*Lnk184)();
1894          vs_top=sup;          vs_top=sup;
1895          V131= vs_base[0];          V131= vs_base[0];
1896          if(type_of((V131))==t_symbol){          if(type_of((V131))==t_symbol){
# Line 1915  T775:; Line 1915  T775:;
1915          goto T771;          goto T771;
1916  goto T783;  goto T783;
1917  T783:;  T783:;
1918          if((V132!= VV[184])          if((V132!= VV[185])
1919          && (V132!= VV[185]))goto T784;          && (V132!= VV[186]))goto T784;
1920          base[6]= CMPcdr((V131));          base[6]= CMPcdr((V131));
1921          goto T771;          goto T771;
1922  goto T784;  goto T784;
# Line 1926  T784:; Line 1926  T784:;
1926          goto T771;          goto T771;
1927  goto T785;  goto T785;
1928  T785:;  T785:;
1929          if((V132!= VV[186]))goto T786;          if((V132!= VV[187]))goto T786;
1930          base[6]= CMPcddddr((V131));          base[6]= CMPcddddr((V131));
1931          goto T771;          goto T771;
1932  goto T786;  goto T786;
# Line 1961  goto T771; Line 1961  goto T771;
1961  T771:;  T771:;
1962          base[8]= (V130);          base[8]= (V130);
1963          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1964          (void) (*Lnk174)();          (void) (*Lnk175)();
1965          vs_top=sup;          vs_top=sup;
1966          base[7]= vs_base[0];          base[7]= vs_base[0];
1967          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
# Line 1985  TTL:; Line 1985  TTL:;
1985          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1986          base[1]= VV[103];          base[1]= VV[103];
1987          base[2]= (V135);          base[2]= (V135);
1988          base[3]= (*(LnkLI187))((V135));          base[3]= (*(LnkLI188))((V135));
1989          base[5]= (V135);          base[5]= (V135);
1990          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1991          (void) (*Lnk182)();          (void) (*Lnk183)();
1992          vs_top=sup;          vs_top=sup;
1993          base[4]= vs_base[0];          base[4]= vs_base[0];
1994          base[6]= (V135);          base[6]= (V135);
1995          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1996          (void) (*Lnk188)();          (void) (*Lnk189)();
1997          vs_top=sup;          vs_top=sup;
1998          base[5]= vs_base[0];          base[5]= vs_base[0];
1999          base[7]= (V135);          base[7]= (V135);
2000          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2001          (void) (*Lnk178)();          (void) (*Lnk179)();
2002          vs_top=sup;          vs_top=sup;
2003          base[6]= vs_base[0];          base[6]= vs_base[0];
2004          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
# Line 2021  TTL:; Line 2021  TTL:;
2021          V139= Cnil;          V139= Cnil;
2022          base[0]= (V138);          base[0]= (V138);
2023          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2024          (void) (*Lnk189)();          (void) (*Lnk190)();
2025          vs_top=sup;          vs_top=sup;
2026          V141= vs_base[0];          V141= vs_base[0];
2027          {object V140= V141;          {object V140= V141;
2028          if((V140!= VV[190]))goto T812;          if((V140!= VV[191]))goto T812;
2029          base[1]= (V138);          base[1]= (V138);
2030          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2031          (void) (*Lnk191)();          (void) (*Lnk192)();
2032          vs_top=sup;          vs_top=sup;
2033          base[0]= vs_base[0];          base[0]= vs_base[0];
2034          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2035          (void) (*Lnk192)();          (void) (*Lnk193)();
2036          vs_top=sup;          vs_top=sup;
2037          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2038          goto T814;}{object V142;          goto T814;}{object V142;
2039          base[1]= (V138);          base[1]= (V138);
2040          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2041          (void) (*Lnk191)();          (void) (*Lnk192)();
2042          vs_top=sup;          vs_top=sup;
2043          base[0]= vs_base[0];          base[0]= vs_base[0];
2044          base[3]= (V138);          base[3]= (V138);
2045          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2046          (void) (*Lnk188)();          (void) (*Lnk189)();
2047          vs_top=sup;          vs_top=sup;
2048          V143= vs_base[0];          V143= vs_base[0];
2049          base[2]= number_plus(V143,small_fixnum(2));          base[2]= number_plus(V143,small_fixnum(2));
2050          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2051          (void) (*Lnk176)();          (void) (*Lnk177)();
2052          vs_top=sup;          vs_top=sup;
2053          base[1]= vs_base[0];          base[1]= vs_base[0];
2054          base[2]= VV[104];          base[2]= VV[104];
2055          base[3]= (VV[193]->s.s_gfdef);          base[3]= (VV[194]->s.s_gfdef);
2056          base[4]= VV[105];          base[4]= VV[105];
2057          base[5]= (VV[194]->s.s_gfdef);          base[5]= (VV[195]->s.s_gfdef);
2058          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2059          Lmember();          Lmember();
2060          vs_top=sup;          vs_top=sup;
# Line 2073  goto T834; Line 2073  goto T834;
2073  T834:;  T834:;
2074          base[1]= (V138);          base[1]= (V138);
2075          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2076          (void) (*Lnk191)();          (void) (*Lnk192)();
2077          vs_top=sup;          vs_top=sup;
2078          V147= vs_base[0];          V147= vs_base[0];
2079          V148= (VV[194]->s.s_gfdef);          V148= (VV[195]->s.s_gfdef);
2080          V149= (VV[193]->s.s_gfdef);          V149= (VV[194]->s.s_gfdef);
2081          V150= (VFUN_NARGS=6,(*(LnkLI195))(V147,(V139),VV[107],V148,VV[104],V149));          V150= (VFUN_NARGS=6,(*(LnkLI196))(V147,(V139),VV[107],V148,VV[104],V149));
2082          {object V145;          {object V145;
2083          object V146= /* INLINE-ARGS */V150;          object V146= /* INLINE-ARGS */V150;
2084          if(V146==Cnil){          if(V146==Cnil){
# Line 2107  goto T818; Line 2107  goto T818;
2107  T818:;}  T818:;}
2108          base[0]= (V138);          base[0]= (V138);
2109          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2110          (void) (*Lnk191)();          (void) (*Lnk192)();
2111          vs_top=sup;          vs_top=sup;
2112          V154= vs_base[0];          V154= vs_base[0];
2113          {object V155 = list(2,VV[109],V154);          {object V155 = list(2,VV[109],V154);
# Line 2116  goto T814; Line 2116  goto T814;
2116  T814:;  T814:;
2117          base[0]= (V138);          base[0]= (V138);
2118          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2119          (void) (*Lnk191)();          (void) (*Lnk192)();
2120          vs_top=sup;          vs_top=sup;
2121          V156= vs_base[0];          V156= vs_base[0];
2122          {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]);
2123          VMR24(V157)}          VMR24(V157)}
2124  goto T812;  goto T812;
2125  T812:;  T812:;
2126          if((V140!= VV[196]))goto T847;          if((V140!= VV[197]))goto T847;
2127          {object V158 = VV[112];          {object V158 = VV[112];
2128          VMR24(V158)}          VMR24(V158)}
2129  goto T847;  goto T847;
2130  T847:;  T847:;
2131          base[0]= (V138);          base[0]= (V138);
2132          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2133          (void) (*Lnk191)();          (void) (*Lnk192)();
2134          vs_top=sup;          vs_top=sup;
2135          V159= vs_base[0];          V159= vs_base[0];
2136          {object V160 = list(2,VV[113],V159);          {object V160 = list(2,VV[113],V159);
# Line 2153  TTL:; Line 2153  TTL:;
2153          base[1]= VV[114];          base[1]= VV[114];
2154          base[3]= (VV[39]->s.s_dbind);          base[3]= (VV[39]->s.s_dbind);
2155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2156          (void) (*Lnk172)();          (void) (*Lnk173)();
2157          vs_top=sup;          vs_top=sup;
2158          base[2]= vs_base[0];          base[2]= vs_base[0];
2159          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 2184  TTL:; Line 2184  TTL:;
2184          {object V163;          {object V163;
2185          base[1]= (V162);          base[1]= (V162);
2186          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2187          (void) (*Lnk172)();          (void) (*Lnk173)();
2188          vs_top=sup;          vs_top=sup;
2189          V163= vs_base[0];          V163= vs_base[0];
2190          if((V163)==Cnil){          if((V163)==Cnil){
# Line 2218  TTL:; Line 2218  TTL:;
2218          {register object V169;          {register object V169;
2219          base[1]= (V168);          base[1]= (V168);
2220          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2221          (void) (*Lnk183)();          (void) (*Lnk184)();
2222          vs_top=sup;          vs_top=sup;
2223          V169= vs_base[0];          V169= vs_base[0];
2224          if(!(type_of((V169))==t_symbol)){          if(!(type_of((V169))==t_symbol)){
# Line 2237  T866:; Line 2237  T866:;
2237          return;          return;
2238  goto T871;  goto T871;
2239  T871:;  T871:;
2240          if((V170!= VV[184])          if((V170!= VV[185])
2241          && (V170!= VV[185]))goto T872;          && (V170!= VV[186]))goto T872;
2242          base[1]= CMPcadr((V169));          base[1]= CMPcadr((V169));
2243          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2244          return;          return;
2245  goto T872;  goto T872;
2246  T872:;  T872:;
2247          if((V170!= VV[186]))goto T873;          if((V170!= VV[187]))goto T873;
2248          base[1]= CMPcar(CMPcddddr((V169)));          base[1]= CMPcar(CMPcddddr((V169)));
2249          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2250          return;          return;
# Line 2290  T869:; Line 2290  T869:;
2290          goto T885;}          goto T885;}
2291          base[1]= (V169);          base[1]= (V169);
2292          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2293          (void) (*Lnk197)();          (void) (*Lnk198)();
2294          return;          return;
2295  goto T885;  goto T885;
2296  T885:;  T885:;
# Line 2313  TTL:; Line 2313  TTL:;
2313          {object V172;          {object V172;
2314          base[1]= (V171);          base[1]= (V171);
2315          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2316          (void) (*Lnk183)();          (void) (*Lnk184)();
2317          vs_top=sup;          vs_top=sup;
2318          V172= vs_base[0];          V172= vs_base[0];
2319          if(!(type_of((V172))==t_cons)){          if(!(type_of((V172))==t_cons)){
# Line 2339  goto TTL; Line 2339  goto TTL;
2339  TTL:;  TTL:;
2340          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2341          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2342          (void) (*Lnk198)();          (void) (*Lnk199)();
2343          vs_top=sup;          vs_top=sup;
2344          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2345          goto T898;}          goto T898;}
# Line 2350  T898:; Line 2350  T898:;
2350          {object V173;          {object V173;
2351          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2352          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2353          (void) (*Lnk174)();          (void) (*Lnk175)();
2354          vs_top=sup;          vs_top=sup;
2355          V173= vs_base[0];          V173= vs_base[0];
2356          base[0]= (V173);          base[0]= (V173);
2357          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2358          (void) (*Lnk176)();          (void) (*Lnk177)();
2359          vs_top=sup;          vs_top=sup;
2360          V174= vs_base[0];          V174= vs_base[0];
2361          base[0]= one_plus((V173));          base[0]= one_plus((V173));
2362          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2363          (void) (*Lnk176)();          (void) (*Lnk177)();
2364          vs_top=sup;          vs_top=sup;
2365          V175= vs_base[0];          V175= vs_base[0];
2366          base[0]= number_plus((V173),small_fixnum(2));          base[0]= number_plus((V173),small_fixnum(2));
2367          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2368          (void) (*Lnk176)();          (void) (*Lnk177)();
2369          vs_top=sup;          vs_top=sup;
2370          V176= vs_base[0];          V176= vs_base[0];
2371          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}
# Line 2396  T910:; Line 2396  T910:;
2396          VMR30(V183)}          VMR30(V183)}
2397  goto T913;  goto T913;
2398  T913:;  T913:;
2399          V184= (*(LnkLI199))((V180),CMPcdr((V181)));          V184= (*(LnkLI200))((V180),CMPcdr((V181)));
2400          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;
2401          {object V185 = (V181);          {object V185 = (V181);
2402          VMR30(V185)}          VMR30(V185)}
# Line 2418  TTL:; Line 2418  TTL:;
2418          goto T916;}          goto T916;}
2419          base[1]= (V188);          base[1]= (V188);
2420          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2421          (void) (*Lnk191)();          (void) (*Lnk192)();
2422          vs_top=sup;          vs_top=sup;
2423          base[0]= vs_base[0];          base[0]= vs_base[0];
2424          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2425          (void) (*Lnk192)();          (void) (*Lnk193)();
2426          vs_top=sup;          vs_top=sup;
2427          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2428          goto T916;}          goto T916;}
2429          base[1]= (V188);          base[1]= (V188);
2430          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2431          (void) (*Lnk191)();          (void) (*Lnk192)();
2432          vs_top=sup;          vs_top=sup;
2433          base[0]= vs_base[0];          base[0]= vs_base[0];
2434          base[3]= (V188);          base[3]= (V188);
2435          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2436          (void) (*Lnk188)();          (void) (*Lnk189)();
2437          vs_top=sup;          vs_top=sup;
2438          V191= vs_base[0];          V191= vs_base[0];
2439          base[2]= number_plus(V191,small_fixnum(2));          base[2]= number_plus(V191,small_fixnum(2));
2440          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2441          (void) (*Lnk176)();          (void) (*Lnk177)();
2442          vs_top=sup;          vs_top=sup;
2443          base[1]= vs_base[0];          base[1]= vs_base[0];
2444          base[2]= VV[104];          base[2]= VV[104];
2445          base[3]= (VV[193]->s.s_gfdef);          base[3]= (VV[194]->s.s_gfdef);
2446          base[4]= VV[105];          base[4]= VV[105];
2447          base[5]= (VV[194]->s.s_gfdef);          base[5]= (VV[195]->s.s_gfdef);
2448          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2449          Lmember();          Lmember();
2450          vs_top=sup;          vs_top=sup;
# Line 2455  TTL:; Line 2455  TTL:;
2455          goto T916;}          goto T916;}
2456          base[1]= (V188);          base[1]= (V188);
2457          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2458          (void) (*Lnk191)();          (void) (*Lnk192)();
2459          vs_top=sup;          vs_top=sup;
2460          V196= vs_base[0];          V196= vs_base[0];
2461          V197= (VV[194]->s.s_gfdef);          V197= (VV[195]->s.s_gfdef);
2462          V198= (VV[193]->s.s_gfdef);          V198= (VV[194]->s.s_gfdef);
2463          V199= (VFUN_NARGS=6,(*(LnkLI195))(V196,(V190),VV[107],V197,VV[104],V198));          V199= (VFUN_NARGS=6,(*(LnkLI196))(V196,(V190),VV[107],V197,VV[104],V198));
2464          {object V194;          {object V194;
2465          object V195= /* INLINE-ARGS */V199;          object V195= /* INLINE-ARGS */V199;
2466          if(V195==Cnil){          if(V195==Cnil){
# Line 2487  goto T942; Line 2487  goto T942;
2487  T942:;  T942:;
2488          base[1]= (V188);          base[1]= (V188);
2489          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2490          (void) (*Lnk191)();          (void) (*Lnk192)();
2491          vs_top=sup;          vs_top=sup;
2492          base[0]= vs_base[0];          base[0]= vs_base[0];
2493          base[1]= (V189);          base[1]= (V189);
2494          base[2]= Ct;          base[2]= Ct;
2495          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2496          (void) (*Lnk200)();          (void) (*Lnk201)();
2497          vs_top=sup;          vs_top=sup;
2498          goto T916;          goto T916;
2499  goto T926;  goto T926;
2500  T926:;  T926:;
2501          base[1]= (V188);          base[1]= (V188);
2502          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2503          (void) (*Lnk191)();          (void) (*Lnk192)();
2504          vs_top=sup;          vs_top=sup;
2505          base[0]= vs_base[0];          base[0]= vs_base[0];
2506          base[1]= (V189);          base[1]= (V189);
2507          base[2]= Cnil;          base[2]= Cnil;
2508          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2509          (void) (*Lnk200)();          (void) (*Lnk201)();
2510          vs_top=sup;          vs_top=sup;
2511  goto T916;  goto T916;
2512  T916:;  T916:;
# Line 2538  TTL:; Line 2538  TTL:;
2538          V204= one_minus((VV[39]->s.s_dbind));          V204= one_minus((VV[39]->s.s_dbind));
2539          base[2]= (V204);          base[2]= (V204);
2540          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2541          (void) (*Lnk172)();          (void) (*Lnk173)();
2542          vs_top=sup;          vs_top=sup;
2543          V205= vs_base[0];          V205= vs_base[0];
2544  goto T969;  goto T969;
# Line 2555  T969:; Line 2555  T969:;
2555          VMR32(V206)}          VMR32(V206)}
2556  goto T970;  goto T970;
2557  T970:;  T970:;
2558          if(((*(LnkLI171))((V204)))==Cnil){          if(((*(LnkLI172))((V204)))==Cnil){
2559          goto T977;}          goto T977;}
2560          V207= symbol_name((V205));          V207= symbol_name((V205));
2561          V208= (VV[202]->s.s_gfdef);          V208= (VV[203]->s.s_gfdef);
2562          if(((VFUN_NARGS=4,(*(LnkLI201))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI202))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){
2563          goto T977;}          goto T977;}
2564          base[2]= (V204);          base[2]= (V204);
2565          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2566          (void) (*Lnk203)();          (void) (*Lnk204)();
2567          vs_top=sup;          vs_top=sup;
2568          {object V209 = Cnil;          {object V209 = Cnil;
2569          VMR32(V209)}          VMR32(V209)}
# Line 2572  T977:; Line 2572  T977:;
2572          V204= one_minus((V204));          V204= one_minus((V204));
2573          base[2]= (V204);          base[2]= (V204);
2574          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2575          (void) (*Lnk172)();          (void) (*Lnk173)();
2576          vs_top=sup;          vs_top=sup;
2577          V205= vs_base[0];          V205= vs_base[0];
2578          goto T969;}}          goto T969;}}
# Line 2595  TTL:; Line 2595  TTL:;
2595          V213= one_plus((VV[39]->s.s_dbind));          V213= one_plus((VV[39]->s.s_dbind));
2596          base[2]= (V213);          base[2]= (V213);
2597          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2598          (void) (*Lnk172)();          (void) (*Lnk173)();
2599          vs_top=sup;          vs_top=sup;
2600          V214= vs_base[0];          V214= vs_base[0];
2601  goto T998;  goto T998;
# Line 2612  T998:; Line 2612  T998:;
2612          VMR33(V215)}          VMR33(V215)}
2613  goto T999;  goto T999;
2614  T999:;  T999:;
2615          if(((*(LnkLI171))((V213)))==Cnil){          if(((*(LnkLI172))((V213)))==Cnil){
2616          goto T1006;}          goto T1006;}
2617          V216= symbol_name((V214));          V216= symbol_name((V214));
2618          V217= (VV[202]->s.s_gfdef);          V217= (VV[203]->s.s_gfdef);
2619          if(((VFUN_NARGS=4,(*(LnkLI201))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI202))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){
2620          goto T1006;}          goto T1006;}
2621          base[2]= (V213);          base[2]= (V213);
2622          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2623          (void) (*Lnk203)();          (void) (*Lnk204)();
2624          vs_top=sup;          vs_top=sup;
2625          {object V218 = Cnil;          {object V218 = Cnil;
2626          VMR33(V218)}          VMR33(V218)}
# Line 2629  T1006:; Line 2629  T1006:;
2629          V213= one_plus((V213));          V213= one_plus((V213));
2630          base[2]= (V213);          base[2]= (V213);
2631          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2632          (void) (*Lnk172)();          (void) (*Lnk173)();
2633          vs_top=sup;          vs_top=sup;
2634          V214= vs_base[0];          V214= vs_base[0];
2635          goto T998;}}          goto T998;}}
# Line 2643  static object LI34() Line 2643  static object LI34()
2643  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2644  goto TTL;  goto TTL;
2645  TTL:;  TTL:;
2646          {register object V219;          {object V219;
2647          object V220;          object V220;
2648          V219= VV[121];          V219= VV[121];
2649          V220= CMPcar((V219));          V220= CMPcar((V219));
# Line 2697  goto T1041; Line 2697  goto T1041;
2697  T1041:;  T1041:;
2698          V222= Cnil;          V222= Cnil;
2699          V223= Cnil;          V223= Cnil;
2700          {long V225;          {object V225;
2701          register long V226;          register object V226;
2702          base[0]= (V221);          base[2]= (V221);
2703          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
2704          (void) (*Lnk204)();          Lpackage_use_list();
2705          if(vs_base>=vs_top){vs_top=sup;goto T1051;}          vs_top=sup;
2706          V225= fix(vs_base[0]);          V227= vs_base[0];
2707          vs_base++;          V225= make_cons((V221),V227);
2708          if(vs_base>=vs_top){vs_top=sup;goto T1052;}          V226= CMPcar((V225));
2709          V226= fix(vs_base[0]);  goto T1054;
2710          vs_top=sup;  T1054:;
2711          goto T1053;          if(!(((V225))==Cnil)){
2712  goto T1051;          goto T1055;}
 T1051:;  
         V225= fix(Cnil);  
 goto T1052;  
 T1052:;  
         V226= fix(Cnil);  
 goto T1053;  
 T1053:;  
         {object V227;  
         register object V228;  
         V229 = make_fixnum(V226);  
         V230 = make_fixnum(V225);  
         V227= number_plus(V229,V230);  
         V228= small_fixnum(0);  
 goto T1057;  
 T1057:;  
         if(!(number_compare((V228),(V227))>=0)){  
         goto T1058;}  
2713          V222= Cnil;          V222= Cnil;
2714          goto T1040;          goto T1040;
2715  goto T1058;  goto T1055;
2716  T1058:;  T1055:;
2717          V231 = make_fixnum(V226);          {long V228;
2718          if(!(number_compare((V228),V231)<0)){          long V229;
2719          goto T1069;}          base[2]= (V226);
2720          base[1]= (V221);          vs_top=(vs_base=base+2)+1;
2721          base[2]= (V228);          (void) (*Lnk205)();
2722          vs_top=(vs_base=base+1)+2;          if(vs_base>=vs_top){vs_top=sup;goto T1064;}
2723          siLpackage_internal();          V228= fix(vs_base[0]);
2724          vs_top=sup;          vs_base++;
2725          V223= vs_base[0];          if(vs_base>=vs_top){vs_top=sup;goto T1065;}
2726          goto T1067;          V229= fix(vs_base[0]);
 goto T1069;  
 T1069:;  
         base[1]= (V221);  
         V232 = make_fixnum(V226);  
         base[2]= number_minus((V228),V232);  
         vs_top=(vs_base=base+1)+2;  
         siLpackage_external();  
2727          vs_top=sup;          vs_top=sup;
2728          V223= vs_base[0];          goto T1066;
2729  goto T1067;  goto T1064;
2730  T1067:;  T1064:;
2731            V228= fix(Cnil);
2732  goto T1065;  goto T1065;
2733  T1065:;  T1065:;
2734          if(((V223))!=Cnil){          V229= fix(Cnil);
2735    goto T1066;
2736    T1066:;
2737            if(((V221))==((V226))){
2738            goto T1067;}
2739            V229= 0;
2740    goto T1067;
2741    T1067:;
2742            {object V230;
2743            register object V231;
2744            V232 = make_fixnum(V229);
2745            V233 = make_fixnum(V228);
2746            V230= number_plus(V232,V233);
2747            V231= small_fixnum(0);
2748    goto T1074;
2749    T1074:;
2750            if(!(number_compare((V231),(V230))>=0)){
2751          goto T1075;}          goto T1075;}
2752          goto T1066;          goto T1061;
2753  goto T1075;  goto T1075;
2754  T1075:;  T1075:;
2755          V222= CMPcar((V223));          V234 = make_fixnum(V229);
2756          {object V233 =((V222))->s.s_plist;          if(!(number_compare((V231),V234)<0)){
2757           object ind= VV[54];          goto T1084;}
2758          while(V233!=Cnil){          base[3]= (V226);
2759          if(V233->c.c_car==ind){          base[4]= (V231);
2760          if(((V233->c.c_cdr->c.c_car))==Cnil){          vs_top=(vs_base=base+3)+2;
2761          goto T1080;}          siLpackage_internal();
2762            vs_top=sup;
2763            V223= vs_base[0];
2764          goto T1082;          goto T1082;
2765          }else V233=V233->c.c_cdr->c.c_cdr;}  goto T1084;
2766          goto T1080;}  T1084:;
2767            base[3]= (V226);
2768            V235 = make_fixnum(V229);
2769            base[4]= number_minus((V231),V235);
2770            vs_top=(vs_base=base+3)+2;
2771            siLpackage_external();
2772            vs_top=sup;
2773            V223= vs_base[0];
2774  goto T1082;  goto T1082;
2775  T1082:;  T1082:;
2776          base[1]= (VV[48]->s.s_dbind);  goto T1080;
2777          base[2]= VV[124];  T1080:;
2778          base[3]= (V222);          if(((V223))!=Cnil){
2779          {object V234 =((V222))->s.s_plist;          goto T1090;}
2780            goto T1081;
2781    goto T1090;
2782    T1090:;
2783            V222= CMPcar((V223));
2784            if(((V226))==((V221))){
2785            goto T1096;}
2786            base[4]= symbol_name((V222));
2787            base[5]= (V221);
2788            vs_top=(vs_base=base+4)+2;
2789            Lfind_symbol();
2790            Llist();
2791            vs_top=sup;
2792            base[3]= vs_base[0];
2793            vs_top=(vs_base=base+3)+1;
2794            Llast();
2795            vs_top=sup;
2796            V236= vs_base[0];
2797            if(!((VV[124])==(CMPcar(V236)))){
2798            goto T1095;}
2799    goto T1096;
2800    T1096:;
2801            {object V237 =((V222))->s.s_plist;
2802             object ind= VV[54];
2803            while(V237!=Cnil){
2804            if(V237->c.c_car==ind){
2805            if(((V237->c.c_cdr->c.c_car))==Cnil){
2806            goto T1105;}
2807            goto T1107;
2808            }else V237=V237->c.c_cdr->c.c_cdr;}
2809            goto T1105;}
2810    goto T1107;
2811    T1107:;
2812            base[3]= (VV[48]->s.s_dbind);
2813            base[4]= VV[125];
2814            base[5]= (V222);
2815            {object V238 =((V222))->s.s_plist;
2816           object ind= VV[54];           object ind= VV[54];
2817          while(V234!=Cnil){          while(V238!=Cnil){
2818          if(V234->c.c_car==ind){          if(V238->c.c_car==ind){
2819          base[4]= (V234->c.c_cdr->c.c_car);          base[6]= (V238->c.c_cdr->c.c_car);
2820          goto T1086;          goto T1111;
2821          }else V234=V234->c.c_cdr->c.c_cdr;}          }else V238=V238->c.c_cdr->c.c_cdr;}
2822          base[4]= Cnil;}          base[6]= Cnil;}
2823  goto T1086;  goto T1111;
2824  T1086:;  T1111:;
2825          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+3)+4;
2826          Lformat();          Lformat();
2827          vs_top=sup;          vs_top=sup;
2828  goto T1080;  goto T1105;
2829  T1080:;  T1105:;
2830    goto T1095;
2831    T1095:;
2832          V223= CMPcdr((V223));          V223= CMPcdr((V223));
2833          goto T1065;          goto T1080;
2834  goto T1066;  goto T1081;
2835  T1066:;  T1081:;
2836          goto T1063;          goto T1078;
2837  goto T1063;  goto T1078;
2838  T1063:;  T1078:;
2839          V228= one_plus((V228));          V231= one_plus((V231));
2840          goto T1057;}}}          goto T1074;}}
2841    goto T1061;
2842    T1061:;
2843            V225= CMPcdr((V225));
2844            V226= CMPcar((V225));
2845            goto T1054;}}
2846  goto T1040;  goto T1040;
2847  T1040:;  T1040:;
2848          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2849          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2850          vs_top=sup;          vs_top=sup;
2851          {object V235 = vs_base[0];          {object V239 = vs_base[0];
2852          VMR34(V235)}          VMR34(V239)}
2853          base[0]=base[0];          base[0]=base[0];
2854          return Cnil;          return Cnil;
2855  }  }
# Line 2814  static void L35() Line 2859  static void L35()
2859  {register object *base=vs_base;  {register object *base=vs_base;
2860          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2861          vs_check;          vs_check;
2862          {register object V236;          {register object V240;
2863          V236=(base[0]);          V240=(base[0]);
2864          vs_top=sup;          vs_top=sup;
2865  goto TTL;  goto TTL;
2866  TTL:;  TTL:;
2867          if(!(type_of((V236))==t_string)){          if(!(type_of((V240))==t_string)){
2868          goto T1093;}          goto T1123;}
2869          goto T1092;          goto T1122;
2870  goto T1093;  goto T1123;
2871  T1093:;  T1123:;
2872          base[1]= VV[125];          base[1]= VV[126];
2873          base[2]= (V236);          base[2]= (V240);
2874          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2875          Lerror();          Lerror();
2876          vs_top=sup;          vs_top=sup;
2877  goto T1092;  goto T1122;
2878  T1092:;  T1122:;
2879          {long V237;          {long V241;
2880          V237= (long)((V236))->v.v_fillp;          V241= (long)((V240))->v.v_fillp;
2881          if(!((V237)>(0))){          if(!((V241)>(0))){
2882          goto T1099;}          goto T1129;}
2883          if((((V236))->ust.ust_self[(long)(V237)-(1)])==(47)){          if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){
2884          goto T1097;}          goto T1127;}
2885  goto T1099;  goto T1129;
2886  T1099:;  T1129:;
2887          base[1]= Cnil;          base[1]= Cnil;
2888          base[2]= VV[127];          base[2]= VV[128];
2889          base[3]= (V236);          base[3]= (V240);
2890          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2891          Lformat();          Lformat();
2892          vs_top=sup;          vs_top=sup;
2893          V236= vs_base[0];}          V240= vs_base[0];}
2894  goto T1097;  goto T1127;
2895  T1097:;  T1127:;
2896          base[1]= (V236);          base[1]= (V240);
2897          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2898          return;          return;
2899          }          }
# Line 2859  static void L36() Line 2904  static void L36()
2904  {register object *base=vs_base;  {register object *base=vs_base;
2905          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2906          vs_check;          vs_check;
2907          {object V238;          {object V242;
2908          V238=(base[0]);          V242=(base[0]);
2909          vs_top=sup;          vs_top=sup;
2910  goto TTL;  goto TTL;
2911  TTL:;  TTL:;
2912          if(equal((V238),(VV[128]->s.s_dbind))){          if(equal((V242),(VV[129]->s.s_dbind))){
2913          goto T1107;}          goto T1137;}
         {register object V239;  
         V239= (V238);  
 goto T1112;  
 T1112:;  
         if(!(type_of((V239))!=t_cons)){  
         goto T1113;}  
         goto T1110;  
 goto T1113;  
 T1113:;  
         {register object V241;  
         base[2]= CMPcar((V239));  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk205)();  
         vs_top=sup;  
         V241= vs_base[0];  
         (V239)->c.c_car = (V241);}  
         V239= CMPcdr((V239));  
         goto T1112;}  
 goto T1110;  
 T1110:;  
         {register object V242;  
         V242= (V238);  
 goto T1125;  
 T1125:;  
         if(!(type_of((V242))!=t_cons)){  
         goto T1126;}  
         goto T1107;  
 goto T1126;  
 T1126:;  
2914          {register object V243;          {register object V243;
2915          V243= (V242);          V243= (V242);
2916  goto T1132;  goto T1142;
2917  T1132:;  T1142:;
2918          if(!(type_of(CMPcdr((V243)))!=t_cons)){          if(!(type_of((V243))!=t_cons)){
2919          goto T1133;}          goto T1143;}
2920          goto T1130;          goto T1140;
2921  goto T1133;  goto T1143;
2922  T1133:;  T1143:;
2923          if(!(equal(CMPcadr((V243)),CMPcar((V242))))){          {register object V245;
2924          goto T1137;}          base[2]= CMPcar((V243));
2925          {register object V244;          vs_top=(vs_base=base+2)+1;
2926          register object V245;          (void) (*Lnk206)();
2927          V244= (V243);          vs_top=sup;
2928          V245= CMPcddr((V243));          V245= vs_base[0];
2929          ((V244))->c.c_cdr = (V245);}          (V243)->c.c_car = (V245);}
2930            V243= CMPcdr((V243));
2931            goto T1142;}
2932    goto T1140;
2933    T1140:;
2934            {register object V246;
2935            V246= (V242);
2936    goto T1155;
2937    T1155:;
2938            if(!(type_of((V246))!=t_cons)){
2939            goto T1156;}
2940            goto T1137;
2941    goto T1156;
2942    T1156:;
2943            {register object V247;
2944            V247= (V246);
2945    goto T1162;
2946    T1162:;
2947            if(!(type_of(CMPcdr((V247)))!=t_cons)){
2948            goto T1163;}
2949            goto T1160;
2950    goto T1163;
2951    T1163:;
2952            if(!(equal(CMPcadr((V247)),CMPcar((V246))))){
2953            goto T1167;}
2954            {register object V248;
2955            register object V249;
2956            V248= (V247);
2957            V249= CMPcddr((V247));
2958            ((V248))->c.c_cdr = (V249);}
2959    goto T1167;
2960    T1167:;
2961            V247= CMPcdr((V247));
2962            goto T1162;}
2963    goto T1160;
2964    T1160:;
2965            V246= CMPcdr((V246));
2966            goto T1155;}
2967  goto T1137;  goto T1137;
2968  T1137:;  T1137:;
2969          V243= CMPcdr((V243));          (VV[129]->s.s_dbind)= (V242);
2970          goto T1132;}          base[1]= (VV[129]->s.s_dbind);
 goto T1130;  
 T1130:;  
         V242= CMPcdr((V242));  
         goto T1125;}  
 goto T1107;  
 T1107:;  
         (VV[128]->s.s_dbind)= (V238);  
         base[1]= (VV[128]->s.s_dbind);  
2971          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2972          return;          return;
2973          }          }
# Line 2934  static void L37() Line 2979  static void L37()
2979          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2980          vs_check;          vs_check;
2981          bds_check;          bds_check;
2982          {register object V246;          {register object V250;
2983          object V247;          object V251;
2984          object V248;          object V252;
2985          object V249;          object V253;
2986          V246=(base[0]);          V250=(base[0]);
2987          vs_base=vs_base+1;          vs_base=vs_base+1;
2988          if(vs_base>=vs_top){vs_top=sup;goto T1150;}          if(vs_base>=vs_top){vs_top=sup;goto T1180;}
2989          V247=(base[1]);          V251=(base[1]);
2990          vs_base++;          vs_base++;
2991          if(vs_base>=vs_top){vs_top=sup;goto T1151;}          if(vs_base>=vs_top){vs_top=sup;goto T1181;}
2992          V248=(base[2]);          V252=(base[2]);
2993          vs_base++;          vs_base++;
2994          if(vs_base>=vs_top){vs_top=sup;goto T1152;}          if(vs_base>=vs_top){vs_top=sup;goto T1182;}
2995          V249=(base[3]);          V253=(base[3]);
2996          vs_top=sup;          vs_top=sup;
2997          goto T1153;          goto T1183;
2998  goto T1150;  goto T1180;
2999  T1150:;  T1180:;
3000          V247= (VV[129]->s.s_dbind);          V251= (VV[130]->s.s_dbind);
3001  goto T1151;  goto T1181;
3002  T1151:;  T1181:;
3003          V248= (VV[130]->s.s_dbind);          V252= (VV[131]->s.s_dbind);
3004  goto T1152;  goto T1182;
3005  T1152:;  T1182:;
3006          V249= Ct;          V253= Ct;
3007  goto T1153;  goto T1183;
3008  T1153:;  T1183:;
3009          {register object V250;          {register object V254;
3010          V250= Cnil;          V254= Cnil;
3011          base[4]= (V247);          base[4]= (V251);
3012          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3013          (void) (*Lnk206)();          (void) (*Lnk207)();
3014          vs_top=sup;          vs_top=sup;
3015          {register object V251;          {register object V255;
3016          register object V252;          register object V256;
3017          V251= (V247);          V255= (V251);
3018          V252= CMPcar((V251));          V256= CMPcar((V255));
3019  goto T1164;  goto T1194;
3020  T1164:;  T1194:;
3021          if(!(((V251))==Cnil)){          if(!(((V255))==Cnil)){
3022          goto T1165;}          goto T1195;}
3023          goto T1160;          goto T1190;
3024  goto T1165;  goto T1195;
3025  T1165:;  T1195:;
3026          {register object V253;          {register object V257;
3027          register object V254;          register object V258;
3028          V253= (V248);          V257= (V252);
3029          V254= CMPcar((V253));          V258= CMPcar((V257));
3030  goto T1173;  goto T1203;
3031  T1173:;  T1203:;
3032          if(!(((V253))==Cnil)){          if(!(((V257))==Cnil)){
3033          goto T1174;}          goto T1204;}
3034          goto T1169;          goto T1199;
3035  goto T1174;  goto T1204;
3036  T1174:;  T1204:;
3037          base[6]= (V252);          base[6]= (V256);
3038          base[7]= (V246);          base[7]= (V250);
3039          base[8]= (V254);          base[8]= (V258);
3040          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3041          (void) (*Lnk154)();          (void) (*Lnk155)();
3042          vs_top=sup;          vs_top=sup;
3043          V250= vs_base[0];          V254= vs_base[0];
3044          if(!((file_exists((V250))))){          if(!((file_exists((V254))))){
3045          goto T1178;}          goto T1208;}
3046          base[6]= (V250);          base[6]= (V254);
3047          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3048          return;          return;
3049  goto T1178;  goto T1208;
3050  T1178:;  T1208:;
3051          V253= CMPcdr((V253));          V257= CMPcdr((V257));
3052          V254= CMPcar((V253));          V258= CMPcar((V257));
3053          goto T1173;}          goto T1203;}
3054  goto T1169;  goto T1199;
3055  T1169:;  T1199:;
3056          V251= CMPcdr((V251));          V255= CMPcdr((V255));
3057          V252= CMPcar((V251));          V256= CMPcar((V255));
3058          goto T1164;}          goto T1194;}
3059  goto T1160;  goto T1190;
3060  T1160:;  T1190:;
3061          if(((V249))==Cnil){          if(((V253))==Cnil){
3062          goto T1196;}          goto T1226;}
3063          bds_bind(VV[131],Cnil);          bds_bind(VV[132],Cnil);
3064          base[5]= VV[132];          base[5]= VV[133];
3065          base[6]= VV[133];          base[6]= VV[134];
3066          base[7]= (V247);          base[7]= (V251);
3067          base[8]= (V246);          base[8]= (V250);
3068          base[9]= (V248);          base[9]= (V252);
3069          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
3070          Lcerror();          Lcerror();
3071          vs_top=sup;          vs_top=sup;
3072          base[5]= (VV[131]->s.s_dbind);          base[5]= (VV[132]->s.s_dbind);
3073          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3074          bds_unwind1;          bds_unwind1;
3075          return;          return;
3076  goto T1196;  goto T1226;
3077  T1196:;  T1226:;
3078          base[4]= Cnil;          base[4]= Cnil;
3079          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3080          return;}          return;}
# Line 3041  static void L38() Line 3086  static void L38()
3086  {register object *base=vs_base;  {register object *base=vs_base;
3087          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
3088          vs_check;          vs_check;
3089          {object V255;          {object V259;
3090          V255=(base[0]);          V259=(base[0]);
3091          vs_top=sup;          vs_top=sup;
3092  goto TTL;  goto TTL;
3093  TTL:;  TTL:;
3094          base[2]= (V255);          base[2]= (V259);
3095          base[3]= (VV[129]->s.s_dbind);          base[3]= (VV[130]->s.s_dbind);
3096          base[4]= (VV[130]->s.s_dbind);          base[4]= (VV[131]->s.s_dbind);
3097          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3098          (void) (*Lnk207)();          (void) (*Lnk208)();
3099          vs_top=sup;          vs_top=sup;
3100          base[1]= vs_base[0];          base[1]= vs_base[0];
3101          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3102          (void) (*Lnk147)();          (void) (*Lnk148)();
3103          return;          return;
3104          }          }
3105  }  }
# Line 3068  static void L39() Line 3113  static void L39()
3113          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3114          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
3115          vs_top=sup;          vs_top=sup;
3116          bds_bind(VV[134],Ct);          bds_bind(VV[135],Ct);
3117          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
3118          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3119          Lfboundp();          Lfboundp();
3120          vs_top=sup;          vs_top=sup;
3121          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3122          goto T1208;}          goto T1238;}
3123          base[3]= Ct;          base[3]= Ct;
3124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3125          bds_unwind1;          bds_unwind1;
3126          return;          return;
3127  goto T1208;  goto T1238;
3128  T1208:;  T1238:;
3129          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
3130          base[4]=          base[4]=
3131          make_cclosure_new(LC45,Cnil,base[1],Cdata);          make_cclosure_new(LC45,Cnil,base[1],Cdata);
# Line 3099  static void L40() Line 3144  static void L40()
3144          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3145          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
3146          vs_top=sup;          vs_top=sup;
3147          bds_bind(VV[134],Ct);          bds_bind(VV[135],Ct);
3148          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
3149          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3150          Lfboundp();          Lfboundp();
3151          vs_top=sup;          vs_top=sup;
3152          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3153          goto T1213;}          goto T1243;}
3154          base[3]= Ct;          base[3]= Ct;
3155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3156          bds_unwind1;          bds_unwind1;
3157          return;          return;
3158  goto T1213;  goto T1243;
3159  T1213:;  T1243:;
3160          {object V256;          {object V260;
3161          object V257;          object V261;
3162          V256= (base[0]->c.c_car);          V260= (base[0]->c.c_car);
3163          V257=          V261=
3164          make_cclosure_new(LC46,Cnil,base[1],Cdata);          make_cclosure_new(LC46,Cnil,base[1],Cdata);
3165          base[4]= (V256);          base[4]= (V260);
3166          base[5]= make_cons(VV[135],(V257));          base[5]= make_cons(VV[136],(V261));
3167          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3168          siLfset();          siLfset();
3169          vs_top=sup;          vs_top=sup;
3170          base[4]= (V257);          base[4]= (V261);
3171          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3172          bds_unwind1;          bds_unwind1;
3173          return;}          return;}
# Line 3133  static void L41() Line 3178  static void L41()
3178  {register object *base=vs_base;  {register object *base=vs_base;
3179          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
3180          vs_check;          vs_check;
3181          {register object V258;          {register object V262;
3182          register object V259;          register object V263;
3183          V258=(base[0]);          V262=(base[0]);
3184          vs_base=vs_base+1;          vs_base=vs_base+1;
3185          if(vs_base>=vs_top){vs_top=sup;goto T1221;}          if(vs_base>=vs_top){vs_top=sup;goto T1251;}
3186          V259=(base[1]);          V263=(base[1]);
3187          vs_top=sup;          vs_top=sup;
3188          goto T1222;          goto T1252;
3189  goto T1221;  goto T1251;
3190  T1221:;  T1251:;
3191          V259= Cnil;          V263= Cnil;
3192  goto T1222;  goto T1252;
3193  T1222:;  T1252:;
3194          {register object V260;          {register object V264;
3195          V260= (VV[16]->s.s_dbind);          V264= (VV[16]->s.s_dbind);
3196  goto T1226;  goto T1256;
3197  T1226:;  T1256:;
3198          V260= CMPcdr((V260));          V264= CMPcdr((V264));
3199          if((V260)!=Cnil){          if((V264)!=Cnil){
3200          goto T1230;}          goto T1260;}
3201          base[2]= Cnil;          base[2]= Cnil;
3202          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3203          return;          return;
3204  goto T1230;  goto T1260;
3205  T1230:;  T1260:;
3206          {register object V261;          {register object V265;
3207          V261= CMPcar((V260));          V265= CMPcar((V264));
3208          if(!((((V261))->ust.ust_self[0])==(((V258))->ust.ust_self[0]))){          if(!((((V265))->ust.ust_self[0])==(((V262))->ust.ust_self[0]))){
3209          goto T1227;}          goto T1257;}
3210          if(!((((V261))->ust.ust_self[1])==(((V258))->ust.ust_self[1]))){          if(!((((V265))->ust.ust_self[1])==(((V262))->ust.ust_self[1]))){
3211          goto T1227;}          goto T1257;}
3212          if(!(equal((V261),(V258)))){          if(!(equal((V265),(V262)))){
3213          goto T1227;}          goto T1257;}
3214          {register object V262;          {register object V266;
3215          V262= (V259);          V266= (V263);
3216          if(((V262))==Cnil){          if(((V266))==Cnil){
3217          goto T1239;}          goto T1269;}
3218          base[2]= (V262);          base[2]= (V266);
3219          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3220          return;          return;
3221  goto T1239;  goto T1269;
3222  T1239:;  T1269:;
3223          if((CMPcadr((V260)))==Cnil){          if((CMPcadr((V264)))==Cnil){
3224          goto T1242;}          goto T1272;}
3225          base[2]= CMPcadr((V260));          base[2]= CMPcadr((V264));
3226          base[3]= CMPcdr((V260));          base[3]= CMPcdr((V264));
3227          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3228          return;          return;
3229  goto T1242;  goto T1272;
3230  T1242:;  T1272:;
3231          base[2]= Ct;          base[2]= Ct;
3232          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3233          return;}}          return;}}
3234  goto T1227;  goto T1257;
3235  T1227:;  T1257:;
3236          goto T1226;}          goto T1256;}
3237          }          }
3238  }  }
3239  /*      function definition for SET-DIR */  /*      function definition for SET-DIR */
# Line 3197  static void L42() Line 3242  static void L42()
3242  {register object *base=vs_base;  {register object *base=vs_base;
3243          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
3244          vs_check;          vs_check;
3245          {object V263;          {object V267;
3246          object V264;          object V268;
3247          V263=(base[0]);          V267=(base[0]);
3248          V264=(base[1]);          V268=(base[1]);
3249          vs_top=sup;          vs_top=sup;
3250  goto TTL;  goto TTL;
3251  TTL:;  TTL:;
3252          {object V265;{object V266;          {object V269;{object V270;
3253          base[2]= (V264);          base[2]= (V268);
3254          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3255          (void) (*Lnk208)();          (void) (*Lnk209)();
3256          vs_top=sup;          vs_top=sup;
3257          V266= vs_base[0];          V270= vs_base[0];
3258          if(V266==Cnil)goto T1248;          if(V270==Cnil)goto T1278;
3259          V265= V266;          V269= V270;
3260          goto T1247;          goto T1277;
3261  goto T1248;  goto T1278;
3262  T1248:;}  T1278:;}
3263          if(((V263))->s.s_dbind!=OBJNULL){          if(((V267))->s.s_dbind!=OBJNULL){
3264          goto T1251;}          goto T1281;}
3265          V265= Cnil;          V269= Cnil;
3266          goto T1247;          goto T1277;
3267  goto T1251;  goto T1281;
3268  T1251:;  T1281:;
3269          base[2]= (V263);          base[2]= (V267);
3270          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3271          Lsymbol_value();          Lsymbol_value();
3272          vs_top=sup;          vs_top=sup;
3273          V265= vs_base[0];          V269= vs_base[0];
3274  goto T1247;  goto T1277;
3275  T1247:;  T1277:;
3276          if(((V265))==Cnil){          if(((V269))==Cnil){
3277          goto T1255;}          goto T1285;}
3278          base[2]= (V263);          base[2]= (V267);
3279          base[4]= (V265);          base[4]= (V269);
3280          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3281          (void) (*Lnk205)();          (void) (*Lnk206)();
3282          vs_top=sup;          vs_top=sup;
3283          base[3]= vs_base[0];          base[3]= vs_base[0];
3284          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3285          Lset();          Lset();
3286          return;          return;
3287  goto T1255;  goto T1285;
3288  T1255:;  T1285:;
3289          base[2]= Cnil;          base[2]= Cnil;
3290          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3291          return;}          return;}
# Line 3256  static void L43() Line 3301  static void L43()
3301          vs_top=sup;          vs_top=sup;
3302  goto TTL;  goto TTL;
3303  TTL:;  TTL:;
3304          {register long V267;          {register long V271;
3305          register object V268;          register object V272;
3306          vs_base=vs_top;          vs_base=vs_top;
         (void) (*Lnk209)();  
         vs_top=sup;  
         V267= fix(vs_base[0]);  
         V268= Cnil;  
 goto T1264;  
 T1264:;  
         V267= (long)(V267)-(1);  
         if(!((V267)<(0))){  
         goto T1269;}  
         goto T1262;  
 goto T1269;  
 T1269:;  
         base[0]= make_fixnum(V267);  
         vs_top=(vs_base=base+0)+1;  
3307          (void) (*Lnk210)();          (void) (*Lnk210)();
3308          vs_top=sup;          vs_top=sup;
3309          V269= vs_base[0];          V271= fix(vs_base[0]);
3310          V268= make_cons(V269,(V268));          V272= Cnil;
3311          goto T1264;  goto T1294;
3312  goto T1262;  T1294:;
3313  T1262:;          V271= (long)(V271)-(1);
3314          (VV[16]->s.s_dbind)= (V268);          if(!((V271)<(0))){
3315          V268= (VV[136]->s.s_dbind);          goto T1299;}
3316          {object V270;          goto T1292;
3317          base[0]= VV[137];  goto T1299;
3318    T1299:;
3319            base[0]= make_fixnum(V271);
3320          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3321          (void) (*Lnk211)();          (void) (*Lnk211)();
3322          vs_top=sup;          vs_top=sup;
3323          V270= vs_base[0];{object V271;          V273= vs_base[0];
3324          base[0]= VV[136];          V272= make_cons(V273,(V272));
3325          base[1]= VV[138];          goto T1294;
3326          vs_top=(vs_base=base+0)+2;  goto T1292;
3327          (void) (*Lnk212)();  T1292:;
3328          vs_top=sup;          (VV[16]->s.s_dbind)= (V272);
3329          V271= vs_base[0];          V272= (VV[137]->s.s_dbind);
3330          if(V271==Cnil)goto T1282;          {object V274;
3331          goto T1281;          base[0]= VV[138];
 goto T1282;  
 T1282:;}  
         if(((V270))==Cnil){  
         goto T1281;}  
         base[0]= (V270);  
3332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3333          (void) (*Lnk205)();          (void) (*Lnk212)();
3334          vs_top=sup;          vs_top=sup;
3335          (VV[136]->s.s_dbind)= vs_base[0];          V274= vs_base[0];{object V275;
3336  goto T1281;          base[0]= VV[137];
 T1281:;  
         if(((VV[129]->s.s_dbind))==Cnil){  
         goto T1291;}  
         if(equal((V268),(VV[136]->s.s_dbind))){  
         goto T1290;}  
 goto T1291;  
 T1291:;  
         base[0]= (VV[136]->s.s_dbind);  
3337          base[1]= VV[139];          base[1]= VV[139];
3338          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3339          (void) (*Lnk154)();          (void) (*Lnk213)();
3340          vs_top=sup;          vs_top=sup;
3341          V272= vs_base[0];          V275= vs_base[0];
3342          (VV[129]->s.s_dbind)= make_cons(V272,(VV[129]->s.s_dbind));          if(V275==Cnil)goto T1312;
3343          base[0]= (VV[136]->s.s_dbind);          goto T1311;
3344    goto T1312;
3345    T1312:;}
3346            if(((V274))==Cnil){
3347            goto T1311;}
3348            base[0]= (V274);
3349            vs_top=(vs_base=base+0)+1;
3350            (void) (*Lnk206)();
3351            vs_top=sup;
3352            (VV[137]->s.s_dbind)= vs_base[0];
3353    goto T1311;
3354    T1311:;
3355            if(((VV[130]->s.s_dbind))==Cnil){
3356            goto T1321;}
3357            if(equal((V272),(VV[137]->s.s_dbind))){
3358            goto T1320;}
3359    goto T1321;
3360    T1321:;
3361            base[0]= (VV[137]->s.s_dbind);
3362          base[1]= VV[140];          base[1]= VV[140];
3363          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3364          (void) (*Lnk154)();          (void) (*Lnk155)();
3365          vs_top=sup;          vs_top=sup;
3366          V273= vs_base[0];          V276= vs_base[0];
3367          (VV[129]->s.s_dbind)= make_cons(V273,(VV[129]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind));
3368  goto T1290;          base[0]= (VV[137]->s.s_dbind);
3369  T1290:;          base[1]= VV[141];
3370          base[2]= VV[142];          vs_top=(vs_base=base+0)+2;
3371            (void) (*Lnk155)();
3372            vs_top=sup;
3373            V277= vs_base[0];
3374            (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));
3375    goto T1320;
3376    T1320:;
3377            base[2]= VV[143];
3378          base[3]= Cnil;          base[3]= Cnil;
3379          base[4]= VV[143];          base[4]= VV[144];
3380          base[6]= small_fixnum(0);          base[6]= small_fixnum(0);
3381          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3382          (void) (*Lnk210)();          (void) (*Lnk211)();
3383          vs_top=sup;          vs_top=sup;
3384          base[5]= vs_base[0];          base[5]= vs_base[0];
3385          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
# Line 3348  T1290:; Line 3393  T1290:;
3393          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3394          Lnamestring();          Lnamestring();
3395          vs_top=sup;          vs_top=sup;
3396          (VV[141]->s.s_dbind)= vs_base[0];          (VV[142]->s.s_dbind)= vs_base[0];
3397          base[0]= VV[141];          base[0]= VV[142];
3398          base[1]= VV[144];          base[1]= VV[145];
3399          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3400          (void) (*Lnk212)();          (void) (*Lnk213)();
3401          vs_top=sup;          vs_top=sup;
3402          base[0]= VV[145];          base[0]= VV[146];
3403          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3404          (void) (*Lnk208)();          (void) (*Lnk209)();
3405          if(vs_base<vs_top){          if(vs_base<vs_top){
3406          V268= vs_base[0];          V272= vs_base[0];
3407          vs_base++;          vs_base++;
3408          }else{          }else{
3409          V268= Cnil;}          V272= Cnil;}
3410          if(vs_base<vs_top){          if(vs_base<vs_top){
3411          V268= vs_base[0];          V272= vs_base[0];
3412          }else{          }else{
3413          V268= Cnil;}          V272= Cnil;}
3414          vs_top=sup;          vs_top=sup;
3415          if(((V268))==Cnil){          if(((V272))==Cnil){
3416          goto T1317;}          goto T1347;}
3417          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
3418          base[1]= (VV[16]->s.s_dbind);          base[1]= (VV[16]->s.s_dbind);
3419          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3420          (void) (*Lnk148)();          (void) (*Lnk149)();
3421          vs_top=sup;          vs_top=sup;
3422          (VV[16]->s.s_dbind)= (V268);          (VV[16]->s.s_dbind)= (V272);
3423          base[1]= CMPcar((VV[16]->s.s_dbind));          base[1]= CMPcar((VV[16]->s.s_dbind));
3424          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3425          (void) (*Lnk213)();          (void) (*Lnk214)();
3426          bds_unwind1;          bds_unwind1;
3427          return;          return;
3428  goto T1317;  goto T1347;
3429  T1317:;  T1347:;
3430          base[0]= Cnil;          base[0]= Cnil;
3431          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3432          return;}}          return;}}
# Line 3393  static void L44() Line 3438  static void L44()
3438          register object *VOL sup=base+VM44; VC44          register object *VOL sup=base+VM44; VC44
3439          vs_check;          vs_check;
3440          bds_check;          bds_check;
3441          {VOL object V274;          {VOL object V278;
3442          V274=(base[0]);          V278=(base[0]);
3443          vs_top=sup;          vs_top=sup;
3444  goto TTL;  goto TTL;
3445  TTL:;  TTL:;
3446          base[1]= VV[146];          base[1]= VV[147];
3447          base[2]= Cnil;          base[2]= Cnil;
3448          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
3449          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
3450          if(nlj_active)          if(nlj_active)
3451          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3452          vs_top=sup;          vs_top=sup;
3453          goto T1326;}          goto T1356;}
3454          else{          else{
3455          base[5]= (V274);          base[5]= (V278);
3456          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3457          (void) (*Lnk214)();          (void) (*Lnk215)();
3458          vs_top=sup;          vs_top=sup;
3459          base[4]= vs_base[0];          base[4]= vs_base[0];
3460          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 3420  TTL:; Line 3465  TTL:;
3465          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3466          Lread_line();          Lread_line();
3467          vs_top=sup;          vs_top=sup;
3468  goto T1335;  goto T1365;
3469  T1335:;  T1365:;
3470          base[6]= base[4];          base[6]= base[4];
3471          base[7]= Cnil;          base[7]= Cnil;
3472          base[8]= base[1];          base[8]= base[1];
# Line 3430  T1335:; Line 3475  T1335:;
3475          vs_top=sup;          vs_top=sup;
3476          base[2]= vs_base[0];          base[2]= vs_base[0];
3477          if(!((base[1])==(base[2]))){          if(!((base[1])==(base[2]))){
3478          goto T1342;}          goto T1372;}
3479          base[6]= Cnil;          base[6]= Cnil;
3480          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3481          goto T1331;          goto T1361;
3482  goto T1342;  goto T1372;
3483  T1342:;  T1372:;
3484          base[6]= base[2];          base[6]= base[2];
3485          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3486          Leval();          Leval();
3487          vs_top=sup;          vs_top=sup;
3488          goto T1335;          goto T1365;
3489  goto T1331;  goto T1361;
3490  T1331:;  T1361:;
3491          active=FALSE;}          active=FALSE;}
3492          base[5]=Cnil;          base[5]=Cnil;
3493          while(vs_base<vs_top)          while(vs_base<vs_top)
# Line 3450  T1331:; Line 3495  T1331:;
3495          vs_top=sup;          vs_top=sup;
3496          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
3497          if((base[4])==Cnil){          if((base[4])==Cnil){
3498          goto T1347;}          goto T1377;}
3499          base[6]= base[4];          base[6]= base[4];
3500          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3501          Lclose();          Lclose();
3502          vs_top=sup;          vs_top=sup;
3503  goto T1347;  goto T1377;
3504  T1347:;  T1377:;
3505          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
3506          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));
3507          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
# Line 3465  T1347:; Line 3510  T1347:;
3510          Lby();          Lby();
3511          vs_top=sup;          vs_top=sup;
3512          frs_pop();}          frs_pop();}
3513  goto T1326;  goto T1356;
3514  T1326:;  T1356:;
3515          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
3516          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3517          Lby();          Lby();
# Line 3481  register object *base0; Line 3526  register object *base0;
3526  {       register object *base=vs_base;  {       register object *base=vs_base;
3527          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3528          vs_check;          vs_check;
3529          {object V275;          {object V279;
3530          object V276;          object V280;
3531          V275=(base[0]);          V279=(base[0]);
3532          V276=(base[1]);          V280=(base[1]);
3533          vs_top=sup;          vs_top=sup;
3534          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
3535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3536          (void) (*Lnk215)();          (void) (*Lnk216)();
3537          vs_top=sup;          vs_top=sup;
3538          base[2]= (V275);          base[2]= (V279);
3539          base[3]= (V276);          base[3]= (V280);
3540          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3541          super_funcall_no_event((base0[1]->c.c_car));          super_funcall_no_event((base0[1]->c.c_car));
3542          return;          return;
# Line 3504  register object *base0; Line 3549  register object *base0;
3549  {       register object *base=vs_base;  {       register object *base=vs_base;
3550          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3551          vs_check;          vs_check;
3552          {object V277;          {object V281;
3553          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3554          {object *p=vs_top;          {object *p=vs_top;
3555           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3556          V277=(base[0]);          V281=(base[0]);
3557          vs_top=sup;          vs_top=sup;
3558          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
3559          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3560          (void) (*Lnk215)();          (void) (*Lnk216)();
3561          vs_top=sup;          vs_top=sup;
3562          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
3563          {object V278;          {object V282;
3564          V278= (V277);          V282= (V281);
3565           vs_top=base+2;           vs_top=base+2;
3566           while(V278!=Cnil)           while(V282!=Cnil)
3567           {vs_push((V278)->c.c_car);V278=(V278)->c.c_cdr;}           {vs_push((V282)->c.c_car);V282=(V282)->c.c_cdr;}
3568          vs_base=base+2;}          vs_base=base+2;}
3569          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
3570          return;          return;
3571          }          }
3572  }  }
3573  static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* ALOAD */  static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* ALOAD */
3574  static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* OPEN */  static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* OPEN */
3575  static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* DO-F */  static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* DO-F */
3576  static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* SET-DIR */  static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* SET-DIR */
3577  static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* GETENV */  static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* GETENV */
3578  static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGV */  static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGV */
3579  static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* ARGC */  static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGC */
3580  static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* GET-COMMAND-ARG */  static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* GET-COMMAND-ARG */
3581  static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FILE-SEARCH */  static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FILE-SEARCH */
3582  static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* FIX-LOAD-PATH */  static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FIX-LOAD-PATH */
3583  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */  static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* COERCE-SLASH-TERMINATED */
3584  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* PACKAGE-SIZE */
3585  static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* BREAK-GO */
3586  static object  LnkTLI201(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[201],(void **)&LnkLI201,ap);va_end(ap);return V1;} /* SEARCH */  static object  LnkTLI202(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[202],(void **)&LnkLI202,ap);va_end(ap);return V1;} /* SEARCH */
3587  static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */  static void LnkT201(){ call_or_link(VV[201],(void **)&Lnk201);} /* INTERNAL-SUPER-GO */
3588  static object  LnkTLI199(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[199],(void **)&LnkLI199,2,ap);va_end(ap);return V1;} /* LIST-DELQ */  static object  LnkTLI200(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[200],(void **)&LnkLI200,2,ap);va_end(ap);return V1;} /* LIST-DELQ */
3589  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */  static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* IHS-NOT-INTERPRETED-ENV */
3590  static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* COMPILED-FUNCTION-NAME */
3591  static object  LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[195],(void **)&LnkLI195,ap);va_end(ap);return V1;} /* REMOVE */  static object  LnkTLI196(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[196],(void **)&LnkLI196,ap);va_end(ap);return V1;} /* REMOVE */
3592  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* SPICEP */
3593  static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* FRS-TAG */
3594  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */  static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-CLASS */
3595  static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-VS */
3596  static object  LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* FRS-KIND */  static object  LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* FRS-KIND */
3597  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */  static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* IHS-FUN */
3598  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* FRS-IHS */
3599  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* BDS-VAL */
3600  static object  LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* PRINT-FRS */  static object  LnkTLI181(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[181],(void **)&LnkLI181,1,ap);va_end(ap);return V1;} /* PRINT-FRS */
3601  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */  static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* BDS-VAR */
3602  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* FRS-BDS */
3603  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* BREAK-VS */
3604  static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* VS */
3605  static object  LnkTLI175(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[175],(void **)&LnkLI175,1,ap);va_end(ap);return V1;} /* PRINT-IHS */  static object  LnkTLI176(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[176],(void **)&LnkLI176,1,ap);va_end(ap);return V1;} /* PRINT-IHS */
3606  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */  static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* IHS-VS */
3607  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* BREAK-PREVIOUS */
3608  static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* IHS-FNAME */
3609  static object  LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */  static object  LnkTLI172(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[172],(void **)&LnkLI172,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */
3610  static object  LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */  static object  LnkTLI171(){return call_proc0(VV[171],(void **)&LnkLI171);} /* SET-ENV */
3611  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */  static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* COMPLETE-PROP */
3612  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK-LEVEL */
3613  static void LnkT167(){ call_or_link(VV[167],(void **)&Lnk167);} /* BREAK */  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK */
3614  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* DBL-READ */  static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* DBL-READ */
3615  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* SET-BACK */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* SET-BACK */
3616  static object  LnkTLI162(){return call_proc0(VV[162],(void **)&LnkLI162);} /* SET-CURRENT */  static object  LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* SET-CURRENT */
3617  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* CATCH-FATAL */  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* CATCH-FATAL */
3618  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* BREAK-QUIT */  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* BREAK-QUIT */
3619  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* SIMPLE-BACKTRACE */  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* SIMPLE-BACKTRACE */
3620  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* FRS-TOP */  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* FRS-TOP */
3621  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* SCH-FRS-BASE */  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* SCH-FRS-BASE */
3622  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* IHS-TOP */  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* IHS-TOP */
3623  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* MAKE-STRING-INPUT-STREAM */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* MAKE-STRING-INPUT-STREAM */
3624  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* STRING-CONCATENATE */  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-CONCATENATE */
3625  static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* READ-FROM-STRING */  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* READ-FROM-STRING */
3626  static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* BREAK-CURRENT */  static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* BREAK-CURRENT */
3627  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* PROCESS-SOME-ARGS */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* PROCESS-SOME-ARGS */
3628  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* LOAD */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* LOAD */
3629    
3630  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3631  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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