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

Diff of /gcl/lsp/top.c

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

revision 1.12 by camm, Wed Feb 26 22:21:37 2003 UTC revision 1.13 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 31  TTL:; Line 31  TTL:;
31          goto T8;}          goto T8;}
32          (VV[12]->s.s_dbind)= Cnil;          (VV[12]->s.s_dbind)= Cnil;
33          goto T6;          goto T6;
34  goto T8;          goto T8;
35  T8:;  T8:;
36          if(!((file_exists(VV[13])))){          if(!((file_exists(VV[13])))){
37          goto T6;}          goto T6;}
# Line 39  T8:; Line 39  T8:;
39          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
40          (void) (*Lnk149)();          (void) (*Lnk149)();
41          vs_top=sup;          vs_top=sup;
42  goto T6;          goto T6;
43  T6:;  T6:;
44          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
45          base[11]= (VV[16]->s.s_dbind);          base[11]= (VV[16]->s.s_dbind);
# Line 55  T6:; Line 55  T6:;
55          goto T15;}          goto T15;}
56          frs_pop();          frs_pop();
57          goto T3;          goto T3;
58  goto T15;          goto T15;
59  T15:;  T15:;
60          V1= (          V1= (
61          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):
62          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());
63          frs_pop();}          frs_pop();}
64  goto T3;          goto T3;
65  T3:;  T3:;
66  goto T19;          goto T19;
67  T19:;  T19:;
68          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
69          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
# Line 72  T19:; Line 72  T19:;
72          goto T29;}          goto T29;}
73          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
74          goto T27;          goto T27;
75  goto T29;          goto T29;
76  T29:;  T29:;
77          base[10]= Ct;          base[10]= Ct;
78          base[11]= VV[19];{VOL object V2;          base[11]= VV[19];{VOL object V2;
# Line 86  T29:; Line 86  T29:;
86          goto T36;}}          goto T36;}}
87          base[12]= VV[22];          base[12]= VV[22];
88          goto T34;          goto T34;
89  goto T36;          goto T36;
90  T36:;  T36:;
91          base[13]= (VV[20]->s.s_dbind);          base[13]= (VV[20]->s.s_dbind);
92          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
93          Lpackage_name();          Lpackage_name();
94          vs_top=sup;          vs_top=sup;
95          base[12]= vs_base[0];          base[12]= vs_base[0];
96  goto T34;          goto T34;
97  T34:;  T34:;
98          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
99          Lformat();          Lformat();
100          vs_top=sup;          vs_top=sup;
101  goto T27;          goto T27;
102  T27:;  T27:;
103          vs_base=vs_top;          vs_base=vs_top;
104          siLreset_stack_limits();          siLreset_stack_limits();
# Line 117  T27:; Line 117  T27:;
117          bds_unwind1;          bds_unwind1;
118          bds_unwind1;          bds_unwind1;
119          VMR1(V4)}          VMR1(V4)}
120  goto T42;          goto T42;
121  T42:;  T42:;
122          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
123          if(nlj_active)          if(nlj_active)
# Line 136  T42:; Line 136  T42:;
136          vs_base=vs_top;          vs_base=vs_top;
137          Lby();          Lby();
138          vs_top=sup;          vs_top=sup;
139  goto T53;          goto T53;
140  T53:;  T53:;
141          {object V5;          {object V5;
142          base[10]= (VV[3]->s.s_dbind);          base[10]= (VV[3]->s.s_dbind);
# Line 157  T53:; Line 157  T53:;
157          register object V7;          register object V7;
158          V6= (VV[7]->s.s_dbind);          V6= (VV[7]->s.s_dbind);
159          V7= CMPcar((V6));          V7= CMPcar((V6));
160  goto T76;          goto T76;
161  T76:;  T76:;
162          if(!(((V6))==Cnil)){          if(!(((V6))==Cnil)){
163          goto T77;}          goto T77;}
164          goto T72;          goto T72;
165  goto T77;          goto T77;
166  T77:;  T77:;
167          base[11]= (V7);          base[11]= (V7);
168          (void)simple_symlispcall(VV[153],base+11,1);          (void)simple_symlispcall(VV[153],base+11,1);
# Line 170  T77:; Line 170  T77:;
170          V6= CMPcdr((V6));          V6= CMPcdr((V6));
171          V7= CMPcar((V6));          V7= CMPcar((V6));
172          goto T76;}          goto T76;}
173  goto T72;          goto T72;
174  T72:;  T72:;
175          frs_pop();          frs_pop();
176          goto T20;}}          goto T20;}}
177  goto T46;          goto T46;
178  T46:;  T46:;
179          (VV[25]->s.s_dbind)= Cnil;          (VV[25]->s.s_dbind)= Cnil;
180          (VV[26]->s.s_dbind)= Cnil;          (VV[26]->s.s_dbind)= Cnil;
# Line 182  T46:; Line 182  T46:;
182          vs_base=vs_top;          vs_base=vs_top;
183          (void) (*Lnk154)();          (void) (*Lnk154)();
184          vs_top=sup;          vs_top=sup;
185  goto T20;          goto T20;
186  T20:;  T20:;
187          goto T19;          goto T19;
188          base[0]=base[0];          base[0]=base[0];
# Line 199  static void L2() Line 199  static void L2()
199          vs_top=sup;          vs_top=sup;
200          goto TTL;          goto TTL;
201  TTL:;  TTL:;
202  goto T96;          goto T96;
203  T96:;  T96:;
204          {register object V9;          {register object V9;
205          register object V10;          register object V10;
# Line 212  T96:; Line 212  T96:;
212          (void) (*Lnk149)();          (void) (*Lnk149)();
213          vs_top=sup;          vs_top=sup;
214          goto T100;          goto T100;
215  goto T102;          goto T102;
216  T102:;  T102:;
217          if(!(equal((V9),VV[29]))){          if(!(equal((V9),VV[29]))){
218          goto T106;}          goto T106;}
# Line 225  T102:; Line 225  T102:;
225          Leval();          Leval();
226          vs_top=sup;          vs_top=sup;
227          goto T100;          goto T100;
228  goto T106;          goto T106;
229  T106:;  T106:;
230          V10= Ct;          V10= Ct;
231  goto T100;          goto T100;
232  T100:;  T100:;
233          if((V10)!=Cnil){          if((V10)!=Cnil){
234          goto T111;}          goto T111;}
235          V8= CMPcdr((V8));          V8= CMPcdr((V8));
236  goto T111;          goto T111;
237  T111:;  T111:;
238          V8= CMPcdr((V8));}          V8= CMPcdr((V8));}
239          if((V8)!=Cnil){          if((V8)!=Cnil){
# Line 241  T111:; Line 241  T111:;
241          base[1]= Cnil;          base[1]= Cnil;
242          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
243          return;          return;
244  goto T97;          goto T97;
245  T97:;  T97:;
246          goto T96;          goto T96;
247          }          }
# Line 265  static void L3() Line 265  static void L3()
265          V13=(base[2]);          V13=(base[2]);
266          vs_top=sup;          vs_top=sup;
267          goto T118;          goto T118;
268  goto T115;          goto T115;
269  T115:;  T115:;
270          V11= (VV[23]->s.s_dbind);          V11= (VV[23]->s.s_dbind);
271  goto T116;          goto T116;
272  T116:;  T116:;
273          V12= Ct;          V12= Ct;
274  goto T117;          goto T117;
275  T117:;  T117:;
276          V13= Cnil;          V13= Cnil;
277  goto T118;          goto T118;
278  T118:;  T118:;
279          {object V14;          {object V14;
280          register object V15;          register object V15;
281          V14= Cnil;          V14= Cnil;
282          V15= Cnil;          V15= Cnil;
283  goto T126;          goto T126;
284  T126:;  T126:;
285          base[3]= (V11);          base[3]= (V11);
286          base[4]= (V12);          base[4]= (V12);
# Line 292  T126:; Line 292  T126:;
292          if(!(eql((V15),VV[30]))){          if(!(eql((V15),VV[30]))){
293          goto T134;}          goto T134;}
294          goto T126;          goto T126;
295  goto T134;          goto T134;
296  T134:;  T134:;
297          if(!(((V15))==((V13)))){          if(!(((V15))==((V13)))){
298          goto T132;}          goto T132;}
299          base[3]= (V13);          base[3]= (V13);
300          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
301          return;          return;
302  goto T132;          goto T132;
303  T132:;  T132:;
304          base[3]= (V15);          base[3]= (V15);
305          base[4]= (V11);          base[4]= (V11);
# Line 307  T132:; Line 307  T132:;
307          Lunread_char();          Lunread_char();
308          vs_top=sup;          vs_top=sup;
309          goto T124;          goto T124;
310  goto T124;          goto T124;
311  T124:;  T124:;
312          if(!(eql(VV[31],(V15)))){          if(!(eql(VV[31],(V15)))){
313          goto T142;}          goto T142;}
# Line 334  T124:; Line 334  T124:;
334          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
335          Lread();          Lread();
336          return;          return;
337  goto T142;          goto T142;
338  T142:;  T142:;
339          base[3]= (V11);          base[3]= (V11);
340          base[4]= (V12);          base[4]= (V12);
# Line 359  static void L4() Line 359  static void L4()
359          V17=(base[1]);          V17=(base[1]);
360          vs_top=sup;          vs_top=sup;
361          goto T160;          goto T160;
362  goto T159;          goto T159;
363  T159:;  T159:;
364          V17= Cnil;          V17= Cnil;
365  goto T160;          goto T160;
366  T160:;  T160:;
367          {VOL object V18;          {VOL object V18;
368          if(!(type_of((V16))==t_string)){          if(!(type_of((V16))==t_string)){
369          goto T164;}          goto T164;}
370          bds_bind(VV[34],(V16));          bds_bind(VV[34],(V16));
371          goto T162;          goto T162;
372  goto T164;          goto T164;
373  T164:;  T164:;
374          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
375  goto T162;          goto T162;
376  T162:;  T162:;
377          V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));          V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));
378          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));
# Line 381  T162:; Line 381  T162:;
381          goto T170;}          goto T170;}
382          bds_bind(VV[36],(VV[36]->s.s_dbind));          bds_bind(VV[36],(VV[36]->s.s_dbind));
383          goto T168;          goto T168;
384  goto T170;          goto T170;
385  T170:;  T170:;
386          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));
387  goto T168;          goto T168;
388  T168:;  T168:;
389          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));
390          vs_base=vs_top;          vs_base=vs_top;
# Line 402  T168:; Line 402  T168:;
402          if(V21==Cnil)goto T176;          if(V21==Cnil)goto T176;
403          bds_bind(VV[40],V21);          bds_bind(VV[40],V21);
404          goto T175;          goto T175;
405  goto T176;          goto T176;
406  T176:;}  T176:;}
407          vs_base=vs_top;          vs_base=vs_top;
408          (void) (*Lnk160)();          (void) (*Lnk160)();
409          vs_top=sup;          vs_top=sup;
410          V22= vs_base[0];          V22= vs_base[0];
411          bds_bind(VV[40],one_plus(V22));          bds_bind(VV[40],one_plus(V22));
412  goto T175;          goto T175;
413  T175:;  T175:;
414          vs_base=vs_top;          vs_base=vs_top;
415          (void) (*Lnk160)();          (void) (*Lnk160)();
# Line 421  T175:; Line 421  T175:;
421          goto T185;}          goto T185;}
422          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
423          goto T183;          goto T183;
424  goto T185;          goto T185;
425  T185:;  T185:;
426          bds_bind(VV[43],(V18));          bds_bind(VV[43],(V18));
427  goto T183;          goto T183;
428  T183:;  T183:;
429          if((VV[45]->s.s_dbind)!=Cnil){          if((VV[45]->s.s_dbind)!=Cnil){
430          bds_bind(VV[44],(VV[45]->s.s_dbind));          bds_bind(VV[44],(VV[45]->s.s_dbind));
431          goto T187;}          goto T187;}
432          bds_bind(VV[44],(VV[44]->s.s_dbind));          bds_bind(VV[44],(VV[44]->s.s_dbind));
433  goto T187;          goto T187;
434  T187:;  T187:;
435          bds_bind(VV[46],Cnil);          bds_bind(VV[46],Cnil);
436          bds_bind(VV[0],(VV[0]->s.s_dbind));          bds_bind(VV[0],(VV[0]->s.s_dbind));
# Line 454  T187:; Line 454  T187:;
454          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
455          (void) (*Lnk162)();          (void) (*Lnk162)();
456          vs_top=sup;          vs_top=sup;
457  goto T188;          goto T188;
458  T188:;  T188:;
459          base[25]= small_fixnum(1);          base[25]= small_fixnum(1);
460          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
# Line 467  T188:; Line 467  T188:;
467          princ_char(10,VV[27]);          princ_char(10,VV[27]);
468          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
469          goto T199;          goto T199;
470  goto T201;          goto T201;
471  T201:;  T201:;
472          base[25]= (V16);          base[25]= (V16);
473          base[26]= (V17);          base[26]= (V17);
474          vs_top=(vs_base=base+25)+2;          vs_top=(vs_base=base+25)+2;
475          (void) (*Lnk165)();          (void) (*Lnk165)();
476          vs_top=sup;          vs_top=sup;
477  goto T199;          goto T199;
478  T199:;  T199:;
479  goto T209;          goto T209;
480  T209:;  T209:;
481          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
482          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
# Line 485  T209:; Line 485  T209:;
485          goto T219;}          goto T219;}
486          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
487          goto T217;          goto T217;
488  goto T219;          goto T219;
489  T219:;  T219:;
490          base[25]= (VV[48]->s.s_dbind);          base[25]= (VV[48]->s.s_dbind);
491          base[26]= VV[49];          base[26]= VV[49];
# Line 493  T219:; Line 493  T219:;
493          goto T226;}          goto T226;}
494          base[27]= VV[50];          base[27]= VV[50];
495          goto T224;          goto T224;
496  goto T226;          goto T226;
497  T226:;  T226:;
498          base[27]= VV[51];          base[27]= VV[51];
499  goto T224;          goto T224;
500  T224:;{VOL object V23;  T224:;{VOL object V23;
501          V23= (VV[20]->s.s_dbind);          V23= (VV[20]->s.s_dbind);
502          base[29]= VV[21];          base[29]= VV[21];
# Line 508  T224:;{VOL object V23; Line 508  T224:;{VOL object V23;
508          goto T230;}}          goto T230;}}
509          base[28]= VV[52];          base[28]= VV[52];
510          goto T228;          goto T228;
511  goto T230;          goto T230;
512  T230:;  T230:;
513          base[29]= (VV[20]->s.s_dbind);          base[29]= (VV[20]->s.s_dbind);
514          vs_top=(vs_base=base+29)+1;          vs_top=(vs_base=base+29)+1;
515          Lpackage_name();          Lpackage_name();
516          vs_top=sup;          vs_top=sup;
517          base[28]= vs_base[0];          base[28]= vs_base[0];
518  goto T228;          goto T228;
519  T228:;  T228:;
520          base[29]= (VV[36]->s.s_dbind);          base[29]= (VV[36]->s.s_dbind);
521          vs_top=(vs_base=base+25)+5;          vs_top=(vs_base=base+25)+5;
522          Lformat();          Lformat();
523          vs_top=sup;          vs_top=sup;
524  goto T217;          goto T217;
525  T217:;  T217:;
526          base[25]= (VV[27]->s.s_dbind);          base[25]= (VV[27]->s.s_dbind);
527          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
# Line 557  T217:; Line 557  T217:;
557          vs_base=vs_top;          vs_base=vs_top;
558          Lby();          Lby();
559          vs_top=sup;          vs_top=sup;
560  goto T247;          goto T247;
561  T247:;  T247:;
562          {object V25;          {object V25;
563          object V26;          object V26;
# Line 565  T247:; Line 565  T247:;
565          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
566          goto T254;}          goto T254;}
567          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
568  goto T254;          goto T254;
569  T254:;  T254:;
570          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
571          goto T259;}          goto T259;}
# Line 578  T254:; Line 578  T254:;
578          base[28]= VV[54];          base[28]= VV[54];
579          symlispcall(VV[167],base+26,3);          symlispcall(VV[167],base+26,3);
580          goto T253;          goto T253;
581  goto T259;          goto T259;
582  T259:;  T259:;
583          base[26]= (VV[3]->s.s_dbind);          base[26]= (VV[3]->s.s_dbind);
584          base[27]= Cnil;          base[27]= Cnil;
585          base[28]= Cnil;          base[28]= Cnil;
586          base[29]= (VV[42]->s.s_dbind);          base[29]= (VV[42]->s.s_dbind);
587          symlispcall(VV[168],base+26,4);          symlispcall(VV[168],base+26,4);
588  goto T253;          goto T253;
589  T253:;  T253:;
590          Llist();          Llist();
591          vs_top=sup;          vs_top=sup;
# Line 595  T253:; Line 595  T253:;
595          if((CMPcar((V26)))==(VV[55])){          if((CMPcar((V26)))==(VV[55])){
596          goto T273;}          goto T273;}
597          goto T272;          goto T272;
598  goto T273;          goto T273;
599  T273:;  T273:;
600          frs_pop();          frs_pop();
601          frs_pop();          frs_pop();
# Line 625  T273:; Line 625  T273:;
625          bds_unwind1;          bds_unwind1;
626          bds_unwind1;          bds_unwind1;
627          return;          return;
628  goto T272;          goto T272;
629  T272:;  T272:;
630          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
631          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
# Line 641  T272:; Line 641  T272:;
641          register object V29;          register object V29;
642          V28= (VV[7]->s.s_dbind);          V28= (VV[7]->s.s_dbind);
643          V29= CMPcar((V28));          V29= CMPcar((V28));
644  goto T292;          goto T292;
645  T292:;  T292:;
646          if(!(((V28))==Cnil)){          if(!(((V28))==Cnil)){
647          goto T293;}          goto T293;}
648          goto T250;          goto T250;
649  goto T293;          goto T293;
650  T293:;  T293:;
651          base[27]= (V29);          base[27]= (V29);
652          base[28]= (VV[48]->s.s_dbind);          base[28]= (VV[48]->s.s_dbind);
# Line 655  T293:; Line 655  T293:;
655          V28= CMPcdr((V28));          V28= CMPcdr((V28));
656          V29= CMPcar((V28));          V29= CMPcar((V28));
657          goto T292;}}          goto T292;}}
658  goto T250;          goto T250;
659  T250:;  T250:;
660          frs_pop();          frs_pop();
661          frs_pop();          frs_pop();
662          goto T210;}}          goto T210;}}
663  goto T239;          goto T239;
664  T239:;  T239:;
665          princ_char(10,VV[48]);          princ_char(10,VV[48]);
666          vs_base=vs_top;          vs_base=vs_top;
667          (void) (*Lnk154)();          (void) (*Lnk154)();
668          vs_top=sup;          vs_top=sup;
669  goto T210;          goto T210;
670  T210:;  T210:;
671          goto T209;}          goto T209;}
672          }          }
# Line 705  static object LI5(object V30,object firs Line 705  static object LI5(object V30,object firs
705          bds_unwind1;          bds_unwind1;
706          bds_unwind1;          bds_unwind1;
707          VMR5(V35)}          VMR5(V35)}
708  goto T309;          goto T309;
709  T309:;  T309:;
710          base[3]= (VV[27]->s.s_dbind);          base[3]= (VV[27]->s.s_dbind);
711          base[4]= VV[61];          base[4]= VV[61];
# Line 805  static object LI6(object V42,object V41, Line 805  static object LI6(object V42,object V41,
805          Lformat();          Lformat();
806          vs_top=sup;          vs_top=sup;
807          goto T341;          goto T341;
808  goto T343;          goto T343;
809  T343:;  T343:;
810          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
811          base[5]= VV[67];          base[5]= VV[67];
812          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
813          Lformat();          Lformat();
814          vs_top=sup;          vs_top=sup;
815  goto T341;          goto T341;
816  T341:;  T341:;
817          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
818          base[5]= VV[68];          base[5]= VV[68];
# Line 833  T341:; Line 833  T341:;
833          bds_unwind1;          bds_unwind1;
834          bds_unwind1;          bds_unwind1;
835          goto T321;          goto T321;
836  goto T324;          goto T324;
837  T324:;  T324:;
838          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
839          base[5]= VV[70];          base[5]= VV[70];
# Line 860  T324:; Line 860  T324:;
860          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
861          Lformat();          Lformat();
862          vs_top=sup;          vs_top=sup;
863  goto T365;          goto T365;
864  T365:;  T365:;
865          base[4]= Cnil;          base[4]= Cnil;
866          base[5]= (V47);          base[5]= (V47);
# Line 886  T365:; Line 886  T365:;
886          bds_unwind1;          bds_unwind1;
887          bds_unwind1;          bds_unwind1;
888          goto T321;          goto T321;
889  goto T376;          goto T376;
890  T376:;  T376:;
891          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
892          base[5]= VV[74];          base[5]= VV[74];
# Line 897  T376:; Line 897  T376:;
897          bds_unwind1;          bds_unwind1;
898          bds_unwind1;          bds_unwind1;
899          bds_unwind1;          bds_unwind1;
900  goto T321;          goto T321;
901  T321:;  T321:;
902          base[0]= (VV[27]->s.s_dbind);          base[0]= (VV[27]->s.s_dbind);
903          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 915  T321:; Line 915  T321:;
915          base[0]= (VV[11]->s.s_dbind);          base[0]= (VV[11]->s.s_dbind);
916          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
917          unwind(fr,(VV[11]->s.s_dbind));}          unwind(fr,(VV[11]->s.s_dbind));}
918  goto T388;          goto T388;
919  T388:;  T388:;
920          {object V55 = Cnil;          {object V55 = Cnil;
921          VMR6(V55)}}          VMR6(V55)}}
# Line 939  static object LI7(object first,...) Line 939  static object LI7(object first,...)
939          else {          else {
940          V56= first;}          V56= first;}
941          --narg; goto T392;          --narg; goto T392;
942  goto T391;          goto T391;
943  T391:;  T391:;
944          V56= Cnil;          V56= Cnil;
945  goto T392;          goto T392;
946  T392:;  T392:;
947          V58 = list_vector_new(narg,first,ap);          V58 = list_vector_new(narg,first,ap);
948          V57= V58;          V57= V58;
# Line 989  T392:; Line 989  T392:;
989          bds_unwind1;          bds_unwind1;
990          bds_unwind1;          bds_unwind1;
991          goto T395;          goto T395;
992  goto T398;          goto T398;
993  T398:;  T398:;
994          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
995          base[5]= VV[76];          base[5]= VV[76];
# Line 1001  T398:; Line 1001  T398:;
1001          bds_unwind1;          bds_unwind1;
1002          bds_unwind1;          bds_unwind1;
1003          bds_unwind1;          bds_unwind1;
1004  goto T395;          goto T395;
1005  T395:;  T395:;
1006          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1007          base[1]= (V59);          base[1]= (V59);
# Line 1035  TTL:; Line 1035  TTL:;
1035          {object V65 = vs_base[0];          {object V65 = vs_base[0];
1036          bds_unwind1;          bds_unwind1;
1037          VMR8(V65)}          VMR8(V65)}
1038  goto T419;          goto T419;
1039  T419:;  T419:;
1040          base[1]= VV[80];          base[1]= VV[80];
1041          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1063  static void L9() Line 1063  static void L9()
1063          V69=(base[2]);          V69=(base[2]);
1064          vs_top=sup;          vs_top=sup;
1065          goto T425;          goto T425;
1066  goto T424;          goto T424;
1067  T424:;  T424:;
1068          V69= VV[54];          V69= VV[54];
1069  goto T425;          goto T425;
1070  T425:;  T425:;
1071          {register object V70;          {register object V70;
1072          V70= Cnil;          V70= Cnil;
# Line 1082  T425:; Line 1082  T425:;
1082          base[3]= Cnil;          base[3]= Cnil;
1083          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1084          return;          return;
1085  goto T433;          goto T433;
1086  T433:;  T433:;
1087          {object V71 =((V70))->s.s_plist;          {object V71 =((V70))->s.s_plist;
1088           object ind= (V69);           object ind= (V69);
# Line 1092  T433:; Line 1092  T433:;
1092          goto T435;          goto T435;
1093          }else V71=V71->c.c_cdr->c.c_cdr;}          }else V71=V71->c.c_cdr->c.c_cdr;}
1094          V70= Cnil;}          V70= Cnil;}
1095  goto T435;          goto T435;
1096  T435:;  T435:;
1097          if(((V70))==Cnil){          if(((V70))==Cnil){
1098          goto T437;}          goto T437;}
# Line 1100  T435:; Line 1100  T435:;
1100          if(!(type_of((V70))==t_symbol)){          if(!(type_of((V70))==t_symbol)){
1101          goto T442;}          goto T442;}
1102          goto T441;          goto T441;
1103  goto T442;          goto T442;
1104  T442:;  T442:;
1105          V68= make_cons(VV[82],(V68));          V68= make_cons(VV[82],(V68));
1106  goto T441;          goto T441;
1107  T441:;  T441:;
1108          base[3]= (V68);          base[3]= (V68);
1109          base[4]= Cnil;          base[4]= Cnil;
# Line 1112  T441:; Line 1112  T441:;
1112          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1113          Levalhook();          Levalhook();
1114          return;          return;
1115  goto T437;          goto T437;
1116  T437:;  T437:;
1117          base[3]= (VV[48]->s.s_dbind);          base[3]= (VV[48]->s.s_dbind);
1118          base[4]= VV[83];          base[4]= VV[83];
# Line 1133  static void L10() Line 1133  static void L10()
1133          V72=(base[0]);          V72=(base[0]);
1134          vs_top=sup;          vs_top=sup;
1135          goto T453;          goto T453;
1136  goto T452;          goto T452;
1137  T452:;  T452:;
1138          V72= small_fixnum(0);          V72= small_fixnum(0);
1139  goto T453;          goto T453;
1140  T453:;  T453:;
1141          {object V73;          {object V73;
1142          V73= make_fixnum((long)length((VV[36]->s.s_dbind)));          V73= make_fixnum((long)length((VV[36]->s.s_dbind)));
# Line 1160  T453:; Line 1160  T453:;
1160          base[3]= CMPcdr((V74));          base[3]= CMPcdr((V74));
1161          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1162          unwind(fr,base[2]);}}          unwind(fr,base[2]);}}
1163  goto T456;          goto T456;
1164  T456:;  T456:;
1165          vs_base=vs_top;          vs_base=vs_top;
1166          (void) (*Lnk154)();          (void) (*Lnk154)();
# Line 1178  static void L11() Line 1178  static void L11()
1178          V76=(base[0]);          V76=(base[0]);
1179          vs_top=sup;          vs_top=sup;
1180          goto T469;          goto T469;
1181  goto T468;          goto T468;
1182  T468:;  T468:;
1183          V76= small_fixnum(1);          V76= small_fixnum(1);
1184  goto T469;          goto T469;
1185  T469:;  T469:;
1186          {register object V77;          {register object V77;
1187          V77= one_minus((VV[39]->s.s_dbind));          V77= one_minus((VV[39]->s.s_dbind));
1188  goto T473;          goto T473;
1189  T473:;  T473:;
1190          if(number_compare((V77),(VV[37]->s.s_dbind))<0){          if(number_compare((V77),(VV[37]->s.s_dbind))<0){
1191          goto T475;}          goto T475;}
1192          if(!(number_compare((V76),small_fixnum(0))<=0)){          if(!(number_compare((V76),small_fixnum(0))<=0)){
1193          goto T474;}          goto T474;}
1194  goto T475;          goto T475;
1195  T475:;  T475:;
1196          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1197          vs_base=vs_top;          vs_base=vs_top;
1198          (void) (*Lnk154)();          (void) (*Lnk154)();
1199          return;          return;
1200  goto T474;          goto T474;
1201  T474:;  T474:;
1202          if(((*(LnkLI173))((V77)))==Cnil){          if(((*(LnkLI173))((V77)))==Cnil){
1203          goto T481;}          goto T481;}
1204          (VV[39]->s.s_dbind)= (V77);          (VV[39]->s.s_dbind)= (V77);
1205          V76= one_minus((V76));          V76= one_minus((V76));
1206  goto T481;          goto T481;
1207  T481:;  T481:;
1208          V77= one_minus((V77));          V77= one_minus((V77));
1209          goto T473;}          goto T473;}
# Line 1218  static object LI12() Line 1218  static object LI12()
1218  TTL:;  TTL:;
1219          {register object V78;          {register object V78;
1220          V78= (VV[39]->s.s_dbind);          V78= (VV[39]->s.s_dbind);
1221  goto T491;          goto T491;
1222  T491:;  T491:;
1223          if(((*(LnkLI173))((V78)))!=Cnil){          if(((*(LnkLI173))((V78)))!=Cnil){
1224          goto T493;}          goto T493;}
1225          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){
1226          goto T492;}          goto T492;}
1227  goto T493;          goto T493;
1228  T493:;  T493:;
1229          (VV[39]->s.s_dbind)= (V78);          (VV[39]->s.s_dbind)= (V78);
1230          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
# Line 1241  T493:; Line 1241  T493:;
1241          vs_top=sup;          vs_top=sup;
1242          {object V79 = vs_base[0];          {object V79 = vs_base[0];
1243          VMR12(V79)}          VMR12(V79)}
1244  goto T492;          goto T492;
1245  T492:;  T492:;
1246          V78= one_minus((V78));          V78= one_minus((V78));
1247          goto T491;}          goto T491;}
# Line 1259  static void L13() Line 1259  static void L13()
1259          V80=(base[0]);          V80=(base[0]);
1260          vs_top=sup;          vs_top=sup;
1261          goto T510;          goto T510;
1262  goto T509;          goto T509;
1263  T509:;  T509:;
1264          V80= small_fixnum(1);          V80= small_fixnum(1);
1265  goto T510;          goto T510;
1266  T510:;  T510:;
1267          {register object V81;          {register object V81;
1268          V81= (VV[39]->s.s_dbind);          V81= (VV[39]->s.s_dbind);
1269  goto T513;          goto T513;
1270  T513:;  T513:;
1271          if(number_compare((V81),(VV[38]->s.s_dbind))>0){          if(number_compare((V81),(VV[38]->s.s_dbind))>0){
1272          goto T515;}          goto T515;}
1273          if(!(number_compare((V80),small_fixnum(0))<0)){          if(!(number_compare((V80),small_fixnum(0))<0)){
1274          goto T514;}          goto T514;}
1275  goto T515;          goto T515;
1276  T515:;  T515:;
1277          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1278          vs_base=vs_top;          vs_base=vs_top;
1279          (void) (*Lnk154)();          (void) (*Lnk154)();
1280          return;          return;
1281  goto T514;          goto T514;
1282  T514:;  T514:;
1283          if(((*(LnkLI173))((V81)))==Cnil){          if(((*(LnkLI173))((V81)))==Cnil){
1284          goto T521;}          goto T521;}
1285          (VV[39]->s.s_dbind)= (V81);          (VV[39]->s.s_dbind)= (V81);
1286          V80= one_minus((V80));          V80= one_minus((V80));
1287  goto T521;          goto T521;
1288  T521:;  T521:;
1289          V81= one_plus((V81));          V81= one_plus((V81));
1290          goto T513;}          goto T513;}
# Line 1309  TTL:; Line 1309  TTL:;
1309          vs_base=vs_top;          vs_base=vs_top;
1310          (void) (*Lnk154)();          (void) (*Lnk154)();
1311          return;          return;
1312  goto T533;          goto T533;
1313  T533:;  T533:;
1314          vs_base=vs_top;          vs_base=vs_top;
1315          (void) (*Lnk175)();          (void) (*Lnk175)();
# Line 1346  static void L16() Line 1346  static void L16()
1346          V85=(base[1]);          V85=(base[1]);
1347          vs_top=sup;          vs_top=sup;
1348          goto T540;          goto T540;
1349  goto T538;          goto T538;
1350  T538:;  T538:;
1351          V84= (VV[42]->s.s_dbind);          V84= (VV[42]->s.s_dbind);
1352  goto T539;          goto T539;
1353  T539:;  T539:;
1354          V85= (VV[48]->s.s_dbind);          V85= (VV[48]->s.s_dbind);
1355  goto T540;          goto T540;
1356  T540:;  T540:;
1357          if(!(((long)length((V84)))==(3))){          if(!(((long)length((V84)))==(3))){
1358          goto T544;}          goto T544;}
1359          goto T543;          goto T543;
1360  goto T544;          goto T544;
1361  T544:;  T544:;
1362          base[2]= VV[85];          base[2]= VV[85];
1363          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1364          Lerror();          Lerror();
1365          vs_top=sup;          vs_top=sup;
1366  goto T543;          goto T543;
1367  T543:;  T543:;
1368          {register object V86;          {register object V86;
1369          V86= VV[86];          V86= VV[86];
# Line 1377  T543:; Line 1377  T543:;
1377          V87= Cnil;          V87= Cnil;
1378          goto T551;}          goto T551;}
1379          base[5]=V88=MMcons(Cnil,Cnil);          base[5]=V88=MMcons(Cnil,Cnil);
1380  goto T552;          goto T552;
1381  T552:;  T552:;
1382          (V88->c.c_car)= CMPcar((V89->c.c_car));          (V88->c.c_car)= CMPcar((V89->c.c_car));
1383          if((V89=MMcdr(V89))==Cnil){          if((V89=MMcdr(V89))==Cnil){
# Line 1385  T552:; Line 1385  T552:;
1385          goto T551;}          goto T551;}
1386          V88=MMcdr(V88)=MMcons(Cnil,Cnil);          V88=MMcdr(V88)=MMcons(Cnil,Cnil);
1387          goto T552;}          goto T552;}
1388  goto T551;          goto T551;
1389  T551:;  T551:;
1390           vs_top=base+5;           vs_top=base+5;
1391           while(V87!=Cnil)           while(V87!=Cnil)
# Line 1403  T551:; Line 1403  T551:;
1403          V90= Cnil;          V90= Cnil;
1404          goto T558;}          goto T558;}
1405          base[5]=V91=MMcons(Cnil,Cnil);          base[5]=V91=MMcons(Cnil,Cnil);
1406  goto T559;          goto T559;
1407  T559:;  T559:;
1408          (V91->c.c_car)= CMPcar((V92->c.c_car));          (V91->c.c_car)= CMPcar((V92->c.c_car));
1409          if((V92=MMcdr(V92))==Cnil){          if((V92=MMcdr(V92))==Cnil){
# Line 1411  T559:; Line 1411  T559:;
1411          goto T558;}          goto T558;}
1412          V91=MMcdr(V91)=MMcons(Cnil,Cnil);          V91=MMcdr(V91)=MMcons(Cnil,Cnil);
1413          goto T559;}          goto T559;}
1414  goto T558;          goto T558;
1415  T558:;  T558:;
1416           vs_top=base+5;           vs_top=base+5;
1417           while(V90!=Cnil)           while(V90!=Cnil)
# Line 1429  T558:; Line 1429  T558:;
1429          V93= Cnil;          V93= Cnil;
1430          goto T565;}          goto T565;}
1431          base[5]=V94=MMcons(Cnil,Cnil);          base[5]=V94=MMcons(Cnil,Cnil);
1432  goto T566;          goto T566;
1433  T566:;  T566:;
1434          if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){          if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){
1435          goto T569;}          goto T569;}
1436          (V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil);          (V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil);
1437          goto T567;          goto T567;
1438  goto T569;          goto T569;
1439  T569:;  T569:;
1440          (V94->c.c_cdr)= Cnil;          (V94->c.c_cdr)= Cnil;
1441  goto T567;          goto T567;
1442  T567:;  T567:;
1443          while(MMcdr(V94)!=Cnil)V94=MMcdr(V94);          while(MMcdr(V94)!=Cnil)V94=MMcdr(V94);
1444          if((V95=MMcdr(V95))==Cnil){          if((V95=MMcdr(V95))==Cnil){
# Line 1446  T567:; Line 1446  T567:;
1446          V93= base[5];          V93= base[5];
1447          goto T565;}          goto T565;}
1448          goto T566;}          goto T566;}
1449  goto T565;          goto T565;
1450  T565:;  T565:;
1451           vs_top=base+5;           vs_top=base+5;
1452           while(V93!=Cnil)           while(V93!=Cnil)
# Line 1464  T565:; Line 1464  T565:;
1464          V97= Cnil;          V97= Cnil;
1465          goto T574;}          goto T574;}
1466          base[5]=V98=MMcons(Cnil,Cnil);          base[5]=V98=MMcons(Cnil,Cnil);
1467  goto T575;          goto T575;
1468  T575:;  T575:;
1469          if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){          if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){
1470          goto T578;}          goto T578;}
1471          (V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil);          (V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil);
1472          goto T576;          goto T576;
1473  goto T578;          goto T578;
1474  T578:;  T578:;
1475          (V98->c.c_cdr)= Cnil;          (V98->c.c_cdr)= Cnil;
1476  goto T576;          goto T576;
1477  T576:;  T576:;
1478          while(MMcdr(V98)!=Cnil)V98=MMcdr(V98);          while(MMcdr(V98)!=Cnil)V98=MMcdr(V98);
1479          if((V99=MMcdr(V99))==Cnil){          if((V99=MMcdr(V99))==Cnil){
# Line 1481  T576:; Line 1481  T576:;
1481          V97= base[5];          V97= base[5];
1482          goto T574;}          goto T574;}
1483          goto T575;}          goto T575;}
1484  goto T574;          goto T574;
1485  T574:;  T574:;
1486           vs_top=base+5;           vs_top=base+5;
1487           while(V97!=Cnil)           while(V97!=Cnil)
# Line 1506  static void L17() Line 1506  static void L17()
1506          V102=(base[1]);          V102=(base[1]);
1507          vs_top=sup;          vs_top=sup;
1508          goto T582;          goto T582;
1509  goto T580;          goto T580;
1510  T580:;  T580:;
1511          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1512          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1513          (void) (*Lnk176)();          (void) (*Lnk176)();
1514          vs_top=sup;          vs_top=sup;
1515          V101= vs_base[0];          V101= vs_base[0];
1516  goto T581;          goto T581;
1517  T581:;  T581:;
1518          base[2]= (VV[38]->s.s_dbind);          base[2]= (VV[38]->s.s_dbind);
1519          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1520          (void) (*Lnk176)();          (void) (*Lnk176)();
1521          vs_top=sup;          vs_top=sup;
1522          V102= vs_base[0];          V102= vs_base[0];
1523  goto T582;          goto T582;
1524  T582:;  T582:;
1525          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1526          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1537  T582:; Line 1537  T582:;
1537          V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105);          V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105);
1538          {register object V106;          {register object V106;
1539          V106= (VV[37]->s.s_dbind);          V106= (VV[37]->s.s_dbind);
1540  goto T596;          goto T596;
1541  T596:;  T596:;
1542          if(number_compare((V106),(VV[38]->s.s_dbind))>=0){          if(number_compare((V106),(VV[38]->s.s_dbind))>=0){
1543          goto T598;}          goto T598;}
# Line 1548  T596:; Line 1548  T596:;
1548          V107= vs_base[0];          V107= vs_base[0];
1549          if(!(number_compare(V107,(V101))>=0)){          if(!(number_compare(V107,(V101))>=0)){
1550          goto T597;}          goto T597;}
1551  goto T598;          goto T598;
1552  T598:;  T598:;
1553          {register object V108;          {register object V108;
1554          V108= (V101);          V108= (V101);
1555  goto T605;          goto T605;
1556  T605:;  T605:;
1557          if(!(number_compare((V108),(V102))>0)){          if(!(number_compare((V108),(V102))>0)){
1558          goto T606;}          goto T606;}
1559          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
1560          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1561          return;          return;
1562  goto T606;          goto T606;
1563  T606:;  T606:;
1564  goto T612;          goto T612;
1565  T612:;  T612:;
1566          base[2]= (V106);          base[2]= (V106);
1567          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1571  T612:; Line 1571  T612:;
1571          if(!(number_compare(V109,(V108))>0)){          if(!(number_compare(V109,(V108))>0)){
1572          goto T613;}          goto T613;}
1573          goto T610;          goto T610;
1574  goto T613;          goto T613;
1575  T613:;  T613:;
1576          if(((*(LnkLI173))((V106)))==Cnil){          if(((*(LnkLI173))((V106)))==Cnil){
1577          goto T619;}          goto T619;}
1578          (void)((*(LnkLI177))((V106)));          (void)((*(LnkLI177))((V106)));
1579  goto T619;          goto T619;
1580  T619:;  T619:;
1581          V106= number_plus((V106),small_fixnum(1));          V106= number_plus((V106),small_fixnum(1));
1582          goto T612;          goto T612;
1583  goto T610;          goto T610;
1584  T610:;  T610:;
1585          base[2]= (VV[48]->s.s_dbind);          base[2]= (VV[48]->s.s_dbind);
1586          base[3]= VV[93];          base[3]= VV[93];
# Line 1595  T610:; Line 1595  T610:;
1595          vs_top=sup;          vs_top=sup;
1596          V108= one_plus((V108));          V108= one_plus((V108));
1597          goto T605;}          goto T605;}
1598  goto T597;          goto T597;
1599  T597:;  T597:;
1600          V106= one_plus((V106));          V106= one_plus((V106));
1601          goto T596;}          goto T596;}
# Line 1612  static void L18() Line 1612  static void L18()
1612          V110=(base[0]);          V110=(base[0]);
1613          vs_top=sup;          vs_top=sup;
1614          goto T640;          goto T640;
1615  goto T639;          goto T639;
1616  T639:;  T639:;
1617          V110= small_fixnum(0);          V110= small_fixnum(0);
1618  goto T640;          goto T640;
1619  T640:;  T640:;
1620          {object V111;          {object V111;
1621          base[2]= (VV[39]->s.s_dbind);          base[2]= (VV[39]->s.s_dbind);
# Line 1658  static void L19() Line 1658  static void L19()
1658          (void) (*Lnk180)();          (void) (*Lnk180)();
1659          vs_top=sup;          vs_top=sup;
1660          V116= vs_base[0];          V116= vs_base[0];
1661  goto T654;          goto T654;
1662  T654:;  T654:;
1663          if(!(number_compare((V115),(V116))>0)){          if(!(number_compare((V115),(V116))>0)){
1664          goto T655;}          goto T655;}
1665          vs_base=vs_top=base+1;          vs_base=vs_top=base+1;
1666          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1667          return;          return;
1668  goto T655;          goto T655;
1669  T655:;  T655:;
1670          if(((V113))==Cnil){          if(((V113))==Cnil){
1671          goto T660;}          goto T660;}
# Line 1680  T655:; Line 1680  T655:;
1680          goto T663;          goto T663;
1681          }else V118=V118->c.c_cdr;          }else V118=V118->c.c_cdr;
1682          goto T659;}          goto T659;}
1683  goto T663;          goto T663;
1684  T663:;  T663:;
1685  goto T660;          goto T660;
1686  T660:;  T660:;
1687  goto T668;          goto T668;
1688  T668:;  T668:;
1689          if(number_compare((V114),(VV[41]->s.s_dbind))>0){          if(number_compare((V114),(VV[41]->s.s_dbind))>0){
1690          goto T670;}          goto T670;}
# Line 1695  T668:; Line 1695  T668:;
1695          V120= vs_base[0];          V120= vs_base[0];
1696          if(!(number_compare(V120,(V115))>0)){          if(!(number_compare(V120,(V115))>0)){
1697          goto T669;}          goto T669;}
1698  goto T670;          goto T670;
1699  T670:;  T670:;
1700          goto T666;          goto T666;
1701  goto T669;          goto T669;
1702  T669:;  T669:;
1703          (void)((*(LnkLI182))((V114)));          (void)((*(LnkLI182))((V114)));
1704          V114= number_plus((V114),small_fixnum(1));          V114= number_plus((V114),small_fixnum(1));
1705          goto T668;          goto T668;
1706  goto T666;          goto T666;
1707  T666:;  T666:;
1708          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
1709          base[2]= VV[94];          base[2]= VV[94];
# Line 1721  T666:; Line 1721  T666:;
1721          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1722          Lformat();          Lformat();
1723          vs_top=sup;          vs_top=sup;
1724  goto T659;          goto T659;
1725  T659:;  T659:;
1726          V115= one_plus((V115));          V115= one_plus((V115));
1727          goto T654;}}          goto T654;}}
# Line 1741  TTL:; Line 1741  TTL:;
1741          register object V122;          register object V122;
1742          V121= (VV[37]->s.s_dbind);          V121= (VV[37]->s.s_dbind);
1743          V122= Cnil;          V122= Cnil;
1744  goto T696;          goto T696;
1745  T696:;  T696:;
1746          if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){
1747          goto T697;}          goto T697;}
# Line 1749  T696:; Line 1749  T696:;
1749          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
1750          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1751          return;          return;
1752  goto T697;          goto T697;
1753  T697:;  T697:;
1754          if(((*(LnkLI173))((V121)))==Cnil){          if(((*(LnkLI173))((V121)))==Cnil){
1755          goto T702;}          goto T702;}
1756          if(((V122))==Cnil){          if(((V122))==Cnil){
1757          goto T705;}          goto T705;}
1758          princ_str(" > ",VV[48]);          princ_str(" > ",VV[48]);
1759  goto T705;          goto T705;
1760  T705:;  T705:;
1761          base[1]= (V121);          base[1]= (V121);
1762          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1772  T705:; Line 1772  T705:;
1772          goto T717;}          goto T717;}
1773          base[6]= VV[59];          base[6]= VV[59];
1774          goto T715;          goto T715;
1775  goto T717;          goto T717;
1776  T717:;  T717:;
1777          base[6]= VV[98];          base[6]= VV[98];
1778  goto T715;          goto T715;
1779  T715:;  T715:;
1780          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1781          Lwrite();          Lwrite();
1782          vs_top=sup;          vs_top=sup;
1783  goto T702;          goto T702;
1784  T702:;  T702:;
1785          V121= one_plus((V121));          V121= one_plus((V121));
1786          V122= Ct;          V122= Ct;
# Line 1801  static void L21() Line 1801  static void L21()
1801          V124=(base[1]);          V124=(base[1]);
1802          vs_top=sup;          vs_top=sup;
1803          goto T726;          goto T726;
1804  goto T724;          goto T724;
1805  T724:;  T724:;
1806          V123= (VV[37]->s.s_dbind);          V123= (VV[37]->s.s_dbind);
1807  goto T725;          goto T725;
1808  T725:;  T725:;
1809          V124= (VV[38]->s.s_dbind);          V124= (VV[38]->s.s_dbind);
1810  goto T726;          goto T726;
1811  T726:;  T726:;
1812          V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind));          V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind));
1813          V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind));          V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind));
# Line 1823  T726:; Line 1823  T726:;
1823          if(V127==Cnil)goto T735;          if(V127==Cnil)goto T735;
1824          V126= V127;          V126= V127;
1825          goto T734;          goto T734;
1826  goto T735;          goto T735;
1827  T735:;}  T735:;}
1828          V126= one_plus((VV[41]->s.s_dbind));          V126= one_plus((VV[41]->s.s_dbind));
1829  goto T734;          goto T734;
1830  T734:;  T734:;
1831  goto T740;          goto T740;
1832  T740:;  T740:;
1833          if(!(number_compare((V125),(V124))>0)){          if(!(number_compare((V125),(V124))>0)){
1834          goto T741;}          goto T741;}
1835          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
1836          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1837          return;          return;
1838  goto T741;          goto T741;
1839  T741:;  T741:;
1840          if(((*(LnkLI173))((V125)))==Cnil){          if(((*(LnkLI173))((V125)))==Cnil){
1841          goto T745;}          goto T745;}
1842          (void)((*(LnkLI177))((V125)));          (void)((*(LnkLI177))((V125)));
1843  goto T745;          goto T745;
1844  T745:;  T745:;
1845  goto T750;          goto T750;
1846  T750:;  T750:;
1847          if(number_compare((V126),(VV[41]->s.s_dbind))>0){          if(number_compare((V126),(VV[41]->s.s_dbind))>0){
1848          goto T752;}          goto T752;}
# Line 1853  T750:; Line 1853  T750:;
1853          V128= vs_base[0];          V128= vs_base[0];
1854          if(!(number_compare(V128,(V125))>0)){          if(!(number_compare(V128,(V125))>0)){
1855          goto T751;}          goto T751;}
1856  goto T752;          goto T752;
1857  T752:;  T752:;
1858          goto T748;          goto T748;
1859  goto T751;          goto T751;
1860  T751:;  T751:;
1861          (void)((*(LnkLI182))((V126)));          (void)((*(LnkLI182))((V126)));
1862          V126= number_plus((V126),small_fixnum(1));          V126= number_plus((V126),small_fixnum(1));
1863          goto T750;          goto T750;
1864  goto T748;          goto T748;
1865  T748:;  T748:;
1866          V125= one_plus((V125));          V125= one_plus((V125));
1867          goto T740;}          goto T740;}
# Line 1896  TTL:; Line 1896  TTL:;
1896          vs_top=sup;          vs_top=sup;
1897          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1898          goto T775;}          goto T775;}
1899  goto T774;          goto T774;
1900  T774:;  T774:;
1901          base[6]= (V131);          base[6]= (V131);
1902          goto T771;          goto T771;
1903  goto T775;          goto T775;
1904  T775:;  T775:;
1905          if(!(type_of((V131))==t_cons)){          if(!(type_of((V131))==t_cons)){
1906          goto T781;}          goto T781;}
# Line 1908  T775:; Line 1908  T775:;
1908          if((V132!= VV[100]))goto T783;          if((V132!= VV[100]))goto T783;
1909          base[6]= (V131);          base[6]= (V131);
1910          goto T771;          goto T771;
1911  goto T783;          goto T783;
1912  T783:;  T783:;
1913          if((V132!= VV[186])          if((V132!= VV[186])
1914          && (V132!= VV[187]))goto T784;          && (V132!= VV[187]))goto T784;
1915          base[6]= CMPcdr((V131));          base[6]= CMPcdr((V131));
1916          goto T771;          goto T771;
1917  goto T784;          goto T784;
1918  T784:;  T784:;
1919          if((V132!= VV[117]))goto T785;          if((V132!= VV[117]))goto T785;
1920          base[6]= make_cons(VV[100],CMPcddddr((V131)));          base[6]= make_cons(VV[100],CMPcddddr((V131)));
1921          goto T771;          goto T771;
1922  goto T785;          goto T785;
1923  T785:;  T785:;
1924          if((V132!= VV[188]))goto T786;          if((V132!= VV[188]))goto T786;
1925          base[6]= CMPcddddr((V131));          base[6]= CMPcddddr((V131));
1926          goto T771;          goto T771;
1927  goto T786;          goto T786;
1928  T786:;  T786:;
1929          if(!(type_of(CMPcar((V131)))==t_symbol)){          if(!(type_of(CMPcar((V131)))==t_symbol)){
1930          goto T788;}          goto T788;}
# Line 1940  T786:; Line 1940  T786:;
1940          vs_top=sup;          vs_top=sup;
1941          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1942          goto T788;}          goto T788;}
1943  goto T787;          goto T787;
1944  T787:;  T787:;
1945          base[6]= CMPcar((V131));          base[6]= CMPcar((V131));
1946          goto T771;          goto T771;
1947  goto T788;          goto T788;
1948  T788:;  T788:;
1949          base[6]= VV[101];          base[6]= VV[101];
1950          goto T771;}          goto T771;}
1951  goto T781;          goto T781;
1952  T781:;  T781:;
1953          (void)(print((V131),Cnil));          (void)(print((V131),Cnil));
1954          base[6]= VV[102];}          base[6]= VV[102];}
1955  goto T771;          goto T771;
1956  T771:;  T771:;
1957          base[8]= (V130);          base[8]= (V130);
1958          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 2058  TTL:; Line 2058  TTL:;
2058          goto T820;}          goto T820;}
2059          V142= Cnil;          V142= Cnil;
2060          goto T819;          goto T819;
2061  goto T820;          goto T820;
2062  T820:;  T820:;
2063          if(!((CMPcadar((V139)))==(VV[90]))){          if(!((CMPcadar((V139)))==(VV[90]))){
2064          goto T834;}          goto T834;}
2065          V142= list(3,VV[90],CMPcaar((V139)),VV[6]);          V142= list(3,VV[90],CMPcaar((V139)),VV[6]);
2066          goto T819;          goto T819;
2067  goto T834;          goto T834;
2068  T834:;  T834:;
2069          base[1]= (V138);          base[1]= (V138);
2070          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2080  T834:; Line 2080  T834:;
2080          V144= Cnil;          V144= Cnil;
2081          goto T836;}          goto T836;}
2082          base[0]=V145=MMcons(Cnil,Cnil);          base[0]=V145=MMcons(Cnil,Cnil);
2083  goto T837;          goto T837;
2084  T837:;  T837:;
2085          (V145->c.c_car)= CMPcar((V146->c.c_car));          (V145->c.c_car)= CMPcar((V146->c.c_car));
2086          if((V146=MMcdr(V146))==Cnil){          if((V146=MMcdr(V146))==Cnil){
# Line 2088  T837:; Line 2088  T837:;
2088          goto T836;}          goto T836;}
2089          V145=MMcdr(V145)=MMcons(Cnil,Cnil);          V145=MMcdr(V145)=MMcons(Cnil,Cnil);
2090          goto T837;}          goto T837;}
2091  goto T836;          goto T836;
2092  T836:;  T836:;
2093          V151= reverse(V144);          V151= reverse(V144);
2094          V152= append(/* INLINE-ARGS */V151,VV[108]);          V152= append(/* INLINE-ARGS */V151,VV[108]);
2095          V142= make_cons(VV[106],/* INLINE-ARGS */V152);          V142= make_cons(VV[106],/* INLINE-ARGS */V152);
2096  goto T819;          goto T819;
2097  T819:;  T819:;
2098          if(V142==Cnil)goto T818;          if(V142==Cnil)goto T818;
2099          {object V153 = V142;          {object V153 = V142;
2100          VMR24(V153)}          VMR24(V153)}
2101  goto T818;          goto T818;
2102  T818:;}  T818:;}
2103          base[0]= (V138);          base[0]= (V138);
2104          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2107  T818:;} Line 2107  T818:;}
2107          V154= vs_base[0];          V154= vs_base[0];
2108          {object V155 = list(2,VV[109],V154);          {object V155 = list(2,VV[109],V154);
2109          VMR24(V155)}          VMR24(V155)}
2110  goto T814;          goto T814;
2111  T814:;  T814:;
2112          base[0]= (V138);          base[0]= (V138);
2113          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2116  T814:; Line 2116  T814:;
2116          V156= vs_base[0];          V156= vs_base[0];
2117          {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);          {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);
2118          VMR24(V157)}          VMR24(V157)}
2119  goto T812;          goto T812;
2120  T812:;  T812:;
2121          if((V140!= VV[198]))goto T847;          if((V140!= VV[198]))goto T847;
2122          {object V158 = VV[112];          {object V158 = VV[112];
2123          VMR24(V158)}          VMR24(V158)}
2124  goto T847;          goto T847;
2125  T847:;  T847:;
2126          base[0]= (V138);          base[0]= (V138);
2127          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2155  TTL:; Line 2155  TTL:;
2155          Lformat();          Lformat();
2156          vs_top=sup;          vs_top=sup;
2157          goto T850;          goto T850;
2158  goto T852;          goto T852;
2159  T852:;  T852:;
2160          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2161          base[1]= VV[115];          base[1]= VV[115];
2162          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2163          Lformat();          Lformat();
2164          vs_top=sup;          vs_top=sup;
2165  goto T850;          goto T850;
2166  T850:;  T850:;
2167          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2168          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2192  TTL:; Line 2192  TTL:;
2192          goto T862;          goto T862;
2193          }else V166=V166->c.c_cdr;          }else V166=V166->c.c_cdr;
2194          V165= Cnil;}          V165= Cnil;}
2195  goto T862;          goto T862;
2196  T862:;  T862:;
2197          {object V167 = ((V165)==Cnil?Ct:Cnil);          {object V167 = ((V165)==Cnil?Ct:Cnil);
2198          VMR26(V167)}}          VMR26(V167)}}
# Line 2221  TTL:; Line 2221  TTL:;
2221          base[1]= (V169);          base[1]= (V169);
2222          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2223          return;          return;
2224  goto T866;          goto T866;
2225  T866:;  T866:;
2226          if(!(type_of((V169))==t_cons)){          if(!(type_of((V169))==t_cons)){
2227          goto T869;}          goto T869;}
# Line 2230  T866:; Line 2230  T866:;
2230          base[1]= VV[100];          base[1]= VV[100];
2231          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2232          return;          return;
2233  goto T871;          goto T871;
2234  T871:;  T871:;
2235          if((V170!= VV[186])          if((V170!= VV[186])
2236          && (V170!= VV[187]))goto T872;          && (V170!= VV[187]))goto T872;
2237          base[1]= CMPcadr((V169));          base[1]= CMPcadr((V169));
2238          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2239          return;          return;
2240  goto T872;          goto T872;
2241  T872:;  T872:;
2242          if((V170!= VV[188]))goto T873;          if((V170!= VV[188]))goto T873;
2243          base[1]= CMPcar(CMPcddddr((V169)));          base[1]= CMPcar(CMPcddddr((V169)));
2244          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2245          return;          return;
2246  goto T873;          goto T873;
2247  T873:;  T873:;
2248          if((V170!= VV[117]))goto T874;          if((V170!= VV[117]))goto T874;
2249          base[1]= VV[117];          base[1]= VV[117];
2250          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2251          return;          return;
2252  goto T874;          goto T874;
2253  T874:;  T874:;
2254          if(!(type_of(CMPcar((V169)))==t_symbol)){          if(!(type_of(CMPcar((V169)))==t_symbol)){
2255          goto T876;}          goto T876;}
# Line 2265  T874:; Line 2265  T874:;
2265          vs_top=sup;          vs_top=sup;
2266          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2267          goto T876;}          goto T876;}
2268  goto T875;          goto T875;
2269  T875:;  T875:;
2270          base[1]= CMPcar((V169));          base[1]= CMPcar((V169));
2271          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2272          return;          return;
2273  goto T876;          goto T876;
2274  T876:;  T876:;
2275          base[1]= VV[102];          base[1]= VV[102];
2276          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2277          return;}          return;}
2278  goto T869;          goto T869;
2279  T869:;  T869:;
2280          base[1]= (V169);          base[1]= (V169);
2281          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2287  T869:; Line 2287  T869:;
2287          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2288          (void) (*Lnk199)();          (void) (*Lnk199)();
2289          return;          return;
2290  goto T885;          goto T885;
2291  T885:;  T885:;
2292          base[1]= VV[102];          base[1]= VV[102];
2293          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2318  TTL:; Line 2318  TTL:;
2318          base[1]= Cnil;          base[1]= Cnil;
2319          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2320          return;          return;
2321  goto T892;          goto T892;
2322  T892:;  T892:;
2323          base[1]= Ct;          base[1]= Ct;
2324          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2340  TTL:; Line 2340  TTL:;
2340          goto T898;}          goto T898;}
2341          (VV[42]->s.s_dbind)= Cnil;          (VV[42]->s.s_dbind)= Cnil;
2342          goto T896;          goto T896;
2343  goto T898;          goto T898;
2344  T898:;  T898:;
2345          {object V173;          {object V173;
2346          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
# Line 2364  T898:; Line 2364  T898:;
2364          vs_top=sup;          vs_top=sup;
2365          V176= vs_base[0];          V176= vs_base[0];
2366          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}
2367  goto T896;          goto T896;
2368  T896:;  T896:;
2369          {object V177 = (VV[42]->s.s_dbind);          {object V177 = (VV[42]->s.s_dbind);
2370          VMR29(V177)}          VMR29(V177)}
# Line 2383  TTL:; Line 2383  TTL:;
2383          goto T910;}          goto T910;}
2384          {object V182 = Cnil;          {object V182 = Cnil;
2385          VMR30(V182)}          VMR30(V182)}
2386  goto T910;          goto T910;
2387  T910:;  T910:;
2388          if(!(((V180))==(CMPcar((V181))))){          if(!(((V180))==(CMPcar((V181))))){
2389          goto T913;}          goto T913;}
2390          {object V183 = CMPcdr((V181));          {object V183 = CMPcdr((V181));
2391          VMR30(V183)}          VMR30(V183)}
2392  goto T913;          goto T913;
2393  T913:;  T913:;
2394          V184= (*(LnkLI201))((V180),CMPcdr((V181)));          V184= (*(LnkLI201))((V180),CMPcdr((V181)));
2395          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;
# Line 2462  TTL:; Line 2462  TTL:;
2462          V193= Cnil;          V193= Cnil;
2463          goto T943;}          goto T943;}
2464          base[0]=V194=MMcons(Cnil,Cnil);          base[0]=V194=MMcons(Cnil,Cnil);
2465  goto T944;          goto T944;
2466  T944:;  T944:;
2467          (V194->c.c_car)= CMPcar((V195->c.c_car));          (V194->c.c_car)= CMPcar((V195->c.c_car));
2468          if((V195=MMcdr(V195))==Cnil){          if((V195=MMcdr(V195))==Cnil){
# Line 2470  T944:; Line 2470  T944:;
2470          goto T943;}          goto T943;}
2471          V194=MMcdr(V194)=MMcons(Cnil,Cnil);          V194=MMcdr(V194)=MMcons(Cnil,Cnil);
2472          goto T944;}          goto T944;}
2473  goto T943;          goto T943;
2474  T943:;  T943:;
2475          {register object x= (V189),V192= V193;          {register object x= (V189),V192= V193;
2476          while(V192!=Cnil)          while(V192!=Cnil)
# Line 2478  T943:; Line 2478  T943:;
2478          goto T942;          goto T942;
2479          }else V192=V192->c.c_cdr;          }else V192=V192->c.c_cdr;
2480          goto T916;}          goto T916;}
2481  goto T942;          goto T942;
2482  T942:;  T942:;
2483          base[1]= (V188);          base[1]= (V188);
2484          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2491  T942:; Line 2491  T942:;
2491          (void) (*Lnk202)();          (void) (*Lnk202)();
2492          vs_top=sup;          vs_top=sup;
2493          goto T916;          goto T916;
2494  goto T926;          goto T926;
2495  T926:;  T926:;
2496          base[1]= (V188);          base[1]= (V188);
2497          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2503  T926:; Line 2503  T926:;
2503          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2504          (void) (*Lnk202)();          (void) (*Lnk202)();
2505          vs_top=sup;          vs_top=sup;
2506  goto T916;          goto T916;
2507  T916:;  T916:;
2508          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2509          base[1]= VV[118];          base[1]= VV[118];
# Line 2536  TTL:; Line 2536  TTL:;
2536          (void) (*Lnk174)();          (void) (*Lnk174)();
2537          vs_top=sup;          vs_top=sup;
2538          V205= vs_base[0];          V205= vs_base[0];
2539  goto T969;          goto T969;
2540  T969:;  T969:;
2541          if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){          if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){
2542          goto T970;}          goto T970;}
# Line 2548  T969:; Line 2548  T969:;
2548          vs_top=sup;          vs_top=sup;
2549          {object V206 = vs_base[0];          {object V206 = vs_base[0];
2550          VMR32(V206)}          VMR32(V206)}
2551  goto T970;          goto T970;
2552  T970:;  T970:;
2553          if(((*(LnkLI173))((V204)))==Cnil){          if(((*(LnkLI173))((V204)))==Cnil){
2554          goto T977;}          goto T977;}
# Line 2562  T970:; Line 2562  T970:;
2562          vs_top=sup;          vs_top=sup;
2563          {object V209 = Cnil;          {object V209 = Cnil;
2564          VMR32(V209)}          VMR32(V209)}
2565  goto T977;          goto T977;
2566  T977:;  T977:;
2567          V204= one_minus((V204));          V204= one_minus((V204));
2568          base[2]= (V204);          base[2]= (V204);
# Line 2593  TTL:; Line 2593  TTL:;
2593          (void) (*Lnk174)();          (void) (*Lnk174)();
2594          vs_top=sup;          vs_top=sup;
2595          V214= vs_base[0];          V214= vs_base[0];
2596  goto T998;          goto T998;
2597  T998:;  T998:;
2598          if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){
2599          goto T999;}          goto T999;}
# Line 2605  T998:; Line 2605  T998:;
2605          vs_top=sup;          vs_top=sup;
2606          {object V215 = vs_base[0];          {object V215 = vs_base[0];
2607          VMR33(V215)}          VMR33(V215)}
2608  goto T999;          goto T999;
2609  T999:;  T999:;
2610          if(((*(LnkLI173))((V213)))==Cnil){          if(((*(LnkLI173))((V213)))==Cnil){
2611          goto T1006;}          goto T1006;}
# Line 2619  T999:; Line 2619  T999:;
2619          vs_top=sup;          vs_top=sup;
2620          {object V218 = Cnil;          {object V218 = Cnil;
2621          VMR33(V218)}          VMR33(V218)}
2622  goto T1006;          goto T1006;
2623  T1006:;  T1006:;
2624          V213= one_plus((V213));          V213= one_plus((V213));
2625          base[2]= (V213);          base[2]= (V213);
# Line 2642  TTL:; Line 2642  TTL:;
2642          object V220;          object V220;
2643          V219= VV[121];          V219= VV[121];
2644          V220= CMPcar((V219));          V220= CMPcar((V219));
2645  goto T1024;          goto T1024;
2646  T1024:;  T1024:;
2647          if(!(((V219))==Cnil)){          if(!(((V219))==Cnil)){
2648          goto T1025;}          goto T1025;}
2649          goto T1020;          goto T1020;
2650  goto T1025;          goto T1025;
2651  T1025:;  T1025:;
2652          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
2653          base[2]= (V220);          base[2]= (V220);
# Line 2657  T1025:; Line 2657  T1025:;
2657          V219= CMPcdr((V219));          V219= CMPcdr((V219));
2658          V220= CMPcar((V219));          V220= CMPcar((V219));
2659          goto T1024;}          goto T1024;}
2660  goto T1020;          goto T1020;
2661  T1020:;  T1020:;
2662          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2663          base[1]= VV[122];          base[1]= VV[122];
# Line 2681  T1020:; Line 2681  T1020:;
2681          goto T1045;}          goto T1045;}
2682          V221= (V224);          V221= (V224);
2683          goto T1041;          goto T1041;
2684  goto T1045;          goto T1045;
2685  T1045:;  T1045:;
2686          base[0]= coerce_to_string((V224));          base[0]= coerce_to_string((V224));
2687          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2688          Lfind_package();          Lfind_package();
2689          vs_top=sup;          vs_top=sup;
2690          V221= vs_base[0];}          V221= vs_base[0];}
2691  goto T1041;          goto T1041;
2692  T1041:;  T1041:;
2693          V222= Cnil;          V222= Cnil;
2694          V223= Cnil;          V223= Cnil;
# Line 2701  T1041:; Line 2701  T1041:;
2701          V227= vs_base[0];          V227= vs_base[0];
2702          V225= make_cons((V221),V227);          V225= make_cons((V221),V227);
2703          V226= CMPcar((V225));          V226= CMPcar((V225));
2704  goto T1054;          goto T1054;
2705  T1054:;  T1054:;
2706          if(!(((V225))==Cnil)){          if(!(((V225))==Cnil)){
2707          goto T1055;}          goto T1055;}
2708          V222= Cnil;          V222= Cnil;
2709          goto T1040;          goto T1040;
2710  goto T1055;          goto T1055;
2711  T1055:;  T1055:;
2712          {long V228;          {long V228;
2713          long V229;          long V229;
# Line 2721  T1055:; Line 2721  T1055:;
2721          V229= fix(vs_base[0]);          V229= fix(vs_base[0]);
2722          vs_top=sup;          vs_top=sup;
2723          goto T1066;          goto T1066;
2724  goto T1064;          goto T1064;
2725  T1064:;  T1064:;
2726          V228= fix(Cnil);          V228= fix(Cnil);
2727  goto T1065;          goto T1065;
2728  T1065:;  T1065:;
2729          V229= fix(Cnil);          V229= fix(Cnil);
2730  goto T1066;          goto T1066;
2731  T1066:;  T1066:;
2732          if(((V221))==((V226))){          if(((V221))==((V226))){
2733          goto T1067;}          goto T1067;}
2734          V229= 0;          V229= 0;
2735  goto T1067;          goto T1067;
2736  T1067:;  T1067:;
2737          {object V230;          {object V230;
2738          register object V231;          register object V231;
# Line 2740  T1067:; Line 2740  T1067:;
2740          V233 = make_fixnum(V228);          V233 = make_fixnum(V228);
2741          V230= number_plus(V232,V233);          V230= number_plus(V232,V233);
2742          V231= small_fixnum(0);          V231= small_fixnum(0);
2743  goto T1074;          goto T1074;
2744  T1074:;  T1074:;
2745          if(!(number_compare((V231),(V230))>=0)){          if(!(number_compare((V231),(V230))>=0)){
2746          goto T1075;}          goto T1075;}
2747          goto T1061;          goto T1061;
2748  goto T1075;          goto T1075;
2749  T1075:;  T1075:;
2750          V234 = make_fixnum(V229);          V234 = make_fixnum(V229);
2751          if(!(number_compare((V231),V234)<0)){          if(!(number_compare((V231),V234)<0)){
# Line 2757  T1075:; Line 2757  T1075:;
2757          vs_top=sup;          vs_top=sup;
2758          V223= vs_base[0];          V223= vs_base[0];
2759          goto T1082;          goto T1082;
2760  goto T1084;          goto T1084;
2761  T1084:;  T1084:;
2762          base[3]= (V226);          base[3]= (V226);
2763          V235 = make_fixnum(V229);          V235 = make_fixnum(V229);
# Line 2766  T1084:; Line 2766  T1084:;
2766          siLpackage_external();          siLpackage_external();
2767          vs_top=sup;          vs_top=sup;
2768          V223= vs_base[0];          V223= vs_base[0];
2769  goto T1082;          goto T1082;
2770  T1082:;  T1082:;
2771  goto T1080;          goto T1080;
2772  T1080:;  T1080:;
2773          if(((V223))!=Cnil){          if(((V223))!=Cnil){
2774          goto T1090;}          goto T1090;}
2775          goto T1081;          goto T1081;
2776  goto T1090;          goto T1090;
2777  T1090:;  T1090:;
2778          V222= CMPcar((V223));          V222= CMPcar((V223));
2779          if(((V226))==((V221))){          if(((V226))==((V221))){
# Line 2791  T1090:; Line 2791  T1090:;
2791          V236= vs_base[0];          V236= vs_base[0];
2792          if(!((VV[124])==(CMPcar(V236)))){          if(!((VV[124])==(CMPcar(V236)))){
2793          goto T1095;}          goto T1095;}
2794  goto T1096;          goto T1096;
2795  T1096:;  T1096:;
2796          {object V237 =((V222))->s.s_plist;          {object V237 =((V222))->s.s_plist;
2797           object ind= VV[54];           object ind= VV[54];
# Line 2802  T1096:; Line 2802  T1096:;
2802          goto T1107;          goto T1107;
2803          }else V237=V237->c.c_cdr->c.c_cdr;}          }else V237=V237->c.c_cdr->c.c_cdr;}
2804          goto T1105;}          goto T1105;}
2805  goto T1107;          goto T1107;
2806  T1107:;  T1107:;
2807          base[3]= (VV[48]->s.s_dbind);          base[3]= (VV[48]->s.s_dbind);
2808          base[4]= VV[125];          base[4]= VV[125];
# Line 2815  T1107:; Line 2815  T1107:;
2815          goto T1111;          goto T1111;
2816          }else V238=V238->c.c_cdr->c.c_cdr;}          }else V238=V238->c.c_cdr->c.c_cdr;}
2817          base[6]= Cnil;}          base[6]= Cnil;}
2818  goto T1111;          goto T1111;
2819  T1111:;  T1111:;
2820          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2821          Lformat();          Lformat();
2822          vs_top=sup;          vs_top=sup;
2823  goto T1105;          goto T1105;
2824  T1105:;  T1105:;
2825  goto T1095;          goto T1095;
2826  T1095:;  T1095:;
2827          V223= CMPcdr((V223));          V223= CMPcdr((V223));
2828          goto T1080;          goto T1080;
2829  goto T1081;          goto T1081;
2830  T1081:;  T1081:;
2831          goto T1078;          goto T1078;
2832  goto T1078;          goto T1078;
2833  T1078:;  T1078:;
2834          V231= one_plus((V231));          V231= one_plus((V231));
2835          goto T1074;}}          goto T1074;}}
2836  goto T1061;          goto T1061;
2837  T1061:;  T1061:;
2838          V225= CMPcdr((V225));          V225= CMPcdr((V225));
2839          V226= CMPcar((V225));          V226= CMPcar((V225));
2840          goto T1054;}}          goto T1054;}}
2841  goto T1040;          goto T1040;
2842  T1040:;  T1040:;
2843          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2844          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2862  TTL:; Line 2862  TTL:;
2862          if(!(type_of((V240))==t_string)){          if(!(type_of((V240))==t_string)){
2863          goto T1123;}          goto T1123;}
2864          goto T1122;          goto T1122;
2865  goto T1123;          goto T1123;
2866  T1123:;  T1123:;
2867          base[1]= VV[126];          base[1]= VV[126];
2868          base[2]= (V240);          base[2]= (V240);
2869          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2870          Lerror();          Lerror();
2871          vs_top=sup;          vs_top=sup;
2872  goto T1122;          goto T1122;
2873  T1122:;  T1122:;
2874          {long V241;          {long V241;
2875          V241= (long)((V240))->v.v_fillp;          V241= (long)((V240))->v.v_fillp;
# Line 2877  T1122:; Line 2877  T1122:;
2877          goto T1129;}          goto T1129;}
2878          if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){          if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){
2879          goto T1127;}          goto T1127;}
2880  goto T1129;          goto T1129;
2881  T1129:;  T1129:;
2882          base[1]= Cnil;          base[1]= Cnil;
2883          base[2]= VV[128];          base[2]= VV[128];
# Line 2886  T1129:; Line 2886  T1129:;
2886          Lformat();          Lformat();
2887          vs_top=sup;          vs_top=sup;
2888          V240= vs_base[0];}          V240= vs_base[0];}
2889  goto T1127;          goto T1127;
2890  T1127:;  T1127:;
2891          base[1]= (V240);          base[1]= (V240);
2892          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2908  TTL:; Line 2908  TTL:;
2908          goto T1137;}          goto T1137;}
2909          {register object V243;          {register object V243;
2910          V243= (V242);          V243= (V242);
2911  goto T1142;          goto T1142;
2912  T1142:;  T1142:;
2913          if(!(type_of((V243))!=t_cons)){          if(!(type_of((V243))!=t_cons)){
2914          goto T1143;}          goto T1143;}
2915          goto T1140;          goto T1140;
2916  goto T1143;          goto T1143;
2917  T1143:;  T1143:;
2918          {register object V245;          {register object V245;
2919          base[2]= CMPcar((V243));          base[2]= CMPcar((V243));
# Line 2924  T1143:; Line 2924  T1143:;
2924          (V243)->c.c_car = (V245);}          (V243)->c.c_car = (V245);}
2925          V243= CMPcdr((V243));          V243= CMPcdr((V243));
2926          goto T1142;}          goto T1142;}
2927  goto T1140;          goto T1140;
2928  T1140:;  T1140:;
2929          {register object V246;          {register object V246;
2930          V246= (V242);          V246= (V242);
2931  goto T1155;          goto T1155;
2932  T1155:;  T1155:;
2933          if(!(type_of((V246))!=t_cons)){          if(!(type_of((V246))!=t_cons)){
2934          goto T1156;}          goto T1156;}
2935          goto T1137;          goto T1137;
2936  goto T1156;          goto T1156;
2937  T1156:;  T1156:;
2938          {register object V247;          {register object V247;
2939          V247= (V246);          V247= (V246);
2940  goto T1162;          goto T1162;
2941  T1162:;  T1162:;
2942          if(!(type_of(CMPcdr((V247)))!=t_cons)){          if(!(type_of(CMPcdr((V247)))!=t_cons)){
2943          goto T1163;}          goto T1163;}
2944          goto T1160;          goto T1160;
2945  goto T1163;          goto T1163;
2946  T1163:;  T1163:;
2947          if(!(equal(CMPcadr((V247)),CMPcar((V246))))){          if(!(equal(CMPcadr((V247)),CMPcar((V246))))){
2948          goto T1167;}          goto T1167;}
# Line 2951  T1163:; Line 2951  T1163:;
2951          V248= (V247);          V248= (V247);
2952          V249= CMPcddr((V247));          V249= CMPcddr((V247));
2953          ((V248))->c.c_cdr = (V249);}          ((V248))->c.c_cdr = (V249);}
2954  goto T1167;          goto T1167;
2955  T1167:;  T1167:;
2956          V247= CMPcdr((V247));          V247= CMPcdr((V247));
2957          goto T1162;}          goto T1162;}
2958  goto T1160;          goto T1160;
2959  T1160:;  T1160:;
2960          V246= CMPcdr((V246));          V246= CMPcdr((V246));
2961          goto T1155;}          goto T1155;}
2962  goto T1137;          goto T1137;
2963  T1137:;  T1137:;
2964          (VV[129]->s.s_dbind)= (V242);          (VV[129]->s.s_dbind)= (V242);
2965          base[1]= (VV[129]->s.s_dbind);          base[1]= (VV[129]->s.s_dbind);
# Line 2990  static void L37() Line 2990  static void L37()
2990          V253=(base[3]);          V253=(base[3]);
2991          vs_top=sup;          vs_top=sup;
2992          goto T1183;          goto T1183;
2993  goto T1180;          goto T1180;
2994  T1180:;  T1180:;
2995          V251= (VV[130]->s.s_dbind);          V251= (VV[130]->s.s_dbind);
2996  goto T1181;          goto T1181;
2997  T1181:;  T1181:;
2998          V252= (VV[131]->s.s_dbind);          V252= (VV[131]->s.s_dbind);
2999  goto T1182;          goto T1182;
3000  T1182:;  T1182:;
3001          V253= Ct;          V253= Ct;
3002  goto T1183;          goto T1183;
3003  T1183:;  T1183:;
3004          {register object V254;          {register object V254;
3005          V254= Cnil;          V254= Cnil;
# Line 3011  T1183:; Line 3011  T1183:;
3011          register object V256;          register object V256;
3012          V255= (V251);          V255= (V251);
3013          V256= CMPcar((V255));          V256= CMPcar((V255));
3014  goto T1194;          goto T1194;
3015  T1194:;  T1194:;
3016          if(!(((V255))==Cnil)){          if(!(((V255))==Cnil)){
3017          goto T1195;}          goto T1195;}
3018          goto T1190;          goto T1190;
3019  goto T1195;          goto T1195;
3020  T1195:;  T1195:;
3021          {register object V257;          {register object V257;
3022          register object V258;          register object V258;
3023          V257= (V252);          V257= (V252);
3024          V258= CMPcar((V257));          V258= CMPcar((V257));
3025  goto T1203;          goto T1203;
3026  T1203:;  T1203:;
3027          if(!(((V257))==Cnil)){          if(!(((V257))==Cnil)){
3028          goto T1204;}          goto T1204;}
3029          goto T1199;          goto T1199;
3030  goto T1204;          goto T1204;
3031  T1204:;  T1204:;
3032          base[6]= (V256);          base[6]= (V256);
3033          base[7]= (V250);          base[7]= (V250);
# Line 3041  T1204:; Line 3041  T1204:;
3041          base[6]= (V254);          base[6]= (V254);
3042          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3043          return;          return;
3044  goto T1208;          goto T1208;
3045  T1208:;  T1208:;
3046          V257= CMPcdr((V257));          V257= CMPcdr((V257));
3047          V258= CMPcar((V257));          V258= CMPcar((V257));
3048          goto T1203;}          goto T1203;}
3049  goto T1199;          goto T1199;
3050  T1199:;  T1199:;
3051          V255= CMPcdr((V255));          V255= CMPcdr((V255));
3052          V256= CMPcar((V255));          V256= CMPcar((V255));
3053          goto T1194;}          goto T1194;}
3054  goto T1190;          goto T1190;
3055  T1190:;  T1190:;
3056          if(((V253))==Cnil){          if(((V253))==Cnil){
3057          goto T1226;}          goto T1226;}
# Line 3068  T1190:; Line 3068  T1190:;
3068          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3069          bds_unwind1;          bds_unwind1;
3070          return;          return;
3071  goto T1226;          goto T1226;
3072  T1226:;  T1226:;
3073          base[4]= Cnil;          base[4]= Cnil;
3074          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 3119  static void L39() Line 3119  static void L39()
3119          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3120          bds_unwind1;          bds_unwind1;
3121          return;          return;
3122  goto T1238;          goto T1238;
3123  T1238:;  T1238:;
3124          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
3125          base[4]=          base[4]=
# Line 3150  static void L40() Line 3150  static void L40()
3150          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3151          bds_unwind1;          bds_unwind1;
3152          return;          return;
3153  goto T1243;          goto T1243;
3154  T1243:;  T1243:;
3155          {object V260;          {object V260;
3156          object V261;          object V261;
# Line 3181  static void L41() Line 3181  static void L41()
3181          V263=(base[1]);          V263=(base[1]);
3182          vs_top=sup;          vs_top=sup;
3183          goto T1252;          goto T1252;
3184  goto T1251;          goto T1251;
3185  T1251:;  T1251:;
3186          V263= Cnil;          V263= Cnil;
3187  goto T1252;          goto T1252;
3188  T1252:;  T1252:;
3189          {register object V264;          {register object V264;
3190          V264= (VV[16]->s.s_dbind);          V264= (VV[16]->s.s_dbind);
3191  goto T1256;          goto T1256;
3192  T1256:;  T1256:;
3193          V264= CMPcdr((V264));          V264= CMPcdr((V264));
3194          if((V264)!=Cnil){          if((V264)!=Cnil){
# Line 3196  T1256:; Line 3196  T1256:;
3196          base[2]= Cnil;          base[2]= Cnil;
3197          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3198          return;          return;
3199  goto T1260;          goto T1260;
3200  T1260:;  T1260:;
3201          {register object V265;          {register object V265;
3202          V265= CMPcar((V264));          V265= CMPcar((V264));
# Line 3213  T1260:; Line 3213  T1260:;
3213          base[2]= (V266);          base[2]= (V266);
3214          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3215          return;          return;
3216  goto T1269;          goto T1269;
3217  T1269:;  T1269:;
3218          if((CMPcadr((V264)))==Cnil){          if((CMPcadr((V264)))==Cnil){
3219          goto T1272;}          goto T1272;}
# Line 3221  T1269:; Line 3221  T1269:;
3221          base[3]= CMPcdr((V264));          base[3]= CMPcdr((V264));
3222          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3223          return;          return;
3224  goto T1272;          goto T1272;
3225  T1272:;  T1272:;
3226          base[2]= Ct;          base[2]= Ct;
3227          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3228          return;}}          return;}}
3229  goto T1257;          goto T1257;
3230  T1257:;  T1257:;
3231          goto T1256;}          goto T1256;}
3232          }          }
# Line 3253  TTL:; Line 3253  TTL:;
3253          if(V270==Cnil)goto T1278;          if(V270==Cnil)goto T1278;
3254          V269= V270;          V269= V270;
3255          goto T1277;          goto T1277;
3256  goto T1278;          goto T1278;
3257  T1278:;}  T1278:;}
3258          if(((V267))->s.s_dbind!=OBJNULL){          if(((V267))->s.s_dbind!=OBJNULL){
3259          goto T1281;}          goto T1281;}
3260          V269= Cnil;          V269= Cnil;
3261          goto T1277;          goto T1277;
3262  goto T1281;          goto T1281;
3263  T1281:;  T1281:;
3264          base[2]= (V267);          base[2]= (V267);
3265          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3266          Lsymbol_value();          Lsymbol_value();
3267          vs_top=sup;          vs_top=sup;
3268          V269= vs_base[0];          V269= vs_base[0];
3269  goto T1277;          goto T1277;
3270  T1277:;  T1277:;
3271          if(((V269))==Cnil){          if(((V269))==Cnil){
3272          goto T1285;}          goto T1285;}
# Line 3279  T1277:; Line 3279  T1277:;
3279          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3280          Lset();          Lset();
3281          return;          return;
3282  goto T1285;          goto T1285;
3283  T1285:;  T1285:;
3284          base[2]= Cnil;          base[2]= Cnil;
3285          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3303  TTL:; Line 3303  TTL:;
3303          vs_top=sup;          vs_top=sup;
3304          V271= fix(vs_base[0]);          V271= fix(vs_base[0]);
3305          V272= Cnil;          V272= Cnil;
3306  goto T1294;          goto T1294;
3307  T1294:;  T1294:;
3308          V271= (long)(V271)-(1);          V271= (long)(V271)-(1);
3309          if(!((V271)<(0))){          if(!((V271)<(0))){
3310          goto T1299;}          goto T1299;}
3311          goto T1292;          goto T1292;
3312  goto T1299;          goto T1299;
3313  T1299:;  T1299:;
3314          base[0]= make_fixnum(V271);          base[0]= make_fixnum(V271);
3315          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3318  T1299:; Line 3318  T1299:;
3318          V273= vs_base[0];          V273= vs_base[0];
3319          V272= make_cons(V273,(V272));          V272= make_cons(V273,(V272));
3320          goto T1294;          goto T1294;
3321  goto T1292;          goto T1292;
3322  T1292:;  T1292:;
3323          (VV[16]->s.s_dbind)= (V272);          (VV[16]->s.s_dbind)= (V272);
3324          V272= (VV[137]->s.s_dbind);          V272= (VV[137]->s.s_dbind);
# Line 3336  T1292:; Line 3336  T1292:;
3336          V275= vs_base[0];          V275= vs_base[0];
3337          if(V275==Cnil)goto T1312;          if(V275==Cnil)goto T1312;
3338          goto T1311;          goto T1311;
3339  goto T1312;          goto T1312;
3340  T1312:;}  T1312:;}
3341          if(((V274))==Cnil){          if(((V274))==Cnil){
3342          goto T1311;}          goto T1311;}
# Line 3345  T1312:;} Line 3345  T1312:;}
3345          (void) (*Lnk207)();          (void) (*Lnk207)();
3346          vs_top=sup;          vs_top=sup;
3347          (VV[137]->s.s_dbind)= vs_base[0];          (VV[137]->s.s_dbind)= vs_base[0];
3348  goto T1311;          goto T1311;
3349  T1311:;  T1311:;
3350          if(((VV[130]->s.s_dbind))==Cnil){          if(((VV[130]->s.s_dbind))==Cnil){
3351          goto T1321;}          goto T1321;}
3352          if(equal((V272),(VV[137]->s.s_dbind))){          if(equal((V272),(VV[137]->s.s_dbind))){
3353          goto T1320;}          goto T1320;}
3354  goto T1321;          goto T1321;
3355  T1321:;  T1321:;
3356          base[0]= (VV[137]->s.s_dbind);          base[0]= (VV[137]->s.s_dbind);
3357          base[1]= VV[140];          base[1]= VV[140];
# Line 3367  T1321:; Line 3367  T1321:;
3367          vs_top=sup;          vs_top=sup;
3368          V277= vs_base[0];          V277= vs_base[0];
3369          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));
3370  goto T1320;          goto T1320;
3371  T1320:;  T1320:;
3372          base[2]= VV[143];          base[2]= VV[143];
3373          base[3]= Cnil;          base[3]= Cnil;
# Line 3422  T1320:; Line 3422  T1320:;
3422          (void) (*Lnk215)();          (void) (*Lnk215)();
3423          bds_unwind1;          bds_unwind1;
3424          return;          return;
3425  goto T1349;          goto T1349;
3426  T1349:;  T1349:;
3427          base[0]= Cnil;          base[0]= Cnil;
3428          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3462  TTL:; Line 3462  TTL:;
3462          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3463          Lread_line();          Lread_line();
3464          vs_top=sup;          vs_top=sup;
3465  goto T1367;          goto T1367;
3466  T1367:;  T1367:;
3467          base[6]= base[4];          base[6]= base[4];
3468          base[7]= Cnil;          base[7]= Cnil;
# Line 3476  T1367:; Line 3476  T1367:;
3476          base[6]= Cnil;          base[6]= Cnil;
3477          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3478          goto T1363;          goto T1363;
3479  goto T1374;          goto T1374;
3480  T1374:;  T1374:;
3481          base[6]= base[2];          base[6]= base[2];
3482          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3483          Leval();          Leval();
3484          vs_top=sup;          vs_top=sup;
3485          goto T1367;          goto T1367;
3486  goto T1363;          goto T1363;
3487  T1363:;  T1363:;
3488          active=FALSE;}          active=FALSE;}
3489          base[5]=Cnil;          base[5]=Cnil;
# Line 3497  T1363:; Line 3497  T1363:;
3497          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3498          Lclose();          Lclose();
3499          vs_top=sup;          vs_top=sup;
3500  goto T1379;          goto T1379;
3501  T1379:;  T1379:;
3502          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
3503          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 3507  T1379:; Line 3507  T1379:;
3507          Lby();          Lby();
3508          vs_top=sup;          vs_top=sup;
3509          frs_pop();}          frs_pop();}
3510  goto T1358;          goto T1358;
3511  T1358:;  T1358:;
3512          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
3513          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;

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

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