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

Diff of /gcl/cmpnew/cmpinline.c

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

revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.9 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 47  static object LI2(V9,V10) Line 47  static object LI2(V9,V10)
47    
48  register object V9;object V10;  register object V9;object V10;
49  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
50  goto TTL;          goto TTL;
51  TTL:;  TTL:;
52          V11= structure_ref((V10),VV[0],0);          V11= structure_ref((V10),VV[0],0);
53          V12= structure_ref((V9),VV[0],0);          V12= structure_ref((V9),VV[0],0);
# Line 61  TTL:; Line 61  TTL:;
61          goto T11;}          goto T11;}
62          {object V17 = structure_set((V9),VV[0],3,Ct);          {object V17 = structure_set((V9),VV[0],3,Ct);
63          VMR2(V17)}          VMR2(V17)}
64  goto T11;          goto T11;
65  T11:;  T11:;
66          {object V18 = Cnil;          {object V18 = Cnil;
67          VMR2(V18)}          VMR2(V18)}
# Line 73  static object LI3(V21,V22) Line 73  static object LI3(V21,V22)
73    
74  register object V21;object V22;  register object V21;object V22;
75  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
76  goto TTL;          goto TTL;
77  TTL:;  TTL:;
78          V24= structure_ref((V21),VV[1],1);          V24= structure_ref((V21),VV[1],1);
79          {object V23= /* INLINE-ARGS */V24;          {object V23= /* INLINE-ARGS */V24;
# Line 83  TTL:; Line 83  TTL:;
83          || (V23== VV[46])          || (V23== VV[46])
84          || (V23== VV[47]))goto T14;          || (V23== VV[47]))goto T14;
85          if((V23!= VV[18]))goto T13;          if((V23!= VV[18]))goto T13;
86  goto T14;          goto T14;
87  T14:;  T14:;
88          {register object V25;          {register object V25;
89          register object V26;          register object V26;
90          V25= (V22);          V25= (V22);
91          V26= car((V25));          V26= car((V25));
92  goto T18;          goto T18;
93  T18:;  T18:;
94          if(!(endp_prop((V25)))){          if(!(endp_prop((V25)))){
95          goto T19;}          goto T19;}
96          {object V27 = Cnil;          {object V27 = Cnil;
97          VMR3(V27)}          VMR3(V27)}
98  goto T19;          goto T19;
99  T19:;  T19:;
100          V29= structure_ref(cadr((V26)),VV[0],0);          V29= structure_ref(cadr((V26)),VV[0],0);
101          {register object x= (V21),V28= /* INLINE-ARGS */V29;          {register object x= (V21),V28= /* INLINE-ARGS */V29;
# Line 104  T19:; Line 104  T19:;
104          goto T25;          goto T25;
105          }else V28=V28->c.c_cdr;          }else V28=V28->c.c_cdr;
106          goto T23;}          goto T23;}
107  goto T25;          goto T25;
108  T25:;  T25:;
109          {object V30 = Ct;          {object V30 = Ct;
110          VMR3(V30)}          VMR3(V30)}
111  goto T23;          goto T23;
112  T23:;  T23:;
113          V25= cdr((V25));          V25= cdr((V25));
114          V26= car((V25));          V26= car((V25));
115          goto T18;}          goto T18;}
116  goto T13;          goto T13;
117  T13:;  T13:;
118          if((V23!= VV[73]))goto T31;          if((V23!= VV[73]))goto T31;
119          {object V31 = Cnil;          {object V31 = Cnil;
120          VMR3(V31)}          VMR3(V31)}
121  goto T31;          goto T31;
122  T31:;  T31:;
123          {register object V32;          {register object V32;
124          register object V33;          register object V33;
125          V32= (V22);          V32= (V22);
126          V33= car((V32));          V33= car((V32));
127  goto T35;          goto T35;
128  T35:;  T35:;
129          if(!(endp_prop((V32)))){          if(!(endp_prop((V32)))){
130          goto T36;}          goto T36;}
131          {object V34 = Cnil;          {object V34 = Cnil;
132          VMR3(V34)}          VMR3(V34)}
133  goto T36;          goto T36;
134  T36:;  T36:;
135          V36= structure_ref(cadr((V33)),VV[0],0);          V36= structure_ref(cadr((V33)),VV[0],0);
136          {register object x= (V21),V35= /* INLINE-ARGS */V36;          {register object x= (V21),V35= /* INLINE-ARGS */V36;
# Line 140  T36:; Line 140  T36:;
140          }else V35=V35->c.c_cdr;}          }else V35=V35->c.c_cdr;}
141          if((structure_ref(cadr((V33)),VV[0],3))==Cnil){          if((structure_ref(cadr((V33)),VV[0],3))==Cnil){
142          goto T40;}          goto T40;}
143  goto T41;          goto T41;
144  T41:;  T41:;
145          {object V37 = Ct;          {object V37 = Ct;
146          VMR3(V37)}          VMR3(V37)}
147  goto T40;          goto T40;
148  T40:;  T40:;
149          V32= cdr((V32));          V32= cdr((V32));
150          V33= car((V32));          V33= car((V32));
# Line 158  static object LI4(V40,V41) Line 158  static object LI4(V40,V41)
158    
159  register object V40;object V41;  register object V40;object V41;
160  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
161  goto TTL;          goto TTL;
162  TTL:;  TTL:;
163          V43= structure_ref((V40),VV[1],1);          V43= structure_ref((V40),VV[1],1);
164          {object V42= /* INLINE-ARGS */V43;          {object V42= /* INLINE-ARGS */V43;
# Line 169  TTL:; Line 169  TTL:;
169          || (V42== VV[46]))goto T51;          || (V42== VV[46]))goto T51;
170          if((V42!= VV[47])          if((V42!= VV[47])
171          && (V42!= VV[18]))goto T50;          && (V42!= VV[18]))goto T50;
172  goto T51;          goto T51;
173  T51:;  T51:;
174          {register object V44;          {register object V44;
175          register object V45;          register object V45;
176          V44= (V41);          V44= (V41);
177          V45= car((V44));          V45= car((V44));
178  goto T55;          goto T55;
179  T55:;  T55:;
180          if(!(endp_prop((V44)))){          if(!(endp_prop((V44)))){
181          goto T56;}          goto T56;}
182          {object V46 = Cnil;          {object V46 = Cnil;
183          VMR4(V46)}          VMR4(V46)}
184  goto T56;          goto T56;
185  T56:;  T56:;
186          V48= structure_ref(cadr((V45)),VV[0],1);          V48= structure_ref(cadr((V45)),VV[0],1);
187          {register object x= (V40),V47= /* INLINE-ARGS */V48;          {register object x= (V40),V47= /* INLINE-ARGS */V48;
# Line 190  T56:; Line 190  T56:;
190          goto T62;          goto T62;
191          }else V47=V47->c.c_cdr;          }else V47=V47->c.c_cdr;
192          goto T60;}          goto T60;}
193  goto T62;          goto T62;
194  T62:;  T62:;
195          {object V49 = Ct;          {object V49 = Ct;
196          VMR4(V49)}          VMR4(V49)}
197  goto T60;          goto T60;
198  T60:;  T60:;
199          V44= cdr((V44));          V44= cdr((V44));
200          V45= car((V44));          V45= car((V44));
201          goto T55;}          goto T55;}
202  goto T50;          goto T50;
203  T50:;  T50:;
204          {register object V50;          {register object V50;
205          register object V51;          register object V51;
206          V50= (V41);          V50= (V41);
207          V51= car((V50));          V51= car((V50));
208  goto T71;          goto T71;
209  T71:;  T71:;
210          if(!(endp_prop((V50)))){          if(!(endp_prop((V50)))){
211          goto T72;}          goto T72;}
212          {object V52 = Cnil;          {object V52 = Cnil;
213          VMR4(V52)}          VMR4(V52)}
214  goto T72;          goto T72;
215  T72:;  T72:;
216          V54= structure_ref(cadr((V51)),VV[0],1);          V54= structure_ref(cadr((V51)),VV[0],1);
217          {register object x= (V40),V53= /* INLINE-ARGS */V54;          {register object x= (V40),V53= /* INLINE-ARGS */V54;
# Line 221  T72:; Line 221  T72:;
221          }else V53=V53->c.c_cdr;}          }else V53=V53->c.c_cdr;}
222          if((structure_ref(cadr((V51)),VV[0],3))==Cnil){          if((structure_ref(cadr((V51)),VV[0],3))==Cnil){
223          goto T76;}          goto T76;}
224  goto T77;          goto T77;
225  T77:;  T77:;
226          {object V55 = Ct;          {object V55 = Ct;
227          VMR4(V55)}          VMR4(V55)}
228  goto T76;          goto T76;
229  T76:;  T76:;
230          V50= cdr((V50));          V50= cdr((V50));
231          V51= car((V50));          V51= car((V50));
# Line 241  static void L5() Line 241  static void L5()
241          vs_reserve(VM5);          vs_reserve(VM5);
242          check_arg(0);          check_arg(0);
243          vs_top=sup;          vs_top=sup;
244  goto TTL;          goto TTL;
245  TTL:;  TTL:;
246          if(!(type_of(symbol_value(VV[2]))==t_cons)){          if(!(type_of(symbol_value(VV[2]))==t_cons)){
247          goto T87;}          goto T87;}
# Line 254  TTL:; Line 254  TTL:;
254          base[1]= (V57);          base[1]= (V57);
255          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
256          return;}          return;}
257  goto T87;          goto T87;
258  T87:;  T87:;
259          setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));          setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));
260          base[0]= symbol_value(VV[2]);          base[0]= symbol_value(VV[2]);
# Line 281  static object LI6(object V59,object V58, Line 281  static object LI6(object V59,object V58,
281          else {          else {
282          V62= first;}          V62= first;}
283          --narg; goto T94;          --narg; goto T94;
284  goto T93;          goto T93;
285  T93:;  T93:;
286          V62= Cnil;          V62= Cnil;
287  goto T94;          goto T94;
288  T94:;  T94:;
289          {register object V63;          {register object V63;
290          register object V64;          register object V64;
# Line 294  T94:; Line 294  T94:;
294          object V66;          object V66;
295          V65= (V60);          V65= (V60);
296          V66= (V61);          V66= (V61);
297  goto T99;          goto T99;
298  T99:;  T99:;
299          if(!(endp_prop((V65)))){          if(!(endp_prop((V65)))){
300          goto T100;}          goto T100;}
301          {object V67 = reverse((V63));          {object V67 = reverse((V63));
302          VMR6(V67)}          VMR6(V67)}
303  goto T100;          goto T100;
304  T100:;  T100:;
305          {register object V68;          {register object V68;
306          register object V69;          register object V69;
# Line 312  T100:; Line 312  T100:;
312          V71= (*(LnkLI74))(caddr((V68)),(V69));          V71= (*(LnkLI74))(caddr((V68)),(V69));
313          V63= make_cons((V71),(V63));          V63= make_cons((V71),(V63));
314          goto T104;}          goto T104;}
315  goto T107;          goto T107;
316  T107:;  T107:;
317          if((V70!= VV[1]))goto T110;          if((V70!= VV[1]))goto T110;
318          if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){          if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){
# Line 324  T107:; Line 324  T107:;
324          goto T117;          goto T117;
325          }else V72=V72->c.c_cdr;          }else V72=V72->c.c_cdr;
326          goto T115;}          goto T115;}
327  goto T117;          goto T117;
328  T117:;  T117:;
329          V74= structure_ref(caaddr((V68)),VV[1],1);          V74= structure_ref(caaddr((V68)),VV[1],1);
330          if(!(((V69))==(/* INLINE-ARGS */V74))){          if(!(((V69))==(/* INLINE-ARGS */V74))){
# Line 348  T117:; Line 348  T117:;
348          (void) (*Lnk78)();          (void) (*Lnk78)();
349          vs_top=sup;          vs_top=sup;
350          goto T104;}          goto T104;}
351  goto T115;          goto T115;
352  T115:;  T115:;
353          {object V79;          {object V79;
354          V79= (*(LnkLI79))();          V79= (*(LnkLI79))();
# Line 361  T115:; Line 361  T115:;
361          V80= (*(LnkLI74))((V79),(V69));          V80= (*(LnkLI74))((V79),(V69));
362          V63= make_cons((V80),(V63));          V63= make_cons((V80),(V63));
363          goto T104;}}          goto T104;}}
364  goto T112;          goto T112;
365  T112:;  T112:;
366          V82= structure_ref(caaddr((V68)),VV[1],1);          V82= structure_ref(caaddr((V68)),VV[1],1);
367          {register object x= /* INLINE-ARGS */V82,V81= VV[8];          {register object x= /* INLINE-ARGS */V82,V81= VV[8];
# Line 370  T112:; Line 370  T112:;
370          goto T145;          goto T145;
371          }else V81=V81->c.c_cdr;          }else V81=V81->c.c_cdr;
372          goto T143;}          goto T143;}
373  goto T145;          goto T145;
374  T145:;  T145:;
375          V83= structure_ref(caaddr((V68)),VV[1],1);          V83= structure_ref(caaddr((V68)),VV[1],1);
376          if(((V69))==(/* INLINE-ARGS */V83)){          if(((V69))==(/* INLINE-ARGS */V83)){
# Line 388  T145:; Line 388  T145:;
388          V87= list(2,VV[6],(V84));          V87= list(2,VV[6],(V84));
389          V63= make_cons((V87),(V63));          V63= make_cons((V87),(V63));
390          goto T104;}}          goto T104;}}
391  goto T143;          goto T143;
392  T143:;  T143:;
393          {object V88;          {object V88;
394          V89= make_cons(VV[1],caddr((V68)));          V89= make_cons(VV[1],caddr((V68)));
395          V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69));          V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69));
396          V63= make_cons((V88),(V63));          V63= make_cons((V88),(V63));
397          goto T104;}          goto T104;}
398  goto T110;          goto T110;
399  T110:;  T110:;
400          if((V70!= VV[82]))goto T158;          if((V70!= VV[82]))goto T158;
401          {object V90;          {object V90;
# Line 403  T110:; Line 403  T110:;
403          if(((*(LnkLI83))((V90)))!=Cnil){          if(((*(LnkLI83))((V90)))!=Cnil){
404          goto T163;}          goto T163;}
405          goto T160;          goto T160;
406  goto T163;          goto T163;
407  T163:;  T163:;
408          V91= cadddr((V68));          V91= cadddr((V68));
409          V92= structure_ref(cadr((V68)),VV[0],2);          V92= structure_ref(cadr((V68)),VV[0],2);
# Line 411  T163:; Line 411  T163:;
411          if(((V64))!=Cnil){          if(((V64))!=Cnil){
412          goto T165;}          goto T165;}
413          goto T160;          goto T160;
414  goto T165;          goto T165;
415  T165:;  T165:;
416          base[0]= (V64);          base[0]= (V64);
417          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 428  T165:; Line 428  T165:;
428          goto T173;}          goto T173;}
429          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
430          goto T171;}          goto T171;}
431  goto T173;          goto T173;
432  T173:;  T173:;
433          {register object x= cadr((V64)),V94= VV[10];          {register object x= cadr((V64)),V94= VV[10];
434          while(!endp(V94))          while(!endp(V94))
# Line 436  T173:; Line 436  T173:;
436          goto T180;          goto T180;
437          }else V94=V94->c.c_cdr;          }else V94=V94->c.c_cdr;
438          goto T172;}          goto T172;}
439  goto T180;          goto T180;
440  T180:;  T180:;
441          if(((V69))==(cadr((V64)))){          if(((V69))==(cadr((V64)))){
442          goto T172;}          goto T172;}
443  goto T171;          goto T171;
444  T171:;  T171:;
445          {object V95;          {object V95;
446          V95= (VFUN_NARGS=1,(*(LnkLI81))((V69)));          V95= (VFUN_NARGS=1,(*(LnkLI81))((V69)));
# Line 454  T171:; Line 454  T171:;
454          V97= list(2,VV[6],(V95));          V97= list(2,VV[6],(V95));
455          V63= make_cons((V97),(V63));          V63= make_cons((V97),(V63));
456          goto T104;}}          goto T104;}}
457  goto T172;          goto T172;
458  T172:;  T172:;
459          if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){          if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){
460          goto T191;}          goto T191;}
# Line 473  T172:; Line 473  T172:;
473          goto T202;          goto T202;
474          }else V98=V98->c.c_cdr;          }else V98=V98->c.c_cdr;
475          goto T191;}          goto T191;}
476  goto T202;          goto T202;
477  T202:;  T202:;
478  goto T195;          goto T195;
479  T195:;  T195:;
480          base[0]= small_fixnum(4);          base[0]= small_fixnum(4);
481          base[1]= caddr((V64));          base[1]= caddr((V64));
# Line 493  T195:; Line 493  T195:;
493          goto T192;}          goto T192;}
494          if((cdr((V65)))==Cnil){          if((cdr((V65)))==Cnil){
495          goto T192;}          goto T192;}
496  goto T191;          goto T191;
497  T191:;  T191:;
498          {object V99;          {object V99;
499          V99= Cnil;          V99= Cnil;
# Line 508  T191:; Line 508  T191:;
508          (void) (*Lnk88)();          (void) (*Lnk88)();
509          vs_top=sup;          vs_top=sup;
510          goto T212;          goto T212;
511  goto T214;          goto T214;
512  T214:;  T214:;
513          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
514          V99= symbol_value(VV[4]);          V99= symbol_value(VV[4]);
# Line 525  T214:; Line 525  T214:;
525          (void) (*Lnk89)();          (void) (*Lnk89)();
526          vs_top=sup;          vs_top=sup;
527          goto T232;          goto T232;
528  goto T233;          goto T233;
529  T233:;  T233:;
530          if((V101!= VV[40]))goto T235;          if((V101!= VV[40]))goto T235;
531          base[0]= (V93);          base[0]= (V93);
# Line 534  T233:; Line 534  T233:;
534          (void) (*Lnk90)();          (void) (*Lnk90)();
535          vs_top=sup;          vs_top=sup;
536          goto T232;          goto T232;
537  goto T235;          goto T235;
538  T235:;  T235:;
539          if((V101!= VV[72]))goto T238;          if((V101!= VV[72]))goto T238;
540          base[0]= (V93);          base[0]= (V93);
# Line 542  T235:; Line 542  T235:;
542          (void) (*Lnk91)();          (void) (*Lnk91)();
543          vs_top=sup;          vs_top=sup;
544          goto T232;          goto T232;
545  goto T238;          goto T238;
546  T238:;  T238:;
547          if((V101!= VV[46]))goto T240;          if((V101!= VV[46]))goto T240;
548          base[0]= (V93);          base[0]= (V93);
# Line 550  T238:; Line 550  T238:;
550          (void) (*Lnk92)();          (void) (*Lnk92)();
551          vs_top=sup;          vs_top=sup;
552          goto T232;          goto T232;
553  goto T240;          goto T240;
554  T240:;  T240:;
555          if((V101!= VV[47]))goto T242;          if((V101!= VV[47]))goto T242;
556          base[0]= (V93);          base[0]= (V93);
# Line 558  T240:; Line 558  T240:;
558          (void) (*Lnk93)();          (void) (*Lnk93)();
559          vs_top=sup;          vs_top=sup;
560          goto T232;          goto T232;
561  goto T242;          goto T242;
562  T242:;  T242:;
563          base[0]= (V93);          base[0]= (V93);
564          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
565          (void) (*Lnk88)();          (void) (*Lnk88)();
566          vs_top=sup;}          vs_top=sup;}
567  goto T232;          goto T232;
568  T232:;  T232:;
569          vs_base=vs_top;          vs_base=vs_top;
570          (void) (*Lnk78)();          (void) (*Lnk78)();
571          vs_top=sup;          vs_top=sup;
572  goto T212;          goto T212;
573  T212:;  T212:;
574          princ_char(59,VV[5]);          princ_char(59,VV[5]);
575          {object V102;          {object V102;
576          V102= list(3,VV[6],(V99),VV[7]);          V102= list(3,VV[6],(V99),VV[7]);
577          V63= make_cons((V102),(V63));          V63= make_cons((V102),(V63));
578          goto T104;}}          goto T104;}}
579  goto T192;          goto T192;
580  T192:;  T192:;
581          {object V103;          {object V103;
582          V103= (*(LnkLI74))((V93),(V69));          V103= (*(LnkLI74))((V93),(V69));
583          V63= make_cons((V103),(V63));          V63= make_cons((V103),(V63));
584          goto T104;}}          goto T104;}}
585  goto T160;          goto T160;
586  T160:;  T160:;
587          {object V104;          {object V104;
588          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
589          goto T253;}          goto T253;}
590          V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));          V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
591          goto T251;          goto T251;
592  goto T253;          goto T253;
593  T253:;  T253:;
594          V104= list(2,VV[12],(*(LnkLI94))());          V104= list(2,VV[12],(*(LnkLI94))());
595  goto T251;          goto T251;
596  T251:;  T251:;
597          bds_bind(VV[13],(V104));          bds_bind(VV[13],(V104));
598          V105= (*(LnkLI95))((V68));          V105= (*(LnkLI95))((V68));
# Line 601  T251:; Line 601  T251:;
601          V106= (*(LnkLI74))((V104),(V69));          V106= (*(LnkLI74))((V104),(V69));
602          V63= make_cons((V106),(V63));          V63= make_cons((V106),(V63));
603          goto T104;}}          goto T104;}}
604  goto T158;          goto T158;
605  T158:;  T158:;
606          if((V70!= VV[96]))goto T258;          if((V70!= VV[96]))goto T258;
607          {object V107;          {object V107;
608          V107= (*(LnkLI97))(cdr((V68)),(V69));          V107= (*(LnkLI97))(cdr((V68)),(V69));
609          V63= make_cons((V107),(V63));          V63= make_cons((V107),(V63));
610          goto T104;}          goto T104;}
611  goto T258;          goto T258;
612  T258:;  T258:;
613          if((V70!= VV[98]))goto T261;          if((V70!= VV[98]))goto T261;
614          {object V108;          {object V108;
# Line 625  T258:; Line 625  T258:;
625          V111= (*(LnkLI74))(caddr((V109)),(V69));          V111= (*(LnkLI74))(caddr((V109)),(V69));
626          V63= make_cons((V111),(V63));          V63= make_cons((V111),(V63));
627          goto T104;}          goto T104;}
628  goto T267;          goto T267;
629  T267:;  T267:;
630          V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));          V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));
631          V66= make_cons((V69),(V66));          V66= make_cons((V69),(V66));
632          goto T104;}          goto T104;}
633  goto T261;          goto T261;
634  T261:;  T261:;
635          {object V112;          {object V112;
636          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
# Line 639  T261:; Line 639  T261:;
639          goto T279;}          goto T279;}
640          V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));          V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
641          goto T274;          goto T274;
642  goto T279;          goto T279;
643  T279:;  T279:;
644          {object V113;          {object V113;
645          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
# Line 651  T279:; Line 651  T279:;
651          goto T288;          goto T288;
652          }else V115=V115->c.c_cdr;          }else V115=V115->c.c_cdr;
653          goto T287;}          goto T287;}
654  goto T288;          goto T288;
655  T288:;  T288:;
656          V114= (V69);          V114= (V69);
657          goto T285;          goto T285;
658  goto T287;          goto T287;
659  T287:;  T287:;
660          V114= VV[18];          V114= VV[18];
661  goto T285;          goto T285;
662  T285:;  T285:;
663          V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));          V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));
664          V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);          V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);
665          goto T274;          goto T274;
666  goto T276;          goto T276;
667  T276:;  T276:;
668          V112= list(2,VV[12],(*(LnkLI94))());          V112= list(2,VV[12],(*(LnkLI94))());
669  goto T274;          goto T274;
670  T274:;  T274:;
671          bds_bind(VV[13],(V112));          bds_bind(VV[13],(V112));
672          (void)((*(LnkLI95))((V68)));          (void)((*(LnkLI95))((V68)));
# Line 674  T274:; Line 674  T274:;
674          V117= (*(LnkLI74))((V112),(V69));          V117= (*(LnkLI74))((V112),(V69));
675          V63= make_cons((V117),(V63));          V63= make_cons((V117),(V63));
676          bds_unwind1;}}}}          bds_unwind1;}}}}
677  goto T104;          goto T104;
678  T104:;  T104:;
679          V65= cdr((V65));          V65= cdr((V65));
680          V66= cdr((V66));          V66= cdr((V66));
# Line 689  static object LI7(V120,V121) Line 689  static object LI7(V120,V121)
689    
690  register object V120;object V121;  register object V120;object V121;
691  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
692  goto TTL;          goto TTL;
693  TTL:;  TTL:;
694          {object V122= (V121);          {object V122= (V121);
695          if((V122!= VV[45]))goto T296;          if((V122!= VV[45]))goto T296;
696          {object V123 = list(2,VV[20],(V120));          {object V123 = list(2,VV[20],(V120));
697          VMR7(V123)}          VMR7(V123)}
698  goto T296;          goto T296;
699  T296:;  T296:;
700          if((V122!= VV[40]))goto T297;          if((V122!= VV[40]))goto T297;
701          {object V124 = list(2,VV[21],(V120));          {object V124 = list(2,VV[21],(V120));
702          VMR7(V124)}          VMR7(V124)}
703  goto T297;          goto T297;
704  T297:;  T297:;
705          if((V122!= VV[72]))goto T298;          if((V122!= VV[72]))goto T298;
706          {object V125 = list(2,VV[22],(V120));          {object V125 = list(2,VV[22],(V120));
707          VMR7(V125)}          VMR7(V125)}
708  goto T298;          goto T298;
709  T298:;  T298:;
710          if((V122!= VV[46]))goto T299;          if((V122!= VV[46]))goto T299;
711          {object V126 = list(2,VV[23],(V120));          {object V126 = list(2,VV[23],(V120));
712          VMR7(V126)}          VMR7(V126)}
713  goto T299;          goto T299;
714  T299:;  T299:;
715          if((V122!= VV[47]))goto T300;          if((V122!= VV[47]))goto T300;
716          {object V127 = list(2,VV[24],(V120));          {object V127 = list(2,VV[24],(V120));
717          VMR7(V127)}          VMR7(V127)}
718  goto T300;          goto T300;
719  T300:;  T300:;
720          {object V128 = (V120);          {object V128 = (V120);
721          VMR7(V128)}}          VMR7(V128)}}
# Line 727  static object LI8(V131,V132) Line 727  static object LI8(V131,V132)
727    
728  object V131;object V132;  object V131;object V132;
729  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
730  goto TTL;          goto TTL;
731  TTL:;  TTL:;
732          {object V133;          {object V133;
733          object V134;          object V134;
# Line 749  TTL:; Line 749  TTL:;
749          V136= Cnil;          V136= Cnil;
750          {unsigned char V137;          {unsigned char V137;
751          V137= char_code(elt((V133),V135));          V137= char_code(elt((V133),V135));
752  goto T316;          goto T316;
753  T316:;  T316:;
754          base[1]= code_char(V137);          base[1]= code_char(V137);
755          base[2]= VV[26];          base[2]= VV[26];
# Line 760  T316:; Line 760  T316:;
760          goto T317;}          goto T317;}
761          V135= (long)(V135)+(1);          V135= (long)(V135)+(1);
762          goto T313;          goto T313;
763  goto T317;          goto T317;
764  T317:;  T317:;
765          {object V138;          {object V138;
766          V138= make_fixnum((long)((long)(V137))-(48));          V138= make_fixnum((long)((long)(V137))-(48));
# Line 768  T317:; Line 768  T317:;
768          V135= (long)(V135)+(1);          V135= (long)(V135)+(1);
769          V137= char_code(elt((V133),V135));          V137= char_code(elt((V133),V135));
770          goto T316;}          goto T316;}
771  goto T313;          goto T313;
772  T313:;  T313:;
773          {object V139;          {object V139;
774          long V140;          long V140;
# Line 776  T313:; Line 776  T313:;
776          V140= 0;          V140= 0;
777          V139= (V134);          V139= (V134);
778          V141= Cnil;          V141= Cnil;
779  goto T334;          goto T334;
780  T334:;  T334:;
781          if(!(endp_prop((V139)))){          if(!(endp_prop((V139)))){
782          goto T335;}          goto T335;}
783          V134= reverse((V141));          V134= reverse((V141));
784          goto T305;          goto T305;
785  goto T335;          goto T335;
786  T335:;  T335:;
787          V143 = make_fixnum(V140);          V143 = make_fixnum(V140);
788          {register object x= V143,V142= (V136);          {register object x= V143,V142= (V136);
# Line 791  T335:; Line 791  T335:;
791          goto T343;          goto T343;
792          }else V142=V142->c.c_cdr;          }else V142=V142->c.c_cdr;
793          goto T342;}          goto T342;}
794  goto T343;          goto T343;
795  T343:;  T343:;
796          {register object V144;          {register object V144;
797          register object V145;          register object V145;
# Line 807  T343:; Line 807  T343:;
807          goto T351;          goto T351;
808          }else V147=V147->c.c_cdr;          }else V147=V147->c.c_cdr;
809          goto T347;}          goto T347;}
810  goto T351;          goto T351;
811  T351:;  T351:;
812          V146= car((V144));          V146= car((V144));
813          V145= cadr((V144));          V145= cadr((V144));
814  goto T347;          goto T347;
815  T347:;  T347:;
816          if(!(type_of((V145))==t_cons)){          if(!(type_of((V145))==t_cons)){
817          goto T356;}          goto T356;}
# Line 826  T347:; Line 826  T347:;
826          goto T362;          goto T362;
827          }else V149=V149->c.c_cdr;          }else V149=V149->c.c_cdr;
828          goto T356;}          goto T356;}
829  goto T362;          goto T362;
830  T362:;  T362:;
831          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
832          base[3]= cadr((V145));          base[3]= cadr((V145));
# Line 842  T362:; Line 842  T362:;
842          vs_top=sup;          vs_top=sup;
843          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
844          goto T356;}          goto T356;}
845  goto T355;          goto T355;
846  T355:;  T355:;
847          princ_str("\n   {",VV[5]);          princ_str("\n   {",VV[5]);
848          vs_base=vs_top;          vs_base=vs_top;
# Line 864  T355:; Line 864  T355:;
864          (void) (*Lnk88)();          (void) (*Lnk88)();
865          vs_top=sup;          vs_top=sup;
866          goto T373;          goto T373;
867  goto T379;          goto T379;
868  T379:;  T379:;
869          if((V152!= VV[20]))goto T385;          if((V152!= VV[20]))goto T385;
870          princ_str("int V",VV[5]);          princ_str("int V",VV[5]);
# Line 875  T379:; Line 875  T379:;
875          (void) (*Lnk89)();          (void) (*Lnk89)();
876          vs_top=sup;          vs_top=sup;
877          goto T373;          goto T373;
878  goto T385;          goto T385;
879  T385:;  T385:;
880          if((V152!= VV[21]))goto T391;          if((V152!= VV[21]))goto T391;
881          princ_str("GEN V",VV[5]);          princ_str("GEN V",VV[5]);
# Line 887  T385:; Line 887  T385:;
887          (void) (*Lnk90)();          (void) (*Lnk90)();
888          vs_top=sup;          vs_top=sup;
889          goto T373;          goto T373;
890  goto T391;          goto T391;
891  T391:;  T391:;
892          if((V152!= VV[22]))goto T398;          if((V152!= VV[22]))goto T398;
893          princ_str("unsigned char V",VV[5]);          princ_str("unsigned char V",VV[5]);
# Line 898  T391:; Line 898  T391:;
898          (void) (*Lnk91)();          (void) (*Lnk91)();
899          vs_top=sup;          vs_top=sup;
900          goto T373;          goto T373;
901  goto T398;          goto T398;
902  T398:;  T398:;
903          if((V152!= VV[23]))goto T404;          if((V152!= VV[23]))goto T404;
904          princ_str("double V",VV[5]);          princ_str("double V",VV[5]);
# Line 909  T398:; Line 909  T398:;
909          (void) (*Lnk92)();          (void) (*Lnk92)();
910          vs_top=sup;          vs_top=sup;
911          goto T373;          goto T373;
912  goto T404;          goto T404;
913  T404:;  T404:;
914          if((V152!= VV[24]))goto T410;          if((V152!= VV[24]))goto T410;
915          princ_str("float V",VV[5]);          princ_str("float V",VV[5]);
# Line 920  T404:; Line 920  T404:;
920          (void) (*Lnk93)();          (void) (*Lnk93)();
921          vs_top=sup;          vs_top=sup;
922          goto T373;          goto T373;
923  goto T410;          goto T410;
924  T410:;  T410:;
925          (void)((*(LnkLI100))());}}          (void)((*(LnkLI100))());}}
926  goto T373;          goto T373;
927  T373:;  T373:;
928          princ_char(59,VV[5]);          princ_char(59,VV[5]);
929          goto T340;          goto T340;
930  goto T356;          goto T356;
931  T356:;  T356:;
932          V141= make_cons(V144,(V141));          V141= make_cons(V144,(V141));
933          goto T340;}          goto T340;}
934  goto T342;          goto T342;
935  T342:;  T342:;
936          {object V154;          {object V154;
937          V154= car((V139));          V154= car((V139));
938          V141= make_cons((V154),(V141));}          V141= make_cons((V154),(V141));}
939  goto T340;          goto T340;
940  T340:;  T340:;
941          V139= cdr((V139));          V139= cdr((V139));
942          V140= (long)(V140)+1;          V140= (long)(V140)+1;
943          goto T334;}}          goto T334;}}
944  goto T305;          goto T305;
945  T305:;  T305:;
946          V155= (*(LnkLI101))(cadr((V131)));          V155= (*(LnkLI101))(cadr((V131)));
947          {object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134));          {object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134));
# Line 955  static object LI9(V158) Line 955  static object LI9(V158)
955    
956  object V158;  object V158;
957  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
958  goto TTL;          goto TTL;
959  TTL:;{object V159;  TTL:;{object V159;
960          {register object x= (V158),V161= symbol_value(VV[31]);          {register object x= (V158),V161= symbol_value(VV[31]);
961          while(!endp(V161))          while(!endp(V161))
# Line 964  TTL:;{object V159; Line 964  TTL:;{object V159;
964          goto T426;          goto T426;
965          }else V161=V161->c.c_cdr;          }else V161=V161->c.c_cdr;
966          V160= Cnil;}          V160= Cnil;}
967  goto T426;          goto T426;
968  T426:;  T426:;
969          V159= cdr(V160);          V159= cdr(V160);
970          if(V159==Cnil)goto T424;          if(V159==Cnil)goto T424;
971          {object V162 = V159;          {object V162 = V159;
972          VMR9(V162)}          VMR9(V162)}
973  goto T424;          goto T424;
974  T424:;}  T424:;}
975          {object V163 = VV[32];          {object V163 = VV[32];
976          VMR9(V163)}          VMR9(V163)}
# Line 982  static object LI10(V167,V168,V169) Line 982  static object LI10(V167,V168,V169)
982    
983  object V167;register object V168;object V169;  object V167;register object V168;object V169;
984  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
985  goto TTL;          goto TTL;
986  TTL:;  TTL:;
987          {register object V170;          {register object V170;
988          base[0]=MMcons(Cnil,Cnil);          base[0]=MMcons(Cnil,Cnil);
# Line 990  TTL:; Line 990  TTL:;
990          if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){
991          goto T429;}          goto T429;}
992          goto T428;          goto T428;
993  goto T429;          goto T429;
994  T429:;  T429:;
995          (void)((*(LnkLI103))((V167),(V169),(V168)));          (void)((*(LnkLI103))((V167),(V169),(V168)));
996  goto T428;          goto T428;
997  T428:;  T428:;
998          {object V171;          {object V171;
999          object V172= (V168);          object V172= (V168);
# Line 1001  T428:; Line 1001  T428:;
1001          V168= Cnil;          V168= Cnil;
1002          goto T432;}          goto T432;}
1003          base[1]=V171=MMcons(Cnil,Cnil);          base[1]=V171=MMcons(Cnil,Cnil);
1004  goto T433;          goto T433;
1005  T433:;  T433:;
1006          (V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2);          (V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2);
1007          V172=MMcdr(V172);          V172=MMcdr(V172);
# Line 1010  T433:; Line 1010  T433:;
1010          goto T432;}          goto T432;}
1011          V171=MMcdr(V171)=MMcons(Cnil,Cnil);          V171=MMcdr(V171)=MMcons(Cnil,Cnil);
1012          goto T433;}          goto T433;}
1013  goto T432;          goto T432;
1014  T432:;  T432:;
1015          if((symbol_value(VV[33]))==Cnil){          if((symbol_value(VV[33]))==Cnil){
1016          goto T439;}          goto T439;}
# Line 1018  T432:; Line 1018  T432:;
1018          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
1019          goto T435;}          goto T435;}
1020          goto T437;          goto T437;
1021  goto T439;          goto T439;
1022  T439:;  T439:;
1023          (base[0]->c.c_car)= get((V167),VV[35],Cnil);          (base[0]->c.c_car)= get((V167),VV[35],Cnil);
1024          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
1025          goto T435;}          goto T435;}
1026  goto T437;          goto T437;
1027  T437:;  T437:;
1028          {register object V174;          {register object V174;
1029          object V175;          object V175;
1030          V174= (base[0]->c.c_car);          V174= (base[0]->c.c_car);
1031          V175= car((V174));          V175= car((V174));
1032  goto T446;          goto T446;
1033  T446:;  T446:;
1034          if(!(endp_prop((V174)))){          if(!(endp_prop((V174)))){
1035          goto T447;}          goto T447;}
1036          goto T435;          goto T435;
1037  goto T447;          goto T447;
1038  T447:;  T447:;
1039          V170= (*(LnkLI104))((V175),(V168),(V169));          V170= (*(LnkLI104))((V175),(V168),(V169));
1040          if(((V170))==Cnil){          if(((V170))==Cnil){
1041          goto T451;}          goto T451;}
1042          {object V176 = (V170);          {object V176 = (V170);
1043          VMR10(V176)}          VMR10(V176)}
1044  goto T451;          goto T451;
1045  T451:;  T451:;
1046          V174= cdr((V174));          V174= cdr((V174));
1047          V175= car((V174));          V175= car((V174));
1048          goto T446;}          goto T446;}
1049  goto T435;          goto T435;
1050  T435:;  T435:;
1051          (base[0]->c.c_car)= get((V167),VV[36],Cnil);          (base[0]->c.c_car)= get((V167),VV[36],Cnil);
1052          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
# Line 1055  T435:; Line 1055  T435:;
1055          object V178;          object V178;
1056          V177= (base[0]->c.c_car);          V177= (base[0]->c.c_car);
1057          V178= car((V177));          V178= car((V177));
1058  goto T467;          goto T467;
1059  T467:;  T467:;
1060          if(!(endp_prop((V177)))){          if(!(endp_prop((V177)))){
1061          goto T468;}          goto T468;}
1062          goto T460;          goto T460;
1063  goto T468;          goto T468;
1064  T468:;  T468:;
1065          V170= (*(LnkLI104))((V178),(V168),(V169));          V170= (*(LnkLI104))((V178),(V168),(V169));
1066          if(((V170))==Cnil){          if(((V170))==Cnil){
1067          goto T472;}          goto T472;}
1068          {object V179 = (V170);          {object V179 = (V170);
1069          VMR10(V179)}          VMR10(V179)}
1070  goto T472;          goto T472;
1071  T472:;  T472:;
1072          V177= cdr((V177));          V177= cdr((V177));
1073          V178= car((V177));          V178= car((V177));
1074          goto T467;}          goto T467;}
1075  goto T460;          goto T460;
1076  T460:;  T460:;
1077          {register object V180;          {register object V180;
1078          object V181;          object V181;
1079          V180= symbol_value(VV[37]);          V180= symbol_value(VV[37]);
1080          V181= car((V180));          V181= car((V180));
1081  goto T485;          goto T485;
1082  T485:;  T485:;
1083          if(!(endp_prop((V180)))){          if(!(endp_prop((V180)))){
1084          goto T486;}          goto T486;}
1085          goto T481;          goto T481;
1086  goto T486;          goto T486;
1087  T486:;  T486:;
1088          if(!((car((V181)))==((V167)))){          if(!((car((V181)))==((V167)))){
1089          goto T490;}          goto T490;}
# Line 1092  T486:; Line 1092  T486:;
1092          goto T490;}          goto T490;}
1093          {object V182 = (V170);          {object V182 = (V170);
1094          VMR10(V182)}          VMR10(V182)}
1095  goto T490;          goto T490;
1096  T490:;  T490:;
1097          V180= cdr((V180));          V180= cdr((V180));
1098          V181= car((V180));          V181= car((V180));
1099          goto T485;}          goto T485;}
1100  goto T481;          goto T481;
1101  T481:;  T481:;
1102          (base[0]->c.c_car)= get((V167),VV[38],Cnil);          (base[0]->c.c_car)= get((V167),VV[38],Cnil);
1103          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
# Line 1113  T481:; Line 1113  T481:;
1113          if(((V183))==Cnil){          if(((V183))==Cnil){
1114          goto T501;}          goto T501;}
1115          goto T506;}          goto T506;}
1116  goto T508;          goto T508;
1117  T508:;  T508:;
1118  goto T506;          goto T506;
1119  T506:;  T506:;
1120          base[1]= make_fixnum((long)length((V168)));          base[1]= make_fixnum((long)length((V168)));
1121          base[2]= VV[39];          base[2]= VV[39];
# Line 1128  T506:; Line 1128  T506:;
1128          make_cclosure_new(LC27,Cnil,base[0],Cdata);          make_cclosure_new(LC27,Cnil,base[0],Cdata);
1129          {object V187 = list(4,V185,Ct,small_fixnum(3),V186);          {object V187 = list(4,V185,Ct,small_fixnum(3),V186);
1130          VMR10(V187)}          VMR10(V187)}
1131  goto T501;          goto T501;
1132  T501:;  T501:;
1133          {object V188 = Cnil;          {object V188 = Cnil;
1134          VMR10(V188)}}          VMR10(V188)}}
# Line 1141  static object LI11(V192,V193,V194) Line 1141  static object LI11(V192,V193,V194)
1141    
1142  object V192;object V193;object V194;  object V192;object V193;object V194;
1143  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1144  goto TTL;          goto TTL;
1145  TTL:;  TTL:;
1146          {register object V195;          {register object V195;
1147          V195= Cnil;          V195= Cnil;
# Line 1151  TTL:; Line 1151  TTL:;
1151          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1152          (void) (*Lnk105)();          (void) (*Lnk105)();
1153          vs_top=sup;          vs_top=sup;
1154  goto T521;          goto T521;
1155  T521:;  T521:;
1156          {register object x= VV[40],V196= car((V192));          {register object x= VV[40],V196= car((V192));
1157          while(!endp(V196))          while(!endp(V196))
# Line 1159  T521:; Line 1159  T521:;
1159          goto T527;          goto T527;
1160          }else V196=V196->c.c_cdr;          }else V196=V196->c.c_cdr;
1161          goto T525;}          goto T525;}
1162  goto T527;          goto T527;
1163  T527:;  T527:;
1164          {object V197 = Cnil;          {object V197 = Cnil;
1165          VMR11(V197)}          VMR11(V197)}
1166  goto T525;          goto T525;
1167  T525:;  T525:;
1168          {register object V198;          {register object V198;
1169          V198= car((V192));          V198= car((V192));
# Line 1171  T525:; Line 1171  T525:;
1171          register object V200;          register object V200;
1172          V199= (V193);          V199= (V193);
1173          V200= car((V199));          V200= car((V199));
1174  goto T536;          goto T536;
1175  T536:;  T536:;
1176          if(!(endp_prop((V199)))){          if(!(endp_prop((V199)))){
1177          goto T537;}          goto T537;}
1178          if(!(equal((V198),VV[41]))){          if(!(equal((V198),VV[41]))){
1179          goto T540;}          goto T540;}
1180          goto T531;          goto T531;
1181  goto T540;          goto T540;
1182  T540:;  T540:;
1183          if(!(endp_prop((V198)))){          if(!(endp_prop((V198)))){
1184          goto T529;}          goto T529;}
1185          goto T531;          goto T531;
1186  goto T537;          goto T537;
1187  T537:;  T537:;
1188          if(!(endp_prop((V198)))){          if(!(endp_prop((V198)))){
1189          goto T543;}          goto T543;}
1190          goto T529;          goto T529;
1191  goto T543;          goto T543;
1192  T543:;  T543:;
1193          if(!(equal((V198),VV[42]))){          if(!(equal((V198),VV[42]))){
1194          goto T546;}          goto T546;}
1195          V198= VV[43];          V198= VV[43];
1196  goto T546;          goto T546;
1197  T546:;  T546:;
1198          if(!((car((V198)))==(VV[44]))){          if(!((car((V198)))==(VV[44]))){
1199          goto T552;}          goto T552;}
# Line 1203  T546:; Line 1203  T546:;
1203          V201= VV[45];          V201= VV[45];
1204          V195= make_cons((V201),(V195));          V195= make_cons((V201),(V195));
1205          goto T550;}          goto T550;}
1206  goto T555;          goto T555;
1207  T555:;  T555:;
1208          if(((*(LnkLI106))(VV[46],(V200)))==Cnil){          if(((*(LnkLI106))(VV[46],(V200)))==Cnil){
1209          goto T560;}          goto T560;}
# Line 1211  T555:; Line 1211  T555:;
1211          V202= VV[46];          V202= VV[46];
1212          V195= make_cons((V202),(V195));          V195= make_cons((V202),(V195));
1213          goto T550;}          goto T550;}
1214  goto T560;          goto T560;
1215  T560:;  T560:;
1216          if(((*(LnkLI106))(VV[47],(V200)))==Cnil){          if(((*(LnkLI106))(VV[47],(V200)))==Cnil){
1217          goto T565;}          goto T565;}
# Line 1219  T560:; Line 1219  T560:;
1219          V203= VV[47];          V203= VV[47];
1220          V195= make_cons((V203),(V195));          V195= make_cons((V203),(V195));
1221          goto T550;}          goto T550;}
1222  goto T565;          goto T565;
1223  T565:;  T565:;
1224          goto T529;          goto T529;
1225  goto T552;          goto T552;
1226  T552:;  T552:;
1227          if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){          if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){
1228          goto T570;}          goto T570;}
# Line 1230  T552:; Line 1230  T552:;
1230          V204= car((V198));          V204= car((V198));
1231          V195= make_cons((V204),(V195));          V195= make_cons((V204),(V195));
1232          goto T550;}          goto T550;}
1233  goto T570;          goto T570;
1234  T570:;  T570:;
1235          goto T529;          goto T529;
1236  goto T550;          goto T550;
1237  T550:;  T550:;
1238          {register object V205;          {register object V205;
1239          V205= car((V198));          V205= car((V198));
# Line 1241  T550:; Line 1241  T550:;
1241          V199= cdr((V199));          V199= cdr((V199));
1242          V200= car((V199));          V200= car((V199));
1243          goto T536;}}          goto T536;}}
1244  goto T531;          goto T531;
1245  T531:;  T531:;
1246          if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){          if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){
1247          goto T529;}          goto T529;}
1248          V206= reverse((V195));          V206= reverse((V195));
1249          {object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192)));          {object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192)));
1250          VMR11(V207)}          VMR11(V207)}
1251  goto T529;          goto T529;
1252  T529:;  T529:;
1253          {object V208 = Cnil;          {object V208 = Cnil;
1254          VMR11(V208)}}          VMR11(V208)}}
# Line 1261  static object LI12(V211,V212) Line 1261  static object LI12(V211,V212)
1261    
1262  object V211;object V212;  object V211;object V212;
1263  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1264  goto TTL;          goto TTL;
1265  TTL:;  TTL:;
1266          {register object V213;          {register object V213;
1267          V213= Cnil;          V213= Cnil;
# Line 1269  TTL:; Line 1269  TTL:;
1269          register object V215;          register object V215;
1270          V214= (V211);          V214= (V211);
1271          V215= (V212);          V215= (V212);
1272  goto T586;          goto T586;
1273  T586:;  T586:;
1274          if(!(endp_prop((V214)))){          if(!(endp_prop((V214)))){
1275          goto T587;}          goto T587;}
1276          {object V216 = Cnil;          {object V216 = Cnil;
1277          VMR12(V216)}          VMR12(V216)}
1278  goto T587;          goto T587;
1279  T587:;  T587:;
1280          {register object V217;          {register object V217;
1281          V217= car((V214));          V217= car((V214));
1282          {object V218= car((V217));          {object V218= car((V217));
1283          if((V218!= VV[14]))goto T593;          if((V218!= VV[14]))goto T593;
1284          goto T591;          goto T591;
1285  goto T593;          goto T593;
1286  T593:;  T593:;
1287          if((V218!= VV[1]))goto T594;          if((V218!= VV[1]))goto T594;
1288          if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){          if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){
# Line 1294  T593:; Line 1294  T593:;
1294          goto T599;          goto T599;
1295          }else V219=V219->c.c_cdr;          }else V219=V219->c.c_cdr;
1296          goto T591;}          goto T591;}
1297  goto T599;          goto T599;
1298  T599:;  T599:;
1299          V221= car((V215));          V221= car((V215));
1300          V222= structure_ref(caaddr((V217)),VV[1],1);          V222= structure_ref(caaddr((V217)),VV[1],1);
1301          if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){          if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){
1302          goto T591;}          goto T591;}
1303  goto T595;          goto T595;
1304  T595:;  T595:;
1305          {object V223 = Ct;          {object V223 = Ct;
1306          VMR12(V223)}          VMR12(V223)}
1307  goto T594;          goto T594;
1308  T594:;  T594:;
1309          if((V218!= VV[82]))goto T601;          if((V218!= VV[82]))goto T601;
1310          {register object V224;          {register object V224;
# Line 1343  T594:; Line 1343  T594:;
1343          goto T623;          goto T623;
1344          }else V227=V227->c.c_cdr;          }else V227=V227->c.c_cdr;
1345          goto T621;}          goto T621;}
1346  goto T623;          goto T623;
1347  T623:;  T623:;
1348          if(!((car((V215)))==(cadr((V213))))){          if(!((car((V215)))==(cadr((V213))))){
1349          goto T603;}          goto T603;}
1350  goto T621;          goto T621;
1351  T621:;  T621:;
1352          if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){          if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){
1353          goto T591;}          goto T591;}
1354  goto T603;          goto T603;
1355  T603:;  T603:;
1356          {object V228 = Ct;          {object V228 = Ct;
1357          VMR12(V228)}}          VMR12(V228)}}
1358  goto T601;          goto T601;
1359  T601:;  T601:;
1360          if((V218!= VV[96]))goto T626;          if((V218!= VV[96]))goto T626;
1361          V229= make_cons(caddr((V217)),Cnil);          V229= make_cons(caddr((V217)),Cnil);
# Line 1363  T601:; Line 1363  T601:;
1363          goto T591;}          goto T591;}
1364          {object V230 = Ct;          {object V230 = Ct;
1365          VMR12(V230)}          VMR12(V230)}
1366  goto T626;          goto T626;
1367  T626:;  T626:;
1368          {object V231 = Ct;          {object V231 = Ct;
1369          VMR12(V231)}}}          VMR12(V231)}}}
1370  goto T591;          goto T591;
1371  T591:;  T591:;
1372          V214= cdr((V214));          V214= cdr((V214));
1373          V215= cdr((V215));          V215= cdr((V215));
# Line 1380  T591:; Line 1380  T591:;
1380  static object LI13()  static object LI13()
1381    
1382  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1383  goto TTL;          goto TTL;
1384  TTL:;  TTL:;
1385          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
1386          goto T634;}          goto T634;}
# Line 1397  TTL:; Line 1397  TTL:;
1397          princ_char(59,VV[5]);          princ_char(59,VV[5]);
1398          {object V233 = list(2,VV[6],(V232));          {object V233 = list(2,VV[6],(V232));
1399          VMR13(V233)}}          VMR13(V233)}}
1400  goto T634;          goto T634;
1401  T634:;  T634:;
1402          {object V234 = list(2,VV[12],(*(LnkLI94))());          {object V234 = list(2,VV[12],(*(LnkLI94))());
1403          VMR13(V234)}          VMR13(V234)}
# Line 1409  T634:; Line 1409  T634:;
1409  static object LI14()  static object LI14()
1410    
1411  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1412  goto TTL;          goto TTL;
1413  TTL:;  TTL:;
1414          {register object V235;          {register object V235;
1415          V235= symbol_value(VV[2]);          V235= symbol_value(VV[2]);
# Line 1418  TTL:; Line 1418  TTL:;
1418          if(!(eql(cdr((V235)),VV[52]))){          if(!(eql(cdr((V235)),VV[52]))){
1419          goto T649;}          goto T649;}
1420          princ_str("restore_avma;",VV[5]);          princ_str("restore_avma;",VV[5]);
1421  goto T649;          goto T649;
1422  T649:;  T649:;
1423          V235= car((V235));          V235= car((V235));
1424  goto T646;          goto T646;
1425  T646:;  T646:;
1426          {register long V236;          {register long V236;
1427          register long V237;          register long V237;
1428          V236= fix((V235));          V236= fix((V235));
1429          V237= 0;          V237= 0;
1430  goto T657;          goto T657;
1431  T657:;  T657:;
1432          if(!((V237)>=(V236))){          if(!((V237)>=(V236))){
1433          goto T658;}          goto T658;}
1434          {object V238 = Cnil;          {object V238 = Cnil;
1435          VMR14(V238)}          VMR14(V238)}
1436  goto T658;          goto T658;
1437  T658:;  T658:;
1438          princ_char(125,VV[5]);          princ_char(125,VV[5]);
1439          V237= (long)(V237)+1;          V237= (long)(V237)+1;
# Line 1452  static void L15() Line 1452  static void L15()
1452          V239=(base[0]);          V239=(base[0]);
1453          V240=(base[1]);          V240=(base[1]);
1454          vs_top=sup;          vs_top=sup;
1455  goto TTL;          goto TTL;
1456  TTL:;  TTL:;
1457          {register long V241;          {register long V241;
1458          long V242;          long V242;
# Line 1468  TTL:; Line 1468  TTL:;
1468          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1469          goto T672;}          goto T672;}
1470          V241= 1;          V241= 1;
1471  goto T680;          goto T680;
1472  T680:;  T680:;
1473          base[2]= elt((V239),V241);          base[2]= elt((V239),V241);
1474          base[3]= VV[26];          base[3]= VV[26];
# Line 1479  T680:; Line 1479  T680:;
1479          goto T681;}          goto T681;}
1480          V241= (long)(V241)+(1);          V241= (long)(V241)+(1);
1481          goto T672;          goto T672;
1482  goto T681;          goto T681;
1483  T681:;  T681:;
1484          V241= (long)(V241)+(1);          V241= (long)(V241)+(1);
1485          goto T680;          goto T680;
1486  goto T672;          goto T672;
1487  T672:;  T672:;
1488          {long V243;          {long V243;
1489          V243= (long)length((V239));          V243= (long)length((V239));
1490  goto T694;          goto T694;
1491  T694:;  T694:;
1492          if(!((V241)>=(V243))){          if(!((V241)>=(V243))){
1493          goto T695;}          goto T695;}
1494          base[2]= Cnil;          base[2]= Cnil;
1495          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1496          return;          return;
1497  goto T695;          goto T695;
1498  T695:;  T695:;
1499          {unsigned char V244;          {unsigned char V244;
1500          V244= char_code(elt((V239),V241));          V244= char_code(elt((V239),V241));
# Line 1519  T695:; Line 1519  T695:;
1519          if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){          if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){
1520          goto T711;}          goto T711;}
1521          princ_char(44,VV[5]);          princ_char(44,VV[5]);
1522  goto T711;          goto T711;
1523  T711:;  T711:;
1524          {register object V250;          {register object V250;
1525          V251 = make_fixnum(V242);          V251 = make_fixnum(V242);
1526          V252= one_plus(V251);          V252= one_plus(V251);
1527          V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240));          V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240));
1528  goto T719;          goto T719;
1529  T719:;  T719:;
1530          if(((V250))!=Cnil){          if(((V250))!=Cnil){
1531          goto T720;}          goto T720;}
1532          goto T706;          goto T706;
1533  goto T720;          goto T720;
1534  T720:;  T720:;
1535          base[2]= car((V250));          base[2]= car((V250));
1536          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1539  T720:; Line 1539  T720:;
1539          if((cdr((V250)))==Cnil){          if((cdr((V250)))==Cnil){
1540          goto T726;}          goto T726;}
1541          princ_char(44,VV[5]);          princ_char(44,VV[5]);
1542  goto T726;          goto T726;
1543  T726:;  T726:;
1544          V250= cdr((V250));          V250= cdr((V250));
1545          goto T719;}          goto T719;}
1546  goto T709;          goto T709;
1547  T709:;  T709:;
1548          base[2]= (V245);          base[2]= (V245);
1549          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
# Line 1583  T709:; Line 1583  T709:;
1583          V263= number_minus(V261,V262);          V263= number_minus(V261,V262);
1584          V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263);          V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263);
1585          V241= (long)(V241)+(1);          V241= (long)(V241)+(1);
1586  goto T741;          goto T741;
1587  T741:;  T741:;
1588          V264 = make_fixnum(V242);          V264 = make_fixnum(V242);
1589          if(!(number_compare((V246),V264)>=0)){          if(!(number_compare((V246),V264)>=0)){
1590          goto T754;}          goto T754;}
1591          V242= fix((V246));          V242= fix((V246));
1592  goto T754;          goto T754;
1593  T754:;  T754:;
1594          base[2]= nth(fixint((V246)),(V240));          base[2]= nth(fixint((V246)),(V240));
1595          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1596          (void) (*Lnk88)();          (void) (*Lnk88)();
1597          vs_top=sup;}          vs_top=sup;}
1598  goto T706;          goto T706;
1599  T706:;  T706:;
1600          V241= (long)(V241)+(2);          V241= (long)(V241)+(2);
1601          goto T699;          goto T699;
1602  goto T702;          goto T702;
1603  T702:;  T702:;
1604          (void)(princ(code_char(V244),symbol_value(VV[5])));          (void)(princ(code_char(V244),symbol_value(VV[5])));
1605          V241= (long)(V241)+(1);}          V241= (long)(V241)+(1);}
1606  goto T699;          goto T699;
1607  T699:;  T699:;
1608          goto T694;}          goto T694;}
1609  goto T670;          goto T670;
1610  T670:;  T670:;
1611          base[2]= (V239);          base[2]= (V239);
1612          {object V265;          {object V265;
# Line 1633  static void L16() Line 1633  static void L16()
1633          V267=(base[1]);          V267=(base[1]);
1634          V268=(base[2]);          V268=(base[2]);
1635          vs_top=sup;          vs_top=sup;
1636  goto TTL;          goto TTL;
1637  TTL:;  TTL:;
1638          base[3]= (V267);          base[3]= (V267);
1639          base[4]= (V268);          base[4]= (V268);
# Line 1648  static object LI17(V272,V273,V274) Line 1648  static object LI17(V272,V273,V274)
1648    
1649  object V272;object V273;object V274;  object V272;object V273;object V274;
1650  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1651  goto TTL;          goto TTL;
1652  TTL:;  TTL:;
1653          princ_char(40,VV[5]);          princ_char(40,VV[5]);
1654          base[0]= (V273);          base[0]= (V273);
# Line 1668  static object LI18(V279,V280,V281) Line 1668  static object LI18(V279,V280,V281)
1668    
1669  object V279;object V280;object V281;  object V279;object V280;object V281;
1670  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1671  goto TTL;          goto TTL;
1672  TTL:;  TTL:;
1673          if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){
1674          goto T774;}          goto T774;}
1675          princ_str("CMP",VV[5]);          princ_str("CMP",VV[5]);
1676  goto T774;          goto T774;
1677  T774:;  T774:;
1678          princ_str("make_fixnum((long)",VV[5]);          princ_str("make_fixnum((long)",VV[5]);
1679          base[0]= (V280);          base[0]= (V280);
# Line 1701  static void L19() Line 1701  static void L19()
1701          V284=(base[1]);          V284=(base[1]);
1702          V285=(base[2]);          V285=(base[2]);
1703          vs_top=sup;          vs_top=sup;
1704  goto TTL;          goto TTL;
1705  TTL:;  TTL:;
1706          princ_str("make_integer(",VV[5]);          princ_str("make_integer(",VV[5]);
1707          base[3]= (V284);          base[3]= (V284);
# Line 1721  static object LI20(V289,V290,V291) Line 1721  static object LI20(V289,V290,V291)
1721    
1722  object V289;object V290;object V291;  object V289;object V290;object V291;
1723  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1724  goto TTL;          goto TTL;
1725  TTL:;  TTL:;
1726          princ_str("code_char(",VV[5]);          princ_str("code_char(",VV[5]);
1727          base[0]= (V290);          base[0]= (V290);
# Line 1741  static object LI21(V296,V297,V298) Line 1741  static object LI21(V296,V297,V298)
1741    
1742  object V296;object V297;object V298;  object V296;object V297;object V298;
1743  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1744  goto TTL;          goto TTL;
1745  TTL:;  TTL:;
1746          princ_str("make_longfloat(",VV[5]);          princ_str("make_longfloat(",VV[5]);
1747          base[0]= (V297);          base[0]= (V297);
# Line 1761  static object LI22(V303,V304,V305) Line 1761  static object LI22(V303,V304,V305)
1761    
1762  object V303;object V304;object V305;  object V303;object V304;object V305;
1763  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1764  goto TTL;          goto TTL;
1765  TTL:;  TTL:;
1766          princ_str("make_shortfloat(",VV[5]);          princ_str("make_shortfloat(",VV[5]);
1767          base[0]= (V304);          base[0]= (V304);
# Line 1781  static object LI23(V308) Line 1781  static object LI23(V308)
1781    
1782  object V308;  object V308;
1783  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1784  goto TTL;          goto TTL;
1785  TTL:;  TTL:;
1786          {register object V309;          {register object V309;
1787          V309= Cnil;          V309= Cnil;
# Line 1789  TTL:; Line 1789  TTL:;
1789          register object V311;          register object V311;
1790          V310= (V308);          V310= (V308);
1791          V311= car((V310));          V311= car((V310));
1792  goto T812;          goto T812;
1793  T812:;  T812:;
1794          if(!(endp_prop((V310)))){          if(!(endp_prop((V310)))){
1795          goto T813;}          goto T813;}
1796          {object V312 = Cnil;          {object V312 = Cnil;
1797          VMR23(V312)}          VMR23(V312)}
1798  goto T813;          goto T813;
1799  T813:;  T813:;
1800          {object V313= car((V311));          {object V313= car((V311));
1801          if((V313!= VV[14])          if((V313!= VV[14])
1802          && (V313!= VV[1])          && (V313!= VV[1])
1803          && (V313!= VV[96]))goto T818;          && (V313!= VV[96]))goto T818;
1804          goto T817;          goto T817;
1805  goto T818;          goto T818;
1806  T818:;  T818:;
1807          if((V313!= VV[82]))goto T819;          if((V313!= VV[82]))goto T819;
1808          {register object V314;          {register object V314;
# Line 1826  T818:; Line 1826  T818:;
1826          V317= vs_base[0];          V317= vs_base[0];
1827          if((V317)==Cnil){          if((V317)==Cnil){
1828          goto T817;}          goto T817;}
1829  goto T821;          goto T821;
1830  T821:;  T821:;
1831          {object V318 = Ct;          {object V318 = Ct;
1832          VMR23(V318)}}          VMR23(V318)}}
1833  goto T819;          goto T819;
1834  T819:;  T819:;
1835          {object V319 = Ct;          {object V319 = Ct;
1836          VMR23(V319)}}          VMR23(V319)}}
1837  goto T817;          goto T817;
1838  T817:;  T817:;
1839          V310= cdr((V310));          V310= cdr((V310));
1840          V311= car((V310));          V311= car((V310));
# Line 1862  static object LI24(object first,...) Line 1862  static object LI24(object first,...)
1862          goto T845;}          goto T845;}
1863          V322= Cnil;          V322= Cnil;
1864          goto T844;          goto T844;
1865  goto T845;          goto T845;
1866  T845:;  T845:;
1867          if((car(symbol_value(VV[13])))==(VV[1])){          if((car(symbol_value(VV[13])))==(VV[1])){
1868          goto T847;}          goto T847;}
1869          V322= Cnil;          V322= Cnil;
1870          goto T844;          goto T844;
1871  goto T847;          goto T847;
1872  T847:;  T847:;
1873          V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);          V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);
1874          V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil);          V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil);
1875  goto T844;          goto T844;
1876  T844:;  T844:;
1877          if(((V322))==Cnil){          if(((V322))==Cnil){
1878          goto T842;}          goto T842;}
# Line 1881  T844:; Line 1881  T844:;
1881          princ_str("),ON_STACK_LIST(",VV[5]);          princ_str("),ON_STACK_LIST(",VV[5]);
1882          (void)((*(LnkLI76))((V323)));          (void)((*(LnkLI76))((V323)));
1883          goto T840;          goto T840;
1884  goto T842;          goto T842;
1885  T842:;  T842:;
1886          princ_str("list(",VV[5]);          princ_str("list(",VV[5]);
1887          V325 = make_fixnum((long)length((V320)));          V325 = make_fixnum((long)length((V320)));
1888          (void)((*(LnkLI76))(V325));          (void)((*(LnkLI76))(V325));
1889  goto T840;          goto T840;
1890  T840:;  T840:;
1891          {register object V326;          {register object V326;
1892          register object V327;          register object V327;
1893          V326= (V320);          V326= (V320);
1894          V327= car((V326));          V327= car((V326));
1895  goto T859;          goto T859;
1896  T859:;  T859:;
1897          if(!(endp_prop((V326)))){          if(!(endp_prop((V326)))){
1898          goto T860;}          goto T860;}
1899          goto T855;          goto T855;
1900  goto T860;          goto T860;
1901  T860:;  T860:;
1902          (void)((*(LnkLI76))(VV[58]));          (void)((*(LnkLI76))(VV[58]));
1903          (void)((*(LnkLI76))((V327)));          (void)((*(LnkLI76))((V327)));
1904          V326= cdr((V326));          V326= cdr((V326));
1905          V327= car((V326));          V327= car((V326));
1906          goto T859;}          goto T859;}
1907  goto T855;          goto T855;
1908  T855:;  T855:;
1909          (void)((*(LnkLI76))(VV[59]));          (void)((*(LnkLI76))(VV[59]));
1910          if(((V322))==Cnil){          if(((V322))==Cnil){
# Line 1912  T855:; Line 1912  T855:;
1912          (void)((*(LnkLI76))(VV[59]));          (void)((*(LnkLI76))(VV[59]));
1913          {object V328 = Cnil;          {object V328 = Cnil;
1914          VMR24(V328)}          VMR24(V328)}
1915  goto T875;          goto T875;
1916  T875:;  T875:;
1917          {object V329 = Cnil;          {object V329 = Cnil;
1918          VMR24(V329)}}          VMR24(V329)}}
# Line 1933  static object LI25(object first,...) Line 1933  static object LI25(object first,...)
1933          V331 = list_vector_new(narg,first,ap);          V331 = list_vector_new(narg,first,ap);
1934          V330= V331;switch((long)length((V330))){          V330= V331;switch((long)length((V330))){
1935          case 1:          case 1:
1936  goto T879;          goto T879;
1937  T879:;  T879:;
1938          (void)((*(LnkLI76))(car((V330))));          (void)((*(LnkLI76))(car((V330))));
1939          {object V332 = Cnil;          {object V332 = Cnil;
1940          VMR25(V332)}          VMR25(V332)}
1941          case 2:          case 2:
1942  goto T880;          goto T880;
1943  T880:;  T880:;
1944          princ_str("make_cons(",VV[5]);          princ_str("make_cons(",VV[5]);
1945          (void)((*(LnkLI76))(car((V330))));          (void)((*(LnkLI76))(car((V330))));
# Line 1949  T880:; Line 1949  T880:;
1949          {object V333 = Cnil;          {object V333 = Cnil;
1950          VMR25(V333)}          VMR25(V333)}
1951          default:          default:
1952  goto T881;          goto T881;
1953  T881:;  T881:;
1954          princ_str("listA(",VV[5]);          princ_str("listA(",VV[5]);
1955          V334 = make_fixnum((long)length((V330)));          V334 = make_fixnum((long)length((V330)));
# Line 1958  T881:; Line 1958  T881:;
1958          register object V336;          register object V336;
1959          V335= (V330);          V335= (V330);
1960          V336= car((V335));          V336= car((V335));
1961  goto T896;          goto T896;
1962  T896:;  T896:;
1963          if(!(endp_prop((V335)))){          if(!(endp_prop((V335)))){
1964          goto T897;}          goto T897;}
1965          goto T892;          goto T892;
1966  goto T897;          goto T897;
1967  T897:;  T897:;
1968          (void)((*(LnkLI76))(VV[58]));          (void)((*(LnkLI76))(VV[58]));
1969          (void)((*(LnkLI76))((V336)));          (void)((*(LnkLI76))((V336)));
1970          V335= cdr((V335));          V335= cdr((V335));
1971          V336= car((V335));          V336= car((V335));
1972          goto T896;}          goto T896;}
1973  goto T892;          goto T892;
1974  T892:;  T892:;
1975          (void)((*(LnkLI76))(VV[59]));          (void)((*(LnkLI76))(VV[59]));
1976          {object V337 = Cnil;          {object V337 = Cnil;
# Line 1989  static object LI26(V346,V347,V348,V349,V Line 1989  static object LI26(V346,V347,V348,V349,V
1989    
1990  register object V346;object V347;object V348;register object V349;object V350;object V351;  register object V346;object V347;object V348;register object V349;object V350;object V351;
1991  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1992  goto TTL;          goto TTL;
1993  TTL:;  TTL:;
1994          if(((V347))==Cnil){          if(((V347))==Cnil){
1995          goto T910;}          goto T910;}
1996          (void)(putprop((V346),(V347),VV[60]));          (void)(putprop((V346),(V347),VV[60]));
1997  goto T910;          goto T910;
1998  T910:;  T910:;
1999          if(((V348))==Cnil){          if(((V348))==Cnil){
2000          goto T913;}          goto T913;}
# Line 2004  T910:; Line 2004  T910:;
2004          V352= Cnil;          V352= Cnil;
2005          goto T916;}          goto T916;}
2006          base[0]=V353=MMcons(Cnil,Cnil);          base[0]=V353=MMcons(Cnil,Cnil);
2007  goto T917;          goto T917;
2008  T917:;  T917:;
2009          if(!(((V354->c.c_car))==(VV[61]))){          if(!(((V354->c.c_car))==(VV[61]))){
2010          goto T920;}          goto T920;}
2011          (V353->c.c_car)= VV[61];          (V353->c.c_car)= VV[61];
2012          goto T918;          goto T918;
2013  goto T920;          goto T920;
2014  T920:;  T920:;
2015          (V353->c.c_car)= (*(LnkLI108))((V354->c.c_car));          (V353->c.c_car)= (*(LnkLI108))((V354->c.c_car));
2016  goto T918;          goto T918;
2017  T918:;  T918:;
2018          V354=MMcdr(V354);          V354=MMcdr(V354);
2019          if(endp(V354)){          if(endp(V354)){
# Line 2021  T918:; Line 2021  T918:;
2021          goto T916;}          goto T916;}
2022          V353=MMcdr(V353)=MMcons(Cnil,Cnil);          V353=MMcdr(V353)=MMcons(Cnil,Cnil);
2023          goto T917;}          goto T917;}
2024  goto T916;          goto T916;
2025  T916:;  T916:;
2026          (void)(putprop((V346),V352,VV[62]));          (void)(putprop((V346),V352,VV[62]));
2027  goto T913;          goto T913;
2028  T913:;  T913:;
2029          if(((V349))==Cnil){          if(((V349))==Cnil){
2030          goto T922;}          goto T922;}
# Line 2033  T913:; Line 2033  T913:;
2033          goto T928;}          goto T928;}
2034          V357= make_cons((V349),Cnil);          V357= make_cons((V349),Cnil);
2035          goto T926;          goto T926;
2036  goto T928;          goto T928;
2037  T928:;  T928:;
2038          V357= (V349);          V357= (V349);
2039  goto T926;          goto T926;
2040  T926:;  T926:;
2041          V356= (*(LnkLI109))(V357);          V356= (*(LnkLI109))(V357);
2042          if(!(type_of((V356))==t_cons)){          if(!(type_of((V356))==t_cons)){
2043          goto T931;}          goto T931;}
2044          goto T930;          goto T930;
2045  goto T931;          goto T931;
2046  T931:;  T931:;
2047          V356= make_cons((V356),Cnil);          V356= make_cons((V356),Cnil);
2048  goto T930;          goto T930;
2049  T930:;  T930:;
2050          if((cdr((V356)))!=Cnil){          if((cdr((V356)))!=Cnil){
2051          goto T936;}          goto T936;}
2052          V358= car((V356));          V358= car((V356));
2053          goto T934;          goto T934;
2054  goto T936;          goto T936;
2055  T936:;  T936:;
2056          V358= make_cons(VV[63],(V356));          V358= make_cons(VV[63],(V356));
2057  goto T934;          goto T934;
2058  T934:;  T934:;
2059          (void)(putprop((V346),V358,VV[64]));}          (void)(putprop((V346),V358,VV[64]));}
2060  goto T922;          goto T922;
2061  T922:;  T922:;
2062          if(((V350))==Cnil){          if(((V350))==Cnil){
2063          goto T938;}          goto T938;}
2064          (void)(putprop((V346),Ct,VV[65]));          (void)(putprop((V346),Ct,VV[65]));
2065  goto T938;          goto T938;
2066  T938:;  T938:;
2067          if(((V351))==Cnil){          if(((V351))==Cnil){
2068          goto T942;}          goto T942;}
2069          {object V359 = putprop((V346),Ct,VV[66]);          {object V359 = putprop((V346),Ct,VV[66]);
2070          VMR26(V359)}          VMR26(V359)}
2071  goto T942;          goto T942;
2072  T942:;  T942:;
2073          {object V360 = Cnil;          {object V360 = Cnil;
2074          VMR26(V360)}          VMR26(V360)}

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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