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

Diff of /gcl/cmpnew/cmptag.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 53  static object LI2(V12,V13) Line 53  static object LI2(V12,V13)
53    
54  register object V12;object V13;  register object V12;object V13;
55  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
56  goto TTL;          goto TTL;
57  TTL:;  TTL:;
58          {object V14;          {object V14;
59          V14= Cnil;          V14= Cnil;
# Line 61  TTL:; Line 61  TTL:;
61          goto T12;}          goto T12;}
62          {object V15 = Cnil;          {object V15 = Cnil;
63          VMR2(V15)}          VMR2(V15)}
64  goto T12;          goto T12;
65  T12:;  T12:;
66          {object V16;          {object V16;
67          if((car((V12)))==(VV[1])){          if((car((V12)))==(VV[1])){
68          goto T15;}          goto T15;}
69          V16= Cnil;          V16= Cnil;
70          goto T14;          goto T14;
71  goto T15;          goto T15;
72  T15:;  T15:;
73          V14= cadddr(cdr((V12)));          V14= cadddr(cdr((V12)));
74          base[0]= (V14);          base[0]= (V14);
# Line 80  T15:; Line 80  T15:;
80          goto T17;}          goto T17;}
81          V16= Cnil;          V16= Cnil;
82          goto T14;          goto T14;
83  goto T17;          goto T17;
84  T17:;  T17:;
85          V17= structure_ref((V14),VV[0],0);          V17= structure_ref((V14),VV[0],0);
86          V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);          V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);
87  goto T14;          goto T14;
88  T14:;  T14:;
89          if(((V16))==Cnil){          if(((V16))==Cnil){
90          goto T23;}          goto T23;}
91          {object V18 = (V16);          {object V18 = (V16);
92          VMR2(V18)}          VMR2(V18)}
93  goto T23;          goto T23;
94  T23:;{object V19;  T23:;{object V19;
95          V19= (*(LnkLI46))(car((V12)),(V13));          V19= (*(LnkLI46))(car((V12)),(V13));
96          if(V19==Cnil)goto T25;          if(V19==Cnil)goto T25;
97          {object V20 = V19;          {object V20 = V19;
98          VMR2(V20)}          VMR2(V20)}
99  goto T25;          goto T25;
100  T25:;}  T25:;}
101          V12= cdr((V12));          V12= cdr((V12));
102          goto TTL;}}          goto TTL;}}
# Line 109  static object LI3(V22) Line 109  static object LI3(V22)
109    
110  register object V22;  register object V22;
111  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
112  goto TTL;          goto TTL;
113  TTL:;  TTL:;
114          if(!(type_of((V22))!=t_cons)){          if(!(type_of((V22))!=t_cons)){
115          goto T31;}          goto T31;}
# Line 124  TTL:; Line 124  TTL:;
124          V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));          V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));
125          {object V25 = structure_set((V22),VV[2],6,V24);          {object V25 = structure_set((V22),VV[2],6,V24);
126          VMR3(V25)}}          VMR3(V25)}}
127  goto T34;          goto T34;
128  T34:;  T34:;
129          {object V26 = Cnil;          {object V26 = Cnil;
130          VMR3(V26)}          VMR3(V26)}
131  goto T31;          goto T31;
132  T31:;  T31:;
133          (void)((*(LnkLI47))(car((V22))));          (void)((*(LnkLI47))(car((V22))));
134          V22= cdr((V22));          V22= cdr((V22));
# Line 142  static object LI4(V28) Line 142  static object LI4(V28)
142    
143  object V28;  object V28;
144  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
145  goto TTL;          goto TTL;
146  TTL:;  TTL:;
147          {register object V29;          {register object V29;
148          register object V30;          register object V30;
# Line 150  TTL:; Line 150  TTL:;
150          V29= (V28);          V29= (V28);
151          V30= Cnil;          V30= Cnil;
152          V31= Cnil;          V31= Cnil;
153  goto T42;          goto T42;
154  T42:;  T42:;
155          if(((V29))!=Cnil){          if(((V29))!=Cnil){
156          goto T43;}          goto T43;}
157          {register object V32;          {register object V32;
158          V32= (V31);          V32= (V31);
159  goto T47;          goto T47;
160  T47:;  T47:;
161          if(!(((V32))==((V30)))){          if(!(((V32))==((V30)))){
162          goto T48;}          goto T48;}
163          {object V33 = (*(LnkLI47))(car((V32)));          {object V33 = (*(LnkLI47))(car((V32)));
164          VMR4(V33)}          VMR4(V33)}
165  goto T48;          goto T48;
166  T48:;  T48:;
167          (void)((*(LnkLI47))(car((V32))));          (void)((*(LnkLI47))(car((V32))));
168          V32= cdr((V32));          V32= cdr((V32));
169          goto T47;}          goto T47;}
170  goto T43;          goto T43;
171  T43:;  T43:;
172          base[0]= car((V29));          base[0]= car((V29));
173          base[1]= VV[0];          base[1]= VV[0];
# Line 179  T43:; Line 179  T43:;
179          if((V31)!=Cnil){          if((V31)!=Cnil){
180          goto T62;}          goto T62;}
181          V31= (V29);          V31= (V29);
182  goto T62;          goto T62;
183  T62:;  T62:;
184          {register object V34;          {register object V34;
185          register object V35;          register object V35;
186          V34= cdr((V29));          V34= cdr((V29));
187          V35= structure_ref(car((V29)),VV[0],0);          V35= structure_ref(car((V29)),VV[0],0);
188  goto T67;          goto T67;
189  T67:;  T67:;
190          if(((V34))!=Cnil){          if(((V34))!=Cnil){
191          goto T68;}          goto T68;}
192          goto T57;          goto T57;
193  goto T68;          goto T68;
194  T68:;  T68:;
195          if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){          if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){
196          goto T72;}          goto T72;}
197          V30= (V34);          V30= (V34);
198  goto T72;          goto T72;
199  T72:;  T72:;
200          V34= cdr((V34));          V34= cdr((V34));
201          goto T67;}          goto T67;}
202  goto T57;          goto T57;
203  T57:;  T57:;
204          V29= cdr((V29));          V29= cdr((V29));
205          goto T42;}          goto T42;}
# Line 213  static object LI5(V37) Line 213  static object LI5(V37)
213  object V37;  object V37;
214  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
215          bds_check;          bds_check;
216  goto TTL;          goto TTL;
217  TTL:;  TTL:;
218          {register object V38;          {register object V38;
219          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
# Line 224  TTL:; Line 224  TTL:;
224          V37= Cnil;          V37= Cnil;
225          goto T84;}          goto T84;}
226          base[2]=V39=MMcons(Cnil,Cnil);          base[2]=V39=MMcons(Cnil,Cnil);
227  goto T85;          goto T85;
228  T85:;  T85:;
229          if(type_of((V40->c.c_car))==t_symbol){          if(type_of((V40->c.c_car))==t_symbol){
230          goto T87;}          goto T87;}
231          if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){          if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){
232          goto T88;}          goto T88;}
233  goto T87;          goto T87;
234  T87:;  T87:;
235          {object V42;          {object V42;
236          V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));          V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
237          (VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind));
238          (V39->c.c_car)= (V42);          (V39->c.c_car)= (V42);
239          goto T86;}          goto T86;}
240  goto T88;          goto T88;
241  T88:;  T88:;
242          (V39->c.c_car)= (V40->c.c_car);          (V39->c.c_car)= (V40->c.c_car);
243  goto T86;          goto T86;
244  T86:;  T86:;
245          V40=MMcdr(V40);          V40=MMcdr(V40);
246          if(endp(V40)){          if(endp(V40)){
# Line 248  T86:; Line 248  T86:;
248          goto T84;}          goto T84;}
249          V39=MMcdr(V39)=MMcons(Cnil,Cnil);          V39=MMcdr(V39)=MMcons(Cnil,Cnil);
250          goto T85;}          goto T85;}
251  goto T84;          goto T84;
252  T84:;  T84:;
253          {object V44;          {object V44;
254          object V45= (V37);          object V45= (V37);
# Line 256  T84:; Line 256  T84:;
256          V37= Cnil;          V37= Cnil;
257          goto T96;}          goto T96;}
258          base[2]=V44=MMcons(Cnil,Cnil);          base[2]=V44=MMcons(Cnil,Cnil);
259  goto T97;          goto T97;
260  T97:;  T97:;
261          base[3]= (V45->c.c_car);          base[3]= (V45->c.c_car);
262          base[4]= VV[0];          base[4]= VV[0];
# Line 267  T97:; Line 267  T97:;
267          goto T100;}          goto T100;}
268          (V44->c.c_car)= (V45->c.c_car);          (V44->c.c_car)= (V45->c.c_car);
269          goto T98;          goto T98;
270  goto T100;          goto T100;
271  T100:;  T100:;
272          (V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38));          (V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38));
273  goto T98;          goto T98;
274  T98:;  T98:;
275          V45=MMcdr(V45);          V45=MMcdr(V45);
276          if(endp(V45)){          if(endp(V45)){
# Line 278  T98:; Line 278  T98:;
278          goto T96;}          goto T96;}
279          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V44=MMcdr(V44)=MMcons(Cnil,Cnil);
280          goto T97;}          goto T97;}
281  goto T96;          goto T96;
282  T96:;  T96:;
283          {register object V47;          {register object V47;
284          register object V48;          register object V48;
# Line 290  T96:; Line 290  T96:;
290          V49= Cnil;          V49= Cnil;
291          V50= Cnil;          V50= Cnil;
292          V51= Cnil;          V51= Cnil;
293  goto T105;          goto T105;
294  T105:;  T105:;
295          if(!(endp_prop((V47)))){          if(!(endp_prop((V47)))){
296          goto T106;}          goto T106;}
# Line 300  T105:; Line 300  T105:;
300          goto T109;}          goto T109;}
301          if(((V49))==Cnil){          if(((V49))==Cnil){
302          goto T110;}          goto T110;}
303  goto T109;          goto T109;
304  T109:;  T109:;
305          V48= reverse((V48));          V48= reverse((V48));
306          if(((V50))!=Cnil){          if(((V50))!=Cnil){
307          goto T119;}          goto T119;}
308          if(((V51))==Cnil){          if(((V51))==Cnil){
309          goto T120;}          goto T120;}
310  goto T119;          goto T119;
311  T119:;  T119:;
312          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
313          goto T118;          goto T118;
314  goto T120;          goto T120;
315  T120:;  T120:;
316          (void)((*(LnkLI51))((V48)));          (void)((*(LnkLI51))((V48)));
317  goto T118;          goto T118;
318  T118:;  T118:;
319          {object V52 = list(5,VV[10],(V38),(V50),(V51),(V48));          {object V52 = list(5,VV[10],(V38),(V50),(V51),(V48));
320          bds_unwind1;          bds_unwind1;
321          VMR5(V52)}          VMR5(V52)}
322  goto T110;          goto T110;
323  T110:;  T110:;
324          V53= (*(LnkLI52))();          V53= (*(LnkLI52))();
325          V54= make_cons(/* INLINE-ARGS */V53,(V48));          V54= make_cons(/* INLINE-ARGS */V53,(V48));
326          {object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54));          {object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54));
327          bds_unwind1;          bds_unwind1;
328          VMR5(V55)}          VMR5(V55)}
329  goto T106;          goto T106;
330  T106:;  T106:;
331          base[2]= car((V47));          base[2]= car((V47));
332          base[3]= VV[0];          base[3]= VV[0];
# Line 346  T106:; Line 346  T106:;
346          (void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59));          (void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59));
347          V51= Ct;          V51= Ct;
348          goto T126;          goto T126;
349  goto T133;          goto T133;
350  T133:;  T133:;
351          if((structure_ref(car((V47)),VV[0],2))==Cnil){          if((structure_ref(car((V47)),VV[0],2))==Cnil){
352          goto T141;}          goto T141;}
# Line 359  T133:; Line 359  T133:;
359          (void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63));          (void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63));
360          V50= Ct;          V50= Ct;
361          goto T126;          goto T126;
362  goto T141;          goto T141;
363  T141:;  T141:;
364          if((structure_ref(car((V47)),VV[0],1))==Cnil){          if((structure_ref(car((V47)),VV[0],1))==Cnil){
365          goto T126;}          goto T126;}
# Line 368  T141:; Line 368  T141:;
368          V48= make_cons((V64),(V48));}          V48= make_cons((V64),(V48));}
369          V49= Ct;          V49= Ct;
370          goto T126;          goto T126;
371  goto T128;          goto T128;
372  T128:;  T128:;
373          {object V65;          {object V65;
374          V65= car((V47));          V65= car((V47));
375          V48= make_cons((V65),(V48));}          V48= make_cons((V65),(V48));}
376  goto T126;          goto T126;
377  T126:;  T126:;
378          V47= cdr((V47));          V47= cdr((V47));
379          goto T105;}}          goto T105;}}
# Line 386  static object LI6(V69,V70,V71) Line 386  static object LI6(V69,V70,V71)
386    
387  object V69;object V70;object V71;  object V69;object V70;object V71;
388  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
389  goto TTL;          goto TTL;
390  TTL:;  TTL:;
391          if(((V70))==Cnil){          if(((V70))==Cnil){
392          goto T160;}          goto T160;}
393          {object V72 = (*(LnkLI54))((V71));          {object V72 = (*(LnkLI54))((V71));
394          VMR6(V72)}          VMR6(V72)}
395  goto T160;          goto T160;
396  T160:;  T160:;
397          if(((V69))==Cnil){          if(((V69))==Cnil){
398          goto T163;}          goto T163;}
399          {object V73 = (*(LnkLI55))((V71));          {object V73 = (*(LnkLI55))((V71));
400          VMR6(V73)}          VMR6(V73)}
401  goto T163;          goto T163;
402  T163:;  T163:;
403          {object V74 = (*(LnkLI56))((V71));          {object V74 = (*(LnkLI56))((V71));
404          VMR6(V74)}          VMR6(V74)}
# Line 411  static object LI7(V76) Line 411  static object LI7(V76)
411  object V76;  object V76;
412  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
413          bds_check;          bds_check;
414  goto TTL;          goto TTL;
415  TTL:;  TTL:;
416          {register object V77;          {register object V77;
417          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
# Line 420  TTL:; Line 420  TTL:;
420          register object V79;          register object V79;
421          V78= (V76);          V78= (V76);
422          V79= car((V78));          V79= car((V78));
423  goto T171;          goto T171;
424  T171:;  T171:;
425          if(!(endp_prop((V78)))){          if(!(endp_prop((V78)))){
426          goto T172;}          goto T172;}
427          goto T167;          goto T167;
428  goto T172;          goto T172;
429  T172:;  T172:;
430          base[2]= (V79);          base[2]= (V79);
431          base[3]= VV[0];          base[3]= VV[0];
# Line 438  T172:; Line 438  T172:;
438          V80= make_cons(symbol_value(VV[12]),Ct);          V80= make_cons(symbol_value(VV[12]),Ct);
439          (void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80));          (void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80));
440          (void)(structure_set((V79),VV[0],5,(V77)));          (void)(structure_set((V79),VV[0],5,(V77)));
441  goto T176;          goto T176;
442  T176:;  T176:;
443          V78= cdr((V78));          V78= cdr((V78));
444          V79= car((V78));          V79= car((V78));
445          goto T171;}          goto T171;}
446  goto T167;          goto T167;
447  T167:;  T167:;
448          base[1]= make_cons((V77),symbol_value(VV[13]));          base[1]= make_cons((V77),symbol_value(VV[13]));
449          bds_bind(VV[13],base[1]);          bds_bind(VV[13],base[1]);
# Line 460  static object LI8(V83) Line 460  static object LI8(V83)
460  object V83;  object V83;
461  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
462          bds_check;          bds_check;
463  goto TTL;          goto TTL;
464  TTL:;  TTL:;
465          {register object V84;          {register object V84;
466          register object V85;          register object V85;
467          V84= (V83);          V84= (V83);
468          V85= Cnil;          V85= Cnil;
469  goto T190;          goto T190;
470  T190:;  T190:;
471          if(!(endp_prop(cdr((V84))))){          if(!(endp_prop(cdr((V84))))){
472          goto T191;}          goto T191;}
# Line 474  T190:; Line 474  T190:;
474          goto T195;}          goto T195;}
475          {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
476          VMR8(V86)}          VMR8(V86)}
477  goto T195;          goto T195;
478  T195:;  T195:;
479          base[0]= car((V84));          base[0]= car((V84));
480          base[1]= VV[0];          base[1]= VV[0];
# Line 488  T195:; Line 488  T195:;
488          V88= structure_ref(car((V84)),VV[0],4);          V88= structure_ref(car((V84)),VV[0],4);
489          if((cdr(/* INLINE-ARGS */V88))==Cnil){          if((cdr(/* INLINE-ARGS */V88))==Cnil){
490          goto T203;}          goto T203;}
491          princ_str("\ngoto T",VV[14]);          princ_str("\n   goto T",VV[14]);
492          V89= structure_ref(car((V84)),VV[0],4);          V89= structure_ref(car((V84)),VV[0],4);
493          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V89)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V89)));
494          princ_char(59,VV[14]);          princ_char(59,VV[14]);
# Line 496  T195:; Line 496  T195:;
496          V90= structure_ref(car((V84)),VV[0],4);          V90= structure_ref(car((V84)),VV[0],4);
497          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V90)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V90)));
498          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
499  goto T203;          goto T203;
500  T203:;  T203:;
501          {object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
502          VMR8(V91)}          VMR8(V91)}
503  goto T198;          goto T198;
504  T198:;  T198:;
505          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
506          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
# Line 515  T198:; Line 515  T198:;
515          bds_unwind1;          bds_unwind1;
516          bds_unwind1;          bds_unwind1;
517          goto T213;}          goto T213;}
518          princ_str("\ngoto T",VV[14]);          princ_str("\n   goto T",VV[14]);
519          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
520          princ_char(59,VV[14]);          princ_char(59,VV[14]);
521          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
# Line 524  T198:; Line 524  T198:;
524          bds_unwind1;          bds_unwind1;
525          bds_unwind1;          bds_unwind1;
526          bds_unwind1;          bds_unwind1;
527  goto T213;          goto T213;
528  T213:;  T213:;
529          if((caar((V84)))==(VV[1])){          if((caar((V84)))==(VV[1])){
530          goto T229;}          goto T229;}
531          {object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
532          VMR8(V92)}          VMR8(V92)}
533  goto T229;          goto T229;
534  T229:;  T229:;
535          {object V93 = Cnil;          {object V93 = Cnil;
536          VMR8(V93)}          VMR8(V93)}
537  goto T191;          goto T191;
538  T191:;  T191:;
539          if(((V85))==Cnil){          if(((V85))==Cnil){
540          goto T234;}          goto T234;}
541          V85= Cnil;          V85= Cnil;
542          goto T232;          goto T232;
543  goto T234;          goto T234;
544  T234:;  T234:;
545          base[0]= car((V84));          base[0]= car((V84));
546          base[1]= VV[0];          base[1]= VV[0];
# Line 554  T234:; Line 554  T234:;
554          V95= structure_ref(car((V84)),VV[0],4);          V95= structure_ref(car((V84)),VV[0],4);
555          if((cdr(/* INLINE-ARGS */V95))==Cnil){          if((cdr(/* INLINE-ARGS */V95))==Cnil){
556          goto T232;}          goto T232;}
557          princ_str("\ngoto T",VV[14]);          princ_str("\n   goto T",VV[14]);
558          V96= structure_ref(car((V84)),VV[0],4);          V96= structure_ref(car((V84)),VV[0],4);
559          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V96)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V96)));
560          princ_char(59,VV[14]);          princ_char(59,VV[14]);
# Line 563  T234:; Line 563  T234:;
563          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V97)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V97)));
564          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
565          goto T232;          goto T232;
566  goto T238;          goto T238;
567  T238:;  T238:;
568          base[3]= cadr((V84));          base[3]= cadr((V84));
569          base[4]= VV[0];          base[4]= VV[0];
# Line 575  T238:; Line 575  T238:;
575          V85= Ct;          V85= Ct;
576          bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4));          bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4));
577          goto T252;          goto T252;
578  goto T254;          goto T254;
579  T254:;  T254:;
580          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
581          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
582  goto T252;          goto T252;
583  T252:;  T252:;
584          bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));          bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
585          bds_bind(VV[16],VV[17]);          bds_bind(VV[16],VV[17]);
# Line 595  T252:; Line 595  T252:;
595          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
596          goto T265;}          goto T265;}
597          goto T264;          goto T264;
598  goto T265;          goto T265;
599  T265:;  T265:;
600          V98= structure_ref(cadr((V84)),VV[0],7);          V98= structure_ref(cadr((V84)),VV[0],7);
601          (void)((*(LnkLI59))(/* INLINE-ARGS */V98));          (void)((*(LnkLI59))(/* INLINE-ARGS */V98));
602  goto T264;          goto T264;
603  T264:;  T264:;
604          if((cdr((VV[15]->s.s_dbind)))==Cnil){          if((cdr((VV[15]->s.s_dbind)))==Cnil){
605          bds_unwind1;          bds_unwind1;
606          bds_unwind1;          bds_unwind1;
607          bds_unwind1;          bds_unwind1;
608          goto T232;}          goto T232;}
609          princ_str("\ngoto T",VV[14]);          princ_str("\n   goto T",VV[14]);
610          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
611          princ_char(59,VV[14]);          princ_char(59,VV[14]);
612          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
# Line 615  T264:; Line 615  T264:;
615          bds_unwind1;          bds_unwind1;
616          bds_unwind1;          bds_unwind1;
617          bds_unwind1;          bds_unwind1;
618  goto T232;          goto T232;
619  T232:;  T232:;
620          V84= cdr((V84));          V84= cdr((V84));
621          goto T190;}          goto T190;}
# Line 629  static object LI9(V100) Line 629  static object LI9(V100)
629  object V100;  object V100;
630  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
631          bds_check;          bds_check;
632  goto TTL;          goto TTL;
633  TTL:;  TTL:;
634          {register object V101;          {register object V101;
635          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
# Line 651  TTL:; Line 651  TTL:;
651          register object V104;          register object V104;
652          V103= (V100);          V103= (V100);
653          V104= car((V103));          V104= car((V103));
654  goto T302;          goto T302;
655  T302:;  T302:;
656          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
657          goto T303;}          goto T303;}
658          goto T298;          goto T298;
659  goto T303;          goto T303;
660  T303:;  T303:;
661          base[4]= (V104);          base[4]= (V104);
662          base[5]= VV[0];          base[5]= VV[0];
# Line 683  T303:; Line 683  T303:;
683          V108= structure_ref((V104),VV[0],4);          V108= structure_ref((V104),VV[0],4);
684          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V108)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V108)));
685          princ_char(59,VV[14]);          princ_char(59,VV[14]);
686  goto T307;          goto T307;
687  T307:;  T307:;
688          V103= cdr((V103));          V103= cdr((V103));
689          V104= car((V103));          V104= car((V103));
690          goto T302;}          goto T302;}
691  goto T298;          goto T298;
692  T298:;  T298:;
693          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
694          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
# Line 709  static object LI10(V111) Line 709  static object LI10(V111)
709  object V111;  object V111;
710  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
711          bds_check;          bds_check;
712  goto TTL;          goto TTL;
713  TTL:;  TTL:;
714          {register object V112;          {register object V112;
715          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
# Line 744  TTL:; Line 744  TTL:;
744          register object V116;          register object V116;
745          V115= (V111);          V115= (V111);
746          V116= car((V115));          V116= car((V115));
747  goto T370;          goto T370;
748  T370:;  T370:;
749          if(!(endp_prop((V115)))){          if(!(endp_prop((V115)))){
750          goto T371;}          goto T371;}
751          goto T366;          goto T366;
752  goto T371;          goto T371;
753  T371:;  T371:;
754          base[6]= (V116);          base[6]= (V116);
755          base[7]= VV[0];          base[7]= VV[0];
# Line 766  T371:; Line 766  T371:;
766          goto T383;}          goto T383;}
767          if((structure_ref((V116),VV[0],3))==Cnil){          if((structure_ref((V116),VV[0],3))==Cnil){
768          goto T375;}          goto T375;}
769  goto T383;          goto T383;
770  T383:;  T383:;
771          (void)(structure_set((V116),VV[0],2,(V113)));          (void)(structure_set((V116),VV[0],2,(V113)));
772          if((structure_ref((V116),VV[0],3))==Cnil){          if((structure_ref((V116),VV[0],3))==Cnil){
773          goto T388;}          goto T388;}
774          (void)(structure_set((V116),VV[0],3,(V114)));          (void)(structure_set((V116),VV[0],3,(V114)));
775  goto T388;          goto T388;
776  T388:;  T388:;
777          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
778          V118= structure_ref((V116),VV[0],6);          V118= structure_ref((V116),VV[0],6);
# Line 785  T388:; Line 785  T388:;
785          V120= structure_ref((V116),VV[0],4);          V120= structure_ref((V116),VV[0],4);
786          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V120)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V120)));
787          princ_char(59,VV[14]);          princ_char(59,VV[14]);
788  goto T375;          goto T375;
789  T375:;  T375:;
790          V115= cdr((V115));          V115= cdr((V115));
791          V116= car((V115));          V116= car((V115));
792          goto T370;}          goto T370;}
793  goto T366;          goto T366;
794  T366:;  T366:;
795          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
796          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
# Line 812  static object LI11(V123) Line 812  static object LI11(V123)
812    
813  object V123;  object V123;
814  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
815  goto TTL;          goto TTL;
816  TTL:;  TTL:;
817          if(!(endp_prop((V123)))){          if(!(endp_prop((V123)))){
818          goto T411;}          goto T411;}
819          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));
820          goto T409;          goto T409;
821  goto T411;          goto T411;
822  T411:;  T411:;
823          if(endp_prop(cdr((V123)))){          if(endp_prop(cdr((V123)))){
824          goto T414;}          goto T414;}
825          V124 = make_fixnum((long)length((V123)));          V124 = make_fixnum((long)length((V123)));
826          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V124));          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V124));
827          goto T409;          goto T409;
828  goto T414;          goto T414;
829  T414:;  T414:;
830          if(type_of(car((V123)))==t_symbol){          if(type_of(car((V123)))==t_symbol){
831          goto T409;}          goto T409;}
# Line 833  T414:; Line 833  T414:;
833          if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){          if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){
834          goto T409;}}          goto T409;}}
835          (void)(car((V123)));          (void)(car((V123)));
836  goto T409;          goto T409;
837  T409:;  T409:;
838          {register object V126;          {register object V126;
839          register object V127;          register object V127;
# Line 843  T409:; Line 843  T409:;
843          V127= car((V123));          V127= car((V123));
844          V128= Cnil;          V128= Cnil;
845          V129= Cnil;          V129= Cnil;
846  goto T424;          goto T424;
847  T424:;  T424:;
848          if(!(endp_prop((V126)))){          if(!(endp_prop((V126)))){
849          goto T425;}          goto T425;}
850          {object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127)));          {object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127)));
851          VMR11(V130)}          VMR11(V130)}
852  goto T425;          goto T425;
853  T425:;  T425:;
854          {object V131= car((V126));          {object V131= car((V126));
855          if((V131!= VV[71]))goto T430;          if((V131!= VV[71]))goto T430;
856          V128= Ct;          V128= Ct;
857          goto T429;          goto T429;
858  goto T430;          goto T430;
859  T430:;  T430:;
860          if((V131!= VV[72]))goto T432;          if((V131!= VV[72]))goto T432;
861          V129= Ct;          V129= Ct;
862          goto T429;          goto T429;
863  goto T432;          goto T432;
864  T432:;  T432:;
865          V132= structure_ref(car((V126)),VV[0],0);          V132= structure_ref(car((V126)),VV[0],0);
866          if(!((/* INLINE-ARGS */V132)==((V127)))){          if(!((/* INLINE-ARGS */V132)==((V127)))){
# Line 871  T432:; Line 871  T432:;
871          goto T439;}          goto T439;}
872          (void)(structure_set((V133),VV[0],3,Ct));          (void)(structure_set((V133),VV[0],3,Ct));
873          goto T437;          goto T437;
874  goto T439;          goto T439;
875  T439:;  T439:;
876          if(((V129))==Cnil){          if(((V129))==Cnil){
877          goto T442;}          goto T442;}
878          (void)(structure_set((V133),VV[0],2,Ct));          (void)(structure_set((V133),VV[0],2,Ct));
879          goto T437;          goto T437;
880  goto T442;          goto T442;
881  T442:;  T442:;
882          (void)(structure_set((V133),VV[0],1,Ct));          (void)(structure_set((V133),VV[0],1,Ct));
883  goto T437;          goto T437;
884  T437:;  T437:;
885          {object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133));          {object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133));
886          VMR11(V134)}}}          VMR11(V134)}}}
887  goto T429;          goto T429;
888  T429:;  T429:;
889          V126= cdr((V126));          V126= cdr((V126));
890          goto T424;}          goto T424;}
# Line 896  static object LI12(V138,V139,V140) Line 896  static object LI12(V138,V139,V140)
896    
897  object V138;object V139;object V140;  object V138;object V139;object V140;
898  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
899  goto TTL;          goto TTL;
900  TTL:;  TTL:;
901          if(((V139))==Cnil){          if(((V139))==Cnil){
902          goto T448;}          goto T448;}
903          {object V141 = (*(LnkLI73))((V140));          {object V141 = (*(LnkLI73))((V140));
904          VMR12(V141)}          VMR12(V141)}
905  goto T448;          goto T448;
906  T448:;  T448:;
907          if(((V138))==Cnil){          if(((V138))==Cnil){
908          goto T451;}          goto T451;}
909          {object V142 = (*(LnkLI74))((V140));          {object V142 = (*(LnkLI74))((V140));
910          VMR12(V142)}          VMR12(V142)}
911  goto T451;          goto T451;
912  T451:;  T451:;
913          {object V143 = (*(LnkLI75))((V140));          {object V143 = (*(LnkLI75))((V140));
914          VMR12(V143)}          VMR12(V143)}
# Line 920  static object LI13(V145) Line 920  static object LI13(V145)
920    
921  object V145;  object V145;
922  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
923  goto TTL;          goto TTL;
924  TTL:;  TTL:;
925          V146= structure_ref((V145),VV[0],5);          V146= structure_ref((V145),VV[0],5);
926          (void)((*(LnkLI76))(/* INLINE-ARGS */V146));          (void)((*(LnkLI76))(/* INLINE-ARGS */V146));
# Line 942  static object LI14(V151) Line 942  static object LI14(V151)
942    
943  register object V151;  register object V151;
944  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
945  goto TTL;          goto TTL;
946  TTL:;  TTL:;
947          princ_str("\n   vs_base=vs_top;",VV[14]);          princ_str("\n   vs_base=vs_top;",VV[14]);
948          princ_str("\n   unwind(frs_sch(",VV[14]);          princ_str("\n   unwind(frs_sch(",VV[14]);
# Line 951  TTL:; Line 951  TTL:;
951          V152= structure_ref((V151),VV[0],2);          V152= structure_ref((V151),VV[0],2);
952          (void)((*(LnkLI67))(/* INLINE-ARGS */V152));          (void)((*(LnkLI67))(/* INLINE-ARGS */V152));
953          goto T463;          goto T463;
954  goto T465;          goto T465;
955  T465:;  T465:;
956          V153= structure_ref((V151),VV[0],2);          V153= structure_ref((V151),VV[0],2);
957          (void)((*(LnkLI63))(/* INLINE-ARGS */V153));          (void)((*(LnkLI63))(/* INLINE-ARGS */V153));
958  goto T463;          goto T463;
959  T463:;  T463:;
960          princ_str("),VV[",VV[14]);          princ_str("),VV[",VV[14]);
961          V154= structure_ref((V151),VV[0],6);          V154= structure_ref((V151),VV[0],6);
# Line 971  static object LI15(V157) Line 971  static object LI15(V157)
971    
972  object V157;  object V157;
973  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
974  goto TTL;          goto TTL;
975  TTL:;  TTL:;
976          princ_str("\n   {frame_ptr fr;",VV[14]);          princ_str("\n   {frame_ptr fr;",VV[14]);
977          princ_str("\n   fr=frs_sch(",VV[14]);          princ_str("\n   fr=frs_sch(",VV[14]);
# Line 997  static object LI16(V163) Line 997  static object LI16(V163)
997    
998  register object V163;  register object V163;
999  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1000  goto TTL;          goto TTL;
1001  TTL:;  TTL:;
1002          if(((V163))==Cnil){          if(((V163))==Cnil){
1003          goto T487;}          goto T487;}
# Line 1006  TTL:; Line 1006  TTL:;
1006          goto T493;}          goto T493;}
1007          V164= VV[25];          V164= VV[25];
1008          goto T491;          goto T491;
1009  goto T493;          goto T493;
1010  T493:;  T493:;
1011          V164= VV[26];          V164= VV[26];
1012  goto T491;          goto T491;
1013  T491:;  T491:;
1014          (void)((*(LnkLI60))(V164));          (void)((*(LnkLI60))(V164));
1015          (void)((*(LnkLI60))((V163)));          (void)((*(LnkLI60))((V163)));
1016          princ_char(58,VV[14]);          princ_char(58,VV[14]);
1017          {object V165 = Cnil;          {object V165 = Cnil;
1018          VMR16(V165)}          VMR16(V165)}
1019  goto T487;          goto T487;
1020  T487:;  T487:;
1021          {object V166 = Cnil;          {object V166 = Cnil;
1022          VMR16(V166)}          VMR16(V166)}
# Line 1029  static object LI17(V168) Line 1029  static object LI17(V168)
1029  object V168;  object V168;
1030  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1031          bds_check;          bds_check;
1032  goto TTL;          goto TTL;
1033  TTL:;  TTL:;
1034          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
1035          {object V169;          {object V169;
# Line 1059  TTL:; Line 1059  TTL:;
1059          goto T511;          goto T511;
1060          }else V173=V173->c.c_cdr;          }else V173=V173->c.c_cdr;
1061          V172= Cnil;}          V172= Cnil;}
1062  goto T511;          goto T511;
1063  T511:;  T511:;
1064          if(V172==Cnil)goto T510;          if(V172==Cnil)goto T510;
1065          goto T509;          goto T509;
1066  goto T510;          goto T510;
1067  T510:;}  T510:;}
1068          V174= make_cons(Ct,Cnil);          V174= make_cons(Ct,Cnil);
1069          V170= append((V170),/* INLINE-ARGS */V174);          V170= append((V170),/* INLINE-ARGS */V174);
1070  goto T509;          goto T509;
1071  T509:;  T509:;
1072          {object V175;          {object V175;
1073          object V176= (V170);          object V176= (V170);
# Line 1075  T509:; Line 1075  T509:;
1075          V170= Cnil;          V170= Cnil;
1076          goto T514;}          goto T514;}
1077          base[4]=V175=MMcons(Cnil,Cnil);          base[4]=V175=MMcons(Cnil,Cnil);
1078  goto T515;          goto T515;
1079  T515:;  T515:;
1080          {register object V177;          {register object V177;
1081          V177= (V176->c.c_car);          V177= (V176->c.c_car);
# Line 1083  T515:; Line 1083  T515:;
1083          goto T517;}          goto T517;}
1084          if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){          if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){
1085          goto T518;}          goto T518;}
1086  goto T517;          goto T517;
1087  T517:;  T517:;
1088          {register object V178;          {register object V178;
1089          V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));          V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
# Line 1092  T517:; Line 1092  T517:;
1092          (void)(structure_set((V178),VV[0],1,Ct));          (void)(structure_set((V178),VV[0],1,Ct));
1093          (void)(structure_set((V178),VV[0],7,(V177)));          (void)(structure_set((V178),VV[0],7,(V177)));
1094          goto T523;          goto T523;
1095  goto T525;          goto T525;
1096  T525:;  T525:;
1097          if(!((Ct)==((V177)))){          if(!((Ct)==((V177)))){
1098          goto T523;}          goto T523;}
1099          (void)(structure_set((V178),VV[0],1,Ct));          (void)(structure_set((V178),VV[0],1,Ct));
1100          (void)(structure_set((V178),VV[0],7,VV[29]));          (void)(structure_set((V178),VV[0],7,VV[29]));
1101  goto T523;          goto T523;
1102  T523:;  T523:;
1103          (V175->c.c_car)= (V178);          (V175->c.c_car)= (V178);
1104          goto T516;}          goto T516;}
1105  goto T518;          goto T518;
1106  T518:;  T518:;
1107          (V175->c.c_car)= (V177);}          (V175->c.c_car)= (V177);}
1108  goto T516;          goto T516;
1109  T516:;  T516:;
1110          V176=MMcdr(V176);          V176=MMcdr(V176);
1111          if(endp(V176)){          if(endp(V176)){
# Line 1113  T516:; Line 1113  T516:;
1113          goto T514;}          goto T514;}
1114          V175=MMcdr(V175)=MMcons(Cnil,Cnil);          V175=MMcdr(V175)=MMcons(Cnil,Cnil);
1115          goto T515;}          goto T515;}
1116  goto T514;          goto T514;
1117  T514:;  T514:;
1118          {object V179;          {object V179;
1119          V180= append((V170),VV[30]);          V180= append((V170),VV[30]);
# Line 1122  T514:; Line 1122  T514:;
1122          {object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179)));          {object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179)));
1123          bds_unwind1;          bds_unwind1;
1124          VMR17(V182)}}          VMR17(V182)}}
1125  goto T501;          goto T501;
1126  T501:;  T501:;
1127          V183= make_cons(VV[31],(V168));          V183= make_cons(VV[31],(V168));
1128          V184= (*(LnkLI81))(/* INLINE-ARGS */V183);          V184= (*(LnkLI81))(/* INLINE-ARGS */V183);
# Line 1139  static object LI18(V190,V191,V192,V193) Line 1139  static object LI18(V190,V191,V192,V193)
1139  object V190;object V191;object V192;object V193;  object V190;object V191;object V192;object V193;
1140  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1141          bds_check;          bds_check;
1142  goto TTL;          goto TTL;
1143  TTL:;  TTL:;
1144          bds_bind(VV[32],small_fixnum(0));          bds_bind(VV[32],small_fixnum(0));
1145          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],symbol_value(VV[18]));
# Line 1155  TTL:; Line 1155  TTL:;
1155          goto T538;}          goto T538;}
1156          (void)((*(LnkLI54))((V193)));          (void)((*(LnkLI54))((V193)));
1157          goto T536;          goto T536;
1158  goto T538;          goto T538;
1159  T538:;  T538:;
1160          if(((V191))==Cnil){          if(((V191))==Cnil){
1161          goto T541;}          goto T541;}
1162          (void)((*(LnkLI55))((V193)));          (void)((*(LnkLI55))((V193)));
1163          goto T536;          goto T536;
1164  goto T541;          goto T541;
1165  T541:;  T541:;
1166          (void)((*(LnkLI56))((V193)));          (void)((*(LnkLI56))((V193)));
1167  goto T536;          goto T536;
1168  T536:;  T536:;
1169          princ_char(125,VV[14]);          princ_char(125,VV[14]);
1170          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));
# Line 1193  static void L19() Line 1193  static void L19()
1193          register object V199;          register object V199;
1194          V198= base[3];          V198= base[3];
1195          V199= car((V198));          V199= car((V198));
1196  goto T551;          goto T551;
1197  T551:;  T551:;
1198          if(!(endp_prop((V198)))){          if(!(endp_prop((V198)))){
1199          goto T552;}          goto T552;}
1200          goto T547;          goto T547;
1201  goto T552;          goto T552;
1202  T552:;  T552:;
1203          if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){          if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){
1204          goto T556;}          goto T556;}
# Line 1206  T552:; Line 1206  T552:;
1206          V201= list(3,VV[36],(V199),base[2]);          V201= list(3,VV[36],(V199),base[2]);
1207          V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil);          V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil);
1208          base[4]= make_cons((V200),base[4]);}          base[4]= make_cons((V200),base[4]);}
1209  goto T556;          goto T556;
1210  T556:;  T556:;
1211          V198= cdr((V198));          V198= cdr((V198));
1212          V199= car((V198));          V199= car((V198));
1213          goto T551;}          goto T551;}
1214  goto T547;          goto T547;
1215  T547:;  T547:;
1216          V202= nreverse(base[4]);          V202= nreverse(base[4]);
1217          base[5]= base[3];          base[5]= base[3];
# Line 1221  T547:; Line 1221  T547:;
1221          goto T571;          goto T571;
1222          }else V204=V204->c.c_cdr;          }else V204=V204->c.c_cdr;
1223          goto T570;}          goto T570;}
1224  goto T571;          goto T571;
1225  T571:;  T571:;
1226          base[6]= Cnil;          base[6]= Cnil;
1227          goto T568;          goto T568;
1228  goto T570;          goto T570;
1229  T570:;  T570:;
1230          base[6]= VV[38];          base[6]= VV[38];
1231  goto T568;          goto T568;
1232  T568:;  T568:;
1233          base[7]= VV[39];          base[7]= VV[39];
1234          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;

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