/[gcl]/gcl/cmpnew/cmpfun.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpfun.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 23  T3:; Line 23  T3:;
23          goto T6;}          goto T6;}
24          if(endp(cddr((V2)))){          if(endp(cddr((V2)))){
25          goto T6;}          goto T6;}
26          V5 = make_fixnum(length((V2)));          V5 = make_fixnum((long)length((V2)));
27          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));
28  goto T6;  goto T6;
29  T6:;  T6:;
# Line 38  goto T12; Line 38  goto T12;
38  T12:;  T12:;
39          if(!(type_of(car((V2)))==t_string)){          if(!(type_of(car((V2)))==t_string)){
40          goto T19;}          goto T19;}
41          V6 = make_fixnum(length(car((V2))));          V6 = make_fixnum((long)length(car((V2))));
42          if(number_compare(V6,symbol_value(VV[1]))<=0){          if(number_compare(V6,symbol_value(VV[1]))<=0){
43          goto T18;}          goto T18;}
44  goto T19;  goto T19;
# Line 116  T45:; Line 116  T45:;
116          goto T36;          goto T36;
117  goto T38;  goto T38;
118  T38:;  T38:;
119          if(!((length((V17)))==(1))){          if(!(((long)length((V17)))==(1))){
120          goto T55;}          goto T55;}
121          princ_str("\n   princ_char(",VV[7]);          princ_str("\n   princ_char(",VV[7]);
122          base[0]= aref1((V17),0);          base[0]= aref1((V17),0);
# Line 143  T55:; Line 143  T55:;
143          princ_str("\n   princ_str(\"",VV[7]);          princ_str("\n   princ_str(\"",VV[7]);
144          {register long V22;          {register long V22;
145          register long V23;          register long V23;
146          V22= length((V17));          V22= (long)length((V17));
147          V23= 0;          V23= 0;
148  goto T77;  goto T77;
149  T77:;  T77:;
# Line 190  T97:; Line 190  T97:;
190          (void)((*(LnkLI213))((V24)));}          (void)((*(LnkLI213))((V24)));}
191  goto T82;  goto T82;
192  T82:;  T82:;
193          V23= (V23)+1;          V23= (long)(V23)+1;
194          goto T77;}          goto T77;}
195  goto T73;  goto T73;
196  T73:;  T73:;
# Line 252  TTL:; Line 252  TTL:;
252          goto T126;}          goto T126;}
253          if(endp(cdr((V33)))){          if(endp(cdr((V33)))){
254          goto T126;}          goto T126;}
255          V36 = make_fixnum(length((V33)));          V36 = make_fixnum((long)length((V33)));
256          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));
257  goto T126;  goto T126;
258  T126:;  T126:;
# Line 314  TTL:; Line 314  TTL:;
314          goto T148;}          goto T148;}
315  goto T149;  goto T149;
316  T149:;  T149:;
317          V45 = make_fixnum(length((V43)));          V45 = make_fixnum((long)length((V43)));
318          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));
319  goto T148;  goto T148;
320  T148:;  T148:;
# Line 557  goto T295; Line 557  goto T295;
557  T295:;  T295:;
558          (void)((*(LnkLI213))(V96));          (void)((*(LnkLI213))(V96));
559          princ_char(40,VV[7]);          princ_char(40,VV[7]);
560          V97 = make_fixnum(length((V93)));          V97 = make_fixnum((long)length((V93)));
561          (void)((*(LnkLI213))(V97));          (void)((*(LnkLI213))(V97));
562          princ_char(44,VV[7]);          princ_char(44,VV[7]);
563          (void)((*(LnkLI227))((V92),Cnil));          (void)((*(LnkLI227))((V92),Cnil));
# Line 614  T339:; Line 614  T339:;
614  goto T340;  goto T340;
615  T340:;  T340:;
616          princ_char(40,VV[7]);          princ_char(40,VV[7]);
617          V106= (V106)+1;          V106= (long)(V106)+1;
618          goto T339;}          goto T339;}
619  goto T335;  goto T335;
620  T335:;  T335:;
# Line 631  T354:; Line 631  T354:;
631  goto T355;  goto T355;
632  T355:;  T355:;
633          princ_str("\n   )->c.c_cdr",VV[7]);          princ_str("\n   )->c.c_cdr",VV[7]);
634          V108= (V108)+1;          V108= (long)(V108)+1;
635          goto T354;}          goto T354;}
636  goto T350;  goto T350;
637  T350:;  T350:;
# Line 655  T374:; Line 655  T374:;
655  goto T375;  goto T375;
656  T375:;  T375:;
657          princ_char(40,VV[7]);          princ_char(40,VV[7]);
658          V111= (V111)+1;          V111= (long)(V111)+1;
659          goto T374;}          goto T374;}
660  goto T370;  goto T370;
661  T370:;  T370:;
# Line 672  T389:; Line 672  T389:;
672  goto T390;  goto T390;
673  T390:;  T390:;
674          princ_str("\n   )->c.c_cdr",VV[7]);          princ_str("\n   )->c.c_cdr",VV[7]);
675          V113= (V113)+1;          V113= (long)(V113)+1;
676          goto T389;}          goto T389;}
677  goto T385;  goto T385;
678  T385:;  T385:;
679          princ_str(")->c.c_car;",VV[7]);          princ_str(")->c.c_car;",VV[7]);
680          V102= (V102)+1;          V102= (long)(V102)+1;
681          V103= cdr((V103));          V103= cdr((V103));
682          goto T325;}          goto T325;}
683  goto T322;  goto T322;
# Line 754  TTL:; Line 754  TTL:;
754          goto T433;}          goto T433;}
755  goto T434;  goto T434;
756  T434:;  T434:;
757          V124 = make_fixnum(length((V122)));          V124 = make_fixnum((long)length((V122)));
758          (void)((*(LnkLI209))(VV[41],small_fixnum(2),V124));          (void)((*(LnkLI209))(VV[41],small_fixnum(2),V124));
759  goto T433;  goto T433;
760  T433:;  T433:;
761          if(endp(cddr((V122)))){          if(endp(cddr((V122)))){
762          goto T438;}          goto T438;}
763          V125 = make_fixnum(length((V122)));          V125 = make_fixnum((long)length((V122)));
764          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V125));          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V125));
765  goto T438;  goto T438;
766  T438:;  T438:;
# Line 821  TTL:; Line 821  TTL:;
821          goto T462;}          goto T462;}
822  goto T463;  goto T463;
823  T463:;  T463:;
824          V133 = make_fixnum(length((V131)));          V133 = make_fixnum((long)length((V131)));
825          (void)((*(LnkLI209))(VV[44],small_fixnum(2),V133));          (void)((*(LnkLI209))(VV[44],small_fixnum(2),V133));
826  goto T462;  goto T462;
827  T462:;  T462:;
828          if(endp(cddr((V131)))){          if(endp(cddr((V131)))){
829          goto T467;}          goto T467;}
830          V134 = make_fixnum(length((V131)));          V134 = make_fixnum((long)length((V131)));
831          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V134));          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V134));
832  goto T467;  goto T467;
833  T467:;  T467:;
# Line 888  TTL:; Line 888  TTL:;
888          goto T491;}          goto T491;}
889  goto T492;  goto T492;
890  T492:;  T492:;
891          V142 = make_fixnum(length((V140)));          V142 = make_fixnum((long)length((V140)));
892          (void)((*(LnkLI209))(VV[46],small_fixnum(2),V142));          (void)((*(LnkLI209))(VV[46],small_fixnum(2),V142));
893  goto T491;  goto T491;
894  T491:;  T491:;
895          if(endp(cddr((V140)))){          if(endp(cddr((V140)))){
896          goto T496;}          goto T496;}
897          V143 = make_fixnum(length((V140)));          V143 = make_fixnum((long)length((V140)));
898          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V143));          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V143));
899  goto T496;  goto T496;
900  T496:;  T496:;
# Line 920  TTL:; Line 920  TTL:;
920          goto T500;}          goto T500;}
921  goto T501;  goto T501;
922  T501:;  T501:;
923          V149 = make_fixnum(length((V147)));          V149 = make_fixnum((long)length((V147)));
924          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V149));          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V149));
925  goto T500;  goto T500;
926  T500:;  T500:;
# Line 932  goto T506; Line 932  goto T506;
932  T506:;  T506:;
933          if(!((caddr((V147)))==(VV[51]))){          if(!((caddr((V147)))==(VV[51]))){
934          goto T509;}          goto T509;}
935          if(!((length((V147)))==(4))){          if(!(((long)length((V147)))==(4))){
936          goto T509;}          goto T509;}
937          {register object x= cadddr((V147)),V151= VV[52];          {register object x= cadddr((V147)),V151= VV[52];
938          while(!endp(V151))          while(!endp(V151))
# Line 1054  TTL:; Line 1054  TTL:;
1054          goto T569;}          goto T569;}
1055  goto T570;  goto T570;
1056  T570:;  T570:;
1057          V167 = make_fixnum(length((V165)));          V167 = make_fixnum((long)length((V165)));
1058          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V167));          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V167));
1059  goto T569;  goto T569;
1060  T569:;  T569:;
# Line 1066  goto T575; Line 1066  goto T575;
1066  T575:;  T575:;
1067          if(!((caddr((V165)))==(VV[51]))){          if(!((caddr((V165)))==(VV[51]))){
1068          goto T578;}          goto T578;}
1069          if(!((length((V165)))==(4))){          if(!(((long)length((V165)))==(4))){
1070          goto T578;}          goto T578;}
1071          {register object x= cadddr((V165)),V169= VV[59];          {register object x= cadddr((V165)),V169= VV[59];
1072          while(!endp(V169))          while(!endp(V169))
# Line 1685  TTL:; Line 1685  TTL:;
1685          goto T775;}          goto T775;}
1686  goto T776;  goto T776;
1687  T776:;  T776:;
1688          V259 = make_fixnum(length((V257)));          V259 = make_fixnum((long)length((V257)));
1689          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V259));          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V259));
1690  goto T775;  goto T775;
1691  T775:;  T775:;
# Line 1693  T775:; Line 1693  T775:;
1693          goto T780;}          goto T780;}
1694          if(endp(cdddr((V257)))){          if(endp(cdddr((V257)))){
1695          goto T780;}          goto T780;}
1696          V260 = make_fixnum(length((V257)));          V260 = make_fixnum((long)length((V257)));
1697          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V260));          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V260));
1698  goto T780;  goto T780;
1699  T780:;  T780:;
# Line 2131  TTL:; Line 2131  TTL:;
2131          V322= list(2,(V319),(V317));          V322= list(2,(V319),(V317));
2132          V323= make_cons(/* INLINE-ARGS */V322,Cnil);          V323= make_cons(/* INLINE-ARGS */V322,Cnil);
2133          V324= list(2,VV[135],(V319));          V324= list(2,VV[135],(V319));
2134          if(!((length((V320)))<(3))){          if(!(((long)length((V320)))<(3))){
2135          goto T958;}          goto T958;}
2136          {object V327;          {object V327;
2137          object V328= (V320);          object V328= (V320);
# Line 2268  T981:; Line 2268  T981:;
2268          goto T978;          goto T978;
2269  goto T983;  goto T983;
2270  T983:;  T983:;
2271          if((length(cdar((V355))))==(2)){          if(((long)length(cdar((V355))))==(2)){
2272          goto T985;}          goto T985;}
2273          V356= Cnil;          V356= Cnil;
2274          goto T978;          goto T978;
# Line 2303  object V363;object V364; Line 2303  object V363;object V364;
2303  goto TTL;  goto TTL;
2304  TTL:;  TTL:;
2305          {register object V365;          {register object V365;
2306          if((length((V364)))==(2)){          if(((long)length((V364)))==(2)){
2307          goto T994;}          goto T994;}
2308          V365= Cnil;          V365= Cnil;
2309          goto T993;          goto T993;
# Line 2570  TTL:; Line 2570  TTL:;
2570          goto T1047;}          goto T1047;}
2571  goto T1048;  goto T1048;
2572  T1048:;  T1048:;
2573          V400 = make_fixnum(length((V398)));          V400 = make_fixnum((long)length((V398)));
2574          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V400));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V400));
2575  goto T1047;  goto T1047;
2576  T1047:;  T1047:;
2577          if(endp(cdddr((V398)))){          if(endp(cdddr((V398)))){
2578          goto T1054;}          goto T1054;}
2579          V401 = make_fixnum(length((V398)));          V401 = make_fixnum((long)length((V398)));
2580          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V401));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V401));
2581  goto T1054;  goto T1054;
2582  T1054:;  T1054:;
# Line 3130  object V547;register object V548; Line 3130  object V547;register object V548;
3130  goto TTL;  goto TTL;
3131  TTL:;  TTL:;
3132          {register object V549;          {register object V549;
3133          V549= Cnil;switch(length((V548))){          V549= Cnil;switch((long)length((V548))){
3134          case 2:          case 2:
3135  goto T1226;  goto T1226;
3136  T1226:;  T1226:;
# Line 3279  TTL:; Line 3279  TTL:;
3279          goto T1263;}          goto T1263;}
3280  goto T1264;  goto T1264;
3281  T1264:;  T1264:;
3282          V575 = make_fixnum(length((V573)));          V575 = make_fixnum((long)length((V573)));
3283          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V575));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V575));
3284  goto T1263;  goto T1263;
3285  T1263:;  T1263:;
3286          if(endp(cddr((V573)))){          if(endp(cddr((V573)))){
3287          goto T1268;}          goto T1268;}
3288          V576 = make_fixnum(length((V573)));          V576 = make_fixnum((long)length((V573)));
3289          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V576));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V576));
3290  goto T1268;  goto T1268;
3291  T1268:;  T1268:;
# Line 3348  T1295:; Line 3348  T1295:;
3348  goto T1296;  goto T1296;
3349  T1296:;  T1296:;
3350          princ_str("cdr(",VV[7]);          princ_str("cdr(",VV[7]);
3351          V588= (V588)+1;          V588= (long)(V588)+1;
3352          goto T1295;}          goto T1295;}
3353  goto T1291;  goto T1291;
3354  T1291:;  T1291:;
# Line 3365  T1311:; Line 3365  T1311:;
3365  goto T1312;  goto T1312;
3366  T1312:;  T1312:;
3367          princ_char(41,VV[7]);          princ_char(41,VV[7]);
3368          V590= (V590)+1;          V590= (long)(V590)+1;
3369          goto T1311;}          goto T1311;}
3370  goto T1307;  goto T1307;
3371  T1307:;  T1307:;
# Line 3395  T1339:; Line 3395  T1339:;
3395  goto T1340;  goto T1340;
3396  T1340:;  T1340:;
3397          princ_str("\n   ->c.c_cdr",VV[7]);          princ_str("\n   ->c.c_cdr",VV[7]);
3398          V592= (V592)+1;          V592= (long)(V592)+1;
3399          goto T1339;}          goto T1339;}
3400  goto T1335;  goto T1335;
3401  T1335:;  T1335:;
# Line 3468  T1356:; Line 3468  T1356:;
3468          return;}          return;}
3469          }          }
3470  }  }
3471  static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],(void **)&LnkLI264,ap);} /* FIND */  static object  LnkTLI264(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[264],(void **)&LnkLI264,ap);va_end(ap);return V1;} /* FIND */
3472  static object  LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[259],(void **)&LnkLI259,1,ap);} /* CMP-MACROEXPAND */  static object  LnkTLI259(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[259],(void **)&LnkLI259,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
3473  static void LnkT258(){ call_or_link(VV[258],(void **)&Lnk258);} /* CMP-EVAL */  static void LnkT258(){ call_or_link(VV[258],(void **)&Lnk258);} /* CMP-EVAL */
3474  static object  LnkTLI257(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[257],(void **)&LnkLI257,1,ap);} /* CONSTANT-FOLD-P */  static object  LnkTLI257(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[257],(void **)&LnkLI257,1,ap);va_end(ap);return V1;} /* CONSTANT-FOLD-P */
3475  static object  LnkTLI250(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[250],(void **)&LnkLI250,2,ap);} /* CFAST-WRITE */  static object  LnkTLI250(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[250],(void **)&LnkLI250,2,ap);va_end(ap);return V1;} /* CFAST-WRITE */
3476  static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[249],(void **)&LnkLI249,2,ap);} /* FAST-READ */  static object  LnkTLI249(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[249],(void **)&LnkLI249,2,ap);va_end(ap);return V1;} /* FAST-READ */
3477  static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[248],(void **)&LnkLI248,1,ap);} /* CONS-TO-LISTA */  static object  LnkTLI248(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[248],(void **)&LnkLI248,1,ap);va_end(ap);return V1;} /* CONS-TO-LISTA */
3478  static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],(void **)&LnkLI247,1,ap);} /* NAME-SD1 */  static object  LnkTLI247(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[247],(void **)&LnkLI247,1,ap);va_end(ap);return V1;} /* NAME-SD1 */
3479  static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],(void **)&LnkLI246,1,ap);} /* GET-INCLUDED */  static object  LnkTLI246(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[246],(void **)&LnkLI246,1,ap);va_end(ap);return V1;} /* GET-INCLUDED */
3480  static object  LnkTLI245(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[245],(void **)&LnkLI245,2,ap);} /* STRUCT-TYPE-OPT */  static object  LnkTLI245(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[245],(void **)&LnkLI245,2,ap);va_end(ap);return V1;} /* STRUCT-TYPE-OPT */
3481  static object  LnkTLI244(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[244],(void **)&LnkLI244,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI244(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[244],(void **)&LnkLI244,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3482  static object  LnkTLI243(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[243],(void **)&LnkLI243,ap);} /* POSITION */  static object  LnkTLI243(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[243],(void **)&LnkLI243,ap);va_end(ap);return V1;} /* POSITION */
3483  static object  LnkTLI242(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[242],(void **)&LnkLI242,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI242(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[242],(void **)&LnkLI242,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3484  static object  LnkTLI241(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[241],(void **)&LnkLI241,1,ap);} /* TYPE-FILTER */  static object  LnkTLI241(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[241],(void **)&LnkLI241,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
3485  static object  LnkTLI240(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[240],(void **)&LnkLI240,1,ap);} /* REPLACE-CONSTANT */  static object  LnkTLI240(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[240],(void **)&LnkLI240,1,ap);va_end(ap);return V1;} /* REPLACE-CONSTANT */
3486  static object  LnkTLI239(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[239],(void **)&LnkLI239,1,ap);} /* RESULT-TYPE */  static object  LnkTLI239(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[239],(void **)&LnkLI239,1,ap);va_end(ap);return V1;} /* RESULT-TYPE */
3487  static void LnkT238(){ call_or_link(VV[238],(void **)&Lnk238);} /* FIXNUMP */  static void LnkT238(){ call_or_link(VV[238],(void **)&Lnk238);} /* FIXNUMP */
3488  static void LnkT237(){ call_or_link(VV[237],(void **)&Lnk237);} /* SUBTYPEP */  static void LnkT237(){ call_or_link(VV[237],(void **)&Lnk237);} /* SUBTYPEP */
3489  static void LnkT236(){ call_or_link(VV[236],(void **)&Lnk236);} /* WT-INLINE-LOC */  static void LnkT236(){ call_or_link(VV[236],(void **)&Lnk236);} /* WT-INLINE-LOC */
3490  static object  LnkTLI235(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[235],(void **)&LnkLI235,1,ap);} /* C1EXPR */  static object  LnkTLI235(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[235],(void **)&LnkLI235,1,ap);va_end(ap);return V1;} /* C1EXPR */
3491  static object  LnkTLI234(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[234],(void **)&LnkLI234,1,ap);} /* INLINE-BOOLE3-STRING */  static object  LnkTLI234(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[234],(void **)&LnkLI234,1,ap);va_end(ap);return V1;} /* INLINE-BOOLE3-STRING */
3492  static object  LnkTLI233(){return call_proc0(VV[233],(void **)&LnkLI233);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI233(){return call_proc0(VV[233],(void **)&LnkLI233);} /* CLOSE-INLINE-BLOCKS */
3493  static object  LnkTLI232(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[232],(void **)&LnkLI232,ap);} /* INLINE-ARGS */  static object  LnkTLI232(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[232],(void **)&LnkLI232,ap);va_end(ap);return V1;} /* INLINE-ARGS */
3494  static object  LnkTLI231(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[231],(void **)&LnkLI231,2,ap);} /* ADD-INFO */  static object  LnkTLI231(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[231],(void **)&LnkLI231,2,ap);va_end(ap);return V1;} /* ADD-INFO */
3495  static void LnkT230(){ call_or_link(VV[230],(void **)&Lnk230);} /* C2EXPR */  static void LnkT230(){ call_or_link(VV[230],(void **)&Lnk230);} /* C2EXPR */
3496  static object  LnkTLI229(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[229],(void **)&LnkLI229,1,ap);} /* C2BIND */  static object  LnkTLI229(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[229],(void **)&LnkLI229,1,ap);va_end(ap);return V1;} /* C2BIND */
3497  static object  LnkTLI228(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[228],(void **)&LnkLI228,1,ap);} /* WT-VS */  static object  LnkTLI228(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[228],(void **)&LnkLI228,1,ap);va_end(ap);return V1;} /* WT-VS */
3498  static object  LnkTLI227(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[227],(void **)&LnkLI227,2,ap);} /* WT-VAR */  static object  LnkTLI227(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[227],(void **)&LnkLI227,2,ap);va_end(ap);return V1;} /* WT-VAR */
3499  static object  LnkTLI226(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[226],(void **)&LnkLI226,ap);} /* MAKE-VAR */  static object  LnkTLI226(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[226],(void **)&LnkLI226,ap);va_end(ap);return V1;} /* MAKE-VAR */
3500  static object  LnkTLI225(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[225],(void **)&LnkLI225,ap);} /* CMPERR */  static object  LnkTLI225(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[225],(void **)&LnkLI225,ap);va_end(ap);return V1;} /* CMPERR */
3501  static object  LnkTLI224(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[224],(void **)&LnkLI224,ap);} /* C2FUNCALL */  static object  LnkTLI224(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[224],(void **)&LnkLI224,ap);va_end(ap);return V1;} /* C2FUNCALL */
3502  static object  LnkTLI223(){return call_proc0(VV[223],(void **)&LnkLI223);} /* VS-PUSH */  static object  LnkTLI223(){return call_proc0(VV[223],(void **)&LnkLI223);} /* VS-PUSH */
3503  static object  LnkTLI222(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[222],(void **)&LnkLI222,1,ap);} /* C2EXPR* */  static object  LnkTLI222(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[222],(void **)&LnkLI222,1,ap);va_end(ap);return V1;} /* C2EXPR* */
3504  static object  LnkTLI221(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[221],(void **)&LnkLI221,1,ap);} /* SAVE-FUNOB */  static object  LnkTLI221(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[221],(void **)&LnkLI221,1,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
3505  static object  LnkTLI220(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[220],(void **)&LnkLI220,5,ap);} /* C1APPLY-OPTIMIZE */  static object  LnkTLI220(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[220],(void **)&LnkLI220,5,ap);va_end(ap);return V1;} /* C1APPLY-OPTIMIZE */
3506  static object  LnkTLI219(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[219],(void **)&LnkLI219,2,ap);} /* C1ARGS */  static object  LnkTLI219(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[219],(void **)&LnkLI219,2,ap);va_end(ap);return V1;} /* C1ARGS */
3507  static void LnkT218(){ call_or_link(VV[218],(void **)&Lnk218);} /* COPY-INFO */  static void LnkT218(){ call_or_link(VV[218],(void **)&Lnk218);} /* COPY-INFO */
3508  static object  LnkTLI217(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[217],(void **)&LnkLI217,1,ap);} /* C1FUNOB */  static object  LnkTLI217(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[217],(void **)&LnkLI217,1,ap);va_end(ap);return V1;} /* C1FUNOB */
3509  static object  LnkTLI216(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[216],(void **)&LnkLI216,1,ap);} /* ADD-OBJECT */  static object  LnkTLI216(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[216],(void **)&LnkLI216,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */
3510  static object  LnkTLI215(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[215],(void **)&LnkLI215,4,ap);} /* C2CALL-GLOBAL */  static object  LnkTLI215(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[215],(void **)&LnkLI215,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
3511  static object  LnkTLI214(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[214],(void **)&LnkLI214,ap);} /* UNWIND-EXIT */  static object  LnkTLI214(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[214],(void **)&LnkLI214,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
3512  static object  LnkTLI213(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[213],(void **)&LnkLI213,1,ap);} /* WT1 */  static object  LnkTLI213(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[213],(void **)&LnkLI213,1,ap);va_end(ap);return V1;} /* WT1 */
3513  static object  LnkTLI212(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[212],(void **)&LnkLI212,2,ap);} /* C1EXPR* */  static object  LnkTLI212(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[212],(void **)&LnkLI212,2,ap);va_end(ap);return V1;} /* C1EXPR* */
3514  static object  LnkTLI211(){return call_proc0(VV[211],(void **)&LnkLI211);} /* C1NIL */  static object  LnkTLI211(){return call_proc0(VV[211],(void **)&LnkLI211);} /* C1NIL */
3515  static object  LnkTLI210(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[210],(void **)&LnkLI210,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI210(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[210],(void **)&LnkLI210,3,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
3516  static object  LnkTLI209(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[209],(void **)&LnkLI209,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI209(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[209],(void **)&LnkLI209,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
3517  static object  LnkTLI208(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[208],(void **)&LnkLI208,ap);} /* MAKE-INFO */  static object  LnkTLI208(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[208],(void **)&LnkLI208,ap);va_end(ap);return V1;} /* MAKE-INFO */
3518    
3519  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3520  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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