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

Diff of /gcl/lsp/seqlib.c

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

revision 1.2 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.3 by camm, Fri Jul 12 22:00:49 2002 UTC
# Line 154  T43:; Line 154  T43:;
154          }          }
155  /*      local entry for function THE-END        */  /*      local entry for function THE-END        */
156    
157  static int LI6(V34,V35)  static long LI6(V34,V35)
158    
159  register object V34;object V35;  register object V34;object V35;
160  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
# Line 167  TTL:; Line 167  TTL:;
167  T51:;  T51:;
168          (void)((VFUN_NARGS=1,(*(LnkLI31))((V34))));          (void)((VFUN_NARGS=1,(*(LnkLI31))((V34))));
169  T50:;  T50:;
170          {int V36 = fix((V34));          {long V36 = fix((V34));
171          VMR6(V36)}          VMR6(V36)}
172  T48:;  T48:;
173          if(((V34))!=Cnil){          if(((V34))!=Cnil){
174          goto T54;}          goto T54;}
175          {int V37 = length((V35));          {long V37 = length((V35));
176          VMR6(V37)}          VMR6(V37)}
177  T54:;  T54:;
178          {int V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34))));          {long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34))));
179          VMR6(V38)}          VMR6(V38)}
180  }  }
181  /*      local entry for function THE-START      */  /*      local entry for function THE-START      */
182    
183  static int LI7(V40)  static long LI7(V40)
184    
185  register object V40;  register object V40;
186  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
# Line 193  TTL:; Line 193  TTL:;
193  T60:;  T60:;
194          (void)((VFUN_NARGS=1,(*(LnkLI31))((V40))));          (void)((VFUN_NARGS=1,(*(LnkLI31))((V40))));
195  T59:;  T59:;
196          {int V41 = fix((V40));          {long V41 = fix((V40));
197          VMR7(V41)}          VMR7(V41)}
198  T57:;  T57:;
199          if(((V40))!=Cnil){          if(((V40))!=Cnil){
200          goto T63;}          goto T63;}
201          {int V42 = 0;          {long V42 = 0;
202          VMR7(V42)}          VMR7(V42)}
203  T63:;  T63:;
204          {int V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40))));          {long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40))));
205          VMR7(V43)}          VMR7(V43)}
206  }  }
207  /*      function definition for REDUCE  */  /*      function definition for REDUCE  */
# Line 232  static L8() Line 232  static L8()
232          V51= symbol_function(VV[33]);          V51= symbol_function(VV[33]);
233          }else{          }else{
234          V51=(base[6]);}          V51=(base[6]);}
235          {register int V52;          {register long V52;
236          if(((V47))==Cnil){          if(((V47))==Cnil){
237          goto T68;}          goto T68;}
238          V52= (*(LnkLI34))((V47));          V52= (*(LnkLI34))((V47));
# Line 240  static L8() Line 240  static L8()
240  T68:;  T68:;
241          V52= 0;          V52= 0;
242  T66:;  T66:;
243          {register int V53;          {register long V53;
244          V53= (*(LnkLI35))((V48),(V45));          V53= (*(LnkLI35))((V48),(V45));
245          if(!((V52)<=(V53))){          if(!((V52)<=(V53))){
246          goto T72;}          goto T72;}
# Line 344  static object LI9(V64,V63,va_alist) Line 344  static object LI9(V64,V63,va_alist)
344          parse_key_new(narg,Vcs +2,&LI9key,ap);          parse_key_new(narg,Vcs +2,&LI9key,ap);
345          V67=(Vcs[2]);          V67=(Vcs[2]);
346          V68=(Vcs[3]);          V68=(Vcs[3]);
347          {int V69;          {long V69;
348          if(((V67))==Cnil){          if(((V67))==Cnil){
349          goto T124;}          goto T124;}
350          V69= (*(LnkLI34))((V67));          V69= (*(LnkLI34))((V67));
# Line 352  static object LI9(V64,V63,va_alist) Line 352  static object LI9(V64,V63,va_alist)
352  T124:;  T124:;
353          V69= 0;          V69= 0;
354  T122:;  T122:;
355          {register int V70;          {register long V70;
356          V70= (*(LnkLI35))((V68),(V65));          V70= (*(LnkLI35))((V68),(V65));
357          if(!((V69)<=(V70))){          if(!((V69)<=(V70))){
358          goto T128;}          goto T128;}
# Line 362  T128:; Line 362  T128:;
362          V72 = make_fixnum(V70);          V72 = make_fixnum(V70);
363          (void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72)));
364  T127:;  T127:;
365          {register int V73;          {register long V73;
366          V73= V69;          V73= V69;
367  T132:;  T132:;
368          if(!((V73)>=(V70))){          if(!((V73)>=(V70))){
# Line 399  static object LI10(V76,V75,va_alist) Line 399  static object LI10(V76,V75,va_alist)
399          V80=(Vcs[3]);          V80=(Vcs[3]);
400          V81=(Vcs[4]);          V81=(Vcs[4]);
401          V82=(Vcs[5]);          V82=(Vcs[5]);
402          {int V83;          {long V83;
403          if(((V79))==Cnil){          if(((V79))==Cnil){
404          goto T143;}          goto T143;}
405          V83= (*(LnkLI34))((V79));          V83= (*(LnkLI34))((V79));
# Line 407  static object LI10(V76,V75,va_alist) Line 407  static object LI10(V76,V75,va_alist)
407  T143:;  T143:;
408          V83= 0;          V83= 0;
409  T141:;  T141:;
410          {int V84;          {long V84;
411          V84= (*(LnkLI35))((V80),(V77));          V84= (*(LnkLI35))((V80),(V77));
412          if(!((V83)<=(V84))){          if(!((V83)<=(V84))){
413          goto T147;}          goto T147;}
# Line 417  T147:; Line 417  T147:;
417          V86 = make_fixnum(V84);          V86 = make_fixnum(V84);
418          (void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86)));
419  T146:;  T146:;
420          {int V87;          {long V87;
421          if(((V81))==Cnil){          if(((V81))==Cnil){
422          goto T151;}          goto T151;}
423          V87= (*(LnkLI34))((V81));          V87= (*(LnkLI34))((V81));
# Line 425  T146:; Line 425  T146:;
425  T151:;  T151:;
426          V87= 0;          V87= 0;
427  T149:;  T149:;
428          {int V88;          {long V88;
429          V88= (*(LnkLI35))((V82),(V78));          V88= (*(LnkLI35))((V82),(V78));
430          if(!((V87)<=(V88))){          if(!((V87)<=(V88))){
431          goto T155;}          goto T155;}
# Line 439  T154:; Line 439  T154:;
439          goto T158;}          goto T158;}
440          if(!((V83)>(V87))){          if(!((V83)>(V87))){
441          goto T158;}          goto T158;}
442          {register int V91;          {register long V91;
443          int V92;          long V92;
444          register int V93;          register long V93;
445          register int V94;          register long V94;
446          V91= 0;          V91= 0;
447          if(!(((V84)-(V83))<((V88)-(V87)))){          if(!(((V84)-(V83))<((V88)-(V87)))){
448          goto T165;}          goto T165;}
# Line 466  T171:; Line 466  T171:;
466          V94= (-1)+(V94);          V94= (-1)+(V94);
467          goto T170;}          goto T170;}
468  T158:;  T158:;
469          {register int V97;          {register long V97;
470          int V98;          long V98;
471          register int V99;          register long V99;
472          register int V100;          register long V100;
473          V97= 0;          V97= 0;
474          if(!(((V84)-(V83))<((V88)-(V87)))){          if(!(((V84)-(V83))<((V88)-(V87)))){
475          goto T186;}          goto T186;}
# Line 527  static object LI11(V104,V103,va_alist) Line 527  static object LI11(V104,V103,va_alist)
527          V113= symbol_function(VV[33]);          V113= symbol_function(VV[33]);
528          }else{          }else{
529          V113=(Vcs[8]);}          V113=(Vcs[8]);}
530          {int V114;          {long V114;
531          if(((V110))==Cnil){          if(((V110))==Cnil){
532          goto T205;}          goto T205;}
533          V114= (*(LnkLI34))((V110));          V114= (*(LnkLI34))((V110));
# Line 535  static object LI11(V104,V103,va_alist) Line 535  static object LI11(V104,V103,va_alist)
535  T205:;  T205:;
536          V114= 0;          V114= 0;
537  T203:;  T203:;
538          {int V115;          {long V115;
539          V115= (*(LnkLI35))((V111),(V106));          V115= (*(LnkLI35))((V111),(V106));
540          if(!((V114)<=(V115))){          if(!((V114)<=(V115))){
541          goto T209;}          goto T209;}
# Line 545  T209:; Line 545  T209:;
545          V117 = make_fixnum(V115);          V117 = make_fixnum(V115);
546          (void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117)));
547  T208:;  T208:;
548          {int V118;          {long V118;
549          if(((V112))!=Cnil){          if(((V112))!=Cnil){
550          goto T213;}          goto T213;}
551          V118= 2147483647;          V118= 2147483647;
# Line 567  T216:; Line 567  T216:;
567          register object V120;          register object V120;
568          V119= (V106);          V119= (V106);
569          V120= Cnil;          V120= Cnil;
570          {register int V121;          {register long V121;
571          V121= 0;          V121= 0;
572  T226:;  T226:;
573          if(!((V121)>=(V114))){          if(!((V121)>=(V114))){
# Line 581  T227:; Line 581  T227:;
581          V121= (1)+(V121);          V121= (1)+(V121);
582          goto T226;}          goto T226;}
583  T223:;  T223:;
584          {register int V123;          {register long V123;
585          register int V124;          register long V124;
586          V123= V114;          V123= V114;
587          V124= 0;          V124= 0;
588  T243:;  T243:;
# Line 736  static object LI14(V160,V159,va_alist) Line 736  static object LI14(V160,V159,va_alist)
736          V169= symbol_function(VV[33]);          V169= symbol_function(VV[33]);
737          }else{          }else{
738          V169=(Vcs[8]);}          V169=(Vcs[8]);}
739          {int V170;          {long V170;
740          V170= length((V162));          V170= length((V162));
741          {register int V171;          {register long V171;
742          if(((V166))==Cnil){          if(((V166))==Cnil){
743          goto T281;}          goto T281;}
744          V171= (*(LnkLI34))((V166));          V171= (*(LnkLI34))((V166));
# Line 746  static object LI14(V160,V159,va_alist) Line 746  static object LI14(V160,V159,va_alist)
746  T281:;  T281:;
747          V171= 0;          V171= 0;
748  T279:;  T279:;
749          {register int V172;          {register long V172;
750          V172= (*(LnkLI35))((V167),(V162));          V172= (*(LnkLI35))((V167),(V162));
751          if(!((V171)<=(V172))){          if(!((V171)<=(V172))){
752          goto T285;}          goto T285;}
# Line 756  T285:; Line 756  T285:;
756          V174 = make_fixnum(V172);          V174 = make_fixnum(V172);
757          (void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174)));
758  T284:;  T284:;
759          {register int V175;          {register long V175;
760          if(((V168))!=Cnil){          if(((V168))!=Cnil){
761          goto T289;}          goto T289;}
762          V175= 2147483647;          V175= 2147483647;
# Line 778  T292:; Line 778  T292:;
778          register object V177;          register object V177;
779          V176= make_cons(Cnil,(V162));          V176= make_cons(Cnil,(V162));
780          V177= (V176);          V177= (V176);
781          {int V178;          {long V178;
782          V178= 0;          V178= 0;
783  T304:;  T304:;
784          if(!((V178)>=(V171))){          if(!((V178)>=(V171))){
# Line 791  T305:; Line 791  T305:;
791          V178= (1)+(V178);          V178= (1)+(V178);
792          goto T304;}          goto T304;}
793  T301:;  T301:;
794          {int V180;          {long V180;
795          int V181;          long V181;
796          V180= V171;          V180= V171;
797          V181= 0;          V181= 0;
798  T319:;  T319:;
# Line 823  T328:; Line 823  T328:;
823          V180= (1)+(V180);          V180= (1)+(V180);
824          goto T319;}}          goto T319;}}
825  T297:;  T297:;
826          {int V184;          {long V184;
827          V185 = make_fixnum(V171);          V185 = make_fixnum(V171);
828          V186 = make_fixnum(V172);          V186 = make_fixnum(V172);
829          V187 = make_fixnum(V175);          V187 = make_fixnum(V175);
# Line 833  T297:; Line 833  T297:;
833          V175= V184;          V175= V184;
834  T341:;  T341:;
835          {object V188;          {object V188;
836          register int V189;          register long V189;
837          int V190;          long V190;
838          int V191;          long V191;
839          V192= (*(LnkLI47))((V162));          V192= (*(LnkLI47))((V162));
840          V193 = make_fixnum((V170)-(V175));          V193 = make_fixnum((V170)-(V175));
841          V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193));          V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193));
# Line 871  T355:; Line 871  T355:;
871          V189= (1)+(V189);          V189= (1)+(V189);
872          goto T350;}}          goto T350;}}
873  T294:;  T294:;
874          {int V197;          {long V197;
875          V198 = make_fixnum(V171);          V198 = make_fixnum(V171);
876          V199 = make_fixnum(V172);          V199 = make_fixnum(V172);
877          V200 = make_fixnum(V175);          V200 = make_fixnum(V175);
# Line 881  T294:; Line 881  T294:;
881          V175= V197;          V175= V197;
882  T374:;  T374:;
883          {object V201;          {object V201;
884          register int V202;          register long V202;
885          int V203;          long V203;
886          int V204;          long V204;
887          V205= (*(LnkLI47))((V162));          V205= (*(LnkLI47))((V162));
888          V206 = make_fixnum((V170)-(V175));          V206 = make_fixnum((V170)-(V175));
889          V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206));          V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206));
# Line 1019  static object LI17(V233,V232,va_alist) Line 1019  static object LI17(V233,V232,va_alist)
1019          V241= symbol_function(VV[33]);          V241= symbol_function(VV[33]);
1020          }else{          }else{
1021          V241=(Vcs[7]);}          V241=(Vcs[7]);}
1022          {int V242;          {long V242;
1023          if(((V239))==Cnil){          if(((V239))==Cnil){
1024          goto T413;}          goto T413;}
1025          V242= (*(LnkLI34))((V239));          V242= (*(LnkLI34))((V239));
# Line 1027  static object LI17(V233,V232,va_alist) Line 1027  static object LI17(V233,V232,va_alist)
1027  T413:;  T413:;
1028          V242= 0;          V242= 0;
1029  T411:;  T411:;
1030          {int V243;          {long V243;
1031          V243= (*(LnkLI35))((V240),(V235));          V243= (*(LnkLI35))((V240),(V235));
1032          if(!((V242)<=(V243))){          if(!((V242)<=(V243))){
1033          goto T417;}          goto T417;}
# Line 1045  T416:; Line 1045  T416:;
1045  T419:;  T419:;
1046          if(((V236))!=Cnil){          if(((V236))!=Cnil){
1047          goto T421;}          goto T421;}
1048          {register int V246;          {register long V246;
1049          register int V247;          register long V247;
1050          V246= V242;          V246= V242;
1051          V247= 0;          V247= 0;
1052  T426:;  T426:;
# Line 1067  T431:; Line 1067  T431:;
1067          V246= (1)+(V246);          V246= (1)+(V246);
1068          goto T426;}          goto T426;}
1069  T421:;  T421:;
1070          {register int V250;          {register long V250;
1071          register int V251;          register long V251;
1072          V250= (-1)+(V243);          V250= (-1)+(V243);
1073          V251= 0;          V251= 0;
1074  T443:;  T443:;
# Line 1187  static object LI20(V275,V274,va_alist) Line 1187  static object LI20(V275,V274,va_alist)
1187          V284= symbol_function(VV[33]);          V284= symbol_function(VV[33]);
1188          }else{          }else{
1189          V284=(Vcs[8]);}          V284=(Vcs[8]);}
1190          {int V285;          {long V285;
1191          if(((V281))==Cnil){          if(((V281))==Cnil){
1192          goto T464;}          goto T464;}
1193          V285= (*(LnkLI34))((V281));          V285= (*(LnkLI34))((V281));
# Line 1195  static object LI20(V275,V274,va_alist) Line 1195  static object LI20(V275,V274,va_alist)
1195  T464:;  T464:;
1196          V285= 0;          V285= 0;
1197  T462:;  T462:;
1198          {int V286;          {long V286;
1199          V286= (*(LnkLI35))((V282),(V277));          V286= (*(LnkLI35))((V282),(V277));
1200          if(!((V285)<=(V286))){          if(!((V285)<=(V286))){
1201          goto T468;}          goto T468;}
# Line 1205  T468:; Line 1205  T468:;
1205          V288 = make_fixnum(V286);          V288 = make_fixnum(V286);
1206          (void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288)));
1207  T467:;  T467:;
1208          {int V289;          {long V289;
1209          if(((V283))!=Cnil){          if(((V283))!=Cnil){
1210          goto T472;}          goto T472;}
1211          V289= 2147483647;          V289= 2147483647;
# Line 1221  T470:; Line 1221  T470:;
1221  T475:;  T475:;
1222          if(((V278))!=Cnil){          if(((V278))!=Cnil){
1223          goto T477;}          goto T477;}
1224          {register int V290;          {register long V290;
1225          register int V291;          register long V291;
1226          V290= V285;          V290= V285;
1227          V291= 0;          V291= 0;
1228  T482:;  T482:;
# Line 1245  T487:; Line 1245  T487:;
1245          V290= (1)+(V290);          V290= (1)+(V290);
1246          goto T482;}          goto T482;}
1247  T477:;  T477:;
1248          {register int V294;          {register long V294;
1249          register int V295;          register long V295;
1250          V294= (-1)+(V286);          V294= (-1)+(V286);
1251          V295= 0;          V295= 0;
1252  T501:;  T501:;
# Line 1373  static object LI23(V322,V321,V320,va_ali Line 1373  static object LI23(V322,V321,V320,va_ali
1373          V332= symbol_function(VV[33]);          V332= symbol_function(VV[33]);
1374          }else{          }else{
1375          V332=(Vcs[9]);}          V332=(Vcs[9]);}
1376          {int V333;          {long V333;
1377          V333= length((V325));          V333= length((V325));
1378          {int V334;          {long V334;
1379          if(((V329))==Cnil){          if(((V329))==Cnil){
1380          goto T525;}          goto T525;}
1381          V334= (*(LnkLI34))((V329));          V334= (*(LnkLI34))((V329));
# Line 1383  static object LI23(V322,V321,V320,va_ali Line 1383  static object LI23(V322,V321,V320,va_ali
1383  T525:;  T525:;
1384          V334= 0;          V334= 0;
1385  T523:;  T523:;
1386          {int V335;          {long V335;
1387          V335= (*(LnkLI35))((V330),(V325));          V335= (*(LnkLI35))((V330),(V325));
1388          if(!((V334)<=(V335))){          if(!((V334)<=(V335))){
1389          goto T529;}          goto T529;}
# Line 1393  T529:; Line 1393  T529:;
1393          V337 = make_fixnum(V335);          V337 = make_fixnum(V335);
1394          (void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337)));
1395  T528:;  T528:;
1396          {int V338;          {long V338;
1397          if(((V331))!=Cnil){          if(((V331))!=Cnil){
1398          goto T533;}          goto T533;}
1399          V338= 2147483647;          V338= 2147483647;
# Line 1410  T536:; Line 1410  T536:;
1410          if(((V326))!=Cnil){          if(((V326))!=Cnil){
1411          goto T538;}          goto T538;}
1412          {register object V339;          {register object V339;
1413          register int V340;          register long V340;
1414          register int V341;          register long V341;
1415          V342= (*(LnkLI47))((V325));          V342= (*(LnkLI47))((V325));
1416          V343 = make_fixnum(V333);          V343 = make_fixnum(V333);
1417          V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343));          V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343));
# Line 1447  T549:; Line 1447  T549:;
1447          goto T544;}          goto T544;}
1448  T538:;  T538:;
1449          {register object V347;          {register object V347;
1450          register int V348;          register long V348;
1451          register int V349;          register long V349;
1452          V350= (*(LnkLI47))((V325));          V350= (*(LnkLI47))((V325));
1453          V351 = make_fixnum(V333);          V351 = make_fixnum(V333);
1454          V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351));          V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351));
# Line 1591  static object LI26(V383,V382,V381,va_ali Line 1591  static object LI26(V383,V382,V381,va_ali
1591          V393= symbol_function(VV[33]);          V393= symbol_function(VV[33]);
1592          }else{          }else{
1593          V393=(Vcs[9]);}          V393=(Vcs[9]);}
1594          {int V394;          {long V394;
1595          if(((V390))==Cnil){          if(((V390))==Cnil){
1596          goto T599;}          goto T599;}
1597          V394= (*(LnkLI34))((V390));          V394= (*(LnkLI34))((V390));
# Line 1599  static object LI26(V383,V382,V381,va_ali Line 1599  static object LI26(V383,V382,V381,va_ali
1599  T599:;  T599:;
1600          V394= 0;          V394= 0;
1601  T597:;  T597:;
1602          {int V395;          {long V395;
1603          V395= (*(LnkLI35))((V391),(V386));          V395= (*(LnkLI35))((V391),(V386));
1604          if(!((V394)<=(V395))){          if(!((V394)<=(V395))){
1605          goto T603;}          goto T603;}
# Line 1609  T603:; Line 1609  T603:;
1609          V397 = make_fixnum(V395);          V397 = make_fixnum(V395);
1610          (void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397)));
1611  T602:;  T602:;
1612          {int V398;          {long V398;
1613          if(((V392))!=Cnil){          if(((V392))!=Cnil){
1614          goto T607;}          goto T607;}
1615          V398= 2147483647;          V398= 2147483647;
# Line 1625  T605:; Line 1625  T605:;
1625  T610:;  T610:;
1626          if(((V387))!=Cnil){          if(((V387))!=Cnil){
1627          goto T612;}          goto T612;}
1628          {register int V399;          {register long V399;
1629          register int V400;          register long V400;
1630          V399= V394;          V399= V394;
1631          V400= 0;          V400= 0;
1632  T617:;  T617:;
# Line 1650  T622:; Line 1650  T622:;
1650          V399= (1)+(V399);          V399= (1)+(V399);
1651          goto T617;}          goto T617;}
1652  T612:;  T612:;
1653          {register int V403;          {register long V403;
1654          register int V404;          register long V404;
1655          V403= (-1)+(V395);          V403= (-1)+(V395);
1656          V404= 0;          V404= 0;
1657  T637:;  T637:;
# Line 1779  static object LI29(V434,V433,va_alist) Line 1779  static object LI29(V434,V433,va_alist)
1779          V442= symbol_function(VV[33]);          V442= symbol_function(VV[33]);
1780          }else{          }else{
1781          V442=(Vcs[7]);}          V442=(Vcs[7]);}
1782          {int V443;          {long V443;
1783          if(((V440))==Cnil){          if(((V440))==Cnil){
1784          goto T661;}          goto T661;}
1785          V443= (*(LnkLI34))((V440));          V443= (*(LnkLI34))((V440));
# Line 1787  static object LI29(V434,V433,va_alist) Line 1787  static object LI29(V434,V433,va_alist)
1787  T661:;  T661:;
1788          V443= 0;          V443= 0;
1789  T659:;  T659:;
1790          {int V444;          {long V444;
1791          V444= (*(LnkLI35))((V441),(V436));          V444= (*(LnkLI35))((V441),(V436));
1792          if(!((V443)<=(V444))){          if(!((V443)<=(V444))){
1793          goto T665;}          goto T665;}
# Line 1805  T664:; Line 1805  T664:;
1805  T667:;  T667:;
1806          if(((V437))!=Cnil){          if(((V437))!=Cnil){
1807          goto T669;}          goto T669;}
1808          {register int V447;          {register long V447;
1809          V447= V443;          V447= V443;
1810  T673:;  T673:;
1811          if(!((V447)>=(V444))){          if(!((V447)>=(V444))){
# Line 1826  T678:; Line 1826  T678:;
1826          V447= (1)+(V447);          V447= (1)+(V447);
1827          goto T673;}          goto T673;}
1828  T669:;  T669:;
1829          {register int V451;          {register long V451;
1830          V451= (-1)+(V444);          V451= (-1)+(V444);
1831  T688:;  T688:;
1832          if(!((V451)<(V443))){          if(!((V451)<(V443))){
# Line 1943  static object LI32(V476,V475,va_alist) Line 1943  static object LI32(V476,V475,va_alist)
1943          V484= symbol_function(VV[33]);          V484= symbol_function(VV[33]);
1944          }else{          }else{
1945          V484=(Vcs[7]);}          V484=(Vcs[7]);}
1946          {int V485;          {long V485;
1947          if(((V482))==Cnil){          if(((V482))==Cnil){
1948          goto T708;}          goto T708;}
1949          V485= (*(LnkLI34))((V482));          V485= (*(LnkLI34))((V482));
# Line 1951  static object LI32(V476,V475,va_alist) Line 1951  static object LI32(V476,V475,va_alist)
1951  T708:;  T708:;
1952          V485= 0;          V485= 0;
1953  T706:;  T706:;
1954          {int V486;          {long V486;
1955          V486= (*(LnkLI35))((V483),(V478));          V486= (*(LnkLI35))((V483),(V478));
1956          if(!((V485)<=(V486))){          if(!((V485)<=(V486))){
1957          goto T712;}          goto T712;}
# Line 1969  T711:; Line 1969  T711:;
1969  T714:;  T714:;
1970          if(((V479))!=Cnil){          if(((V479))!=Cnil){
1971          goto T716;}          goto T716;}
1972          {register int V489;          {register long V489;
1973          V489= V485;          V489= V485;
1974  T720:;  T720:;
1975          if(!((V489)>=(V486))){          if(!((V489)>=(V486))){
# Line 1990  T725:; Line 1990  T725:;
1990          V489= (1)+(V489);          V489= (1)+(V489);
1991          goto T720;}          goto T720;}
1992  T716:;  T716:;
1993          {register int V493;          {register long V493;
1994          V493= (-1)+(V486);          V493= (-1)+(V486);
1995  T735:;  T735:;
1996          if(!((V493)<(V485))){          if(!((V493)<(V485))){
# Line 2190  static object LI36(V530,va_alist) Line 2190  static object LI36(V530,va_alist)
2190          V537= symbol_function(VV[33]);          V537= symbol_function(VV[33]);
2191          }else{          }else{
2192          V537=(Vcs[6]);}          V537=(Vcs[6]);}
2193          {int V538;          {long V538;
2194          V538= length((V531));          V538= length((V531));
2195          if((V533)==Cnil){          if((V533)==Cnil){
2196          goto T791;}          goto T791;}
# Line 2242  T812:; Line 2242  T812:;
2242  T810:;  T810:;
2243          goto T805;}          goto T805;}
2244  T792:;  T792:;
2245          {register int V542;          {register long V542;
2246          if(((V535))==Cnil){          if(((V535))==Cnil){
2247          goto T828;}          goto T828;}
2248          V542= (*(LnkLI34))((V535));          V542= (*(LnkLI34))((V535));
# Line 2250  T792:; Line 2250  T792:;
2250  T828:;  T828:;
2251          V542= 0;          V542= 0;
2252  T826:;  T826:;
2253          {register int V543;          {register long V543;
2254          V543= (*(LnkLI35))((V536),(V531));          V543= (*(LnkLI35))((V536),(V531));
2255          if(!((V542)<=(V543))){          if(!((V542)<=(V543))){
2256          goto T832;}          goto T832;}
# Line 2262  T832:; Line 2262  T832:;
2262  T831:;  T831:;
2263          if(((V532))!=Cnil){          if(((V532))!=Cnil){
2264          goto T835;}          goto T835;}
2265          {int V546;          {long V546;
2266          int V547;          long V547;
2267          V546= 0;          V546= 0;
2268          V547= V542;          V547= V542;
2269  T840:;  T840:;
2270          if(!((V547)>=(V543))){          if(!((V547)>=(V543))){
2271          goto T841;}          goto T841;}
2272          {object V548;          {object V548;
2273          register int V549;          register long V549;
2274          int V550;          long V550;
2275          V551= (*(LnkLI47))((V531));          V551= (*(LnkLI47))((V531));
2276          V552 = make_fixnum((V538)-(V546));          V552 = make_fixnum((V538)-(V546));
2277          V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552));          V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552));
# Line 2328  T870:; Line 2328  T870:;
2328          V547= (1)+(V547);          V547= (1)+(V547);
2329          goto T840;}          goto T840;}
2330  T835:;  T835:;
2331          {int V562;          {long V562;
2332          int V563;          long V563;
2333          V562= 0;          V562= 0;
2334          V563= (-1)+(V543);          V563= (-1)+(V543);
2335  T882:;  T882:;
2336          if(!((V563)<(V542))){          if(!((V563)<(V542))){
2337          goto T883;}          goto T883;}
2338          {object V564;          {object V564;
2339          register int V565;          register long V565;
2340          int V566;          long V566;
2341          V567= (*(LnkLI47))((V531));          V567= (*(LnkLI47))((V531));
2342          V568 = make_fixnum((V538)-(V562));          V568 = make_fixnum((V538)-(V562));
2343          V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568));          V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568));
# Line 2436  static object LI37(V579,V578,va_alist) Line 2436  static object LI37(V579,V578,va_alist)
2436          goto T922;}          goto T922;}
2437          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
2438  T922:;  T922:;
2439          {register int V590;          {register long V590;
2440          if(((V586))==Cnil){          if(((V586))==Cnil){
2441          goto T925;}          goto T925;}
2442          V590= (*(LnkLI34))((V586));          V590= (*(LnkLI34))((V586));
# Line 2444  T922:; Line 2444  T922:;
2444  T925:;  T925:;
2445          V590= 0;          V590= 0;
2446  T923:;  T923:;
2447          {register int V591;          {register long V591;
2448          V591= (*(LnkLI35))((V588),(V580));          V591= (*(LnkLI35))((V588),(V580));
2449          if(!((V590)<=(V591))){          if(!((V590)<=(V591))){
2450          goto T929;}          goto T929;}
# Line 2454  T929:; Line 2454  T929:;
2454          V593 = make_fixnum(V591);          V593 = make_fixnum(V591);
2455          (void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593)));
2456  T928:;  T928:;
2457          {register int V594;          {register long V594;
2458          if(((V587))==Cnil){          if(((V587))==Cnil){
2459          goto T933;}          goto T933;}
2460          V594= (*(LnkLI34))((V587));          V594= (*(LnkLI34))((V587));
# Line 2462  T928:; Line 2462  T928:;
2462  T933:;  T933:;
2463          V594= 0;          V594= 0;
2464  T931:;  T931:;
2465          {register int V595;          {register long V595;
2466          V595= (*(LnkLI35))((V589),(V581));          V595= (*(LnkLI35))((V589),(V581));
2467          if(!((V594)<=(V595))){          if(!((V594)<=(V595))){
2468          goto T937;}          goto T937;}
# Line 2474  T937:; Line 2474  T937:;
2474  T936:;  T936:;
2475          if(((V582))!=Cnil){          if(((V582))!=Cnil){
2476          goto T940;}          goto T940;}
2477          {register int V598;          {register long V598;
2478          register int V599;          register long V599;
2479          V598= V590;          V598= V590;
2480          V599= V594;          V599= V594;
2481  T945:;  T945:;
# Line 2513  T957:; Line 2513  T957:;
2513          V599= (1)+(V599);          V599= (1)+(V599);
2514          goto T945;}          goto T945;}
2515  T940:;  T940:;
2516          {register int V605;          {register long V605;
2517          register int V606;          register long V606;
2518          V605= (-1)+(V591);          V605= (-1)+(V591);
2519          V606= (-1)+(V595);          V606= (-1)+(V595);
2520  T971:;  T971:;
# Line 2594  static object LI38(V613,V612,va_alist) Line 2594  static object LI38(V613,V612,va_alist)
2594          goto T995;}          goto T995;}
2595          (void)((*(LnkLI40))());          (void)((*(LnkLI40))());
2596  T995:;  T995:;
2597          {int V624;          {long V624;
2598          if(((V620))==Cnil){          if(((V620))==Cnil){
2599          goto T998;}          goto T998;}
2600          V624= (*(LnkLI34))((V620));          V624= (*(LnkLI34))((V620));
# Line 2602  T995:; Line 2602  T995:;
2602  T998:;  T998:;
2603          V624= 0;          V624= 0;
2604  T996:;  T996:;
2605          {int V625;          {long V625;
2606          V625= (*(LnkLI35))((V622),(V614));          V625= (*(LnkLI35))((V622),(V614));
2607          if(!((V624)<=(V625))){          if(!((V624)<=(V625))){
2608          goto T1002;}          goto T1002;}
# Line 2612  T1002:; Line 2612  T1002:;
2612          V627 = make_fixnum(V625);          V627 = make_fixnum(V625);
2613          (void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627)));          (void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627)));
2614  T1001:;  T1001:;
2615          {register int V628;          {register long V628;
2616          if(((V621))==Cnil){          if(((V621))==Cnil){
2617          goto T1006;}          goto T1006;}
2618          V628= (*(LnkLI34))((V621));          V628= (*(LnkLI34))((V621));
# Line 2620  T1001:; Line 2620  T1001:;
2620  T1006:;  T1006:;
2621          V628= 0;          V628= 0;
2622  T1004:;  T1004:;
2623          {int V629;          {long V629;
2624          V629= (*(LnkLI35))((V623),(V615));          V629= (*(LnkLI35))((V623),(V615));
2625          if(!((V628)<=(V629))){          if(!((V628)<=(V629))){
2626          goto T1010;}          goto T1010;}
# Line 2633  T1009:; Line 2633  T1009:;
2633          if(((V616))!=Cnil){          if(((V616))!=Cnil){
2634          goto T1013;}          goto T1013;}
2635  T1016:;  T1016:;
2636          {register int V632;          {register long V632;
2637          register int V633;          register long V633;
2638          V632= V624;          V632= V624;
2639          V633= V628;          V633= V628;
2640  T1022:;  T1022:;
# Line 2670  T1018:; Line 2670  T1018:;
2670          goto T1016;          goto T1016;
2671  T1013:;  T1013:;
2672  T1044:;  T1044:;
2673          {register int V638;          {register long V638;
2674          register int V639;          register long V639;
2675          V638= (-1)+(V625);          V638= (-1)+(V625);
2676          V639= (-1)+(V629);          V639= (-1)+(V629);
2677  T1050:;  T1050:;
# Line 2759  TTL:; Line 2759  TTL:;
2759    
2760  static object LI42(V653,V654,V655,V656,V657)  static object LI42(V653,V654,V655,V656,V657)
2761    
2762  register object V653;int V654;int V655;register object V656;register object V657;  register object V653;long V654;long V655;register object V656;register object V657;
2763  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2764  TTL:;  TTL:;
2765          if(!((V655)<=((1)+(V654)))){          if(!((V655)<=((1)+(V654)))){
# Line 2767  TTL:; Line 2767  TTL:;
2767          {object V658 = (V653);          {object V658 = (V653);
2768          VMR41(V658)}          VMR41(V658)}
2769  T1080:;  T1080:;
2770          {register int V659;          {register long V659;
2771          register int V660;          register long V660;
2772          object V661;          object V661;
2773          register object V662;          register object V662;
2774          V659= V654;          V659= V654;
# Line 2913  static object LI44(V674,V673,V672,V671,v Line 2913  static object LI44(V674,V673,V672,V671,v
2913          V679= symbol_function(VV[33]);          V679= symbol_function(VV[33]);
2914          }else{          }else{
2915          V679=(Vcs[4]);}          V679=(Vcs[4]);}
2916          {int V680;          {long V680;
2917          int V681;          long V681;
2918          V680= length((V676));          V680= length((V676));
2919          V681= length((V677));          V681= length((V677));
2920          {register object V682;          {register object V682;
2921          register int V683;          register long V683;
2922          register int V684;          register long V684;
2923          register int V685;          register long V685;
2924          V686 = make_fixnum((V680)+(V681));          V686 = make_fixnum((V680)+(V681));
2925          V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686));          V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686));
2926          V683= 0;          V683= 0;
# Line 3171  register object *base0; Line 3171  register object *base0;
3171          V718=(base[0]);          V718=(base[0]);
3172          vs_top=sup;          vs_top=sup;
3173  TTL:;  TTL:;
3174          {int V719;          {long V719;
3175          register object V720;          register object V720;
3176          register object V721;          register object V721;
3177          object V722;          object V722;
# Line 3227  T1269:; Line 3227  T1269:;
3227          return;          return;
3228  T1253:;  T1253:;
3229          V719= (V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2));          V719= (V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2));
3230          {int V726;          {long V726;
3231          register object V727;          register object V727;
3232          V726= 1;          V726= 1;
3233          V727= (V718);          V727= (V718);
# Line 3349  static object  LnkTLI43(va_alist)va_dcl{ Line 3349  static object  LnkTLI43(va_alist)va_dcl{
3349  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[42],&LnkLI42,ap);} /* DELETE */  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[42],&LnkLI42,ap);} /* DELETE */
3350  static object  LnkTLI41(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[41],&LnkLI41,4,ap);} /* CALL-TEST */  static object  LnkTLI41(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[41],&LnkLI41,4,ap);} /* CALL-TEST */
3351  static object  LnkTLI40(){return call_proc0(VV[40],&LnkLI40);} /* TEST-ERROR */  static object  LnkTLI40(){return call_proc0(VV[40],&LnkLI40);} /* TEST-ERROR */
3352  static int  LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[35],&LnkLI35,258,ap);} /* THE-END */  static long  LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[35],&LnkLI35,258,ap);} /* THE-END */
3353  static int  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[34],&LnkLI34,257,ap);} /* THE-START */  static long  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[34],&LnkLI34,257,ap);} /* THE-START */
3354  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* BAD-SEQ-LIMIT */  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* BAD-SEQ-LIMIT */
3355    
3356  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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