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

Diff of /gcl/cmpnew/cmpmulti.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 14  TTL:; Line 14  TTL:;
14          object V4;          object V4;
15          V3= Cnil;          V3= Cnil;
16          V4= Cnil;          V4= Cnil;
17          if(!(endp((V2)))){          if(!(endp_prop((V2)))){
18          goto T3;}          goto T3;}
19          (void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI38))(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 T7;}          goto T7;}
24          {object V5 = (*(LnkLI39))((V2));          {object V5 = (*(LnkLI39))((V2));
25          VMR1(V5)}          VMR1(V5)}
# Line 51  TTL:; Line 51  TTL:;
51          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],symbol_value(VV[1]));
52          V11= Cnil;          V11= Cnil;
53          V12= Cnil;          V12= Cnil;
54          if(!(endp(cdr((V10))))){          if(!(endp_prop(cdr((V10))))){
55          goto T19;}          goto T19;}
56          V11= (*(LnkLI43))((V9));          V11= (*(LnkLI43))((V9));
57          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
# Line 77  T19:; Line 77  T19:;
77          V16= car((V15));          V16= car((V15));
78  goto T41;  goto T41;
79  T41:;  T41:;
80          if(!(endp((V15)))){          if(!(endp_prop((V15)))){
81          goto T42;}          goto T42;}
82          goto T37;          goto T37;
83  goto T42;  goto T42;
# Line 122  TTL:; Line 122  TTL:;
122          object V22;          object V22;
123          V21= (VFUN_NARGS=0,(*(LnkLI48))());          V21= (VFUN_NARGS=0,(*(LnkLI48))());
124          V22= Cnil;          V22= Cnil;
125          if(!(endp((V20)))){          if(!(endp_prop((V20)))){
126          goto T72;}          goto T72;}
127          (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));
128  goto T72;  goto T72;
# Line 170  TTL:; Line 170  TTL:;
170          V32= car((V31));          V32= car((V31));
171  goto T99;  goto T99;
172  T99:;  T99:;
173          if(!(endp((V31)))){          if(!(endp_prop((V31)))){
174          goto T100;}          goto T100;}
175          goto T95;          goto T95;
176  goto T100;  goto T100;
# Line 294  T153:; Line 294  T153:;
294          V46= car((V45));          V46= car((V45));
295  goto T166;  goto T166;
296  T166:;  T166:;
297          if(!(endp((V45)))){          if(!(endp_prop((V45)))){
298          goto T167;}          goto T167;}
299          goto T162;          goto T162;
300  goto T167;  goto T167;
# Line 337  TTL:; Line 337  TTL:;
337          register object V55;          register object V55;
338          V54= (VFUN_NARGS=0,(*(LnkLI48))());          V54= (VFUN_NARGS=0,(*(LnkLI48))());
339          V55= Cnil;          V55= Cnil;
340          if(endp((V53))){          if(endp_prop((V53))){
341          goto T188;}          goto T188;}
342          if(!(endp(cdr((V53))))){          if(!(endp_prop(cdr((V53))))){
343          goto T187;}          goto T187;}
344  goto T188;  goto T188;
345  T188:;  T188:;
346          (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));          (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));
347  goto T187;  goto T187;
348  T187:;  T187:;
349          if(endp(cddr((V53)))){          if(endp_prop(cddr((V53)))){
350          goto T192;}          goto T192;}
351          V56 = make_fixnum((long)length((V53)));          V56 = make_fixnum((long)length((V53)));
352          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));
# Line 358  T192:; Line 358  T192:;
358          V58= car((V57));          V58= car((V57));
359  goto T199;  goto T199;
360  T199:;  T199:;
361          if(!(endp((V57)))){          if(!(endp_prop((V57)))){
362          goto T200;}          goto T200;}
363          goto T195;          goto T195;
364  goto T200;  goto T200;
# Line 472  T243:; Line 472  T243:;
472          V80= (V77);          V80= (V77);
473  goto T246;  goto T246;
474  T246:;  T246:;
475          if(!(endp((V80)))){          if(!(endp_prop((V80)))){
476          goto T247;}          goto T247;}
477          goto T244;          goto T244;
478  goto T247;  goto T247;
# Line 481  T247:; Line 481  T247:;
481          V81= car((V80));          V81= car((V80));
482          princ_str("\n   if(vs_base<vs_top){",VV[6]);          princ_str("\n   if(vs_base<vs_top){",VV[6]);
483          (void)((*(LnkLI60))(VV[11],car((V81)),cadr((V81))));          (void)((*(LnkLI60))(VV[11],car((V81)),cadr((V81))));
484          if(endp(cdr((V80)))){          if(endp_prop(cdr((V80)))){
485          goto T256;}          goto T256;}
486          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
487  goto T256;  goto T256;
# Line 540  TTL:; Line 540  TTL:;
540          V94= Cnil;          V94= Cnil;
541          V95= Cnil;          V95= Cnil;
542          bds_bind(VV[31],symbol_value(VV[31]));          bds_bind(VV[31],symbol_value(VV[31]));
543          if(endp((V86))){          if(endp_prop((V86))){
544          goto T286;}          goto T286;}
545          if(!(endp(cdr((V86))))){          if(!(endp_prop(cdr((V86))))){
546          goto T285;}          goto T285;}
547  goto T286;  goto T286;
548  T286:;  T286:;
# Line 586  T285:; Line 586  T285:;
586          V98= car((V97));          V98= car((V97));
587  goto T299;  goto T299;
588  T299:;  T299:;
589          if(!(endp((V97)))){          if(!(endp_prop((V97)))){
590          goto T300;}          goto T300;}
591          goto T295;          goto T295;
592  goto T300;  goto T300;
# Line 607  T295:; Line 607  T295:;
607          V101= car((V100));          V101= car((V100));
608  goto T320;  goto T320;
609  T320:;  T320:;
610          if(!(endp((V100)))){          if(!(endp_prop((V100)))){
611          goto T321;}          goto T321;}
612          goto T316;          goto T316;
613  goto T321;  goto T321;
# Line 629  T316:; Line 629  T316:;
629          V104= car((V103));          V104= car((V103));
630  goto T341;  goto T341;
631  T341:;  T341:;
632          if(!(endp((V103)))){          if(!(endp_prop((V103)))){
633          goto T342;}          goto T342;}
634          goto T337;          goto T337;
635  goto T342;  goto T342;
# Line 672  TTL:; Line 672  TTL:;
672          V116= car((V115));          V116= car((V115));
673  goto T360;  goto T360;
674  T360:;  T360:;
675          if(!(endp((V115)))){          if(!(endp_prop((V115)))){
676          goto T361;}          goto T361;}
677          goto T356;          goto T356;
678  goto T361;  goto T361;
# Line 727  T390:; Line 727  T390:;
727          V120= (V109);          V120= (V109);
728  goto T393;  goto T393;
729  T393:;  T393:;
730          if(!(endp((V120)))){          if(!(endp_prop((V120)))){
731          goto T394;}          goto T394;}
732          bds_unwind1;          bds_unwind1;
733          bds_unwind1;          bds_unwind1;
# Line 748  T394:; Line 748  T394:;
748          princ_char(59,VV[6]);          princ_char(59,VV[6]);
749          princ_char(125,VV[6]);          princ_char(125,VV[6]);
750          (void)((*(LnkLI71))(car((V120)),VV[37]));          (void)((*(LnkLI71))(car((V120)),VV[37]));
751          if(endp(cdr((V120)))){          if(endp_prop(cdr((V120)))){
752          goto T412;}          goto T412;}
753          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
754  goto T412;  goto T412;
# Line 775  T391:; Line 775  T391:;
775          V124= car((V123));          V124= car((V123));
776  goto T436;  goto T436;
777  T436:;  T436:;
778          if(!(endp((V123)))){          if(!(endp_prop((V123)))){
779          goto T437;}          goto T437;}
780          goto T432;          goto T432;
781  goto T437;  goto T437;

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

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