/[gcl]/gcl/pcl/pcl_dlisp2.c
ViewVC logotype

Diff of /gcl/pcl/pcl_dlisp2.c

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

revision 1.3 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.4 by camm, Thu Oct 23 15:30:15 2003 UTC
# Line 18  static void L1() Line 18  static void L1()
18          vs_top=sup;          vs_top=sup;
19          goto TTL;          goto TTL;
20  TTL:;  TTL:;
21          {object V4= (V1);          {object V5= V1;
22          if((V4!= VV[31]))goto T2;          if((V5!= VV[45]))goto T2;
23          {object V5= (V2);          {object V7= V2;
24          if(!eql(V5,VV[0]))goto T3;          if(!eql(V7,VV[0]))goto T3;
25          if(((V3))==Cnil){          if(((V3))==Cnil){
26          goto T5;}          goto T5;}
27          base[3]= VV[32];          base[3]= VV[46];
28          goto T1;          goto T1;
29          goto T5;          goto T5;
30  T5:;  T5:;
31          base[3]= VV[33];          base[3]= VV[47];
32          goto T1;          goto T1;
33          goto T3;          goto T3;
34  T3:;  T3:;
35          if(!eql(V5,VV[6]))goto T7;          if(!eql(V7,VV[6]))goto T7;
36          if(((V3))==Cnil){          if(((V3))==Cnil){
37          goto T9;}          goto T9;}
38          base[3]= VV[34];          base[3]= VV[48];
39          goto T1;          goto T1;
40          goto T9;          goto T9;
41  T9:;  T9:;
42          base[3]= VV[35];          base[3]= VV[49];
43          goto T1;          goto T1;
44          goto T7;          goto T7;
45  T7:;  T7:;
46          FEerror("The ECASE key value ~s is illegal.",1,V5);          base[4]= VV[9];
47          base[3]= Cnil;          base[5]= VV[10];
48            base[6]= VV[11];
49            base[7]= VV[12];
50            base[8]= V2;
51            base[9]= VV[13];
52            base[10]= VV[14];
53            base[11]= VV[15];
54            base[12]= VV[16];
55            vs_top=(vs_base=base+4)+9;
56            (void) (*Lnk50)();
57            vs_top=sup;
58            base[3]= vs_base[0];
59          goto T1;}          goto T1;}
60          goto T2;          goto T2;
61  T2:;  T2:;
62          if((V4!= VV[36]))goto T11;          if((V5!= VV[51]))goto T20;
63          {object V6= (V2);          {object V9= V2;
64          if(!eql(V6,VV[0]))goto T12;          if(!eql(V9,VV[0]))goto T21;
65          if(((V3))==Cnil){          if(((V3))==Cnil){
66          goto T14;}          goto T23;}
67          base[3]= VV[37];          base[3]= VV[52];
68          goto T1;          goto T1;
69          goto T14;          goto T23;
70  T14:;  T23:;
71          base[3]= VV[38];          base[3]= VV[53];
72          goto T1;          goto T1;
73          goto T12;          goto T21;
74  T12:;  T21:;
75          if(!eql(V6,VV[6]))goto T16;          if(!eql(V9,VV[6]))goto T25;
76          if(((V3))==Cnil){          if(((V3))==Cnil){
77          goto T18;}          goto T27;}
78          base[3]= VV[39];          base[3]= VV[54];
79          goto T1;          goto T1;
80          goto T18;          goto T27;
81  T18:;  T27:;
82          base[3]= VV[40];          base[3]= VV[55];
83          goto T1;          goto T1;
84          goto T16;          goto T25;
85  T16:;  T25:;
86          FEerror("The ECASE key value ~s is illegal.",1,V6);          base[4]= VV[9];
87          base[3]= Cnil;          base[5]= VV[10];
88          goto T1;}          base[6]= VV[11];
89          goto T11;          base[7]= VV[12];
90  T11:;          base[8]= V2;
91          FEerror("The ECASE key value ~s is illegal.",1,V4);          base[9]= VV[13];
92          base[3]= Cnil;          base[10]= VV[21];
93            base[11]= VV[15];
94            base[12]= VV[22];
95            vs_top=(vs_base=base+4)+9;
96            (void) (*Lnk50)();
97            vs_top=sup;
98            base[3]= vs_base[0];
99          goto T1;}          goto T1;}
100            goto T20;
101    T20:;
102            base[4]= VV[9];
103            base[5]= VV[10];
104            base[6]= VV[11];
105            base[7]= VV[12];
106            base[8]= V1;
107            base[9]= VV[13];
108            base[10]= VV[23];
109            base[11]= VV[15];
110            base[12]= VV[24];
111            vs_top=(vs_base=base+4)+9;
112            (void) (*Lnk50)();
113            vs_top=sup;
114            base[3]= vs_base[0];}
115          goto T1;          goto T1;
116  T1:;  T1:;
117          base[4]= Cnil;          base[4]= Cnil;
# Line 93  static void L2() Line 125  static void L2()
125  {register object *base=vs_base;  {register object *base=vs_base;
126          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
127          vs_check;          vs_check;
128          {object V7;          {object V10;
129          object V8;          object V11;
130          object V9;          object V12;
131          check_arg(3);          check_arg(3);
132          V7=(base[0]);          V10=(base[0]);
133          V8=(base[1]);          V11=(base[1]);
134          V9=(base[2]);          V12=(base[2]);
135          vs_top=sup;          vs_top=sup;
136          goto TTL;          goto TTL;
137  TTL:;  TTL:;
138          {object V10= (V7);          {object V14= V10;
139          if((V10!= VV[31]))goto T22;          if((V14!= VV[45]))goto T49;
140          if(((V8))==Cnil){          if(((V11))==Cnil){
141          goto T24;}          goto T51;}
142          if(((V9))==Cnil){          if(((V12))==Cnil){
143          goto T27;}          goto T54;}
144          base[3]= VV[41];          base[3]= VV[56];
145          goto T21;          goto T48;
146          goto T27;          goto T54;
147  T27:;  T54:;
148          base[3]= VV[42];          base[3]= VV[57];
149          goto T21;          goto T48;
150          goto T24;          goto T51;
151  T24:;  T51:;
152          if(((V9))==Cnil){          if(((V12))==Cnil){
153          goto T30;}          goto T57;}
154          base[3]= VV[43];          base[3]= VV[58];
155          goto T21;          goto T48;
156          goto T30;          goto T57;
157  T30:;  T57:;
158          base[3]= VV[44];          base[3]= VV[59];
159          goto T21;          goto T48;
160          goto T22;          goto T49;
161  T22:;  T49:;
162          if((V10!= VV[36]))goto T32;          if((V14!= VV[51]))goto T59;
163          if(((V8))==Cnil){          if(((V11))==Cnil){
164          goto T34;}          goto T61;}
165          if(((V9))==Cnil){          if(((V12))==Cnil){
166          goto T37;}          goto T64;}
167          base[3]= VV[45];          base[3]= VV[60];
168          goto T21;          goto T48;
169          goto T37;          goto T64;
170  T37:;  T64:;
171          base[3]= VV[46];          base[3]= VV[61];
172          goto T21;          goto T48;
173          goto T34;          goto T61;
174  T34:;  T61:;
175          if(((V9))==Cnil){          if(((V12))==Cnil){
176          goto T40;}          goto T67;}
177          base[3]= VV[47];          base[3]= VV[62];
178          goto T21;          goto T48;
179          goto T40;          goto T67;
180  T40:;  T67:;
181          base[3]= VV[48];          base[3]= VV[63];
182          goto T21;          goto T48;
183          goto T32;          goto T59;
184  T32:;  T59:;
185          FEerror("The ECASE key value ~s is illegal.",1,V10);          base[4]= VV[9];
186          base[3]= Cnil;          base[5]= VV[10];
187          goto T21;}          base[6]= VV[11];
188          goto T21;          base[7]= VV[12];
189  T21:;          base[8]= V10;
190            base[9]= VV[13];
191            base[10]= VV[35];
192            base[11]= VV[15];
193            base[12]= VV[36];
194            vs_top=(vs_base=base+4)+9;
195            (void) (*Lnk50)();
196            vs_top=sup;
197            base[3]= vs_base[0];}
198            goto T48;
199    T48:;
200          base[4]= Cnil;          base[4]= Cnil;
201          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
202          return;          return;
# Line 168  static void L3() Line 210  static void L3()
210          vs_check;          vs_check;
211          check_arg(2);          check_arg(2);
212          vs_top=sup;          vs_top=sup;
213          {object V11=base[0]->c.c_cdr;          {object V15=base[0]->c.c_cdr;
214          if(!endp(V11))invalid_macro_call();}          if(!endp(V15))invalid_macro_call();}
215          base[3]= (VV[27]->s.s_dbind);          base[3]= (VV[41]->s.s_dbind);
216          {object V13;          {object V17;
217          object V14= base[3];          object V18= base[3];
218          if(V14==Cnil){          if(V18==Cnil){
219          V12= Cnil;          V16= Cnil;
220          goto T43;}          goto T79;}
221          base[2]=V13=MMcons(Cnil,Cnil);          base[2]=V17=MMcons(Cnil,Cnil);
222          goto T44;          goto T80;
223  T44:;  T80:;
224          V16= list(2,VV[25],(V14->c.c_car));          V20= list(2,VV[39],(V18->c.c_car));
225          (V13->c.c_car)= list(3,VV[24],/* INLINE-ARGS */V16,make_cons(VV[26],(V14->c.c_car)));          (V17->c.c_car)= list(3,VV[38],/* INLINE-ARGS */V20,make_cons(VV[40],(V18->c.c_car)));
226          if((V14=MMcdr(V14))==Cnil){          if((V18=MMcdr(V18))==Cnil){
227          V12= base[2];          V16= base[2];
228          goto T43;}          goto T79;}
229          V13=MMcdr(V13)=MMcons(Cnil,Cnil);          V17=MMcdr(V17)=MMcons(Cnil,Cnil);
230          goto T44;}          goto T80;}
231          goto T43;          goto T79;
232  T43:;  T79:;
233          base[2]= make_cons(VV[23],V12);          base[2]= make_cons(VV[37],V16);
234          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
235          return;          return;
236  }  }
# Line 199  static object LI4() Line 241  static object LI4()
241  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
242          goto TTL;          goto TTL;
243  TTL:;  TTL:;
244          (VV[28]->s.s_dbind)= Cnil;          (VV[42]->s.s_dbind)= Cnil;
245          {object V17 = (VV[28]->s.s_dbind);          {object V21 = (VV[42]->s.s_dbind);
246          VMR4(V17)}          VMR4(V21)}
247          return Cnil;          return Cnil;
248  }  }
249  /*      macro definition for EMIT-CHECKING-OR-CACHING-FUNCTION-PRECOMPILED      */  /*      macro definition for EMIT-CHECKING-OR-CACHING-FUNCTION-PRECOMPILED      */
# Line 212  static void L5() Line 254  static void L5()
254          vs_check;          vs_check;
255          check_arg(2);          check_arg(2);
256          vs_top=sup;          vs_top=sup;
257          {object V18=base[0]->c.c_cdr;          {object V22=base[0]->c.c_cdr;
258          if(!endp(V18))invalid_macro_call();}          if(!endp(V22))invalid_macro_call();}
259          base[2]= VV[29];          base[2]= VV[43];
260          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
261          return;          return;
262  }  }
# Line 224  static void L6() Line 266  static void L6()
266  {register object *base=vs_base;  {register object *base=vs_base;
267          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
268          vs_check;          vs_check;
269          {object V19;          {object V23;
270          object V20;          object V24;
271          object V21;          object V25;
272          object V22;          object V26;
273          check_arg(4);          check_arg(4);
274          V19=(base[0]);          V23=(base[0]);
275          V20=(base[1]);          V24=(base[1]);
276          V21=(base[2]);          V25=(base[2]);
277          V22=(base[3]);          V26=(base[3]);
278          vs_top=sup;          vs_top=sup;
279          goto TTL;          goto TTL;
280  TTL:;  TTL:;
281          {object V23;          {object V27;
282          V26= list(4,(V19),(V20),(V21),(V22));          V30= list(4,(V23),(V24),(V25),(V26));
283          {register object x= /* INLINE-ARGS */V26,V25= (VV[28]->s.s_dbind);          {register object x= /* INLINE-ARGS */V30,V29= (VV[42]->s.s_dbind);
284          while(V25!=Cnil)          while(V29!=Cnil)
285          if(equal(x,V25->c.c_car->c.c_car) &&V25->c.c_car != Cnil){          if(equal(x,V29->c.c_car->c.c_car) &&V29->c.c_car != Cnil){
286          V24= (V25->c.c_car);          V28= (V29->c.c_car);
287          goto T48;          goto T84;
288          }else V25=V25->c.c_cdr;          }else V29=V29->c.c_cdr;
289          V24= Cnil;}          V28= Cnil;}
290          goto T48;          goto T84;
291  T48:;  T84:;
292          V23= CMPcdr(V24);          V27= CMPcdr(V28);
293          if(((V23))==Cnil){          if(((V27))==Cnil){
294          goto T50;}          goto T86;}
295          base[4]= (V23);          base[4]= (V27);
296          base[5]= Cnil;          base[5]= Cnil;
297          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
298          return;          return;
299          goto T50;          goto T86;
300  T50:;  T86:;
301          base[4]= (*(LnkLI49))((V19),(V20),(V21),(V22));          base[4]= (*(LnkLI64))((V23),(V24),(V25),(V26));
302          base[5]= Ct;          base[5]= Ct;
303          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
304          return;}          return;}
# Line 264  T50:; Line 306  T50:;
306  }  }
307  /*      local entry for function EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY  */  /*      local entry for function EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY  */
308    
309  static object LI8(V31,V32,V33,V34)  static object LI8(V35,V36,V37,V38)
310    
311  object V31;object V32;object V33;object V34;  object V35;object V36;object V37;object V38;
312  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
313          goto TTL;          goto TTL;
314  TTL:;  TTL:;
315          base[0]=MMcons((V33),Cnil);          base[0]=MMcons((V37),Cnil);
316          base[1]=MMcons((V32),base[0]);          base[1]=MMcons((V36),base[0]);
317          if(((V31))==Cnil){          if(((V35))==Cnil){
318          goto T57;}          goto T93;}
319          {object V35 =          {object V39 =
320          make_cclosure_new(LC26,Cnil,base[1],Cdata);          make_cclosure_new(LC26,Cnil,base[1],Cdata);
321          VMR7(V35)}          VMR7(V39)}
322          goto T57;          goto T93;
323  T57:;  T93:;
324          {object V36 =          {object V40 =
325          make_cclosure_new(LC27,Cnil,base[1],Cdata);          make_cclosure_new(LC27,Cnil,base[1],Cdata);
326          VMR7(V36)}          VMR7(V40)}
327          base[0]=base[0];          base[0]=base[0];
328          return Cnil;          return Cnil;
329  }  }
# Line 291  static void L9() Line 333  static void L9()
333  {register object *base=vs_base;  {register object *base=vs_base;
334          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
335          vs_check;          vs_check;
336          {object V37;          {object V41;
337          object V38;          object V42;
338          check_arg(2);          check_arg(2);
339          V37=(base[0]);          V41=(base[0]);
340          V38=(base[1]);          V42=(base[1]);
341          vs_top=sup;          vs_top=sup;
342          goto TTL;          goto TTL;
343  TTL:;  TTL:;
344          base[2]= VV[50];          base[2]= VV[65];
345          base[3]= Ct;          base[3]= Ct;
346          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
347          return;          return;
# Line 327  register object *base0; Line 369  register object *base0;
369  {       register object *base=vs_base;  {       register object *base=vs_base;
370          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
371          vs_check;          vs_check;
372          {object V39;          {object V43;
373          vs_top[0]=Cnil;          vs_top[0]=Cnil;
374          {object *p=vs_top;          {object *p=vs_top;
375           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
376          V39=(base[0]);          V43=(base[0]);
377          vs_top=sup;          vs_top=sup;
378          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
379          base[2]= (V39);          base[2]= (V43);
380          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
381          (void) (*Lnk51)();          (void) (*Lnk66)();
382          return;          return;
383          }          }
384  }  }
# Line 364  register object *base0; Line 406  register object *base0;
406  {       register object *base=vs_base;  {       register object *base=vs_base;
407          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
408          vs_check;          vs_check;
409          {object V40;          {object V44;
410          vs_top[0]=Cnil;          vs_top[0]=Cnil;
411          {object *p=vs_top;          {object *p=vs_top;
412           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
413          V40=(base[0]);          V44=(base[0]);
414          vs_top=sup;          vs_top=sup;
415          {object V41;          {object V45;
416          object V42;          object V46;
         object V43;  
         register object V44;  
         object V45;  
         V41= (V40);  
         V42= Cnil;  
         V43= Cnil;  
         V44= Cnil;  
         V45= Cnil;  
         {register object V46;  
417          object V47;          object V47;
418          V46= (base0[4]->c.c_car);          register object V48;
419          V47= CMPcar((V46));          object V49;
420          goto T72;          V45= (V44);
421  T72:;          V46= Cnil;
422          if(!(((V46))==Cnil)){          V47= Cnil;
423          goto T73;}          V48= Cnil;
         goto T68;  
         goto T73;  
 T73:;  
         if(((V41))!=Cnil){  
         goto T77;}  
         V43= Ct;  
         goto T68;  
         goto T77;  
 T77:;  
         {object V48;  
         register object V49;  
         {object V50;  
         V50= CMPcar((V41));  
         V41= CMPcdr((V41));  
         V48= (V50);}  
424          V49= Cnil;          V49= Cnil;
425          if(((V47))==(Ct)){          {register object V50;
426          goto T82;}          object V51;
427          V49= (*(LnkLI52))((V48));          V50= (base0[4]->c.c_car);
428          if(!((((((V49))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          V51= CMPcar((V50));
429          goto T92;}          goto T108;
430          V42= Ct;  T108:;
431          V49= (*(LnkLI53))((V48));          if(!(((V50))==Cnil)){
432          goto T92;          goto T109;}
433  T92:;          goto T104;
434          if(((V44))!=Cnil){          goto T109;
435          goto T99;}  T109:;
436          V44= (V49);          if(((V45))!=Cnil){
437          goto T82;          goto T113;}
438          goto T99;          V47= Ct;
439  T99:;          goto T104;
440          if(type_of((V44))==t_cons){          goto T113;
441          goto T103;}  T113:;
442          V45= make_cons((V49),Cnil);          {object V52;
443          V44= make_cons((V44),(V45));          register object V53;
444          goto T82;          {object V54;
445          goto T103;          V54= CMPcar((V45));
446  T103:;          V45= CMPcdr((V45));
447          {object V51;          V52= (V54);}
448          V51= make_cons((V49),Cnil);          V53= Cnil;
449          (V45)->c.c_cdr = V51;          if(((V51))==(Ct)){
         V45= (V51);}}  
         goto T82;  
 T82:;  
         V46= CMPcdr((V46));  
         V47= CMPcar((V46));  
         goto T72;}  
         goto T68;  
 T68:;  
         if(((V43))==Cnil){  
450          goto T118;}          goto T118;}
451            V53= (*(LnkLI67))((V52));
452            if(!((((((V53))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
453            goto T128;}
454            V46= Ct;
455            V53= (*(LnkLI68))((V52));
456            goto T128;
457    T128:;
458            if(((V48))!=Cnil){
459            goto T135;}
460            V48= (V53);
461            goto T118;
462            goto T135;
463    T135:;
464            if(type_of((V48))==t_cons){
465            goto T139;}
466            V49= make_cons((V53),Cnil);
467            V48= make_cons((V48),(V49));
468            goto T118;
469            goto T139;
470    T139:;
471            {object V55;
472            V55= make_cons((V53),Cnil);
473            (V49)->c.c_cdr = V55;
474            V49= (V55);}}
475            goto T118;
476    T118:;
477            V50= CMPcdr((V50));
478            V51= CMPcar((V50));
479            goto T108;}
480            goto T104;
481    T104:;
482            if(((V47))==Cnil){
483            goto T154;}
484          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
485          {object V54;          {object V58;
486          V54= (V40);          V58= (V44);
487           vs_top=base+2;           vs_top=base+2;
488           while(V54!=Cnil)           while(V58!=Cnil)
489           {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}           {vs_push((V58)->c.c_car);V58=(V58)->c.c_cdr;}
490          vs_base=base+2;}          vs_base=base+2;}
491          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
492                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
493                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
494                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
495          return;          return;
496          goto T118;          goto T154;
497  T118:;  T154:;
498          if(((V42))==Cnil){          if(((V46))==Cnil){
499          goto T123;}          goto T159;}
500          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
501          {object V55;          {object V59;
502          V55= (V40);          V59= (V44);
503           vs_top=base+2;           vs_top=base+2;
504           while(V55!=Cnil)           while(V59!=Cnil)
505           {vs_push((V55)->c.c_car);V55=(V55)->c.c_cdr;}           {vs_push((V59)->c.c_car);V59=(V59)->c.c_cdr;}
506          vs_base=base+2;}          vs_base=base+2;}
507          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
508                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
509                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
510                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
511          return;          return;
512          goto T123;          goto T159;
513  T123:;  T159:;
514          {object V56;{object V57;          {object V60;{object V61;
515          V57= (VV[30]->s.s_dbind);          V61= (VV[44]->s.s_dbind);
516          V58= (VFUN_NARGS=3,(*(LnkLI54))((base0[2]->c.c_car),(V44),(VV[30]->s.s_dbind)));          V62= (VFUN_NARGS=3,(*(LnkLI69))((base0[2]->c.c_car),(V48),(VV[44]->s.s_dbind)));
517          V56= ((((V57)==(/* INLINE-ARGS */V58)?Ct:Cnil))==Cnil?Ct:Cnil);}          V60= ((((V61)==(/* INLINE-ARGS */V62)?Ct:Cnil))==Cnil?Ct:Cnil);}
518          if(((V56))==Cnil){          if(((V60))==Cnil){
519          goto T129;}          goto T165;}
520          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
521          base[2]= (V40);          base[2]= (V44);
522          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
523          (void) (*Lnk51)();          (void) (*Lnk66)();
524          return;          return;
525          goto T129;          goto T165;
526  T129:;  T165:;
527          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
528          goto T134;}          goto T170;}
529          base[1]= Ct;          base[1]= Ct;
530          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
531          return;          return;
532          goto T134;          goto T170;
533  T134:;  T170:;
534          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
535          {object V59;          {object V63;
536          V59= (V40);          V63= (V44);
537           vs_top=base+2;           vs_top=base+2;
538           while(V59!=Cnil)           while(V63!=Cnil)
539           {vs_push((V59)->c.c_car);V59=(V59)->c.c_cdr;}           {vs_push((V63)->c.c_car);V63=(V63)->c.c_cdr;}
540          vs_base=base+2;}          vs_base=base+2;}
541          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
542                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 526  register object *base0; Line 568  register object *base0;
568  {       register object *base=vs_base;  {       register object *base=vs_base;
569          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
570          vs_check;          vs_check;
571          {object V60;          {object V64;
572          vs_top[0]=Cnil;          vs_top[0]=Cnil;
573          {object *p=vs_top;          {object *p=vs_top;
574           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
575          V60=(base[0]);          V64=(base[0]);
576          vs_top=sup;          vs_top=sup;
577          {object V61;          {object V65;
578          object V62;          object V66;
         object V63;  
         register object V64;  
         object V65;  
         V61= (V60);  
         V62= Cnil;  
         V63= Cnil;  
         V64= Cnil;  
         V65= Cnil;  
         {register object V66;  
579          object V67;          object V67;
580          V66= (base0[3]->c.c_car);          register object V68;
581          V67= CMPcar((V66));          object V69;
582          goto T147;          V65= (V64);
583  T147:;          V66= Cnil;
584          if(!(((V66))==Cnil)){          V67= Cnil;
585          goto T148;}          V68= Cnil;
         goto T143;  
         goto T148;  
 T148:;  
         if(((V61))!=Cnil){  
         goto T152;}  
         V63= Ct;  
         goto T143;  
         goto T152;  
 T152:;  
         {object V68;  
         register object V69;  
         {object V70;  
         V70= CMPcar((V61));  
         V61= CMPcdr((V61));  
         V68= (V70);}  
586          V69= Cnil;          V69= Cnil;
587          if(((V67))==(Ct)){          {register object V70;
588          goto T157;}          object V71;
589          V69= (*(LnkLI52))((V68));          V70= (base0[3]->c.c_car);
590          if(!((((((V69))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          V71= CMPcar((V70));
591          goto T167;}          goto T183;
592          V62= Ct;  T183:;
593          V69= (*(LnkLI53))((V68));          if(!(((V70))==Cnil)){
594          goto T167;          goto T184;}
595  T167:;          goto T179;
596          if(((V64))!=Cnil){          goto T184;
597          goto T174;}  T184:;
598          V64= (V69);          if(((V65))!=Cnil){
599          goto T157;          goto T188;}
600          goto T174;          V67= Ct;
601  T174:;          goto T179;
602          if(type_of((V64))==t_cons){          goto T188;
603          goto T178;}  T188:;
604          V65= make_cons((V69),Cnil);          {object V72;
605          V64= make_cons((V64),(V65));          register object V73;
606          goto T157;          {object V74;
607          goto T178;          V74= CMPcar((V65));
608  T178:;          V65= CMPcdr((V65));
609          {object V71;          V72= (V74);}
610          V71= make_cons((V69),Cnil);          V73= Cnil;
611          (V65)->c.c_cdr = V71;          if(((V71))==(Ct)){
         V65= (V71);}}  
         goto T157;  
 T157:;  
         V66= CMPcdr((V66));  
         V67= CMPcar((V66));  
         goto T147;}  
         goto T143;  
 T143:;  
         if(((V63))==Cnil){  
612          goto T193;}          goto T193;}
613            V73= (*(LnkLI67))((V72));
614            if(!((((((V73))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
615            goto T203;}
616            V66= Ct;
617            V73= (*(LnkLI68))((V72));
618            goto T203;
619    T203:;
620            if(((V68))!=Cnil){
621            goto T210;}
622            V68= (V73);
623            goto T193;
624            goto T210;
625    T210:;
626            if(type_of((V68))==t_cons){
627            goto T214;}
628            V69= make_cons((V73),Cnil);
629            V68= make_cons((V68),(V69));
630            goto T193;
631            goto T214;
632    T214:;
633            {object V75;
634            V75= make_cons((V73),Cnil);
635            (V69)->c.c_cdr = V75;
636            V69= (V75);}}
637            goto T193;
638    T193:;
639            V70= CMPcdr((V70));
640            V71= CMPcar((V70));
641            goto T183;}
642            goto T179;
643    T179:;
644            if(((V67))==Cnil){
645            goto T229;}
646          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
647          {object V74;          {object V78;
648          V74= (V60);          V78= (V64);
649           vs_top=base+2;           vs_top=base+2;
650           while(V74!=Cnil)           while(V78!=Cnil)
651           {vs_push((V74)->c.c_car);V74=(V74)->c.c_cdr;}           {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
652          vs_base=base+2;}          vs_base=base+2;}
653          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
654                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
655                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
656                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
657          return;          return;
658          goto T193;          goto T229;
659  T193:;  T229:;
660          if(((V62))==Cnil){          if(((V66))==Cnil){
661          goto T198;}          goto T234;}
662          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
663          {object V75;          {object V79;
664          V75= (V60);          V79= (V64);
665           vs_top=base+2;           vs_top=base+2;
666           while(V75!=Cnil)           while(V79!=Cnil)
667           {vs_push((V75)->c.c_car);V75=(V75)->c.c_cdr;}           {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}
668          vs_base=base+2;}          vs_base=base+2;}
669          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
670                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
671                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
672                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
673          return;          return;
674          goto T198;          goto T234;
675  T198:;  T234:;
676          {object V76;          {object V80;
677          V76= (VFUN_NARGS=3,(*(LnkLI54))((base0[1]->c.c_car),(V64),(VV[30]->s.s_dbind)));          V80= (VFUN_NARGS=3,(*(LnkLI69))((base0[1]->c.c_car),(V68),(VV[44]->s.s_dbind)));
678          if(!(((V76))==((VV[30]->s.s_dbind)))){          if(!(((V80))==((VV[44]->s.s_dbind)))){
679          goto T204;}          goto T240;}
680          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
681          {object V77;          {object V81;
682          V77= (V60);          V81= (V64);
683           vs_top=base+2;           vs_top=base+2;
684           while(V77!=Cnil)           while(V81!=Cnil)
685           {vs_push((V77)->c.c_car);V77=(V77)->c.c_cdr;}           {vs_push((V81)->c.c_car);V81=(V81)->c.c_cdr;}
686          vs_base=base+2;}          vs_base=base+2;}
687          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
688                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
689                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
690                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
691          return;          return;
692          goto T204;          goto T240;
693  T204:;  T240:;
694          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
695          goto T209;}          goto T245;}
696          base[1]= (V76);          base[1]= (V80);
697          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
698          return;          return;
699          goto T209;          goto T245;
700  T209:;  T245:;
701          base[1]= (V76);          base[1]= (V80);
702          base[2]= (V60);          base[2]= (V64);
703          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
704          (void) (*Lnk51)();          (void) (*Lnk66)();
705          return;}}          return;}}
706          }          }
707  }  }
# Line 687  register object *base0; Line 729  register object *base0;
729  {       register object *base=vs_base;  {       register object *base=vs_base;
730          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
731          vs_check;          vs_check;
732          {object V78;          {object V82;
733          object V79;          object V83;
734          check_arg(2);          check_arg(2);
735          V78=(base[0]);          V82=(base[0]);
736          V79=(base[1]);          V83=(base[1]);
737          vs_top=sup;          vs_top=sup;
738          {object V80;          {object V84;
739          V80= Cnil;          V84= Cnil;
740          {long V81;          {long V85;
         object V82;  
         long V83;  
         long V84;  
         object V85;  
741          object V86;          object V86;
742          V81= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          long V87;
743          V82= STREF(object,(base0[2]->c.c_car),40);          long V88;
744          V83= (long)STREF(fixnum,(base0[2]->c.c_car),24);          object V89;
745          V84= (long)STREF(fixnum,(base0[2]->c.c_car),28);          object V90;
746          V85= STREF(object,(base0[2]->c.c_car),44);          V85= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
747          if(type_of(V79)==t_structure){          V86= STREF(object,(base0[2]->c.c_car),40);
748          goto T224;}          V87= (long)STREF(fixnum,(base0[2]->c.c_car),24);
749          goto T222;          V88= (long)STREF(fixnum,(base0[2]->c.c_car),28);
750          goto T224;          V89= STREF(object,(base0[2]->c.c_car),44);
751  T224:;          if(type_of(V83)==t_structure){
752          if(!(((V79)->str.str_def)==(VV[22]))){          goto T260;}
753          goto T222;}          goto T258;
754          V80= STREF(object,(V79),4);          goto T260;
755          V86= STREF(object,(V79),0);  T260:;
756          goto T220;          if(!(((V83)->str.str_def)==(VV[34]))){
757          goto T222;          goto T258;}
758  T222:;{object V88;          V84= STREF(object,(V83),4);
759          V88= (VV[3]->s.s_dbind);          V90= STREF(object,(V83),0);
760            goto T256;
761            goto T258;
762    T258:;{object V92;
763            V92= (VV[3]->s.s_dbind);
764          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
765          base[3]= (V79);          base[3]= (V83);
766          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
767          (void) (*Lnk55)();          (void) (*Lnk70)();
768          vs_top=sup;          vs_top=sup;
769          V89= vs_base[0];          V93= vs_base[0];
770          if(!((V88)==(CMPcar(V89)))){          if(!((V92)==(CMPcar(V93)))){
771          goto T229;}}          goto T265;}}
772          V80= CMPcar(((V79))->cc.cc_turbo[12]);          V84= CMPcar(((V83))->cc.cc_turbo[12]);
773          V86= CMPcar(((V79))->cc.cc_turbo[13]);          V90= CMPcar(((V83))->cc.cc_turbo[13]);
774          goto T220;          goto T256;
775          goto T229;          goto T265;
776  T229:;  T265:;
777          goto T214;          goto T250;
778          goto T220;          goto T256;
779  T220:;  T256:;
780          {long V90;          {long V94;
781          long V91;          long V95;
782          {long V92;          {long V96;
783          V92= fix(((V86))->v.v_self[V81]);          V96= fix(((V90))->v.v_self[V85]);
784          if(!((V92)==0)){          if(!((V96)==0)){
785          goto T239;}          goto T275;}
786          goto T214;          goto T250;
787          goto T239;          goto T275;
788  T239:;  T275:;
789          V90= (long)((V83) & (V92));}          V94= (long)((V87) & (V96));}
790          V91= V90;          V95= V94;
791          goto T244;          goto T280;
792  T244:;  T280:;
793          if(!(((V86))==(((V82))->v.v_self[V91]))){          if(!(((V90))==(((V86))->v.v_self[V95]))){
794          goto T246;}          goto T282;}
795          goto T236;          goto T272;
796          goto T246;          goto T282;
797  T246:;  T282:;
798          V91= (long)(V91)+(1);          V95= (long)(V95)+(1);
799          if(!((V91)==(V84))){          if(!((V95)==(V88))){
800          goto T251;}          goto T287;}
801          V91= 0;          V95= 0;
802          goto T251;          goto T287;
803  T251:;  T287:;
804          if(!((V91)==(V90))){          if(!((V95)==(V94))){
805          goto T245;}          goto T281;}
806          {register object V93;          {register object V97;
807          object V94;          object V98;
808          V93= (V85);          V97= (V89);
809          V94= CMPcar((V93));          V98= CMPcar((V97));
810          goto T261;          goto T297;
811  T261:;  T297:;
812          if(!(((V93))==Cnil)){          if(!(((V97))==Cnil)){
813          goto T262;}          goto T298;}
814          goto T257;          goto T293;
815          goto T262;          goto T298;
816  T262:;  T298:;
817          if(!((CMPcar((V94)))==((V86)))){          if(!((CMPcar((V98)))==((V90)))){
818          goto T266;}          goto T302;}
819          goto T236;          goto T272;
820          goto T266;          goto T302;
821  T266:;  T302:;
822          V93= CMPcdr((V93));          V97= CMPcdr((V97));
823          V94= CMPcar((V93));          V98= CMPcar((V97));
824          goto T261;}          goto T297;}
825          goto T257;          goto T293;
826  T257:;  T293:;
827          goto T214;          goto T250;
828          goto T245;          goto T281;
829  T245:;  T281:;
830          goto T244;}          goto T280;}
831          goto T236;          goto T272;
832  T236:;  T272:;
833          base[2]= ((V80))->v.v_self[fix((base0[1]->c.c_car))]= ((V78));          base[2]= ((V84))->v.v_self[fix((base0[1]->c.c_car))]= ((V82));
834          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
835          return;}          return;}
836          goto T214;          goto T250;
837  T214:;  T250:;
838          base[2]= (V78);          base[2]= (V82);
839          base[3]= (V79);          base[3]= (V83);
840          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
841          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
842                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 830  register object *base0; Line 872  register object *base0;
872  {       register object *base=vs_base;  {       register object *base=vs_base;
873          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
874          vs_check;          vs_check;
875          {object V95;          {object V99;
876          object V96;          object V100;
877          check_arg(2);          check_arg(2);
878          V95=(base[0]);          V99=(base[0]);
879          V96=(base[1]);          V100=(base[1]);
880          vs_top=sup;          vs_top=sup;
881          {long V97;          {long V101;
         object V98;  
         long V99;  
         long V100;  
         object V101;  
882          object V102;          object V102;
883          V97= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          long V103;
884          V98= STREF(object,(base0[2]->c.c_car),40);          long V104;
885          V99= (long)STREF(fixnum,(base0[2]->c.c_car),24);          object V105;
886          V100= (long)STREF(fixnum,(base0[2]->c.c_car),28);          object V106;
887          V101= STREF(object,(base0[2]->c.c_car),44);          V101= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
888          if(type_of(V96)==t_structure){          V102= STREF(object,(base0[2]->c.c_car),40);
889          goto T289;}          V103= (long)STREF(fixnum,(base0[2]->c.c_car),24);
890          goto T287;          V104= (long)STREF(fixnum,(base0[2]->c.c_car),28);
891          goto T289;          V105= STREF(object,(base0[2]->c.c_car),44);
892  T289:;          if(type_of(V100)==t_structure){
893          if(!(((V96)->str.str_def)==(VV[21]))){          goto T325;}
894          goto T287;}          goto T323;
895          V102= STREF(object,(V96),0);          goto T325;
896          goto T285;  T325:;
897          goto T287;          if(!(((V100)->str.str_def)==(VV[33]))){
898  T287:;{object V104;          goto T323;}
899          V104= (VV[3]->s.s_dbind);          V106= STREF(object,(V100),0);
900            goto T321;
901            goto T323;
902    T323:;{object V108;
903            V108= (VV[3]->s.s_dbind);
904          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
905          base[3]= (V96);          base[3]= (V100);
906          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
907          (void) (*Lnk55)();          (void) (*Lnk70)();
908          vs_top=sup;          vs_top=sup;
909          V105= vs_base[0];          V109= vs_base[0];
910          if(!((V104)==(CMPcar(V105)))){          if(!((V108)==(CMPcar(V109)))){
911          goto T292;}}          goto T328;}}
912          V102= CMPcar(((V96))->cc.cc_turbo[13]);          V106= CMPcar(((V100))->cc.cc_turbo[13]);
913          goto T285;          goto T321;
914          goto T292;          goto T328;
915  T292:;  T328:;
916          goto T279;          goto T315;
917          goto T285;          goto T321;
918  T285:;  T321:;
919          {long V106;          {long V110;
920          long V107;          long V111;
921          {long V108;          {long V112;
922          V108= fix(((V102))->v.v_self[V97]);          V112= fix(((V106))->v.v_self[V101]);
923          if(!((V108)==0)){          if(!((V112)==0)){
924          goto T300;}          goto T336;}
925          goto T279;          goto T315;
926          goto T300;          goto T336;
927  T300:;  T336:;
928          V106= (long)((V99) & (V108));}          V110= (long)((V103) & (V112));}
929          V107= V106;          V111= V110;
930          goto T305;          goto T341;
931  T305:;  T341:;
932          if(!(((V102))==(((V98))->v.v_self[V107]))){          if(!(((V106))==(((V102))->v.v_self[V111]))){
933          goto T307;}          goto T343;}
934          goto T297;          goto T333;
935          goto T307;          goto T343;
936  T307:;  T343:;
937          V107= (long)(V107)+(1);          V111= (long)(V111)+(1);
938          if(!((V107)==(V100))){          if(!((V111)==(V104))){
939          goto T312;}          goto T348;}
940          V107= 0;          V111= 0;
941          goto T312;          goto T348;
942  T312:;  T348:;
943          if(!((V107)==(V106))){          if(!((V111)==(V110))){
944          goto T306;}          goto T342;}
945          {register object V109;          {register object V113;
946          object V110;          object V114;
947          V109= (V101);          V113= (V105);
948          V110= CMPcar((V109));          V114= CMPcar((V113));
949          goto T322;          goto T358;
950  T322:;  T358:;
951          if(!(((V109))==Cnil)){          if(!(((V113))==Cnil)){
952          goto T323;}          goto T359;}
953          goto T318;          goto T354;
954          goto T323;          goto T359;
955  T323:;  T359:;
956          if(!((CMPcar((V110)))==((V102)))){          if(!((CMPcar((V114)))==((V106)))){
957          goto T327;}          goto T363;}
958          goto T297;          goto T333;
959          goto T327;          goto T363;
960  T327:;  T363:;
961          V109= CMPcdr((V109));          V113= CMPcdr((V113));
962          V110= CMPcar((V109));          V114= CMPcar((V113));
963          goto T322;}          goto T358;}
964          goto T318;          goto T354;
965  T318:;  T354:;
966          goto T279;          goto T315;
967          goto T306;          goto T342;
968  T306:;  T342:;
969          goto T305;}          goto T341;}
970          goto T297;          goto T333;
971  T297:;  T333:;
972          {object V111;          {object V115;
973          V111= (base0[1]->c.c_car);          V115= (base0[1]->c.c_car);
974          ((V111))->c.c_cdr = V95;          ((V115))->c.c_cdr = V99;
975          base[2]= V95;          base[2]= V99;
976          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
977          return;}}          return;}}
978          goto T279;          goto T315;
979  T279:;  T315:;
980          base[2]= (V95);          base[2]= (V99);
981          base[3]= (V96);          base[3]= (V100);
982          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
983          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
984                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 971  register object *base0; Line 1013  register object *base0;
1013  {       register object *base=vs_base;  {       register object *base=vs_base;
1014          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1015          vs_check;          vs_check;
1016          {object V113;          {object V117;
1017          object V114;          object V118;
1018          check_arg(2);          check_arg(2);
1019          V113=(base[0]);          V117=(base[0]);
1020          V114=(base[1]);          V118=(base[1]);
1021          vs_top=sup;          vs_top=sup;
1022          {object V115;          {object V119;
1023          object V116;          object V120;
1024          V115= Cnil;          V119= Cnil;
1025          V116= Cnil;          V120= Cnil;
1026          {long V117;          {long V121;
         object V118;  
         long V119;  
         long V120;  
         object V121;  
1027          object V122;          object V122;
1028          V117= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          long V123;
1029          V118= STREF(object,(base0[1]->c.c_car),40);          long V124;
1030          V119= (long)STREF(fixnum,(base0[1]->c.c_car),24);          object V125;
1031          V120= (long)STREF(fixnum,(base0[1]->c.c_car),28);          object V126;
1032          V121= STREF(object,(base0[1]->c.c_car),44);          V121= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1033          if(type_of(V114)==t_structure){          V122= STREF(object,(base0[1]->c.c_car),40);
1034          goto T352;}          V123= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1035          goto T350;          V124= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1036          goto T352;          V125= STREF(object,(base0[1]->c.c_car),44);
1037  T352:;          if(type_of(V118)==t_structure){
1038          if(!(((V114)->str.str_def)==(VV[20]))){          goto T388;}
1039          goto T350;}          goto T386;
1040          V115= STREF(object,(V114),4);          goto T388;
1041          V122= STREF(object,(V114),0);  T388:;
1042          goto T348;          if(!(((V118)->str.str_def)==(VV[32]))){
1043          goto T350;          goto T386;}
1044  T350:;{object V124;          V119= STREF(object,(V118),4);
1045          V124= (VV[3]->s.s_dbind);          V126= STREF(object,(V118),0);
1046            goto T384;
1047            goto T386;
1048    T386:;{object V128;
1049            V128= (VV[3]->s.s_dbind);
1050          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1051          base[3]= (V114);          base[3]= (V118);
1052          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1053          (void) (*Lnk55)();          (void) (*Lnk70)();
1054          vs_top=sup;          vs_top=sup;
1055          V125= vs_base[0];          V129= vs_base[0];
1056          if(!((V124)==(CMPcar(V125)))){          if(!((V128)==(CMPcar(V129)))){
1057          goto T357;}}          goto T393;}}
1058          V115= CMPcar(((V114))->cc.cc_turbo[12]);          V119= CMPcar(((V118))->cc.cc_turbo[12]);
1059          V122= CMPcar(((V114))->cc.cc_turbo[13]);          V126= CMPcar(((V118))->cc.cc_turbo[13]);
1060          goto T348;          goto T384;
1061          goto T357;          goto T393;
1062  T357:;  T393:;
1063          goto T342;          goto T378;
1064          goto T348;          goto T384;
1065  T348:;  T384:;
         {long V126;  
         long V127;  
         {long V128;  
         V128= fix(((V122))->v.v_self[V117]);  
         if(!((V128)==0)){  
         goto T367;}  
         goto T342;  
         goto T367;  
 T367:;  
         V126= (long)((V119) & (V128));}  
         {object V129;  
         V129= ((V118))->v.v_self[0];  
         if(type_of((V129))==t_fixnum){  
         goto T372;}  
         base[2]= VV[15];  
         vs_top=(vs_base=base+2)+1;  
         Lerror();  
         vs_top=sup;  
         goto T372;  
 T372:;  
         V127= fix((V129));}  
1066          {long V130;          {long V130;
1067          V130= V126;          long V131;
1068          goto T379;          {long V132;
1069  T379:;          V132= fix(((V126))->v.v_self[V121]);
1070          if(!(((V122))==(((V118))->v.v_self[V130]))){          if(!((V132)==0)){
         goto T381;}  
         V116= ((V118))->v.v_self[(long)(V130)+1];  
         goto T377;  
         goto T381;  
 T381:;  
         V130= (long)(V130)+(2);  
         if(!((V130)==(V120))){  
         goto T388;}  
         V130= 0;  
         goto T388;  
 T388:;  
         if(!((V130)==(V126))){  
         goto T380;}  
         {register object V131;  
         object V132;  
         V131= (V121);  
         V132= CMPcar((V131));  
         goto T398;  
 T398:;  
         if(!(((V131))==Cnil)){  
         goto T399;}  
         goto T394;  
         goto T399;  
 T399:;  
         if(!((CMPcar((V132)))==((V122)))){  
1071          goto T403;}          goto T403;}
1072          V116= CMPcdr((V132));          goto T378;
         goto T377;  
1073          goto T403;          goto T403;
1074  T403:;  T403:;
1075          V131= CMPcdr((V131));          V130= (long)((V123) & (V132));}
1076          V132= CMPcar((V131));          {object V133;
1077          goto T398;}          V133= ((V122))->v.v_self[0];
1078          goto T394;          if(type_of((V133))==t_fixnum){
1079  T394:;          goto T408;}
1080          goto T342;          base[2]= VV[27];
         goto T380;  
 T380:;  
         goto T379;  
         goto T377;  
 T377:;  
         V133 = V127;  
         {object V135;  
         V135= ((V118))->v.v_self[0];  
         if(type_of((V135))==t_fixnum){  
         goto T418;}  
         base[2]= VV[15];  
1081          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1082          Lerror();          Lerror();
1083          vs_top=sup;          vs_top=sup;
1084          goto T418;          goto T408;
1085  T418:;  T408:;
1086          V134= fix((V135));}          V131= fix((V133));}
1087          if((V133)==(V134)){          {long V134;
1088          goto T364;}          V134= V130;
1089          goto T342;}}          goto T415;
1090          goto T364;  T415:;
1091  T364:;          if(!(((V126))==(((V122))->v.v_self[V134]))){
1092          base[2]= ((V115))->v.v_self[fix((V116))]= ((V113));          goto T417;}
1093            V120= ((V122))->v.v_self[(long)(V134)+1];
1094            goto T413;
1095            goto T417;
1096    T417:;
1097            V134= (long)(V134)+(2);
1098            if(!((V134)==(V124))){
1099            goto T424;}
1100            V134= 0;
1101            goto T424;
1102    T424:;
1103            if(!((V134)==(V130))){
1104            goto T416;}
1105            {register object V135;
1106            object V136;
1107            V135= (V125);
1108            V136= CMPcar((V135));
1109            goto T434;
1110    T434:;
1111            if(!(((V135))==Cnil)){
1112            goto T435;}
1113            goto T430;
1114            goto T435;
1115    T435:;
1116            if(!((CMPcar((V136)))==((V126)))){
1117            goto T439;}
1118            V120= CMPcdr((V136));
1119            goto T413;
1120            goto T439;
1121    T439:;
1122            V135= CMPcdr((V135));
1123            V136= CMPcar((V135));
1124            goto T434;}
1125            goto T430;
1126    T430:;
1127            goto T378;
1128            goto T416;
1129    T416:;
1130            goto T415;
1131            goto T413;
1132    T413:;
1133            {object V138;
1134            V138= ((V122))->v.v_self[0];
1135            if(type_of((V138))==t_fixnum){
1136            goto T454;}
1137            base[2]= VV[27];
1138            vs_top=(vs_base=base+2)+1;
1139            Lerror();
1140            vs_top=sup;
1141            goto T454;
1142    T454:;
1143            V137= fix((V138));}
1144            if((V131)==(V137)){
1145            goto T400;}
1146            goto T378;}}
1147            goto T400;
1148    T400:;
1149            base[2]= ((V119))->v.v_self[fix((V120))]= ((V117));
1150          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1151          return;}          return;}
1152          goto T342;          goto T378;
1153  T342:;  T378:;
1154          base[2]= (V113);          base[2]= (V117);
1155          base[3]= (V114);          base[3]= (V118);
1156          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1157          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1158                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1146  register object *base0; Line 1187  register object *base0;
1187  {       register object *base=vs_base;  {       register object *base=vs_base;
1188          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1189          vs_check;          vs_check;
1190          {object V136;          {object V139;
1191          object V137;          object V140;
1192          check_arg(2);          check_arg(2);
1193          V136=(base[0]);          V139=(base[0]);
1194          V137=(base[1]);          V140=(base[1]);
1195          vs_top=sup;          vs_top=sup;
1196          {object V138;          {object V141;
1197          V138= Cnil;          V141= Cnil;
1198          {long V139;          {long V142;
         object V140;  
         long V141;  
         long V142;  
1199          object V143;          object V143;
1200          object V144;          long V144;
1201          V139= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          long V145;
1202          V140= STREF(object,(base0[1]->c.c_car),40);          object V146;
1203          V141= (long)STREF(fixnum,(base0[1]->c.c_car),24);          object V147;
1204          V142= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V142= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1205          V143= STREF(object,(base0[1]->c.c_car),44);          V143= STREF(object,(base0[1]->c.c_car),40);
1206          if(type_of(V137)==t_structure){          V144= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1207          goto T436;}          V145= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1208          goto T434;          V146= STREF(object,(base0[1]->c.c_car),44);
1209          goto T436;          if(type_of(V140)==t_structure){
1210  T436:;          goto T472;}
1211          if(!(((V137)->str.str_def)==(VV[19]))){          goto T470;
1212          goto T434;}          goto T472;
1213          V144= STREF(object,(V137),0);  T472:;
1214          goto T432;          if(!(((V140)->str.str_def)==(VV[31]))){
1215          goto T434;          goto T470;}
1216  T434:;{object V146;          V147= STREF(object,(V140),0);
1217          V146= (VV[3]->s.s_dbind);          goto T468;
1218            goto T470;
1219    T470:;{object V149;
1220            V149= (VV[3]->s.s_dbind);
1221          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1222          base[3]= (V137);          base[3]= (V140);
1223          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1224          (void) (*Lnk55)();          (void) (*Lnk70)();
         vs_top=sup;  
         V147= vs_base[0];  
         if(!((V146)==(CMPcar(V147)))){  
         goto T439;}}  
         V144= CMPcar(((V137))->cc.cc_turbo[13]);  
         goto T432;  
         goto T439;  
 T439:;  
         goto T426;  
         goto T432;  
 T432:;  
         {long V148;  
         long V149;  
         {long V150;  
         V150= fix(((V144))->v.v_self[V139]);  
         if(!((V150)==0)){  
         goto T447;}  
         goto T426;  
         goto T447;  
 T447:;  
         V148= (long)((V141) & (V150));}  
         {object V151;  
         V151= ((V140))->v.v_self[0];  
         if(type_of((V151))==t_fixnum){  
         goto T452;}  
         base[2]= VV[15];  
         vs_top=(vs_base=base+2)+1;  
         Lerror();  
1225          vs_top=sup;          vs_top=sup;
1226          goto T452;          V150= vs_base[0];
1227  T452:;          if(!((V149)==(CMPcar(V150)))){
1228          V149= fix((V151));}          goto T475;}}
1229          {long V152;          V147= CMPcar(((V140))->cc.cc_turbo[13]);
1230          V152= V148;          goto T468;
1231          goto T459;          goto T475;
1232  T459:;  T475:;
1233          if(!(((V144))==(((V140))->v.v_self[V152]))){          goto T462;
         goto T461;}  
         V138= ((V140))->v.v_self[(long)(V152)+1];  
         goto T457;  
         goto T461;  
 T461:;  
         V152= (long)(V152)+(2);  
         if(!((V152)==(V142))){  
         goto T468;}  
         V152= 0;  
1234          goto T468;          goto T468;
1235  T468:;  T468:;
1236          if(!((V152)==(V148))){          {long V151;
1237          goto T460;}          long V152;
1238          {register object V153;          {long V153;
1239          object V154;          V153= fix(((V147))->v.v_self[V142]);
1240          V153= (V143);          if(!((V153)==0)){
         V154= CMPcar((V153));  
         goto T478;  
 T478:;  
         if(!(((V153))==Cnil)){  
         goto T479;}  
         goto T474;  
         goto T479;  
 T479:;  
         if(!((CMPcar((V154)))==((V144)))){  
1241          goto T483;}          goto T483;}
1242          V138= CMPcdr((V154));          goto T462;
         goto T457;  
1243          goto T483;          goto T483;
1244  T483:;  T483:;
1245          V153= CMPcdr((V153));          V151= (long)((V144) & (V153));}
1246          V154= CMPcar((V153));          {object V154;
1247          goto T478;}          V154= ((V143))->v.v_self[0];
1248          goto T474;          if(type_of((V154))==t_fixnum){
1249  T474:;          goto T488;}
1250          goto T426;          base[2]= VV[27];
1251          goto T460;          vs_top=(vs_base=base+2)+1;
1252  T460:;          Lerror();
1253          goto T459;          vs_top=sup;
1254          goto T457;          goto T488;
1255  T457:;  T488:;
1256          V155 = V149;          V152= fix((V154));}
1257          {object V157;          {long V155;
1258          V157= ((V140))->v.v_self[0];          V155= V151;
1259          if(type_of((V157))==t_fixnum){          goto T495;
1260          goto T498;}  T495:;
1261          base[2]= VV[15];          if(!(((V147))==(((V143))->v.v_self[V155]))){
1262            goto T497;}
1263            V141= ((V143))->v.v_self[(long)(V155)+1];
1264            goto T493;
1265            goto T497;
1266    T497:;
1267            V155= (long)(V155)+(2);
1268            if(!((V155)==(V145))){
1269            goto T504;}
1270            V155= 0;
1271            goto T504;
1272    T504:;
1273            if(!((V155)==(V151))){
1274            goto T496;}
1275            {register object V156;
1276            object V157;
1277            V156= (V146);
1278            V157= CMPcar((V156));
1279            goto T514;
1280    T514:;
1281            if(!(((V156))==Cnil)){
1282            goto T515;}
1283            goto T510;
1284            goto T515;
1285    T515:;
1286            if(!((CMPcar((V157)))==((V147)))){
1287            goto T519;}
1288            V141= CMPcdr((V157));
1289            goto T493;
1290            goto T519;
1291    T519:;
1292            V156= CMPcdr((V156));
1293            V157= CMPcar((V156));
1294            goto T514;}
1295            goto T510;
1296    T510:;
1297            goto T462;
1298            goto T496;
1299    T496:;
1300            goto T495;
1301            goto T493;
1302    T493:;
1303            {object V159;
1304            V159= ((V143))->v.v_self[0];
1305            if(type_of((V159))==t_fixnum){
1306            goto T534;}
1307            base[2]= VV[27];
1308          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1309          Lerror();          Lerror();
1310          vs_top=sup;          vs_top=sup;
1311          goto T498;          goto T534;
1312  T498:;  T534:;
1313          V156= fix((V157));}          V158= fix((V159));}
1314          if((V155)==(V156)){          if((V152)==(V158)){
1315          goto T444;}          goto T480;}
1316          goto T426;}}          goto T462;}}
1317          goto T444;          goto T480;
1318  T444:;  T480:;
1319          (V138)->c.c_cdr = V136;          (V141)->c.c_cdr = V139;
1320          base[2]= V136;          base[2]= V139;
1321          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1322          return;}          return;}
1323          goto T426;          goto T462;
1324  T426:;  T462:;
1325          base[2]= (V136);          base[2]= (V139);
1326          base[3]= (V137);          base[3]= (V140);
1327          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1328          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1329                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1319  register object *base0; Line 1359  register object *base0;
1359  {       register object *base=vs_base;  {       register object *base=vs_base;
1360          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1361          vs_check;          vs_check;
1362          {object V160;          {object V162;
1363          check_arg(1);          check_arg(1);
1364          V160=(base[0]);          V162=(base[0]);
1365          vs_top=sup;          vs_top=sup;
1366          {object V161;          {object V163;
1367          V161= Cnil;          V163= Cnil;
1368          {long V162;          {long V164;
1369          object V163;          object V165;
1370          long V164;          long V166;
1371          long V165;          long V167;
1372          object V166;          object V168;
1373          object V167;          object V169;
1374          V162= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V164= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
1375          V163= STREF(object,(base0[2]->c.c_car),40);          V165= STREF(object,(base0[2]->c.c_car),40);
1376          V164= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V166= (long)STREF(fixnum,(base0[2]->c.c_car),24);
1377          V165= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V167= (long)STREF(fixnum,(base0[2]->c.c_car),28);
1378          V166= STREF(object,(base0[2]->c.c_car),44);          V168= STREF(object,(base0[2]->c.c_car),44);
1379          if(type_of(V160)==t_structure){          if(type_of(V162)==t_structure){
1380          goto T517;}          goto T553;}
1381          goto T515;          goto T551;
1382          goto T517;          goto T553;
1383  T517:;  T553:;
1384          if(!(((V160)->str.str_def)==(VV[18]))){          if(!(((V162)->str.str_def)==(VV[30]))){
1385          goto T515;}          goto T551;}
1386          V161= STREF(object,(V160),4);          V163= STREF(object,(V162),4);
1387          V167= STREF(object,(V160),0);          V169= STREF(object,(V162),0);
1388          goto T513;          goto T549;
1389          goto T515;          goto T551;
1390  T515:;{object V169;  T551:;{object V171;
1391          V169= (VV[3]->s.s_dbind);          V171= (VV[3]->s.s_dbind);
1392          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1393          base[2]= (V160);          base[2]= (V162);
1394          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1395          (void) (*Lnk55)();          (void) (*Lnk70)();
1396          vs_top=sup;          vs_top=sup;
1397          V170= vs_base[0];          V172= vs_base[0];
1398          if(!((V169)==(CMPcar(V170)))){          if(!((V171)==(CMPcar(V172)))){
1399          goto T522;}}          goto T558;}}
1400          V161= CMPcar(((V160))->cc.cc_turbo[12]);          V163= CMPcar(((V162))->cc.cc_turbo[12]);
1401          V167= CMPcar(((V160))->cc.cc_turbo[13]);          V169= CMPcar(((V162))->cc.cc_turbo[13]);
1402          goto T513;          goto T549;
1403          goto T522;          goto T558;
1404  T522:;  T558:;
1405          goto T507;          goto T543;
1406          goto T513;          goto T549;
1407  T513:;  T549:;
         {long V171;  
         long V172;  
1408          {long V173;          {long V173;
1409          V173= fix(((V167))->v.v_self[V162]);          long V174;
1410          if(!((V173)==0)){          {long V175;
1411          goto T532;}          V175= fix(((V169))->v.v_self[V164]);
1412          goto T507;          if(!((V175)==0)){
1413          goto T532;          goto T568;}
1414  T532:;          goto T543;
1415          V171= (long)((V164) & (V173));}          goto T568;
1416          V172= V171;  T568:;
1417          goto T537;          V173= (long)((V166) & (V175));}
1418  T537:;          V174= V173;
1419          if(!(((V167))==(((V163))->v.v_self[V172]))){          goto T573;
1420          goto T539;}  T573:;
1421          goto T529;          if(!(((V169))==(((V165))->v.v_self[V174]))){
1422          goto T539;          goto T575;}
1423  T539:;          goto T565;
1424          V172= (long)(V172)+(1);          goto T575;
1425          if(!((V172)==(V165))){  T575:;
1426          goto T544;}          V174= (long)(V174)+(1);
1427          V172= 0;          if(!((V174)==(V167))){
1428          goto T544;          goto T580;}
1429  T544:;          V174= 0;
1430          if(!((V172)==(V171))){          goto T580;
1431          goto T538;}  T580:;
1432          {register object V174;          if(!((V174)==(V173))){
1433          object V175;          goto T574;}
1434          V174= (V166);          {register object V176;
1435          V175= CMPcar((V174));          object V177;
1436          goto T554;          V176= (V168);
1437  T554:;          V177= CMPcar((V176));
1438          if(!(((V174))==Cnil)){          goto T590;
1439          goto T555;}  T590:;
1440          goto T550;          if(!(((V176))==Cnil)){
1441          goto T555;          goto T591;}
1442  T555:;          goto T586;
1443          if(!((CMPcar((V175)))==((V167)))){          goto T591;
1444          goto T559;}  T591:;
1445          goto T529;          if(!((CMPcar((V177)))==((V169)))){
1446          goto T559;          goto T595;}
1447  T559:;          goto T565;
1448          V174= CMPcdr((V174));          goto T595;
1449          V175= CMPcar((V174));  T595:;
1450          goto T554;}          V176= CMPcdr((V176));
1451          goto T550;          V177= CMPcar((V176));
1452  T550:;          goto T590;}
1453          goto T507;          goto T586;
1454          goto T538;  T586:;
1455  T538:;          goto T543;
1456          goto T537;}          goto T574;
1457          goto T529;  T574:;
1458  T529:;          goto T573;}
1459          {object V176;          goto T565;
1460          V176= ((V161))->v.v_self[fix((base0[1]->c.c_car))];  T565:;
1461          if(!(((V176))==((VV[4]->s.s_dbind)))){          {object V178;
1462          goto T570;}          V178= ((V163))->v.v_self[fix((base0[1]->c.c_car))];
1463          base[1]= (V160);          if(!(((V178))==((VV[4]->s.s_dbind)))){
1464            goto T606;}
1465            base[1]= (V162);
1466          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1467          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1468                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1469                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1470                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1471          return;          return;
1472          goto T570;          goto T606;
1473  T570:;  T606:;
1474          base[1]= (V176);          base[1]= (V178);
1475          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1476          return;}}          return;}}
1477          goto T507;          goto T543;
1478  T507:;  T543:;
1479          base[1]= (V160);          base[1]= (V162);
1480          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1481          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1482                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1472  register object *base0; Line 1512  register object *base0;
1512  {       register object *base=vs_base;  {       register object *base=vs_base;
1513          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1514          vs_check;          vs_check;
1515          {object V177;          {object V179;
1516          check_arg(1);          check_arg(1);
1517          V177=(base[0]);          V179=(base[0]);
1518          vs_top=sup;          vs_top=sup;
1519          {long V178;          {long V180;
1520          object V179;          object V181;
1521          long V180;          long V182;
1522          long V181;          long V183;
1523          object V182;          object V184;
1524          object V183;          object V185;
1525          V178= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V180= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
1526          V179= STREF(object,(base0[2]->c.c_car),40);          V181= STREF(object,(base0[2]->c.c_car),40);
1527          V180= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V182= (long)STREF(fixnum,(base0[2]->c.c_car),24);
1528          V181= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V183= (long)STREF(fixnum,(base0[2]->c.c_car),28);
1529          V182= STREF(object,(base0[2]->c.c_car),44);          V184= STREF(object,(base0[2]->c.c_car),44);
1530          if(type_of(V177)==t_structure){          if(type_of(V179)==t_structure){
1531          goto T586;}          goto T622;}
1532          goto T584;          goto T620;
1533          goto T586;          goto T622;
1534  T586:;  T622:;
1535          if(!(((V177)->str.str_def)==(VV[17]))){          if(!(((V179)->str.str_def)==(VV[29]))){
1536          goto T584;}          goto T620;}
1537          V183= STREF(object,(V177),0);          V185= STREF(object,(V179),0);
1538          goto T582;          goto T618;
1539          goto T584;          goto T620;
1540  T584:;{object V185;  T620:;{object V187;
1541          V185= (VV[3]->s.s_dbind);          V187= (VV[3]->s.s_dbind);
1542          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1543          base[2]= (V177);          base[2]= (V179);
1544          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1545          (void) (*Lnk55)();          (void) (*Lnk70)();
1546          vs_top=sup;          vs_top=sup;
1547          V186= vs_base[0];          V188= vs_base[0];
1548          if(!((V185)==(CMPcar(V186)))){          if(!((V187)==(CMPcar(V188)))){
1549          goto T589;}}          goto T625;}}
1550          V183= CMPcar(((V177))->cc.cc_turbo[13]);          V185= CMPcar(((V179))->cc.cc_turbo[13]);
1551          goto T582;          goto T618;
1552          goto T589;          goto T625;
1553  T589:;  T625:;
1554          goto T576;          goto T612;
1555          goto T582;          goto T618;
1556  T582:;  T618:;
         {long V187;  
         long V188;  
1557          {long V189;          {long V189;
1558          V189= fix(((V183))->v.v_self[V178]);          long V190;
1559          if(!((V189)==0)){          {long V191;
1560          goto T597;}          V191= fix(((V185))->v.v_self[V180]);
1561          goto T576;          if(!((V191)==0)){
1562          goto T597;          goto T633;}
1563  T597:;          goto T612;
1564          V187= (long)((V180) & (V189));}          goto T633;
1565          V188= V187;  T633:;
1566          goto T602;          V189= (long)((V182) & (V191));}
1567  T602:;          V190= V189;
1568          if(!(((V183))==(((V179))->v.v_self[V188]))){          goto T638;
1569          goto T604;}  T638:;
1570          goto T594;          if(!(((V185))==(((V181))->v.v_self[V190]))){
1571          goto T604;          goto T640;}
1572  T604:;          goto T630;
1573          V188= (long)(V188)+(1);          goto T640;
1574          if(!((V188)==(V181))){  T640:;
1575          goto T609;}          V190= (long)(V190)+(1);
1576          V188= 0;          if(!((V190)==(V183))){
1577          goto T609;          goto T645;}
1578  T609:;          V190= 0;
1579          if(!((V188)==(V187))){          goto T645;
1580          goto T603;}  T645:;
1581          {register object V190;          if(!((V190)==(V189))){
1582          object V191;          goto T639;}
1583          V190= (V182);          {register object V192;
1584          V191= CMPcar((V190));          object V193;
1585          goto T619;          V192= (V184);
1586  T619:;          V193= CMPcar((V192));
1587          if(!(((V190))==Cnil)){          goto T655;
1588          goto T620;}  T655:;
1589          goto T615;          if(!(((V192))==Cnil)){
1590          goto T620;          goto T656;}
1591  T620:;          goto T651;
1592          if(!((CMPcar((V191)))==((V183)))){          goto T656;
1593          goto T624;}  T656:;
1594          goto T594;          if(!((CMPcar((V193)))==((V185)))){
1595          goto T624;          goto T660;}
1596  T624:;          goto T630;
1597          V190= CMPcdr((V190));          goto T660;
1598          V191= CMPcar((V190));  T660:;
1599          goto T619;}          V192= CMPcdr((V192));
1600          goto T615;          V193= CMPcar((V192));
1601  T615:;          goto T655;}
1602          goto T576;          goto T651;
1603          goto T603;  T651:;
1604  T603:;          goto T612;
1605          goto T602;}          goto T639;
1606          goto T594;  T639:;
1607  T594:;          goto T638;}
1608          {object V192;          goto T630;
1609          V192= CMPcdr((base0[1]->c.c_car));  T630:;
1610          if(!(((V192))==((VV[4]->s.s_dbind)))){          {object V194;
1611          goto T635;}          V194= CMPcdr((base0[1]->c.c_car));
1612          base[1]= (V177);          if(!(((V194))==((VV[4]->s.s_dbind)))){
1613            goto T671;}
1614            base[1]= (V179);
1615          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1616          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1617                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1618                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1619                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1620          return;          return;
1621          goto T635;          goto T671;
1622  T635:;  T671:;
1623          base[1]= (V192);          base[1]= (V194);
1624          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1625          return;}}          return;}}
1626          goto T576;          goto T612;
1627  T576:;  T612:;
1628          base[1]= (V177);          base[1]= (V179);
1629          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1630          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1631                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1620  register object *base0; Line 1660  register object *base0;
1660  {       register object *base=vs_base;  {       register object *base=vs_base;
1661          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1662          vs_check;          vs_check;
1663          {object V193;          {object V195;
1664          check_arg(1);          check_arg(1);
1665          V193=(base[0]);          V195=(base[0]);
1666          vs_top=sup;          vs_top=sup;
1667          {object V194;          {object V196;
         object V195;  
         V194= Cnil;  
         V195= Cnil;  
         {long V196;  
1668          object V197;          object V197;
1669          long V198;          V196= Cnil;
1670          long V199;          V197= Cnil;
1671          object V200;          {long V198;
1672          object V201;          object V199;
1673          V196= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          long V200;
1674          V197= STREF(object,(base0[1]->c.c_car),40);          long V201;
1675          V198= (long)STREF(fixnum,(base0[1]->c.c_car),24);          object V202;
1676          V199= (long)STREF(fixnum,(base0[1]->c.c_car),28);          object V203;
1677          V200= STREF(object,(base0[1]->c.c_car),44);          V198= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1678          if(type_of(V193)==t_structure){          V199= STREF(object,(base0[1]->c.c_car),40);
1679          goto T651;}          V200= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1680          goto T649;          V201= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1681          goto T651;          V202= STREF(object,(base0[1]->c.c_car),44);
1682  T651:;          if(type_of(V195)==t_structure){
1683          if(!(((V193)->str.str_def)==(VV[16]))){          goto T687;}
1684          goto T649;}          goto T685;
1685          V194= STREF(object,(V193),4);          goto T687;
1686          V201= STREF(object,(V193),0);  T687:;
1687          goto T647;          if(!(((V195)->str.str_def)==(VV[28]))){
1688          goto T649;          goto T685;}
1689  T649:;{object V203;          V196= STREF(object,(V195),4);
1690          V203= (VV[3]->s.s_dbind);          V203= STREF(object,(V195),0);
1691            goto T683;
1692            goto T685;
1693    T685:;{object V205;
1694            V205= (VV[3]->s.s_dbind);
1695          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1696          base[2]= (V193);          base[2]= (V195);
1697          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1698          (void) (*Lnk55)();          (void) (*Lnk70)();
1699          vs_top=sup;          vs_top=sup;
1700          V204= vs_base[0];          V206= vs_base[0];
1701          if(!((V203)==(CMPcar(V204)))){          if(!((V205)==(CMPcar(V206)))){
1702          goto T656;}}          goto T692;}}
1703          V194= CMPcar(((V193))->cc.cc_turbo[12]);          V196= CMPcar(((V195))->cc.cc_turbo[12]);
1704          V201= CMPcar(((V193))->cc.cc_turbo[13]);          V203= CMPcar(((V195))->cc.cc_turbo[13]);
1705          goto T647;          goto T683;
1706          goto T656;          goto T692;
1707  T656:;  T692:;
1708          goto T641;          goto T677;
1709          goto T647;          goto T683;
1710  T647:;  T683:;
         {long V205;  
         long V206;  
1711          {long V207;          {long V207;
1712          V207= fix(((V201))->v.v_self[V196]);          long V208;
         if(!((V207)==0)){  
         goto T666;}  
         goto T641;  
         goto T666;  
 T666:;  
         V205= (long)((V198) & (V207));}  
         {object V208;  
         V208= ((V197))->v.v_self[0];  
         if(type_of((V208))==t_fixnum){  
         goto T671;}  
         base[1]= VV[15];  
         vs_top=(vs_base=base+1)+1;  
         Lerror();  
         vs_top=sup;  
         goto T671;  
 T671:;  
         V206= fix((V208));}  
1713          {long V209;          {long V209;
1714          V209= V205;          V209= fix(((V203))->v.v_self[V198]);
1715          goto T678;          if(!((V209)==0)){
 T678:;  
         if(!(((V201))==(((V197))->v.v_self[V209]))){  
         goto T680;}  
         V195= ((V197))->v.v_self[(long)(V209)+1];  
         goto T676;  
         goto T680;  
 T680:;  
         V209= (long)(V209)+(2);  
         if(!((V209)==(V199))){  
         goto T687;}  
         V209= 0;  
         goto T687;  
 T687:;  
         if(!((V209)==(V205))){  
         goto T679;}  
         {register object V210;  
         object V211;  
         V210= (V200);  
         V211= CMPcar((V210));  
         goto T697;  
 T697:;  
         if(!(((V210))==Cnil)){  
         goto T698;}  
         goto T693;  
         goto T698;  
 T698:;  
         if(!((CMPcar((V211)))==((V201)))){  
1716          goto T702;}          goto T702;}
1717          V195= CMPcdr((V211));          goto T677;
         goto T676;  
1718          goto T702;          goto T702;
1719  T702:;  T702:;
1720          V210= CMPcdr((V210));          V207= (long)((V200) & (V209));}
1721          V211= CMPcar((V210));          {object V210;
1722          goto T697;}          V210= ((V199))->v.v_self[0];
1723          goto T693;          if(type_of((V210))==t_fixnum){
1724  T693:;          goto T707;}
1725          goto T641;          base[1]= VV[27];
         goto T679;  
 T679:;  
         goto T678;  
         goto T676;  
 T676:;  
         V212 = V206;  
         {object V214;  
         V214= ((V197))->v.v_self[0];  
         if(type_of((V214))==t_fixnum){  
         goto T717;}  
         base[1]= VV[15];  
1726          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1727          Lerror();          Lerror();
1728          vs_top=sup;          vs_top=sup;
1729          goto T717;          goto T707;
1730  T717:;  T707:;
1731          V213= fix((V214));}          V208= fix((V210));}
1732          if((V212)==(V213)){          {long V211;
1733          goto T663;}          V211= V207;
1734          goto T641;}}          goto T714;
1735          goto T663;  T714:;
1736  T663:;          if(!(((V203))==(((V199))->v.v_self[V211]))){
1737          {object V215;          goto T716;}
1738          V215= ((V194))->v.v_self[fix((V195))];          V197= ((V199))->v.v_self[(long)(V211)+1];
1739          if(!(((V215))==((VV[4]->s.s_dbind)))){          goto T712;
1740            goto T716;
1741    T716:;
1742            V211= (long)(V211)+(2);
1743            if(!((V211)==(V201))){
1744          goto T723;}          goto T723;}
1745          base[1]= (V193);          V211= 0;
1746            goto T723;
1747    T723:;
1748            if(!((V211)==(V207))){
1749            goto T715;}
1750            {register object V212;
1751            object V213;
1752            V212= (V202);
1753            V213= CMPcar((V212));
1754            goto T733;
1755    T733:;
1756            if(!(((V212))==Cnil)){
1757            goto T734;}
1758            goto T729;
1759            goto T734;
1760    T734:;
1761            if(!((CMPcar((V213)))==((V203)))){
1762            goto T738;}
1763            V197= CMPcdr((V213));
1764            goto T712;
1765            goto T738;
1766    T738:;
1767            V212= CMPcdr((V212));
1768            V213= CMPcar((V212));
1769            goto T733;}
1770            goto T729;
1771    T729:;
1772            goto T677;
1773            goto T715;
1774    T715:;
1775            goto T714;
1776            goto T712;
1777    T712:;
1778            {object V215;
1779            V215= ((V199))->v.v_self[0];
1780            if(type_of((V215))==t_fixnum){
1781            goto T753;}
1782            base[1]= VV[27];
1783            vs_top=(vs_base=base+1)+1;
1784            Lerror();
1785            vs_top=sup;
1786            goto T753;
1787    T753:;
1788            V214= fix((V215));}
1789            if((V208)==(V214)){
1790            goto T699;}
1791            goto T677;}}
1792            goto T699;
1793    T699:;
1794            {object V216;
1795            V216= ((V196))->v.v_self[fix((V197))];
1796            if(!(((V216))==((VV[4]->s.s_dbind)))){
1797            goto T759;}
1798            base[1]= (V195);
1799          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1800          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1801                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1802                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1803                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1804          return;          return;
1805          goto T723;          goto T759;
1806  T723:;  T759:;
1807          base[1]= (V215);          base[1]= (V216);
1808          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1809          return;}}          return;}}
1810          goto T641;          goto T677;
1811  T641:;  T677:;
1812          base[1]= (V193);          base[1]= (V195);
1813          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1814          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1815                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1805  register object *base0; Line 1844  register object *base0;
1844  {       register object *base=vs_base;  {       register object *base=vs_base;
1845          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1846          vs_check;          vs_check;
1847          {object V216;          {object V217;
1848          check_arg(1);          check_arg(1);
1849          V216=(base[0]);          V217=(base[0]);
1850          vs_top=sup;          vs_top=sup;
1851          {object V217;          {object V218;
1852          V217= Cnil;          V218= Cnil;
1853          {long V218;          {long V219;
1854          object V219;          object V220;
         long V220;  
1855          long V221;          long V221;
1856          object V222;          long V222;
1857          object V223;          object V223;
1858          V218= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          object V224;
1859          V219= STREF(object,(base0[1]->c.c_car),40);          V219= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1860          V220= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V220= STREF(object,(base0[1]->c.c_car),40);
1861          V221= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V221= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1862          V222= STREF(object,(base0[1]->c.c_car),44);          V222= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1863          if(type_of(V216)==t_structure){          V223= STREF(object,(base0[1]->c.c_car),44);
1864          goto T739;}          if(type_of(V217)==t_structure){
1865          goto T737;          goto T775;}
1866          goto T739;          goto T773;
1867  T739:;          goto T775;
1868          if(!(((V216)->str.str_def)==(VV[14]))){  T775:;
1869          goto T737;}          if(!(((V217)->str.str_def)==(VV[26]))){
1870          V223= STREF(object,(V216),0);          goto T773;}
1871          goto T735;          V224= STREF(object,(V217),0);
1872          goto T737;          goto T771;
1873  T737:;{object V225;          goto T773;
1874          V225= (VV[3]->s.s_dbind);  T773:;{object V226;
1875            V226= (VV[3]->s.s_dbind);
1876          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1877          base[2]= (V216);          base[2]= (V217);
1878          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1879          (void) (*Lnk55)();          (void) (*Lnk70)();
         vs_top=sup;  
         V226= vs_base[0];  
         if(!((V225)==(CMPcar(V226)))){  
         goto T742;}}  
         V223= CMPcar(((V216))->cc.cc_turbo[13]);  
         goto T735;  
         goto T742;  
 T742:;  
         goto T729;  
         goto T735;  
 T735:;  
         {long V227;  
         long V228;  
         {long V229;  
         V229= fix(((V223))->v.v_self[V218]);  
         if(!((V229)==0)){  
         goto T750;}  
         goto T729;  
         goto T750;  
 T750:;  
         V227= (long)((V220) & (V229));}  
         {object V230;  
         V230= ((V219))->v.v_self[0];  
         if(type_of((V230))==t_fixnum){  
         goto T755;}  
         base[1]= VV[15];  
         vs_top=(vs_base=base+1)+1;  
         Lerror();  
1880          vs_top=sup;          vs_top=sup;
1881          goto T755;          V227= vs_base[0];
1882  T755:;          if(!((V226)==(CMPcar(V227)))){
1883          V228= fix((V230));}          goto T778;}}
1884          {long V231;          V224= CMPcar(((V217))->cc.cc_turbo[13]);
1885          V231= V227;          goto T771;
1886          goto T762;          goto T778;
1887  T762:;  T778:;
1888          if(!(((V223))==(((V219))->v.v_self[V231]))){          goto T765;
         goto T764;}  
         V217= ((V219))->v.v_self[(long)(V231)+1];  
         goto T760;  
         goto T764;  
 T764:;  
         V231= (long)(V231)+(2);  
         if(!((V231)==(V221))){  
         goto T771;}  
         V231= 0;  
1889          goto T771;          goto T771;
1890  T771:;  T771:;
1891          if(!((V231)==(V227))){          {long V228;
1892          goto T763;}          long V229;
1893          {register object V232;          {long V230;
1894          object V233;          V230= fix(((V224))->v.v_self[V219]);
1895          V232= (V222);          if(!((V230)==0)){
         V233= CMPcar((V232));  
         goto T781;  
 T781:;  
         if(!(((V232))==Cnil)){  
         goto T782;}  
         goto T777;  
         goto T782;  
 T782:;  
         if(!((CMPcar((V233)))==((V223)))){  
1896          goto T786;}          goto T786;}
1897          V217= CMPcdr((V233));          goto T765;
         goto T760;  
1898          goto T786;          goto T786;
1899  T786:;  T786:;
1900          V232= CMPcdr((V232));          V228= (long)((V221) & (V230));}
1901          V233= CMPcar((V232));          {object V231;
1902          goto T781;}          V231= ((V220))->v.v_self[0];
1903          goto T777;          if(type_of((V231))==t_fixnum){
1904  T777:;          goto T791;}
1905          goto T729;          base[1]= VV[27];
1906          goto T763;          vs_top=(vs_base=base+1)+1;
1907  T763:;          Lerror();
1908          goto T762;          vs_top=sup;
1909          goto T760;          goto T791;
1910  T760:;  T791:;
1911          V234 = V228;          V229= fix((V231));}
1912            {long V232;
1913            V232= V228;
1914            goto T798;
1915    T798:;
1916            if(!(((V224))==(((V220))->v.v_self[V232]))){
1917            goto T800;}
1918            V218= ((V220))->v.v_self[(long)(V232)+1];
1919            goto T796;
1920            goto T800;
1921    T800:;
1922            V232= (long)(V232)+(2);
1923            if(!((V232)==(V222))){
1924            goto T807;}
1925            V232= 0;
1926            goto T807;
1927    T807:;
1928            if(!((V232)==(V228))){
1929            goto T799;}
1930            {register object V233;
1931            object V234;
1932            V233= (V223);
1933            V234= CMPcar((V233));
1934            goto T817;
1935    T817:;
1936            if(!(((V233))==Cnil)){
1937            goto T818;}
1938            goto T813;
1939            goto T818;
1940    T818:;
1941            if(!((CMPcar((V234)))==((V224)))){
1942            goto T822;}
1943            V218= CMPcdr((V234));
1944            goto T796;
1945            goto T822;
1946    T822:;
1947            V233= CMPcdr((V233));
1948            V234= CMPcar((V233));
1949            goto T817;}
1950            goto T813;
1951    T813:;
1952            goto T765;
1953            goto T799;
1954    T799:;
1955            goto T798;
1956            goto T796;
1957    T796:;
1958          {object V236;          {object V236;
1959          V236= ((V219))->v.v_self[0];          V236= ((V220))->v.v_self[0];
1960          if(type_of((V236))==t_fixnum){          if(type_of((V236))==t_fixnum){
1961          goto T801;}          goto T837;}
1962          base[1]= VV[15];          base[1]= VV[27];
1963          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1964          Lerror();          Lerror();
1965          vs_top=sup;          vs_top=sup;
1966          goto T801;          goto T837;
1967  T801:;  T837:;
1968          V235= fix((V236));}          V235= fix((V236));}
1969          if((V234)==(V235)){          if((V229)==(V235)){
1970          goto T747;}          goto T783;}
1971          goto T729;}}          goto T765;}}
1972          goto T747;          goto T783;
1973  T747:;  T783:;
1974          {object V237;          {object V237;
1975          V237= CMPcdr((V217));          V237= CMPcdr((V218));
1976          if(!(((V237))==((VV[4]->s.s_dbind)))){          if(!(((V237))==((VV[4]->s.s_dbind)))){
1977          goto T807;}          goto T843;}
1978          base[1]= (V216);          base[1]= (V217);
1979          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1980          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1981                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1982                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1983                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1984          return;          return;
1985          goto T807;          goto T843;
1986  T807:;  T843:;
1987          base[1]= (V237);          base[1]= (V237);
1988          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1989          return;}}          return;}}
1990          goto T729;          goto T765;
1991  T729:;  T765:;
1992          base[1]= (V216);          base[1]= (V217);
1993          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1994          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1995                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1998  register object *base0; Line 2036  register object *base0;
2036          object V241;          object V241;
2037          V240= Cnil;          V240= Cnil;
2038          if(type_of(V239)==t_structure){          if(type_of(V239)==t_structure){
2039          goto T817;}          goto T853;}
2040          goto T815;          goto T851;
2041          goto T817;          goto T853;
2042  T817:;  T853:;
2043          if(!(((V239)->str.str_def)==(VV[12]))){          if(!(((V239)->str.str_def)==(VV[20]))){
2044          goto T815;}          goto T851;}
2045          V240= STREF(object,(V239),4);          V240= STREF(object,(V239),4);
2046          V241= STREF(object,(V239),0);          V241= STREF(object,(V239),0);
2047          goto T813;          goto T849;
2048          goto T815;          goto T851;
2049  T815:;{object V243;  T851:;{object V243;
2050          V243= (VV[3]->s.s_dbind);          V243= (VV[3]->s.s_dbind);
2051          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2052          base[4]= (V239);          base[4]= (V239);
2053          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2054          (void) (*Lnk55)();          (void) (*Lnk70)();
2055          vs_top=sup;          vs_top=sup;
2056          V244= vs_base[0];          V244= vs_base[0];
2057          if(!((V243)==(CMPcar(V244)))){          if(!((V243)==(CMPcar(V244)))){
2058          goto T822;}}          goto T858;}}
2059          V240= CMPcar(((V239))->cc.cc_turbo[12]);          V240= CMPcar(((V239))->cc.cc_turbo[12]);
2060          V241= CMPcar(((V239))->cc.cc_turbo[13]);          V241= CMPcar(((V239))->cc.cc_turbo[13]);
2061          goto T813;          goto T849;
2062          goto T822;          goto T858;
2063  T822:;  T858:;
2064          V241= Cnil;          V241= Cnil;
2065          goto T813;          goto T849;
2066  T813:;  T849:;
2067          if(((V241))==Cnil){          if(((V241))==Cnil){
2068          goto T829;}          goto T865;}
2069          if((fix(((V241))->v.v_self[0]))==0){          if((fix(((V241))->v.v_self[0]))==0){
2070          goto T829;}          goto T865;}
2071          if(((V241))==((base0[3]->c.c_car))){          if(((V241))==((base0[3]->c.c_car))){
2072          goto T830;}          goto T866;}
2073          if(((V241))==((base0[2]->c.c_car))){          if(((V241))==((base0[2]->c.c_car))){
2074          goto T830;}          goto T866;}
2075          goto T829;          goto T865;
2076  T829:;  T865:;
2077          base[3]= (V238);          base[3]= (V238);
2078          base[4]= (V239);          base[4]= (V239);
2079          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2044  T829:; Line 2082  T829:;
2082                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2083                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2084          return;          return;
2085          goto T830;          goto T866;
2086  T830:;  T866:;
2087          base[3]= ((V240))->v.v_self[fix((base0[1]->c.c_car))]= ((V238));          base[3]= ((V240))->v.v_self[fix((base0[1]->c.c_car))]= ((V238));
2088          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2089          return;}          return;}
# Line 2084  register object *base0; Line 2122  register object *base0;
2122          vs_top=sup;          vs_top=sup;
2123          {object V247;          {object V247;
2124          if(type_of(V246)==t_structure){          if(type_of(V246)==t_structure){
2125          goto T844;}          goto T880;}
2126          goto T842;          goto T878;
2127          goto T844;          goto T880;
2128  T844:;  T880:;
2129          if(!(((V246)->str.str_def)==(VV[11]))){          if(!(((V246)->str.str_def)==(VV[19]))){
2130          goto T842;}          goto T878;}
2131          V247= STREF(object,(V246),0);          V247= STREF(object,(V246),0);
2132          goto T840;          goto T876;
2133          goto T842;          goto T878;
2134  T842:;{object V249;  T878:;{object V249;
2135          V249= (VV[3]->s.s_dbind);          V249= (VV[3]->s.s_dbind);
2136          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2137          base[4]= (V246);          base[4]= (V246);
2138          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2139          (void) (*Lnk55)();          (void) (*Lnk70)();
2140          vs_top=sup;          vs_top=sup;
2141          V250= vs_base[0];          V250= vs_base[0];
2142          if(!((V249)==(CMPcar(V250)))){          if(!((V249)==(CMPcar(V250)))){
2143          goto T847;}}          goto T883;}}
2144          V247= CMPcar(((V246))->cc.cc_turbo[13]);          V247= CMPcar(((V246))->cc.cc_turbo[13]);
2145          goto T840;          goto T876;
2146          goto T847;          goto T883;
2147  T847:;  T883:;
2148          V247= Cnil;          V247= Cnil;
2149          goto T840;          goto T876;
2150  T840:;  T876:;
2151          if(((V247))==Cnil){          if(((V247))==Cnil){
2152          goto T852;}          goto T888;}
2153          if((fix(((V247))->v.v_self[0]))==0){          if((fix(((V247))->v.v_self[0]))==0){
2154          goto T852;}          goto T888;}
2155          if(((V247))==((base0[3]->c.c_car))){          if(((V247))==((base0[3]->c.c_car))){
2156          goto T853;}          goto T889;}
2157          if(((V247))==((base0[2]->c.c_car))){          if(((V247))==((base0[2]->c.c_car))){
2158          goto T853;}          goto T889;}
2159          goto T852;          goto T888;
2160  T852:;  T888:;
2161          base[3]= (V245);          base[3]= (V245);
2162          base[4]= (V246);          base[4]= (V246);
2163          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2128  T852:; Line 2166  T852:;
2166                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2167                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2168          return;          return;
2169          goto T853;          goto T889;
2170  T853:;  T889:;
2171          {object V251;          {object V251;
2172          V251= (base0[1]->c.c_car);          V251= (base0[1]->c.c_car);
2173          ((V251))->c.c_cdr = V245;          ((V251))->c.c_cdr = V245;
# Line 2172  register object *base0; Line 2210  register object *base0;
2210          object V256;          object V256;
2211          V255= Cnil;          V255= Cnil;
2212          if(type_of(V254)==t_structure){          if(type_of(V254)==t_structure){
2213          goto T870;}          goto T906;}
2214          goto T868;          goto T904;
2215          goto T870;          goto T906;
2216  T870:;  T906:;
2217          if(!(((V254)->str.str_def)==(VV[10]))){          if(!(((V254)->str.str_def)==(VV[18]))){
2218          goto T868;}          goto T904;}
2219          V255= STREF(object,(V254),4);          V255= STREF(object,(V254),4);
2220          V256= STREF(object,(V254),0);          V256= STREF(object,(V254),0);
2221          goto T866;          goto T902;
2222          goto T868;          goto T904;
2223  T868:;{object V258;  T904:;{object V258;
2224          V258= (VV[3]->s.s_dbind);          V258= (VV[3]->s.s_dbind);
2225          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2226          base[4]= (V254);          base[4]= (V254);
2227          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2228          (void) (*Lnk55)();          (void) (*Lnk70)();
2229          vs_top=sup;          vs_top=sup;
2230          V259= vs_base[0];          V259= vs_base[0];
2231          if(!((V258)==(CMPcar(V259)))){          if(!((V258)==(CMPcar(V259)))){
2232          goto T875;}}          goto T911;}}
2233          V255= CMPcar(((V254))->cc.cc_turbo[12]);          V255= CMPcar(((V254))->cc.cc_turbo[12]);
2234          V256= CMPcar(((V254))->cc.cc_turbo[13]);          V256= CMPcar(((V254))->cc.cc_turbo[13]);
2235          goto T866;          goto T902;
2236          goto T875;          goto T911;
2237  T875:;  T911:;
2238          V256= Cnil;          V256= Cnil;
2239          goto T866;          goto T902;
2240  T866:;  T902:;
2241          if(((V256))==Cnil){          if(((V256))==Cnil){
2242          goto T882;}          goto T918;}
2243          if((fix(((V256))->v.v_self[0]))==0){          if((fix(((V256))->v.v_self[0]))==0){
2244          goto T882;}          goto T918;}
2245          if(((V256))==((base0[2]->c.c_car))){          if(((V256))==((base0[2]->c.c_car))){
2246          goto T883;}          goto T919;}
2247          goto T882;          goto T918;
2248  T882:;  T918:;
2249          base[3]= (V253);          base[3]= (V253);
2250          base[4]= (V254);          base[4]= (V254);
2251          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2216  T882:; Line 2254  T882:;
2254                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2255                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2256          return;          return;
2257          goto T883;          goto T919;
2258  T883:;  T919:;
2259          base[3]= ((V255))->v.v_self[fix((base0[1]->c.c_car))]= ((V253));          base[3]= ((V255))->v.v_self[fix((base0[1]->c.c_car))]= ((V253));
2260          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2261          return;}          return;}
# Line 2255  register object *base0; Line 2293  register object *base0;
2293          vs_top=sup;          vs_top=sup;
2294          {object V262;          {object V262;
2295          if(type_of(V261)==t_structure){          if(type_of(V261)==t_structure){
2296          goto T895;}          goto T931;}
2297          goto T893;          goto T929;
2298          goto T895;          goto T931;
2299  T895:;  T931:;
2300          if(!(((V261)->str.str_def)==(VV[9]))){          if(!(((V261)->str.str_def)==(VV[17]))){
2301          goto T893;}          goto T929;}
2302          V262= STREF(object,(V261),0);          V262= STREF(object,(V261),0);
2303          goto T891;          goto T927;
2304          goto T893;          goto T929;
2305  T893:;{object V264;  T929:;{object V264;
2306          V264= (VV[3]->s.s_dbind);          V264= (VV[3]->s.s_dbind);
2307          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2308          base[4]= (V261);          base[4]= (V261);
2309          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2310          (void) (*Lnk55)();          (void) (*Lnk70)();
2311          vs_top=sup;          vs_top=sup;
2312          V265= vs_base[0];          V265= vs_base[0];
2313          if(!((V264)==(CMPcar(V265)))){          if(!((V264)==(CMPcar(V265)))){
2314          goto T898;}}          goto T934;}}
2315          V262= CMPcar(((V261))->cc.cc_turbo[13]);          V262= CMPcar(((V261))->cc.cc_turbo[13]);
2316          goto T891;          goto T927;
2317          goto T898;          goto T934;
2318  T898:;  T934:;
2319          V262= Cnil;          V262= Cnil;
2320          goto T891;          goto T927;
2321  T891:;  T927:;
2322          if(((V262))==Cnil){          if(((V262))==Cnil){
2323          goto T903;}          goto T939;}
2324          if((fix(((V262))->v.v_self[0]))==0){          if((fix(((V262))->v.v_self[0]))==0){
2325          goto T903;}          goto T939;}
2326          if(((V262))==((base0[2]->c.c_car))){          if(((V262))==((base0[2]->c.c_car))){
2327          goto T904;}          goto T940;}
2328          goto T903;          goto T939;
2329  T903:;  T939:;
2330          base[3]= (V260);          base[3]= (V260);
2331          base[4]= (V261);          base[4]= (V261);
2332          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2297  T903:; Line 2335  T903:;
2335                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2336                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2337          return;          return;
2338          goto T904;          goto T940;
2339  T904:;  T940:;
2340          {object V266;          {object V266;
2341          V266= (base0[1]->c.c_car);          V266= (base0[1]->c.c_car);
2342          ((V266))->c.c_cdr = V260;          ((V266))->c.c_cdr = V260;
# Line 2341  register object *base0; Line 2379  register object *base0;
2379          object V271;          object V271;
2380          V269= Cnil;          V269= Cnil;
2381          if(type_of(V268)==t_structure){          if(type_of(V268)==t_structure){
2382          goto T919;}          goto T955;}
2383          goto T917;          goto T953;
2384          goto T919;          goto T955;
2385  T919:;  T955:;
2386          if(!(((V268)->str.str_def)==(VV[8]))){          if(!(((V268)->str.str_def)==(VV[8]))){
2387          goto T917;}          goto T953;}
2388          V269= STREF(object,(V268),4);          V269= STREF(object,(V268),4);
2389          V270= STREF(object,(V268),0);          V270= STREF(object,(V268),0);
2390          goto T915;          goto T951;
2391          goto T917;          goto T953;
2392  T917:;{object V273;  T953:;{object V273;
2393          V273= (VV[3]->s.s_dbind);          V273= (VV[3]->s.s_dbind);
2394          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2395          base[3]= (V268);          base[3]= (V268);
2396          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2397          (void) (*Lnk55)();          (void) (*Lnk70)();
2398          vs_top=sup;          vs_top=sup;
2399          V274= vs_base[0];          V274= vs_base[0];
2400          if(!((V273)==(CMPcar(V274)))){          if(!((V273)==(CMPcar(V274)))){
2401          goto T924;}}          goto T960;}}
2402          V269= CMPcar(((V268))->cc.cc_turbo[12]);          V269= CMPcar(((V268))->cc.cc_turbo[12]);
2403          V270= CMPcar(((V268))->cc.cc_turbo[13]);          V270= CMPcar(((V268))->cc.cc_turbo[13]);
2404          goto T915;          goto T951;
2405          goto T924;          goto T960;
2406  T924:;  T960:;
2407          V270= Cnil;          V270= Cnil;
2408          goto T915;          goto T951;
2409  T915:;  T951:;
2410          V271= Cnil;          V271= Cnil;
2411          if(((V270))==Cnil){          if(((V270))==Cnil){
2412          goto T932;}          goto T968;}
2413          if((fix(((V270))->v.v_self[0]))==0){          if((fix(((V270))->v.v_self[0]))==0){
2414          goto T932;}          goto T968;}
2415          if(((V270))==((base0[3]->c.c_car))){          if(((V270))==((base0[3]->c.c_car))){
2416          goto T938;}          goto T974;}
2417          if(!(((V270))==((base0[2]->c.c_car)))){          if(!(((V270))==((base0[2]->c.c_car)))){
2418          goto T932;}          goto T968;}
2419          goto T938;          goto T974;
2420  T938:;{object V275;  T974:;{object V275;
2421          V275= (VV[4]->s.s_dbind);          V275= (VV[4]->s.s_dbind);
2422          V271= ((V269))->v.v_self[fix((base0[1]->c.c_car))];          V271= ((V269))->v.v_self[fix((base0[1]->c.c_car))];
2423          V276 = (V271);          if(!((V275)==((V271)))){
2424          if(!((V275)==(V276))){          goto T969;}}
2425          goto T933;}}          goto T968;
2426          goto T932;  T968:;
 T932:;  
2427          base[2]= (V268);          base[2]= (V268);
2428          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2429          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2394  T932:; Line 2431  T932:;
2431                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2432                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2433          return;          return;
2434          goto T933;          goto T969;
2435  T933:;  T969:;
2436          base[2]= (V271);          base[2]= (V271);
2437          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2438          return;}          return;}
# Line 2426  register object *base0; Line 2463  register object *base0;
2463  {       register object *base=vs_base;  {       register object *base=vs_base;
2464          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2465          vs_check;          vs_check;
2466          {register object V277;          {register object V276;
2467          check_arg(1);          check_arg(1);
2468          V277=(base[0]);          V276=(base[0]);
2469          vs_top=sup;          vs_top=sup;
2470          {object V278;          {object V277;
2471          object V279;          object V278;
2472          if(type_of(V277)==t_structure){          if(type_of(V276)==t_structure){
2473          goto T949;}          goto T985;}
2474          goto T947;          goto T983;
2475          goto T949;          goto T985;
2476  T949:;  T985:;
2477          if(!(((V277)->str.str_def)==(VV[7]))){          if(!(((V276)->str.str_def)==(VV[7]))){
2478          goto T947;}          goto T983;}
2479          V278= STREF(object,(V277),0);          V277= STREF(object,(V276),0);
2480          goto T945;          goto T981;
2481          goto T947;          goto T983;
2482  T947:;{object V281;  T983:;{object V280;
2483          V281= (VV[3]->s.s_dbind);          V280= (VV[3]->s.s_dbind);
2484          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2485          base[3]= (V277);          base[3]= (V276);
2486          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2487          (void) (*Lnk55)();          (void) (*Lnk70)();
2488          vs_top=sup;          vs_top=sup;
2489          V282= vs_base[0];          V281= vs_base[0];
2490          if(!((V281)==(CMPcar(V282)))){          if(!((V280)==(CMPcar(V281)))){
2491          goto T952;}}          goto T988;}}
2492          V278= CMPcar(((V277))->cc.cc_turbo[13]);          V277= CMPcar(((V276))->cc.cc_turbo[13]);
2493          goto T945;          goto T981;
2494          goto T952;          goto T988;
2495  T952:;  T988:;
2496            V277= Cnil;
2497            goto T981;
2498    T981:;
2499          V278= Cnil;          V278= Cnil;
2500          goto T945;          if(((V277))==Cnil){
2501  T945:;          goto T994;}
2502          V279= Cnil;          if((fix(((V277))->v.v_self[0]))==0){
2503          if(((V278))==Cnil){          goto T994;}
2504          goto T958;}          if(((V277))==((base0[3]->c.c_car))){
2505          if((fix(((V278))->v.v_self[0]))==0){          goto T1000;}
2506          goto T958;}          if(!(((V277))==((base0[2]->c.c_car)))){
2507          if(((V278))==((base0[3]->c.c_car))){          goto T994;}
2508          goto T964;}          goto T1000;
2509          if(!(((V278))==((base0[2]->c.c_car)))){  T1000:;{object V282;
2510          goto T958;}          V282= (VV[4]->s.s_dbind);
2511          goto T964;          V278= CMPcdr((base0[1]->c.c_car));
2512  T964:;{object V283;          if(!((V282)==((V278)))){
2513          V283= (VV[4]->s.s_dbind);          goto T995;}}
2514          V279= CMPcdr((base0[1]->c.c_car));          goto T994;
2515          V284 = (V279);  T994:;
2516          if(!((V283)==(V284))){          base[2]= (V276);
         goto T959;}}  
         goto T958;  
 T958:;  
         base[2]= (V277);  
2517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2518          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2519                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2520                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2521                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2522          return;          return;
2523          goto T959;          goto T995;
2524  T959:;  T995:;
2525          base[2]= (V279);          base[2]= (V278);
2526          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2527          return;}          return;}
2528          }          }
# Line 2515  register object *base0; Line 2551  register object *base0;
2551  {       register object *base=vs_base;  {       register object *base=vs_base;
2552          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2553          vs_check;          vs_check;
2554          {register object V285;          {register object V283;
2555          check_arg(1);          check_arg(1);
2556          V285=(base[0]);          V283=(base[0]);
2557          vs_top=sup;          vs_top=sup;
2558          {object V286;          {object V284;
2559          object V287;          object V285;
2560          object V288;          object V286;
2561          V286= Cnil;          V284= Cnil;
2562          if(type_of(V285)==t_structure){          if(type_of(V283)==t_structure){
2563          goto T976;}          goto T1012;}
2564          goto T974;          goto T1010;
2565          goto T976;          goto T1012;
2566  T976:;  T1012:;
2567          if(!(((V285)->str.str_def)==(VV[5]))){          if(!(((V283)->str.str_def)==(VV[5]))){
2568          goto T974;}          goto T1010;}
2569          V286= STREF(object,(V285),4);          V284= STREF(object,(V283),4);
2570          V287= STREF(object,(V285),0);          V285= STREF(object,(V283),0);
2571          goto T972;          goto T1008;
2572          goto T974;          goto T1010;
2573  T974:;{object V290;  T1010:;{object V288;
2574          V290= (VV[3]->s.s_dbind);          V288= (VV[3]->s.s_dbind);
2575          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2576          base[3]= (V285);          base[3]= (V283);
2577          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2578          (void) (*Lnk55)();          (void) (*Lnk70)();
2579          vs_top=sup;          vs_top=sup;
2580          V291= vs_base[0];          V289= vs_base[0];
2581          if(!((V290)==(CMPcar(V291)))){          if(!((V288)==(CMPcar(V289)))){
2582          goto T981;}}          goto T1017;}}
2583          V286= CMPcar(((V285))->cc.cc_turbo[12]);          V284= CMPcar(((V283))->cc.cc_turbo[12]);
2584          V287= CMPcar(((V285))->cc.cc_turbo[13]);          V285= CMPcar(((V283))->cc.cc_turbo[13]);
2585          goto T972;          goto T1008;
2586          goto T981;          goto T1017;
2587  T981:;  T1017:;
2588          V287= Cnil;          V285= Cnil;
2589          goto T972;          goto T1008;
2590  T972:;  T1008:;
2591          V288= Cnil;          V286= Cnil;
2592          if(((V287))==Cnil){          if(((V285))==Cnil){
2593          goto T989;}          goto T1025;}
2594          if((fix(((V287))->v.v_self[0]))==0){          if((fix(((V285))->v.v_self[0]))==0){
2595          goto T989;}          goto T1025;}
2596          if(!(((V287))==((base0[2]->c.c_car)))){          if(!(((V285))==((base0[2]->c.c_car)))){
2597          goto T989;}{object V292;          goto T1025;}{object V290;
2598          V292= (VV[4]->s.s_dbind);          V290= (VV[4]->s.s_dbind);
2599          V288= ((V286))->v.v_self[fix((base0[1]->c.c_car))];          V286= ((V284))->v.v_self[fix((base0[1]->c.c_car))];
2600          V293 = (V288);          if(!((V290)==((V286)))){
2601          if(!((V292)==(V293))){          goto T1026;}}
2602          goto T990;}}          goto T1025;
2603          goto T989;  T1025:;
2604  T989:;          base[2]= (V283);
         base[2]= (V285);  
2605          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2606          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2607                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2608                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2609                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2610          return;          return;
2611          goto T990;          goto T1026;
2612  T990:;  T1026:;
2613          base[2]= (V288);          base[2]= (V286);
2614          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2615          return;}          return;}
2616          }          }
# Line 2604  register object *base0; Line 2639  register object *base0;
2639  {       register object *base=vs_base;  {       register object *base=vs_base;
2640          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2641          vs_check;          vs_check;
2642          {register object V294;          {register object V291;
2643          check_arg(1);          check_arg(1);
2644          V294=(base[0]);          V291=(base[0]);
2645          vs_top=sup;          vs_top=sup;
2646          {object V295;          {object V292;
2647          object V296;          object V293;
2648          if(type_of(V294)==t_structure){          if(type_of(V291)==t_structure){
2649          goto T1004;}          goto T1040;}
2650          goto T1002;          goto T1038;
2651          goto T1004;          goto T1040;
2652  T1004:;  T1040:;
2653          if(!(((V294)->str.str_def)==(VV[1]))){          if(!(((V291)->str.str_def)==(VV[1]))){
2654          goto T1002;}          goto T1038;}
2655          V295= STREF(object,(V294),0);          V292= STREF(object,(V291),0);
2656          goto T1000;          goto T1036;
2657          goto T1002;          goto T1038;
2658  T1002:;{object V298;  T1038:;{object V295;
2659          V298= (VV[3]->s.s_dbind);          V295= (VV[3]->s.s_dbind);
2660          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2661          base[3]= (V294);          base[3]= (V291);
2662          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2663          (void) (*Lnk55)();          (void) (*Lnk70)();
2664          vs_top=sup;          vs_top=sup;
2665          V299= vs_base[0];          V296= vs_base[0];
2666          if(!((V298)==(CMPcar(V299)))){          if(!((V295)==(CMPcar(V296)))){
2667          goto T1007;}}          goto T1043;}}
2668          V295= CMPcar(((V294))->cc.cc_turbo[13]);          V292= CMPcar(((V291))->cc.cc_turbo[13]);
2669          goto T1000;          goto T1036;
2670          goto T1007;          goto T1043;
2671  T1007:;  T1043:;
2672          V295= Cnil;          V292= Cnil;
2673          goto T1000;          goto T1036;
2674  T1000:;  T1036:;
2675          V296= Cnil;          V293= Cnil;
2676          if(((V295))==Cnil){          if(((V292))==Cnil){
2677          goto T1013;}          goto T1049;}
2678          if((fix(((V295))->v.v_self[0]))==0){          if((fix(((V292))->v.v_self[0]))==0){
2679          goto T1013;}          goto T1049;}
2680          if(!(((V295))==((base0[2]->c.c_car)))){          if(!(((V292))==((base0[2]->c.c_car)))){
2681          goto T1013;}{object V300;          goto T1049;}{object V297;
2682          V300= (VV[4]->s.s_dbind);          V297= (VV[4]->s.s_dbind);
2683          V296= CMPcdr((base0[1]->c.c_car));          V293= CMPcdr((base0[1]->c.c_car));
2684          V301 = (V296);          if(!((V297)==((V293)))){
2685          if(!((V300)==(V301))){          goto T1050;}}
2686          goto T1014;}}          goto T1049;
2687          goto T1013;  T1049:;
2688  T1013:;          base[2]= (V291);
         base[2]= (V294);  
2689          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2690          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2691                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2692                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2693                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2694          return;          return;
2695          goto T1014;          goto T1050;
2696  T1014:;  T1050:;
2697          base[2]= (V296);          base[2]= (V293);
2698          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2699          return;}          return;}
2700          }          }
2701  }  }
2702  static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
2703  static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* CCLOSURE-ENV-NTHCDR */
2704  static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */
2705  static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
2706  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
2707  static void LnkT51(){ call_or_link(VV[51],(void **)(void *)&Lnk51);} /* INVOKE-EMF */  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* INVOKE-EMF */
2708  static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,4,first,ap);va_end(ap);return V1;} /* EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */  static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */
2709    static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* ERROR */
2710    
2711  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2712  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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