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

Diff of /gcl/pcl/pcl_init.c

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

revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:19 2003 UTC
# Line 20  static void L1() Line 20  static void L1()
20          vs_top=sup;          vs_top=sup;
21          goto TTL;          goto TTL;
22  TTL:;  TTL:;
23          base[4]=VV[21]->s.s_gfdef;          base[4]=VV[24]->s.s_gfdef;
24          base[5]= (VFUN_NARGS=1,(*(LnkLI22))((V3)));          base[5]= (VFUN_NARGS=1,(*(LnkLI25))((V3)));
25          {object V7;          {object V7;
26          V7= V4;          V7= V4;
27           vs_top=base+6;           vs_top=base+6;
28           while(V7!=Cnil)           while(V7!=Cnil)
29           {vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;}           {vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;}
30          vs_base=base+5;}          vs_base=base+5;}
31          (void) (*Lnk21)(Lclptr21);          (void) (*Lnk24)(Lclptr24);
32          return;          return;
33          }          }
34  }  }
# Line 44  TTL:; Line 44  TTL:;
44          V17= V15;          V17= V15;
45          base[0]= (V14);          base[0]= (V14);
46          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
47          (void) (*Lnk23)(Lclptr23);          (void) (*Lnk26)(Lclptr26);
48          vs_top=sup;          vs_top=sup;
49          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
50          goto T10;}          goto T8;}
51          base[0]= (V14);          base[0]= (V14);
52          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
53          (void) (*Lnk24)(Lclptr24);          (void) (*Lnk27)(Lclptr27);
54          vs_top=sup;          vs_top=sup;
55          goto T10;          goto T8;
56  T10:;  T8:;
57          base[0]= (V14);          base[0]= (V14);
58          base[1]= (V17);          base[1]= (V17);
59          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
60          (void) (*Lnk25)(Lclptr25);          (void) (*Lnk28)(Lclptr28);
61          vs_top=sup;          vs_top=sup;
62          V17= vs_base[0];          V17= vs_base[0];
63          {object V18;          {object V18;
# Line 66  T10:; Line 66  T10:;
66          {object V20;          {object V20;
67          V20= STREF(object,(V18),8);          V20= STREF(object,(V18),8);
68          if(!(((V20))==(VV[1]))){          if(!(((V20))==(VV[1]))){
69          goto T24;}          goto T22;}
70          (void)((*(LnkLI26))((V18),VV[2]));          (void)((*(LnkLI29))((V18),VV[2]));
71          V19= STREF(object,(V18),8);          V19= STREF(object,(V18),8);
72          goto T21;          goto T19;
73          goto T24;          goto T22;
74  T24:;  T22:;
75          V19= (V20);}          V19= (V20);}
76          goto T21;          goto T19;
77  T21:;  T19:;
78          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
79          goto T19;}          goto T17;}
80          if(!((CMPcar((V19)))==(VV[3]))){          if(!((CMPcar((V19)))==(VV[3]))){
81          goto T19;}          goto T17;}
82          base[2]= VV[4];          base[2]= VV[4];
83          base[3]= CMPcdr((V19));          base[3]= VV[5];
84          base[5]= (V14);          base[4]= CMPcdr((V19));
85          vs_top=(vs_base=base+5)+1;          base[6]= (V14);
86          (void) (*Lnk27)(Lclptr27);          vs_top=(vs_base=base+6)+1;
87            (void) (*Lnk30)(Lclptr30);
88          vs_top=sup;          vs_top=sup;
89          base[4]= vs_base[0];          base[5]= vs_base[0];
90          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+4;
91          Lerror();          (void) (*Lnk31)();
92          vs_top=sup;}          vs_top=sup;}
93          goto T19;          goto T17;
94  T19:;  T17:;
95          {object V21;          {object V21;
96          base[0]=VV[28]->s.s_gfdef;          base[0]=VV[32]->s.s_gfdef;
97          base[1]= (V14);          base[1]= (V14);
98          {object V22;          {object V22;
99          V22= (V17);          V22= (V17);
# Line 100  T19:; Line 101  T19:;
101           while(V22!=Cnil)           while(V22!=Cnil)
102           {vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;}           {vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;}
103          vs_base=base+1;}          vs_base=base+1;}
104          (void) (*Lnk28)(Lclptr28);          (void) (*Lnk32)(Lclptr32);
105          vs_top=sup;          vs_top=sup;
106          V21= vs_base[0];          V21= vs_base[0];
107          base[0]=VV[29]->s.s_gfdef;          base[0]=VV[33]->s.s_gfdef;
108          base[1]= (V21);          base[1]= (V21);
109          {object V23;          {object V23;
110          V23= (V17);          V23= (V17);
# Line 111  T19:; Line 112  T19:;
112           while(V23!=Cnil)           while(V23!=Cnil)
113           {vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;}           {vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;}
114          vs_base=base+1;}          vs_base=base+1;}
115          (void) (*Lnk29)(Lclptr29);          (void) (*Lnk33)(Lclptr33);
116          vs_top=sup;          vs_top=sup;
117          {object V24 = (V21);          {object V24 = (V21);
118          VMR2(V24)}}}          VMR2(V24)}}}
# Line 141  TTL:; Line 142  TTL:;
142          V32= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));          V32= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));
143          V31= STREF(object,/* INLINE-ARGS */V32,28);          V31= STREF(object,/* INLINE-ARGS */V32,28);
144          if(!(((V31))==(VV[1]))){          if(!(((V31))==(VV[1]))){
145          goto T47;}          goto T45;}
146          V33= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));          V33= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));
147          (void)((*(LnkLI26))(/* INLINE-ARGS */V33,VV[5]));          (void)((*(LnkLI29))(/* INLINE-ARGS */V33,VV[6]));
148          V34= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));          V34= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28)));
149          V30= STREF(object,/* INLINE-ARGS */V34,28);          V30= STREF(object,/* INLINE-ARGS */V34,28);
150          goto T44;          goto T42;
151          goto T47;          goto T45;
152  T47:;  T45:;
153          V30= (V31);}          V30= (V31);}
154          goto T44;          goto T42;
155  T44:;  T42:;
156          if(!(type_of((V30))==t_cons)){          if(!(type_of((V30))==t_cons)){
157          goto T51;}          goto T49;}
158          if(!((CMPcar((V30)))==(VV[6]))){          if(!((CMPcar((V30)))==(VV[7]))){
159          goto T51;}          goto T49;}
160          base[4]= (*(LnkLI30))(CMPcadr((V30)),CMPcaddr((V30)),Cnil,(V28));          base[4]= (*(LnkLI34))(CMPcadr((V30)),CMPcaddr((V30)),Cnil,(V28));
161          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
162          return;          return;
163          goto T51;          goto T49;
164  T51:;  T49:;
165          base[4]= Cnil;          base[4]= Cnil;
166          base[5]= (V28);          base[5]= (V28);
167          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 189  static void L4() Line 190  static void L4()
190          vs_top=sup;          vs_top=sup;
191          goto TTL;          goto TTL;
192  TTL:;  TTL:;
193          base[4]=VV[11]->s.s_gfdef;          base[4]=VV[12]->s.s_gfdef;
194          base[5]= (V37);          base[5]= (V37);
195          base[6]= Ct;          base[6]= Ct;
196          {object V41;          {object V41;
# Line 198  TTL:; Line 199  TTL:;
199           while(V41!=Cnil)           while(V41!=Cnil)
200           {vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;}           {vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;}
201          vs_base=base+5;}          vs_base=base+5;}
202          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk12)(Lclptr12);
203          return;          return;
204          }          }
205  }  }
# Line 213  TTL:; Line 214  TTL:;
214          {object V52;          {object V52;
215          object V53;          object V53;
216          object V54;          object V54;
217          V52= (*(LnkLI31))((V48));          V52= (*(LnkLI35))((V48));
218          V53= (VFUN_NARGS=2,(*(LnkLI0))((V52),V49));          V53= (VFUN_NARGS=2,(*(LnkLI0))((V52),V49));
219          {object V55;          {object V55;
220          V55= STREF(object,(V53),12);          V55= STREF(object,(V53),12);
221          if(!(((V55))==(VV[1]))){          if(!(((V55))==(VV[1]))){
222          goto T72;}          goto T68;}
223          (void)((*(LnkLI26))((V53),VV[7]));          (void)((*(LnkLI29))((V53),VV[8]));
224          V54= STREF(object,(V53),12);          V54= STREF(object,(V53),12);
225          goto T69;          goto T65;
226          goto T72;          goto T68;
227  T72:;  T68:;
228          V54= (V55);}          V54= (V55);}
229          goto T69;          goto T65;
230  T69:;  T65:;
231          if(!(type_of((V54))==t_cons)){          if(!(type_of((V54))==t_cons)){
232          goto T66;}          goto T62;}
233          if(!((CMPcar((V54)))==(VV[3]))){          if(!((CMPcar((V54)))==(VV[3]))){
234          goto T66;}          goto T62;}
235          base[3]= VV[8];          base[3]= VV[4];
236          base[4]= CMPcdr((V54));          base[4]= VV[9];
237          base[6]= (V52);          base[5]= CMPcdr((V54));
238          vs_top=(vs_base=base+6)+1;          base[7]= (V52);
239          (void) (*Lnk27)(Lclptr27);          vs_top=(vs_base=base+7)+1;
240            (void) (*Lnk30)(Lclptr30);
241          vs_top=sup;          vs_top=sup;
242          base[5]= vs_base[0];          base[6]= vs_base[0];
243          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+4;
244          Lerror();          (void) (*Lnk31)();
245          vs_top=sup;}          vs_top=sup;}
246          goto T66;          goto T62;
247  T66:;  T62:;
248          base[0]=VV[11]->s.s_gfdef;          base[0]=VV[12]->s.s_gfdef;
249          base[1]= (V48);          base[1]= (V48);
250          base[2]= Cnil;          base[2]= Cnil;
251          {object V56;          {object V56;
# Line 252  T66:; Line 254  T66:;
254           while(V56!=Cnil)           while(V56!=Cnil)
255           {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}           {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}
256          vs_base=base+1;}          vs_base=base+1;}
257          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk12)(Lclptr12);
258          vs_top=sup;          vs_top=sup;
259          {object V57 = (V48);          {object V57 = (V48);
260          VMR5(V57)}          VMR5(V57)}
# Line 282  TTL:; Line 284  TTL:;
284          {register object V65;          {register object V65;
285          object V66;          object V66;
286          register object V67;          register object V67;
287          base[5]= (*(LnkLI31))((V61));          base[5]= (*(LnkLI35))((V61));
288          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
289          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk36)(Lclptr36);
290          vs_top=sup;          vs_top=sup;
291          V66= vs_base[0];          V66= vs_base[0];
292          base[6]=VV[33]->s.s_gfdef;          base[6]=VV[37]->s.s_gfdef;
293          base[7]= (*(LnkLI31))((V60));          base[7]= (*(LnkLI35))((V60));
294          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
295          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk36)(Lclptr36);
296          vs_top=sup;          vs_top=sup;
297          V70= vs_base[0];          V70= vs_base[0];
298          {object V68;          {object V68;
299          object V69= V70;          object V69= V70;
300          if(V69==Cnil){          if(V69==Cnil){
301          V67= Cnil;          V67= Cnil;
302          goto T93;}          goto T88;}
303          base[5]=V68=MMcons(Cnil,Cnil);          base[5]=V68=MMcons(Cnil,Cnil);
304          goto T94;          goto T89;
305  T94:;  T89:;
306          base[7]= (V69->c.c_car);          base[7]= (V69->c.c_car);
307          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
308          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk37)(Lclptr37);
309          vs_top=sup;          vs_top=sup;
310          (V68->c.c_car)= vs_base[0];          (V68->c.c_car)= vs_base[0];
311          if((V69=MMcdr(V69))==Cnil){          if((V69=MMcdr(V69))==Cnil){
312          V67= base[5];          V67= base[5];
313          goto T93;}          goto T88;}
314          V68=MMcdr(V68)=MMcons(Cnil,Cnil);          V68=MMcdr(V68)=MMcons(Cnil,Cnil);
315          goto T94;}          goto T89;}
316          goto T93;          goto T88;
317  T93:;  T88:;
318          V65= Cnil;          V65= Cnil;
319          {register object V71;          {register object V71;
320          register object V72;          register object V72;
321          V71= (V66);          V71= (V66);
322          V72= CMPcar((V71));          V72= CMPcar((V71));
323          goto T103;          goto T98;
324  T103:;  T98:;
325          if(!(((V71))==Cnil)){          if(!(((V71))==Cnil)){
326          goto T104;}          goto T99;}
327            goto T94;
328          goto T99;          goto T99;
329          goto T104;  T99:;
 T104:;  
330          base[6]= (V72);          base[6]= (V72);
331          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
332          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk37)(Lclptr37);
333          vs_top=sup;          vs_top=sup;
334          V74= vs_base[0];          V74= vs_base[0];
335          V75 = (V67);          {register object x= V74,V73= (V67);
         {register object x= V74,V73= V75;  
336          while(V73!=Cnil)          while(V73!=Cnil)
337          if(x==(V73->c.c_car)){          if(x==(V73->c.c_car)){
338          goto T108;          goto T103;
339          }else V73=V73->c.c_cdr;}          }else V73=V73->c.c_cdr;}
340          base[6]= (V72);          base[6]= (V72);
341          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
342          (void) (*Lnk34)(Lclptr34);          (void) (*Lnk38)(Lclptr38);
343          vs_top=sup;          vs_top=sup;
344          V76= vs_base[0];          V75= vs_base[0];
345          if(!((V76)==(VV[9]))){          if(!((V75)==(VV[10]))){
346          goto T108;}          goto T103;}
347          {register object V77;          {register object V76;
348          base[7]= (V72);          base[7]= (V72);
349          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
350          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk37)(Lclptr37);
351          vs_top=sup;          vs_top=sup;
352          V77= vs_base[0];          V76= vs_base[0];
353          V65= make_cons((V77),(V65));}          V65= make_cons((V76),(V65));}
354          goto T108;          goto T103;
355  T108:;  T103:;
356          V71= CMPcdr((V71));          V71= CMPcdr((V71));
357          V72= CMPcar((V71));          V72= CMPcar((V71));
358          goto T103;}          goto T98;}
359          goto T99;          goto T94;
360  T99:;  T94:;
361          V78= (*(LnkLI31))((V61));          V77= (*(LnkLI35))((V61));
362          V79 = V62;          V78= listA(4,VV[11],(V60),(V61),V62);
363          V80= listA(4,VV[10],(V60),(V61),V62);          V79= list(2,/* INLINE-ARGS */V78,listA(4,VV[12],(V61),(V65),V62));
364          V81= list(2,/* INLINE-ARGS */V80,listA(4,VV[11],(V61),(V65),V62));          (void)((VFUN_NARGS=3,(*(LnkLI39))(/* INLINE-ARGS */V77,V62,/* INLINE-ARGS */V79)));
365          (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V78,V79,/* INLINE-ARGS */V81)));          base[5]=VV[12]->s.s_gfdef;
         base[5]=VV[11]->s.s_gfdef;  
366          base[6]= (V61);          base[6]= (V61);
367          base[7]= (V65);          base[7]= (V65);
368          {object V82;          {object V80;
369          V82= V62;          V80= V62;
370           vs_top=base+8;           vs_top=base+8;
371           while(V82!=Cnil)           while(V80!=Cnil)
372           {vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;}           {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}
373          vs_base=base+6;}          vs_base=base+6;}
374          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk12)(Lclptr12);
375          return;}          return;}
376          }          }
377  }  }
# Line 381  static void L7() Line 381  static void L7()
381  {register object *base=vs_base;  {register object *base=vs_base;
382          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
383          vs_check;          vs_check;
384          {object V83;          {object V81;
385          object V84;          object V82;
386          register object V85;          register object V83;
387            register object V84;
388            object V85;
389          object V86;          object V86;
390          object V87;          object V87;
         object V88;  
         object V89;  
391          check_arg(7);          check_arg(7);
392          V83=(base[0]);          V81=(base[0]);
393          V84=(base[1]);          V82=(base[1]);
394          V85=(base[2]);          V83=(base[2]);
395          V86=(base[3]);          V84=(base[3]);
396          V87=(base[4]);          V85=(base[4]);
397          V88=(base[5]);          V86=(base[5]);
398          V89=(base[6]);          V87=(base[6]);
399          vs_top=sup;          vs_top=sup;
400          goto TTL;          goto TTL;
401  TTL:;  TTL:;
402          {register object V91;          {register object V89;
403          V91= V89;          V89= V87;
404          V92= (*(LnkLI31))((V85));          V90= (*(LnkLI35))((V83));
405          V93 = (V91);          V91= listA(6,VV[13],(V83),(V84),(V85),(V86),(V89));
406          V94= listA(6,VV[12],(V85),(V86),(V87),(V88),(V91));          V92= list(2,/* INLINE-ARGS */V91,listA(4,VV[12],(V83),(V84),(V89)));
407          V95= list(2,/* INLINE-ARGS */V94,listA(4,VV[11],(V85),(V86),(V91)));          (void)((VFUN_NARGS=3,(*(LnkLI39))(/* INLINE-ARGS */V90,(V89),/* INLINE-ARGS */V92)));
408          (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V92,V93,/* INLINE-ARGS */V95)));          base[7]=VV[12]->s.s_gfdef;
409          base[7]=VV[11]->s.s_gfdef;          base[8]= (V83);
410          base[8]= (V85);          base[9]= (V84);
411          base[9]= (V86);          {object V93;
412          {object V96;          V93= (V89);
         V96= (V91);  
413           vs_top=base+10;           vs_top=base+10;
414           while(V96!=Cnil)           while(V93!=Cnil)
415           {vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;}           {vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;}
416          vs_base=base+8;}          vs_base=base+8;}
417          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk12)(Lclptr12);
418          return;}          return;}
419          }          }
420  }  }
421  /*      function definition for (FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))        */
422    
423  static void L8()  static object LI8(V99,V100,V101,V102,V103)
424  {register object *base=vs_base;  
425          register object *sup=base+VM8; VC8  object V99;object V100;register object V101;register object V102;object V103;
426          vs_check;  {        VMB8 VMS8 VMV8
         {object V97;  
         object V98;  
         register object V99;  
         register object V100;  
         object V101;  
         check_arg(5);  
         V97=(base[0]);  
         V98=(base[1]);  
         V99=(base[2]);  
         V100=(base[3]);  
         V101=(base[4]);  
         vs_top=sup;  
427          goto TTL;          goto TTL;
428  TTL:;  TTL:;
429          if(!(((V100))==(Ct))){          if(!(((V102))==(Ct))){
430            goto T133;}
431            {register object V106;
432            object V107;
433            register object V108;
434            V106= V103;
435            V107= Cnil;
436            V108= Cnil;
437            goto T138;
438    T138:;
439            if(((V106))!=Cnil){
440          goto T140;}          goto T140;}
441          {object V104;          goto T136;
         {object V105;  
         V106= (*(LnkLI31))((V99));  
         V107 = V101;  
         V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V106,V107));  
         V105= STREF(object,/* INLINE-ARGS */V108,32);  
         if(!(((V105))==(VV[1]))){  
         goto T146;}  
         V109= (*(LnkLI31))((V99));  
         V110 = V101;  
         V111= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V109,V110));  
         (void)((*(LnkLI26))(/* INLINE-ARGS */V111,VV[13]));  
         V112= (*(LnkLI31))((V99));  
         V113 = V101;  
         V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V112,V113));  
         V104= STREF(object,/* INLINE-ARGS */V114,32);  
         goto T143;  
         goto T146;  
 T146:;  
         V104= (V105);}  
         goto T143;  
 T143:;  
         if(!(type_of((V104))==t_cons)){  
         goto T150;}  
         if(!((CMPcar((V104)))==(VV[6]))){  
         goto T150;}  
         base[5]= (*(LnkLI30))(CMPcadr((V104)),CMPcaddr((V104)),(V99),V101);  
         vs_top=(vs_base=base+5)+1;  
         return;  
         goto T150;  
 T150:;  
         base[5]= (V99);  
         base[6]= V101;  
         vs_top=(vs_base=base+5)+2;  
         {object _funobj = (V104);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         return;}  
442          goto T140;          goto T140;
443  T140:;  T140:;
444          if(!(((V100))==(Cnil))){          {object V109;
445          goto T156;}          V109= CMPcar((V106));
446          {object V115;          V106= CMPcdr((V106));
447          {object V116;          V107= (V109);}
448          V117= (*(LnkLI31))((V99));          if(((V106))!=Cnil){
449          V118 = V101;          goto T148;}
450          V119= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V118));          base[0]= VV[4];
451          V116= STREF(object,/* INLINE-ARGS */V119,36);          base[1]= VV[14];
452          if(!(((V116))==(VV[1]))){          vs_top=(vs_base=base+0)+2;
453          goto T162;}          (void) (*Lnk31)();
         V120= (*(LnkLI31))((V99));  
         V121 = V101;  
         V122= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V120,V121));  
         (void)((*(LnkLI26))(/* INLINE-ARGS */V122,VV[14]));  
         V123= (*(LnkLI31))((V99));  
         V124 = V101;  
         V125= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V123,V124));  
         V115= STREF(object,/* INLINE-ARGS */V125,36);  
         goto T159;  
         goto T162;  
 T162:;  
         V115= (V116);}  
         goto T159;  
 T159:;  
         if(!(type_of((V115))==t_cons)){  
         goto T166;}  
         if(!((CMPcar((V115)))==(VV[6]))){  
         goto T166;}  
         base[5]= (*(LnkLI30))(CMPcadr((V115)),CMPcaddr((V115)),(V99),V101);  
         vs_top=(vs_base=base+5)+1;  
         return;  
         goto T166;  
 T166:;  
         base[5]= (V99);  
         base[6]= V101;  
         vs_top=(vs_base=base+5)+2;  
         {object _funobj = (V115);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         return;}  
         goto T156;  
 T156:;  
         {object V126;  
         object V127;  
         object V128;  
         V126= (*(LnkLI31))((V99));  
         base[8]= (V126);  
         vs_top=(vs_base=base+8)+1;  
         (void) (*Lnk32)(Lclptr32);  
454          vs_top=sup;          vs_top=sup;
455          V127= vs_base[0];{object V129;          goto T148;
456          if(type_of(V99)==t_structure){  T148:;
457          goto T178;}          if(type_of((V107))==t_symbol){
458          V129= Cnil;          goto T153;}
459          goto T177;          base[0]= VV[4];
460          goto T178;          base[1]= VV[15];
461  T178:;          vs_top=(vs_base=base+0)+2;
462          V129= (((V99)->str.str_def)==(VV[15])?Ct:Cnil);          (void) (*Lnk31)();
463          goto T177;          vs_top=sup;
464  T177:;          goto T153;
465          if(V129==Cnil)goto T176;  T153:;
466          V128= V129;          {object V110;
467          goto T175;          V110= CMPcar((V106));
468          goto T176;          V106= CMPcdr((V106));
469  T176:;}{object V131;          V108= (V110);}
470          V131= (VV[16]->s.s_dbind);          goto T138;}
471          base[8]= small_fixnum(14);          goto T136;
472          base[9]= (V99);  T136:;
473          vs_top=(vs_base=base+8)+2;          {object V111;
474          (void) (*Lnk36)();          {object V112;
475          vs_top=sup;          V113= (*(LnkLI35))((V101));
476          V132= vs_base[0];          V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V113,V103));
477          V128= ((V131)==(CMPcar(V132))?Ct:Cnil);}          V112= STREF(object,/* INLINE-ARGS */V114,32);
478          goto T175;          if(!(((V112))==(VV[1]))){
479  T175:;          goto T168;}
480          {object V133;          V115= (*(LnkLI35))((V101));
481          register object V134;          V116= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V115,V103));
482          V133= (V127);          (void)((*(LnkLI29))(/* INLINE-ARGS */V116,VV[16]));
483          V134= CMPcar((V133));          V117= (*(LnkLI35))((V101));
484          goto T187;          V118= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V103));
485  T187:;          V111= STREF(object,/* INLINE-ARGS */V118,32);
486          if(!(((V133))==Cnil)){          goto T165;
487          goto T188;}          goto T168;
488    T168:;
489            V111= (V112);}
490            goto T165;
491    T165:;
492            if(!(type_of((V111))==t_cons)){
493            goto T172;}
494            if(!((CMPcar((V111)))==(VV[7]))){
495            goto T172;}
496            (void)((*(LnkLI34))(CMPcadr((V111)),CMPcaddr((V111)),(V101),V103));
497            goto T164;
498            goto T172;
499    T172:;
500            (void)((
501            (type_of((V111)) == t_sfun ?(*(((V111))->sfn.sfn_self)):
502            (fcall.argd=2,type_of((V111))==t_vfun) ?
503            (*(((V111))->sfn.sfn_self)):
504            (fcall.fun=((V111)),fcalln))((V101),V103)));}
505            goto T164;
506    T164:;
507            {object V119 = (V101);
508            VMR8(V119)}
509            goto T133;
510    T133:;
511            if(!(((V102))==(Cnil))){
512            goto T176;}
513            {register object V120;
514            object V121;
515            register object V122;
516            V120= V103;
517            V121= Cnil;
518            V122= Cnil;
519            goto T181;
520    T181:;
521            if(((V120))!=Cnil){
522            goto T183;}
523            goto T179;
524          goto T183;          goto T183;
525          goto T188;  T183:;
526  T188:;          {object V123;
527          {object V135;          V123= CMPcar((V120));
528            V120= CMPcdr((V120));
529            V121= (V123);}
530            if(((V120))!=Cnil){
531            goto T191;}
532            base[0]= VV[4];
533            base[1]= VV[14];
534            vs_top=(vs_base=base+0)+2;
535            (void) (*Lnk31)();
536            vs_top=sup;
537            goto T191;
538    T191:;
539            if(type_of((V121))==t_symbol){
540            goto T196;}
541            base[0]= VV[4];
542            base[1]= VV[15];
543            vs_top=(vs_base=base+0)+2;
544            (void) (*Lnk31)();
545            vs_top=sup;
546            goto T196;
547    T196:;
548            {object V124;
549            V124= CMPcar((V120));
550            V120= CMPcdr((V120));
551            V122= (V124);}
552            goto T181;}
553            goto T179;
554    T179:;
555            {object V125;
556            {object V126;
557            V127= (*(LnkLI35))((V101));
558            V128= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V127,V103));
559            V126= STREF(object,/* INLINE-ARGS */V128,36);
560            if(!(((V126))==(VV[1]))){
561            goto T211;}
562            V129= (*(LnkLI35))((V101));
563            V130= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V129,V103));
564            (void)((*(LnkLI29))(/* INLINE-ARGS */V130,VV[17]));
565            V131= (*(LnkLI35))((V101));
566            V132= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V131,V103));
567            V125= STREF(object,/* INLINE-ARGS */V132,36);
568            goto T208;
569            goto T211;
570    T211:;
571            V125= (V126);}
572            goto T208;
573    T208:;
574            if(!(type_of((V125))==t_cons)){
575            goto T215;}
576            if(!((CMPcar((V125)))==(VV[7]))){
577            goto T215;}
578            (void)((*(LnkLI34))(CMPcadr((V125)),CMPcaddr((V125)),(V101),V103));
579            goto T207;
580            goto T215;
581    T215:;
582            (void)((
583            (type_of((V125)) == t_sfun ?(*(((V125))->sfn.sfn_self)):
584            (fcall.argd=2,type_of((V125))==t_vfun) ?
585            (*(((V125))->sfn.sfn_self)):
586            (fcall.fun=((V125)),fcalln))((V101),V103)));}
587            goto T207;
588    T207:;
589            {object V133 = (V101);
590            VMR8(V133)}
591            goto T176;
592    T176:;
593            {object V134;
594            object V135;
595          object V136;          object V136;
596          base[9]= (V134);          V134= (*(LnkLI35))((V101));
597          vs_top=(vs_base=base+9)+1;          base[3]= (V134);
598          (void) (*Lnk33)(Lclptr33);          vs_top=(vs_base=base+3)+1;
599            (void) (*Lnk36)(Lclptr36);
600            vs_top=sup;
601            V135= vs_base[0];{object V137;
602            if(type_of(V101)==t_structure){
603            goto T225;}
604            V137= Cnil;
605            goto T224;
606            goto T225;
607    T225:;
608            V137= (((V101)->str.str_def)==(VV[20])?Ct:Cnil);
609            goto T224;
610    T224:;
611            if(V137==Cnil)goto T223;
612            V136= V137;
613            goto T222;
614            goto T223;
615    T223:;}{object V139;
616            V139= (VV[19]->s.s_dbind);
617            base[3]= small_fixnum(14);
618            base[4]= (V101);
619            vs_top=(vs_base=base+3)+2;
620            (void) (*Lnk40)();
621          vs_top=sup;          vs_top=sup;
622          V135= vs_base[0];          V140= vs_base[0];
623          base[9]= (V134);          V136= ((V139)==(CMPcar(V140))?Ct:Cnil);}
624          vs_top=(vs_base=base+9)+1;          goto T222;
625    T222:;
626            {object V141;
627            register object V142;
628            V141= (V135);
629            V142= CMPcar((V141));
630            goto T234;
631    T234:;
632            if(!(((V141))==Cnil)){
633            goto T235;}
634            goto T230;
635            goto T235;
636    T235:;
637            {object V143;
638            object V144;
639            base[4]= (V142);
640            vs_top=(vs_base=base+4)+1;
641          (void) (*Lnk37)(Lclptr37);          (void) (*Lnk37)(Lclptr37);
642          vs_top=sup;          vs_top=sup;
643          V136= vs_base[0];          V143= vs_base[0];
644          {register object V137;          base[4]= (V142);
645          register object V138;          vs_top=(vs_base=base+4)+1;
646          register object V139;          (void) (*Lnk41)(Lclptr41);
         V137= V101;  
         V138= Cnil;  
         V139= Cnil;  
         goto T200;  
 T200:;  
         if(((V137))!=Cnil){  
         goto T202;}  
         goto T198;  
         goto T202;  
 T202:;  
         {object V140;  
         V140= CMPcar((V137));  
         V137= CMPcdr((V137));  
         V138= (V140);}  
         if(((V137))!=Cnil){  
         goto T210;}  
         base[9]= VV[17];  
         vs_top=(vs_base=base+9)+1;  
         Lerror();  
647          vs_top=sup;          vs_top=sup;
648          goto T210;          V144= vs_base[0];
649  T210:;          {register object V145;
650          {object V141;          object V146;
651          V141= CMPcar((V137));          object V147;
652          V137= CMPcdr((V137));          V145= V103;
653          V139= (V141);}          V146= Cnil;
654          {register object x= (V138),V142= (V136);          V147= Cnil;
655          while(V142!=Cnil)          goto T247;
656          if(x==(V142->c.c_car)){  T247:;
657          goto T220;          if(((V145))!=Cnil){
658          }else V142=V142->c.c_cdr;          goto T249;}
659          goto T201;}          goto T245;
660          goto T220;          goto T249;
661  T220:;  T249:;
662          V147= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          {object V148;
663          V148 = V139;          V148= CMPcar((V145));
664          V149 = V126;          V145= CMPcdr((V145));
665          V150 = V99;          V146= (V148);}
666          V151 = V134;          if(((V145))!=Cnil){
667            goto T257;}
668            base[4]= VV[4];
669            base[5]= VV[14];
670            vs_top=(vs_base=base+4)+2;
671            (void) (*Lnk31)();
672            vs_top=sup;
673            goto T257;
674    T257:;
675            if(type_of((V146))==t_symbol){
676            goto T262;}
677            base[4]= VV[4];
678            base[5]= VV[15];
679            vs_top=(vs_base=base+4)+2;
680            (void) (*Lnk31)();
681            vs_top=sup;
682            goto T262;
683    T262:;
684            {object V149;
685            V149= CMPcar((V145));
686            V145= CMPcdr((V145));
687            V147= (V149);}
688            {register object x= (V146),V150= (V144);
689            while(V150!=Cnil)
690            if(x==(V150->c.c_car)){
691            goto T273;
692            }else V150=V150->c.c_cdr;
693            goto T248;}
694            goto T273;
695    T273:;
696            V155= ({object _tmp=get(VV[42],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[42])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[42])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
697          (void)((          (void)((
698          V152 = V147,          V156 = V155,
699          (type_of(V152) == t_sfun ?(*((V152)->sfn.sfn_self)):          (type_of(V156) == t_sfun ?(*((V156)->sfn.sfn_self)):
700          (fcall.argd=4,type_of(V152)==t_vfun) ?          (fcall.argd=4,type_of(V156)==t_vfun) ?
701          (*((V152)->sfn.sfn_self)):          (*((V156)->sfn.sfn_self)):
702          (fcall.fun=(V152),fcalln))(V148,V149,V150,V151)));          (fcall.fun=(V156),fcalln))(V147,V134,V101,V142)));
703          goto T192;          goto T239;
704          goto T201;          goto T248;
705  T201:;  T248:;
706          goto T200;}          goto T247;}
707          goto T198;          goto T245;
708  T198:;  T245:;
709          if(((V100))==Cnil){          if(((V102))==Cnil){
710          goto T192;}          goto T239;}
711          if(((V100))==(Ct)){          if(((V102))==(Ct)){
712          goto T227;}          goto T280;}
713          {register object x= (V135),V153= (V100);          {register object x= (V143),V157= (V102);
714          while(V153!=Cnil)          while(V157!=Cnil)
715          if(x==(V153->c.c_car)){          if(x==(V157->c.c_car)){
716          goto T230;          goto T283;
717          }else V153=V153->c.c_cdr;          }else V157=V157->c.c_cdr;
718          goto T192;}          goto T239;}
719          goto T230;          goto T283;
720  T230:;  T283:;
721          goto T227;          goto T280;
722  T227:;  T280:;
723          if(((V128))!=Cnil){          if(((V136))!=Cnil){
724          goto T231;}          goto T284;}
725          if(((V100))==(Ct)){          if(((V102))==(Ct)){
726          goto T224;}          goto T277;}
727          goto T231;          goto T284;
728  T231:;  T284:;
729          base[9]= (V126);          base[4]= (V134);
730          base[10]= (V99);          base[5]= (V101);
731          base[11]= (V134);          base[6]= (V142);
732          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+4)+3;
733          (void) (*Lnk39)(Lclptr39);          (void) (*Lnk43)(Lclptr43);
734          vs_top=sup;          vs_top=sup;
735          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
736          goto T192;}          goto T239;}
737          goto T224;          goto T277;
738  T224:;  T277:;
         {object V154;  
         base[9]= (V134);  
         vs_top=(vs_base=base+9)+1;  
         (void) (*Lnk40)(Lclptr40);  
         vs_top=sup;  
         V154= vs_base[0];  
         if(((V154))==Cnil){  
         goto T192;}  
739          {object V158;          {object V158;
740          V158= (          base[4]= (V142);
741          (type_of((V154)) == t_sfun ?(*(((V154))->sfn.sfn_self)):          vs_top=(vs_base=base+4)+1;
742          (fcall.argd=0,type_of((V154))==t_vfun) ?          (void) (*Lnk44)(Lclptr44);
743          (*(((V154))->sfn.sfn_self)):          vs_top=sup;
744          (fcall.fun=((V154)),fcalln))());          V158= vs_base[0];
745          V159= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          if(((V158))==Cnil){
746          V160 = (V158);          goto T239;}
747          V161 = V126;          {object V162;
748          V162 = V99;          V162= (
749          V163 = V134;          (type_of((V158)) == t_sfun ?(*(((V158))->sfn.sfn_self)):
750            (fcall.argd=0,type_of((V158))==t_vfun) ?
751            (*(((V158))->sfn.sfn_self)):
752            (fcall.fun=((V158)),fcalln))());
753            V163= ({object _tmp=get(VV[42],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[42])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[42])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
754          (void)((          (void)((
755          V164 = V159,          V164 = V163,
756          (type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)):          (type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)):
757          (fcall.argd=4,type_of(V164)==t_vfun) ?          (fcall.argd=4,type_of(V164)==t_vfun) ?
758          (*((V164)->sfn.sfn_self)):          (*((V164)->sfn.sfn_self)):
759          (fcall.fun=(V164),fcalln))(V160,V161,V162,V163)));}}}          (fcall.fun=(V164),fcalln))((V162),V134,V101,V142)));}}}
760          goto T192;          goto T239;
761  T192:;  T239:;
762          V133= CMPcdr((V133));          V141= CMPcdr((V141));
763          V134= CMPcar((V133));          V142= CMPcar((V141));
764          goto T187;}          goto T234;}
765          goto T183;          goto T230;
766  T183:;  T230:;
767          base[8]= (V99);          {object V165 = (V101);
768          vs_top=(vs_base=base+8)+1;          VMR8(V165)}}
769          return;}          base[0]=base[0];
770          }          return Cnil;
771  }  }
772  /*      local entry for function CHECK-INITARGS-1       */  /*      local entry for function CHECK-INITARGS-1       */
773    
774  static object LI9(object V167,object V166,object V165,object first,...)  static object LI9(object V168,object V167,object V166,object first,...)
775  {        {      
776          va_list ap;          va_list ap;
777          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
778          {object V168;          {object V169;
         object V169;  
779          object V170;          object V170;
780          object V171;          object V171;
781          object V172;          object V172;
782            object V173;
783          va_start(ap,first);          va_start(ap,first);
784          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
785          V168= V167;          V169= V168;
786          V169= V166;          V170= V167;
787          V170= V165;          V171= V166;
788          narg = narg - 3;          narg = narg - 3;
789          if (narg <= 0) goto T250;          if (narg <= 0) goto T303;
790          else {          else {
791          V171= first;}          V172= first;}
792          if (--narg <= 0) goto T251;          if (--narg <= 0) goto T304;
793          else {          else {
794          V172= va_arg(ap,object);}          V173= va_arg(ap,object);}
795          --narg; goto T252;          --narg; goto T305;
796          goto T250;          goto T303;
797  T250:;  T303:;
         V171= Ct;  
         goto T251;  
 T251:;  
798          V172= Ct;          V172= Ct;
799          goto T252;          goto T304;
800  T252:;  T304:;
801          {object V173;          V173= Ct;
802          object V174;          goto T305;
803          base[0]= (V168);  T305:;
804          base[1]= (V170);          {object V174;
805            object V175;
806            base[0]= (V169);
807            base[1]= (V171);
808          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
809          (void) (*Lnk41)();          (void) (*Lnk45)();
810          if(vs_base>=vs_top){vs_top=sup;goto T258;}          if(vs_base>=vs_top){vs_top=sup;goto T311;}
         V173= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T259;}  
811          V174= vs_base[0];          V174= vs_base[0];
812            vs_base++;
813            if(vs_base>=vs_top){vs_top=sup;goto T312;}
814            V175= vs_base[0];
815          vs_top=sup;          vs_top=sup;
816          goto T260;          goto T313;
817          goto T258;          goto T311;
818  T258:;  T311:;
         V173= Cnil;  
         goto T259;  
 T259:;  
819          V174= Cnil;          V174= Cnil;
820          goto T260;          goto T312;
821  T260:;  T312:;
822          if(((V174))!=Cnil){          V175= Cnil;
823          goto T262;}          goto T313;
824          if(((V171))==Cnil){  T313:;
825          goto T265;}          if(((V175))!=Cnil){
826          {object V175 = (VFUN_NARGS=4,(*(LnkLI42))((V169),(V168),(V173),(V172)));          goto T315;}
827          VMR9(V175)}          if(((V172))==Cnil){
828          goto T265;          goto T318;}
829  T265:;          {object V176 = (VFUN_NARGS=4,(*(LnkLI46))((V170),(V169),(V174),(V173)));
         {object V176 = (VFUN_NARGS=4,(*(LnkLI43))((V169),(V168),(V173),(V172)));  
830          VMR9(V176)}          VMR9(V176)}
831          goto T262;          goto T318;
832  T262:;  T318:;
833          {object V177 = Cnil;          {object V177 = (VFUN_NARGS=4,(*(LnkLI47))((V170),(V169),(V174),(V173)));
834          VMR9(V177)}}          VMR9(V177)}
835            goto T315;
836    T315:;
837            {object V178 = Cnil;
838            VMR9(V178)}}
839          va_end(ap);          va_end(ap);
840          base[0]=base[0];          base[0]=base[0];
841          return Cnil;}          return Cnil;}
# Line 779  static void L10() Line 846  static void L10()
846  {register object *base=vs_base;  {register object *base=vs_base;
847          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
848          vs_check;          vs_check;
849          {object V178;          {object V179;
850          object V179;          object V180;
851          check_arg(2);          check_arg(2);
852          V178=(base[0]);          V179=(base[0]);
853          V179=(base[1]);          V180=(base[1]);
854          vs_top=sup;          vs_top=sup;
855          goto TTL;          goto TTL;
856  TTL:;  TTL:;
857          {object V180;          {object V181;
858          register object V181;          register object V182;
859          {object V182;          {object V183;
860          object V183= (V179);          object V184= (V180);
861          if(V183==Cnil){          if(V184==Cnil){
862          V180= Cnil;          V181= Cnil;
863          goto T267;}          goto T320;}
864          base[2]=V182=MMcons(Cnil,Cnil);          base[2]=V183=MMcons(Cnil,Cnil);
865          goto T268;          goto T321;
866  T268:;  T321:;
867          {register object V184;          {register object V185;
868          V184= (V183->c.c_car);          V185= (V184->c.c_car);
869          if(!(type_of((V184))==t_cons)){          if(!(type_of((V185))==t_cons)){
870          goto T271;}          goto T324;}
871          base[4]= (*(LnkLI44))(CMPcar((V184)));          base[4]= (*(LnkLI48))(CMPcar((V185)));
872          base[5]= CMPcdr((V184));          base[5]= CMPcdr((V185));
873          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
874          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk49)(Lclptr49);
875          vs_top=sup;          vs_top=sup;
876          base[3]= vs_base[0];          base[3]= vs_base[0];
877          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
878          Lcopy_list();          Lcopy_list();
879          vs_top=sup;          vs_top=sup;
880          (V182->c.c_cdr)= vs_base[0];          (V183->c.c_cdr)= vs_base[0];
881          goto T269;          goto T322;
882          goto T271;          goto T324;
883  T271:;  T324:;
884          (V182->c.c_cdr)= make_cons((V184),Cnil);}          (V183->c.c_cdr)= make_cons((V185),Cnil);}
885          goto T269;          goto T322;
886  T269:;  T322:;
887          while(MMcdr(V182)!=Cnil)V182=MMcdr(V182);          while(MMcdr(V183)!=Cnil)V183=MMcdr(V183);
888          if((V183=MMcdr(V183))==Cnil){          if((V184=MMcdr(V184))==Cnil){
889          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
890          V180= base[2];          V181= base[2];
891          goto T267;}          goto T320;}
892          goto T268;}          goto T321;}
893          goto T267;          goto T320;
894  T267:;  T320:;
895          {object V185;          {object V186;
896          base[3]=VV[37]->s.s_gfdef;          base[3]=VV[41]->s.s_gfdef;
897          base[4]= (V178);          base[4]= (V179);
898          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
899          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk36)(Lclptr36);
900          vs_top=sup;          vs_top=sup;
901          V188= vs_base[0];          V189= vs_base[0];
902          {object V186;          {object V187;
903          object V187= V188;          object V188= V189;
904          if(V187==Cnil){          if(V188==Cnil){
905          V185= Cnil;          V186= Cnil;
906          goto T277;}          goto T330;}
907          base[2]=V186=MMcons(Cnil,Cnil);          base[2]=V187=MMcons(Cnil,Cnil);
908          goto T278;          goto T331;
909  T278:;  T331:;
910          base[4]= (V187->c.c_car);          base[4]= (V188->c.c_car);
911          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
912          (void) (*Lnk37)(Lclptr37);          (void) (*Lnk41)(Lclptr41);
913          vs_top=sup;          vs_top=sup;
914          (V186->c.c_car)= vs_base[0];          (V187->c.c_car)= vs_base[0];
915          if((V187=MMcdr(V187))==Cnil){          if((V188=MMcdr(V188))==Cnil){
916          V185= base[2];          V186= base[2];
917          goto T277;}          goto T330;}
918          V186=MMcdr(V186)=MMcons(Cnil,Cnil);          V187=MMcdr(V187)=MMcons(Cnil,Cnil);
919          goto T278;}          goto T331;}
920          goto T277;          goto T330;
921  T277:;  T330:;
922           vs_top=base+2;           vs_top=base+2;
923           while(V185!=Cnil)           while(V186!=Cnil)
924           {vs_push((V185)->c.c_car);V185=(V185)->c.c_cdr;}           {vs_push((V186)->c.c_car);V186=(V186)->c.c_cdr;}
925          vs_base=base+2;}          vs_base=base+2;}
926          Lappend();          Lappend();
927          vs_top=sup;          vs_top=sup;
928          V181= vs_base[0];          V182= vs_base[0];
929          {register object V189;          {register object V190;
930          register object V190;          register object V191;
931          V189= (V180);          V190= (V181);
932          V190= CMPcar((V189));          V191= CMPcar((V190));
933          goto T287;          goto T340;
934  T287:;  T340:;
935          if(!(((V189))==Cnil)){          if(!(((V190))==Cnil)){
936          goto T288;}          goto T341;}
937          goto T283;          goto T336;
938          goto T288;          goto T341;
939  T288:;  T341:;
940          {register object V191;          {register object V192;
         register object V192;  
941          register object V193;          register object V193;
942          register object V194;          register object V194;
943          register object V195;          register object V195;
944          register object V196;          register object V196;
945          if(!(type_of((V190))==t_cons)){          register object V197;
946          goto T296;}          if(!(type_of((V191))==t_cons)){
947          base[3]= (*(LnkLI46))((V190));          goto T349;}
948          goto T294;          base[3]= (*(LnkLI50))((V191));
949          goto T296;          goto T347;
950  T296:;          goto T349;
951          base[4]= (V190);  T349:;
952            base[4]= (V191);
953          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
954          (void) (*Lnk47)(Lclptr47);          (void) (*Lnk51)(Lclptr51);
955          vs_top=sup;          vs_top=sup;
956          base[3]= vs_base[0];          base[3]= vs_base[0];
957          goto T294;          goto T347;
958  T294:;  T347:;
959          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
960          (void) (*Lnk48)();          (void) (*Lnk52)();
961          if(vs_base>=vs_top){vs_top=sup;goto T299;}          if(vs_base>=vs_top){vs_top=sup;goto T352;}
         V191= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T300;}  
962          V192= vs_base[0];          V192= vs_base[0];
963          vs_base++;          vs_base++;
964          if(vs_base>=vs_top){vs_top=sup;goto T301;}          if(vs_base>=vs_top){vs_top=sup;goto T353;}
965          V193= vs_base[0];          V193= vs_base[0];
966          vs_base++;          vs_base++;
967          if(vs_base>=vs_top){vs_top=sup;goto T302;}          if(vs_base>=vs_top){vs_top=sup;goto T354;}
968          V194= vs_base[0];          V194= vs_base[0];
969          vs_base++;          vs_base++;
970          if(vs_base>=vs_top){vs_top=sup;goto T303;}          if(vs_base>=vs_top){vs_top=sup;goto T355;}
971          V195= vs_base[0];          V195= vs_base[0];
972          vs_base++;          vs_base++;
973          if(vs_base>=vs_top){vs_top=sup;goto T304;}          if(vs_base>=vs_top){vs_top=sup;goto T356;}
974          V196= vs_base[0];          V196= vs_base[0];
975            vs_base++;
976            if(vs_base>=vs_top){vs_top=sup;goto T357;}
977            V197= vs_base[0];
978          vs_top=sup;          vs_top=sup;
979          goto T305;          goto T358;
980          goto T299;          goto T352;
981  T299:;  T352:;
         V191= Cnil;  
         goto T300;  
 T300:;  
982          V192= Cnil;          V192= Cnil;
983          goto T301;          goto T353;
984  T301:;  T353:;
985          V193= Cnil;          V193= Cnil;
986          goto T302;          goto T354;
987  T302:;  T354:;
988          V194= Cnil;          V194= Cnil;
989          goto T303;          goto T355;
990  T303:;  T355:;
991          V195= Cnil;          V195= Cnil;
992          goto T304;          goto T356;
993  T304:;  T356:;
994          V196= Cnil;          V196= Cnil;
995          goto T305;          goto T357;
996  T305:;  T357:;
997          if(((V195))==Cnil){          V197= Cnil;
998          goto T306;}          goto T358;
999    T358:;
1000            if(((V196))==Cnil){
1001            goto T359;}
1002          base[3]= Cnil;          base[3]= Cnil;
1003          base[4]= Ct;          base[4]= Ct;
1004          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1005          return;          return;
1006          goto T306;          goto T359;
1007  T306:;  T359:;
1008          V181= append((V196),(V181));}          V182= append((V197),(V182));}
1009          V189= CMPcdr((V189));          V190= CMPcdr((V190));
1010          V190= CMPcar((V189));          V191= CMPcar((V190));
1011          goto T287;}          goto T340;}
1012          goto T283;          goto T336;
1013  T283:;  T336:;
1014          base[2]= (V181);          base[2]= (V182);
1015          base[3]= Cnil;          base[3]= Cnil;
1016          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1017          return;}          return;}
# Line 952  T283:; Line 1019  T283:;
1019  }  }
1020  /*      local entry for function CHECK-INITARGS-2-PLIST */  /*      local entry for function CHECK-INITARGS-2-PLIST */
1021    
1022  static object LI11(object V199,object V198,object V197,object first,...)  static object LI11(object V200,object V199,object V198,object first,...)
1023  {        {      
1024          va_list ap;          va_list ap;
1025          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
1026          {object V200;          {object V201;
         register object V201;  
1027          register object V202;          register object V202;
1028          register object V203;          register object V203;
1029            register object V204;
1030          va_start(ap,first);          va_start(ap,first);
1031          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1032          V200= V199;          V201= V200;
1033          V201= V198;          V202= V199;
1034          V202= V197;          V203= V198;
1035          narg = narg - 3;          narg = narg - 3;
1036          if (narg <= 0) goto T319;          if (narg <= 0) goto T372;
1037          else {          else {
1038          V203= first;}          V204= first;}
1039          --narg; goto T320;          --narg; goto T373;
1040          goto T319;          goto T372;
1041  T319:;  T372:;
1042          V203= Ct;          V204= Ct;
1043          goto T320;          goto T373;
1044  T320:;  T373:;
1045          base[0]= (V200);          base[0]= (V201);
1046          base[1]= VV[18];          base[1]= VV[21];
1047          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1048          Lgetf();          Lgetf();
1049          vs_top=sup;          vs_top=sup;
1050          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1051          goto T322;}          goto T375;}
1052          {register object V204;          {register object V205;
         register object V205;  
1053          register object V206;          register object V206;
1054          V204= (V200);          register object V207;
1055          V205= Cnil;          V205= (V201);
1056          V206= Cnil;          V206= Cnil;
1057          goto T328;          V207= Cnil;
1058  T328:;          goto T381;
1059          if(((V204))!=Cnil){  T381:;
1060          goto T330;}          if(((V205))!=Cnil){
1061          goto T322;          goto T383;}
1062          goto T330;          goto T375;
1063  T330:;          goto T383;
1064          {register object V207;  T383:;
         V207= CMPcar((V204));  
         V204= CMPcdr((V204));  
         V205= (V207);}  
         if(((V204))!=Cnil){  
         goto T338;}  
         base[0]= VV[17];  
         vs_top=(vs_base=base+0)+1;  
         Lerror();  
         vs_top=sup;  
         goto T338;  
 T338:;  
1065          {register object V208;          {register object V208;
1066          V208= CMPcar((V204));          V208= CMPcar((V205));
1067          V204= CMPcdr((V204));          V205= CMPcdr((V205));
1068          V206= (V208);}          V206= (V208);}
1069          {register object x= (V205),V209= (V202);          if(((V205))!=Cnil){
1070          while(V209!=Cnil)          goto T391;}
1071          if(x==(V209->c.c_car)){          base[0]= VV[4];
1072          goto T329;          base[1]= VV[14];
1073          }else V209=V209->c.c_cdr;}          vs_top=(vs_base=base+0)+2;
1074          if(((V203))==Cnil){          (void) (*Lnk31)();
         goto T350;}  
         base[0]= VV[19];  
         base[1]= (V205);  
         base[3]= (V201);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk27)(Lclptr27);  
1075          vs_top=sup;          vs_top=sup;
1076          base[2]= vs_base[0];          goto T391;
1077          vs_top=(vs_base=base+0)+3;  T391:;
1078          Lerror();          if(type_of((V206))==t_symbol){
1079          vs_top=sup;          goto T396;}
1080          goto T329;          base[0]= VV[4];
1081          goto T350;          base[1]= VV[15];
1082  T350:;          vs_top=(vs_base=base+0)+2;
1083          {object V210 = Cnil;          (void) (*Lnk31)();
1084          VMR11(V210)}          vs_top=sup;
1085          goto T329;          goto T396;
1086  T329:;  T396:;
1087          goto T328;}          {register object V209;
1088          goto T322;          V209= CMPcar((V205));
1089  T322:;          V205= CMPcdr((V205));
1090          {object V211 = Ct;          V207= (V209);}
1091            {register object x= (V206),V210= (V203);
1092            while(V210!=Cnil)
1093            if(x==(V210->c.c_car)){
1094            goto T382;
1095            }else V210=V210->c.c_cdr;}
1096            if(((V204))==Cnil){
1097            goto T409;}
1098            base[0]= VV[4];
1099            base[1]= VV[22];
1100            base[2]= (V206);
1101            base[4]= (V202);
1102            vs_top=(vs_base=base+4)+1;
1103            (void) (*Lnk30)(Lclptr30);
1104            vs_top=sup;
1105            base[3]= vs_base[0];
1106            vs_top=(vs_base=base+0)+4;
1107            (void) (*Lnk31)();
1108            vs_top=sup;
1109            goto T382;
1110            goto T409;
1111    T409:;
1112            {object V211 = Cnil;
1113          VMR11(V211)}          VMR11(V211)}
1114            goto T382;
1115    T382:;
1116            goto T381;}
1117            goto T375;
1118    T375:;
1119            {object V212 = Ct;
1120            VMR11(V212)}
1121          va_end(ap);          va_end(ap);
1122          base[0]=base[0];          base[0]=base[0];
1123          return Cnil;}          return Cnil;}
1124          }          }
1125  /*      local entry for function CHECK-INITARGS-2-LIST  */  /*      local entry for function CHECK-INITARGS-2-LIST  */
1126    
1127  static object LI12(object V214,object V213,object V212,object first,...)  static object LI12(object V215,object V214,object V213,object first,...)
1128  {        {      
1129          va_list ap;          va_list ap;
1130          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
1131          {object V215;          {object V216;
         register object V216;  
1132          register object V217;          register object V217;
1133          register object V218;          register object V218;
1134            register object V219;
1135          va_start(ap,first);          va_start(ap,first);
1136          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1137          V215= V214;          V216= V215;
1138          V216= V213;          V217= V214;
1139          V217= V212;          V218= V213;
1140          narg = narg - 3;          narg = narg - 3;
1141          if (narg <= 0) goto T357;          if (narg <= 0) goto T417;
1142          else {          else {
1143          V218= first;}          V219= first;}
1144          --narg; goto T358;          --narg; goto T418;
1145          goto T357;          goto T417;
1146  T357:;  T417:;
1147          V218= Ct;          V219= Ct;
1148          goto T358;          goto T418;
1149  T358:;  T418:;
1150          {register object x= VV[18],V219= (V215);          {register object x= VV[21],V220= (V216);
1151          while(V219!=Cnil)          while(V220!=Cnil)
1152          if(x==(V219->c.c_car)){          if(x==(V220->c.c_car)){
1153          goto T360;          goto T420;
1154          }else V219=V219->c.c_cdr;}          }else V220=V220->c.c_cdr;}
1155          {register object V220;          {register object V221;
1156          register object V221;          register object V222;
1157          V220= (V215);          V221= (V216);
1158          V221= CMPcar((V220));          V222= CMPcar((V221));
1159          goto T366;          goto T426;
1160  T366:;  T426:;
1161          if(!(((V220))==Cnil)){          if(!(((V221))==Cnil)){
1162          goto T367;}          goto T427;}
1163          goto T360;          goto T420;
1164          goto T367;          goto T427;
1165  T367:;  T427:;
1166          {register object x= (V221),V222= (V217);          {register object x= (V222),V223= (V218);
1167          while(V222!=Cnil)          while(V223!=Cnil)
1168          if(x==(V222->c.c_car)){          if(x==(V223->c.c_car)){
1169          goto T371;          goto T431;
1170          }else V222=V222->c.c_cdr;}          }else V223=V223->c.c_cdr;}
1171          if(((V218))==Cnil){          if(((V219))==Cnil){
1172          goto T375;}          goto T435;}
1173          base[1]= VV[20];          base[1]= VV[4];
1174          base[2]= (V221);          base[2]= VV[23];
1175          base[4]= (V216);          base[3]= (V222);
1176          vs_top=(vs_base=base+4)+1;          base[5]= (V217);
1177          (void) (*Lnk27)(Lclptr27);          vs_top=(vs_base=base+5)+1;
1178            (void) (*Lnk30)(Lclptr30);
1179          vs_top=sup;          vs_top=sup;
1180          base[3]= vs_base[0];          base[4]= vs_base[0];
1181          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+4;
1182          Lerror();          (void) (*Lnk31)();
1183          vs_top=sup;          vs_top=sup;
1184          goto T371;          goto T431;
1185          goto T375;          goto T435;
1186  T375:;  T435:;
1187          {object V223 = Cnil;          {object V224 = Cnil;
         VMR12(V223)}  
         goto T371;  
 T371:;  
         V220= CMPcdr((V220));  
         V221= CMPcar((V220));  
         goto T366;}  
         goto T360;  
 T360:;  
         {object V224 = Ct;  
1188          VMR12(V224)}          VMR12(V224)}
1189            goto T431;
1190    T431:;
1191            V221= CMPcdr((V221));
1192            V222= CMPcar((V221));
1193            goto T426;}
1194            goto T420;
1195    T420:;
1196            {object V225 = Ct;
1197            VMR12(V225)}
1198          va_end(ap);          va_end(ap);
1199          base[0]=base[0];          base[0]=base[0];
1200          return Cnil;}          return Cnil;}
1201          }          }
1202  static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* ANALYZE-LAMBDA-LIST */  static void LnkT52(){ call_or_link(VV[52],(void **)(void *)&Lnk52);} /* ANALYZE-LAMBDA-LIST */
1203  static void LnkT47(ptr) object *ptr;{ call_or_link_closure(VV[47],(void **)(void *)&Lnk47,(void **)(void *)&Lclptr47);} /* METHOD-LAMBDA-LIST */  static void LnkT51(ptr) object *ptr;{ call_or_link_closure(VV[51],(void **)(void *)&Lnk51,(void **)(void *)&Lclptr51);} /* METHOD-LAMBDA-LIST */
1204  static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */
1205  static void LnkT45(ptr) object *ptr;{ call_or_link_closure(VV[45],(void **)(void *)&Lnk45,(void **)(void *)&Lclptr45);} /* COMPUTE-APPLICABLE-METHODS */  static void LnkT49(ptr) object *ptr;{ call_or_link_closure(VV[49],(void **)(void *)&Lnk49,(void **)(void *)&Lclptr49);} /* COMPUTE-APPLICABLE-METHODS */
1206  static object  LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
1207  static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-LIST */  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)(void *)&LnkLI47,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-LIST */
1208  static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[42],(void **)(void *)&LnkLI42,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-PLIST */  static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[46],(void **)(void *)&LnkLI46,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-PLIST */
1209  static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */  static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* CHECK-INITARGS-VALUES */
1210  static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */  static void LnkT44(ptr) object *ptr;{ call_or_link_closure(VV[44],(void **)(void *)&Lnk44,(void **)(void *)&Lclptr44);} /* SLOT-DEFINITION-INITFUNCTION */
1211  static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */  static void LnkT43(ptr) object *ptr;{ call_or_link_closure(VV[43],(void **)(void *)&Lnk43,(void **)(void *)&Lclptr43);} /* SLOT-BOUNDP-USING-CLASS */
1212  static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */  static void LnkT41(ptr) object *ptr;{ call_or_link_closure(VV[41],(void **)(void *)&Lnk41,(void **)(void *)&Lclptr41);} /* SLOT-DEFINITION-INITARGS */
1213  static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT40(){ call_or_link(VV[40],(void **)(void *)&Lnk40);} /* CCLOSURE-ENV-NTHCDR */
1214  static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */
1215  static void LnkT34(ptr) object *ptr;{ call_or_link_closure(VV[34],(void **)(void *)&Lnk34,(void **)(void *)&Lclptr34);} /* SLOT-DEFINITION-ALLOCATION */  static void LnkT38(ptr) object *ptr;{ call_or_link_closure(VV[38],(void **)(void *)&Lnk38,(void **)(void *)&Lclptr38);} /* SLOT-DEFINITION-ALLOCATION */
1216  static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* SLOT-DEFINITION-NAME */  static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-NAME */
1217  static void LnkT32(ptr) object *ptr;{ call_or_link_closure(VV[32],(void **)(void *)&Lnk32,(void **)(void *)&Lclptr32);} /* CLASS-SLOTS */  static void LnkT36(ptr) object *ptr;{ call_or_link_closure(VV[36],(void **)(void *)&Lnk36,(void **)(void *)&Lclptr36);} /* CLASS-SLOTS */
1218  static object  LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)(void *)&LnkLI31,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[35],(void **)(void *)&LnkLI35,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
1219  static void LnkT11(ptr) object *ptr;{ call_or_link_closure(VV[11],(void **)(void *)&Lnk11,(void **)(void *)&Lclptr11);} /* SHARED-INITIALIZE */  static void LnkT12(ptr) object *ptr;{ call_or_link_closure(VV[12],(void **)(void *)&Lnk12,(void **)(void *)&Lclptr12);} /* SHARED-INITIALIZE */
1220  static object  LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */  static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */
1221  static void LnkT29(ptr) object *ptr;{ call_or_link_closure(VV[29],(void **)(void *)&Lnk29,(void **)(void *)&Lclptr29);} /* INITIALIZE-INSTANCE */  static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* INITIALIZE-INSTANCE */
1222  static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* ALLOCATE-INSTANCE */  static void LnkT32(ptr) object *ptr;{ call_or_link_closure(VV[32],(void **)(void *)&Lnk32,(void **)(void *)&Lclptr32);} /* ALLOCATE-INSTANCE */
1223  static void LnkT27(ptr) object *ptr;{ call_or_link_closure(VV[27],(void **)(void *)&Lnk27,(void **)(void *)&Lclptr27);} /* CLASS-NAME */  static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* SPECIFIC-ERROR */
1224  static object  LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */  static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* CLASS-NAME */
1225    static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */
1226  static object  LnkTLI0(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[0],(void **)(void *)&LnkLI0,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */  static object  LnkTLI0(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[0],(void **)(void *)&LnkLI0,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */
1227  static void LnkT25(ptr) object *ptr;{ call_or_link_closure(VV[25],(void **)(void *)&Lnk25,(void **)(void *)&Lclptr25);} /* DEFAULT-INITARGS */  static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* DEFAULT-INITARGS */
1228  static void LnkT24(ptr) object *ptr;{ call_or_link_closure(VV[24],(void **)(void *)&Lnk24,(void **)(void *)&Lclptr24);} /* FINALIZE-INHERITANCE */  static void LnkT27(ptr) object *ptr;{ call_or_link_closure(VV[27],(void **)(void *)&Lnk27,(void **)(void *)&Lclptr27);} /* FINALIZE-INHERITANCE */
1229  static void LnkT23(ptr) object *ptr;{ call_or_link_closure(VV[23],(void **)(void *)&Lnk23,(void **)(void *)&Lclptr23);} /* CLASS-FINALIZED-P */  static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* CLASS-FINALIZED-P */
1230  static void LnkT21(ptr) object *ptr;{ call_or_link_closure(VV[21],(void **)(void *)&Lnk21,(void **)(void *)&Lclptr21);} /* MAKE-INSTANCE */  static void LnkT24(ptr) object *ptr;{ call_or_link_closure(VV[24],(void **)(void *)&Lnk24,(void **)(void *)&Lclptr24);} /* MAKE-INSTANCE */
1231  static object  LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
1232    
1233  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1234  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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