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

Diff of /gcl/lsp/info.c

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

revision 1.13 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.14 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 28  TTL:; Line 28  TTL:;
28          if(!(eql(V5,VV[3]))){          if(!(eql(V5,VV[3]))){
29          goto T5;}          goto T5;}
30          goto T4;          goto T4;
31  goto T5;          goto T5;
32  T5:;  T5:;
33          base[3]= VV[4];          base[3]= VV[4];
34          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
35          Lerror();          Lerror();
36          vs_top=sup;          vs_top=sup;
37  goto T4;          goto T4;
38  T4:;  T4:;
39  goto T12;          goto T12;
40  T12:;  T12:;
41          {register object V6;          {register object V6;
42          base[3]= (V1);          base[3]= (V1);
# Line 47  T12:; Line 47  T12:;
47          if(!(eql((V6),VV[3]))){          if(!(eql((V6),VV[3]))){
48          goto T18;}          goto T18;}
49          goto T10;          goto T10;
50  goto T18;          goto T18;
51  T18:;  T18:;
52          if(!(eql((V6),VV[5]))){          if(!(eql((V6),VV[5]))){
53          goto T16;}          goto T16;}
# Line 63  T18:; Line 63  T18:;
63          goto T28;          goto T28;
64          }else V9=V9->c.c_cdr;          }else V9=V9->c.c_cdr;
65          V8= Cnil;}          V8= Cnil;}
66  goto T28;          goto T28;
67  T28:;  T28:;
68          V7= cdr(V8);          V7= cdr(V8);
69          if(V7==Cnil)goto T26;          if(V7==Cnil)goto T26;
70          V6= V7;          V6= V7;
71          goto T25;          goto T25;
72  goto T26;          goto T26;
73  T26:;}  T26:;}
74  goto T25;          goto T25;
75  T25:;  T25:;
76  goto T16;          goto T16;
77  T16:;  T16:;
78          (void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));}          (void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));}
79          goto T12;          goto T12;
80  goto T10;          goto T10;
81  T10:;  T10:;
82          base[3]= (V4);          base[3]= (V4);
83          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 99  static void L2() Line 99  static void L2()
99          if(vs_base>=vs_top){vs_top=sup;goto T30;}          if(vs_base>=vs_top){vs_top=sup;goto T30;}
100          vs_top=sup;          vs_top=sup;
101          goto T31;          goto T31;
102  goto T30;          goto T30;
103  T30:;  T30:;
104          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
105  goto T31;          goto T31;
106  T31:;  T31:;
107          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
108          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
# Line 124  T31:; Line 124  T31:;
124          goto T42;}          goto T42;}
125          V11= Cnil;          V11= Cnil;
126          goto T41;          goto T41;
127  goto T42;          goto T42;
128  T42:;  T42:;
129          V11= (number_compare(base[1],base[3])<=0?Ct:Cnil);          V11= (number_compare(base[1],base[3])<=0?Ct:Cnil);
130  goto T41;          goto T41;
131  T41:;  T41:;
132          if(V11==Cnil)goto T40;          if(V11==Cnil)goto T40;
133          goto T39;          goto T39;
134  goto T40;          goto T40;
135  T40:;}  T40:;}
136          base[6]= VV[8];          base[6]= VV[8];
137          base[7]= base[1];          base[7]= base[1];
138          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
139          Lerror();          Lerror();
140          vs_top=sup;          vs_top=sup;
141  goto T39;          goto T39;
142  T39:;  T39:;
143          {object V12;          {object V12;
144          V13= number_minus(base[3],base[1]);          V13= number_minus(base[3],base[1]);
# Line 150  T39:; Line 150  T39:;
150          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
151          Lfile_position();          Lfile_position();
152          vs_top=sup;          vs_top=sup;
153  goto T47;          goto T47;
154  T47:;  T47:;
155          base[6]= (V12);          base[6]= (V12);
156          base[7]= small_fixnum(0);          base[7]= small_fixnum(0);
# Line 173  T47:; Line 173  T47:;
173          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
174          Lclose();          Lclose();
175          vs_top=sup;          vs_top=sup;
176  goto T57;          goto T57;
177  T57:;  T57:;
178          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
179          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
# Line 202  TTL:; Line 202  TTL:;
202          V16= 0;          V16= 0;
203          V17= 0;          V17= 0;
204          V18= (long)length((V14));          V18= (long)length((V14));
205  goto T66;          goto T66;
206  T66:;  T66:;
207          if(!((V15)<(V18))){          if(!((V15)<(V18))){
208          goto T69;}          goto T69;}
209          goto T68;          goto T68;
210  goto T69;          goto T69;
211  T69:;  T69:;
212          goto T67;          goto T67;
213  goto T68;          goto T68;
214  T68:;  T68:;
215          {unsigned char V19= char_code(aref1((V14),V15));          {unsigned char V19= char_code(aref1((V14),V15));
216          V17= (long)(/* INLINE-ARGS */V19);}          V17= (long)(/* INLINE-ARGS */V19);}
# Line 225  T68:; Line 225  T68:;
225          V22= number_times(small_fixnum(10),V21);          V22= number_times(small_fixnum(10),V21);
226          V16= fix(number_plus(V20,/* INLINE-ARGS */V22));          V16= fix(number_plus(V20,/* INLINE-ARGS */V22));
227          goto T77;          goto T77;
228  goto T79;          goto T79;
229  T79:;  T79:;
230          goto T64;          goto T64;
231  goto T77;          goto T77;
232  T77:;  T77:;
233          goto T66;          goto T66;
234  goto T67;          goto T67;
235  T67:;  T67:;
236          goto T64;          goto T64;
237          goto T64;          goto T64;
238  goto T64;          goto T64;
239  T64:;  T64:;
240          base[2]= make_fixnum(V16);          base[2]= make_fixnum(V16);
241          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 277  TTL:; Line 277  TTL:;
277          V28= (long)(*(LnkLI94))(0);          V28= (long)(*(LnkLI94))(0);
278          V30 = make_fixnum(V28);          V30 = make_fixnum(V28);
279          V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30)));          V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30)));
280  goto T99;          goto T99;
281  T99:;  T99:;
282          V31 = make_fixnum(V28);          V31 = make_fixnum(V28);
283          V32 = make_fixnum(V24);          V32 = make_fixnum(V24);
# Line 285  T99:; Line 285  T99:;
285          if(!((/* INLINE-ARGS */V33)>=(0))){          if(!((/* INLINE-ARGS */V33)>=(0))){
286          goto T102;}}          goto T102;}}
287          goto T101;          goto T101;
288  goto T102;          goto T102;
289  T102:;  T102:;
290          goto T100;          goto T100;
291  goto T101;          goto T101;
292  T101:;  T101:;
293          V28= (long)(*(LnkLI94))(0);          V28= (long)(*(LnkLI94))(0);
294          base[3]= (V27);          base[3]= (V27);
# Line 306  T101:; Line 306  T101:;
306          V36= make_cons(V34,V35);          V36= make_cons(V34,V35);
307          V26= make_cons(/* INLINE-ARGS */V36,(V26));          V26= make_cons(/* INLINE-ARGS */V36,(V26));
308          goto T99;          goto T99;
309  goto T100;          goto T100;
310  T100:;  T100:;
311          goto T91;          goto T91;
312          goto T91;          goto T91;
313  goto T91;          goto T91;
314  T91:;  T91:;
315          V37 = make_fixnum(V28);          V37 = make_fixnum(V28);
316          {long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37)));          {long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37)));
# Line 328  T91:; Line 328  T91:;
328          Lsubseq();          Lsubseq();
329          vs_top=sup;          vs_top=sup;
330          V25= vs_base[0];          V25= vs_base[0];
331  goto T115;          goto T115;
332  T115:;  T115:;
333          if(((V26))==Cnil){          if(((V26))==Cnil){
334          goto T126;}          goto T126;}
# Line 338  T115:; Line 338  T115:;
338          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
339          (void) (*Lnk98)();          (void) (*Lnk98)();
340          vs_top=sup;          vs_top=sup;
341  goto T126;          goto T126;
342  T126:;  T126:;
343          V41= nreverse((V26));          V41= nreverse((V26));
344          base[3]= make_cons((V25),/* INLINE-ARGS */V41);          base[3]= make_cons((V25),/* INLINE-ARGS */V41);
# Line 370  TTL:; Line 370  TTL:;
370          V46= 0;          V46= 0;
371          {register object V47;          {register object V47;
372          V47= Cnil;          V47= Cnil;
373  goto T136;          goto T136;
374  T136:;  T136:;
375  goto T139;          goto T139;
376  T139:;  T139:;
377          if(!((V43)<(V44))){          if(!((V43)<(V44))){
378          goto T142;}          goto T142;}
379          goto T141;          goto T141;
380  goto T142;          goto T142;
381  T142:;  T142:;
382          goto T140;          goto T140;
383  goto T141;          goto T141;
384  T141:;  T141:;
385          V45= aref1((V42),V43);          V45= aref1((V42),V43);
386          if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){
# Line 389  T141:; Line 389  T141:;
389          goto T150;}          goto T150;}
390          (void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47))));          (void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47))));
391          goto T146;          goto T146;
392  goto T150;          goto T150;
393  T150:;  T150:;
394          V46= (long)(V46)+(1);          V46= (long)(V46)+(1);
395  goto T146;          goto T146;
396  T146:;  T146:;
397          if(((V47))==Cnil){          if(((V47))==Cnil){
398          goto T153;}          goto T153;}
399          (void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47))));          (void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47))));
400  goto T153;          goto T153;
401  T153:;  T153:;
402          V43= (long)(V43)+(1);          V43= (long)(V43)+(1);
403          goto T139;          goto T139;
404  goto T140;          goto T140;
405  T140:;  T140:;
406          goto T137;          goto T137;
407          goto T137;          goto T137;
408  goto T137;          goto T137;
409  T137:;  T137:;
410          {register object V48;          {register object V48;
411          V48= (V47);          V48= (V47);
412          if(((V48))==Cnil){          if(((V48))==Cnil){
413          goto T161;}          goto T161;}
414          goto T159;          goto T159;
415  goto T161;          goto T161;
416  T161:;  T161:;
417          if(!((V46)>(0))){          if(!((V46)>(0))){
418          goto T164;}          goto T164;}
# Line 420  T161:; Line 420  T161:;
420          V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0)));          V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0)));
421          V43= 0;          V43= 0;
422          goto T136;          goto T136;
423  goto T164;          goto T164;
424  T164:;  T164:;
425          V47= (V42);}          V47= (V42);}
426  goto T159;          goto T159;
427  T159:;  T159:;
428          goto T134;          goto T134;
429  goto T134;          goto T134;
430  T134:;  T134:;
431          base[1]= (V47);          base[1]= (V47);
432          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 489  TTL:; Line 489  TTL:;
489          (void) (*Lnk101)();          (void) (*Lnk101)();
490          vs_top=sup;          vs_top=sup;
491          V52= vs_base[0];          V52= vs_base[0];
492  goto T187;          goto T187;
493  T187:;  T187:;
494          V56 = make_fixnum(V54);          V56 = make_fixnum(V54);
495          {long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56)));          {long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56)));
496          if(!((/* INLINE-ARGS */V57)>=(0))){          if(!((/* INLINE-ARGS */V57)>=(0))){
497          goto T190;}}          goto T190;}}
498          goto T189;          goto T189;
499  goto T190;          goto T190;
500  T190:;  T190:;
501          goto T188;          goto T188;
502  goto T189;          goto T189;
503  T189:;  T189:;
504          V54= (long)(*(LnkLI94))(0);          V54= (long)(*(LnkLI94))(0);
505          base[4]= (V53);          base[4]= (V53);
# Line 510  T189:; Line 510  T189:;
510          V58= vs_base[0];          V58= vs_base[0];
511          V55= make_cons(V58,(V55));          V55= make_cons(V58,(V55));
512          goto T187;          goto T187;
513  goto T188;          goto T188;
514  T188:;  T188:;
515          goto T185;          goto T185;
516          goto T185;          goto T185;
517  goto T185;          goto T185;
518  T185:;  T185:;
519          base[4]= nreverse((V55));          base[4]= nreverse((V55));
520          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
521          bds_unwind1;          bds_unwind1;
522          bds_unwind1;          bds_unwind1;
523          return;          return;
524  goto T177;          goto T177;
525  T177:;  T177:;
526          base[4]= Cnil;          base[4]= Cnil;
527          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 545  TTL:;{object V59; Line 545  TTL:;{object V59;
545          base[0]= V59;          base[0]= V59;
546          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
547          return;          return;
548  goto T200;          goto T200;
549  T200:;}  T200:;}
550          {object V60;          {object V60;
551          object V61;          object V61;
# Line 562  T200:;} Line 562  T200:;}
562          vs_top=sup;          vs_top=sup;
563          V63= vs_base[0];          V63= vs_base[0];
564          V62= car(V63);          V62= car(V63);
565  goto T204;          goto T204;
566  T204:;  T204:;
567          if(((V62))==Cnil){          if(((V62))==Cnil){
568          goto T209;}          goto T209;}
# Line 581  T204:; Line 581  T204:;
581          base[2]= V60;          base[2]= V60;
582          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
583          return;}          return;}
584  goto T209;          goto T209;
585  T209:;  T209:;
586          base[2]= Cnil;          base[2]= Cnil;
587          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 624  TTL:; Line 624  TTL:;
624          (void) (*Lnk101)();          (void) (*Lnk101)();
625          vs_top=sup;          vs_top=sup;
626          V66= vs_base[0];          V66= vs_base[0];
627  goto T232;          goto T232;
628  T232:;  T232:;
629          {long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67))));          {long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67))));
630          if(!((/* INLINE-ARGS */V70)>=(0))){          if(!((/* INLINE-ARGS */V70)>=(0))){
631          goto T235;}}          goto T235;}}
632          goto T234;          goto T234;
633  goto T235;          goto T235;
634  T235:;  T235:;
635          goto T233;          goto T233;
636  goto T234;          goto T234;
637  T234:;  T234:;
638          V67= make_fixnum((long)(*(LnkLI94))(0));          V67= make_fixnum((long)(*(LnkLI94))(0));
639          base[3]= (V69);          base[3]= (V69);
# Line 651  T234:; Line 651  T234:;
651          V73= make_cons(V71,V72);          V73= make_cons(V71,V72);
652          V68= make_cons(/* INLINE-ARGS */V73,(V68));          V68= make_cons(/* INLINE-ARGS */V73,(V68));
653          goto T232;          goto T232;
654  goto T233;          goto T233;
655  T233:;  T233:;
656          goto T230;          goto T230;
657          goto T230;          goto T230;
658  goto T230;          goto T230;
659  T230:;  T230:;
660          base[3]= nreverse((V68));          base[3]= nreverse((V68));
661          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
662          bds_unwind1;          bds_unwind1;
663          bds_unwind1;          bds_unwind1;
664          return;          return;
665  goto T222;          goto T222;
666  T222:;  T222:;
667          base[3]= Cnil;          base[3]= Cnil;
668          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 695  TTL:; Line 695  TTL:;
695          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
696          bds_unwind1;          bds_unwind1;
697          return;          return;
698  goto T250;          goto T250;
699  T250:;  T250:;
700          base[3]= VV[24];          base[3]= VV[24];
701          base[5]= (V74);          base[5]= (V74);
# Line 717  T250:; Line 717  T250:;
717          (void) (*Lnk96)();          (void) (*Lnk96)();
718          bds_unwind1;          bds_unwind1;
719          return;          return;
720  goto T259;          goto T259;
721  T259:;  T259:;
722          base[3]= VV[26];          base[3]= VV[26];
723          base[4]= (V76);          base[4]= (V76);
# Line 754  TTL:; Line 754  TTL:;
754          V81= Cnil;          V81= Cnil;
755          V82= Cnil;          V82= Cnil;
756          V83= Cnil;          V83= Cnil;
757  goto T268;          goto T268;
758  T268:;  T268:;
759          V84 = make_fixnum(V80);          V84 = make_fixnum(V80);
760          V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84)));          V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84)));
761          if(!((V80)>=(0))){          if(!((V80)>=(0))){
762          goto T271;}          goto T271;}
763          goto T270;          goto T270;
764  goto T271;          goto T271;
765  T271:;  T271:;
766          goto T269;          goto T269;
767  goto T270;          goto T270;
768  T270:;{object V85;  T270:;{object V85;
769          V85= make_fixnum(V80);          V85= make_fixnum(V80);
770          V80= (long)(*(LnkLI94))(0);          V80= (long)(*(LnkLI94))(0);
# Line 780  T270:;{object V85; Line 780  T270:;{object V85;
780          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));
781          ((V87))->c.c_cdr = (V88);          ((V87))->c.c_cdr = (V88);
782          goto T277;}          goto T277;}
783  goto T279;          goto T279;
784  T279:;  T279:;
785          V82= make_cons((V83),Cnil);          V82= make_cons((V83),Cnil);
786          V81= (V82);          V81= (V82);
787  goto T277;          goto T277;
788  T277:;  T277:;
789          goto T268;          goto T268;
790  goto T269;          goto T269;
791  T269:;  T269:;
792          base[3]= (V81);          base[3]= (V81);
793          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 861  TTL:; Line 861  TTL:;
861          if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){          if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){
862          goto T292;}          goto T292;}
863          goto T291;          goto T291;
864  goto T292;          goto T292;
865  T292:;  T292:;
866          setq(VV[29],symbol_value(VV[30]));          setq(VV[29],symbol_value(VV[30]));
867          {object V95;          {object V95;
# Line 877  T292:; Line 877  T292:;
877          (void) (*Lnk105)();          (void) (*Lnk105)();
878          vs_top=sup;          vs_top=sup;
879          setq(VV[32],vs_base[0]);          setq(VV[32],vs_base[0]);
880  goto T291;          goto T291;
881  T291:;  T291:;
882          if(!(equal((V92),VV[33]))){          if(!(equal((V92),VV[33]))){
883          goto T303;}          goto T303;}
884          V92= VV[34];          V92= VV[34];
885  goto T303;          goto T303;
886  T303:;  T303:;
887          base[1]= (V92);          base[1]= (V92);
888          base[2]= symbol_value(VV[32]);          base[2]= symbol_value(VV[32]);
# Line 927  T303:; Line 927  T303:;
927          vs_top=sup;          vs_top=sup;
928          V94= vs_base[0];          V94= vs_base[0];
929          bds_unwind1;}          bds_unwind1;}
930  goto T313;          goto T313;
931  T313:;  T313:;
932          if(((V94))==Cnil){          if(((V94))==Cnil){
933          goto T334;}          goto T334;}
# Line 948  T313:; Line 948  T313:;
948          goto T342;          goto T342;
949          }else V100=V100->c.c_cdr;          }else V100=V100->c.c_cdr;
950          V93= Cnil;}          V93= Cnil;}
951  goto T342;          goto T342;
952  T342:;  T342:;
953          if(((V93))==Cnil){          if(((V93))==Cnil){
954          goto T340;}          goto T340;}
955          setq(VV[20],(V93));          setq(VV[20],(V93));
956          goto T332;          goto T332;
957  goto T340;          goto T340;
958  T340:;  T340:;
959          base[2]= (V99);          base[2]= (V99);
960          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 964  T340:; Line 964  T340:;
964          setq(VV[20],list(3,(V99),V101,Cnil));          setq(VV[20],list(3,(V99),V101,Cnil));
965          setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40])));          setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40])));
966          goto T332;}          goto T332;}
967  goto T334;          goto T334;
968  T334:;  T334:;
969          base[1]= Ct;          base[1]= Ct;
970          base[2]= VV[41];          base[2]= VV[41];
# Line 972  T334:; Line 972  T334:;
972          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
973          Lformat();          Lformat();
974          vs_top=sup;          vs_top=sup;
975  goto T332;          goto T332;
976  T332:;  T332:;
977          base[1]= Cnil;          base[1]= Cnil;
978          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 999  TTL:; Line 999  TTL:;
999          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1000          (void) (*Lnk108)();          (void) (*Lnk108)();
1001          return;          return;
1002  goto T353;          goto T353;
1003  T353:;  T353:;
1004          base[2]= (V102);          base[2]= (V102);
1005          base[3]= car(cadr(symbol_value(VV[20])));          base[3]= car(cadr(symbol_value(VV[20])));
# Line 1024  static void L16() Line 1024  static void L16()
1024  TTL:;  TTL:;
1025          {register object V106;          {register object V106;
1026          V106= (V104);          V106= (V104);
1027  goto T361;          goto T361;
1028  T361:;  T361:;
1029          if((V106)!=Cnil){          if((V106)!=Cnil){
1030          goto T363;}          goto T363;}
1031          goto T362;          goto T362;
1032  goto T363;          goto T363;
1033  T363:;  T363:;
1034          {register object V107;          {register object V107;
1035          register object V108;          register object V108;
# Line 1039  T363:; Line 1039  T363:;
1039          ((V107))->c.c_car = (V108);}          ((V107))->c.c_car = (V108);}
1040          V106= cdr((V106));          V106= cdr((V106));
1041          goto T361;          goto T361;
1042  goto T362;          goto T362;
1043  T362:;  T362:;
1044          goto T359;          goto T359;
1045          goto T359;          goto T359;
1046  goto T359;          goto T359;
1047  T359:;  T359:;
1048          base[2]= (V104);          base[2]= (V104);
1049          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1077  static void L17() Line 1077  static void L17()
1077          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1078          (void) (*Lnk109)();          (void) (*Lnk109)();
1079          return;          return;
1080  goto T372;          goto T372;
1081  T372:;  T372:;
1082          {object V111;          {object V111;
1083          V111= (V109);          V111= (V109);
# Line 1111  TTL:; Line 1111  TTL:;
1111          goto T384;}          goto T384;}
1112          V113= symbol_value(VV[44]);          V113= symbol_value(VV[44]);
1113          goto T382;          goto T382;
1114  goto T384;          goto T384;
1115  T384:;  T384:;
1116          base[1]= (V112);          base[1]= (V112);
1117          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1120  T384:; Line 1120  T384:;
1120          V114= vs_base[0];          V114= vs_base[0];
1121          setq(VV[44],make_cons((V112),V114));          setq(VV[44],make_cons((V112),V114));
1122          V113= symbol_value(VV[44]);          V113= symbol_value(VV[44]);
1123  goto T382;          goto T382;
1124  T382:;  T382:;
1125          base[1]= cdr(V113);          base[1]= cdr(V113);
1126          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1152  TTL:; Line 1152  TTL:;
1152          base[1]= Cnil;          base[1]= Cnil;
1153          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1154          return;          return;
1155  goto T389;          goto T389;
1156  T389:;  T389:;
1157          base[1]= VV[45];          base[1]= VV[45];
1158          base[2]= (V115);          base[2]= (V115);
# Line 1166  T389:; Line 1166  T389:;
1166          base[1]= Cnil;          base[1]= Cnil;
1167          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1168          return;          return;
1169  goto T392;          goto T392;
1170  T392:;  T392:;
1171          base[1]= VV[48];          base[1]= VV[48];
1172          base[2]= VV[49];          base[2]= VV[49];
# Line 1197  TTL:; Line 1197  TTL:;
1197          base[1]= Cnil;          base[1]= Cnil;
1198          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1199          return;          return;
1200  goto T401;          goto T401;
1201  T401:;  T401:;
1202          base[1]= VV[48];          base[1]= VV[48];
1203          base[2]= VV[49];          base[2]= VV[49];
# Line 1230  TTL:; Line 1230  TTL:;
1230          if(number_compare((V117),small_fixnum(0))>=0){          if(number_compare((V117),small_fixnum(0))>=0){
1231          goto T409;}          goto T409;}
1232          goto T408;          goto T408;
1233  goto T409;          goto T409;
1234  T409:;  T409:;
1235          {register object V121;          {register object V121;
1236          register object V122;          register object V122;
1237          V121= (V118);          V121= (V118);
1238          V122= car((V121));          V122= car((V121));
1239  goto T414;          goto T414;
1240  T414:;  T414:;
1241          if(!(endp_prop((V121)))){          if(!(endp_prop((V121)))){
1242          goto T415;}          goto T415;}
1243          goto T408;          goto T408;
1244  goto T415;          goto T415;
1245  T415:;  T415:;
1246          if(!(number_compare(car((V122)),(V117))>0)){          if(!(number_compare(car((V122)),(V117))>0)){
1247          goto T419;}          goto T419;}
1248          V120= car((V122));          V120= car((V122));
1249          goto T408;          goto T408;
1250  goto T419;          goto T419;
1251  T419:;  T419:;
1252          V119= (V122);          V119= (V122);
1253          V121= cdr((V121));          V121= cdr((V121));
1254          V122= car((V121));          V122= car((V121));
1255          goto T414;}          goto T414;}
1256  goto T408;          goto T408;
1257  T408:;  T408:;
1258          if((V119)!=Cnil){          if((V119)!=Cnil){
1259          base[1]= (V119);          base[1]= (V119);
1260          goto T431;}          goto T431;}
1261          base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20])));          base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20])));
1262  goto T431;          goto T431;
1263  T431:;  T431:;
1264          base[2]= (V120);          base[2]= (V120);
1265          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 1294  TTL:; Line 1294  TTL:;
1294          vs_top=sup;          vs_top=sup;
1295          V126= vs_base[0];          V126= vs_base[0];
1296          V127= number_minus((V123),car((V125)));          V127= number_minus((V123),car((V125)));
1297  goto T441;          goto T441;
1298  T441:;  T441:;
1299          {long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127))));          {long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127))));
1300          if(!((/* INLINE-ARGS */V128)>=(0))){          if(!((/* INLINE-ARGS */V128)>=(0))){
1301          goto T444;}}          goto T444;}}
1302          goto T443;          goto T443;
1303  goto T444;          goto T444;
1304  T444:;  T444:;
1305          goto T442;          goto T442;
1306  goto T443;          goto T443;
1307  T443:;  T443:;
1308          V124= make_fixnum((long)(*(LnkLI94))(0));          V124= make_fixnum((long)(*(LnkLI94))(0));
1309          goto T441;          goto T441;
1310  goto T442;          goto T442;
1311  T442:;  T442:;
1312          goto T439;          goto T439;
1313          goto T439;          goto T439;
1314  goto T439;          goto T439;
1315  T439:;  T439:;
1316          V124= number_minus((V124),small_fixnum(1));          V124= number_minus((V124),small_fixnum(1));
1317          {long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124))));          {long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124))));
# Line 1335  T439:; Line 1335  T439:;
1335          goto T461;}}          goto T461;}}
1336          V133= make_fixnum((long)(*(LnkLI95))(0));          V133= make_fixnum((long)(*(LnkLI95))(0));
1337          goto T459;          goto T459;
1338  goto T461;          goto T461;
1339  T461:;  T461:;
1340          V133= make_fixnum((long)length((V126)));          V133= make_fixnum((long)length((V126)));
1341  goto T459;          goto T459;
1342  T459:;  T459:;
1343          V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20]));          V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20]));
1344          base[9]= (V134);          base[9]= (V134);
1345          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1346          return;}          return;}
1347  goto T452;          goto T452;
1348  T452:;  T452:;
1349          base[4]= Cnil;          base[4]= Cnil;
1350          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1372  static void L23() Line 1372  static void L23()
1372          V138=(base[2]);          V138=(base[2]);
1373          vs_top=sup;          vs_top=sup;
1374          goto T466;          goto T466;
1375  goto T464;          goto T464;
1376  T464:;  T464:;
1377          V137= Cnil;          V137= Cnil;
1378  goto T465;          goto T465;
1379  T465:;  T465:;
1380          V138= symbol_value(VV[43]);          V138= symbol_value(VV[43]);
1381  goto T466;          goto T466;
1382  T466:;  T466:;
1383          {register object V139;          {register object V139;
1384          register object V140;          register object V140;
# Line 1395  T466:; Line 1395  T466:;
1395          goto T474;}          goto T474;}
1396          V140= cadr((V136));          V140= cadr((V136));
1397          V136= car((V136));          V136= car((V136));
1398  goto T474;          goto T474;
1399  T474:;  T474:;
1400          if(!(type_of((V136))==t_cons)){          if(!(type_of((V136))==t_cons)){
1401          goto T473;}          goto T473;}
1402          V137= car((V136));          V137= car((V136));
1403          V136= cdr((V136));          V136= cdr((V136));
1404  goto T473;          goto T473;
1405  T473:;  T473:;
1406          if(!(type_of((V136))==t_string)){          if(!(type_of((V136))==t_string)){
1407          goto T488;}          goto T488;}
1408          goto T487;          goto T487;
1409  goto T488;          goto T488;
1410  T488:;  T488:;
1411          base[4]= VV[55];          base[4]= VV[55];
1412          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1413          (void) (*Lnk98)();          (void) (*Lnk98)();
1414          vs_top=sup;          vs_top=sup;
1415  goto T487;          goto T487;
1416  T487:;  T487:;
1417          base[4]= symbol_value(VV[56]);          base[4]= symbol_value(VV[56]);
1418          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1436  T487:; Line 1436  T487:;
1436          if(!(equal((V136),VV[58]))){          if(!(equal((V136),VV[58]))){
1437          goto T493;}          goto T493;}
1438          V136= VV[59];          V136= VV[59];
1439  goto T493;          goto T493;
1440  T493:;  T493:;
1441          if(((V140))==Cnil){          if(((V140))==Cnil){
1442          goto T507;}          goto T507;}
# Line 1444  T493:; Line 1444  T493:;
1444          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1445          (void) (*Lnk114)();          (void) (*Lnk114)();
1446          vs_top=sup;          vs_top=sup;
1447  goto T507;          goto T507;
1448  T507:;  T507:;
1449          {object V144;          {object V144;
1450          base[4]= (V136);          base[4]= (V136);
# Line 1465  T507:; Line 1465  T507:;
1465          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1466          bds_unwind1;          bds_unwind1;
1467          return;          return;
1468  goto T514;          goto T514;
1469  T514:;  T514:;
1470          base[4]= (V144);          base[4]= (V144);
1471          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1505  T514:; Line 1505  T514:;
1505          goto T539;}}          goto T539;}}
1506          V151= make_fixnum((long)(*(LnkLI95))(0));          V151= make_fixnum((long)(*(LnkLI95))(0));
1507          goto T537;          goto T537;
1508  goto T539;          goto T539;
1509  T539:;  T539:;
1510          V151= make_fixnum((long)length((V145)));          V151= make_fixnum((long)length((V145)));
1511  goto T537;          goto T537;
1512  T537:;  T537:;
1513          V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20]));          V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20]));
1514          if(((V137))==Cnil){          if(((V137))==Cnil){
# Line 1533  T537:; Line 1533  T537:;
1533          if(!((/* INLINE-ARGS */V155)>=(0))){          if(!((/* INLINE-ARGS */V155)>=(0))){
1534          bds_unwind1;          bds_unwind1;
1535          goto T542;}}          goto T542;}}
1536  goto T548;          goto T548;
1537  T548:;  T548:;
1538          V156 = make_fixnum((long)(*(LnkLI95))(0));          V156 = make_fixnum((long)(*(LnkLI95))(0));
1539          V141= fix(number_minus(V156,(V150)));          V141= fix(number_minus(V156,(V150)));
1540          bds_unwind1;          bds_unwind1;
1541  goto T542;          goto T542;
1542  T542:;  T542:;
1543          if(((V138))==Cnil){          if(((V138))==Cnil){
1544          goto T559;}          goto T559;}
# Line 1557  T542:; Line 1557  T542:;
1557          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1558          bds_unwind1;          bds_unwind1;
1559          return;}          return;}
1560  goto T559;          goto T559;
1561  T559:;  T559:;
1562          {object V158;          {object V158;
1563          if(!((V142)>=(0))){          if(!((V142)>=(0))){
# Line 1574  T559:; Line 1574  T559:;
1574          goto T568;}}          goto T568;}}
1575          V158= make_fixnum((long)(*(LnkLI95))(0));          V158= make_fixnum((long)(*(LnkLI95))(0));
1576          goto T566;          goto T566;
1577  goto T568;          goto T568;
1578  T568:;  T568:;
1579          V158= (V151);          V158= (V151);
1580  goto T566;          goto T566;
1581  T566:;  T566:;
1582          base[10]= (V145);          base[10]= (V145);
1583          V161 = make_fixnum(V141);          V161 = make_fixnum(V141);
# Line 1587  T566:; Line 1587  T566:;
1587          Lsubseq();          Lsubseq();
1588          bds_unwind1;          bds_unwind1;
1589          return;}}          return;}}
1590  goto T528;          goto T528;
1591  T528:;  T528:;
1592          base[6]= VV[67];          base[6]= VV[67];
1593          base[7]= (V136);          base[7]= (V136);
# Line 1627  TTL:; Line 1627  TTL:;
1627          V167= Cnil;          V167= Cnil;
1628          V168= Cnil;          V168= Cnil;
1629          V169= Cnil;          V169= Cnil;
1630  goto T584;          goto T584;
1631  T584:;  T584:;
1632          if(((V165))==Cnil){          if(((V165))==Cnil){
1633          goto T587;}          goto T587;}
1634          goto T586;          goto T586;
1635  goto T587;          goto T587;
1636  T587:;  T587:;
1637          goto T585;          goto T585;
1638  goto T586;          goto T586;
1639  T586:;  T586:;
1640          {object V170;          {object V170;
1641          V170= car((V165));          V170= car((V165));
# Line 1668  T586:; Line 1668  T586:;
1668          if(((V172))!=Cnil){          if(((V172))!=Cnil){
1669          goto T605;}}          goto T605;}}
1670          goto T601;          goto T601;
1671  goto T605;          goto T605;
1672  T605:;  T605:;
1673          base[2]= cdr((V167));          base[2]= cdr((V167));
1674          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1676  T605:; Line 1676  T605:;
1676          vs_top=sup;          vs_top=sup;
1677          V167= vs_base[0];          V167= vs_base[0];
1678          goto T601;          goto T601;
1679  goto T603;          goto T603;
1680  T603:;  T603:;
1681          V166= (V168);          V166= (V168);
1682          base[2]= (V166);          base[2]= (V166);
# Line 1684  T603:; Line 1684  T603:;
1684          Llast();          Llast();
1685          vs_top=sup;          vs_top=sup;
1686          V167= vs_base[0];          V167= vs_base[0];
1687  goto T601;          goto T601;
1688  T601:;  T601:;
1689          base[4]= (V162);          base[4]= (V162);
1690          base[5]= VV[42];          base[5]= VV[42];
# Line 1710  T601:; Line 1710  T601:;
1710          if(((V174))!=Cnil){          if(((V174))!=Cnil){
1711          goto T625;}}          goto T625;}}
1712          goto T621;          goto T621;
1713  goto T625;          goto T625;
1714  T625:;  T625:;
1715          base[2]= cdr((V167));          base[2]= cdr((V167));
1716          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1718  T625:; Line 1718  T625:;
1718          vs_top=sup;          vs_top=sup;
1719          V167= vs_base[0];          V167= vs_base[0];
1720          goto T621;          goto T621;
1721  goto T623;          goto T623;
1722  T623:;  T623:;
1723          V166= (V169);          V166= (V169);
1724          base[2]= (V166);          base[2]= (V166);
# Line 1726  T623:; Line 1726  T623:;
1726          Llast();          Llast();
1727          vs_top=sup;          vs_top=sup;
1728          V167= vs_base[0];          V167= vs_base[0];
1729  goto T621;          goto T621;
1730  T621:;  T621:;
1731          V165= cdr((V165));          V165= cdr((V165));
1732          goto T584;          goto T584;
1733  goto T585;          goto T585;
1734  T585:;  T585:;
1735          base[2]= (V166);          base[2]= (V166);
1736          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1763  static void L25() Line 1763  static void L25()
1763          V177=(base[2]);          V177=(base[2]);
1764          vs_top=sup;          vs_top=sup;
1765          goto T640;          goto T640;
1766  goto T638;          goto T638;
1767  T638:;  T638:;
1768          V176= Cnil;          V176= Cnil;
1769  goto T639;          goto T639;
1770  T639:;  T639:;
1771          V177= Cnil;          V177= Cnil;
1772  goto T640;          goto T640;
1773  T640:;  T640:;
1774          {register object V178;          {register object V178;
1775          V178= Cnil;          V178= Cnil;
1776          if((V176)!=Cnil){          if((V176)!=Cnil){
1777          goto T644;}          goto T644;}
1778          V176= small_fixnum(0);          V176= small_fixnum(0);
1779  goto T644;          goto T644;
1780  T644:;  T644:;
1781  goto T648;          goto T648;
1782  T648:;  T648:;
1783          if((V176)!=Cnil){          if((V176)!=Cnil){
1784          goto T650;}          goto T650;}
1785          goto T649;          goto T649;
1786  goto T650;          goto T650;
1787  T650:;  T650:;
1788          {register object V179;          {register object V179;
1789          register object V180;          register object V180;
# Line 1797  T650:; Line 1797  T650:;
1797          V180= vs_base[0];          V180= vs_base[0];
1798          vs_top=sup;          vs_top=sup;
1799          goto T656;          goto T656;
1800  goto T654;          goto T654;
1801  T654:;  T654:;
1802          V179= Cnil;          V179= Cnil;
1803  goto T655;          goto T655;
1804  T655:;  T655:;
1805          V180= Cnil;          V180= Cnil;
1806  goto T656;          goto T656;
1807  T656:;  T656:;
1808          V178= (V180);          V178= (V180);
1809          if((V177)==Cnil){          if((V177)==Cnil){
# Line 1813  T656:; Line 1813  T656:;
1813          if(number_compare((V177),(V178))<0){          if(number_compare((V177),(V178))<0){
1814          goto T660;}          goto T660;}
1815          goto T659;          goto T659;
1816  goto T660;          goto T660;
1817  T660:;  T660:;
1818          V178= (V177);          V178= (V177);
1819  goto T659;          goto T659;
1820  T659:;  T659:;
1821          {register object V181;          {register object V181;
1822          register object V182;          register object V182;
# Line 1834  T659:; Line 1834  T659:;
1834          goto T673;}          goto T673;}
1835          V185= number_minus((V178),(V182));          V185= number_minus((V178),(V182));
1836          goto T671;          goto T671;
1837  goto T673;          goto T673;
1838  T673:;  T673:;
1839          V185= (V184);          V185= (V184);
1840  goto T671;          goto T671;
1841  T671:;  T671:;
1842          {long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185)));          {long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185)));
1843          if(!((/* INLINE-ARGS */V186)>=(0))){          if(!((/* INLINE-ARGS */V186)>=(0))){
# Line 1846  T671:; Line 1846  T671:;
1846          base[7]= number_plus((V182),V187);          base[7]= number_plus((V182),V187);
1847          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1848          return;}          return;}
1849  goto T663;          goto T663;
1850  T663:;  T663:;
1851          V176= (V180);}          V176= (V180);}
1852          goto T648;          goto T648;
1853  goto T649;          goto T649;
1854  T649:;  T649:;
1855          goto T646;          goto T646;
1856          goto T646;          goto T646;
1857  goto T646;          goto T646;
1858  T646:;  T646:;
1859          base[3]= small_fixnum(-1);          base[3]= small_fixnum(-1);
1860          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1884  TTL:; Line 1884  TTL:;
1884          register object V191;          register object V191;
1885          V190= (V189);          V190= (V189);
1886          V191= car((V190));          V191= car((V190));
1887  goto T683;          goto T683;
1888  T683:;  T683:;
1889          if(!(endp_prop((V190)))){          if(!(endp_prop((V190)))){
1890          goto T684;}          goto T684;}
1891          base[3]= Cnil;          base[3]= Cnil;
1892          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1893          return;          return;
1894  goto T684;          goto T684;
1895  T684:;  T684:;
1896          if(!(type_of(car((V191)))==t_cons)){          if(!(type_of(car((V191)))==t_cons)){
1897          goto T692;}          goto T692;}
1898          if(!(equalp(caar((V191)),(V188)))){          if(!(equalp(caar((V191)),(V188)))){
1899          goto T688;}          goto T688;}
1900          goto T690;          goto T690;
1901  goto T692;          goto T692;
1902  T692:;  T692:;
1903          if(!(equalp(car((V191)),(V188)))){          if(!(equalp(car((V191)),(V188)))){
1904          goto T688;}          goto T688;}
1905  goto T690;          goto T690;
1906  T690:;  T690:;
1907          base[3]= Ct;          base[3]= Ct;
1908          base[4]= VV[70];          base[4]= VV[70];
# Line 1918  T690:; Line 1918  T690:;
1918          vs_top=sup;          vs_top=sup;
1919          V192= vs_base[0];          V192= vs_base[0];
1920          (void)(princ(V192,Cnil));          (void)(princ(V192,Cnil));
1921  goto T688;          goto T688;
1922  T688:;  T688:;
1923          V190= cdr((V190));          V190= cdr((V190));
1924          V191= car((V190));          V191= car((V190));
# Line 1942  static void L27() Line 1942  static void L27()
1942          V194=(base[1]);          V194=(base[1]);
1943          vs_top=sup;          vs_top=sup;
1944          goto T708;          goto T708;
1945  goto T707;          goto T707;
1946  T707:;  T707:;
1947          V194= symbol_value(VV[69]);          V194= symbol_value(VV[69]);
1948  goto T708;          goto T708;
1949  T708:;  T708:;
1950          {object V195;          {object V195;
1951          register object V196;          register object V196;
# Line 1969  T708:; Line 1969  T708:;
1969          (void) (*Lnk121)();          (void) (*Lnk121)();
1970          bds_unwind1;          bds_unwind1;
1971          return;          return;
1972  goto T717;          goto T717;
1973  T717:;  T717:;
1974          if(((V198))==Cnil){          if(((V198))==Cnil){
1975          goto T722;}          goto T722;}
# Line 1983  T717:; Line 1983  T717:;
1983          V201= (V198);          V201= (V198);
1984          {object V202;          {object V202;
1985          V202= Cnil;          V202= Cnil;
1986  goto T728;          goto T728;
1987  T728:;  T728:;
1988          if(((V201))==Cnil){          if(((V201))==Cnil){
1989          goto T731;}          goto T731;}
1990          goto T730;          goto T730;
1991  goto T731;          goto T731;
1992  T731:;  T731:;
1993          goto T729;          goto T729;
1994  goto T730;          goto T730;
1995  T730:;  T730:;
1996          {object V203;          {object V203;
1997          V203= car((V201));          V203= car((V201));
# Line 2004  T730:; Line 2004  T730:;
2004          goto T741;}          goto T741;}
2005          V196= cadr((V200));          V196= cadr((V200));
2006          V200= car((V200));          V200= car((V200));
2007  goto T741;          goto T741;
2008  T741:;  T741:;
2009          if(!(type_of((V200))==t_cons)){          if(!(type_of((V200))==t_cons)){
2010          goto T740;}          goto T740;}
2011          V197= car((V200));          V197= car((V200));
2012          V200= cdr((V200));          V200= cdr((V200));
2013  goto T740;          goto T740;
2014  T740:;  T740:;
2015          base[4]= Ct;          base[4]= Ct;
2016          base[5]= VV[71];          base[5]= VV[71];
# Line 2020  T740:; Line 2020  T740:;
2020          goto T761;}          goto T761;}
2021          base[8]= Cnil;          base[8]= Cnil;
2022          goto T759;          goto T759;
2023  goto T761;          goto T761;
2024  T761:;  T761:;
2025          V202= (V196);          V202= (V196);
2026          base[8]= (V202);          base[8]= (V202);
2027  goto T759;          goto T759;
2028  T759:;  T759:;
2029          base[9]= (V200);          base[9]= (V200);
2030          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
# Line 2033  T759:; Line 2033  T759:;
2033          if(!((V199)<(2147483646))){          if(!((V199)<(2147483646))){
2034          goto T766;}          goto T766;}
2035          goto T765;          goto T765;
2036  goto T766;          goto T766;
2037  T766:;  T766:;
2038          (void)((*(LnkLI122))());          (void)((*(LnkLI122))());
2039  goto T765;          goto T765;
2040  T765:;  T765:;
2041          V199= (long)(V199)+(1);          V199= (long)(V199)+(1);
2042          V201= cdr((V201));          V201= cdr((V201));
2043          goto T728;          goto T728;
2044  goto T729;          goto T729;
2045  T729:;  T729:;
2046          goto T725;          goto T725;
2047          goto T725;}}}          goto T725;}}}
2048  goto T725;          goto T725;
2049  T725:;  T725:;
2050          if(!(((long)length((V198)))>(1))){          if(!(((long)length((V198)))>(1))){
2051          goto T775;}          goto T775;}
# Line 2055  T725:; Line 2055  T725:;
2055          Lformat();          Lformat();
2056          vs_top=sup;          vs_top=sup;
2057          goto T773;          goto T773;
2058  goto T775;          goto T775;
2059  T775:;  T775:;
2060          princ_char(10,Cnil);          princ_char(10,Cnil);
2061  goto T773;          goto T773;
2062  T773:;  T773:;
2063          {object V204;          {object V204;
2064          object V205;          object V205;
# Line 2070  T773:; Line 2070  T773:;
2070          vs_top=sup;          vs_top=sup;
2071          V204= vs_base[0];          V204= vs_base[0];
2072          goto T779;          goto T779;
2073  goto T781;          goto T781;
2074  T781:;  T781:;
2075          V204= VV[74];          V204= VV[74];
2076  goto T779;          goto T779;
2077  T779:;  T779:;
2078          V205= small_fixnum(0);          V205= small_fixnum(0);
2079          V206= Cnil;          V206= Cnil;
2080  goto T785;          goto T785;
2081  T785:;  T785:;
2082          if(!(equal((V204),VV[75]))){          if(!(equal((V204),VV[75]))){
2083          goto T788;}          goto T788;}
2084          goto T787;          goto T787;
2085  goto T788;          goto T788;
2086  T788:;  T788:;
2087          goto T786;          goto T786;
2088  goto T787;          goto T787;
2089  T787:;  T787:;
2090          vs_base=vs_top;          vs_base=vs_top;
2091          Lread_line();          Lread_line();
2092          vs_top=sup;          vs_top=sup;
2093          V204= vs_base[0];          V204= vs_base[0];
2094          goto T785;          goto T785;
2095  goto T786;          goto T786;
2096  T786:;  T786:;
2097          goto T783;          goto T783;
2098          goto T783;          goto T783;
2099  goto T783;          goto T783;
2100  T783:;  T783:;
2101  goto T795;          goto T795;
2102  T795:;{object V207;  T795:;{object V207;
2103          base[4]= (V204);          base[4]= (V204);
2104          base[5]= Cnil;          base[5]= Cnil;
# Line 2120  T795:;{object V207; Line 2120  T795:;{object V207;
2120          V207= (V206);          V207= (V206);
2121          if(V207==Cnil)goto T798;          if(V207==Cnil)goto T798;
2122          goto T797;          goto T797;
2123  goto T798;          goto T798;
2124  T798:;}  T798:;}
2125          goto T796;          goto T796;
2126  goto T797;          goto T797;
2127  T797:;  T797:;
2128          if(!(type_of((V206))==t_fixnum||          if(!(type_of((V206))==t_fixnum||
2129  type_of((V206))==t_bignum||  type_of((V206))==t_bignum||
# Line 2134  type_of((V206))==t_complex)){ Line 2134  type_of((V206))==t_complex)){
2134          goto T808;}          goto T808;}
2135          V195= make_cons((V206),(V195));          V195= make_cons((V206),(V195));
2136          goto T806;          goto T806;
2137  goto T808;          goto T808;
2138  T808:;  T808:;
2139          V195= (V206);          V195= (V206);
2140          goto T793;          goto T793;
2141  goto T806;          goto T806;
2142  T806:;  T806:;
2143          goto T795;          goto T795;
2144  goto T796;          goto T796;
2145  T796:;  T796:;
2146          goto T793;          goto T793;
2147          goto T793;          goto T793;
2148  goto T793;          goto T793;
2149  T793:;  T793:;
2150          if(!(type_of((V195))==t_cons)){          if(!(type_of((V195))==t_cons)){
2151          goto T816;}          goto T816;}
2152          V195= nreverse((V195));          V195= nreverse((V195));
2153          goto T814;          goto T814;
2154  goto T816;          goto T816;
2155  T816:;  T816:;
2156          if(!(type_of((V195))==t_symbol)){          if(!(type_of((V195))==t_symbol)){
2157          goto T814;}          goto T814;}
# Line 2160  T816:; Line 2160  T816:;
2160          goto T822;}          goto T822;}
2161          V195= Cnil;          V195= Cnil;
2162          goto T821;          goto T821;
2163  goto T822;          goto T822;
2164  T822:;  T822:;
2165          {register long V209;          {register long V209;
2166          long V210;          long V210;
# Line 2170  T822:; Line 2170  T822:;
2170          V212= (type_of((V211))==t_fixnum?Ct:Cnil);          V212= (type_of((V211))==t_fixnum?Ct:Cnil);
2171          if(V212==Cnil)goto T828;          if(V212==Cnil)goto T828;
2172          goto T827;          goto T827;
2173  goto T828;          goto T828;
2174  T828:;}  T828:;}
2175          (void)((*(LnkLI122))());          (void)((*(LnkLI122))());
2176  goto T827;          goto T827;
2177  T827:;  T827:;
2178          V210= fix((V211));}          V210= fix((V211));}
2179          {object V213;          {object V213;
2180          register object V214;          register object V214;
2181          V213= Cnil;          V213= Cnil;
2182          V214= Cnil;          V214= Cnil;
2183  goto T831;          goto T831;
2184  T831:;  T831:;
2185          if((V209)>=(V210)){          if((V209)>=(V210)){
2186          goto T834;}          goto T834;}
2187          goto T833;          goto T833;
2188  goto T834;          goto T834;
2189  T834:;  T834:;
2190          goto T832;          goto T832;
2191  goto T833;          goto T833;
2192  T833:;  T833:;
2193          if(((V214))==Cnil){          if(((V214))==Cnil){
2194          goto T838;}          goto T838;}
# Line 2201  T833:; Line 2201  T833:;
2201          if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215));          if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215));
2202          ((V215))->c.c_cdr = (V216);          ((V215))->c.c_cdr = (V216);
2203          goto T836;}          goto T836;}
2204  goto T838;          goto T838;
2205  T838:;  T838:;
2206          V218 = make_fixnum(V209);          V218 = make_fixnum(V209);
2207          V214= make_cons(V218,Cnil);          V214= make_cons(V218,Cnil);
2208          V213= (V214);          V213= (V214);
2209  goto T836;          goto T836;
2210  T836:;  T836:;
2211          V209= (long)(V209)+(1);          V209= (long)(V209)+(1);
2212          goto T831;          goto T831;
2213  goto T832;          goto T832;
2214  T832:;  T832:;
2215          V195= (V213);          V195= (V213);
2216          goto T821;          goto T821;
# Line 2218  T832:; Line 2218  T832:;
2218          goto T821;          goto T821;
2219          V195= Cnil;          V195= Cnil;
2220          goto T821;}}          goto T821;}}
2221  goto T821;          goto T821;
2222  T821:;  T821:;
2223  goto T814;          goto T814;
2224  T814:;  T814:;
2225          if(((V195))==Cnil){          if(((V195))==Cnil){
2226          goto T850;}          goto T850;}
# Line 2233  T814:; Line 2233  T814:;
2233          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2234          Lformat();          Lformat();
2235          vs_top=sup;          vs_top=sup;
2236  goto T850;          goto T850;
2237  T850:;  T850:;
2238          {object V220;          {object V220;
2239          register object V221;          register object V221;
2240          V220= Cnil;          V220= Cnil;
2241          V221= (V195);          V221= (V195);
2242  goto T860;          goto T860;
2243  T860:;  T860:;
2244          if(((V221))==Cnil){          if(((V221))==Cnil){
2245          goto T863;}          goto T863;}
2246          goto T862;          goto T862;
2247  goto T863;          goto T863;
2248  T863:;  T863:;
2249          goto T861;          goto T861;
2250  goto T862;          goto T862;
2251  T862:;  T862:;
2252          {object V222;          {object V222;
2253          V222= car((V221));          V222= car((V221));
# Line 2260  T862:; Line 2260  T862:;
2260          (void)(princ(V223,Cnil));          (void)(princ(V223,Cnil));
2261          V221= cdr((V221));          V221= cdr((V221));
2262          goto T860;          goto T860;
2263  goto T861;          goto T861;
2264  T861:;  T861:;
2265          base[4]= Cnil;          base[4]= Cnil;
2266          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2270  T861:; Line 2270  T861:;
2270          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2271          bds_unwind1;          bds_unwind1;
2272          return;}}          return;}}
2273  goto T722;          goto T722;
2274  T722:;  T722:;
2275          base[3]= Cnil;          base[3]= Cnil;
2276          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2314  TTL:; Line 2314  TTL:;
2314          if(!(type_of(base[0])==t_symbol)){          if(!(type_of(base[0])==t_symbol)){
2315          goto T877;}          goto T877;}
2316          base[0]= get(base[0],VV[68],Cnil);          base[0]= get(base[0],VV[68],Cnil);
2317  goto T877;          goto T877;
2318  T877:;  T877:;
2319          if((base[0])==Cnil){          if((base[0])==Cnil){
2320          goto T882;}          goto T882;}
# Line 2344  T877:; Line 2344  T877:;
2344          if(!(number_compare(V224,small_fixnum(10))<0)){          if(!(number_compare(V224,small_fixnum(10))<0)){
2345          goto T893;}          goto T893;}
2346          (void)(princ(VV[86],base[1]));          (void)(princ(VV[86],base[1]));
2347  goto T893;          goto T893;
2348  T893:;  T893:;
2349          base[3]= base[1];          base[3]= base[1];
2350          base[4]= VV[87];          base[4]= VV[87];
# Line 2364  T893:; Line 2364  T893:;
2364          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2365          Lclose();          Lclose();
2366          vs_top=sup;          vs_top=sup;
2367  goto T902;          goto T902;
2368  T902:;  T902:;
2369          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2370          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
2371          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
2372          return;}}          return;}}
2373  goto T882;          goto T882;
2374  T882:;  T882:;
2375          base[1]= Cnil;          base[1]= Cnil;
2376          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2402  static void L30() Line 2402  static void L30()
2402          V229= Cnil;          V229= Cnil;
2403          V230= Cnil;          V230= Cnil;
2404          V231= Cnil;          V231= Cnil;
2405  goto T907;          goto T907;
2406  T907:;  T907:;
2407          if(((V228))==Cnil){          if(((V228))==Cnil){
2408          goto T910;}          goto T910;}
2409          goto T909;          goto T909;
2410  goto T910;          goto T910;
2411  T910:;  T910:;
2412          goto T908;          goto T908;
2413  goto T909;          goto T909;
2414  T909:;  T909:;
2415          {register object V232;          {register object V232;
2416          V232= car((V228));          V232= car((V228));
# Line 2420  T909:; Line 2420  T909:;
2420          goto T917;}}          goto T917;}}
2421          V231= Cnil;          V231= Cnil;
2422          goto T916;          goto T916;
2423  goto T917;          goto T917;
2424  T917:;  T917:;
2425          base[2]= (V225);          base[2]= (V225);
2426          base[3]= (V227);          base[3]= (V227);
# Line 2428  T917:; Line 2428  T917:;
2428          (void) (*Lnk97)();          (void) (*Lnk97)();
2429          vs_top=sup;          vs_top=sup;
2430          V231= vs_base[0];          V231= vs_base[0];
2431  goto T916;          goto T916;
2432  T916:;  T916:;
2433          if(((V230))==Cnil){          if(((V230))==Cnil){
2434          goto T923;}          goto T923;}
# Line 2440  T916:; Line 2440  T916:;
2440          if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234));          if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234));
2441          ((V234))->c.c_cdr = (V235);          ((V234))->c.c_cdr = (V235);
2442          goto T921;}          goto T921;}
2443  goto T923;          goto T923;
2444  T923:;  T923:;
2445          V230= make_cons((V231),Cnil);          V230= make_cons((V231),Cnil);
2446          V229= (V230);          V229= (V230);
2447  goto T921;          goto T921;
2448  T921:;  T921:;
2449          V228= cdr((V228));          V228= cdr((V228));
2450          goto T907;          goto T907;
2451  goto T908;          goto T908;
2452  T908:;  T908:;
2453          base[2]= (V229);          base[2]= (V229);
2454          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2477  register object *base0; Line 2477  register object *base0;
2477          base[1]= Cnil;          base[1]= Cnil;
2478          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2479          return;          return;
2480  goto T935;          goto T935;
2481  T935:;  T935:;
2482          base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil);          base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil);
2483          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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