/[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.6 by camm, Mon Aug 5 20:36:08 2002 UTC revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 14  TTL:; Line 14  TTL:;
14          register object V4;          register object V4;
15          V3= Cnil;          V3= Cnil;
16          V4= (VFUN_NARGS=0,(*(LnkLI208))());          V4= (VFUN_NARGS=0,(*(LnkLI208))());
17          if(!(endp((V2)))){          if(!(endp_prop((V2)))){
18          goto T3;}          goto T3;}
19          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));
20  goto T3;  goto T3;
21  T3:;  T3:;
22          if(endp(cdr((V2)))){          if(endp_prop(cdr((V2)))){
23          goto T6;}          goto T6;}
24          if(endp(cddr((V2)))){          if(endp_prop(cddr((V2)))){
25          goto T6;}          goto T6;}
26          V5 = make_fixnum((long)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:;
30          if(!(endp(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
31          goto T14;}          goto T14;}
32          V3= (*(LnkLI211))();          V3= (*(LnkLI211))();
33          goto T12;          goto T12;
# Line 47  T19:; Line 47  T19:;
47          goto T17;}          goto T17;}
48  goto T18;  goto T18;
49  T18:;  T18:;
50          if(endp(cdr((V2)))){          if(endp_prop(cdr((V2)))){
51          goto T16;}          goto T16;}
52          if(!((car((V3)))==(VV[2]))){          if(!((car((V3)))==(VV[2]))){
53          goto T17;}          goto T17;}
# Line 63  T28:; Line 63  T28:;
63  goto T16;  goto T16;
64  T16:;  T16:;
65          V9= car((V2));          V9= car((V2));
66          if(!(endp(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
67          goto T31;}          goto T31;}
68          V10= Cnil;          V10= Cnil;
69          goto T29;          goto T29;
# Line 248  TTL:; Line 248  TTL:;
248          object V35;          object V35;
249          V34= Cnil;          V34= Cnil;
250          V35= (VFUN_NARGS=0,(*(LnkLI208))());          V35= (VFUN_NARGS=0,(*(LnkLI208))());
251          if(endp((V33))){          if(endp_prop((V33))){
252          goto T126;}          goto T126;}
253          if(endp(cdr((V33)))){          if(endp_prop(cdr((V33)))){
254          goto T126;}          goto T126;}
255          V36 = make_fixnum((long)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:;
259          if(!(endp((V33)))){          if(!(endp_prop((V33)))){
260          goto T134;}          goto T134;}
261          V34= (*(LnkLI211))();          V34= (*(LnkLI211))();
262          goto T132;          goto T132;
# Line 265  T134:; Line 265  T134:;
265          V34= (*(LnkLI212))(car((V33)),(V35));          V34= (*(LnkLI212))(car((V33)),(V35));
266  goto T132;  goto T132;
267  T132:;  T132:;
268          if(endp((V33))){          if(endp_prop((V33))){
269          goto T136;}          goto T136;}
270          if(!((car((V34)))==(VV[2]))){          if(!((car((V34)))==(VV[2]))){
271          goto T137;}          goto T137;}
# Line 280  goto T142; Line 280  goto T142;
280  T142:;  T142:;
281  goto T136;  goto T136;
282  T136:;  T136:;
283          if(!(endp((V33)))){          if(!(endp_prop((V33)))){
284          goto T145;}          goto T145;}
285          V39= Cnil;          V39= Cnil;
286          goto T143;          goto T143;
# Line 308  goto TTL; Line 308  goto TTL;
308  TTL:;  TTL:;
309          {register object V44;          {register object V44;
310          V44= Cnil;          V44= Cnil;
311          if(endp((V43))){          if(endp_prop((V43))){
312          goto T149;}          goto T149;}
313          if(!(endp(cdr((V43))))){          if(!(endp_prop(cdr((V43))))){
314          goto T148;}          goto T148;}
315  goto T149;  goto T149;
316  T149:;  T149:;
# Line 373  TTL:; Line 373  TTL:;
373          V59= (V55);          V59= (V55);
374  goto T179;  goto T179;
375  T179:;  T179:;
376          if(!(endp(cdr((V59))))){          if(!(endp_prop(cdr((V59))))){
377          goto T180;}          goto T180;}
378          princ_str("\n   {object ",VV[7]);          princ_str("\n   {object ",VV[7]);
379          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
# Line 448  TTL:; Line 448  TTL:;
448          V74= Cnil;          V74= Cnil;
449  goto T236;  goto T236;
450  T236:;  T236:;
451          if(endp(cdr((V72)))){          if(endp_prop(cdr((V72)))){
452          goto T238;}          goto T238;}
453          if(!(endp((V69)))){          if(!(endp_prop((V69)))){
454          goto T237;}          goto T237;}
455  goto T238;  goto T238;
456  T238:;  T238:;
# Line 570  T287:; Line 570  T287:;
570          V99= car((V98));          V99= car((V98));
571  goto T308;  goto T308;
572  T308:;  T308:;
573          if(!(endp((V98)))){          if(!(endp_prop((V98)))){
574          goto T309;}          goto T309;}
575          goto T304;          goto T304;
576  goto T309;  goto T309;
# Line 594  T319:; Line 594  T319:;
594          V103= (V93);          V103= (V93);
595  goto T325;  goto T325;
596  T325:;  T325:;
597          if(!(endp((V103)))){          if(!(endp_prop((V103)))){
598          goto T326;}          goto T326;}
599          if(((V94))==Cnil){          if(((V94))==Cnil){
600          goto T322;}          goto T322;}
# Line 688  T322:; Line 688  T322:;
688          V115= car((V114));          V115= car((V114));
689  goto T409;  goto T409;
690  T409:;  T409:;
691          if(!(endp((V114)))){          if(!(endp_prop((V114)))){
692          goto T410;}          goto T410;}
693          goto T405;          goto T405;
694  goto T410;  goto T410;
# Line 726  TTL:; Line 726  TTL:;
726          object V119;          object V119;
727          V118= Cnil;          V118= Cnil;
728          V119= (VFUN_NARGS=0,(*(LnkLI208))());          V119= (VFUN_NARGS=0,(*(LnkLI208))());
729          if(!(endp((V117)))){          if(!(endp_prop((V117)))){
730          goto T426;}          goto T426;}
731          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));
732  goto T426;  goto T426;
# Line 748  goto TTL; Line 748  goto TTL;
748  TTL:;  TTL:;
749          {object V123;          {object V123;
750          V123= (VFUN_NARGS=0,(*(LnkLI208))());          V123= (VFUN_NARGS=0,(*(LnkLI208))());
751          if(endp((V122))){          if(endp_prop((V122))){
752          goto T434;}          goto T434;}
753          if(!(endp(cdr((V122))))){          if(!(endp_prop(cdr((V122))))){
754          goto T433;}          goto T433;}
755  goto T434;  goto T434;
756  T434:;  T434:;
# Line 758  T434:; Line 758  T434:;
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_prop(cddr((V122)))){
762          goto T438;}          goto T438;}
763          V125 = make_fixnum((long)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));
# Line 815  goto TTL; Line 815  goto TTL;
815  TTL:;  TTL:;
816          {object V132;          {object V132;
817          V132= (VFUN_NARGS=0,(*(LnkLI208))());          V132= (VFUN_NARGS=0,(*(LnkLI208))());
818          if(endp((V131))){          if(endp_prop((V131))){
819          goto T463;}          goto T463;}
820          if(!(endp(cdr((V131))))){          if(!(endp_prop(cdr((V131))))){
821          goto T462;}          goto T462;}
822  goto T463;  goto T463;
823  T463:;  T463:;
# Line 825  T463:; Line 825  T463:;
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_prop(cddr((V131)))){
829          goto T467;}          goto T467;}
830          V134 = make_fixnum((long)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));
# Line 882  goto TTL; Line 882  goto TTL;
882  TTL:;  TTL:;
883          {object V141;          {object V141;
884          V141= (VFUN_NARGS=0,(*(LnkLI208))());          V141= (VFUN_NARGS=0,(*(LnkLI208))());
885          if(endp((V140))){          if(endp_prop((V140))){
886          goto T492;}          goto T492;}
887          if(!(endp(cdr((V140))))){          if(!(endp_prop(cdr((V140))))){
888          goto T491;}          goto T491;}
889  goto T492;  goto T492;
890  T492:;  T492:;
# Line 892  T492:; Line 892  T492:;
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_prop(cddr((V140)))){
896          goto T496;}          goto T496;}
897          V143 = make_fixnum((long)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));
# Line 914  goto TTL; Line 914  goto TTL;
914  TTL:;  TTL:;
915          {register object V148;          {register object V148;
916          V148= (VFUN_NARGS=0,(*(LnkLI208))());          V148= (VFUN_NARGS=0,(*(LnkLI208))());
917          if(endp((V147))){          if(endp_prop((V147))){
918          goto T501;}          goto T501;}
919          if(!(endp(cdr((V147))))){          if(!(endp_prop(cdr((V147))))){
920          goto T500;}          goto T500;}
921  goto T501;  goto T501;
922  T501:;  T501:;
# Line 924  T501:; Line 924  T501:;
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:;
927          if(!(endp(cddr((V147))))){          if(!(endp_prop(cddr((V147))))){
928          goto T506;}          goto T506;}
929          {object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI219))((V147),(V148)));          {object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI219))((V147),(V148)));
930          VMR14(V150)}          VMR14(V150)}
# Line 1048  goto TTL; Line 1048  goto TTL;
1048  TTL:;  TTL:;
1049          {register object V166;          {register object V166;
1050          V166= (VFUN_NARGS=0,(*(LnkLI208))());          V166= (VFUN_NARGS=0,(*(LnkLI208))());
1051          if(endp((V165))){          if(endp_prop((V165))){
1052          goto T570;}          goto T570;}
1053          if(!(endp(cdr((V165))))){          if(!(endp_prop(cdr((V165))))){
1054          goto T569;}          goto T569;}
1055  goto T570;  goto T570;
1056  T570:;  T570:;
# Line 1058  T570:; Line 1058  T570:;
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:;
1061          if(!(endp(cddr((V165))))){          if(!(endp_prop(cddr((V165))))){
1062          goto T575;}          goto T575;}
1063          {object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI219))((V165),(V166)));          {object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI219))((V165),(V166)));
1064          VMR16(V168)}          VMR16(V168)}
# Line 1214  object V186; Line 1214  object V186;
1214  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1215  goto TTL;  goto TTL;
1216  TTL:;  TTL:;
1217          if(((endp(cddr((V186)))?Ct:Cnil))==Cnil){          if(((endp_prop(cddr((V186)))?Ct:Cnil))==Cnil){
1218          goto T651;}          goto T651;}
1219          {object V187 = Cnil;          {object V187 = Cnil;
1220          VMR19(V187)}          VMR19(V187)}
1221  goto T651;  goto T651;
1222  T651:;  T651:;
1223          if(endp(cdddr((V186)))){          if(endp_prop(cdddr((V186)))){
1224          goto T653;}          goto T653;}
1225          {object V188 = Cnil;          {object V188 = Cnil;
1226          VMR19(V188)}          VMR19(V188)}
# Line 1679  goto TTL; Line 1679  goto TTL;
1679  TTL:;  TTL:;
1680          {object V258;          {object V258;
1681          V258= (VFUN_NARGS=0,(*(LnkLI208))());          V258= (VFUN_NARGS=0,(*(LnkLI208))());
1682          if(endp((V257))){          if(endp_prop((V257))){
1683          goto T776;}          goto T776;}
1684          if(!(endp(cdr((V257))))){          if(!(endp_prop(cdr((V257))))){
1685          goto T775;}          goto T775;}
1686  goto T776;  goto T776;
1687  T776:;  T776:;
# Line 1689  T776:; Line 1689  T776:;
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:;
1692          if(endp(cddr((V257)))){          if(endp_prop(cddr((V257)))){
1693          goto T780;}          goto T780;}
1694          if(endp(cdddr((V257)))){          if(endp_prop(cdddr((V257)))){
1695          goto T780;}          goto T780;}
1696          V260 = make_fixnum((long)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));
# Line 2143  goto T961; Line 2143  goto T961;
2143  T961:;  T961:;
2144          V330= list(2,VV[137],(V319));          V330= list(2,VV[137],(V319));
2145          (V327->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V330,(*(LnkLI247))((V328->c.c_car)));          (V327->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V330,(*(LnkLI247))((V328->c.c_car)));
2146          if(endp(V328=MMcdr(V328))){          V328=MMcdr(V328);
2147            if(endp(V328)){
2148          V326= base[0];          V326= base[0];
2149          goto T960;}          goto T960;}
2150          V327=MMcdr(V327)=MMcons(Cnil,Cnil);          V327=MMcdr(V327)=MMcons(Cnil,Cnil);
# Line 2184  TTL:; Line 2185  TTL:;
2185  goto T965;  goto T965;
2186  T965:;  T965:;
2187          (V338->c.c_cdr)= (*(LnkLI246))((V339->c.c_car));          (V338->c.c_cdr)= (*(LnkLI246))((V339->c.c_car));
2188          while(!endp(MMcdr(V338)))V338=MMcdr(V338);          {object cdr_V338=MMcdr(V338);while(!endp(cdr_V338)) {cdr_V338=MMcdr(cdr_V338);V338=MMcdr(V338);}}
2189          if(endp(V339=MMcdr(V339))){          V339=MMcdr(V339);
2190            if(endp(V339)){
2191          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
2192          V337= base[0];          V337= base[0];
2193          goto T964;}          goto T964;}
# Line 2350  register object V372; Line 2352  register object V372;
2352  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2353  goto TTL;  goto TTL;
2354  TTL:;  TTL:;
2355          if(((endp((V372))?Ct:Cnil))==Cnil){          if(((endp_prop((V372))?Ct:Cnil))==Cnil){
2356          goto T1006;}          goto T1006;}
2357          {object V373 = Cnil;          {object V373 = Cnil;
2358          VMR39(V373)}          VMR39(V373)}
2359  goto T1006;  goto T1006;
2360  T1006:;  T1006:;
2361          if(((endp(cdr((V372)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V372)))?Ct:Cnil))==Cnil){
2362          goto T1008;}          goto T1008;}
2363          {object V374 = Cnil;          {object V374 = Cnil;
2364          VMR39(V374)}          VMR39(V374)}
2365  goto T1008;  goto T1008;
2366  T1008:;  T1008:;
2367          if(endp(cddr((V372)))){          if(endp_prop(cddr((V372)))){
2368          goto T1010;}          goto T1010;}
2369          {object V375 = Cnil;          {object V375 = Cnil;
2370          VMR39(V375)}          VMR39(V375)}
# Line 2455  register object V385; Line 2457  register object V385;
2457  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2458  goto TTL;  goto TTL;
2459  TTL:;  TTL:;
2460          if(((endp((V385))?Ct:Cnil))==Cnil){          if(((endp_prop((V385))?Ct:Cnil))==Cnil){
2461          goto T1026;}          goto T1026;}
2462          {object V386 = Cnil;          {object V386 = Cnil;
2463          VMR41(V386)}          VMR41(V386)}
2464  goto T1026;  goto T1026;
2465  T1026:;  T1026:;
2466          if(((endp(cdr((V385)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V385)))?Ct:Cnil))==Cnil){
2467          goto T1028;}          goto T1028;}
2468          {object V387 = Cnil;          {object V387 = Cnil;
2469          VMR41(V387)}          VMR41(V387)}
2470  goto T1028;  goto T1028;
2471  T1028:;  T1028:;
2472          if(endp(cddr((V385)))){          if(endp_prop(cddr((V385)))){
2473          goto T1030;}          goto T1030;}
2474          {object V388 = Cnil;          {object V388 = Cnil;
2475          VMR41(V388)}          VMR41(V388)}
# Line 2562  goto TTL; Line 2564  goto TTL;
2564  TTL:;  TTL:;
2565          {object V399;          {object V399;
2566          V399= (VFUN_NARGS=0,(*(LnkLI208))());          V399= (VFUN_NARGS=0,(*(LnkLI208))());
2567          if(endp((V398))){          if(endp_prop((V398))){
2568          goto T1048;}          goto T1048;}
2569          if(endp(cdr((V398)))){          if(endp_prop(cdr((V398)))){
2570          goto T1048;}          goto T1048;}
2571          if(!(endp(cddr((V398))))){          if(!(endp_prop(cddr((V398))))){
2572          goto T1047;}          goto T1047;}
2573  goto T1048;  goto T1048;
2574  T1048:;  T1048:;
# Line 2574  T1048:; Line 2576  T1048:;
2576          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V400));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V400));
2577  goto T1047;  goto T1047;
2578  T1047:;  T1047:;
2579          if(endp(cdddr((V398)))){          if(endp_prop(cdddr((V398)))){
2580          goto T1054;}          goto T1054;}
2581          V401 = make_fixnum((long)length((V398)));          V401 = make_fixnum((long)length((V398)));
2582          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V401));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V401));
# Line 2997  T1163:; Line 2999  T1163:;
2999          V516= car((V515));          V516= car((V515));
3000  goto T1177;  goto T1177;
3001  T1177:;  T1177:;
3002          if(!(endp((V515)))){          if(!(endp_prop((V515)))){
3003          goto T1178;}          goto T1178;}
3004          goto T1173;          goto T1173;
3005  goto T1178;  goto T1178;
# Line 3045  TTL:; Line 3047  TTL:;
3047          V526= car((V525));          V526= car((V525));
3048  goto T1199;  goto T1199;
3049  T1199:;  T1199:;
3050          if(!(endp((V525)))){          if(!(endp_prop((V525)))){
3051          goto T1200;}          goto T1200;}
3052          goto T1195;          goto T1195;
3053  goto T1200;  goto T1200;
# Line 3273  goto TTL; Line 3275  goto TTL;
3275  TTL:;  TTL:;
3276          {register object V574;          {register object V574;
3277          V574= (VFUN_NARGS=0,(*(LnkLI208))());          V574= (VFUN_NARGS=0,(*(LnkLI208))());
3278          if(endp((V573))){          if(endp_prop((V573))){
3279          goto T1264;}          goto T1264;}
3280          if(!(endp(cdr((V573))))){          if(!(endp_prop(cdr((V573))))){
3281          goto T1263;}          goto T1263;}
3282  goto T1264;  goto T1264;
3283  T1264:;  T1264:;
# Line 3283  T1264:; Line 3285  T1264:;
3285          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V575));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V575));
3286  goto T1263;  goto T1263;
3287  T1263:;  T1263:;
3288          if(endp(cddr((V573)))){          if(endp_prop(cddr((V573)))){
3289          goto T1268;}          goto T1268;}
3290          V576 = make_fixnum((long)length((V573)));          V576 = make_fixnum((long)length((V573)));
3291          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V576));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V576));

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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