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

Diff of /gcl/pcl/pcl_boot.c

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

revision 1.6 by camm, Tue Oct 7 21:07:35 2003 UTC revision 1.7 by camm, Thu Oct 23 15:30:11 2003 UTC
# Line 13  TTL:; Line 13  TTL:;
13          base[0]=MMcons((V4),Cnil);          base[0]=MMcons((V4),Cnil);
14          {object V6;          {object V6;
15          base[2]=          base[2]=
16          make_cclosure_new(LC128,Cnil,base[0],Cdata);          make_cclosure_new(LC124,Cnil,base[0],Cdata);
17          base[3]= (V3);          base[3]= (V3);
18          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
19          (void) (*Lnk346)();          (void) (*Lnk361)();
20          vs_top=sup;          vs_top=sup;
21          V6= vs_base[0];          V6= vs_base[0];
22          base[2]= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          base[2]= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
23          base[3]= (V6);          base[3]= (V6);
24          base[4]= V3;          base[4]= V3;
25          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 49  static void L3() Line 49  static void L3()
49          base[3]= (V8->c.c_car);          base[3]= (V8->c.c_car);
50          V8=V8->c.c_cdr;          V8=V8->c.c_cdr;
51          base[4]= V8;}          base[4]= V8;}
52          base[5]= (*(LnkLI348))(base[2],base[3],base[4]);          base[5]= (*(LnkLI363))(base[2],base[3],base[4]);
53          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
54          return;          return;
55  }  }
# Line 61  object V12;object V13;object V14; Line 61  object V12;object V13;object V14;
61  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
62          goto TTL;          goto TTL;
63  TTL:;  TTL:;
         if(!(type_of((V12))==t_cons||((V12))==Cnil)){  
         goto T7;}  
         (void)((*(LnkLI349))(CMPcadr((V12))));  
         goto T7;  
 T7:;  
64          {register object V15;          {register object V15;
65          object V16;          base[0]= Cnil;
66          V15= Cnil;          V15= Cnil;
67          V16= Cnil;          {register object V16;
68          {register object V17;          register object V17;
69          register object V18;          V16= (V14);
70          V17= (V14);          V17= CMPcar((V16));
71          V18= CMPcar((V17));          goto T12;
72          goto T15;  T12:;
73  T15:;          if(!(((V16))==Cnil)){
74          if(!(((V17))==Cnil)){          goto T13;}
75          goto T16;}          goto T8;
76          goto T11;          goto T13;
77          goto T16;  T13:;
78  T16:;          {object V18= CMPcar((V17));
79          {object V19= CMPcar((V18));          if((V18!= VV[0]))goto T18;
         if((V19!= VV[0]))goto T21;  
         base[1]= (V15);  
80          base[2]= VV[0];          base[2]= VV[0];
81          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+2)+1;
82          Lgetf();          L7(base);
83          vs_top=sup;          vs_top=sup;
84          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
85          goto T23;}          goto T20;}
86          base[1]= VV[0];          base[2]= VV[0];
87          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+2)+1;
88          L5(base);          L5(base);
89          vs_top=sup;          vs_top=sup;
90            goto T17;
91          goto T20;          goto T20;
92          goto T23;  T20:;
93  T23:;          base[2]= VV[0];
94          {register object V21;          base[3]= list(2,VV[1],CMPcdr((V17)));
         V21= list(2,VV[1],CMPcdr((V18)));  
         {object V22;  
         base[2]= (V15);  
         base[3]= (V21);  
         base[4]= VV[0];  
         vs_top=(vs_base=base+2)+3;  
         siLput_f();  
         vs_top=sup;  
         V22= vs_base[0];  
         V15= (V22);  
         goto T20;}}  
         goto T21;  
 T21:;  
         if((V19!= VV[45]))goto T35;  
         {register object V24;  
         V25= CMPcdr((V18));  
         base[2]= (V15);  
         base[3]= VV[2];  
95          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
96          Lgetf();          L7(base);
97            vs_top=sup;
98            goto T17;
99            goto T18;
100    T18:;
101            if((V18!= VV[49]))goto T26;
102            base[2]= CMPcdr((V17));
103            vs_top=(vs_base=base+2)+1;
104            L6(base);
105          vs_top=sup;          vs_top=sup;
106          V26= vs_base[0];          base[2]= VV[2];
107          V24= append(/* INLINE-ARGS */V25,V26);          V19= CMPcdr((V17));
         {object V27;  
         base[2]= (V15);  
         base[3]= (V24);  
108          base[4]= VV[2];          base[4]= VV[2];
109          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+4)+1;
110          siLput_f();          L7(base);
111          vs_top=sup;          vs_top=sup;
112          V27= vs_base[0];          V20= vs_base[0];
113          V15= (V27);          base[3]= append(/* INLINE-ARGS */V19,V20);
114          goto T20;}}          vs_top=(vs_base=base+2)+2;
115          goto T35;          L7(base);
116  T35:;          vs_top=sup;
117          if((V19!= VV[3]))goto T46;          goto T17;
118          base[1]= (V15);          goto T26;
119    T26:;
120            if((V18!= VV[3]))goto T33;
121          base[2]= VV[3];          base[2]= VV[3];
122          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+2)+1;
123          Lgetf();          L7(base);
124          vs_top=sup;          vs_top=sup;
125          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
126          goto T48;}          goto T35;}
127          base[1]= VV[3];          base[2]= VV[3];
128          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+2)+1;
129          L5(base);          L5(base);
130          vs_top=sup;          vs_top=sup;
131          goto T20;          goto T17;
132          goto T48;          goto T35;
133  T48:;  T35:;
134          {register object V29;          base[2]= VV[3];
135          V29= list(2,VV[1],CMPcadr((V18)));          base[3]= list(2,VV[1],CMPcadr((V17)));
136          {object V30;          vs_top=(vs_base=base+2)+2;
137          base[2]= (V15);          L7(base);
         base[3]= (V29);  
         base[4]= VV[3];  
         vs_top=(vs_base=base+2)+3;  
         siLput_f();  
138          vs_top=sup;          vs_top=sup;
139          V30= vs_base[0];          goto T17;
140          V15= (V30);          goto T33;
141          goto T20;}}  T33:;
142          goto T46;          if((V18!= VV[4]))goto T41;
 T46:;  
         if((V19!= VV[4]))goto T60;  
         base[1]= (V15);  
143          base[2]= VV[4];          base[2]= VV[4];
144          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+2)+1;
145          Lgetf();          L7(base);
146          vs_top=sup;          vs_top=sup;
147          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
148          goto T62;}          goto T43;}
149          base[1]= VV[4];          base[2]= VV[4];
150          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+2)+1;
151          L5(base);          L5(base);
152          vs_top=sup;          vs_top=sup;
153          goto T20;          goto T17;
154          goto T62;          goto T43;
155  T62:;  T43:;
156          {register object V32;          base[2]= VV[4];
157          V32= list(2,VV[1],CMPcdr((V18)));          base[3]= list(2,VV[1],CMPcdr((V17)));
158          {object V33;          vs_top=(vs_base=base+2)+2;
159          base[2]= (V15);          L7(base);
         base[3]= (V32);  
         base[4]= VV[4];  
         vs_top=(vs_base=base+2)+3;  
         siLput_f();  
160          vs_top=sup;          vs_top=sup;
161          V33= vs_base[0];          goto T17;
162          V15= (V33);          goto T41;
163          goto T20;}}  T41:;
164          goto T60;          if((V18!= VV[5]))goto T49;
 T60:;  
         if((V19!= VV[5]))goto T74;  
         base[1]= (V15);  
165          base[2]= VV[5];          base[2]= VV[5];
166          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+2)+1;
167          Lgetf();          L7(base);
168          vs_top=sup;          vs_top=sup;
169          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
170          goto T76;}          goto T51;}
171          base[1]= VV[5];          base[2]= VV[5];
172          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+2)+1;
173          L5(base);          L5(base);
174          vs_top=sup;          vs_top=sup;
175          goto T20;          goto T17;
176          goto T76;          goto T51;
177  T76:;  T51:;
178          {register object V35;          base[2]= VV[5];
179          V35= list(2,VV[1],CMPcadr((V18)));          base[3]= list(2,VV[1],CMPcadr((V17)));
180          {object V36;          vs_top=(vs_base=base+2)+2;
181          base[2]= (V15);          L7(base);
         base[3]= (V35);  
         base[4]= VV[5];  
         vs_top=(vs_base=base+2)+3;  
         siLput_f();  
182          vs_top=sup;          vs_top=sup;
183          V36= vs_base[0];          goto T17;
184          V15= (V36);          goto T49;
185          goto T20;}}  T49:;
186          goto T74;          if((V18!= VV[6]))goto T57;
 T74:;  
         if((V19!= VV[6]))goto T88;  
         base[1]= (V15);  
187          base[2]= VV[6];          base[2]= VV[6];
188          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+2)+1;
189          Lgetf();          L7(base);
190          vs_top=sup;          vs_top=sup;
191          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
192          goto T90;}          goto T59;}
193          base[1]= VV[6];          base[2]= VV[6];
194          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+2)+1;
195          L5(base);          L5(base);
196          vs_top=sup;          vs_top=sup;
197          goto T20;          goto T17;
198          goto T90;          goto T59;
199  T90:;  T59:;
200          {register object V38;          base[2]= VV[6];
201          V38= list(2,VV[1],CMPcadr((V18)));          base[3]= list(2,VV[1],CMPcadr((V17)));
202          {object V39;          vs_top=(vs_base=base+2)+2;
203          base[2]= (V15);          L7(base);
         base[3]= (V38);  
         base[4]= VV[6];  
         vs_top=(vs_base=base+2)+3;  
         siLput_f();  
204          vs_top=sup;          vs_top=sup;
205          V39= vs_base[0];          goto T17;
206          V15= (V39);          goto T57;
207          goto T20;}}  T57:;
208          goto T88;          if((V18!= VV[219]))goto T65;
209  T88:;          {object V21;
210          if((V19!= VV[209]))goto T102;          V21= listA(3,VV[7],(V12),CMPcdr((V17)));
211          {object V40;          V15= make_cons((V21),(V15));
212          V40= listA(3,VV[7],(V12),CMPcdr((V18)));          goto T17;}
213          V16= make_cons((V40),(V16));          goto T65;
214          goto T20;}  T65:;
215          goto T102;          base[2]= VV[8];
216  T102:;          base[3]= VV[9];
217          FEerror("The ECASE key value ~s is illegal.",1,V19);          base[4]= (V17);
218          goto T20;}          vs_top=(vs_base=base+2)+3;
219          goto T20;          (void) (*Lnk364)();
220  T20:;          vs_top=sup;}
221          V17= CMPcdr((V17));          goto T17;
222          V18= CMPcar((V17));  T17:;
223          goto T15;}          V16= CMPcdr((V16));
224          goto T11;          V17= CMPcar((V16));
225  T11:;          goto T12;}
226          {object V41;          goto T8;
227          base[0]= (V15);  T8:;
228            {object V22;
229          base[1]= VV[2];          base[1]= VV[2];
230          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+1)+1;
231          Lgetf();          L7(base);
         vs_top=sup;  
         V41= vs_base[0];  
         if(((V41))==Cnil){  
         goto T10;}  
         {object V43;  
         V43= list(2,VV[1],(V41));  
         {object V44;  
         base[1]= (V15);  
         base[2]= (V43);  
         base[3]= VV[2];  
         vs_top=(vs_base=base+1)+3;  
         siLput_f();  
232          vs_top=sup;          vs_top=sup;
233          V44= vs_base[0];          V22= vs_base[0];
234          V15= (V44);}}}          if(((V22))==Cnil){
235          goto T10;          goto T7;}
236  T10:;          base[1]= VV[2];
237          V45= list(2,VV[1],(V12));          base[2]= list(2,VV[1],(V22));
238          V46= list(3,VV[10],/* INLINE-ARGS */V45,list(2,VV[1],(V13)));          vs_top=(vs_base=base+1)+2;
239          V47= list(2,VV[11],(V12));{object V48;          L7(base);
240          V48= (VV[12]->s.s_dbind);          vs_top=sup;}
241          V49= list(2,VV[1],(V12));          goto T7;
242          V50= listA(4,VV[13],/* INLINE-ARGS */V49,list(2,VV[1],(V13)),(V15));  T7:;
243          V51= (*(LnkLI350))(/* INLINE-ARGS */V47,V48,/* INLINE-ARGS */V50);          V23= list(2,VV[1],(V12));
244          V52= list(2,VV[14],(V12));          V24= list(3,VV[14],/* INLINE-ARGS */V23,list(2,VV[1],(V13)));
245          V53= make_cons(/* INLINE-ARGS */V52,Cnil);          V25= list(2,VV[15],(V12));{object V26;
246          {object V54 = listA(4,VV[9],/* INLINE-ARGS */V46,/* INLINE-ARGS */V51,append((V16),/* INLINE-ARGS */V53));          V26= (VV[16]->s.s_dbind);
247          VMR3(V54)}}}          V27= list(2,VV[1],(V12));
248            V28= listA(4,VV[17],/* INLINE-ARGS */V27,list(2,VV[1],(V13)),base[0]);
249            V29= (*(LnkLI365))(/* INLINE-ARGS */V25,V26,/* INLINE-ARGS */V28);
250            V30= list(2,VV[18],(V12));
251            V31= make_cons(/* INLINE-ARGS */V30,Cnil);
252            {object V32 = listA(4,VV[13],/* INLINE-ARGS */V24,/* INLINE-ARGS */V29,append((V15),/* INLINE-ARGS */V31));
253            VMR3(V32)}}}
254          base[0]=base[0];          base[0]=base[0];
255          return Cnil;          return Cnil;
256  }  }
257  /*      function definition for LOAD-DEFGENERIC */  /*      function definition for LOAD-DEFGENERIC */
258    
259  static void L6()  static void L8()
260  {register object *base=vs_base;  {register object *base=vs_base;
261          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
262          vs_check;          vs_check;
263          {register object V55;          {object V33;
264          object V56;          object V34;
265          object V57;          object V35;
266          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
267          V55=(base[0]);          V33=(base[0]);
268          V56=(base[1]);          V34=(base[1]);
269          vs_base=vs_base+2;          vs_base=vs_base+2;
270          vs_top[0]=Cnil;          vs_top[0]=Cnil;
271          {object *p=vs_top;          {object *p=vs_top;
272           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
273          V57=(base[2]);          V35=(base[2]);
274          vs_top=sup;          vs_top=sup;
275          if(!(type_of((V55))==t_cons||((V55))==Cnil)){          base[3]= (V33);
276          goto T122;}          base[4]= VV[19];
277          (void)((*(LnkLI349))(CMPcadr((V55))));          base[5]= (V34);
278          goto T122;          base[6]= VV[20];
279  T122:;          V37= list(2,VV[15],(V33));
         base[3]= (V55);  
         base[4]= VV[15];  
         base[5]= (V56);  
         base[6]= VV[16];  
         V59= list(2,VV[11],(V55));  
280          vs_base=vs_top;          vs_base=vs_top;
281          (void) (*Lnk351)();          (void) (*Lnk366)();
282          vs_top=sup;          vs_top=sup;
283          V60= vs_base[0];          V38= vs_base[0];
284          base[7]= list(2,/* INLINE-ARGS */V59,V60);          base[7]= list(2,/* INLINE-ARGS */V37,V38);
285          {object V58;          {object V36;
286          V58= (V57);          V36= (V35);
287           vs_top=base+8;           vs_top=base+8;
288           while(V58!=Cnil)           while(V36!=Cnil)
289           {vs_push((V58)->c.c_car);V58=(V58)->c.c_cdr;}           {vs_push((V36)->c.c_car);V36=(V36)->c.c_cdr;}
290          vs_base=base+3;}          vs_base=base+3;}
291          (void) (*Lnk352)();          (void) (*Lnk367)();
292          return;          return;
293          }          }
294  }  }
295  /*      macro definition for DEFMETHOD  */  /*      macro definition for DEFMETHOD  */
296    
297  static void L7()  static void L9()
298  {register object *base=vs_base;  {register object *base=vs_base;
299          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
300          vs_check;          vs_check;
301          check_arg(2);          check_arg(2);
302          vs_top=sup;          vs_top=sup;
303          {object V61=base[0]->c.c_cdr;          {object V39=base[0]->c.c_cdr;
304          base[2]= V61;}          base[2]= V39;}
305          {object V62;          {object V40;
306          object V63;          object V41;
307          object V64;          object V42;
308          object V65;          object V43;
309          base[3]= base[2];          base[3]= base[2];
310          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
311          (void) (*Lnk353)();          (void) (*Lnk368)();
312          if(vs_base>=vs_top){vs_top=sup;goto T134;}          if(vs_base>=vs_top){vs_top=sup;goto T91;}
313          V62= vs_base[0];          V40= vs_base[0];
314          vs_base++;          vs_base++;
315          if(vs_base>=vs_top){vs_top=sup;goto T135;}          if(vs_base>=vs_top){vs_top=sup;goto T92;}
316          V63= vs_base[0];          V41= vs_base[0];
317          vs_base++;          vs_base++;
318          if(vs_base>=vs_top){vs_top=sup;goto T136;}          if(vs_base>=vs_top){vs_top=sup;goto T93;}
319          V64= vs_base[0];          V42= vs_base[0];
320          vs_base++;          vs_base++;
321          if(vs_base>=vs_top){vs_top=sup;goto T137;}          if(vs_base>=vs_top){vs_top=sup;goto T94;}
322          V65= vs_base[0];          V43= vs_base[0];
323          vs_top=sup;          vs_top=sup;
324          goto T138;          goto T95;
325          goto T134;          goto T91;
326  T134:;  T91:;
327          V62= Cnil;          V40= Cnil;
328          goto T135;          goto T92;
329  T135:;  T92:;
330          V63= Cnil;          V41= Cnil;
331          goto T136;          goto T93;
332  T136:;  T93:;
333          V64= Cnil;          V42= Cnil;
334          goto T137;          goto T94;
335  T137:;  T94:;
336          V65= Cnil;          V43= Cnil;
337          goto T138;          goto T95;
338  T138:;  T95:;
339          {object V66;          {object V44;
340          object V67;          object V45;
341          base[3]= (V62);          base[3]= (V40);
342          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
343          (void) (*Lnk354)();          (void) (*Lnk369)();
344          if(vs_base>=vs_top){vs_top=sup;goto T141;}          if(vs_base>=vs_top){vs_top=sup;goto T98;}
345          V66= vs_base[0];          V44= vs_base[0];
346          vs_base++;          vs_base++;
347          if(vs_base>=vs_top){vs_top=sup;goto T142;}          if(vs_base>=vs_top){vs_top=sup;goto T99;}
348          V67= vs_base[0];          V45= vs_base[0];
349          vs_top=sup;          vs_top=sup;
350          goto T143;          goto T100;
351          goto T141;          goto T98;
352  T141:;  T98:;
353          V66= Cnil;          V44= Cnil;
354          goto T142;          goto T99;
355  T142:;  T99:;
356          V67= Cnil;          V45= Cnil;
357          goto T143;          goto T100;
358  T143:;  T100:;
359          base[3]= (*(LnkLI355))((V62),(V66),(V67),(V63),(V64),(V65),base[1]);          base[3]= (*(LnkLI370))((V40),(V44),(V45),(V41),(V42),(V43),base[1]);
360          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
361          return;}}          return;}}
362  }  }
363  /*      function definition for PROTOTYPES-FOR-MAKE-METHOD-LAMBDA       */  /*      function definition for PROTOTYPES-FOR-MAKE-METHOD-LAMBDA       */
364    
365  static void L8()  static void L10()
366  {register object *base=vs_base;  {register object *base=vs_base;
367          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
368          vs_check;          vs_check;
369          {object V68;          {object V46;
370          check_arg(1);          check_arg(1);
371          V68=(base[0]);          V46=(base[0]);
372          vs_top=sup;          vs_top=sup;
373          goto TTL;          goto TTL;
374  TTL:;  TTL:;
375          if(((VV[17]->s.s_dbind))==(VV[18])){          if(((VV[21]->s.s_dbind))==(VV[22])){
376          goto T145;}          goto T102;}
377          base[1]= Cnil;          base[1]= Cnil;
378          base[2]= Cnil;          base[2]= Cnil;
379          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
380          return;          return;
381          goto T145;          goto T102;
382  T145:;  T102:;
383          {register object V69;          {register object V47;
384          if(((*(LnkLI356))((V68)))!=Cnil){          if(((*(LnkLI371))((V46)))!=Cnil){
385          goto T150;}          goto T107;}
386          V69= Cnil;          V47= Cnil;
387          goto T149;          goto T106;
388          goto T150;          goto T107;
389  T150:;  T107:;
390          V69= (*(LnkLI347))((V68));          V47= (*(LnkLI362))((V46));
391          goto T149;          goto T106;
392  T149:;  T106:;
393          if(((V69))==Cnil){          if(((V47))==Cnil){
394          goto T152;}          goto T109;}
395          base[1]= (V69);          base[1]= (V47);
396          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
397          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk372)(Lclptr372);
398          vs_top=sup;          vs_top=sup;
399          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
400          goto T153;}          goto T110;}
401          goto T152;          goto T109;
402  T152:;  T109:;
403          base[2]= (VFUN_NARGS=1,(*(LnkLI291))(VV[19]));          base[2]= (VFUN_NARGS=1,(*(LnkLI304))(VV[23]));
404          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
405          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
406          vs_top=sup;          vs_top=sup;
407          base[1]= vs_base[0];          base[1]= vs_base[0];
408          base[3]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20]));          base[3]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24]));
409          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
410          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
411          vs_top=sup;          vs_top=sup;
412          base[2]= vs_base[0];          base[2]= vs_base[0];
413          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
414          return;          return;
415          goto T153;          goto T110;
416  T153:;  T110:;
417          base[1]= (V69);{object V70;          base[1]= (V47);{object V48;
418          base[4]= (V69);          base[4]= (V47);
419          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
420          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk373)(Lclptr373);
421          vs_top=sup;          vs_top=sup;
422          V70= vs_base[0];          V48= vs_base[0];
423          if(V70==Cnil)goto T165;          if(V48==Cnil)goto T122;
424          base[3]= V70;          base[3]= V48;
425          goto T164;          goto T121;
426          goto T165;          goto T122;
427  T165:;}  T122:;}
428          base[3]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20]));          base[3]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24]));
429          goto T164;          goto T121;
430  T164:;  T121:;
431          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
432          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
433          vs_top=sup;          vs_top=sup;
434          base[2]= vs_base[0];          base[2]= vs_base[0];
435          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 490  T164:; Line 438  T164:;
438  }  }
439  /*      function definition for METHOD-PROTOTYPE-FOR-GF */  /*      function definition for METHOD-PROTOTYPE-FOR-GF */
440    
441  static void L9()  static void L11()
442  {register object *base=vs_base;  {register object *base=vs_base;
443          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
444          vs_check;          vs_check;
445          {object V71;          {object V49;
446          check_arg(1);          check_arg(1);
447          V71=(base[0]);          V49=(base[0]);
448          vs_top=sup;          vs_top=sup;
449          goto TTL;          goto TTL;
450  TTL:;  TTL:;
451          {object V72;          {object V50;
452          if(((*(LnkLI356))((V71)))!=Cnil){          if(((*(LnkLI371))((V49)))!=Cnil){
453          goto T169;}          goto T126;}
454          V72= Cnil;          V50= Cnil;
455          goto T168;          goto T125;
456          goto T169;          goto T126;
457  T169:;  T126:;
458          V72= (*(LnkLI347))((V71));          V50= (*(LnkLI362))((V49));
459          goto T168;          goto T125;
460  T168:;  T125:;
461          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){          if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){
462          goto T172;}          goto T129;}
463          base[1]= Cnil;          base[1]= Cnil;
464          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
465          return;          return;
466          goto T172;          goto T129;
467  T172:;  T129:;
468          if(((V72))==Cnil){          if(((V50))==Cnil){
469          goto T174;}          goto T131;}
470          base[1]= (V72);          base[1]= (V50);
471          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
472          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk372)(Lclptr372);
473          vs_top=sup;          vs_top=sup;
474          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
475          goto T175;}          goto T132;}
476          goto T174;          goto T131;
477  T174:;  T131:;
478          base[1]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20]));          base[1]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24]));
479          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
480          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
481          return;          return;
482          goto T175;          goto T132;
483  T175:;{object V73;  T132:;{object V51;
484          base[2]= (V72);          base[2]= (V50);
485          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
486          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk373)(Lclptr373);
487          vs_top=sup;          vs_top=sup;
488          V73= vs_base[0];          V51= vs_base[0];
489          if(V73==Cnil)goto T182;          if(V51==Cnil)goto T139;
490          base[1]= V73;          base[1]= V51;
491          goto T181;          goto T138;
492          goto T182;          goto T139;
493  T182:;}  T139:;}
494          base[1]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20]));          base[1]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24]));
495          goto T181;          goto T138;
496  T181:;  T138:;
497          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
498          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
499          return;}          return;}
500          }          }
501  }  }
502  /*      local entry for function EXPAND-DEFMETHOD       */  /*      local entry for function EXPAND-DEFMETHOD       */
503    
504  static object LI10(V81,V82,V83,V84,V85,V86,V87)  static object LI12(V59,V60,V61,V62,V63,V64,V65)
505    
506  register object V81;object V82;register object V83;object V84;object V85;object V86;object V87;  object V59;object V60;register object V61;object V62;object V63;object V64;object V65;
507  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
508          bds_check;          bds_check;
509          goto TTL;          goto TTL;
510  TTL:;  TTL:;
         if(!(type_of((V81))==t_cons||((V81))==Cnil)){  
         goto T185;}  
         (void)((*(LnkLI349))(CMPcadr((V81))));  
         goto T185;  
 T185:;  
         bds_bind(VV[21],Cnil);  
         bds_bind(VV[22],Ct);  
         bds_bind(VV[23],Cnil);  
         bds_bind(VV[24],Cnil);  
511          bds_bind(VV[25],Cnil);          bds_bind(VV[25],Cnil);
512          {object V88;          bds_bind(VV[26],Ct);
513          object V89;          bds_bind(VV[27],Cnil);
514          object V90;          bds_bind(VV[28],Cnil);
515          base[5]= (V81);          bds_bind(VV[29],Cnil);
516          base[6]= (V84);          {object V66;
517          base[7]= (V85);          object V67;
518          base[8]= (V86);          object V68;
519          base[9]= (V87);          base[5]= (V59);
520            base[6]= (V62);
521            base[7]= (V63);
522            base[8]= (V64);
523            base[9]= (V65);
524          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
525          (void) (*Lnk359)();          (void) (*Lnk374)();
526          if(vs_base>=vs_top){vs_top=sup;goto T194;}          if(vs_base>=vs_top){vs_top=sup;goto T148;}
527          V88= vs_base[0];          V66= vs_base[0];
528          vs_base++;          vs_base++;
529          if(vs_base>=vs_top){vs_top=sup;goto T195;}          if(vs_base>=vs_top){vs_top=sup;goto T149;}
530          V89= vs_base[0];          V67= vs_base[0];
531          vs_base++;          vs_base++;
532          if(vs_base>=vs_top){vs_top=sup;goto T196;}          if(vs_base>=vs_top){vs_top=sup;goto T150;}
533          V90= vs_base[0];          V68= vs_base[0];
534          vs_top=sup;          vs_top=sup;
535          goto T197;          goto T151;
536          goto T194;          goto T148;
537  T194:;  T148:;
538          V88= Cnil;          V66= Cnil;
539          goto T195;          goto T149;
540  T195:;  T149:;
541          V89= Cnil;          V67= Cnil;
542          goto T196;          goto T150;
543  T196:;  T150:;
544          V90= Cnil;          V68= Cnil;
545          goto T197;          goto T151;
546  T197:;  T151:;
547          {object V91;          {object V69;
548          object V92;          object V70;
549          base[5]= (V82);          base[5]= (V60);
550          base[6]= (V83);          base[6]= (V61);
551          base[7]= (V88);          base[7]= (V66);
552          base[8]= (V87);          base[8]= (V65);
553          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
554          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk375)(Lclptr375);
555          if(vs_base>=vs_top){vs_top=sup;goto T203;}          if(vs_base>=vs_top){vs_top=sup;goto T157;}
556          V91= vs_base[0];          V69= vs_base[0];
557          vs_base++;          vs_base++;
558          if(vs_base>=vs_top){vs_top=sup;goto T204;}          if(vs_base>=vs_top){vs_top=sup;goto T158;}
559          V92= vs_base[0];          V70= vs_base[0];
560          vs_top=sup;          vs_top=sup;
561          goto T205;          goto T159;
562          goto T203;          goto T157;
563  T203:;  T157:;
564          V91= Cnil;          V69= Cnil;
565          goto T204;          goto T158;
566  T204:;  T158:;
567          V92= Cnil;          V70= Cnil;
568          goto T205;          goto T159;
569  T205:;  T159:;
570          {object V93;          {object V71;
571          base[5]= (V82);          base[5]= (V60);
572          base[6]= (V83);          base[6]= (V61);
573          base[7]= (V91);          base[7]= (V69);
574          base[8]= (V92);          base[8]= (V70);
575          base[9]= (V87);          base[9]= (V65);
576          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
577          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk376)(Lclptr376);
578          vs_top=sup;          vs_top=sup;
579          V93= vs_base[0];          V71= vs_base[0];
580          V94= list(2,VV[1],(V81));          V72= list(2,VV[1],(V59));
581          V95= list(3,VV[10],/* INLINE-ARGS */V94,list(2,VV[1],(V85)));          V73= list(3,VV[14],/* INLINE-ARGS */V72,list(2,VV[1],(V63)));
         if(((VV[21]->s.s_dbind))==Cnil){  
         goto T215;}  
         V97= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind)));  
         base[5]= make_cons(/* INLINE-ARGS */V97,Cnil);  
         goto T213;  
         goto T215;  
 T215:;  
         base[5]= Cnil;  
         goto T213;  
 T213:;  
         if(((VV[23]->s.s_dbind))!=Cnil){  
         goto T218;}  
         if(((VV[24]->s.s_dbind))!=Cnil){  
         goto T218;}  
582          if(((VV[25]->s.s_dbind))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
583          goto T219;}          goto T169;}
584          goto T218;          V75= list(2,VV[30],list(2,VV[1],(VV[25]->s.s_dbind)));
585  T218:;          base[5]= make_cons(/* INLINE-ARGS */V75,Cnil);
586          V98= list(2,VV[1],(VV[23]->s.s_dbind));          goto T167;
587          V99= list(2,VV[1],(VV[24]->s.s_dbind));          goto T169;
588          V100= list(4,VV[27],/* INLINE-ARGS */V98,/* INLINE-ARGS */V99,list(2,VV[1],(VV[25]->s.s_dbind)));  T169:;
589          base[6]= make_cons(/* INLINE-ARGS */V100,Cnil);          base[5]= Cnil;
590          goto T217;          goto T167;
591          goto T219;  T167:;
592  T219:;          if(((VV[27]->s.s_dbind))!=Cnil){
593            goto T172;}
594            if(((VV[28]->s.s_dbind))!=Cnil){
595            goto T172;}
596            if(((VV[29]->s.s_dbind))==Cnil){
597            goto T173;}
598            goto T172;
599    T172:;
600            V76= list(2,VV[1],(VV[27]->s.s_dbind));
601            V77= list(2,VV[1],(VV[28]->s.s_dbind));
602            V78= list(4,VV[31],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,list(2,VV[1],(VV[29]->s.s_dbind)));
603            base[6]= make_cons(/* INLINE-ARGS */V78,Cnil);
604            goto T171;
605            goto T173;
606    T173:;
607          base[6]= Cnil;          base[6]= Cnil;
608          goto T217;          goto T171;
609  T217:;  T171:;
610          V101 = (V81);          if(((V61))==Cnil){
611          V102 = (V84);          goto T182;}
612          V103 = (V90);          base[8]= (*(LnkLI378))((V61));
         V104 = (V89);  
         if(((V83))==Cnil){  
         goto T228;}  
         base[8]= (*(LnkLI363))((V83));  
613          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
614          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
615          vs_top=sup;          vs_top=sup;
616          V105= vs_base[0];          V79= vs_base[0];
617          goto T226;          goto T180;
618          goto T228;          goto T182;
619  T228:;  T182:;
620          V105= VV[20];          V79= VV[24];
621          goto T226;          goto T180;
622  T226:;  T180:;
623          V106 = (V93);          base[9]= (V70);
624          base[9]= (V92);          base[10]= VV[32];
         base[10]= VV[28];  
625          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
626          Lgetf();          Lgetf();
627          vs_top=sup;          vs_top=sup;
628          base[8]= vs_base[0];          base[8]= vs_base[0];
629          base[9]= VV[29];          base[9]= VV[33];
630          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
631          Lgetf();          Lgetf();
632          vs_top=sup;          vs_top=sup;
633          V107= vs_base[0];          V80= vs_base[0];
634          V108= (VFUN_NARGS=7,(*(LnkLI362))(V101,V102,V103,V104,V105,V106,V107));          V81= (VFUN_NARGS=7,(*(LnkLI377))((V59),(V62),(V68),(V67),V79,(V71),V80));
635          base[7]= make_cons(/* INLINE-ARGS */V108,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V81,Cnil);
636          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
637          Lappend();          Lappend();
638          vs_top=sup;          vs_top=sup;
639          V96= vs_base[0];          V74= vs_base[0];
640          {object V109 = listA(3,VV[9],/* INLINE-ARGS */V95,V96);          {object V82 = listA(3,VV[13],/* INLINE-ARGS */V73,V74);
641          bds_unwind1;          bds_unwind1;
642          bds_unwind1;          bds_unwind1;
643          bds_unwind1;          bds_unwind1;
644          bds_unwind1;          bds_unwind1;
645          bds_unwind1;          bds_unwind1;
646          VMR8(V109)}}}}          VMR8(V82)}}}}
647          base[0]=base[0];          base[0]=base[0];
648          return Cnil;          return Cnil;
649  }  }
650  /*      local entry for function INTERNED-SYMBOL-P      */  /*      local entry for function INTERNED-SYMBOL-P      */
651    
652  static object LI11(V111)  static object LI13(V84)
653    
654  object V111;  object V84;
655  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
656          goto TTL;          goto TTL;
657  TTL:;  TTL:;
658          if(type_of((V111))==t_symbol){          if(type_of((V84))==t_symbol){
659          goto T236;}          goto T190;}
660          {object V112 = Cnil;          {object V85 = Cnil;
661          VMR9(V112)}          VMR9(V85)}
662          goto T236;          goto T190;
663  T236:;  T190:;
664          base[0]= (V111);          base[0]= (V84);
665          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
666          Lsymbol_package();          Lsymbol_package();
667          vs_top=sup;          vs_top=sup;
668          {object V113 = vs_base[0];          {object V86 = vs_base[0];
669          VMR9(V113)}          VMR9(V86)}
670          base[0]=base[0];          base[0]=base[0];
671          return Cnil;          return Cnil;
672  }  }
673  /*      local entry for function MAKE-DEFMETHOD-FORM    */  /*      local entry for function MAKE-DEFMETHOD-FORM    */
674    
675  static object LI12(object V119,object V118,object V117,object V116,object V115,object V114,object first,...)  static object LI14(object V92,object V91,object V90,object V89,object V88,object V87,object first,...)
676  {        {      
677          va_list ap;          va_list ap;
678          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
679          bds_check;          bds_check;
680          {register object V120;          {register object V93;
681          register object V121;          register object V94;
682          register object V122;          register object V95;
683          object V123;          object V96;
684          object V124;          object V97;
685          register object V125;          register object V98;
686          object V126;          object V99;
687          va_start(ap,first);          va_start(ap,first);
688          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
689          V120= V119;          V93= V92;
690          V121= V118;          V94= V91;
691          V122= V117;          V95= V90;
692          V123= V116;          V96= V89;
693          V124= V115;          V97= V88;
694          V125= V114;          V98= V87;
695          narg = narg - 6;          narg = narg - 6;
696          if (narg <= 0) goto T239;          if (narg <= 0) goto T193;
697          else {          else {
698          V126= first;}          V99= first;}
699          --narg; goto T240;          --narg; goto T194;
700          goto T239;          goto T193;
701  T239:;  T193:;
702          V126= Cnil;          V99= Cnil;
703          goto T240;          goto T194;
704  T240:;  T194:;
705          {object V127;          {object V100;
706          register object V128;          register object V101;
707          V127= Cnil;          V100= Cnil;
708          V128= Cnil;          V101= Cnil;
709          if(!(type_of((V120))==t_cons)){          if(!(type_of((V93))==t_cons)){
710          goto T248;}          goto T202;}
711          if((CMPcar((V120)))==(VV[30])){          if((CMPcar((V93)))==(VV[34])){
712          goto T250;}          goto T204;}
713          V129= Cnil;          V102= Cnil;
714          goto T246;          goto T200;
715          goto T250;          goto T204;
716  T250:;  T204:;
717          V129= CMPcadr((V120));          V102= CMPcadr((V93));
718          goto T246;          goto T200;
719          goto T248;          goto T202;
720  T248:;  T202:;
721          V129= (V120);          V102= (V93);
722          goto T246;          goto T200;
723  T246:;  T200:;
724          if(((*(LnkLI365))(V129))==Cnil){          if(((*(LnkLI380))(V102))==Cnil){
725          goto T243;}          goto T197;}
726          base[0]= (VV[365]->s.s_gfdef);          base[0]= (VV[380]->s.s_gfdef);
727          base[1]= (V121);          base[1]= (V94);
728          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
729          (void) (*Lnk366)();          (void) (*Lnk381)();
730          vs_top=sup;          vs_top=sup;
731          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
732          goto T243;}          goto T197;}
733          base[0]= VV[367];          base[0]= VV[382];
734          base[1]= (V122);          base[1]= (V95);
735          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
736          (void) (*Lnk366)();          (void) (*Lnk381)();
737          vs_top=sup;          vs_top=sup;
738          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
739          goto T243;}          goto T197;}
740          if(!(type_of((V125))==t_cons)){          if(!(type_of((V98))==t_cons)){
741          goto T243;}          goto T197;}
742          if(!((CMPcar((V125)))==(VV[32]))){          if(!((CMPcar((V98)))==(VV[36]))){
743          goto T243;}          goto T197;}
744          {register object x= CMPcadr((V125)),V130= VV[33];          {register object x= CMPcadr((V98)),V103= VV[37];
745          while(V130!=Cnil)          while(V103!=Cnil)
746          if(x==(V130->c.c_car)){          if(x==(V103->c.c_car)){
747          goto T265;          goto T219;
748          }else V130=V130->c.c_cdr;          }else V103=V103->c.c_cdr;
749          goto T243;}          goto T197;}
750          goto T265;          goto T219;
751  T265:;  T219:;
752          V127= CMPcaddr((V125));          V100= CMPcaddr((V98));
753          V131 = (V127);          if(!(type_of((V100))==t_cons)){
754          if(!(type_of(V131)==t_cons)){          goto T197;}
755          goto T243;}          if(!((CMPcar((V100)))==(VV[18]))){
756          if(!((CMPcar((V127)))==(VV[14]))){          goto T197;}
757          goto T243;}          V101= CMPcadr((V100));
758          V128= CMPcadr((V127));          if(!(type_of((V101))==t_cons)){
759          V132 = (V128);          goto T197;}
760          if(!(type_of(V132)==t_cons)){          if(!((CMPcar((V101)))==(VV[38]))){
761          goto T243;}          goto T197;}
762          if(!((CMPcar((V128)))==(VV[34]))){          {object V104;
763          goto T243;}          object V105;
764          {object V133;          object V106;
765          object V134;          {object V107;
766          object V135;          object V108= (V95);
767          {object V136;          if(V108==Cnil){
768          object V137= (V122);          V104= Cnil;
769          if(V137==Cnil){          goto T229;}
770          V133= Cnil;          base[3]=V107=MMcons(Cnil,Cnil);
771          goto T275;}          goto T230;
772          base[3]=V136=MMcons(Cnil,Cnil);  T230:;
773          goto T276;          {register object V109;
774  T276:;          V109= (V108->c.c_car);
775          {register object V138;          if(!(type_of((V109))==t_cons)){
776          V138= (V137->c.c_car);          goto T233;}
777          if(!(type_of((V138))==t_cons)){          V110= CMPcar((V109));
778          goto T279;}          base[4]= CMPcadr((V109));
         V139= CMPcar((V138));  
         base[4]= CMPcadr((V138));  
779          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
780          Leval();          Leval();
781          vs_top=sup;          vs_top=sup;
782          V140= vs_base[0];          V111= vs_base[0];
783          (V136->c.c_car)= list(2,/* INLINE-ARGS */V139,V140);          (V107->c.c_car)= list(2,/* INLINE-ARGS */V110,V111);
784          goto T277;          goto T231;
785          goto T279;          goto T233;
786  T279:;  T233:;
787          (V136->c.c_car)= (V138);}          (V107->c.c_car)= (V109);}
788          goto T277;          goto T231;
789  T277:;  T231:;
790          if((V137=MMcdr(V137))==Cnil){          if((V108=MMcdr(V108))==Cnil){
791          V133= base[3];          V104= base[3];
792          goto T275;}          goto T229;}
793          V136=MMcdr(V136)=MMcons(Cnil,Cnil);          V107=MMcdr(V107)=MMcons(Cnil,Cnil);
794          goto T276;}          goto T230;}
795          goto T275;          goto T229;
796  T275:;  T229:;
797          if(!((CMPcadr((V125)))==(VV[35]))){          if(!((CMPcadr((V98)))==(VV[39]))){
798          goto T286;}          goto T240;}
799          V141= VV[36];          V112= VV[40];
800          goto T284;          goto T238;
801          goto T286;          goto T240;
802  T286:;  T240:;
803          V141= VV[37];          V112= VV[41];
804          goto T284;          goto T238;
805  T284:;  T238:;
806          V142 = (V120);          V113= make_cons((V104),Cnil);
807          V143= make_cons((V133),Cnil);          V105= listA(3,V112,(V93),append((V94),/* INLINE-ARGS */V113));
808          V134= listA(3,V141,V142,append((V121),/* INLINE-ARGS */V143));          bds_bind(VV[42],Cnil);
         bds_bind(VV[38],Cnil);  
809          base[5]= Cnil;          base[5]= Cnil;
810          base[6]= VV[39];          base[6]= VV[43];
811          base[7]= (V134);          base[7]= (V105);
812          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
813          Lformat();          Lformat();
814          vs_top=sup;          vs_top=sup;
# Line 882  T284:; Line 817  T284:;
817          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
818          Lintern();          Lintern();
819          vs_top=sup;          vs_top=sup;
820          V135= vs_base[0];{object V144;          V106= vs_base[0];{object V114;
821          V144= (VV[41]->s.s_dbind);          V114= (VV[45]->s.s_dbind);
822          V145= listA(4,VV[42],(V135),CMPcadr((V128)),CMPcddr((V128)));          V115= listA(4,VV[46],(V106),CMPcadr((V101)),CMPcddr((V101)));
823          V146= list(2,VV[1],(V133));          V116= list(2,VV[1],(V104));
824          V147= CMPcadr((V125));          V117= CMPcadr((V98));
825          V148= listA(4,VV[32],/* INLINE-ARGS */V147,list(2,VV[14],(V135)),CMPcdddr((V125)));          V118= listA(4,VV[36],/* INLINE-ARGS */V117,list(2,VV[18],(V106)),CMPcdddr((V98)));
826          {object V149 = list(4,VV[40],V144,/* INLINE-ARGS */V145,(VFUN_NARGS=7,(*(LnkLI368))((V120),(V121),/* INLINE-ARGS */V146,(V123),(V124),/* INLINE-ARGS */V148,(V126))));          {object V119 = list(4,VV[44],V114,/* INLINE-ARGS */V115,(VFUN_NARGS=7,(*(LnkLI383))((V93),(V94),/* INLINE-ARGS */V116,(V96),(V97),/* INLINE-ARGS */V118,(V99))));
827          VMR10(V149)}}}          VMR10(V119)}}}
828          goto T243;          goto T197;
829  T243:;  T197:;
830          V150= make_cons((V122),Cnil);          V120= make_cons((V95),Cnil);
831          V151= listA(3,VV[7],(V120),append((V121),/* INLINE-ARGS */V150));{object V152;          V121= listA(3,VV[7],(V93),append((V94),/* INLINE-ARGS */V120));{object V122;
832          V152= (VV[41]->s.s_dbind);          V122= (VV[45]->s.s_dbind);
833          {object V154;          {object V124;
834          object V155= (V122);          object V125= (V95);
835          if(V155==Cnil){          if(V125==Cnil){
836          V153= Cnil;          V123= Cnil;
837          goto T293;}          goto T247;}
838          base[0]=V154=MMcons(Cnil,Cnil);          base[0]=V124=MMcons(Cnil,Cnil);
839          goto T294;          goto T248;
840  T294:;  T248:;
841          {register object V156;          {register object V126;
842          V156= (V155->c.c_car);          V126= (V125->c.c_car);
843          if(!(type_of((V156))==t_cons)){          if(!(type_of((V126))==t_cons)){
844          goto T297;}          goto T251;}
845          (V154->c.c_car)= list(3,VV[43],list(2,VV[1],CMPcar((V156))),CMPcadr((V156)));          (V124->c.c_car)= list(3,VV[47],list(2,VV[1],CMPcar((V126))),CMPcadr((V126)));
846          goto T295;          goto T249;
847          goto T297;          goto T251;
848  T297:;  T251:;
849          (V154->c.c_car)= list(2,VV[1],(V156));}          (V124->c.c_car)= list(2,VV[1],(V126));}
850          goto T295;          goto T249;
851  T295:;  T249:;
852          if((V155=MMcdr(V155))==Cnil){          if((V125=MMcdr(V125))==Cnil){
853          V153= base[0];          V123= base[0];
854          goto T293;}          goto T247;}
855          V154=MMcdr(V154)=MMcons(Cnil,Cnil);          V124=MMcdr(V124)=MMcons(Cnil,Cnil);
856          goto T294;}          goto T248;}
857          goto T293;          goto T247;
858  T293:;  T247:;
859          V157= make_cons(VV[43],V153);          V127= make_cons(VV[47],V123);
860          V158= (VFUN_NARGS=7,(*(LnkLI368))((V120),(V121),/* INLINE-ARGS */V157,(V123),(V124),(V125),(V126)));          V128= (VFUN_NARGS=7,(*(LnkLI383))((V93),(V94),/* INLINE-ARGS */V127,(V96),(V97),(V98),(V99)));
861          {object V159 = (*(LnkLI350))(/* INLINE-ARGS */V151,V152,/* INLINE-ARGS */V158);          {object V129 = (*(LnkLI365))(/* INLINE-ARGS */V121,V122,/* INLINE-ARGS */V128);
862          VMR10(V159)}}}          VMR10(V129)}}}
863          va_end(ap);          va_end(ap);
864          base[0]=base[0];          base[0]=base[0];
865          return Cnil;}          return Cnil;}
866          }          }
867  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */
868    
869  static object LI13(object V165,object V164,object V163,object V162,object V161,object V160,object first,...)  static object LI15(object V135,object V134,object V133,object V132,object V131,object V130,object first,...)
870  {        {      
871          va_list ap;          va_list ap;
872          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
873          {object V166;          {object V136;
874          object V167;          object V137;
875          object V168;          object V138;
876          object V169;          object V139;
877          object V170;          object V140;
878          object V171;          object V141;
879          object V172;          object V142;
880          va_start(ap,first);          va_start(ap,first);
881          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
882          V166= V165;          V136= V135;
883          V167= V164;          V137= V134;
884          V168= V163;          V138= V133;
885          V169= V162;          V139= V132;
886          V170= V161;          V140= V131;
887          V171= V160;          V141= V130;
888          narg = narg - 6;          narg = narg - 6;
889          if (narg <= 0) goto T299;          if (narg <= 0) goto T253;
890          else {          else {
891          V172= first;}          V142= first;}
892          --narg; goto T300;          --narg; goto T254;
893          goto T299;          goto T253;
894  T299:;  T253:;
895          V172= Cnil;          V142= Cnil;
896          goto T300;          goto T254;
897  T300:;  T254:;
898          V173= list(2,VV[1],(V170));          V143= list(2,VV[1],(V140));
899          V174= list(2,VV[1],(V166));          V144= list(2,VV[1],(V136));
900          V175= list(2,VV[1],(V167));          V145= list(2,VV[1],(V137));
901          V176= list(2,VV[1],(V169));          V146= list(2,VV[1],(V139));
902          {object V177 = list(8,VV[44],/* INLINE-ARGS */V173,/* INLINE-ARGS */V174,/* INLINE-ARGS */V175,(V168),/* INLINE-ARGS */V176,(V171),list(2,VV[1],(V172)));          {object V147 = list(8,VV[48],/* INLINE-ARGS */V143,/* INLINE-ARGS */V144,/* INLINE-ARGS */V145,(V138),/* INLINE-ARGS */V146,(V141),list(2,VV[1],(V142)));
903          VMR11(V177)}          VMR11(V147)}
904          va_end(ap);          va_end(ap);
905          return Cnil;}          return Cnil;}
906          }          }
907  /*      macro definition for MAKE-METHOD-FUNCTION       */  /*      macro definition for MAKE-METHOD-FUNCTION       */
908    
909  static void L14()  static void L16()
910  {register object *base=vs_base;  {register object *base=vs_base;
911          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
912          vs_check;          vs_check;
913          check_arg(2);          check_arg(2);
914          vs_top=sup;          vs_top=sup;
915          {object V178=base[0]->c.c_cdr;          {object V148=base[0]->c.c_cdr;
916          if(endp(V178))invalid_macro_call();          if(endp(V148))invalid_macro_call();
917          base[2]= (V178->c.c_car);          base[2]= (V148->c.c_car);
918          V178=V178->c.c_cdr;          V148=V148->c.c_cdr;
919          if(!endp(V178))invalid_macro_call();}          if(!endp(V148))invalid_macro_call();}
920          base[3]= base[2];          base[3]= base[2];
921          base[4]= base[1];          base[4]= base[1];
922          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
923          (void) (*Lnk369)();          (void) (*Lnk384)();
924          return;          return;
925  }  }
926  /*      function definition for MAKE-METHOD-FUNCTION-INTERNAL   */  /*      function definition for MAKE-METHOD-FUNCTION-INTERNAL   */
927    
928  static void L15()  static void L17()
929  {register object *base=vs_base;  {register object *base=vs_base;
930          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
931          vs_check;          vs_check;
932          {object V179;          {object V149;
933          object V180;          object V150;
934          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
935          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
936          V179=(base[0]);          V149=(base[0]);
937          vs_base=vs_base+1;          vs_base=vs_base+1;
938          if(vs_base>=vs_top){vs_top=sup;goto T304;}          if(vs_base>=vs_top){vs_top=sup;goto T258;}
939          V180=(base[1]);          V150=(base[1]);
940          vs_top=sup;          vs_top=sup;
941          goto T305;          goto T259;
942          goto T304;          goto T258;
943  T304:;  T258:;
944          V180= Cnil;          V150= Cnil;
945          goto T305;          goto T259;
946  T305:;  T259:;
947          {object V181;          {object V151;
948          object V182;          object V152;
949          base[2]= Cnil;          base[2]= Cnil;
950          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
951          (void) (*Lnk354)();          (void) (*Lnk369)();
952          if(vs_base>=vs_top){vs_top=sup;goto T309;}          if(vs_base>=vs_top){vs_top=sup;goto T263;}
953          V181= vs_base[0];          V151= vs_base[0];
954          vs_base++;          vs_base++;
955          if(vs_base>=vs_top){vs_top=sup;goto T310;}          if(vs_base>=vs_top){vs_top=sup;goto T264;}
956          V182= vs_base[0];          V152= vs_base[0];
957          vs_top=sup;          vs_top=sup;
958          goto T311;          goto T265;
959          goto T309;          goto T263;
960  T309:;  T263:;
961          V181= Cnil;          V151= Cnil;
962          goto T310;          goto T264;
963  T310:;  T264:;
964          V182= Cnil;          V152= Cnil;
965          goto T311;          goto T265;
966  T311:;  T265:;
967          {object V183;          {object V153;
968          object V184;          object V154;
969          base[2]= (V181);          base[2]= (V151);
970          base[3]= (V182);          base[3]= (V152);
971          base[4]= (V179);          base[4]= (V149);
972          base[5]= (V180);          base[5]= (V150);
973          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
974          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk375)(Lclptr375);
975          if(vs_base>=vs_top){vs_top=sup;goto T317;}          if(vs_base>=vs_top){vs_top=sup;goto T271;}
976          V183= vs_base[0];          V153= vs_base[0];
977          vs_base++;          vs_base++;
978          if(vs_base>=vs_top){vs_top=sup;goto T318;}          if(vs_base>=vs_top){vs_top=sup;goto T272;}
979          V184= vs_base[0];          V154= vs_base[0];
980          vs_top=sup;          vs_top=sup;
981          goto T319;          goto T273;
982          goto T317;          goto T271;
983  T317:;  T271:;
984          V183= Cnil;          V153= Cnil;
985          goto T318;          goto T272;
986  T318:;  T272:;
987          V184= Cnil;          V154= Cnil;
988          goto T319;          goto T273;
989  T319:;  T273:;
990          base[2]= (V181);          base[2]= (V151);
991          base[3]= (V182);          base[3]= (V152);
992          base[4]= (V183);          base[4]= (V153);
993          base[5]= (V184);          base[5]= (V154);
994          base[6]= (V180);          base[6]= (V150);
995          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
996          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk376)(Lclptr376);
997          return;}}          return;}}
998          }          }
999  }  }
1000  /*      function definition for ADD-METHOD-DECLARATIONS */  /*      function definition for ADD-METHOD-DECLARATIONS */
1001    
1002  static void L16()  static void L18()
1003  {register object *base=vs_base;  {register object *base=vs_base;
1004          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
1005          vs_check;          vs_check;
1006          {object V185;          {object V155;
1007          object V186;          object V156;
1008          object V187;          object V157;
1009          object V188;          object V158;
1010          object V189;          object V159;
1011          check_arg(5);          check_arg(5);
1012          V185=(base[0]);          V155=(base[0]);
1013          V186=(base[1]);          V156=(base[1]);
1014          V187=(base[2]);          V157=(base[2]);
1015          V188=(base[3]);          V158=(base[3]);
1016          V189=(base[4]);          V159=(base[4]);
1017          vs_top=sup;          vs_top=sup;
1018          goto TTL;          goto TTL;
1019  TTL:;  TTL:;
1020          {object V190;          {object V160;
1021          object V191;          object V161;
1022          object V192;          object V162;
1023          base[5]= (V187);          base[5]= (V157);
1024          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1025          (void) (*Lnk370)();          (void) (*Lnk385)();
1026          if(vs_base>=vs_top){vs_top=sup;goto T327;}          if(vs_base>=vs_top){vs_top=sup;goto T281;}
1027          V190= vs_base[0];          V160= vs_base[0];
1028          vs_base++;          vs_base++;
1029          if(vs_base>=vs_top){vs_top=sup;goto T328;}          if(vs_base>=vs_top){vs_top=sup;goto T282;}
1030          V191= vs_base[0];          V161= vs_base[0];
1031          vs_base++;          vs_base++;
1032          if(vs_base>=vs_top){vs_top=sup;goto T329;}          if(vs_base>=vs_top){vs_top=sup;goto T283;}
1033          V192= vs_base[0];          V162= vs_base[0];
1034          vs_top=sup;          vs_top=sup;
1035          goto T330;          goto T284;
1036          goto T327;          goto T281;
1037  T327:;  T281:;
1038          V190= Cnil;          V160= Cnil;
1039          goto T328;          goto T282;
1040  T328:;  T282:;
1041          V191= Cnil;          V161= Cnil;
1042          goto T329;          goto T283;
1043  T329:;  T283:;
1044          V192= Cnil;          V162= Cnil;
1045          goto T330;          goto T284;
1046  T330:;  T284:;
1047          {object V193;          {object V163;
1048          object V194;          object V164;
1049          object V195;          object V165;
1050          base[5]= (V188);          base[5]= (V158);
1051          base[6]= (V189);          base[6]= (V159);
1052          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1053          (void) (*Lnk371)();          (void) (*Lnk386)();
1054          if(vs_base>=vs_top){vs_top=sup;goto T334;}          if(vs_base>=vs_top){vs_top=sup;goto T288;}
1055          V193= vs_base[0];          V163= vs_base[0];
1056          vs_base++;          vs_base++;
1057          if(vs_base>=vs_top){vs_top=sup;goto T335;}          if(vs_base>=vs_top){vs_top=sup;goto T289;}
1058          V194= vs_base[0];          V164= vs_base[0];
1059          vs_base++;          vs_base++;
1060          if(vs_base>=vs_top){vs_top=sup;goto T336;}          if(vs_base>=vs_top){vs_top=sup;goto T290;}
1061          V195= vs_base[0];          V165= vs_base[0];
1062          vs_top=sup;          vs_top=sup;
1063          goto T337;          goto T291;
1064          goto T334;          goto T288;
1065  T334:;  T288:;
1066          V193= Cnil;          V163= Cnil;
1067          goto T335;          goto T289;
1068  T335:;  T289:;
1069          V194= Cnil;          V164= Cnil;
1070          goto T336;          goto T290;
1071  T336:;  T290:;
1072          V195= Cnil;          V165= Cnil;
1073          goto T337;          goto T291;
1074  T337:;  T291:;
1075          if(((V193))==Cnil){          if(((V163))==Cnil){
1076          goto T341;}          goto T295;}
1077          V196= make_cons((V193),Cnil);          V166= make_cons((V163),Cnil);
1078          goto T339;          goto T293;
1079          goto T341;          goto T295;
1080  T341:;  T295:;
1081          V196= Cnil;          V166= Cnil;
1082          goto T339;          goto T293;
1083  T339:;  T293:;
1084          V197= list(2,VV[45],list(2,VV[46],list(3,(V185),(V186),(V192))));          V167= list(2,VV[49],list(2,VV[50],list(3,(V155),(V156),(V162))));
1085          V198= list(2,VV[45],make_cons(VV[47],(V187)));          V168= list(2,VV[49],make_cons(VV[51],(V157)));
1086          V199= listA(3,/* INLINE-ARGS */V197,/* INLINE-ARGS */V198,append((V194),(V195)));          V169= listA(3,/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,append((V164),(V165)));
1087          base[5]= listA(3,VV[34],(V191),append(V196,/* INLINE-ARGS */V199));          base[5]= listA(3,VV[38],(V161),append(V166,/* INLINE-ARGS */V169));
1088          base[6]= (V191);          base[6]= (V161);
1089          base[7]= (V192);          base[7]= (V162);
1090          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1091          return;}}          return;}}
1092          }          }
1093  }  }
1094  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */
1095    
1096  static object LI17(V205,V206,V207,V208,V209)  static object LI19(V175,V176,V177,V178,V179)
1097    
1098  object V205;object V206;register object V207;object V208;object V209;  object V175;object V176;register object V177;object V178;object V179;
1099  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1100          goto TTL;          goto TTL;
1101  TTL:;  TTL:;
1102          if(!(type_of((V207))==t_cons)){          if(!(type_of((V177))==t_cons)){
1103          goto T346;}          goto T300;}
1104          if((CMPcar((V207)))==(VV[34])){          if((CMPcar((V177)))==(VV[38])){
1105          goto T345;}          goto T299;}
1106          goto T346;          goto T300;
1107  T346:;  T300:;
1108          base[0]= VV[48];          base[0]= VV[52];
1109          base[1]= (V207);          base[1]= (V177);
1110          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1111          Lerror();          Lerror();
1112          vs_top=sup;          vs_top=sup;
1113          goto T345;          goto T299;
1114  T345:;  T299:;
1115          {object V210 = (*(LnkLI372))((V207),(V208),(V209));          {object V180 = (*(LnkLI387))((V177),(V178),(V179));
1116          VMR15(V210)}          VMR15(V180)}
1117          base[0]=base[0];          base[0]=base[0];
1118          return Cnil;          return Cnil;
1119  }  }
1120  /*      function definition for REAL-MAKE-METHOD-LAMBDA */  /*      function definition for REAL-MAKE-METHOD-LAMBDA */
1121    
1122  static void L18()  static void L20()
1123  {register object *base=vs_base;  {register object *base=vs_base;
1124          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1125          vs_check;          vs_check;
1126          {object V211;          {object V181;
1127          object V212;          object V182;
1128          object V213;          object V183;
1129          object V214;          object V184;
1130          check_arg(4);          check_arg(4);
1131          V211=(base[0]);          V181=(base[0]);
1132          V212=(base[1]);          V182=(base[1]);
1133          V213=(base[2]);          V183=(base[2]);
1134          V214=(base[3]);          V184=(base[3]);
1135          vs_top=sup;          vs_top=sup;
1136          goto TTL;          goto TTL;
1137  TTL:;  TTL:;
1138          base[4]= (V213);          base[4]= (V183);
1139          base[5]= (V214);          base[5]= (V184);
1140          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1141          (void) (*Lnk373)();          (void) (*Lnk388)();
1142          return;          return;
1143          }          }
1144  }  }
1145  /*      function definition for MAKE-METHOD-LAMBDA-INTERNAL     */  /*      function definition for MAKE-METHOD-LAMBDA-INTERNAL     */
1146    
1147  static void L19()  static void L21()
1148  {register object *base=vs_base;  {register object *base=vs_base;
1149          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1150          vs_check;          vs_check;
1151          {register object V215;          {object V185;
1152          object V216;          object V186;
1153          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1154          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
1155          V215=(base[0]);          V185=(base[0]);
1156          vs_base=vs_base+1;          vs_base=vs_base+1;
1157          if(vs_base>=vs_top){vs_top=sup;goto T354;}          if(vs_base>=vs_top){vs_top=sup;goto T308;}
1158          V216=(base[1]);          V186=(base[1]);
1159          vs_top=sup;          vs_top=sup;
1160          goto T355;          goto T309;
1161          goto T354;          goto T308;
1162  T354:;  T308:;
1163          V216= Cnil;          V186= Cnil;
1164          goto T355;          goto T309;
1165  T355:;  T309:;
1166          if(!(type_of((V215))==t_cons)){          if(!(type_of((V185))==t_cons)){
1167          goto T358;}          goto T312;}
1168          if((CMPcar((V215)))==(VV[34])){          if((CMPcar((V185)))==(VV[38])){
1169          goto T357;}          goto T311;}
1170          goto T358;          goto T312;
1171  T358:;  T312:;
1172          base[2]= VV[49];          base[2]= VV[53];
1173          base[3]= (V215);          base[3]= (V185);
1174          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1175          Lerror();          Lerror();
1176          vs_top=sup;          vs_top=sup;
1177          goto T357;          goto T311;
1178  T357:;  T311:;
1179          {object V217;          {object V187;
1180          object V218;          object V188;
1181          object V219;          object V189;
1182          base[2]= CMPcddr((V215));          base[2]= CMPcddr((V185));
1183          base[3]= (V216);          base[3]= (V186);
1184          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1185          (void) (*Lnk371)();          (void) (*Lnk386)();
1186          if(vs_base>=vs_top){vs_top=sup;goto T367;}          if(vs_base>=vs_top){vs_top=sup;goto T321;}
1187          V217= vs_base[0];          V187= vs_base[0];
1188            vs_base++;
1189            if(vs_base>=vs_top){vs_top=sup;goto T322;}
1190            V188= vs_base[0];
1191            vs_base++;
1192            if(vs_base>=vs_top){vs_top=sup;goto T323;}
1193            V189= vs_base[0];
1194            vs_top=sup;
1195            goto T324;
1196            goto T321;
1197    T321:;
1198            V187= Cnil;
1199            goto T322;
1200    T322:;
1201            V188= Cnil;
1202            goto T323;
1203    T323:;
1204            V189= Cnil;
1205            goto T324;
1206    T324:;
1207            {object V190;
1208            object V191;
1209            object V192;
1210            object V193;
1211            object V194;
1212            V190= (VFUN_NARGS=2,(*(LnkLI389))(VV[50],(V188)));
1213            V191= (VFUN_NARGS=2,(*(LnkLI389))(VV[51],(V188)));
1214            if(!(type_of((V190))==t_cons)){
1215            goto T329;}
1216            V192= CMPcar((V190));
1217            goto T327;
1218            goto T329;
1219    T329:;
1220            V192= Cnil;
1221            goto T327;
1222    T327:;
1223            if(((V192))==Cnil){
1224            goto T333;}
1225            V193= CMPcar((V192));
1226            goto T331;
1227            goto T333;
1228    T333:;
1229            V193= Cnil;
1230            goto T331;
1231    T331:;
1232            if((V191)!=Cnil){
1233            V194= (V191);
1234            goto T335;}
1235            V194= CMPcadr((V185));
1236            goto T335;
1237    T335:;
1238            {object V195;
1239            register object V196;
1240            object V197;
1241            base[7]= (V194);
1242            vs_top=(vs_base=base+7)+1;
1243            (void) (*Lnk385)();
1244            if(vs_base>=vs_top){vs_top=sup;goto T338;}
1245            V195= vs_base[0];
1246          vs_base++;          vs_base++;
1247          if(vs_base>=vs_top){vs_top=sup;goto T368;}          if(vs_base>=vs_top){vs_top=sup;goto T339;}
1248          V218= vs_base[0];          V196= vs_base[0];
1249          vs_base++;          vs_base++;
1250          if(vs_base>=vs_top){vs_top=sup;goto T369;}          if(vs_base>=vs_top){vs_top=sup;goto T340;}
1251          V219= vs_base[0];          V197= vs_base[0];
1252          vs_top=sup;          vs_top=sup;
1253          goto T370;          goto T341;
1254          goto T367;          goto T338;
1255  T367:;  T338:;
1256          V217= Cnil;          V195= Cnil;
1257          goto T368;          goto T339;
1258  T368:;  T339:;
1259          V218= Cnil;          V196= Cnil;
1260          goto T369;          goto T340;
1261  T369:;  T340:;
1262          V219= Cnil;          V197= Cnil;
1263            goto T341;
1264    T341:;
1265            {object V198;
1266            object V199;
1267            object V200;
1268            object V201;
1269            object V202;
1270            object V203;
1271            object V204;
1272            object V205;
1273            object V206;
1274            object V207;
1275            {object V208;
1276            object V209= (V195);
1277            object V210= (V197);
1278            if(V209==Cnil||V210==Cnil){
1279            V198= Cnil;
1280            goto T342;}
1281            base[17]=V208=MMcons(Cnil,Cnil);
1282            goto T343;
1283    T343:;
1284            (V208->c.c_car)= (V209->c.c_car);
1285            if((V209=MMcdr(V209))==Cnil||(V210=MMcdr(V210))==Cnil){
1286            V198= base[17];
1287            goto T342;}
1288            V208=MMcdr(V208)=MMcons(Cnil,Cnil);
1289            goto T343;}
1290            goto T342;
1291    T342:;
1292            {register object V213;
1293            register object V214;
1294            V213= Cnil;
1295            V214= (V194);
1296            {register object V215;
1297            register object V216;
1298            V215= Cnil;
1299            V216= (V198);
1300            {object V217;
1301            register object V218;
1302            V217= make_cons(Cnil,Cnil);
1303            V218= (V217);
1304            goto T349;
1305    T349:;
1306            if(!(((V214))==Cnil)){
1307            goto T351;}
1308            goto T350;
1309            goto T351;
1310    T351:;
1311            V213= CMPcar((V214));
1312            V214= CMPcdr((V214));
1313            if(!(((V216))==Cnil)){
1314            goto T358;}
1315            goto T350;
1316            goto T358;
1317    T358:;
1318            V215= CMPcar((V216));
1319            V216= CMPcdr((V216));
1320            if(!(type_of((V213))==t_cons||((V213))==Cnil)){
1321            goto T365;}{object V219;
1322            V219= (V218);
1323            V218= make_cons((V215),Cnil);
1324            (V219)->c.c_cdr = (V218);}
1325            goto T365;
1326    T365:;
1327            goto T349;
1328            goto T350;
1329    T350:;
1330            V199= CMPcdr((V217));
1331            goto T345;
1332            V199= Cnil;
1333            goto T345;}}}
1334            goto T345;
1335    T345:;
1336            {object V220;
1337            object V221= (V198);
1338            if(V221==Cnil){
1339            V200= Cnil;
1340            goto T370;}
1341            base[17]=V220=MMcons(Cnil,Cnil);
1342            goto T371;
1343    T371:;
1344            (V220->c.c_car)= make_cons((V221->c.c_car),Cnil);
1345            if((V221=MMcdr(V221))==Cnil){
1346            V200= base[17];
1347            goto T370;}
1348            V220=MMcdr(V220)=MMcons(Cnil,Cnil);
1349            goto T371;}
1350          goto T370;          goto T370;
1351  T370:;  T370:;
1352          {object V220;          V201= make_cons(Cnil,Cnil);
1353          object V221;          {object V223;
1354          object V222;          object V224= (V195);
1355          object V223;          object V225= (V197);
1356          object V224;          if(V224==Cnil||V225==Cnil){
         V220= (VFUN_NARGS=2,(*(LnkLI374))(VV[46],(V218)));  
         V221= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V218)));  
         if(!(type_of((V220))==t_cons)){  
         goto T375;}  
         V222= CMPcar((V220));  
         goto T373;  
         goto T375;  
 T375:;  
1357          V222= Cnil;          V222= Cnil;
1358          goto T373;          goto T375;}
1359  T373:;          base[17]=V223=MMcons(Cnil,Cnil);
1360          if(((V222))==Cnil){          goto T376;
1361    T376:;
1362            if(!(type_of((V225->c.c_car))==t_symbol)){
1363          goto T379;}          goto T379;}
1364          V223= CMPcar((V222));          if(!(((((V225->c.c_car))==(Ct)?Ct:Cnil))==Cnil)){
1365            goto T379;}
1366            V228= list(3,VV[54],(V224->c.c_car),(V225->c.c_car));
1367            (V223->c.c_cdr)= make_cons(/* INLINE-ARGS */V228,Cnil);
1368          goto T377;          goto T377;
1369          goto T379;          goto T379;
1370  T379:;  T379:;
1371          V223= Cnil;          (V223->c.c_cdr)= Cnil;
1372          goto T377;          goto T377;
1373  T377:;  T377:;
1374          if((V221)!=Cnil){          while(MMcdr(V223)!=Cnil)V223=MMcdr(V223);
1375          V224= (V221);          if((V224=MMcdr(V224))==Cnil||(V225=MMcdr(V225))==Cnil){
1376          goto T381;}          base[17]=base[17]->c.c_cdr;
1377          V224= CMPcadr((V215));          V222= base[17];
1378          goto T381;          goto T375;}
1379  T381:;          goto T376;}
1380          {object V225;          goto T375;
1381          register object V226;  T375:;
1382          object V227;          V202= make_cons(VV[49],V222);
1383          base[7]= (V224);          V229= list(2,VV[49],make_cons(VV[55],(V199)));
1384          vs_top=(vs_base=base+7)+1;          if(!(type_of((V193))==t_cons||((V193))==Cnil)){
1385          (void) (*Lnk370)();          goto T386;}
1386          if(vs_base>=vs_top){vs_top=sup;goto T384;}          V230= CMPcadr((V193));
         V225= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T385;}  
         V226= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T386;}  
         V227= vs_base[0];  
         vs_top=sup;  
         goto T387;  
1387          goto T384;          goto T384;
 T384:;  
         V225= Cnil;  
         goto T385;  
 T385:;  
         V226= Cnil;  
1388          goto T386;          goto T386;
1389  T386:;  T386:;
1390          V227= Cnil;          V230= (V193);
1391          goto T387;          goto T384;
1392  T387:;  T384:;
1393          {object V228;          V231= listA(3,VV[56],V230,(V189));
1394          object V229;          V232= make_cons(/* INLINE-ARGS */V231,Cnil);
1395          object V230;          V203= listA(5,VV[38],(V196),/* INLINE-ARGS */V229,(V202),append((V188),/* INLINE-ARGS */V232));
1396          object V231;          if((CMPcdr((V189)))==Cnil){
         object V232;  
         object V233;  
         object V234;  
         register object V235;  
         register object V236;  
         object V237;  
         {object V238;  
         object V239= (V225);  
         object V240= (V227);  
         if(V239==Cnil||V240==Cnil){  
         V228= Cnil;  
         goto T388;}  
         base[17]=V238=MMcons(Cnil,Cnil);  
         goto T389;  
 T389:;  
         (V238->c.c_car)= (V239->c.c_car);  
         if((V239=MMcdr(V239))==Cnil||(V240=MMcdr(V240))==Cnil){  
         V228= base[17];  
         goto T388;}  
         V238=MMcdr(V238)=MMcons(Cnil,Cnil);  
1397          goto T389;}          goto T389;}
1398            V204= Cnil;
1399          goto T388;          goto T388;
1400  T388:;          goto T389;
1401          {object V243;  T389:;
1402          object V244= (V228);          base[17]= CMPcar((V189));
         if(V244==Cnil){  
         V229= Cnil;  
         goto T391;}  
         base[17]=V243=MMcons(Cnil,Cnil);  
         goto T392;  
 T392:;  
         (V243->c.c_car)= make_cons((V244->c.c_car),Cnil);  
         if((V244=MMcdr(V244))==Cnil){  
         V229= base[17];  
         goto T391;}  
         V243=MMcdr(V243)=MMcons(Cnil,Cnil);  
         goto T392;}  
         goto T391;  
 T391:;  
         V230= make_cons(Cnil,Cnil);  
         V231= (*(LnkLI375))((V224),(V228),(V218),(V222),(V227));  
         base[17]= Cnil;  
         {object V246;  
         object V247= (V225);  
         object V248= (V227);  
         if(V247==Cnil||V248==Cnil){  
         base[18]= Cnil;  
         goto T399;}  
         base[19]=V246=MMcons(Cnil,Cnil);  
         goto T400;  
 T400:;  
         if(type_of((V248->c.c_car))==t_symbol){  
         goto T402;}  
         (V246->c.c_car)= Cnil;  
         goto T401;  
         goto T402;  
 T402:;  
         if(((((V248->c.c_car))==(Ct)?Ct:Cnil))==Cnil){  
         goto T404;}  
         (V246->c.c_car)= Cnil;  
         goto T401;  
         goto T404;  
 T404:;  
         (V246->c.c_car)= list(3,VV[50],(V247->c.c_car),(V248->c.c_car));  
         goto T401;  
 T401:;  
         if((V247=MMcdr(V247))==Cnil||(V248=MMcdr(V248))==Cnil){  
         base[18]= base[19];  
         goto T399;}  
         V246=MMcdr(V246)=MMcons(Cnil,Cnil);  
         goto T400;}  
         goto T399;  
 T399:;  
         vs_top=(vs_base=base+17)+2;  
         (void) (*Lnk376)();  
         vs_top=sup;  
         V245= vs_base[0];  
         V232= make_cons(VV[45],V245);  
         V251= make_cons(VV[9],(V231));  
         if(!(type_of((V223))==t_cons||((V223))==Cnil)){  
         goto T409;}  
         V252= CMPcadr((V223));  
         goto T407;  
         goto T409;  
 T409:;  
         V252= (V223);  
         goto T407;  
 T407:;  
         V253 = (V219);  
         V254= list(2,/* INLINE-ARGS */V251,listA(3,VV[51],V252,V253));  
         V233= listA(4,VV[34],(V226),(V232),append((V218),/* INLINE-ARGS */V254));  
         if((CMPcdr((V219)))==Cnil){  
         goto T412;}  
         V234= Cnil;  
         goto T411;  
         goto T412;  
 T412:;  
         base[17]= CMPcar((V219));  
1403          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1404          Lconstantp();          Lconstantp();
1405          vs_top=sup;          vs_top=sup;
1406          V234= vs_base[0];          V204= vs_base[0];
1407          goto T411;          goto T388;
1408  T411:;  T388:;
1409          if((V234)==Cnil){          if((V204)==Cnil){
1410          V235= Cnil;          V205= Cnil;
1411          goto T415;}          goto T392;}
1412          base[17]= CMPcar((V219));          base[17]= CMPcar((V189));
1413          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1414          Leval();          Leval();
1415          vs_top=sup;          vs_top=sup;
1416          V235= vs_base[0];          V205= vs_base[0];
1417          goto T415;          goto T392;
1418  T415:;  T392:;
1419          if(((V234))==Cnil){          if(((V204))==Cnil){
1420          goto T419;}          goto T396;}
1421          base[17]= (V235);          base[17]= (V205);
1422          base[18]= VV[52];          base[18]= VV[57];
1423          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1424          (void) (*Lnk121)();          (void) (*Lnk126)();
1425          vs_top=sup;          vs_top=sup;
1426          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1427          goto T418;}          goto T395;}
1428          if(!(type_of((V235))==t_symbol)){          if(!(type_of((V205))==t_symbol)){
1429          goto T419;}          goto T396;}
1430          base[17]= (V235);          base[17]= (V205);
1431          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1432          Lsymbol_package();          Lsymbol_package();
1433          vs_top=sup;          vs_top=sup;
1434          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1435          goto T419;}          goto T396;}
1436          goto T418;          goto T395;
1437  T418:;  T395:;
1438          V236= list(2,VV[53],(V235));          V206= list(2,VV[58],(V205));
1439          goto T417;          goto T394;
1440          goto T419;          goto T396;
1441  T419:;  T396:;
1442          V236= Cnil;          V206= Cnil;
1443          goto T417;          goto T394;
1444  T417:;  T394:;
1445          {register object V255;          base[17]= (V203);
1446          register object V256;          base[18]= (V198);
1447          V255= (V226);          base[19]= (V186);
1448          V256= CMPcar((V255));          base[20]= (V200);
1449          goto T434;          base[21]= (V201);
 T434:;  
         if(!(((V255))==Cnil)){  
         goto T435;}  
         V237= Cnil;  
         goto T430;  
         goto T435;  
 T435:;  
         {register object x= (V256),V257= VV[54];  
         while(V257!=Cnil)  
         if(x==(V257->c.c_car)){  
         goto T442;  
         }else V257=V257->c.c_cdr;  
         goto T441;}  
         goto T442;  
 T442:;  
         V237= Ct;  
         goto T430;  
         goto T441;  
 T441:;  
         if(!(((V256))==(VV[55]))){  
         goto T439;}  
         V237= Cnil;  
         goto T430;  
         goto T439;  
 T439:;  
         V255= CMPcdr((V255));  
         V256= CMPcar((V255));  
         goto T434;}  
         goto T430;  
 T430:;  
         {object V258;  
         object V259;  
         object V260;  
         object V261;  
         base[17]= (V233);  
         base[18]= (V228);  
         base[19]= (V216);  
         base[20]= (V229);  
         base[21]= (V230);  
1450          vs_top=(vs_base=base+17)+5;          vs_top=(vs_base=base+17)+5;
1451          (void) (*Lnk377)();          (void) (*Lnk390)();
1452          if(vs_base>=vs_top){vs_top=sup;goto T456;}          vs_top=sup;
1453          V258= vs_base[0];          V207= vs_base[0];
1454          vs_base++;          {object V233;
1455          if(vs_base>=vs_top){vs_top=sup;goto T457;}          object V234;
1456          V259= vs_base[0];          object V235;
1457            base[17]= CMPcddr((V207));
1458            vs_top=(vs_base=base+17)+1;
1459            (void) (*Lnk386)();
1460            if(vs_base>=vs_top){vs_top=sup;goto T415;}
1461            V233= vs_base[0];
1462          vs_base++;          vs_base++;
1463          if(vs_base>=vs_top){vs_top=sup;goto T458;}          if(vs_base>=vs_top){vs_top=sup;goto T416;}
1464          V260= vs_base[0];          V234= vs_base[0];
1465          vs_base++;          vs_base++;
1466          if(vs_base>=vs_top){vs_top=sup;goto T459;}          if(vs_base>=vs_top){vs_top=sup;goto T417;}
1467          V261= vs_base[0];          V235= vs_base[0];
1468          vs_top=sup;          vs_top=sup;
1469          goto T460;          goto T418;
1470          goto T456;          goto T415;
1471  T456:;  T415:;
1472          V258= Cnil;          V233= Cnil;
1473          goto T457;          goto T416;
1474  T457:;  T416:;
1475          V259= Cnil;          V234= Cnil;
1476          goto T458;          goto T417;
1477  T458:;  T417:;
1478          V260= Cnil;          V235= Cnil;
1479          goto T459;          goto T418;
1480  T459:;  T418:;
1481          V261= Cnil;          base[17]= (VV[391]->s.s_gfdef);
1482          goto T460;          base[18]= (V200);
 T460:;  
         {object V262;  
         object V263;  
         object V264;  
         base[17]= CMPcddr((V258));  
         vs_top=(vs_base=base+17)+1;  
         (void) (*Lnk371)();  
         if(vs_base>=vs_top){vs_top=sup;goto T463;}  
         V262= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T464;}  
         V263= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T465;}  
         V264= vs_base[0];  
         vs_top=sup;  
         goto T466;  
         goto T463;  
 T463:;  
         V262= Cnil;  
         goto T464;  
 T464:;  
         V263= Cnil;  
         goto T465;  
 T465:;  
         V264= Cnil;  
         goto T466;  
 T466:;  
         if(((V261))!=Cnil){  
         goto T468;}  
         if(((V259))==Cnil){  
         goto T467;}  
         goto T468;  
 T468:;  
         V236= listA(3,VV[56],Ct,(V236));  
         goto T467;  
 T467:;  
         base[17]= (VV[378]->s.s_gfdef);  
         base[18]= (V229);  
1483          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1484          (void) (*Lnk379)();          (void) (*Lnk392)();
1485          vs_top=sup;          vs_top=sup;
1486          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1487          goto T473;}          goto T419;}
1488          {object V265;          {object V236;
1489          object V266;          object V237;
1490          base[17]= (V229);          base[17]= (V200);
1491          base[18]= (V230);          base[18]= (V201);
1492          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1493          (void) (*Lnk380)();          (void) (*Lnk393)();
1494          if(vs_base>=vs_top){vs_top=sup;goto T481;}          if(vs_base>=vs_top){vs_top=sup;goto T427;}
1495          V265= vs_base[0];          V236= vs_base[0];
1496          vs_base++;          vs_base++;
1497          if(vs_base>=vs_top){vs_top=sup;goto T482;}          if(vs_base>=vs_top){vs_top=sup;goto T428;}
1498          V266= vs_base[0];          V237= vs_base[0];
1499          vs_top=sup;          vs_top=sup;
1500          goto T483;          goto T429;
1501          goto T481;          goto T427;
1502  T481:;  T427:;
1503          V265= Cnil;          V236= Cnil;
1504          goto T482;          goto T428;
1505  T482:;  T428:;
1506          V266= Cnil;          V237= Cnil;
1507          goto T483;          goto T429;
1508  T483:;  T429:;
1509          {object V267;          {object V238;
1510          base[17]= VV[57];          base[17]= VV[59];
1511          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1512          Lmake_symbol();          Lmake_symbol();
1513          vs_top=sup;          vs_top=sup;
1514          V267= vs_base[0];          V238= vs_base[0];
1515          if(((V265))==Cnil){          if(((V236))==Cnil){
1516          goto T490;}          goto T436;}
1517          base[17]= list(2,VV[58],(V265));          base[17]= list(2,VV[60],(V236));
1518          goto T488;          goto T434;
1519          goto T490;          goto T436;
1520  T490:;  T436:;
1521          base[17]= Cnil;          base[17]= Cnil;
1522          goto T488;          goto T434;
1523  T488:;  T434:;
1524          if(((V266))==Cnil){          if(((V237))==Cnil){
1525          goto T494;}          goto T440;}
1526          base[18]= list(2,VV[59],(V266));          base[18]= list(2,VV[61],(V237));
1527          goto T492;          goto T438;
1528          goto T494;          goto T440;
1529  T494:;  T440:;
1530          base[18]= Cnil;          base[18]= Cnil;
1531          goto T492;          goto T438;
1532  T492:;  T438:;
1533          base[19]= listA(3,VV[29],(V267),(V236));          base[19]= listA(3,VV[33],(V238),(V206));
1534          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1535          Lappend();          Lappend();
1536          vs_top=sup;          vs_top=sup;
1537          V236= vs_base[0];          V206= vs_base[0];
1538          V268= listA(3,VV[60],list(3,(V228),(V265),(V267)),(V264));          V239= listA(3,VV[62],list(3,(V198),(V236),(V238)),(V235));
1539          V264= make_cons(/* INLINE-ARGS */V268,Cnil);}}          V235= make_cons(/* INLINE-ARGS */V239,Cnil);}}
1540          goto T473;          goto T419;
1541  T473:;  T419:;
1542          {register object x= VV[61],V269= (V226);          {register object x= VV[63],V240= (V196);
1543          while(V269!=Cnil)          while(V240!=Cnil)
1544          if(x==(V269->c.c_car)){          if(x==(V240->c.c_car)){
1545          goto T501;          goto T447;
1546          }else V269=V269->c.c_cdr;          }else V240=V240->c.c_cdr;
1547          goto T498;}          goto T444;}
1548          goto T501;          goto T447;
1549  T501:;  T447:;
1550          {register object x= VV[62],V270= (V226);          {register object x= VV[64],V241= (V196);
1551          while(V270!=Cnil)          while(V241!=Cnil)
1552          if(x==(V270->c.c_car)){          if(x==(V241->c.c_car)){
1553          goto T498;          goto T444;
1554          }else V270=V270->c.c_cdr;}          }else V241=V241->c.c_cdr;}
1555          {object V271;          {object V242;
1556          {register object x= VV[55],V272= (V226);          {register object x= VV[65],V243= (V196);
1557          while(V272!=Cnil)          while(V243!=Cnil)
1558          if(x==(V272->c.c_car)){          if(x==(V243->c.c_car)){
1559          V271= V272;          V242= V243;
1560          goto T503;          goto T449;
1561          }else V272=V272->c.c_cdr;          }else V243=V243->c.c_cdr;
1562          V271= Cnil;}          V242= Cnil;}
1563          goto T503;          goto T449;
1564  T503:;  T449:;
1565          base[18]= (V226);          base[18]= (V196);
1566          base[19]= (V271);          base[19]= (V242);
1567          vs_top=(vs_base=base+18)+2;          vs_top=(vs_base=base+18)+2;
1568          Lldiff();          Lldiff();
1569          vs_top=sup;          vs_top=sup;
1570          base[17]= vs_base[0];          base[17]= vs_base[0];
1571          base[18]= make_cons(VV[62],Cnil);          base[18]= make_cons(VV[64],Cnil);
1572          base[19]= (V271);          base[19]= (V242);
1573          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1574          Lnconc();          Lnconc();
1575          vs_top=sup;          vs_top=sup;
1576          V226= vs_base[0];}          V196= vs_base[0];}
1577          goto T498;          goto T444;
1578  T498:;  T444:;
1579          base[18]= (V226);          V244= list(5,(V196),VV[68],VV[69],VV[70],(V190));
1580          base[19]= VV[65];          base[17]= list(3,VV[38],VV[66],listA(3,VV[67],/* INLINE-ARGS */V244,append((V234),(V235))));
1581          base[20]= VV[66];          if(((V206))==Cnil){
1582          base[21]= VV[67];          goto T460;}
1583          base[22]= (V259);          V245= list(2,VV[32],(V206));
1584          base[23]= VV[68];          goto T458;
1585          base[24]= (V261);          goto T460;
1586          base[25]= VV[69];  T460:;
1587          base[26]= (V260);          V245= Cnil;
1588          base[27]= VV[70];          goto T458;
1589          base[28]= (V237);  T458:;
1590          vs_top=(vs_base=base+18)+11;          if(((V187))==Cnil){
1591          Llist();          goto T464;}
1592          vs_top=sup;          V246= list(2,VV[3],(V187));
1593          V273= vs_base[0];          goto T462;
1594          base[17]= list(3,VV[34],VV[63],listA(3,VV[64],V273,append((V263),(V264))));          goto T464;
1595          if(((V236))==Cnil){  T464:;
1596          goto T526;}          V246= Cnil;
1597          V274= list(2,VV[28],(V236));          goto T462;
1598          goto T524;  T462:;
1599          goto T526;          base[18]= append(V245,V246);
 T526:;  
         V274= Cnil;  
         goto T524;  
 T524:;  
         if(((V217))==Cnil){  
         goto T530;}  
         V275= list(2,VV[3],(V217));  
         goto T528;  
         goto T530;  
 T530:;  
         V275= Cnil;  
         goto T528;  
 T528:;  
         base[18]= append(V274,V275);  
1600          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1601          return;}}}}}}          return;}}}}}
1602          }          }
1603  }  }
1604  /*      macro definition for SIMPLE-LEXICAL-METHOD-FUNCTIONS    */  /*      macro definition for SIMPLE-LEXICAL-METHOD-FUNCTIONS    */
1605    
1606  static void L20()  static void L22()
1607  {register object *base=vs_base;  {register object *base=vs_base;
1608          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1609          vs_check;          vs_check;
1610          check_arg(2);          check_arg(2);
1611          vs_top=sup;          vs_top=sup;
1612          {object V276=base[0]->c.c_cdr;          {object V247=base[0]->c.c_cdr;
1613          if(endp(V276))invalid_macro_call();          if(endp(V247))invalid_macro_call();
1614          {object V277= (V276->c.c_car);          {object V248= (V247->c.c_car);
1615          if(endp(V277))invalid_macro_call();          if(endp(V248))invalid_macro_call();
1616          base[2]= (V277->c.c_car);          base[2]= (V248->c.c_car);
1617          V277=V277->c.c_cdr;          V248=V248->c.c_cdr;
1618          if(endp(V277))invalid_macro_call();          if(endp(V248))invalid_macro_call();
1619          base[3]= (V277->c.c_car);          base[3]= (V248->c.c_car);
1620          V277=V277->c.c_cdr;          V248=V248->c.c_cdr;
1621          if(endp(V277))invalid_macro_call();          if(endp(V248))invalid_macro_call();
1622          base[4]= (V277->c.c_car);          base[4]= (V248->c.c_car);
1623          V277=V277->c.c_cdr;          V248=V248->c.c_cdr;
1624          base[5]= V277;}          base[5]= V248;}
1625          V276=V276->c.c_cdr;          V247=V247->c.c_cdr;
1626          base[6]= V276;}          base[6]= V247;}
1627          V278= list(2,base[3],base[4]);          V249= list(2,base[3],base[4]);
1628          base[7]= list(4,VV[9],base[3],base[4],list(3,VV[71],/* INLINE-ARGS */V278,list(3,VV[72],base[5],listA(3,VV[73],list(2,base[2],base[3]),base[6]))));          base[7]= list(4,VV[13],base[3],base[4],list(3,VV[71],/* INLINE-ARGS */V249,list(3,VV[72],base[5],listA(3,VV[73],list(2,base[2],base[3]),base[6]))));
1629          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1630          return;          return;
1631  }  }
1632  /*      macro definition for FAST-LEXICAL-METHOD-FUNCTIONS      */  /*      macro definition for FAST-LEXICAL-METHOD-FUNCTIONS      */
1633    
1634  static void L21()  static void L23()
1635  {register object *base=vs_base;  {register object *base=vs_base;
1636          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1637          vs_check;          vs_check;
1638          check_arg(2);          check_arg(2);
1639          vs_top=sup;          vs_top=sup;
1640          {object V279=base[0]->c.c_cdr;          {object V250=base[0]->c.c_cdr;
1641          if(endp(V279))invalid_macro_call();          if(endp(V250))invalid_macro_call();
1642          {object V280= (V279->c.c_car);          {object V251= (V250->c.c_car);
1643          if(endp(V280))invalid_macro_call();          if(endp(V251))invalid_macro_call();
1644          base[2]= (V280->c.c_car);          base[2]= (V251->c.c_car);
1645          V280=V280->c.c_cdr;          V251=V251->c.c_cdr;
1646          if(endp(V280))invalid_macro_call();          if(endp(V251))invalid_macro_call();
1647          base[3]= (V280->c.c_car);          base[3]= (V251->c.c_car);
1648          V280=V280->c.c_cdr;          V251=V251->c.c_cdr;
1649          if(endp(V280))invalid_macro_call();          if(endp(V251))invalid_macro_call();
1650          base[4]= (V280->c.c_car);          base[4]= (V251->c.c_car);
1651          V280=V280->c.c_cdr;          V251=V251->c.c_cdr;
1652          if(endp(V280))invalid_macro_call();          if(endp(V251))invalid_macro_call();
1653          base[5]= (V280->c.c_car);          base[5]= (V251->c.c_car);
1654          V280=V280->c.c_cdr;          V251=V251->c.c_cdr;
1655          base[6]= V280;}          base[6]= V251;}
1656          V279=V279->c.c_cdr;          V250=V250->c.c_cdr;
1657          base[7]= V279;}          base[7]= V250;}
1658          V281= list(3,base[4],base[5],base[3]);          V252= list(3,base[4],base[5],base[3]);
1659          V282 = CMPmake_fixnum((long)length(base[4]));          V253 = CMPmake_fixnum((long)length(base[4]));
1660          base[8]= list(3,VV[74],/* INLINE-ARGS */V281,list(3,VV[72],base[6],listA(3,VV[73],list(2,nthcdr(fix(V282),base[2]),base[5]),base[7])));          base[8]= list(3,VV[74],/* INLINE-ARGS */V252,list(3,VV[72],base[6],listA(3,VV[73],list(2,nthcdr(fix(V253),base[2]),base[5]),base[7])));
1661          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1662          return;          return;
1663  }  }
1664  /*      macro definition for BIND-SIMPLE-LEXICAL-METHOD-MACROS  */  /*      function definition for CALL-NO-NEXT-METHOD     */
1665    
1666  static void L22()  static void L24()
1667  {register object *base=vs_base;  {register object *base=vs_base;
1668          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1669          vs_check;          vs_check;
1670            {object V254;
1671            object V255;
1672            if(vs_top-vs_base<1) too_few_arguments();
1673            V254=(base[0]);
1674            vs_base=vs_base+1;
1675            vs_top[0]=Cnil;
1676            {object *p=vs_top;
1677             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1678            V255=(base[1]);
1679            vs_top=sup;
1680            {register object V256;
1681            V256= CMPcar((V254));
1682            base[2]= small_fixnum(3);
1683            base[3]= CMPmake_fixnum((long)length((V256)));
1684            base[4]= small_fixnum(3);
1685            vs_top=(vs_base=base+2)+3;
1686            Lmonotonically_nondecreasing();
1687            vs_top=sup;
1688            if((vs_base[0])!=Cnil){
1689            goto T467;}
1690            base[2]= VV[75];
1691            base[3]= Cnil;
1692            base[4]= (V256);
1693            base[5]= VV[76];
1694            base[6]= small_fixnum(3);
1695            base[7]= small_fixnum(3);
1696            vs_top=(vs_base=base+2)+6;
1697            (void) (*Lnk394)();
1698            vs_top=sup;
1699            goto T467;
1700    T467:;
1701            {object V257;
1702            object V258;
1703            object V259;
1704            V257= CMPcar((V256));
1705            V258= CMPcar(CMPcdr((V256)));
1706            V259= CMPcar(CMPcdr(CMPcdr((V256))));
1707            {object V260;
1708            base[5]= (*(LnkLI362))((V257));
1709            base[6]= (V258);
1710            base[7]= (V259);
1711            vs_top=(vs_base=base+5)+3;
1712            (void) (*Lnk395)(Lclptr395);
1713            vs_top=sup;
1714            V260= vs_base[0];
1715            base[5]=VV[396]->s.s_gfdef;
1716            base[7]= (V260);
1717            vs_top=(vs_base=base+7)+1;
1718            (void) (*Lnk397)(Lclptr397);
1719            vs_top=sup;
1720            base[6]= vs_base[0];
1721            base[7]= (V260);
1722            {object V261;
1723            V261= (V255);
1724             vs_top=base+8;
1725             while(V261!=Cnil)
1726             {vs_push((V261)->c.c_car);V261=(V261)->c.c_cdr;}
1727            vs_base=base+6;}
1728            (void) (*Lnk396)(Lclptr396);
1729            return;}}}
1730            }
1731    }
1732    /*      macro definition for BIND-SIMPLE-LEXICAL-METHOD-MACROS  */
1733    
1734    static void L25()
1735    {register object *base=vs_base;
1736            register object *sup=base+VM21; VC21
1737            vs_check;
1738          check_arg(2);          check_arg(2);
1739          vs_top=sup;          vs_top=sup;
1740          {object V283=base[0]->c.c_cdr;          {object V262=base[0]->c.c_cdr;
1741          if(endp(V283))invalid_macro_call();          if(endp(V262))invalid_macro_call();
1742          {object V284= (V283->c.c_car);          {object V263= (V262->c.c_car);
1743          if(endp(V284))invalid_macro_call();          if(endp(V263))invalid_macro_call();
1744          base[2]= (V284->c.c_car);          base[2]= (V263->c.c_car);
1745          V284=V284->c.c_cdr;          V263=V263->c.c_cdr;
1746          if(endp(V284))invalid_macro_call();          if(endp(V263))invalid_macro_call();
1747          base[3]= (V284->c.c_car);          base[3]= (V263->c.c_car);
1748          V284=V284->c.c_cdr;          V263=V263->c.c_cdr;
1749          if(!endp(V284))invalid_macro_call();}          if(!endp(V263))invalid_macro_call();}
1750          V283=V283->c.c_cdr;          V262=V262->c.c_cdr;
1751          base[4]= V283;}          base[4]= V262;}
1752          V285= list(3,VV[43],VV[79],list(3,VV[43],VV[80],list(2,VV[1],base[3])));          V264= list(3,VV[47],VV[81],list(3,VV[47],VV[82],list(2,VV[1],base[3])));
1753          V286= list(2,VV[1],base[3]);          V265= list(2,VV[1],base[3]);
1754          V287= list(3,VV[43],/* INLINE-ARGS */V285,list(3,VV[43],/* INLINE-ARGS */V286,list(3,VV[43],VV[81],list(2,VV[1],base[3]))));          V266= list(3,VV[47],/* INLINE-ARGS */V264,list(3,VV[47],/* INLINE-ARGS */V265,list(3,VV[47],VV[83],list(2,VV[1],base[3]))));
1755          V288= list(3,VV[76],VV[77],list(6,VV[32],VV[78],/* INLINE-ARGS */V287,VV[82],list(2,VV[1],base[3]),VV[83]));          V267= list(3,VV[78],VV[79],list(6,VV[36],VV[80],/* INLINE-ARGS */V266,VV[84],list(2,VV[1],base[3]),VV[85]));
1756          V289= list(4,VV[43],VV[90],VV[91],list(2,VV[1],base[2]));          V268= list(4,VV[47],VV[92],VV[93],list(2,VV[1],base[2]));
1757          base[5]= listA(3,VV[75],list(3,/* INLINE-ARGS */V288,list(3,VV[84],VV[85],list(5,VV[43],VV[86],VV[87],list(5,VV[43],VV[88],VV[89],/* INLINE-ARGS */V289,list(2,VV[1],base[3])),VV[92])),VV[93]),base[4]);          V269= list(5,VV[47],VV[90],VV[91],/* INLINE-ARGS */V268,list(2,VV[1],base[3]));
1758            base[5]= listA(3,VV[77],list(3,/* INLINE-ARGS */V267,list(3,VV[86],VV[87],list(5,VV[47],VV[88],VV[89],/* INLINE-ARGS */V269,list(5,VV[47],VV[94],VV[95],VV[96],list(4,VV[47],VV[97],VV[93],list(2,VV[1],base[2]))))),VV[98]),base[4]);
1759          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1760          return;          return;
1761  }  }
1762  /*      local entry for function MAKE-METHOD-CALL       */  /*      local entry for function MAKE-METHOD-CALL       */
1763    
1764  static object LI23(object first,...)  static object LI26(object first,...)
1765  {        {      
1766          va_list ap;          va_list ap;
1767          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
1768          {object V290;          {object V270;
1769          object V291;          object V271;
1770          va_start(ap,first);          va_start(ap,first);
1771          narg= narg - 0;          narg= narg - 0;
1772          {          {
1773          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);
1774          if(Vcs[0]==0){          if(Vcs[0]==0){
1775          V290= (VV[382]->s.s_gfdef);          V270= (VV[399]->s.s_gfdef);
1776          }else{          }else{
1777          V290=(Vcs[0]);}          V270=(Vcs[0]);}
1778          V291=(Vcs[1]);          V271=(Vcs[1]);
1779          base[0]= VV[94];          base[0]= VV[99];
1780          base[1]= (V290);          base[1]= (V270);
1781          base[2]= (V291);          base[2]= (V271);
1782          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1783          siLmake_structure();          siLmake_structure();
1784          vs_top=sup;          vs_top=sup;
1785          {object V292 = vs_base[0];          {object V272 = vs_base[0];
1786          VMR21(V292)}          VMR22(V272)}
1787          va_end(ap);          va_end(ap);
1788          base[0]=base[0];          base[0]=base[0];
1789          return Cnil;}          return Cnil;}
1790          }}          }}
1791  /*      macro definition for INVOKE-METHOD-CALL1        */  /*      macro definition for INVOKE-METHOD-CALL1        */
1792    
1793  static void L24()  static void L27()
1794  {register object *base=vs_base;  {register object *base=vs_base;
1795          register object *sup=base+VM22; VC22          register object *sup=base+VM23; VC23
1796          vs_check;          vs_check;
1797          check_arg(2);          check_arg(2);
1798          vs_top=sup;          vs_top=sup;
1799          {object V293=base[0]->c.c_cdr;          {object V273=base[0]->c.c_cdr;
1800          if(endp(V293))invalid_macro_call();          if(endp(V273))invalid_macro_call();
1801          base[2]= (V293->c.c_car);          base[2]= (V273->c.c_car);
1802          V293=V293->c.c_cdr;          V273=V273->c.c_cdr;
1803          if(endp(V293))invalid_macro_call();          if(endp(V273))invalid_macro_call();
1804          base[3]= (V293->c.c_car);          base[3]= (V273->c.c_car);
1805          V293=V293->c.c_cdr;          V273=V273->c.c_cdr;
1806          if(endp(V293))invalid_macro_call();          if(endp(V273))invalid_macro_call();
1807          base[4]= (V293->c.c_car);          base[4]= (V273->c.c_car);
1808          V293=V293->c.c_cdr;          V273=V273->c.c_cdr;
1809          if(!endp(V293))invalid_macro_call();}          if(!endp(V273))invalid_macro_call();}
1810          V294= list(2,VV[96],base[2]);          V274= list(2,VV[101],base[2]);
1811          V295= list(2,VV[97],base[3]);          V275= list(2,VV[102],base[3]);
1812          base[5]= listA(3,VV[95],list(3,/* INLINE-ARGS */V294,/* INLINE-ARGS */V295,list(2,VV[98],base[4])),VV[99]);          base[5]= list(3,VV[100],list(3,/* INLINE-ARGS */V274,/* INLINE-ARGS */V275,list(2,VV[103],base[4])),VV[104]);
1813          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1814          return;          return;
1815  }  }
1816  /*      macro definition for INVOKE-METHOD-CALL */  /*      macro definition for INVOKE-METHOD-CALL */
1817    
1818  static void L25()  static void L28()
1819  {register object *base=vs_base;  {register object *base=vs_base;
1820          register object *sup=base+VM23; VC23          register object *sup=base+VM24; VC24
1821          vs_check;          vs_check;
1822          check_arg(2);          check_arg(2);
1823          vs_top=sup;          vs_top=sup;
1824          {object V296=base[0]->c.c_cdr;          {object V276=base[0]->c.c_cdr;
1825          if(endp(V296))invalid_macro_call();          if(endp(V276))invalid_macro_call();
1826          base[2]= (V296->c.c_car);          base[2]= (V276->c.c_car);
1827          V296=V296->c.c_cdr;          V276=V276->c.c_cdr;
1828          if(endp(V296))invalid_macro_call();          if(endp(V276))invalid_macro_call();
1829          base[3]= (V296->c.c_car);          base[3]= (V276->c.c_car);
1830          V296=V296->c.c_cdr;          V276=V276->c.c_cdr;
1831          base[4]= V296;}          base[4]= V276;}
1832          V297= list(2,VV[101],base[2]);          V277= list(2,VV[106],base[2]);
1833          if((base[3])==Cnil){          if((base[3])==Cnil){
1834          goto T538;}          goto T496;}
1835          V298= make_cons(VV[32],base[4]);          V278= make_cons(VV[36],base[4]);
1836          goto T536;          goto T494;
1837          goto T538;          goto T496;
1838  T538:;  T496:;
1839          V298= make_cons(VV[43],base[4]);          V278= make_cons(VV[47],base[4]);
1840          goto T536;          goto T494;
1841  T536:;  T494:;
1842          base[5]= list(4,VV[100],/* INLINE-ARGS */V297,V298,list(2,VV[102],base[2]));          base[5]= list(4,VV[105],/* INLINE-ARGS */V277,V278,list(2,VV[107],base[2]));
1843          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1844          return;          return;
1845  }  }
1846  /*      local entry for function MAKE-FAST-METHOD-CALL  */  /*      local entry for function MAKE-FAST-METHOD-CALL  */
1847    
1848  static object LI26(object first,...)  static object LI29(object first,...)
1849  {        {      
1850          va_list ap;          va_list ap;
1851          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1852          {object V299;          {object V279;
1853          object V300;          object V280;
1854          object V301;          object V281;
1855          object V302;          object V282;
1856          va_start(ap,first);          va_start(ap,first);
1857          narg= narg - 0;          narg= narg - 0;
1858          {          {
1859          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap);
1860          if(Vcs[0]==0){          if(Vcs[0]==0){
1861          V299= (VV[382]->s.s_gfdef);          V279= (VV[399]->s.s_gfdef);
1862          }else{          }else{
1863          V299=(Vcs[0]);}          V279=(Vcs[0]);}
1864          V300=(Vcs[1]);          V280=(Vcs[1]);
1865          V301=(Vcs[2]);          V281=(Vcs[2]);
1866          V302=(Vcs[3]);          V282=(Vcs[3]);
1867          base[0]= VV[103];          base[0]= VV[108];
1868          base[1]= (V299);          base[1]= (V279);
1869          base[2]= (V300);          base[2]= (V280);
1870          base[3]= (V301);          base[3]= (V281);
1871          base[4]= (V302);          base[4]= (V282);
1872          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1873          siLmake_structure();          siLmake_structure();
1874          vs_top=sup;          vs_top=sup;
1875          {object V303 = vs_base[0];          {object V283 = vs_base[0];
1876          VMR24(V303)}          VMR25(V283)}
1877          va_end(ap);          va_end(ap);
1878          base[0]=base[0];          base[0]=base[0];
1879          return Cnil;}          return Cnil;}
1880          }}          }}
1881  /*      macro definition for INVOKE-FAST-METHOD-CALL    */  /*      macro definition for INVOKE-FAST-METHOD-CALL    */
1882    
1883  static void L27()  static void L30()
1884  {register object *base=vs_base;  {register object *base=vs_base;
1885          register object *sup=base+VM25; VC25          register object *sup=base+VM26; VC26
1886          vs_check;          vs_check;
1887          check_arg(2);          check_arg(2);
1888          vs_top=sup;          vs_top=sup;
1889          {object V304=base[0]->c.c_cdr;          {object V284=base[0]->c.c_cdr;
1890          if(endp(V304))invalid_macro_call();          if(endp(V284))invalid_macro_call();
1891          base[2]= (V304->c.c_car);          base[2]= (V284->c.c_car);
1892          V304=V304->c.c_cdr;          V284=V284->c.c_cdr;
1893          base[3]= V304;}          base[3]= V284;}
1894          V305= list(2,VV[105],base[2]);          V285= list(2,VV[110],base[2]);
1895          V306= list(2,VV[106],base[2]);          V286= list(2,VV[111],base[2]);
1896          base[4]= listA(5,VV[104],/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,list(2,VV[107],base[2]),base[3]);          base[4]= listA(5,VV[109],/* INLINE-ARGS */V285,/* INLINE-ARGS */V286,list(2,VV[112],base[2]),base[3]);
1897          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1898          return;          return;
1899  }  }
1900  /*      local entry for function MAKE-FAST-INSTANCE-BOUNDP      */  /*      local entry for function MAKE-FAST-INSTANCE-BOUNDP      */
1901    
1902  static object LI28(object first,...)  static object LI31(object first,...)
1903  {        {      
1904          va_list ap;          va_list ap;
1905          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
1906          {object V307;          {object V287;
1907          va_start(ap,first);          va_start(ap,first);
1908          narg= narg - 0;          narg= narg - 0;
1909          {          {
1910          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap);
1911          V307=(Vcs[0]);          V287=(Vcs[0]);
1912          base[0]= VV[108];          base[0]= VV[113];
1913          base[1]= (V307);          base[1]= (V287);
1914          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1915          siLmake_structure();          siLmake_structure();
1916          vs_top=sup;          vs_top=sup;
1917          {object V308 = vs_base[0];          {object V288 = vs_base[0];
1918          VMR26(V308)}          VMR27(V288)}
1919          va_end(ap);          va_end(ap);
1920          base[0]=base[0];          base[0]=base[0];
1921          return Cnil;}          return Cnil;}
1922          }}          }}
1923  /*      local entry for function SHOW-EMF-CALL-TRACE    */  /*      local entry for function SHOW-EMF-CALL-TRACE    */
1924    
1925  static object LI29()  static object LI32()
1926    
1927  {        VMB27 VMS27 VMV27  {        VMB28 VMS28 VMV28
1928          bds_check;          bds_check;
1929          goto TTL;          goto TTL;
1930  TTL:;  TTL:;
1931          if(((VV[109]->s.s_dbind))==Cnil){          if(((VV[114]->s.s_dbind))==Cnil){
1932          goto T549;}          goto T507;}
1933          {register object V309;          {register object V289;
1934          V309= (VV[110]->s.s_dbind);          V289= (VV[115]->s.s_dbind);
1935          bds_bind(VV[111],Cnil);          bds_bind(VV[116],Cnil);
1936          base[1]= Ct;          base[1]= Ct;
1937          base[2]= VV[112];          base[2]= VV[117];
1938          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1939          Lformat();          Lformat();
1940          vs_top=sup;          vs_top=sup;
1941          {register long V310;          {register long V290;
1942          register long V311;          register long V291;
1943          V310= fix((VV[113]->s.s_dbind));          V290= fix((VV[118]->s.s_dbind));
1944          V311= 0;          V291= 0;
1945          goto T557;          goto T515;
1946  T557:;  T515:;
1947          if(!((V311)>=(V310))){          if(!((V291)>=(V290))){
1948          goto T558;}          goto T516;}
1949          {object V312 = Cnil;          {object V292 = Cnil;
1950          bds_unwind1;          bds_unwind1;
1951          VMR27(V312)}          VMR28(V292)}
1952          goto T558;          goto T516;
1953  T558:;  T516:;
1954          {register object V313;          {register object V293;
1955          V313= aref1((VV[109]->s.s_dbind),fix((V309)));          V293= aref1((VV[114]->s.s_dbind),fix((V289)));
1956          if(((V313))==Cnil){          if(((V293))==Cnil){
1957          goto T561;}          goto T519;}
1958          (void)(print((V313),Cnil));}          (void)(print((V293),Cnil));}
1959          goto T561;          goto T519;
1960  T561:;  T519:;
1961          V309= number_plus((V309),small_fixnum(1));          V289= number_plus((V289),small_fixnum(1));
1962          if(!(number_compare((V309),(VV[113]->s.s_dbind))==0)){          if(!(number_compare((V289),(VV[118]->s.s_dbind))==0)){
1963          goto T567;}          goto T525;}
1964          V309= small_fixnum(0);          V289= small_fixnum(0);
1965          goto T567;          goto T525;
1966  T567:;  T525:;
1967          V311= (long)(V311)+1;          V291= (long)(V291)+1;
1968          goto T557;}}          goto T515;}}
1969          goto T549;          goto T507;
1970  T549:;  T507:;
1971          {object V314 = Cnil;          {object V294 = Cnil;
1972          VMR27(V314)}          VMR28(V294)}
1973          base[0]=base[0];          base[0]=base[0];
1974          return Cnil;          return Cnil;
1975  }  }
1976  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */
1977    
1978  static object LI30(V318,V319,V320)  static object LI33(V298,V299,V300)
1979    
1980  object V318;object V319;object V320;  object V298;object V299;object V300;
1981  {        VMB28 VMS28 VMV28  {        VMB29 VMS29 VMV29
1982          goto TTL;          goto TTL;
1983  TTL:;  TTL:;
1984          if(((VV[109]->s.s_dbind))!=Cnil){          if(((VV[114]->s.s_dbind))!=Cnil){
1985          goto T574;}          goto T532;}
1986          base[0]= (VV[113]->s.s_dbind);          base[0]= (VV[118]->s.s_dbind);
1987          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1988          (void) (*Lnk388)();          (void) (*Lnk405)();
1989          vs_top=sup;          vs_top=sup;
1990          (VV[109]->s.s_dbind)= vs_base[0];          (VV[114]->s.s_dbind)= vs_base[0];
1991          goto T574;          goto T532;
1992  T574:;{object V321;  T532:;{object V301;
1993          V321= (VV[109]->s.s_dbind);{object V322;          V301= (VV[114]->s.s_dbind);{object V302;
1994          V322= (VV[110]->s.s_dbind);          V302= (VV[115]->s.s_dbind);
1995          V323= listA(3,(V318),(V319),(V320));          V303= listA(3,(V298),(V299),(V300));
1996          (void)(aset1(V321,fix(V322),/* INLINE-ARGS */V323));}}          (void)(aset1(V301,fix(V302),/* INLINE-ARGS */V303));}}
1997          (VV[110]->s.s_dbind)= number_plus((VV[110]->s.s_dbind),small_fixnum(1));          (VV[115]->s.s_dbind)= number_plus((VV[115]->s.s_dbind),small_fixnum(1));
1998          if(!(number_compare((VV[110]->s.s_dbind),(VV[113]->s.s_dbind))==0)){          if(!(number_compare((VV[115]->s.s_dbind),(VV[118]->s.s_dbind))==0)){
1999          goto T583;}          goto T541;}
2000          (VV[110]->s.s_dbind)= small_fixnum(0);          (VV[115]->s.s_dbind)= small_fixnum(0);
2001          {object V324 = small_fixnum(0);          {object V304 = small_fixnum(0);
2002          VMR28(V324)}          VMR29(V304)}
2003          goto T583;          goto T541;
2004  T583:;  T541:;
2005          {object V325 = Cnil;          {object V305 = Cnil;
2006          VMR28(V325)}          VMR29(V305)}
2007          base[0]=base[0];          base[0]=base[0];
2008          return Cnil;          return Cnil;
2009  }  }
2010  /*      macro definition for TRACE-EMF-CALL     */  /*      macro definition for TRACE-EMF-CALL     */
2011    
2012  static void L31()  static void L34()
2013  {register object *base=vs_base;  {register object *base=vs_base;
2014          register object *sup=base+VM29; VC29          register object *sup=base+VM30; VC30
2015          vs_check;          vs_check;
2016          check_arg(2);          check_arg(2);
2017          vs_top=sup;          vs_top=sup;
2018          {object V326=base[0]->c.c_cdr;          {object V306=base[0]->c.c_cdr;
2019          if(endp(V326))invalid_macro_call();          if(endp(V306))invalid_macro_call();
2020          base[2]= (V326->c.c_car);          base[2]= (V306->c.c_car);
2021          V326=V326->c.c_cdr;          V306=V306->c.c_cdr;
2022          if(endp(V326))invalid_macro_call();          if(endp(V306))invalid_macro_call();
2023          base[3]= (V326->c.c_car);          base[3]= (V306->c.c_car);
2024          V326=V326->c.c_cdr;          V306=V306->c.c_cdr;
2025          if(endp(V326))invalid_macro_call();          if(endp(V306))invalid_macro_call();
2026          base[4]= (V326->c.c_car);          base[4]= (V306->c.c_car);
2027          V326=V326->c.c_cdr;          V306=V306->c.c_cdr;
2028          if(!endp(V326))invalid_macro_call();}          if(!endp(V306))invalid_macro_call();}
2029          if(((VV[114]->s.s_dbind))==Cnil){          if(((VV[119]->s.s_dbind))==Cnil){
2030          goto T587;}          goto T545;}
2031          base[5]= list(3,VV[115],VV[111],list(4,VV[116],base[2],base[3],base[4]));          base[5]= list(3,VV[120],VV[116],list(4,VV[121],base[2],base[3],base[4]));
2032          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2033          return;          return;
2034          goto T587;          goto T545;
2035  T587:;  T545:;
2036          base[5]= Cnil;          base[5]= Cnil;
2037          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2038          return;          return;
2039  }  }
2040  /*      macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST      */  /*      macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST      */
2041    
2042  static void L32()  static void L35()
2043  {register object *base=vs_base;  {register object *base=vs_base;
2044          register object *sup=base+VM30; VC30          register object *sup=base+VM31; VC31
2045          vs_check;          vs_check;
2046          check_arg(2);          check_arg(2);
2047          vs_top=sup;          vs_top=sup;
2048          {object V327=base[0]->c.c_cdr;          {object V307=base[0]->c.c_cdr;
2049          if(endp(V327))invalid_macro_call();          if(endp(V307))invalid_macro_call();
2050          base[2]= (V327->c.c_car);          base[2]= (V307->c.c_car);
2051          V327=V327->c.c_cdr;          V307=V307->c.c_cdr;
2052          if(endp(V327))invalid_macro_call();          if(endp(V307))invalid_macro_call();
2053          base[3]= (V327->c.c_car);          base[3]= (V307->c.c_car);
2054          V327=V327->c.c_cdr;          V307=V307->c.c_cdr;
2055          base[4]= V327;}          base[4]= V307;}
2056          V328= list(4,VV[117],base[2],base[3],make_cons(VV[43],base[4]));          V308= list(4,VV[122],base[2],base[3],make_cons(VV[47],base[4]));
2057          base[5]= list(3,VV[9],/* INLINE-ARGS */V328,listA(3,VV[118],base[2],base[4]));          base[5]= list(3,VV[13],/* INLINE-ARGS */V308,listA(3,VV[123],base[2],base[4]));
2058          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2059          return;          return;
2060  }  }
2061  /*      macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION   */  /*      macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION   */
2062    
2063  static void L33()  static void L36()
2064  {register object *base=vs_base;  {register object *base=vs_base;
2065          register object *sup=base+VM31; VC31          register object *sup=base+VM32; VC32
2066          vs_check;          vs_check;
2067          check_arg(2);          check_arg(2);
2068          vs_top=sup;          vs_top=sup;
2069          {object V329=base[0]->c.c_cdr;          {object V309=base[0]->c.c_cdr;
2070          if(endp(V329))invalid_macro_call();          if(endp(V309))invalid_macro_call();
2071          base[2]= (V329->c.c_car);          base[2]= (V309->c.c_car);
2072          V329=V329->c.c_cdr;          V309=V309->c.c_cdr;
2073          if(endp(V329))invalid_macro_call();          if(endp(V309))invalid_macro_call();
2074          base[3]= (V329->c.c_car);          base[3]= (V309->c.c_car);
2075          V329=V329->c.c_cdr;          V309=V309->c.c_cdr;
2076          base[4]= V329;}          base[4]= V309;}
2077          base[5]= base[3];          base[5]= base[3];
2078          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2079          Lconstantp();          Lconstantp();
2080          vs_top=sup;          vs_top=sup;
2081          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2082          goto T589;}          goto T547;}
2083          base[5]= VV[119];          base[5]= VV[124];
2084          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2085          Lerror();          Lerror();
2086          vs_top=sup;          vs_top=sup;
2087          goto T589;          goto T547;
2088  T589:;  T547:;
2089          base[5]= base[3];          base[5]= base[3];
2090          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2091          Leval();          Leval();
2092          vs_top=sup;          vs_top=sup;
2093          base[3]= vs_base[0];          base[3]= vs_base[0];
2094          V330= list(4,VV[117],base[2],base[3],make_cons(VV[43],base[4]));          V310= list(4,VV[122],base[2],base[3],make_cons(VV[47],base[4]));
2095          V331= list(3,VV[121],base[2],VV[122]);          V311= list(3,VV[126],base[2],VV[127]);
2096          V332= list(2,/* INLINE-ARGS */V331,listA(3,VV[118],base[2],base[4]));          V312= list(2,/* INLINE-ARGS */V311,listA(3,VV[123],base[2],base[4]));
2097          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2098          goto T600;}          goto T558;}
2099          if(!((1)==((long)length(base[4])))){          if(!((1)==((long)length(base[4])))){
2100          goto T600;}          goto T558;}
2101          V334= list(3,VV[121],base[2],VV[123]);          V314= list(3,VV[126],base[2],VV[128]);
2102          V335= list(2,VV[125],list(2,VV[126],CMPcar(base[4])));          V315= list(2,VV[130],list(2,VV[131],CMPcar(base[4])));
2103          V336= list(2,/* INLINE-ARGS */V335,list(2,VV[127],list(3,VV[115],VV[125],list(3,VV[128],VV[125],base[2]))));          V316= list(2,/* INLINE-ARGS */V315,list(2,VV[132],list(3,VV[120],VV[130],list(3,VV[133],VV[130],base[2]))));
2104          V337= list(3,VV[130],VV[127],list(2,VV[1],(VV[131]->s.s_dbind)));          V317= list(3,VV[135],VV[132],list(2,VV[1],(VV[136]->s.s_dbind)));
2105          V338= list(2,/* INLINE-ARGS */V334,list(3,VV[124],/* INLINE-ARGS */V336,list(4,VV[129],/* INLINE-ARGS */V337,list(3,VV[132],CMPcar(base[4]),base[2]),VV[127])));          V318= list(2,/* INLINE-ARGS */V314,list(3,VV[129],/* INLINE-ARGS */V316,list(4,VV[134],/* INLINE-ARGS */V317,list(3,VV[137],CMPcar(base[4]),base[2]),VV[132])));
2106          base[5]= make_cons(/* INLINE-ARGS */V338,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V318,Cnil);
2107          goto T598;          goto T556;
2108          goto T600;          goto T558;
2109  T600:;  T558:;
2110          base[5]= Cnil;          base[5]= Cnil;
2111          goto T598;          goto T556;
2112  T598:;  T556:;
2113          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2114          goto T606;}          goto T564;}
2115          if(!((2)==((long)length(base[4])))){          if(!((2)==((long)length(base[4])))){
2116          goto T606;}          goto T564;}
2117          V339= list(3,VV[121],base[2],VV[133]);          V319= list(3,VV[126],base[2],VV[138]);
2118          V340= list(2,VV[134],CMPcar(base[4]));          V320= list(2,VV[139],CMPcar(base[4]));
2119          V341= list(2,/* INLINE-ARGS */V340,list(2,VV[125],list(2,VV[126],CMPcar(base[4]))));          V321= list(2,/* INLINE-ARGS */V320,list(2,VV[130],list(2,VV[131],CMPcar(base[4]))));
2120          V342= list(2,/* INLINE-ARGS */V339,list(3,VV[95],/* INLINE-ARGS */V341,list(3,VV[115],VV[125],list(3,VV[30],list(3,VV[128],VV[125],base[2]),VV[134]))));          V322= list(2,/* INLINE-ARGS */V319,list(3,VV[100],/* INLINE-ARGS */V321,list(3,VV[120],VV[130],list(3,VV[34],list(3,VV[133],VV[130],base[2]),VV[139]))));
2121          base[6]= make_cons(/* INLINE-ARGS */V342,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V322,Cnil);
2122          goto T604;          goto T562;
2123          goto T606;          goto T564;
2124  T606:;  T564:;
2125          base[6]= Cnil;          base[6]= Cnil;
2126          goto T604;          goto T562;
2127  T604:;  T562:;
2128          V343= list(2,VV[94],listA(4,VV[136],base[2],base[3],base[4]));          V323= list(2,VV[99],listA(4,VV[141],base[2],base[3],base[4]));
2129          if((base[3])==Cnil){          if((base[3])==Cnil){
2130          goto T613;}          goto T571;}
2131          V344= listA(3,VV[137],list(3,VV[138],VV[14],base[2]),base[4]);          V324= listA(3,VV[142],list(3,VV[143],VV[18],base[2]),base[4]);
2132          goto T611;          goto T569;
2133          goto T613;          goto T571;
2134  T613:;  T571:;
2135          V344= listA(3,VV[139],list(3,VV[138],VV[14],base[2]),base[4]);          V324= listA(3,VV[144],list(3,VV[143],VV[18],base[2]),base[4]);
2136          goto T611;          goto T569;
2137  T611:;  T569:;
2138          V345= list(2,Ct,list(4,VV[135],base[2],/* INLINE-ARGS */V343,list(2,VV[14],V344)));          V325= list(2,Ct,list(4,VV[140],base[2],/* INLINE-ARGS */V323,list(2,VV[18],V324)));
2139          base[7]= make_cons(/* INLINE-ARGS */V345,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V325,Cnil);
2140          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2141          Lappend();          Lappend();
2142          vs_top=sup;          vs_top=sup;
2143          V333= vs_base[0];          V313= vs_base[0];
2144          base[5]= list(3,VV[9],/* INLINE-ARGS */V330,listA(3,VV[120],/* INLINE-ARGS */V332,V333));          base[5]= list(3,VV[13],/* INLINE-ARGS */V310,listA(3,VV[125],/* INLINE-ARGS */V312,V313));
2145          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2146          return;          return;
2147  }  }
2148  /*      function definition for INVOKE-EMF      */  /*      function definition for INVOKE-EMF      */
2149    
2150  static void L34()  static void L37()
2151  {register object *base=vs_base;  {register object *base=vs_base;
2152          register object *sup=base+VM32; VC32          register object *sup=base+VM33; VC33
2153          vs_check;          vs_check;
2154          {register object V346;          {register object V326;
2155          register object V347;          register object V327;
2156          check_arg(2);          check_arg(2);
2157          V346=(base[0]);          V326=(base[0]);
2158          V347=(base[1]);          V327=(base[1]);
2159          vs_top=sup;          vs_top=sup;
2160          goto TTL;          goto TTL;
2161  TTL:;  TTL:;
2162          {register object V348;          {register object V329;
2163          V348= (V346);          V329= V326;
2164          base[2]= (V348);          base[2]= (V329);
2165          base[3]= VV[103];          base[3]= VV[108];
2166          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2167          (void) (*Lnk389)();          (void) (*Lnk406)();
2168          vs_top=sup;          vs_top=sup;
2169          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2170          goto T617;}          goto T575;}
2171          {object V349;          {object V330;
2172          object V350;          object V331;
2173          register object V351;          register object V332;
2174          V349= STREF(object,(V346),12);          V330= STREF(object,(V326),12);
2175          V350= CMPcdr((V349));          V331= CMPcdr((V330));
2176          V351= CMPcar((V349));          V332= CMPcar((V330));
2177          if(((V350))==Cnil){          if(((V331))==Cnil){
2178          goto T625;}          goto T583;}
2179          {object V352;          {object V333;
2180          object V353;          object V334;
2181          V352= nthcdr(fix((V351)),(V347));          V333= nthcdr(fix((V332)),(V327));
2182          base[7]= (V347);          base[7]= (V327);
2183          base[8]= (V352);          base[8]= (V333);
2184          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2185          Lldiff();          Lldiff();
2186          vs_top=sup;          vs_top=sup;
2187          V353= vs_base[0];          V334= vs_base[0];
2188          base[7]= STREF(object,(V346),0);          base[7]= STREF(object,(V326),0);
2189          base[8]= STREF(object,(V346),4);          base[8]= STREF(object,(V326),4);
2190          base[9]= STREF(object,(V346),8);          base[9]= STREF(object,(V326),8);
2191          {object V354;          {object V335;
2192          V355= make_cons((V352),Cnil);          V336= make_cons((V333),Cnil);
2193          V354= nconc((V353),/* INLINE-ARGS */V355);          V335= nconc((V334),/* INLINE-ARGS */V336);
2194           vs_top=base+10;           vs_top=base+10;
2195           while(V354!=Cnil)           while(V335!=Cnil)
2196           {vs_push((V354)->c.c_car);V354=(V354)->c.c_cdr;}           {vs_push((V335)->c.c_car);V335=(V335)->c.c_cdr;}
2197          vs_base=base+8;}          vs_base=base+8;}
2198          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2199                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2200                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2201                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2202          return;}          return;}
2203          goto T625;          goto T583;
2204  T625:;  T583:;
2205          if(((V347))!=Cnil){          if(((V327))!=Cnil){
2206          goto T636;}          goto T594;}
2207          if(!(eql((V351),small_fixnum(0)))){          if(!(eql((V332),small_fixnum(0)))){
2208          goto T639;}          goto T597;}
2209          base[5]= STREF(object,(V346),0);          base[5]= STREF(object,(V326),0);
2210          base[6]= STREF(object,(V346),4);          base[6]= STREF(object,(V326),4);
2211          base[7]= STREF(object,(V346),8);          base[7]= STREF(object,(V326),8);
2212          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2213          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2214                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2215                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2216                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2217          return;          return;
2218          goto T639;          goto T597;
2219  T639:;  T597:;
2220          base[5]= VV[140];          base[5]= VV[145];
2221          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2222          Lerror();          Lerror();
2223          return;          return;
2224          goto T636;          goto T594;
2225  T636:;  T594:;
2226          if((CMPcdr((V347)))!=Cnil){          if((CMPcdr((V327)))!=Cnil){
2227          goto T646;}          goto T604;}
2228          if(!(eql((V351),small_fixnum(1)))){          if(!(eql((V332),small_fixnum(1)))){
2229          goto T649;}          goto T607;}
2230          base[5]= STREF(object,(V346),0);          base[5]= STREF(object,(V326),0);
2231          base[6]= STREF(object,(V346),4);          base[6]= STREF(object,(V326),4);
2232          base[7]= STREF(object,(V346),8);          base[7]= STREF(object,(V326),8);
2233          base[8]= CMPcar((V347));          base[8]= CMPcar((V327));
2234          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2235          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2236                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2237                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2238                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2239          return;          return;
2240          goto T649;          goto T607;
2241  T649:;  T607:;
2242          base[5]= VV[141];          base[5]= VV[146];
2243          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2244          Lerror();          Lerror();
2245          return;          return;
2246          goto T646;          goto T604;
2247  T646:;  T604:;
2248          if((CMPcddr((V347)))!=Cnil){          if((CMPcddr((V327)))!=Cnil){
2249          goto T657;}          goto T615;}
2250          if(!(eql((V351),small_fixnum(2)))){          if(!(eql((V332),small_fixnum(2)))){
2251          goto T660;}          goto T618;}
2252          base[5]= STREF(object,(V346),0);          base[5]= STREF(object,(V326),0);
2253          base[6]= STREF(object,(V346),4);          base[6]= STREF(object,(V326),4);
2254          base[7]= STREF(object,(V346),8);          base[7]= STREF(object,(V326),8);
2255          base[8]= CMPcar((V347));          base[8]= CMPcar((V327));
2256          base[9]= CMPcadr((V347));          base[9]= CMPcadr((V327));
2257          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
2258          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2259                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2260                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2261                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2262          return;          return;
2263          goto T660;          goto T618;
2264  T660:;  T618:;
2265          base[5]= VV[142];          base[5]= VV[147];
2266          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2267          Lerror();          Lerror();
2268          return;          return;
2269          goto T657;          goto T615;
2270  T657:;  T615:;
2271          base[5]= STREF(object,(V346),0);          base[5]= STREF(object,(V326),0);
2272          base[6]= STREF(object,(V346),4);          base[6]= STREF(object,(V326),4);
2273          base[7]= STREF(object,(V346),8);          base[7]= STREF(object,(V326),8);
2274          {object V356;          {object V337;
2275          V356= (V347);          V337= (V327);
2276           vs_top=base+8;           vs_top=base+8;
2277           while(V356!=Cnil)           while(V337!=Cnil)
2278           {vs_push((V356)->c.c_car);V356=(V356)->c.c_cdr;}           {vs_push((V337)->c.c_car);V337=(V337)->c.c_cdr;}
2279          vs_base=base+6;}          vs_base=base+6;}
2280          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2281                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2282                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2283                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2284          return;}          return;}
2285          goto T617;          goto T575;
2286  T617:;  T575:;
2287          base[2]= (V348);          base[2]= (V329);
2288          base[3]= VV[94];          base[3]= VV[99];
2289          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2290          (void) (*Lnk389)();          (void) (*Lnk406)();
2291          vs_top=sup;          vs_top=sup;
2292          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2293          goto T673;}          goto T631;}
2294          base[2]= STREF(object,(V346),0);          base[2]= STREF(object,(V326),0);
2295          base[3]= (V347);          base[3]= (V327);
2296          {object V357;          {object V338;
2297          V357= STREF(object,(V346),4);          V338= STREF(object,(V326),4);
2298           vs_top=base+4;           vs_top=base+4;
2299           while(V357!=Cnil)           while(V338!=Cnil)
2300           {vs_push((V357)->c.c_car);V357=(V357)->c.c_cdr;}           {vs_push((V338)->c.c_car);V338=(V338)->c.c_cdr;}
2301          vs_base=base+3;}          vs_base=base+3;}
2302          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2303                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2304                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2305                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2306          return;          return;
2307          goto T673;          goto T631;
2308  T673:;  T631:;
2309          if(!(type_of((V348))==t_fixnum)){          if(!(type_of((V329))==t_fixnum)){
2310          goto T681;}          goto T639;}
2311          if(((V347))!=Cnil){          if(((V327))!=Cnil){
2312          goto T684;}          goto T642;}
2313          base[2]= VV[143];          base[2]= VV[148];
2314          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2315          Lerror();          Lerror();
2316          return;          return;
2317          goto T684;          goto T642;
2318  T684:;  T642:;
2319          if((CMPcdr((V347)))!=Cnil){          if((CMPcdr((V327)))!=Cnil){
2320          goto T688;}          goto T646;}
2321          {object V358;          {object V339;
2322          {object V360;          {object V341;
2323          V360= CMPcar((V347));          V341= CMPcar((V327));
2324          if(type_of((V360))==t_structure){          if(type_of((V341))==t_structure){
2325          goto T696;}          goto T654;}
2326          goto T693;          goto T651;
2327          goto T696;          goto T654;
2328  T696:;  T654:;
2329          if(!((((V360))->str.str_def)==(VV[144]))){          if(!((((V341))->str.str_def)==(VV[149]))){
2330          goto T693;}}          goto T651;}}
2331          V359= STREF(object,CMPcar((V347)),4);          V340= STREF(object,CMPcar((V327)),4);
2332          goto T691;          goto T649;
2333          goto T693;          goto T651;
2334  T693:;{object V361;  T651:;{object V342;
2335          V361= (VV[146]->s.s_dbind);          V342= (VV[151]->s.s_dbind);
2336          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2337          base[3]= CMPcar((V347));          base[3]= CMPcar((V327));
2338          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2339          (void) (*Lnk390)();          (void) (*Lnk407)();
2340          vs_top=sup;          vs_top=sup;
2341          V362= vs_base[0];          V343= vs_base[0];
2342          if(!((V361)==(CMPcar(V362)))){          if(!((V342)==(CMPcar(V343)))){
2343          goto T699;}}          goto T657;}}
2344          V359= CMPcar((CMPcar((V347)))->cc.cc_turbo[12]);          V340= CMPcar((CMPcar((V327)))->cc.cc_turbo[12]);
2345          goto T691;          goto T649;
2346          goto T699;          goto T657;
2347  T699:;  T657:;
2348          base[2]= VV[147];          base[2]= VV[152];
2349          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2350          Lerror();          Lerror();
2351          vs_top=sup;          vs_top=sup;
2352          V359= vs_base[0];          V340= vs_base[0];
2353          goto T691;          goto T649;
2354  T691:;  T649:;
2355          V363 = fix((V346));          V339= (V340)->v.v_self[fix((V326))];
2356          V358= (V359)->v.v_self[V363];          if(!(((V339))==((VV[136]->s.s_dbind)))){
2357          if(!(((V358))==((VV[131]->s.s_dbind)))){          goto T664;}
2358          goto T706;}          base[2]= CMPcar((V327));
2359          base[2]= CMPcar((V347));          base[3]= (V326);
         base[3]= (V346);  
2360          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2361          (void) (*Lnk132)();          (void) (*Lnk137)();
2362          return;          return;
2363          goto T706;          goto T664;
2364  T706:;  T664:;
2365          base[2]= (V358);          base[2]= (V339);
2366          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2367          return;}          return;}
2368          goto T688;          goto T646;
2369  T688:;  T646:;
2370          if((CMPcddr((V347)))!=Cnil){          if((CMPcddr((V327)))!=Cnil){
2371          goto T711;}          goto T669;}
2372          {object V365;          {object V345;
2373          V365= CMPcadr((V347));          V345= CMPcadr((V327));
2374          if(type_of((V365))==t_structure){          if(type_of((V345))==t_structure){
2375          goto T718;}          goto T676;}
2376          goto T715;          goto T673;
2377          goto T718;          goto T676;
2378  T718:;  T676:;
2379          if(!((((V365))->str.str_def)==(VV[148]))){          if(!((((V345))->str.str_def)==(VV[153]))){
2380          goto T715;}}          goto T673;}}
2381          V364= STREF(object,CMPcadr((V347)),4);          V344= STREF(object,CMPcadr((V327)),4);
2382          goto T713;          goto T671;
2383          goto T715;          goto T673;
2384  T715:;{object V366;  T673:;{object V346;
2385          V366= (VV[146]->s.s_dbind);          V346= (VV[151]->s.s_dbind);
2386          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2387          base[3]= CMPcadr((V347));          base[3]= CMPcadr((V327));
2388          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2389          (void) (*Lnk390)();          (void) (*Lnk407)();
2390          vs_top=sup;          vs_top=sup;
2391          V367= vs_base[0];          V347= vs_base[0];
2392          if(!((V366)==(CMPcar(V367)))){          if(!((V346)==(CMPcar(V347)))){
2393          goto T721;}}          goto T679;}}
2394          V364= CMPcar((CMPcadr((V347)))->cc.cc_turbo[12]);          V344= CMPcar((CMPcadr((V327)))->cc.cc_turbo[12]);
2395          goto T713;          goto T671;
2396          goto T721;          goto T679;
2397  T721:;  T679:;
2398          base[2]= VV[147];          base[2]= VV[152];
2399          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2400          Lerror();          Lerror();
2401          vs_top=sup;          vs_top=sup;
2402          V364= vs_base[0];          V344= vs_base[0];
2403          goto T713;          goto T671;
2404  T713:;  T671:;
2405          V368 = fix((V346));          base[2]= (V344)->v.v_self[fix((V326))]= (CMPcar((V327)));
         base[2]= (V364)->v.v_self[V368]= (CMPcar((V347)));  
2406          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2407          return;          return;
2408          goto T711;          goto T669;
2409  T711:;  T669:;
2410          base[2]= VV[149];          base[2]= VV[154];
2411          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2412          Lerror();          Lerror();
2413          return;          return;
2414          goto T681;          goto T639;
2415  T681:;  T639:;
2416          base[2]= (V348);          base[2]= (V329);
2417          base[3]= VV[108];          base[3]= VV[113];
2418          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2419          (void) (*Lnk389)();          (void) (*Lnk406)();
2420          vs_top=sup;          vs_top=sup;
2421          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2422          goto T729;}          goto T687;}
2423          if(((V347))==Cnil){          if(((V327))==Cnil){
2424          goto T733;}          goto T691;}
2425          if((CMPcdr((V347)))==Cnil){          if((CMPcdr((V327)))==Cnil){
2426          goto T734;}          goto T692;}
2427          goto T733;          goto T691;
2428  T733:;  T691:;
2429          base[2]= VV[150];          base[2]= VV[155];
2430          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2431          Lerror();          Lerror();
2432          return;          return;
2433          goto T734;          goto T692;
2434  T734:;  T692:;
2435          {object V370;          {object V349;
2436          V370= CMPcar((V347));          V349= CMPcar((V327));
2437          if(type_of((V370))==t_structure){          if(type_of((V349))==t_structure){
2438          goto T744;}          goto T702;}
2439          goto T741;          goto T699;
2440          goto T744;          goto T702;
2441  T744:;  T702:;
2442          if(!((((V370))->str.str_def)==(VV[151]))){          if(!((((V349))->str.str_def)==(VV[156]))){
2443          goto T741;}}          goto T699;}}
2444          V369= STREF(object,CMPcar((V347)),4);          V348= STREF(object,CMPcar((V327)),4);
2445          goto T739;          goto T697;
2446          goto T741;          goto T699;
2447  T741:;{object V371;  T699:;{object V350;
2448          V371= (VV[146]->s.s_dbind);          V350= (VV[151]->s.s_dbind);
2449          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2450          base[3]= CMPcar((V347));          base[3]= CMPcar((V327));
2451          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2452          (void) (*Lnk390)();          (void) (*Lnk407)();
2453          vs_top=sup;          vs_top=sup;
2454          V372= vs_base[0];          V351= vs_base[0];
2455          if(!((V371)==(CMPcar(V372)))){          if(!((V350)==(CMPcar(V351)))){
2456          goto T747;}}          goto T705;}}
2457          V369= CMPcar((CMPcar((V347)))->cc.cc_turbo[12]);          V348= CMPcar((CMPcar((V327)))->cc.cc_turbo[12]);
2458          goto T739;          goto T697;
2459          goto T747;          goto T705;
2460  T747:;  T705:;
2461          base[2]= VV[147];          base[2]= VV[152];
2462          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2463          Lerror();          Lerror();
2464          vs_top=sup;          vs_top=sup;
2465          V369= vs_base[0];          V348= vs_base[0];
2466          goto T739;          goto T697;
2467  T739:;  T697:;
2468          base[2]= (((((V369)->v.v_self[(long)STREF(fixnum,(V346),0)])==((VV[131]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          base[2]= (((((V348)->v.v_self[(long)STREF(fixnum,(V326),0)])==((VV[136]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);
2469          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2470          return;          return;
2471          goto T729;          goto T687;
2472  T729:;  T687:;
2473          base[2]= (V348);          base[2]= (V329);
2474          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2475          Lfunctionp();          Lfunctionp();
2476          vs_top=sup;          vs_top=sup;
2477          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2478          goto T754;}          goto T712;}
2479          base[2]= (V346);          base[2]= (V326);
2480          {object V373;          {object V352;
2481          V373= (V347);          V352= (V327);
2482           vs_top=base+3;           vs_top=base+3;
2483           while(V373!=Cnil)           while(V352!=Cnil)
2484           {vs_push((V373)->c.c_car);V373=(V373)->c.c_cdr;}           {vs_push((V352)->c.c_car);V352=(V352)->c.c_cdr;}
2485          vs_base=base+3;}          vs_base=base+3;}
2486          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2487                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2488                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2489                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2490          return;          return;
2491          goto T754;          goto T712;
2492  T754:;  T712:;
2493          base[3]= VV[152];          base[2]= VV[157];
2494          base[4]= (V348);          base[3]= VV[158];
2495          base[5]= VV[153];          base[4]= VV[159];
2496          vs_top=(vs_base=base+3)+3;          base[5]= VV[160];
2497          (void) (*Lnk392)();          base[6]= V326;
2498          vs_top=sup;          base[7]= VV[161];
2499          base[2]= vs_base[0];          base[8]= VV[162];
2500          vs_top=(vs_base=base+2)+1;          base[9]= VV[163];
2501          Lerror();          base[10]= VV[164];
2502            vs_top=(vs_base=base+2)+9;
2503            (void) (*Lnk409)();
2504          return;}          return;}
2505          }          }
2506  }  }
 /*      local entry for function GF-MAKE-FUNCTION-FROM-EMF      */  
   
 static object LI36(V376,V377)  
   
 object V376;object V377;  
 {        VMB33 VMS33 VMV33  
         goto TTL;  
 TTL:;  
         base[0]=MMcons((V377),Cnil);  
         {register object V378;  
         V378= (base[0]->c.c_car);  
         base[1]= (V378);  
         base[2]= VV[103];  
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk389)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T764;}  
         {object V379;  
         base[4]= (V376);  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk393)(Lclptr393);  
         vs_top=sup;  
         V379= vs_base[0];  
         base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V379)));  
         base[2]=MMcons(base[2],base[0]);  
         base[3]= (*(LnkLI395))((V379));  
         base[3]=MMcons(base[3],base[2]);  
         {object V380 =  
         make_cclosure_new(LC130,Cnil,base[3],Cdata);  
         VMR33(V380)}}  
         goto T764;  
 T764:;  
         base[1]= (V378);  
         base[2]= VV[94];  
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk389)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T773;}  
         {object V381 =  
         make_cclosure_new(LC131,Cnil,base[0],Cdata);  
         VMR33(V381)}  
         goto T773;  
 T773:;  
         base[1]= (V378);  
         vs_top=(vs_base=base+1)+1;  
         Lfunctionp();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T778;}  
         {object V382 = (base[0]->c.c_car);  
         VMR33(V382)}  
         goto T778;  
 T778:;  
         base[2]= VV[152];  
         base[3]= (V378);  
         base[4]= VV[155];  
         vs_top=(vs_base=base+2)+3;  
         (void) (*Lnk392)();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         vs_top=(vs_base=base+1)+1;  
         Lerror();  
         vs_top=sup;  
         {object V383 = vs_base[0];  
         VMR33(V383)}}  
         base[0]=base[0];  
         return Cnil;  
 }  
2507  /*      macro definition for BIND-FAST-LEXICAL-METHOD-MACROS    */  /*      macro definition for BIND-FAST-LEXICAL-METHOD-MACROS    */
2508    
2509  static void L37()  static void L38()
2510  {register object *base=vs_base;  {register object *base=vs_base;
2511          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2512          vs_check;          vs_check;
2513          check_arg(2);          check_arg(2);
2514          vs_top=sup;          vs_top=sup;
2515          {object V384=base[0]->c.c_cdr;          {object V353=base[0]->c.c_cdr;
2516          if(endp(V384))invalid_macro_call();          if(endp(V353))invalid_macro_call();
2517          {object V385= (V384->c.c_car);          {object V354= (V353->c.c_car);
2518          if(endp(V385))invalid_macro_call();          if(endp(V354))invalid_macro_call();
2519          base[2]= (V385->c.c_car);          base[2]= (V354->c.c_car);
2520          V385=V385->c.c_cdr;          V354=V354->c.c_cdr;
2521          if(endp(V385))invalid_macro_call();          if(endp(V354))invalid_macro_call();
2522          base[3]= (V385->c.c_car);          base[3]= (V354->c.c_car);
2523          V385=V385->c.c_cdr;          V354=V354->c.c_cdr;
2524          if(endp(V385))invalid_macro_call();          if(endp(V354))invalid_macro_call();
2525          base[4]= (V385->c.c_car);          base[4]= (V354->c.c_car);
2526          V385=V385->c.c_cdr;          V354=V354->c.c_cdr;
2527          if(!endp(V385))invalid_macro_call();}          if(!endp(V354))invalid_macro_call();}
2528          V384=V384->c.c_cdr;          V353=V353->c.c_cdr;
2529          base[5]= V384;}          base[5]= V353;}
2530          V386= list(2,VV[1],base[4]);          V355= list(2,VV[1],base[4]);
2531          V387= listA(3,VV[159],list(2,VV[160],list(2,VV[1],base[3])),VV[161]);          V356= listA(3,VV[168],list(2,VV[169],list(2,VV[1],base[3])),VV[170]);
2532          V388= listA(4,VV[32],VV[162],list(2,VV[1],base[4]),VV[163]);          V357= listA(4,VV[36],VV[171],list(2,VV[1],base[4]),VV[172]);
2533          V389= list(2,VV[1],base[4]);          V358= list(2,VV[1],base[4]);
2534          V390= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));          V359= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));
2535          V391= list(2,VV[1],base[2]);          V360= list(2,VV[1],base[2]);
2536            if((base[3])==Cnil){
2537            goto T728;}
2538            V361= make_cons(base[3],Cnil);
2539            goto T726;
2540            goto T728;
2541    T728:;
2542            V361= Cnil;
2543            goto T726;
2544    T726:;
2545            V362= list(2,VV[173],list(5,VV[36],VV[174],/* INLINE-ARGS */V358,/* INLINE-ARGS */V359,list(3,VV[175],/* INLINE-ARGS */V360,list(2,VV[1],V361))));
2546            V363= make_cons(/* INLINE-ARGS */V362,Cnil);
2547            V364= list(2,VV[1],base[2]);
2548          if((base[3])==Cnil){          if((base[3])==Cnil){
2549          goto T787;}          goto T732;}
2550          V392= make_cons(base[3],Cnil);          V365= list(2,VV[178],base[3]);
2551          goto T785;          goto T730;
2552          goto T787;          goto T732;
2553  T787:;  T732:;
2554          V392= Cnil;          V365= Cnil;
2555          goto T785;          goto T730;
2556  T785:;  T730:;
2557          V393= list(2,VV[164],list(5,VV[32],VV[165],/* INLINE-ARGS */V389,/* INLINE-ARGS */V390,list(3,VV[166],/* INLINE-ARGS */V391,list(2,VV[1],V392))));          V366= list(4,VV[134],/* INLINE-ARGS */V356,/* INLINE-ARGS */V357,list(3,VV[100],/* INLINE-ARGS */V363,list(5,VV[47],VV[176],VV[93],list(4,VV[47],VV[177],list(3,VV[47],list(3,VV[175],/* INLINE-ARGS */V364,list(2,VV[1],V365)),VV[93]),VV[173]),VV[173])));
2558          V394= make_cons(/* INLINE-ARGS */V393,Cnil);          V367= listA(3,VV[168],list(2,VV[169],list(2,VV[1],base[3])),VV[179]);
2559          V395= list(2,VV[1],base[2]);          V368= list(2,VV[1],base[2]);
2560          if((base[3])==Cnil){          if((base[3])==Cnil){
2561          goto T791;}          goto T736;}
2562          V396= list(2,VV[169],base[3]);          V369= make_cons(base[3],Cnil);
2563          goto T789;          goto T734;
2564          goto T791;          goto T736;
2565  T791:;  T736:;
2566          V396= Cnil;          V369= Cnil;
2567          goto T789;          goto T734;
2568  T789:;  T734:;
2569          V397= list(3,VV[84],VV[157],list(5,VV[43],VV[158],/* INLINE-ARGS */V386,list(4,VV[129],/* INLINE-ARGS */V387,/* INLINE-ARGS */V388,list(3,VV[95],/* INLINE-ARGS */V394,list(5,VV[43],VV[167],VV[91],list(4,VV[43],VV[168],list(3,VV[43],list(3,VV[166],/* INLINE-ARGS */V395,list(2,VV[1],V396)),VV[91]),VV[164]),VV[164]))),VV[170]));          V370= list(3,VV[86],VV[166],list(5,VV[47],VV[167],/* INLINE-ARGS */V355,/* INLINE-ARGS */V366,list(4,VV[134],/* INLINE-ARGS */V367,VV[180],list(4,VV[36],VV[181],VV[182],list(3,VV[175],/* INLINE-ARGS */V368,list(2,VV[1],V369))))));
2570          base[6]= listA(3,VV[75],list(3,VV[156],/* INLINE-ARGS */V397,list(3,VV[171],Cnil,list(3,VV[43],VV[172],list(3,VV[43],VV[173],list(2,VV[1],base[4]))))),base[5]);          base[6]= listA(3,VV[77],list(3,VV[165],/* INLINE-ARGS */V370,list(3,VV[183],Cnil,list(3,VV[47],VV[184],list(3,VV[47],VV[185],list(2,VV[1],base[4]))))),base[5]);
2571          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2572          return;          return;
2573  }  }
2574  /*      macro definition for BIND-LEXICAL-METHOD-FUNCTIONS      */  /*      macro definition for BIND-LEXICAL-METHOD-FUNCTIONS      */
2575    
2576  static void L38()  static void L39()
2577  {register object *base=vs_base;  {register object *base=vs_base;
2578          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2579          vs_check;          vs_check;
2580          check_arg(2);          check_arg(2);
2581          vs_top=sup;          vs_top=sup;
2582          {object V398=base[0]->c.c_cdr;          {object V371=base[0]->c.c_cdr;
2583          if(endp(V398))invalid_macro_call();          if(endp(V371))invalid_macro_call();
2584          {object V399= (V398->c.c_car);          {object V372= (V371->c.c_car);
2585          {object V400=getf(V399,VV[67],OBJNULL);          {object V373=getf(V372,VV[70],OBJNULL);
2586          if(V400==OBJNULL){          if(V373==OBJNULL){
2587          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2588          base[2]= V400;          base[2]= V373;
         }}  
         {object V401=getf(V399,VV[68],OBJNULL);  
         if(V401==OBJNULL){  
         base[3]= Cnil;} else {  
         base[3]= V401;  
2589          }}          }}
2590          {object V402=getf(V399,VV[69],OBJNULL);          check_other_key(V372,1,VV[70]);}
2591          if(V402==OBJNULL){          V371=V371->c.c_cdr;
2592          base[4]= Cnil;} else {          base[3]= V371;}
2593          base[4]= V402;          base[4]= list(2,VV[78],listA(3,VV[186],list(2,list(3,VV[187],VV[188],list(3,VV[86],base[2],VV[93])),VV[189]),base[3]));
2594          }}          vs_top=(vs_base=base+4)+1;
         {object V403=getf(V399,VV[70],OBJNULL);  
         if(V403==OBJNULL){  
         base[5]= Cnil;} else {  
         base[5]= V403;  
         }}  
         check_other_key(V399,4,VV[67],VV[68],VV[69],VV[70]);}  
         V398=V398->c.c_cdr;  
         base[6]= V398;}  
         if((base[2])!=Cnil){  
         goto T798;}  
         if((base[3])!=Cnil){  
         goto T798;}  
         if((base[4])!=Cnil){  
         goto T798;}  
         if((base[5])!=Cnil){  
         goto T798;}  
         base[7]= listA(3,VV[95],Cnil,base[6]);  
         vs_top=(vs_base=base+7)+1;  
         return;  
         goto T798;  
 T798:;  
         if((base[4])!=Cnil){  
         goto T807;}  
         if((base[5])!=Cnil){  
         goto T807;}  
         base[7]= list(2,VV[76],listA(3,VV[75],VV[174],base[6]));  
         vs_top=(vs_base=base+7)+1;  
         return;  
         goto T807;  
 T807:;  
         if(base[2]==Cnil){  
         V404= Cnil;  
         goto T811;}  
         V404= VV[176];  
         goto T811;  
 T811:;  
         if(base[3]==Cnil){  
         V405= Cnil;  
         goto T812;}  
         V405= VV[177];  
         goto T812;  
 T812:;  
         base[7]= list(2,VV[76],listA(3,VV[175],append(V404,V405),base[6]));  
         vs_top=(vs_base=base+7)+1;  
2595          return;          return;
2596  }  }
2597  /*      macro definition for BIND-ARGS  */  /*      macro definition for BIND-ARGS  */
2598    
2599  static void L39()  static void L40()
2600  {register object *base=vs_base;  {register object *base=vs_base;
2601          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2602          vs_check;          vs_check;
2603          check_arg(2);          check_arg(2);
2604          vs_top=sup;          vs_top=sup;
2605          {object V406=base[0]->c.c_cdr;          {object V374=base[0]->c.c_cdr;
2606          if(endp(V406))invalid_macro_call();          if(endp(V374))invalid_macro_call();
2607          {object V407= (V406->c.c_car);          {object V375= (V374->c.c_car);
2608          if(endp(V407))invalid_macro_call();          if(endp(V375))invalid_macro_call();
2609          base[2]= (V407->c.c_car);          base[2]= (V375->c.c_car);
2610          V407=V407->c.c_cdr;          V375=V375->c.c_cdr;
2611          if(endp(V407))invalid_macro_call();          if(endp(V375))invalid_macro_call();
2612          base[3]= (V407->c.c_car);          base[3]= (V375->c.c_car);
2613          V407=V407->c.c_cdr;          V375=V375->c.c_cdr;
2614          if(!endp(V407))invalid_macro_call();}          if(!endp(V375))invalid_macro_call();}
2615          V406=V406->c.c_cdr;          V374=V374->c.c_cdr;
2616          base[4]= V406;}          base[4]= V374;}
2617          base[5]= VV[178];          base[5]= VV[190];
2618          base[6]= VV[179];          base[6]= VV[191];
2619          base[7]= VV[180];          base[7]= VV[192];
2620          {object V408;          {object V376;
2621          {object V409;          {object V377;
2622          object V410= base[2];          object V378= base[2];
2623          if(V410==Cnil){          if(V378==Cnil){
2624          V408= Cnil;          V376= Cnil;
2625          goto T813;}          goto T739;}
2626          base[8]=V409=MMcons(Cnil,Cnil);          base[8]=V377=MMcons(Cnil,Cnil);
2627          goto T814;          goto T740;
2628  T814:;  T740:;
2629          base[9]= (V410->c.c_car);          base[9]= (V378->c.c_car);
2630          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2631          L40(base);          L41(base);
2632          vs_top=sup;          vs_top=sup;
2633          (V409->c.c_cdr)= vs_base[0];          (V377->c.c_cdr)= vs_base[0];
2634          while(MMcdr(V409)!=Cnil)V409=MMcdr(V409);          while(MMcdr(V377)!=Cnil)V377=MMcdr(V377);
2635          if((V410=MMcdr(V410))==Cnil){          if((V378=MMcdr(V378))==Cnil){
2636          base[8]=base[8]->c.c_cdr;          base[8]=base[8]->c.c_cdr;
2637          V408= base[8];          V376= base[8];
2638          goto T813;}          goto T739;}
2639          goto T814;}          goto T740;}
2640          goto T813;          goto T739;
2641  T813:;  T739:;
2642          V411= list(2,base[5],base[3]);          V379= list(2,base[5],base[3]);
2643          V412= make_cons(/* INLINE-ARGS */V411,(V408));          V380= make_cons(/* INLINE-ARGS */V379,(V376));
2644          if(((V408))!=Cnil){          base[8]= listA(4,VV[129],/* INLINE-ARGS */V380,list(2,VV[49],list(2,VV[55],base[5])),base[4]);
         goto T819;}  
         V414= list(2,VV[45],list(2,VV[181],base[5]));  
         V413= make_cons(/* INLINE-ARGS */V414,Cnil);  
         goto T817;  
         goto T819;  
 T819:;  
         V413= Cnil;  
         goto T817;  
 T817:;  
         V415 = base[4];  
         base[8]= listA(3,VV[124],/* INLINE-ARGS */V412,append(V413,V415));  
2645          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2646          return;}          return;}
2647  }  }
2648  /*      local entry for function GET-KEY-ARG    */  /*      function definition for GET-KEY-ARG-TAIL        */
2649    
2650  static object LI41(V418,V419)  static void L42()
2651    {register object *base=vs_base;
2652  register object V418;register object V419;          register object *sup=base+VM37; VC37
2653  {        VMB37 VMS37 VMV37          vs_check;
2654          goto TTL;          {register object V381;
2655  TTL:;          register object V382;
2656          goto T822;          check_arg(2);
2657  T822:;          V381=(base[0]);
2658          if(!(type_of((V419))!=t_cons)){          V382=(base[1]);
2659          goto T824;}          vs_top=sup;
         {object V420 = Cnil;  
         VMR37(V420)}  
         goto T824;  
 T824:;  
         if(!((CMPcar((V419)))==((V418)))){  
         goto T827;}  
         {object V421 = CMPcadr((V419));  
         VMR37(V421)}  
         goto T827;  
 T827:;  
         V419= CMPcddr((V419));  
         goto T822;  
         return Cnil;  
 }  
 /*      local entry for function GET-KEY-ARG1   */  
   
 static object LI42(V424,V425)  
   
 register object V424;register object V425;  
 {        VMB38 VMS38 VMV38  
2660          goto TTL;          goto TTL;
2661  TTL:;  TTL:;
2662          goto T833;          {register object V383;
2663  T833:;          register object V384;
2664          if(!(type_of((V425))!=t_cons)){          register object V385;
2665          goto T835;}          V383= (V382);
2666          {object V426 = Cnil;          V384= Cnil;
2667          VMR38(V426)}          V385= Cnil;
2668          goto T835;          goto T744;
2669  T835:;  T744:;
2670          if(!((CMPcar((V425)))==((V424)))){          if(!(type_of((V383))!=t_cons)){
2671          goto T838;}          goto T746;}
2672          {object V427 = CMPcdr((V425));          goto T745;
2673          VMR38(V427)}          goto T746;
2674          goto T838;  T746:;
2675  T838:;          {register object V386;
2676          V425= CMPcddr((V425));          V386= (V383);
2677          goto T833;          V384= CMPcar((V386));
2678          return Cnil;          V386= CMPcdr((V386));
2679            V385= (V386);}
2680            V383= CMPcddr((V383));
2681            if(((V385))!=Cnil){
2682            goto T757;}
2683            base[2]= VV[8];
2684            base[3]= VV[202];
2685            base[4]= (V382);
2686            vs_top=(vs_base=base+2)+3;
2687            (void) (*Lnk364)();
2688            vs_top=sup;
2689            goto T757;
2690    T757:;
2691            if(!(((V384))==((V381)))){
2692            goto T763;}
2693            base[2]= (V385);
2694            vs_top=(vs_base=base+2)+1;
2695            return;
2696            goto T763;
2697    T763:;
2698            goto T744;
2699            goto T745;
2700    T745:;
2701            base[2]= Cnil;
2702            vs_top=(vs_base=base+2)+1;
2703            return;}
2704            }
2705  }  }
2706  /*      function definition for WALK-METHOD-LAMBDA      */  /*      function definition for WALK-METHOD-LAMBDA      */
2707    
2708  static void L43()  static void L43()
2709  {register object *base=vs_base;  {register object *base=vs_base;
2710          register object *sup=base+VM39; VC39          register object *sup=base+VM38; VC38
2711          vs_check;          vs_check;
2712          {object V428;          {object V387;
2713          object V429;          object V388;
2714          check_arg(5);          check_arg(5);
2715          V428=(base[0]);          V387=(base[0]);
2716          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2717          V429=(base[2]);          V388=(base[2]);
2718          base[3]=MMcons(base[3],base[1]);          base[3]=MMcons(base[3],base[1]);
2719          base[4]=MMcons(base[4],base[3]);          base[4]=MMcons(base[4],base[3]);
2720          vs_top=sup;          vs_top=sup;
2721          base[5]=MMcons(Cnil,base[4]);          base[5]=make_cclosure_new(LC44,Cnil,base[4],Cdata);
2722          base[6]=MMcons(Cnil,base[5]);          base[5]=MMcons(base[5],base[4]);
2723          base[7]=MMcons(Cnil,base[6]);          base[6]= (V387);
2724          base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata);          base[7]= (V388);
2725          base[8]=MMcons(base[8],base[7]);          base[8]= (base[5]->c.c_car);
2726          {object V430;          vs_top=(vs_base=base+6)+3;
2727          base[9]= (V428);          (void) (*Lnk410)();
2728          base[10]= (V429);          return;
         base[11]= (base[8]->c.c_car);  
         vs_top=(vs_base=base+9)+3;  
         (void) (*Lnk396)();  
         vs_top=sup;  
         V430= vs_base[0];  
         base[9]= (V430);  
         base[10]= (base[5]->c.c_car);  
         base[11]= (base[6]->c.c_car);  
         base[12]= (base[7]->c.c_car);  
         vs_top=(vs_base=base+9)+4;  
         return;}  
2729          }          }
2730  }  }
2731  /*      function definition for GENERIC-FUNCTION-NAME-P */  /*      function definition for GENERIC-FUNCTION-NAME-P */
2732    
2733  static void L45()  static void L45()
2734  {register object *base=vs_base;  {register object *base=vs_base;
2735          register object *sup=base+VM40; VC40          register object *sup=base+VM39; VC39
2736          vs_check;          vs_check;
2737          {register object V431;          {register object V389;
2738          check_arg(1);          check_arg(1);
2739          V431=(base[0]);          V389=(base[0]);
2740          vs_top=sup;          vs_top=sup;
2741          goto TTL;          goto TTL;
2742  TTL:;  TTL:;
2743          if(!(type_of((V431))==t_symbol)){          if(!(type_of((V389))==t_symbol)){
2744          goto T853;}          goto T771;}
2745          goto T851;          goto T769;
2746          goto T853;          goto T771;
2747  T853:;  T771:;
2748          if(type_of((V431))==t_cons){          if(type_of((V389))==t_cons){
2749          goto T855;}          goto T773;}
2750          goto T852;          goto T770;
2751          goto T855;          goto T773;
2752  T855:;  T773:;
2753          if((CMPcar((V431)))==(VV[30])){          if((CMPcar((V389)))==(VV[34])){
2754          goto T857;}          goto T775;}
2755          goto T852;          goto T770;
2756          goto T857;          goto T775;
2757  T857:;  T775:;
2758          if(type_of(CMPcdr((V431)))==t_cons){          if(type_of(CMPcdr((V389)))==t_cons){
2759          goto T859;}          goto T777;}
2760          goto T852;          goto T770;
2761          goto T859;          goto T777;
2762  T859:;  T777:;
2763          if(type_of(CMPcadr((V431)))==t_symbol){          if(type_of(CMPcadr((V389)))==t_symbol){
2764          goto T861;}          goto T779;}
2765          goto T852;          goto T770;
2766          goto T861;          goto T779;
2767  T861:;  T779:;
2768          if((CMPcddr((V431)))==Cnil){          if((CMPcddr((V389)))==Cnil){
2769          goto T851;}          goto T769;}
2770          goto T852;          goto T770;
2771  T852:;  T770:;
2772          base[1]= Cnil;          base[1]= Cnil;
2773          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2774          return;          return;
2775          goto T851;          goto T769;
2776  T851:;  T769:;
2777          if(((*(LnkLI356))((V431)))!=Cnil){          if(((*(LnkLI371))((V389)))!=Cnil){
2778          goto T863;}          goto T781;}
2779          base[1]= Cnil;          base[1]= Cnil;
2780          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2781          return;          return;
2782          goto T863;          goto T781;
2783  T863:;  T781:;
2784          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
2785          goto T866;}          goto T784;}
2786          base[1]= (*(LnkLI347))((V431));          base[1]= (*(LnkLI362))((V389));
2787          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2788          (void) (*Lnk397)(Lclptr397);          (void) (*Lnk411)(Lclptr411);
2789          return;          return;
2790          goto T866;          goto T784;
2791  T866:;{object V432;  T784:;{object V390;
2792          V432= (VV[146]->s.s_dbind);          V390= (VV[151]->s.s_dbind);
2793          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
2794          base[2]= (*(LnkLI347))((V431));          base[2]= (*(LnkLI362))((V389));
2795          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2796          (void) (*Lnk390)();          (void) (*Lnk407)();
2797          vs_top=sup;          vs_top=sup;
2798          V433= vs_base[0];          V391= vs_base[0];
2799          base[1]= ((V432)==(CMPcar(V433))?Ct:Cnil);          base[1]= ((V390)==(CMPcar(V391))?Ct:Cnil);
2800          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2801          return;}          return;}
2802          }          }
2803  }  }
 /*      local entry for function MAKE-PARAMETER-REFERENCES      */  
   
 static object LI48(V439,V440,V441,V442,V443)  
   
 object V439;object V440;object V441;object V442;object V443;  
 {        VMB41 VMS41 VMV41  
         goto TTL;  
 TTL:;  
         base[0]= (V441);  
         {object V444;  
         register object V445;  
         V444= Cnil;  
         V445= Cnil;  
         {register object V446;  
         register object V447;  
         register object V448;  
         object V449;  
         V446= (V439);  
         V447= Cnil;  
         V448= (V440);  
         V449= Cnil;  
         goto T880;  
 T880:;  
         {object V450;  
         if(!(((V446))==Cnil)){  
         goto T886;}  
         goto T874;  
         goto T886;  
 T886:;  
         V450= CMPcar((V446));  
         V446= CMPcdr((V446));  
         V447= (V450);}  
         {object V451;  
         if(!(((V448))==Cnil)){  
         goto T894;}  
         goto T874;  
         goto T894;  
 T894:;  
         V451= CMPcar((V448));  
         V448= CMPcdr((V448));  
         V449= (V451);}  
         {object V452;  
         V452= (((type_of((V447))==t_cons||((V447))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);  
         if(((V452))==Cnil){  
         goto T901;}  
         goto T881;  
         goto T901;  
 T901:;  
         base[1]= CMPcar((V447));  
         vs_top=(vs_base=base+1)+1;  
         L49(base);  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T904;}  
         base[1]= VV[200];  
         base[2]= (V442);  
         base[3]= (V443);  
         base[4]= CMPcar((V447));  
         vs_top=(vs_base=base+1)+4;  
         (void) (*Lnk398)();  
         vs_top=sup;  
         goto T881;  
         goto T904;  
 T904:;  
         {object V453;  
         V453= CMPcar((V447));  
         if(((V444))!=Cnil){  
         goto T913;}  
         V445= make_cons((V453),Cnil);  
         V444= (V445);  
         goto T881;  
         goto T913;  
 T913:;  
         V455= make_cons((V453),Cnil);  
         ((V445))->c.c_cdr = /* INLINE-ARGS */V455;  
         V454= (V445);  
         V445= CMPcdr(V454);}}  
         goto T881;  
 T881:;  
         goto T880;}  
         goto T874;  
 T874:;  
         {object V456 = (V444);  
         VMR41(V456)}}  
         base[0]=base[0];  
         return Cnil;  
 }  
2804  /*      local entry for function METHOD-FUNCTION-PLIST  */  /*      local entry for function METHOD-FUNCTION-PLIST  */
2805    
2806  static object LI50(V458)  static object LI46(V393)
2807    
2808  register object V458;  register object V393;
2809  {        VMB42 VMS42 VMV42  {        VMB40 VMS40 VMV40
2810          goto TTL;          goto TTL;
2811  TTL:;  TTL:;
2812          if(((V458))==((VV[201]->s.s_dbind))){          if(((V393))==((VV[211]->s.s_dbind))){
2813          goto T920;}          goto T790;}
2814          {object V459;          {object V394;
2815          object V460;          object V395;
2816          V459= (VV[202]->s.s_dbind);          V394= (VV[212]->s.s_dbind);
2817          V460= (VV[201]->s.s_dbind);          V395= (VV[211]->s.s_dbind);
2818          (VV[201]->s.s_dbind)= (V459);          (VV[211]->s.s_dbind)= (V394);
2819          (VV[202]->s.s_dbind)= (V460);}          (VV[212]->s.s_dbind)= (V395);}
2820          {object V461;          {object V396;
2821          object V462;          object V397;
2822          V461= (VV[203]->s.s_dbind);          V396= (VV[213]->s.s_dbind);
2823          V462= (VV[204]->s.s_dbind);          V397= (VV[214]->s.s_dbind);
2824          (VV[204]->s.s_dbind)= (V461);          (VV[214]->s.s_dbind)= (V396);
2825          (VV[203]->s.s_dbind)= (V462);}          (VV[213]->s.s_dbind)= (V397);}
2826          {object V463;          {object V398;
2827          object V464;          object V399;
2828          V463= (VV[205]->s.s_dbind);          V398= (VV[215]->s.s_dbind);
2829          V464= (VV[206]->s.s_dbind);          V399= (VV[216]->s.s_dbind);
2830          (VV[206]->s.s_dbind)= (V463);          (VV[216]->s.s_dbind)= (V398);
2831          (VV[205]->s.s_dbind)= (V464);}          (VV[215]->s.s_dbind)= (V399);}
2832          goto T920;          goto T790;
2833  T920:;  T790:;
2834          if(((V458))==((VV[201]->s.s_dbind))){          if(((V393))==((VV[211]->s.s_dbind))){
2835          goto T943;}          goto T813;}
2836          if(((VV[206]->s.s_dbind))==Cnil){          if(((VV[216]->s.s_dbind))==Cnil){
2837          goto T943;}          goto T813;}
2838          {object V465;          {object V400;
2839          object V466;          object V401;
2840          object V467;          object V402;
2841          V465= (VV[201]->s.s_dbind);          V400= (VV[211]->s.s_dbind);
2842          V466= (VV[207]->s.s_dbind);          V401= (VV[217]->s.s_dbind);
2843          V467= (VV[204]->s.s_dbind);          V402= (VV[214]->s.s_dbind);
2844          base[0]= (V465);          base[0]= (V400);
2845          base[1]= (V466);          base[1]= (V401);
2846          base[2]= (V467);          base[2]= (V402);
2847          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2848          siLhash_set();          siLhash_set();
2849          vs_top=sup;}          vs_top=sup;}
2850          goto T943;          goto T813;
2851  T943:;  T813:;
2852          if(((V458))==((VV[201]->s.s_dbind))){          if(((V393))==((VV[211]->s.s_dbind))){
2853          goto T954;}          goto T824;}
2854          (VV[201]->s.s_dbind)= (V458);          (VV[211]->s.s_dbind)= (V393);
2855          (VV[206]->s.s_dbind)= Cnil;          (VV[216]->s.s_dbind)= Cnil;
2856          base[0]= (V458);          base[0]= (V393);
2857          base[1]= (VV[207]->s.s_dbind);          base[1]= (VV[217]->s.s_dbind);
2858          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2859          Lgethash();          Lgethash();
2860          vs_top=sup;          vs_top=sup;
2861          (VV[204]->s.s_dbind)= vs_base[0];          (VV[214]->s.s_dbind)= vs_base[0];
2862          goto T954;          goto T824;
2863  T954:;  T824:;
2864          {object V468 = (VV[204]->s.s_dbind);          {object V403 = (VV[214]->s.s_dbind);
2865          VMR42(V468)}          VMR40(V403)}
2866          base[0]=base[0];          base[0]=base[0];
2867          return Cnil;          return Cnil;
2868  }  }
2869  /*      function definition for G3994   */  /*      function definition for G4122   */
2870    
2871  static void L51()  static void L47()
2872  {register object *base=vs_base;  {register object *base=vs_base;
2873          register object *sup=base+VM43; VC43          register object *sup=base+VM41; VC41
2874          vs_check;          vs_check;
2875          {object V469;          {object V404;
2876          object V470;          object V405;
2877          check_arg(2);          check_arg(2);
2878          V469=(base[0]);          V404=(base[0]);
2879          V470=(base[1]);          V405=(base[1]);
2880          vs_top=sup;          vs_top=sup;
2881          goto TTL;          goto TTL;
2882  TTL:;  TTL:;
2883          if(((V470))==((VV[201]->s.s_dbind))){          if(((V405))==((VV[211]->s.s_dbind))){
2884          goto T964;}          goto T834;}
2885          {object V471;          {object V406;
2886          object V472;          object V407;
2887          V471= (VV[202]->s.s_dbind);          V406= (VV[212]->s.s_dbind);
2888          V472= (VV[201]->s.s_dbind);          V407= (VV[211]->s.s_dbind);
2889          (VV[201]->s.s_dbind)= (V471);          (VV[211]->s.s_dbind)= (V406);
2890          (VV[202]->s.s_dbind)= (V472);}          (VV[212]->s.s_dbind)= (V407);}
2891          {object V473;          {object V408;
2892          object V474;          object V409;
2893          V473= (VV[205]->s.s_dbind);          V408= (VV[215]->s.s_dbind);
2894          V474= (VV[206]->s.s_dbind);          V409= (VV[216]->s.s_dbind);
2895          (VV[206]->s.s_dbind)= (V473);          (VV[216]->s.s_dbind)= (V408);
2896          (VV[205]->s.s_dbind)= (V474);}          (VV[215]->s.s_dbind)= (V409);}
2897          {object V475;          {object V410;
2898          object V476;          object V411;
2899          V475= (VV[203]->s.s_dbind);          V410= (VV[213]->s.s_dbind);
2900          V476= (VV[204]->s.s_dbind);          V411= (VV[214]->s.s_dbind);
2901          (VV[204]->s.s_dbind)= (V475);          (VV[214]->s.s_dbind)= (V410);
2902          (VV[203]->s.s_dbind)= (V476);}          (VV[213]->s.s_dbind)= (V411);}
2903          goto T964;          goto T834;
2904  T964:;  T834:;
2905          if(((V470))==((VV[201]->s.s_dbind))){          if(((V405))==((VV[211]->s.s_dbind))){
2906          goto T987;}          goto T857;}
2907          if(((VV[206]->s.s_dbind))==Cnil){          if(((VV[216]->s.s_dbind))==Cnil){
2908          goto T987;}          goto T857;}
2909          {object V477;          {object V412;
2910          object V478;          object V413;
2911          object V479;          object V414;
2912          V477= (VV[201]->s.s_dbind);          V412= (VV[211]->s.s_dbind);
2913          V478= (VV[207]->s.s_dbind);          V413= (VV[217]->s.s_dbind);
2914          V479= (VV[204]->s.s_dbind);          V414= (VV[214]->s.s_dbind);
2915          base[2]= (V477);          base[2]= (V412);
2916          base[3]= (V478);          base[3]= (V413);
2917          base[4]= (V479);          base[4]= (V414);
2918          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2919          siLhash_set();          siLhash_set();
2920          vs_top=sup;}          vs_top=sup;}
2921          goto T987;          goto T857;
2922  T987:;  T857:;
2923          (VV[201]->s.s_dbind)= (V470);          (VV[211]->s.s_dbind)= (V405);
2924          (VV[206]->s.s_dbind)= Ct;          (VV[216]->s.s_dbind)= Ct;
2925          (VV[204]->s.s_dbind)= (V469);          (VV[214]->s.s_dbind)= (V404);
2926          base[2]= (VV[204]->s.s_dbind);          base[2]= (VV[214]->s.s_dbind);
2927          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2928          return;          return;
2929          }          }
2930  }  }
2931  /*      local entry for function METHOD-FUNCTION-GET    */  /*      local entry for function METHOD-FUNCTION-GET    */
2932    
2933  static object LI52(object V481,object V480,object first,...)  static object LI48(object V416,object V415,object first,...)
2934  {        {      
2935          va_list ap;          va_list ap;
2936          int narg = VFUN_NARGS; VMB44 VMS44 VMV44          int narg = VFUN_NARGS; VMB42 VMS42 VMV42
2937          {object V482;          {object V417;
2938          object V483;          object V418;
2939          object V484;          object V419;
2940          va_start(ap,first);          va_start(ap,first);
2941          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2942          V482= V481;          V417= V416;
2943          V483= V480;          V418= V415;
2944          narg = narg - 2;          narg = narg - 2;
2945          if (narg <= 0) goto T1003;          if (narg <= 0) goto T873;
2946          else {          else {
2947          V484= first;}          V419= first;}
2948          --narg; goto T1004;          --narg; goto T874;
2949          goto T1003;          goto T873;
2950  T1003:;  T873:;
2951          V484= Cnil;          V419= Cnil;
2952          goto T1004;          goto T874;
2953  T1004:;  T874:;
2954          base[0]= (*(LnkLI399))((V482));          base[0]= (*(LnkLI412))((V417));
2955          base[1]= (V483);          base[1]= (V418);
2956          base[2]= (V484);          base[2]= (V419);
2957          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2958          Lgetf();          Lgetf();
2959          vs_top=sup;          vs_top=sup;
2960          {object V485 = vs_base[0];          {object V420 = vs_base[0];
2961          VMR44(V485)}          VMR42(V420)}
2962          va_end(ap);          va_end(ap);
2963          base[0]=base[0];          base[0]=base[0];
2964          return Cnil;}          return Cnil;}
2965          }          }
2966  /*      function definition for G4004   */  /*      function definition for G4132   */
2967    
2968  static void L53()  static void L49()
2969  {register object *base=vs_base;  {register object *base=vs_base;
2970          register object *sup=base+VM45; VC45          register object *sup=base+VM43; VC43
2971          vs_check;          vs_check;
2972          {object V486;          {object V421;
2973          object V487;          object V422;
2974          object V488;          object V423;
2975          check_arg(3);          check_arg(3);
2976          V486=(base[0]);          V421=(base[0]);
2977          V487=(base[1]);          V422=(base[1]);
2978          V488=(base[2]);          V423=(base[2]);
2979          vs_top=sup;          vs_top=sup;
2980          goto TTL;          goto TTL;
2981  TTL:;  TTL:;
2982          {object V492;          {object V427;
2983          base[3]= (*(LnkLI399))(V487);          base[3]= (*(LnkLI412))(V422);
2984          base[4]= V486;          base[4]= V421;
2985          base[5]= V488;          base[5]= V423;
2986          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2987          siLput_f();          siLput_f();
2988          vs_top=sup;          vs_top=sup;
2989          V492= vs_base[0];          V427= vs_base[0];
2990          V493= ({object _tmp=get(VV[399],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[399])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[399])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V428= ({object _tmp=get(VV[412],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[412])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[412])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V494 = (V492);  
         V495 = V487;  
2991          (void)((          (void)((
2992          V496 = V493,          V429 = V428,
2993          (type_of(V496) == t_sfun ?(*((V496)->sfn.sfn_self)):          (type_of(V429) == t_sfun ?(*((V429)->sfn.sfn_self)):
2994          (fcall.argd=2,type_of(V496)==t_vfun) ?          (fcall.argd=2,type_of(V429)==t_vfun) ?
2995          (*((V496)->sfn.sfn_self)):          (*((V429)->sfn.sfn_self)):
2996          (fcall.fun=(V496),fcalln))(V494,V495)));          (fcall.fun=(V429),fcalln))((V427),V422)));
2997          base[3]= V486;          base[3]= V421;
2998          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2999          return;}          return;}
3000          }          }
3001  }  }
3002  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */
3003    
3004  static object LI54(V498)  static object LI50(V431)
3005    
3006  object V498;  object V431;
3007  {        VMB46 VMS46 VMV46  {        VMB44 VMS44 VMV44
3008          goto TTL;          goto TTL;
3009  TTL:;  TTL:;
3010          {object V499 = (VFUN_NARGS=2,(*(LnkLI210))((V498),VV[208]));          {object V432 = (VFUN_NARGS=2,(*(LnkLI220))((V431),VV[218]));
3011          VMR46(V499)}          VMR44(V432)}
3012          return Cnil;          return Cnil;
3013  }  }
3014  /*      local entry for function METHOD-FUNCTION-METHOD */  /*      local entry for function METHOD-FUNCTION-METHOD */
3015    
3016  static object LI55(V501)  static object LI51(V434)
   
 object V501;  
 {        VMB47 VMS47 VMV47  
         goto TTL;  
 TTL:;  
         {object V502 = (VFUN_NARGS=2,(*(LnkLI210))((V501),VV[209]));  
         VMR47(V502)}  
         return Cnil;  
 }  
 /*      local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P   */  
   
 static object LI56(V504)  
3017    
3018  object V504;  object V434;
3019  {        VMB48 VMS48 VMV48  {        VMB45 VMS45 VMV45
3020          goto TTL;          goto TTL;
3021  TTL:;  TTL:;
3022          {object V505 = (VFUN_NARGS=3,(*(LnkLI210))((V504),VV[56],Ct));          {object V435 = (VFUN_NARGS=2,(*(LnkLI220))((V434),VV[219]));
3023          VMR48(V505)}          VMR45(V435)}
3024          return Cnil;          return Cnil;
3025  }  }
3026  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */
3027    
3028  static void L57()  static void L52()
3029  {register object *base=vs_base;  {register object *base=vs_base;
3030          register object *sup=base+VM49; VC49          register object *sup=base+VM46; VC46
3031          vs_check;          vs_check;
3032          check_arg(2);          check_arg(2);
3033          vs_top=sup;          vs_top=sup;
3034          {object V506=base[0]->c.c_cdr;          {object V436=base[0]->c.c_cdr;
3035          if(endp(V506))invalid_macro_call();          if(endp(V436))invalid_macro_call();
3036          base[2]= (V506->c.c_car);          base[2]= (V436->c.c_car);
3037          V506=V506->c.c_cdr;          V436=V436->c.c_cdr;
3038          if(!endp(V506))invalid_macro_call();}          if(!endp(V436))invalid_macro_call();}
3039          base[3]= list(3,VV[210],base[2],VV[211]);          base[3]= list(3,VV[220],base[2],VV[221]);
3040          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3041          return;          return;
3042  }  }
3043  /*      local entry for function LOAD-DEFMETHOD */  /*      local entry for function LOAD-DEFMETHOD */
3044    
3045  static object LI58(object V512,object V511,object V510,object V509,object V508,object V507,object first,...)  static object LI53(object V442,object V441,object V440,object V439,object V438,object V437,object first,...)
3046  {        {      
3047          va_list ap;          va_list ap;
3048          int narg = VFUN_NARGS; VMB50 VMS50 VMV50          int narg = VFUN_NARGS; VMB47 VMS47 VMV47
3049          {object V513;          {object V443;
3050          register object V514;          object V444;
3051          object V515;          object V445;
3052          object V516;          object V446;
3053          object V517;          object V447;
3054          register object V518;          register object V448;
3055          object V519;          object V449;
3056          va_start(ap,first);          va_start(ap,first);
3057          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
3058          V513= V512;          V443= V442;
3059          V514= V511;          V444= V441;
3060          V515= V510;          V445= V440;
3061          V516= V509;          V446= V439;
3062          V517= V508;          V447= V438;
3063          V518= V507;          V448= V437;
3064          narg = narg - 6;          narg = narg - 6;
3065          if (narg <= 0) goto T1015;          if (narg <= 0) goto T885;
3066          else {          else {
3067          V519= first;}          V449= first;}
3068          --narg; goto T1016;          --narg; goto T886;
3069          goto T1015;          goto T885;
3070  T1015:;  T885:;
3071          V519= Cnil;          V449= Cnil;
3072          goto T1016;          goto T886;
3073  T1016:;  T886:;
3074          if(!(type_of((V514))==t_cons||((V514))==Cnil)){          base[0]= (V448);
         goto T1018;}  
         (void)((*(LnkLI349))(CMPcadr((V514))));  
         goto T1018;  
 T1018:;  
         base[0]= (V518);  
3075          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3076          Lcopy_tree();          Lcopy_tree();
3077          vs_top=sup;          vs_top=sup;
3078          V518= vs_base[0];          V448= vs_base[0];
3079          {object V520;{object V521;          {object V450;{object V451;
3080          base[0]= (V518);          base[0]= (V448);
3081          base[1]= VV[212];          base[1]= VV[222];
3082          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3083          Lgetf();          Lgetf();
3084          vs_top=sup;          vs_top=sup;
3085          V521= vs_base[0];          V451= vs_base[0];
3086          if(V521==Cnil)goto T1025;          if(V451==Cnil)goto T892;
3087          V520= V521;          V450= V451;
3088          goto T1024;          goto T891;
3089          goto T1025;          goto T892;
3090  T1025:;}  T892:;}
3091          V520= (*(LnkLI400))((V514),(V515),(V516));          V450= (*(LnkLI413))((V444),(V445),(V446));
3092          goto T1024;          goto T891;
3093  T1024:;  T891:;
3094          {object V524;          {object V454;
3095          base[0]= (V518);          base[0]= (V448);
3096          base[1]= V520;          base[1]= V450;
3097          base[2]= VV[212];          base[2]= VV[222];
3098          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3099          siLput_f();          siLput_f();
3100          vs_top=sup;          vs_top=sup;
3101          V524= vs_base[0];          V454= vs_base[0];
3102          V518= (V524);}          V448= (V454);}
3103          (void)((VFUN_NARGS=2,(*(LnkLI401))(VV[36],(V520))));          {object V455 = (*(LnkLI414))((V443),(V444),(V445),(V446),(V447),(V448),(V449));
3104          {object V525 = (*(LnkLI402))((V513),(V514),(V515),(V516),(V517),(V518),(V519));          VMR47(V455)}}
         VMR50(V525)}}  
3105          va_end(ap);          va_end(ap);
3106          base[0]=base[0];          base[0]=base[0];
3107          return Cnil;}          return Cnil;}
3108          }          }
3109  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */
3110    
3111  static object LI59(V533,V534,V535,V536,V537,V538,V539)  static object LI54(V463,V464,V465,V466,V467,V468,V469)
3112    
3113  object V533;register object V534;object V535;object V536;object V537;register object V538;object V539;  object V463;object V464;object V465;object V466;object V467;register object V468;object V469;
3114  {        VMB51 VMS51 VMV51  {        VMB48 VMS48 VMV48
3115          goto TTL;          goto TTL;
3116  TTL:;  TTL:;
3117          if(!(type_of((V534))==t_cons||((V534))==Cnil)){          if(((V469))==Cnil){
3118          goto T1037;}          goto T903;}
3119          (void)((*(LnkLI349))(CMPcadr((V534))));          {object V473;
3120          goto T1037;          base[1]= (V468);
3121  T1037:;          base[2]= VV[32];
         if(((V539))==Cnil){  
         goto T1040;}  
         {object V543;  
         base[1]= (V538);  
         base[2]= VV[28];  
3122          base[3]= Cnil;          base[3]= Cnil;
3123          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3124          Lgetf();          Lgetf();
3125          vs_top=sup;          vs_top=sup;
3126          base[0]= vs_base[0];          base[0]= vs_base[0];
3127          base[1]= V539;          base[1]= V469;
3128          base[2]= VV[29];          base[2]= VV[33];
3129          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3130          siLput_f();          siLput_f();
3131          vs_top=sup;          vs_top=sup;
3132          V543= vs_base[0];          V473= vs_base[0];
3133          {object V544;          {object V474;
3134          base[0]= (V538);          base[0]= (V468);
3135          base[1]= (V543);          base[1]= (V473);
3136          base[2]= VV[28];          base[2]= VV[32];
3137          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3138          siLput_f();          siLput_f();
3139          vs_top=sup;          vs_top=sup;
3140          V544= vs_base[0];          V474= vs_base[0];
3141          V538= (V544);}}          V468= (V474);}}
3142          goto T1040;          goto T903;
3143  T1040:;  T903:;
3144          {object V545;          {object V475;
3145          base[0]=VV[403]->s.s_gfdef;          base[0]=VV[415]->s.s_gfdef;
3146          base[1]= (V534);          base[1]= (V464);
3147          base[2]= (V535);          base[2]= (V465);
3148          base[3]= (V536);          base[3]= (V466);
3149          base[4]= (V537);          base[4]= (V467);
3150          base[5]= VV[16];          base[5]= VV[20];
3151          V547= make_cons((V536),Cnil);          V477= make_cons((V466),Cnil);
3152          V548= listA(3,VV[7],(V534),append((V535),/* INLINE-ARGS */V547));          V478= listA(3,VV[7],(V464),append((V465),/* INLINE-ARGS */V477));
3153          vs_base=vs_top;          vs_base=vs_top;
3154          (void) (*Lnk351)();          (void) (*Lnk366)();
3155          vs_top=sup;          vs_top=sup;
3156          V549= vs_base[0];          V479= vs_base[0];
3157          base[6]= list(2,/* INLINE-ARGS */V548,V549);          base[6]= list(2,/* INLINE-ARGS */V478,V479);
3158          {object V546;          {object V476;
3159          V546= (V538);          V476= (V468);
3160           vs_top=base+7;           vs_top=base+7;
3161           while(V546!=Cnil)           while(V476!=Cnil)
3162           {vs_push((V546)->c.c_car);V546=(V546)->c.c_cdr;}           {vs_push((V476)->c.c_car);V476=(V476)->c.c_cdr;}
3163          vs_base=base+1;}          vs_base=base+1;}
3164          funcall(base[0]);          funcall(base[0]);
3165          vs_top=sup;          vs_top=sup;
3166          V545= vs_base[0];          V475= vs_base[0];
3167          if(((V533))==(VV[20])){          if(((V463))==(VV[24])){
3168          goto T1066;}          goto T929;}
3169          V550= (VFUN_NARGS=2,(*(LnkLI291))((V533),Cnil));          V480= (VFUN_NARGS=2,(*(LnkLI304))((V463),Cnil));
3170          V551= (*(LnkLI363))((V545));          V481= (*(LnkLI378))((V475));
3171          if((/* INLINE-ARGS */V550)==(/* INLINE-ARGS */V551)){          if((/* INLINE-ARGS */V480)==(/* INLINE-ARGS */V481)){
3172          goto T1066;}          goto T929;}
3173          base[0]= (VV[213]->s.s_dbind);          base[0]= (VV[223]->s.s_dbind);
3174          base[1]= VV[214];          base[1]= VV[224];
3175          base[2]= (V535);          base[2]= (V465);
3176          base[3]= (V536);          base[3]= (V466);
3177          base[4]= (V534);          base[4]= (V464);
3178          base[5]= (V533);          base[5]= (V463);
3179          base[7]= (*(LnkLI363))((V545));          base[7]= (*(LnkLI378))((V475));
3180          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3181          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
3182          vs_top=sup;          vs_top=sup;
3183          base[6]= vs_base[0];          base[6]= vs_base[0];
3184          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3185          Lformat();          Lformat();
3186          vs_top=sup;          vs_top=sup;
3187          goto T1066;          goto T929;
3188  T1066:;  T929:;
3189          {object V552 = (V545);          {object V482 = (V475);
3190          VMR51(V552)}}          VMR48(V482)}}
3191          base[0]=base[0];          base[0]=base[0];
3192          return Cnil;          return Cnil;
3193  }  }
3194  /*      local entry for function MAKE-METHOD-SPEC       */  /*      local entry for function MAKE-METHOD-SPEC       */
3195    
3196  static object LI60(V556,V557,V558)  static object LI55(V486,V487,V488)
3197    
3198  object V556;object V557;object V558;  object V486;object V487;object V488;
3199  {        VMB52 VMS52 VMV52  {        VMB49 VMS49 VMV49
3200          goto TTL;          goto TTL;
3201  TTL:;  TTL:;
3202          V559= make_cons((V558),Cnil);          V489= make_cons((V488),Cnil);
3203          {object V560 = listA(3,VV[36],(V556),append((V557),/* INLINE-ARGS */V559));          {object V490 = listA(3,VV[40],(V486),append((V487),/* INLINE-ARGS */V489));
3204          VMR52(V560)}          VMR49(V490)}
3205          return Cnil;          return Cnil;
3206  }  }
3207  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */
3208    
3209  static object LI61(object V561,object first,...)  static object LI56(object V491,object first,...)
3210  {        {      
3211          va_list ap;          va_list ap;
3212          int narg = VFUN_NARGS; VMB53 VMS53 VMV53          int narg = VFUN_NARGS; VMB50 VMS50 VMV50
3213          {register object V562;          {object V492;
3214          object V563;          object V493;
3215          object V564;          object V494;
3216          va_start(ap,first);          va_start(ap,first);
3217          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
3218          V562= V561;          V492= V491;
3219          narg = narg - 1;          narg = narg - 1;
3220          if (narg <= 0) goto T1079;          if (narg <= 0) goto T942;
3221          else {          else {
3222          V563= first;}          V493= first;}
3223          if (--narg <= 0) goto T1080;          if (--narg <= 0) goto T943;
3224          else {          else {
3225          V564= va_arg(ap,object);}          V494= va_arg(ap,object);}
3226          --narg; goto T1081;          --narg; goto T944;
3227          goto T1079;          goto T942;
3228  T1079:;  T942:;
3229          V563= Cnil;          V493= Cnil;
3230          goto T1080;          goto T943;
3231  T1080:;  T943:;
3232          V564= Cnil;          V494= Cnil;
3233          goto T1081;          goto T944;
3234  T1081:;  T944:;
3235          {register object V565;          {register object V495;
3236          register object V566;          register object V496;
3237          object V567;          object V497;
3238          register object V568;          object V498;
3239          base[5]= (V562);          base[5]= (V492);
3240          base[6]= VV[35];          base[6]= VV[39];
3241          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3242          Lgetf();          Lgetf();
3243          vs_top=sup;          vs_top=sup;
3244          base[0]= vs_base[0];          base[0]= vs_base[0];
3245          base[5]= (V562);          base[5]= (V492);
3246          base[6]= VV[212];          base[6]= VV[222];
3247          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3248          Lgetf();          Lgetf();
3249          vs_top=sup;          vs_top=sup;
3250          V565= vs_base[0];          V495= vs_base[0];
3251          base[5]= (V562);          base[5]= (V492);
3252          base[6]= VV[28];          base[6]= VV[32];
3253          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3254          Lgetf();          Lgetf();
3255          vs_top=sup;          vs_top=sup;
3256          V566= vs_base[0];          V496= vs_base[0];
3257          base[5]= (V566);          base[5]= (V496);
3258          base[6]= VV[29];          base[6]= VV[33];
3259          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3260          Lgetf();          Lgetf();
3261          vs_top=sup;          vs_top=sup;
3262          V567= vs_base[0];          V497= vs_base[0];
3263          V568= Cnil;          V498= Cnil;
3264          base[5]= (V562);          base[5]= (V492);
3265          base[6]= VV[215];          base[6]= VV[225];
3266          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3267          Lgetf();          Lgetf();
3268          vs_top=sup;          vs_top=sup;
3269          base[4]= vs_base[0];          base[4]= vs_base[0];
3270          if(((V565))==Cnil){          if(((V495))==Cnil){
3271          goto T1100;}          goto T963;}
3272          if((base[0])==Cnil){          if((base[0])==Cnil){
3273          goto T1103;}          goto T966;}
3274          base[5]= base[0];          base[5]= base[0];
3275          base[6]= (V565);          base[6]= (V495);
3276          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3277          (void) (*Lnk346)();          (void) (*Lnk361)();
3278          vs_top=sup;          vs_top=sup;
3279          base[0]= vs_base[0];          base[0]= vs_base[0];
3280          goto T1103;          goto T966;
3281  T1103:;  T966:;
3282          if((base[4])==Cnil){          if((base[4])==Cnil){
3283          goto T1100;}          goto T963;}
3284          {object V569;{object V571;          {object V499;{object V501;
3285          {object V572 =(CMPcar((V565)))->s.s_plist;          {object V502 =(CMPcar((V495)))->s.s_plist;
3286           object ind= VV[216];           object ind= VV[226];
3287          while(V572!=Cnil){          while(V502!=Cnil){
3288          if(V572->c.c_car==ind){          if(V502->c.c_car==ind){
3289          V571= (V572->c.c_cdr->c.c_car);          V501= (V502->c.c_cdr->c.c_car);
3290          goto T1114;          goto T977;
3291          }else V572=V572->c.c_cdr->c.c_cdr;}          }else V502=V502->c.c_cdr->c.c_cdr;}
3292          V571= Cnil;}          V501= Cnil;}
3293          goto T1114;          goto T977;
3294  T1114:;  T977:;
3295          if(V571==Cnil)goto T1113;          if(V501==Cnil)goto T976;
3296          V570= V571;          V500= V501;
3297          goto T1112;          goto T975;
3298          goto T1113;          goto T976;
3299  T1113:;}  T976:;}
3300          V573= CMPcar((V565));          V503= CMPcar((V495));
3301          base[6]= Cnil;          base[6]= Cnil;
3302          base[7]= VV[217];          base[7]= VV[227];
3303          base[8]= CMPcar((V565));          base[8]= CMPcar((V495));
3304          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3305          Lformat();          Lformat();
3306          vs_top=sup;          vs_top=sup;
3307          base[5]= vs_base[0];          base[5]= vs_base[0];
3308          base[6]= (VV[218]->s.s_dbind);          base[6]= (VV[228]->s.s_dbind);
3309          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3310          Lintern();          Lintern();
3311          vs_top=sup;          vs_top=sup;
3312          V574= vs_base[0];          V504= vs_base[0];
3313          V570= sputprop(/* INLINE-ARGS */V573,VV[216],V574);          V500= sputprop(/* INLINE-ARGS */V503,VV[226],V504);
3314          goto T1112;          goto T975;
3315  T1112:;  T975:;
3316          V569= make_cons(V570,CMPcdr((V565)));          V499= make_cons(V500,CMPcdr((V495)));
3317          base[5]= base[4];          base[5]= base[4];
3318          base[6]= (V569);          base[6]= (V499);
3319          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3320          (void) (*Lnk346)();          (void) (*Lnk361)();
3321          vs_top=sup;          vs_top=sup;
3322          if((base[0])!=Cnil){          if((base[0])!=Cnil){
3323          goto T1100;}          goto T963;}
3324          base[5]= VV[219];          base[5]= VV[158];
3325          base[6]= (V569);          base[6]= (V499);
3326          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3327          L62(base);          L57(base);
3328          vs_top=sup;}          vs_top=sup;}
3329          goto T1100;          goto T963;
3330  T1100:;  T963:;
3331          if(((V566))==Cnil){          if(((V496))==Cnil){
3332          goto T1129;}          goto T992;}
3333          {object V575;          {object V505;
3334          object V576;          object V506;
3335          base[5]= (V566);          base[5]= (V496);
3336          base[6]= VV[58];          base[6]= VV[60];
3337          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3338          Lgetf();          Lgetf();
3339          vs_top=sup;          vs_top=sup;
3340          V575= vs_base[0];          V505= vs_base[0];
3341          base[5]= (V566);          base[5]= (V496);
3342          base[6]= VV[59];          base[6]= VV[61];
3343          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3344          Lgetf();          Lgetf();
3345          vs_top=sup;          vs_top=sup;
3346          V576= vs_base[0];          V506= vs_base[0];
3347          if(((V575))!=Cnil){          if(((V505))!=Cnil){
3348          goto T1138;}          goto T1001;}
3349          if(((V576))==Cnil){          if(((V506))==Cnil){
3350          goto T1131;}          goto T994;}
3351          goto T1138;          goto T1001;
3352  T1138:;  T1001:;
3353          V568= (VFUN_NARGS=4,(*(LnkLI404))(VV[58],(V575),VV[59],(V576)));          V498= (VFUN_NARGS=4,(*(LnkLI416))(VV[60],(V505),VV[61],(V506)));
3354          if(((V568))==Cnil){          if(((V498))==Cnil){
3355          goto T1144;}          goto T1007;}
3356          base[5]= (V567);          base[5]= (V497);
3357          base[6]= (V568);          base[6]= (V498);
3358          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3359          Lset();          Lset();
3360          vs_top=sup;          vs_top=sup;
3361          goto T1144;          goto T1007;
3362  T1144:;  T1007:;
3363          base[5]= VV[208];          base[5]= VV[218];
3364          base[6]= (V568);          base[6]= (V498);
3365          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3366          L62(base);          L57(base);
3367          vs_top=sup;}          vs_top=sup;}
3368          goto T1131;          goto T994;
3369  T1131:;  T994:;
3370          goto T1153;          goto T1016;
3371  T1153:;  T1016:;
3372          if(((V566))!=Cnil){          if(((V496))!=Cnil){
3373          goto T1155;}          goto T1018;}
3374          goto T1151;          goto T1014;
3375          goto T1155;          goto T1018;
3376  T1155:;  T1018:;
3377          {register object V577;          {register object V507;
3378          V577= CMPcar((V566));          V507= CMPcar((V496));
3379          V566= CMPcdr((V566));          V496= CMPcdr((V496));
3380          base[5]= (V577);}          base[5]= (V507);}
3381          {register object V578;          {register object V508;
3382          V578= CMPcar((V566));          V508= CMPcar((V496));
3383          V566= CMPcdr((V566));          V496= CMPcdr((V496));
3384          base[6]= (V578);}          base[6]= (V508);}
3385          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3386          L62(base);          L57(base);
3387          vs_top=sup;          vs_top=sup;
3388          goto T1153;          goto T1016;
3389          goto T1151;          goto T1014;
3390  T1151:;  T1014:;
3391          if(((V564))==Cnil){          if(((V494))==Cnil){
3392          goto T1167;}          goto T1030;}
3393          base[5]= VV[209];          base[5]= VV[219];
3394          base[6]= (V564);          base[6]= (V494);
3395          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3396          L62(base);          L57(base);
3397          vs_top=sup;          vs_top=sup;
3398          goto T1167;          goto T1030;
3399  T1167:;  T1030:;
3400          if(((V563))==Cnil){          if(((V493))==Cnil){
3401          goto T1173;}          goto T1036;}
3402          if(base[0]!=Cnil){          if(base[0]!=Cnil){
3403          {object V579 = base[0];          {object V509 = base[0];
3404          VMR53(V579)}}          VMR50(V509)}}
3405          {object V580 = (*(LnkLI405))(base[4]);          {object V510 = (*(LnkLI417))(base[4]);
3406          VMR53(V580)}          VMR50(V510)}
3407          goto T1173;          goto T1036;
3408  T1173:;  T1036:;
3409          {object V581 = Cnil;          {object V511 = Cnil;
3410          VMR53(V581)}          VMR50(V511)}
3411          goto T1129;          goto T992;
3412  T1129:;  T992:;
3413          {object V582 = Cnil;          {object V512 = Cnil;
3414          VMR53(V582)}}          VMR50(V512)}}
3415          va_end(ap);          va_end(ap);
3416          base[0]=base[0];          base[0]=base[0];
3417          return Cnil;}          return Cnil;}
3418          }          }
3419  /*      function definition for ANALYZE-LAMBDA-LIST     */  /*      function definition for ANALYZE-LAMBDA-LIST     */
3420    
3421  static void L63()  static void L58()
3422  {register object *base=vs_base;  {register object *base=vs_base;
3423          register object *sup=base+VM54; VC54          register object *sup=base+VM51; VC51
3424          vs_check;          vs_check;
3425          {object V583;          {object V513;
3426          check_arg(1);          check_arg(1);
3427          V583=(base[0]);          V513=(base[0]);
3428          vs_top=sup;          vs_top=sup;
3429          goto TTL;          goto TTL;
3430  TTL:;  TTL:;
3431          {register object V584;          {object V514;
3432          register object V585;          object V515;
3433          object V586;          object V516;
3434          object V587;          object V517;
3435          object V588;          object V518;
3436          register object V589;          object V519;
3437          register object V590;          object V520;
3438          register object V591;          register object V521;
3439          V584= small_fixnum(0);          V514= small_fixnum(0);
3440          V585= small_fixnum(0);          V515= small_fixnum(0);
3441          V586= Cnil;          V516= Cnil;
3442          V587= Cnil;          V517= Cnil;
3443          V588= Cnil;          V518= Cnil;
3444          V589= Cnil;          V519= Cnil;
3445          V590= Cnil;          V520= Cnil;
3446          V591= VV[180];          V521= VV[192];
3447          {register object V592;          {register object V522;
3448          register object V593;          register object V523;
3449          V592= (V583);          V522= (V513);
3450          V593= CMPcar((V592));          V523= CMPcar((V522));
3451          goto T1179;          goto T1042;
3452  T1179:;  T1042:;
3453          if(!(((V592))==Cnil)){          if(!(((V522))==Cnil)){
3454          goto T1180;}          goto T1043;}
3455          goto T1175;          goto T1038;
3456          goto T1180;          goto T1043;
3457  T1180:;  T1043:;
3458          {register object x= (V593),V594= VV[182];          {register object x= (V523),V524= VV[193];
3459          while(V594!=Cnil)          while(V524!=Cnil)
3460          if(x==(V594->c.c_car)){          if(x==(V524->c.c_car)){
3461          goto T1187;          goto T1050;
3462          }else V594=V594->c.c_cdr;          }else V524=V524->c.c_cdr;
3463          goto T1186;}          goto T1049;}
3464          goto T1187;          goto T1050;
3465  T1187:;  T1050:;
3466          {object V595= (V593);          {object V525= (V523);
3467          if((V595!= VV[406]))goto T1188;          if((V525!= VV[418]))goto T1051;
3468          V591= VV[183];          V521= VV[194];
3469          goto T1184;          goto T1047;
3470          goto T1188;          goto T1051;
3471  T1188:;  T1051:;
3472          if((V595!= VV[61]))goto T1190;          if((V525!= VV[63]))goto T1053;
3473          V586= Ct;          V516= Ct;
3474          V591= VV[184];          V521= VV[195];
3475          goto T1184;          goto T1047;
3476          goto T1190;          goto T1053;
3477  T1190:;  T1053:;
3478          if((V595!= VV[62]))goto T1194;          if((V525!= VV[64]))goto T1057;
3479          V588= Ct;          V518= Ct;
3480          goto T1184;          goto T1047;
3481          goto T1194;          goto T1057;
3482  T1194:;  T1057:;
3483          if((V595!= VV[169]))goto T1196;          if((V525!= VV[178]))goto T1059;
3484          V587= Ct;          V517= Ct;
3485          V591= VV[185];          V521= VV[196];
3486          goto T1184;          goto T1047;
3487          goto T1196;          goto T1059;
3488  T1196:;  T1059:;
3489          if((V595!= VV[55]))goto T1200;          if((V525!= VV[65]))goto T1063;
3490          goto T1175;          goto T1038;
3491          goto T1200;          goto T1063;
3492  T1200:;  T1063:;
3493          base[2]= VV[220];          base[2]= VV[229];
3494          base[3]= (V593);          base[3]= (V523);
3495          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3496          Lerror();          Lerror();
3497          vs_top=sup;          vs_top=sup;
3498          goto T1184;}          goto T1047;}
3499          goto T1186;          goto T1049;
3500  T1186:;  T1049:;
3501          {object V596= (V591);          {object V527= V521;
3502          if((V596!= VV[180]))goto T1203;          if((V527!= VV[192]))goto T1066;
3503          V584= number_plus((V584),small_fixnum(1));          V514= number_plus((V514),small_fixnum(1));
3504          goto T1184;          goto T1047;
3505          goto T1203;          goto T1066;
3506  T1203:;  T1066:;
3507          if((V596!= VV[183]))goto T1205;          if((V527!= VV[194]))goto T1068;
3508          V585= number_plus((V585),small_fixnum(1));          V515= number_plus((V515),small_fixnum(1));
3509          goto T1184;          goto T1047;
3510          goto T1205;          goto T1068;
3511  T1205:;  T1068:;
3512          if((V596!= VV[184]))goto T1207;          if((V527!= VV[195]))goto T1070;
3513          {object V597;          {object V528;
3514          base[3]= (V593);          base[3]= (V523);
3515          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3516          L64(base);          L59(base);
3517          vs_top=sup;          vs_top=sup;
3518          V597= vs_base[0];          V528= vs_base[0];
3519          V589= make_cons((V597),(V589));}          V519= make_cons((V528),(V519));}
3520          V590= make_cons(V593,(V590));          V520= make_cons(V523,(V520));
3521          goto T1184;          goto T1047;
3522          goto T1207;          goto T1070;
3523  T1207:;  T1070:;
3524          if((V596!= VV[185]))goto T1213;          if((V527!= VV[196]))goto T1076;
3525          goto T1184;          goto T1047;
3526          goto T1213;          goto T1076;
3527  T1213:;  T1076:;
3528          FEerror("The ECASE key value ~s is illegal.",1,V596);          base[2]= VV[157];
3529          goto T1184;}          base[3]= VV[158];
3530          goto T1184;          base[4]= VV[207];
3531  T1184:;          base[5]= VV[160];
3532          V592= CMPcdr((V592));          base[6]= V521;
3533          V593= CMPcar((V592));          base[7]= VV[161];
3534          goto T1179;}          base[8]= VV[232];
3535          goto T1175;          base[9]= VV[163];
3536  T1175:;          base[10]= VV[233];
3537          base[1]= (V584);          vs_top=(vs_base=base+2)+9;
3538          base[2]= (V585);          (void) (*Lnk409)();
3539          base[3]= (V586);          vs_top=sup;}
3540          base[4]= (V587);          goto T1047;
3541          base[5]= (V588);  T1047:;
3542          base[6]= reverse((V589));          V522= CMPcdr((V522));
3543          base[7]= reverse((V590));          V523= CMPcar((V522));
3544            goto T1042;}
3545            goto T1038;
3546    T1038:;
3547            base[1]= (V514);
3548            base[2]= (V515);
3549            base[3]= (V516);
3550            base[4]= (V517);
3551            base[5]= (V518);
3552            base[6]= reverse((V519));
3553            base[7]= reverse((V520));
3554          vs_top=(vs_base=base+1)+7;          vs_top=(vs_base=base+1)+7;
3555          return;}          return;}
3556          }          }
3557  }  }
3558  /*      local entry for function KEYWORD-SPEC-NAME      */  /*      local entry for function KEYWORD-SPEC-NAME      */
3559    
3560  static object LI65(V600)  static object LI60(V531)
3561    
3562  object V600;  object V531;
3563  {        VMB55 VMS55 VMV55  {        VMB52 VMS52 VMV52
3564          goto TTL;          goto TTL;
3565  TTL:;  TTL:;
3566          {object V601;          {object V532;
3567          if(!(type_of((V600))!=t_cons)){          if(!(type_of((V531))!=t_cons)){
3568          goto T1228;}          goto T1100;}
3569          V601= (V600);          V532= (V531);
3570          goto T1226;          goto T1098;
3571          goto T1228;          goto T1100;
3572  T1228:;  T1100:;
3573          V601= CMPcar((V600));          V532= CMPcar((V531));
3574          goto T1226;          goto T1098;
3575  T1226:;  T1098:;
3576          if(!(type_of((V601))!=t_cons)){          if(!(type_of((V532))!=t_cons)){
3577          goto T1231;}          goto T1103;}
3578          base[0]= symbol_name((V601));          base[0]= symbol_name((V532));
3579          base[2]= VV[221];          base[2]= VV[234];
3580          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3581          Lfind_package();          Lfind_package();
3582          vs_top=sup;          vs_top=sup;
# Line 3856  T1226:; Line 3584  T1226:;
3584          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3585          Lintern();          Lintern();
3586          vs_top=sup;          vs_top=sup;
3587          {object V602 = vs_base[0];          {object V533 = vs_base[0];
3588          VMR55(V602)}          VMR52(V533)}
3589          goto T1231;          goto T1103;
3590  T1231:;  T1103:;
3591          {object V603 = CMPcar((V601));          {object V534 = CMPcar((V532));
3592          VMR55(V603)}}          VMR52(V534)}}
3593          base[0]=base[0];          base[0]=base[0];
3594          return Cnil;          return Cnil;
3595  }  }
3596  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */
3597    
3598  static object LI66(V605)  static object LI61(V536)
3599    
3600  object V605;  object V536;
3601  {        VMB56 VMS56 VMV56  {        VMB53 VMS53 VMV53
3602          goto TTL;          goto TTL;
3603  TTL:;  TTL:;
3604          {object V606;          {object V537;
3605          object V607;          object V538;
3606          object V608;          object V539;
3607          object V609;          object V540;
3608          object V610;          object V541;
3609          object V611;          object V542;
3610          object V612;          object V543;
3611          base[0]= (V605);          base[0]= (V536);
3612          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3613          (void) (*Lnk407)();          (void) (*Lnk419)();
3614          if(vs_base>=vs_top){vs_top=sup;goto T1238;}          if(vs_base>=vs_top){vs_top=sup;goto T1110;}
3615          V606= vs_base[0];          V537= vs_base[0];
3616          vs_base++;          vs_base++;
3617          if(vs_base>=vs_top){vs_top=sup;goto T1239;}          if(vs_base>=vs_top){vs_top=sup;goto T1111;}
3618          V607= vs_base[0];          V538= vs_base[0];
3619          vs_base++;          vs_base++;
3620          if(vs_base>=vs_top){vs_top=sup;goto T1240;}          if(vs_base>=vs_top){vs_top=sup;goto T1112;}
3621          V608= vs_base[0];          V539= vs_base[0];
3622          vs_base++;          vs_base++;
3623          if(vs_base>=vs_top){vs_top=sup;goto T1241;}          if(vs_base>=vs_top){vs_top=sup;goto T1113;}
3624          V609= vs_base[0];          V540= vs_base[0];
3625          vs_base++;          vs_base++;
3626          if(vs_base>=vs_top){vs_top=sup;goto T1242;}          if(vs_base>=vs_top){vs_top=sup;goto T1114;}
3627          V610= vs_base[0];          V541= vs_base[0];
3628          vs_base++;          vs_base++;
3629          if(vs_base>=vs_top){vs_top=sup;goto T1243;}          if(vs_base>=vs_top){vs_top=sup;goto T1115;}
3630          V611= vs_base[0];          V542= vs_base[0];
3631          vs_base++;          vs_base++;
3632          if(vs_base>=vs_top){vs_top=sup;goto T1244;}          if(vs_base>=vs_top){vs_top=sup;goto T1116;}
3633          V612= vs_base[0];          V543= vs_base[0];
3634          vs_top=sup;          vs_top=sup;
3635          goto T1245;          goto T1117;
3636          goto T1238;          goto T1110;
3637  T1238:;  T1110:;
3638          V606= Cnil;          V537= Cnil;
3639          goto T1239;          goto T1111;
3640  T1239:;  T1111:;
3641          V607= Cnil;          V538= Cnil;
3642          goto T1240;          goto T1112;
3643  T1240:;  T1112:;
3644          V608= Cnil;          V539= Cnil;
3645          goto T1241;          goto T1113;
3646  T1241:;  T1113:;
3647          V609= Cnil;          V540= Cnil;
3648          goto T1242;          goto T1114;
3649  T1242:;  T1114:;
3650          V610= Cnil;          V541= Cnil;
3651          goto T1243;          goto T1115;
3652  T1243:;  T1115:;
3653          V611= Cnil;          V542= Cnil;
3654          goto T1244;          goto T1116;
3655  T1244:;  T1116:;
3656          V612= Cnil;          V543= Cnil;
3657          goto T1245;          goto T1117;
3658  T1245:;  T1117:;
3659          {object V613;          {object V544;
3660          {object V614;          {object V545;
3661          object V615= (V611);          object V546= (V542);
3662          if(V615==Cnil){          if(V546==Cnil){
3663          V613= Cnil;          V544= Cnil;
3664          goto T1246;}          goto T1118;}
3665          base[1]=V614=MMcons(Cnil,Cnil);          base[1]=V545=MMcons(Cnil,Cnil);
3666          goto T1247;          goto T1119;
3667  T1247:;  T1119:;
3668          (V614->c.c_car)= (*(LnkLI408))((V615->c.c_car));          (V545->c.c_car)= (*(LnkLI420))((V546->c.c_car));
3669          if((V615=MMcdr(V615))==Cnil){          if((V546=MMcdr(V546))==Cnil){
3670          V613= base[1];          V544= base[1];
3671          goto T1246;}          goto T1118;}
3672          V614=MMcdr(V614)=MMcons(Cnil,Cnil);          V545=MMcdr(V545)=MMcons(Cnil,Cnil);
3673          goto T1247;}          goto T1119;}
3674          goto T1246;          goto T1118;
3675  T1246:;  T1118:;
3676          base[2]= (V606);          base[2]= (V537);
3677          base[3]= VV[222];          base[3]= VV[235];
3678          base[4]= Ct;          base[4]= Ct;
3679          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3680          Lmake_list();          Lmake_list();
3681          vs_top=sup;          vs_top=sup;
3682          base[1]= vs_base[0];          base[1]= vs_base[0];
3683          if(!(number_compare(small_fixnum(0),(V607))<0)){          if(!(number_compare(small_fixnum(0),(V538))<0)){
3684          goto T1256;}          goto T1128;}
3685          base[3]= (V607);          base[3]= (V538);
3686          base[4]= VV[222];          base[4]= VV[235];
3687          base[5]= Ct;          base[5]= Ct;
3688          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3689          Lmake_list();          Lmake_list();
3690          vs_top=sup;          vs_top=sup;
3691          V617= vs_base[0];          V548= vs_base[0];
3692          base[2]= append(VV[223],V617);          base[2]= append(VV[236],V548);
3693          goto T1254;          goto T1126;
3694          goto T1256;          goto T1128;
3695  T1256:;  T1128:;
3696          base[2]= Cnil;          base[2]= Cnil;
3697          goto T1254;          goto T1126;
3698  T1254:;  T1126:;
3699          if(((V609))==Cnil){          if(((V540))==Cnil){
3700          goto T1264;}          goto T1136;}
3701          base[3]= VV[224];          base[3]= VV[237];
3702          goto T1262;          goto T1134;
3703          goto T1264;          goto T1136;
3704  T1264:;  T1136:;
3705          base[3]= Cnil;          base[3]= Cnil;
3706          goto T1262;          goto T1134;
3707  T1262:;  T1134:;
3708          if(((V608))==Cnil){          if(((V539))==Cnil){
3709          goto T1268;}          goto T1140;}
3710          base[5]= VV[225];          base[5]= VV[238];
3711          {object V618;          {object V549;
3712          object V619= (V613);          object V550= (V544);
3713          if(V619==Cnil){          if(V550==Cnil){
3714          base[6]= Cnil;          base[6]= Cnil;
3715          goto T1271;}          goto T1143;}
3716          base[7]=V618=MMcons(Cnil,Cnil);          base[7]=V549=MMcons(Cnil,Cnil);
3717          goto T1272;          goto T1144;
3718  T1272:;  T1144:;
3719          (V618->c.c_car)= list(2,(V619->c.c_car),Ct);          (V549->c.c_car)= list(2,(V550->c.c_car),Ct);
3720          if((V619=MMcdr(V619))==Cnil){          if((V550=MMcdr(V550))==Cnil){
3721          base[6]= base[7];          base[6]= base[7];
3722          goto T1271;}          goto T1143;}
3723          V618=MMcdr(V618)=MMcons(Cnil,Cnil);          V549=MMcdr(V549)=MMcons(Cnil,Cnil);
3724          goto T1272;}          goto T1144;}
3725          goto T1271;          goto T1143;
3726  T1271:;  T1143:;
3727          if(((V610))==Cnil){          if(((V541))==Cnil){
3728          goto T1276;}          goto T1148;}
3729          base[7]= VV[226];          base[7]= VV[239];
3730          goto T1274;          goto T1146;
3731          goto T1276;          goto T1148;
3732  T1276:;  T1148:;
3733          base[7]= Cnil;          base[7]= Cnil;
3734          goto T1274;          goto T1146;
3735  T1274:;  T1146:;
3736          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
3737          Lappend();          Lappend();
3738          vs_top=sup;          vs_top=sup;
3739          base[4]= vs_base[0];          base[4]= vs_base[0];
3740          goto T1266;          goto T1138;
3741          goto T1268;          goto T1140;
3742  T1268:;  T1140:;
3743          base[4]= Cnil;          base[4]= Cnil;
3744          goto T1266;          goto T1138;
3745  T1266:;  T1138:;
3746          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3747          Lappend();          Lappend();
3748          vs_top=sup;          vs_top=sup;
3749          V616= vs_base[0];          V547= vs_base[0];
3750          {object V621 = list(3,VV[14],V616,VV[227]);          {object V552 = list(3,VV[18],V547,VV[240]);
3751          VMR56(V621)}}}          VMR53(V552)}}}
3752          base[0]=base[0];          base[0]=base[0];
3753          return Cnil;          return Cnil;
3754  }  }
3755  /*      local entry for function PROCLAIM-DEFGENERIC    */  /*      local entry for function PROCLAIM-DEFGENERIC    */
3756    
3757  static object LI67(V624,V625)  static object LI62(V555,V556)
3758    
3759  register object V624;object V625;  register object V555;object V556;
3760  {        VMB57 VMS57 VMV57  {        VMB54 VMS54 VMV54
3761          goto TTL;          goto TTL;
3762  TTL:;  TTL:;
3763          if(!(type_of((V624))==t_cons)){          if(!(type_of((V555))==t_cons)){
3764          goto T1278;}          goto T1150;}
3765          V624= (*(LnkLI409))(CMPcadr((V624)));          V555= (*(LnkLI421))(CMPcadr((V555)));
3766          goto T1278;          goto T1150;
3767  T1278:;  T1150:;
3768          if(!(type_of((V624))==t_symbol)){          if(!(type_of((V555))==t_symbol)){
3769          goto T1284;}          goto T1155;}
3770          V626= (V624);          {object V557 = sputprop((V555),VV[241],Ct);
3771          goto T1282;          VMR54(V557)}
3772          goto T1284;          goto T1155;
3773  T1284:;  T1155:;
3774          base[1]= VV[228];          {object V558 = Cnil;
3775          base[2]= VV[229];          VMR54(V558)}
         base[3]= symbol_name(CMPcadr((V624)));  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk410)();  
         vs_top=sup;  
         base[0]= vs_base[0];  
         vs_top=(vs_base=base+0)+1;  
         Lmake_symbol();  
         vs_top=sup;  
         V626= vs_base[0];  
         goto T1282;  
 T1282:;  
         {object V627 = sputprop(V626,VV[230],Ct);  
         VMR57(V627)}  
         base[0]=base[0];  
3776          return Cnil;          return Cnil;
3777  }  }
3778  /*      function definition for ENSURE-GENERIC-FUNCTION */  /*      function definition for ENSURE-GENERIC-FUNCTION */
3779    
3780  static void L68()  static void L63()
3781  {register object *base=vs_base;  {register object *base=vs_base;
3782          register object *sup=base+VM58; VC58          register object *sup=base+VM55; VC55
3783          vs_check;          vs_check;
3784          {register object V628;          {register object V559;
3785          object V629;          object V560;
3786          object V630;          object V561;
3787          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3788          parse_key(vs_base+1,TRUE,TRUE,1,VV[296]);          parse_key(vs_base+1,TRUE,TRUE,1,VV[309]);
3789          V628=(base[0]);          V559=(base[0]);
3790          vs_top=sup;          vs_top=sup;
3791          V629=(base[1]);          V560=(base[1]);
3792          V630=(base[2]);          V561=(base[2]);
3793          {object V631;          {register object V562;
3794          if(((*(LnkLI356))((V628)))!=Cnil){          if(((*(LnkLI371))((V559)))!=Cnil){
3795          goto T1291;}          goto T1158;}
3796          V631= Cnil;          V562= Cnil;
3797          goto T1290;          goto T1157;
3798          goto T1291;          goto T1158;
3799  T1291:;  T1158:;
3800          V631= (*(LnkLI347))((V628));          V562= (*(LnkLI362))((V559));
3801          goto T1290;          goto T1157;
3802  T1290:;  T1157:;
3803          if(((V631))==Cnil){          if(((V562))==Cnil){
3804          goto T1294;}          goto T1160;}
3805          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
3806          goto T1294;}          goto T1160;}
3807          base[4]= (V631);          base[4]= (V562);
3808          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3809          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk372)(Lclptr372);
3810          vs_top=sup;          vs_top=sup;
3811          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3812          goto T1294;}          goto T1160;}
3813          base[4]= (*(LnkLI411))((V628));          (void)((*(LnkLI422))((V559)));
3814          vs_top=(vs_base=base+4)+1;          V562= Cnil;
3815          return;          goto T1160;
3816          goto T1294;  T1160:;
3817  T1294:;          base[4]=VV[423]->s.s_gfdef;
3818          base[4]=VV[412]->s.s_gfdef;          base[5]= (V562);
3819          base[5]= (V631);          base[6]= (V559);
3820          base[6]= (V628);          {object V563;
3821          {object V632;          V563= (V560);
         V632= (V629);  
3822           vs_top=base+7;           vs_top=base+7;
3823           while(V632!=Cnil)           while(V563!=Cnil)
3824           {vs_push((V632)->c.c_car);V632=(V632)->c.c_cdr;}           {vs_push((V563)->c.c_car);V563=(V563)->c.c_cdr;}
3825          vs_base=base+5;}          vs_base=base+5;}
3826          funcall(base[4]);          funcall(base[4]);
3827          return;}          return;}
# Line 4116  T1294:; Line 3829  T1294:;
3829  }  }
3830  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */
3831    
3832  static object LI69(V634)  static object LI65(V565)
3833    
3834  object V634;  object V565;
3835  {        VMB59 VMS59 VMV59  {        VMB56 VMS56 VMV56
3836          goto TTL;          goto TTL;
3837  TTL:;  TTL:;
3838          base[0]= VV[231];          base[0]=MMcons((V565),Cnil);
3839          base[1]= (V634);          base[2]= VV[8];
3840          vs_top=(vs_base=base+0)+2;          base[3]= VV[242];
3841          Lerror();          base[4]= (base[0]->c.c_car);
3842            vs_top=(vs_base=base+2)+3;
3843            (void) (*Lnk364)();
3844          vs_top=sup;          vs_top=sup;
3845          {object V635 = vs_base[0];          base[1]= vs_base[0];
3846          VMR59(V635)}          base[3]= Cnil;
3847            base[4]= VV[243];
3848            base[5]=
3849            make_cclosure_new(LC126,Cnil,base[0],Cdata);
3850            base[7]= (base[0]->c.c_car);
3851            vs_top=(vs_base=base+7)+1;
3852            Lfmakunbound();
3853            vs_top=sup;
3854            base[6]= vs_base[0];
3855            vs_top=(vs_base=base+3)+4;
3856            (void) (*Lnk424)();
3857            vs_top=sup;
3858            base[2]= vs_base[0];
3859            vs_top=(vs_base=base+1)+2;
3860            (void) (*Lnk425)();
3861            vs_top=sup;
3862            {object V566 = vs_base[0];
3863            VMR56(V566)}
3864          base[0]=base[0];          base[0]=base[0];
3865          return Cnil;          return Cnil;
3866  }  }
3867  /*      local entry for function EARLY-GF-P     */  /*      local entry for function EARLY-GF-P     */
3868    
3869  static object LI70(V637)  static object LI66(V568)
3870    
3871  register object V637;  register object V568;
3872  {        VMB60 VMS60 VMV60  {        VMB57 VMS57 VMV57
3873          goto TTL;          goto TTL;
3874  TTL:;{object V638;  TTL:;{object V569;
3875          V638= (VV[146]->s.s_dbind);          V569= (VV[151]->s.s_dbind);
3876          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3877          base[1]= (V637);          base[1]= (V568);
3878          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3879          (void) (*Lnk390)();          (void) (*Lnk407)();
3880          vs_top=sup;          vs_top=sup;
3881          V639= vs_base[0];          V570= vs_base[0];
3882          if((V638)==(CMPcar(V639))){          if((V569)==(CMPcar(V570))){
3883          goto T1306;}}          goto T1183;}}
3884          {object V640 = Cnil;          {object V571 = Cnil;
3885          VMR60(V640)}          VMR57(V571)}
3886          goto T1306;          goto T1183;
3887  T1306:;  T1183:;
3888          if(type_of(V637)==t_structure){          if(type_of(V568)==t_structure){
3889          goto T1315;}          goto T1192;}
3890          goto T1313;          goto T1190;
3891          goto T1315;          goto T1192;
3892  T1315:;  T1192:;
3893          if(!(((V637)->str.str_def)==(VV[232]))){          if(!(((V568)->str.str_def)==(VV[245]))){
3894          goto T1313;}          goto T1190;}
3895          V641= STREF(object,(V637),4);          V572= STREF(object,(V568),4);
3896          goto T1311;          goto T1188;
3897          goto T1313;          goto T1190;
3898  T1313:;{object V643;  T1190:;{object V574;
3899          V643= (VV[146]->s.s_dbind);          V574= (VV[151]->s.s_dbind);
3900          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3901          base[1]= (V637);          base[1]= (V568);
3902          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3903          (void) (*Lnk390)();          (void) (*Lnk407)();
3904          vs_top=sup;          vs_top=sup;
3905          V644= vs_base[0];          V575= vs_base[0];
3906          if(!((V643)==(CMPcar(V644)))){          if(!((V574)==(CMPcar(V575)))){
3907          goto T1318;}}          goto T1195;}}
3908          V641= CMPcar(((V637))->cc.cc_turbo[12]);          V572= CMPcar(((V568))->cc.cc_turbo[12]);
3909          goto T1311;          goto T1188;
3910          goto T1318;          goto T1195;
3911  T1318:;  T1195:;
3912          base[0]= VV[147];          base[0]= VV[152];
3913          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3914          Lerror();          Lerror();
3915          vs_top=sup;          vs_top=sup;
3916          V641= vs_base[0];          V572= vs_base[0];
3917          goto T1311;          goto T1188;
3918  T1311:;  T1188:;
3919          V645 = (VV[233]->s.s_dbind);          {object V576 = (((V572)->v.v_self[fix((VV[246]->s.s_dbind))])==((VV[136]->s.s_dbind))?Ct:Cnil);
3920          {object V646 = (((V641)->v.v_self[fix(V645)])==((VV[131]->s.s_dbind))?Ct:Cnil);          VMR57(V576)}
         VMR60(V646)}  
3921          base[0]=base[0];          base[0]=base[0];
3922          return Cnil;          return Cnil;
3923  }  }
3924  /*      macro definition for EARLY-GF-METHODS   */  /*      macro definition for EARLY-GF-METHODS   */
3925    
3926  static void L71()  static void L67()
3927  {register object *base=vs_base;  {register object *base=vs_base;
3928          register object *sup=base+VM61; VC61          register object *sup=base+VM58; VC58
3929          vs_check;          vs_check;
3930          check_arg(2);          check_arg(2);
3931          vs_top=sup;          vs_top=sup;
3932          {object V647=base[0]->c.c_cdr;          {object V577=base[0]->c.c_cdr;
3933          if(endp(V647))invalid_macro_call();          if(endp(V577))invalid_macro_call();
3934          base[2]= (V647->c.c_car);          base[2]= (V577->c.c_car);
3935          V647=V647->c.c_cdr;          V577=V577->c.c_cdr;
3936          if(!endp(V647))invalid_macro_call();}          if(!endp(V577))invalid_macro_call();}
3937          base[3]= list(3,VV[234],list(2,VV[235],base[2]),VV[236]);          base[3]= list(3,VV[247],list(2,VV[248],base[2]),VV[249]);
3938          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3939          return;          return;
3940  }  }
3941  /*      macro definition for EARLY-GF-ARG-INFO  */  /*      macro definition for EARLY-GF-ARG-INFO  */
3942    
3943  static void L72()  static void L68()
3944  {register object *base=vs_base;  {register object *base=vs_base;
3945          register object *sup=base+VM62; VC62          register object *sup=base+VM59; VC59
3946          vs_check;          vs_check;
3947          check_arg(2);          check_arg(2);
3948          vs_top=sup;          vs_top=sup;
3949          {object V648=base[0]->c.c_cdr;          {object V578=base[0]->c.c_cdr;
3950          if(endp(V648))invalid_macro_call();          if(endp(V578))invalid_macro_call();
3951          base[2]= (V648->c.c_car);          base[2]= (V578->c.c_car);
3952          V648=V648->c.c_cdr;          V578=V578->c.c_cdr;
3953          if(!endp(V648))invalid_macro_call();}          if(!endp(V578))invalid_macro_call();}
3954          base[3]= list(3,VV[234],list(2,VV[235],base[2]),VV[237]);          base[3]= list(3,VV[247],list(2,VV[248],base[2]),VV[250]);
3955          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3956          return;          return;
3957  }  }
3958  /*      local entry for function __si::MAKE-ARG-INFO    */  /*      local entry for function __si::MAKE-ARG-INFO    */
3959    
3960  static object LI73(object first,...)  static object LI69(object first,...)
3961  {        {      
3962          va_list ap;          va_list ap;
3963          int narg = VFUN_NARGS; VMB63 VMS63 VMV63          int narg = VFUN_NARGS; VMB60 VMS60 VMV60
3964          {object V649;          {object V579;
3965          object V650;          object V580;
3966          object V651;          object V581;
3967          object V652;          object V582;
3968          object V653;          object V583;
3969          object V654;          object V584;
3970          object V655;          object V585;
3971          object V656;          object V586;
3972          object V657;          object V587;
3973          object V658;          object V588;
3974          object V659;          object V589;
3975          va_start(ap,first);          va_start(ap,first);
3976          narg= narg - 0;          narg= narg - 0;
3977          {          {
3978          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI69key,first,ap);
3979          V649=(Vcs[0]);          V579=(Vcs[0]);
3980          V650=(Vcs[1]);          V580=(Vcs[1]);
3981          V651=(Vcs[2]);          V581=(Vcs[2]);
3982          V652=(Vcs[3]);          V582=(Vcs[3]);
3983          V653=(Vcs[4]);          V583=(Vcs[4]);
3984          V654=(Vcs[5]);          V584=(Vcs[5]);
3985          V655=(Vcs[6]);          V585=(Vcs[6]);
3986          V656=(Vcs[7]);          V586=(Vcs[7]);
3987          V657=(Vcs[8]);          V587=(Vcs[8]);
3988          if(Vcs[9]==0){          if(Vcs[9]==0){
3989          V658= Ct;          V588= Ct;
3990          }else{          }else{
3991          V658=(Vcs[9]);}          V588=(Vcs[9]);}
3992          V659=(Vcs[10]);          V589=(Vcs[10]);
3993          base[0]= VV[239];          base[0]= VV[252];
3994          base[1]= (V649);          base[1]= (V579);
3995          base[2]= (V650);          base[2]= (V580);
3996          base[3]= (V651);          base[3]= (V581);
3997          base[4]= (V652);          base[4]= (V582);
3998          base[5]= (V653);          base[5]= (V583);
3999          base[6]= (V654);          base[6]= (V584);
4000          base[7]= (V655);          base[7]= (V585);
4001          base[8]= (V656);          base[8]= (V586);
4002          base[9]= (V657);          base[9]= (V587);
4003          base[10]= (V658);          base[10]= (V588);
4004          base[11]= (V659);          base[11]= (V589);
4005          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4006          siLmake_structure();          siLmake_structure();
4007          vs_top=sup;          vs_top=sup;
4008          {object V660 = vs_base[0];          {object V590 = vs_base[0];
4009          VMR63(V660)}          VMR60(V590)}
4010          va_end(ap);          va_end(ap);
4011          base[0]=base[0];          base[0]=base[0];
4012          return Cnil;}          return Cnil;}
4013          }}          }}
4014  /*      local entry for function MAKE-ARG-INFO  */  /*      local entry for function MAKE-ARG-INFO  */
4015    
4016  static object LI74()  static object LI70()
4017    
4018  {        VMB64 VMS64 VMV64  {        VMB61 VMS61 VMV61
4019          goto TTL;          goto TTL;
4020  TTL:;  TTL:;
4021          base[0]= VV[239];          base[0]= VV[252];
4022          base[1]= VV[238];          base[1]= VV[251];
4023          base[2]= Cnil;          base[2]= Cnil;
4024          base[3]= Cnil;          base[3]= Cnil;
4025          base[4]= Cnil;          base[4]= Cnil;
# Line 4302  TTL:; Line 4033  TTL:;
4033          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4034          siLmake_structure();          siLmake_structure();
4035          vs_top=sup;          vs_top=sup;
4036          {object V672 = vs_base[0];          {object V602 = vs_base[0];
4037          VMR64(V672)}          VMR61(V602)}
4038          base[0]=base[0];          base[0]=base[0];
4039          return Cnil;          return Cnil;
4040  }  }
4041  /*      local entry for function ARG-INFO-VALID-P       */  /*      local entry for function ARG-INFO-VALID-P       */
4042    
4043  static object LI75(V674)  static object LI71(V604)
4044    
4045  object V674;  object V604;
4046  {        VMB65 VMS65 VMV65  {        VMB62 VMS62 VMV62
4047          goto TTL;          goto TTL;
4048  TTL:;  TTL:;
4049          {object V675 = ((((STREF(object,(V674),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V605 = ((((STREF(object,(V604),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4050          VMR65(V675)}          VMR62(V605)}
4051          return Cnil;          return Cnil;
4052  }  }
4053  /*      local entry for function ARG-INFO-APPLYP        */  /*      local entry for function ARG-INFO-APPLYP        */
4054    
4055  static object LI76(V677)  static object LI72(V607)
4056    
4057  object V677;  object V607;
4058  {        VMB66 VMS66 VMV66  {        VMB63 VMS63 VMV63
4059          goto TTL;          goto TTL;
4060  TTL:;  TTL:;
4061          if(!((fix(STREF(object,(V677),12)))>0)){          if(!((fix(STREF(object,(V607),12)))>0)){
4062          goto T1349;}          goto T1226;}
4063          {object V678 = Ct;          {object V608 = Ct;
4064          VMR66(V678)}          VMR63(V608)}
4065          goto T1349;          goto T1226;
4066  T1349:;  T1226:;
4067          {object V679 = STREF(object,(V677),16);          {object V609 = STREF(object,(V607),16);
4068          VMR66(V679)}          VMR63(V609)}
4069          return Cnil;          return Cnil;
4070  }  }
4071  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */
4072    
4073  static object LI77(V681)  static object LI73(V611)
4074    
4075  object V681;  object V611;
4076  {        VMB67 VMS67 VMV67  {        VMB64 VMS64 VMV64
4077          goto TTL;          goto TTL;
4078  TTL:;  TTL:;
4079          {long V682 = (long)length(STREF(object,(V681),8));          {long V612 = (long)length(STREF(object,(V611),8));
4080          VMR67((object)V682)}          VMR64((object)V612)}
4081  }  }
4082  /*      local entry for function ARG-INFO-NKEYS */  /*      local entry for function ARG-INFO-NKEYS */
4083    
4084  static object LI78(V684)  static object LI74(V614)
4085    
4086  object V684;  object V614;
4087  {        VMB68 VMS68 VMV68  {        VMB65 VMS65 VMV65
4088          goto TTL;          goto TTL;
4089  TTL:;  TTL:;
4090          base[0]= VV[424];          base[0]= VV[437];
4091          base[1]= STREF(object,(V684),8);          base[1]= STREF(object,(V614),8);
4092          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4093          (void) (*Lnk425)();          (void) (*Lnk438)();
4094          vs_top=sup;          vs_top=sup;
4095          {object V685 = vs_base[0];          {object V615 = vs_base[0];
4096          VMR68(V685)}          VMR65(V615)}
4097          base[0]=base[0];          base[0]=base[0];
4098          return Cnil;          return Cnil;
4099  }  }
4100  /*      macro definition for ESETF      */  /*      macro definition for ESETF      */
4101    
4102  static void L79()  static void L75()
4103  {register object *base=vs_base;  {register object *base=vs_base;
4104          register object *sup=base+VM69; VC69          register object *sup=base+VM66; VC66
4105          vs_check;          vs_check;
4106          check_arg(2);          check_arg(2);
4107          vs_top=sup;          vs_top=sup;
4108          {object V686=base[0]->c.c_cdr;          {object V616=base[0]->c.c_cdr;
4109          if(endp(V686))invalid_macro_call();          if(endp(V616))invalid_macro_call();
4110          base[2]= (V686->c.c_car);          base[2]= (V616->c.c_car);
4111          V686=V686->c.c_cdr;          V616=V616->c.c_cdr;
4112          if(endp(V686))invalid_macro_call();          if(endp(V616))invalid_macro_call();
4113          base[3]= (V686->c.c_car);          base[3]= (V616->c.c_car);
4114          V686=V686->c.c_cdr;          V616=V616->c.c_cdr;
4115          if(!endp(V686))invalid_macro_call();}          if(!endp(V616))invalid_macro_call();}
4116          {object V687;          {object V617;
4117          base[4]= VV[240];          base[4]= VV[253];
4118          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4119          Lgensym();          Lgensym();
4120          vs_top=sup;          vs_top=sup;
4121          V687= vs_base[0];          V617= vs_base[0];
4122          V688= list(2,(V687),base[3]);          V618= list(2,(V617),base[3]);
4123          V689= make_cons(/* INLINE-ARGS */V688,Cnil);          V619= make_cons(/* INLINE-ARGS */V618,Cnil);
4124          V690= list(3,VV[242],base[2],(V687));          V620= list(3,VV[255],base[2],(V617));
4125          base[4]= list(3,VV[95],/* INLINE-ARGS */V689,list(3,VV[241],/* INLINE-ARGS */V690,list(3,VV[30],base[2],(V687))));          base[4]= list(3,VV[100],/* INLINE-ARGS */V619,list(3,VV[254],/* INLINE-ARGS */V620,list(3,VV[34],base[2],(V617))));
4126          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4127          return;}          return;}
4128  }  }
4129  /*      local entry for function SET-ARG-INFO   */  /*      local entry for function SET-ARG-INFO   */
4130    
4131  static object LI80(object V691,object first,...)  static object LI76(object V621,object first,...)
4132  {        {      
4133          va_list ap;          va_list ap;
4134          int narg = VFUN_NARGS; VMB70 VMS70 VMV70          int narg = VFUN_NARGS; VMB67 VMS67 VMV67
4135          {register object V692;          {register object V622;
4136          object V693;          object V623;
4137          register object V694;          register object V624;
4138          register object V695;          register object V625;
4139          object V696;          object V626;
4140          va_start(ap,first);          va_start(ap,first);
4141          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
4142          V692= V691;          V622= V621;
4143          narg= narg - 1;          narg= narg - 1;
4144          {          {
4145          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI76key,first,ap);
4146          V693=(Vcs[1]);          V623=(Vcs[1]);
4147          if(Vcs[2]==0){          if(Vcs[2]==0){
4148          V694= Cnil;          V624= Cnil;
4149          V695= Cnil;          V625= Cnil;
4150          }else{          }else{
4151          V694=(Vcs[2]);          V624=(Vcs[2]);
4152          V695= Ct;}          V625= Ct;}
4153          V696=(Vcs[3]);          V626=(Vcs[3]);
4154          {register object V697;          {register object V627;
4155          object V698;          object V628;
4156          object V699;          object V629;
4157          object V700;          object V630;
4158          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
4159          goto T1358;}          goto T1235;}
4160          base[4]= (V692);          base[4]= (V622);
4161          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4162          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk439)(Lclptr439);
4163          vs_top=sup;          vs_top=sup;
4164          V697= vs_base[0];          V627= vs_base[0];
4165          goto T1356;          goto T1233;
4166          goto T1358;          goto T1235;
4167  T1358:;  T1235:;
4168          if(type_of(V692)==t_structure){          if(type_of(V622)==t_structure){
4169          goto T1365;}          goto T1242;}
4170          goto T1363;          goto T1240;
4171          goto T1365;          goto T1242;
4172  T1365:;  T1242:;
4173          if(!(((V692)->str.str_def)==(VV[243]))){          if(!(((V622)->str.str_def)==(VV[256]))){
4174          goto T1363;}          goto T1240;}
4175          V701= STREF(object,(V692),4);          V631= STREF(object,(V622),4);
4176          goto T1361;          goto T1238;
4177          goto T1363;          goto T1240;
4178  T1363:;{object V703;  T1240:;{object V633;
4179          V703= (VV[146]->s.s_dbind);          V633= (VV[151]->s.s_dbind);
4180          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4181          base[5]= (V692);          base[5]= (V622);
4182          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4183          (void) (*Lnk390)();          (void) (*Lnk407)();
4184          vs_top=sup;          vs_top=sup;
4185          V704= vs_base[0];          V634= vs_base[0];
4186          if(!((V703)==(CMPcar(V704)))){          if(!((V633)==(CMPcar(V634)))){
4187          goto T1368;}}          goto T1245;}}
4188          V701= CMPcar(((V692))->cc.cc_turbo[12]);          V631= CMPcar(((V622))->cc.cc_turbo[12]);
4189          goto T1361;          goto T1238;
4190          goto T1368;          goto T1245;
4191  T1368:;  T1245:;
4192          base[4]= VV[147];          base[4]= VV[152];
4193          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4194          Lerror();          Lerror();
4195          vs_top=sup;          vs_top=sup;
4196          V701= vs_base[0];          V631= vs_base[0];
4197          goto T1361;          goto T1238;
4198  T1361:;  T1238:;
4199          V705 = (VV[237]->s.s_dbind);          V627= (V631)->v.v_self[fix((VV[250]->s.s_dbind))];
4200          V697= (V701)->v.v_self[fix(V705)];          goto T1233;
4201          goto T1356;  T1233:;
4202  T1356:;          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
4203          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          goto T1253;}
4204          goto T1376;}          base[4]= (V622);
         base[4]= (V692);  
4205          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4206          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk440)(Lclptr440);
4207          vs_top=sup;          vs_top=sup;
4208          V698= vs_base[0];          V628= vs_base[0];
4209          goto T1374;          goto T1251;
4210          goto T1376;          goto T1253;
4211  T1376:;  T1253:;
4212          if(type_of(V692)==t_structure){          if(type_of(V622)==t_structure){
4213          goto T1383;}          goto T1260;}
4214          goto T1381;          goto T1258;
4215          goto T1383;          goto T1260;
4216  T1383:;  T1260:;
4217          if(!(((V692)->str.str_def)==(VV[244]))){          if(!(((V622)->str.str_def)==(VV[257]))){
4218          goto T1381;}          goto T1258;}
4219          V706= STREF(object,(V692),4);          V635= STREF(object,(V622),4);
4220          goto T1379;          goto T1256;
4221          goto T1381;          goto T1258;
4222  T1381:;{object V708;  T1258:;{object V637;
4223          V708= (VV[146]->s.s_dbind);          V637= (VV[151]->s.s_dbind);
4224          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4225          base[5]= (V692);          base[5]= (V622);
4226          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4227          (void) (*Lnk390)();          (void) (*Lnk407)();
4228          vs_top=sup;          vs_top=sup;
4229          V709= vs_base[0];          V638= vs_base[0];
4230          if(!((V708)==(CMPcar(V709)))){          if(!((V637)==(CMPcar(V638)))){
4231          goto T1386;}}          goto T1263;}}
4232          V706= CMPcar(((V692))->cc.cc_turbo[12]);          V635= CMPcar(((V622))->cc.cc_turbo[12]);
4233          goto T1379;          goto T1256;
4234          goto T1386;          goto T1263;
4235  T1386:;  T1263:;
4236          base[4]= VV[147];          base[4]= VV[152];
4237          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4238          Lerror();          Lerror();
4239          vs_top=sup;          vs_top=sup;
4240          V706= vs_base[0];          V635= vs_base[0];
4241          goto T1379;          goto T1256;
4242  T1379:;  T1256:;
4243          V710 = (VV[236]->s.s_dbind);          V628= (V635)->v.v_self[fix((VV[249]->s.s_dbind))];
4244          V698= (V706)->v.v_self[fix(V710)];          goto T1251;
4245          goto T1374;  T1251:;
4246  T1374:;          {object V639= STREF(object,(V627),12);
4247          {object V711= STREF(object,(V697),12);          V629= (type_of(V639)==t_fixnum||type_of(V639)==t_bignum?Ct:Cnil);}
4248          V699= (type_of(V711)==t_fixnum||type_of(V711)==t_bignum?Ct:Cnil);}          if((V623)==Cnil){
4249          if((V693)==Cnil){          V630= Cnil;
4250          V700= Cnil;          goto T1270;}
4251          goto T1393;}          V630= ((CMPcdr((V628)))==Cnil?Ct:Cnil);
4252          V700= ((CMPcdr((V698)))==Cnil?Ct:Cnil);          goto T1270;
4253          goto T1393;  T1270:;
4254  T1393:;          if(((V625))!=Cnil){
4255          if(((V695))!=Cnil){          goto T1271;}
4256          goto T1394;}          if(((V628))==Cnil){
4257          if(((V698))==Cnil){          goto T1271;}
4258          goto T1394;}          V624= (*(LnkLI441))((V622));
4259          V694= (*(LnkLI427))((V692));          goto T1271;
4260          goto T1394;  T1271:;
4261  T1394:;          if(((V625))!=Cnil){
4262          if(((V695))!=Cnil){          goto T1278;}
4263          goto T1401;}          if(((V630))==Cnil){
4264          if(((V700))==Cnil){          goto T1277;}
4265          goto T1400;}          if(!((STREF(object,(V627),0))==(VV[251]))){
4266          if(!((STREF(object,(V697),0))==(VV[238]))){          goto T1277;}
4267          goto T1400;}          goto T1278;
4268          goto T1401;  T1278:;
4269  T1401:;          {object V640;
4270          {object V712;          object V641;
4271          object V713;          object V642;
4272          object V714;          object V643;
4273          object V715;          object V644;
4274          object V716;          object V645;
4275          object V717;          base[4]= (V624);
         base[4]= (V694);  
4276          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4277          (void) (*Lnk407)();          (void) (*Lnk419)();
4278          if(vs_base>=vs_top){vs_top=sup;goto T1409;}          if(vs_base>=vs_top){vs_top=sup;goto T1286;}
4279          V712= vs_base[0];          V640= vs_base[0];
4280          vs_base++;          vs_base++;
4281          if(vs_base>=vs_top){vs_top=sup;goto T1410;}          if(vs_base>=vs_top){vs_top=sup;goto T1287;}
4282          V713= vs_base[0];          V641= vs_base[0];
4283          vs_base++;          vs_base++;
4284          if(vs_base>=vs_top){vs_top=sup;goto T1411;}          if(vs_base>=vs_top){vs_top=sup;goto T1288;}
4285          V714= vs_base[0];          V642= vs_base[0];
4286          vs_base++;          vs_base++;
4287          if(vs_base>=vs_top){vs_top=sup;goto T1412;}          if(vs_base>=vs_top){vs_top=sup;goto T1289;}
4288          V715= vs_base[0];          V643= vs_base[0];
4289          vs_base++;          vs_base++;
4290          if(vs_base>=vs_top){vs_top=sup;goto T1413;}          if(vs_base>=vs_top){vs_top=sup;goto T1290;}
4291          V716= vs_base[0];          V644= vs_base[0];
4292          vs_base++;          vs_base++;
4293          if(vs_base>=vs_top){vs_top=sup;goto T1414;}          if(vs_base>=vs_top){vs_top=sup;goto T1291;}
4294          V717= vs_base[0];          V645= vs_base[0];
4295          vs_top=sup;          vs_top=sup;
4296          goto T1415;          goto T1292;
4297          goto T1409;          goto T1286;
4298  T1409:;  T1286:;
4299          V712= Cnil;          V640= Cnil;
4300          goto T1410;          goto T1287;
4301  T1410:;  T1287:;
4302          V713= Cnil;          V641= Cnil;
4303          goto T1411;          goto T1288;
4304  T1411:;  T1288:;
4305          V714= Cnil;          V642= Cnil;
4306          goto T1412;          goto T1289;
4307  T1412:;  T1289:;
4308          V715= Cnil;          V643= Cnil;
4309          goto T1413;          goto T1290;
4310  T1413:;  T1290:;
4311          V716= Cnil;          V644= Cnil;
4312          goto T1414;          goto T1291;
4313  T1414:;  T1291:;
4314          V717= Cnil;          V645= Cnil;
4315          goto T1415;          goto T1292;
4316  T1415:;  T1292:;
4317          if(((V698))==Cnil){          if(((V628))==Cnil){
4318          goto T1416;}          goto T1293;}
4319          if(((V700))!=Cnil){          if(((V630))!=Cnil){
4320          goto T1416;}          goto T1293;}
4321          {object V718;          {object V646;
4322          object V719;          object V647;
4323          object V720;          object V648;
4324          V718= CMPmake_fixnum((long)(*(LnkLI394))((V697)));          V646= CMPmake_fixnum((long)(*(LnkLI442))((V627)));
4325          V719= STREF(object,(V697),12);          V647= STREF(object,(V627),12);
4326          V720= STREF(object,(V697),16);          V648= STREF(object,(V627),16);
4327          if(!(number_compare((V712),(V718))==0)){          if(!(number_compare((V640),(V646))==0)){
4328          goto T1424;}          goto T1301;}
4329          if(!(number_compare((V713),(V719))==0)){          if(!(number_compare((V641),(V647))==0)){
4330          goto T1424;}          goto T1301;}
4331          if((V714)!=Cnil){          if((V642)!=Cnil){
4332          V721= (V714);          V649= (V642);
4333          goto T1430;}          goto T1307;}
4334          V721= (V715);          V649= (V643);
4335          goto T1430;          goto T1307;
4336  T1430:;  T1307:;
4337          V722 = (V720);          if((V649)==((V648))){
4338          if((V721)==(V722)){          goto T1293;}
4339          goto T1416;}          goto T1301;
4340          goto T1424;  T1301:;
4341  T1424:;          base[4]= VV[258];
4342          base[4]= VV[245];          base[5]= (V624);
4343          base[5]= (V694);          base[6]= (V622);
         base[6]= (V692);  
4344          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4345          Lerror();          Lerror();
4346          vs_top=sup;}          vs_top=sup;}
4347          goto T1416;          goto T1293;
4348  T1416:;  T1293:;
4349          if(((V695))==Cnil){          if(((V625))==Cnil){
4350          goto T1434;}          goto T1311;}
4351          if(equal(STREF(object,(V697),0),V694)){          if(equal(STREF(object,(V627),0),V624)){
4352          goto T1434;}          goto T1311;}
4353          V724 = (V697);          V651= Ct;
4354          V725 = V694;          STSET(object,(V627),0, V624);
4355          V726= Ct;          (void)(V624);
4356          STSET(object,V724,0, V725);          goto T1311;
4357          (void)(V725);  T1311:;
4358          goto T1434;          if(((V625))!=Cnil){
4359  T1434:;          goto T1317;}
4360          if(((V695))!=Cnil){          if(((V626))!=Cnil){
4361          goto T1440;}          goto T1317;}
4362          if(((V696))!=Cnil){          if((STREF(object,(V627),4))!=Cnil){
4363          goto T1440;}          goto T1316;}
4364          if((STREF(object,(V697),4))!=Cnil){          goto T1317;
4365          goto T1439;}  T1317:;
4366          goto T1440;          {object V652;
4367  T1440:;          V652= (*(LnkLI443))((V624),(V640),(V626));
4368          {object V727;          if(equal(STREF(object,(V627),4),(V652))){
4369          V727= (*(LnkLI428))((V694),(V712),(V696));          goto T1316;}
4370          if(equal(STREF(object,(V697),4),(V727))){          V653= Ct;
4371          goto T1439;}          STSET(object,(V627),4, (V652));
4372          V728 = (V697);          (void)((V652));}
4373          V729 = (V727);          goto T1316;
4374          V730= Ct;  T1316:;
4375          STSET(object,V728,4, V729);          {object V654;
4376          (void)(V729);}          base[4]= (V640);
         goto T1439;  
 T1439:;  
         {object V731;  
         base[4]= (V712);  
4377          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4378          Lmake_list();          Lmake_list();
4379          vs_top=sup;          vs_top=sup;
4380          V731= vs_base[0];          V654= vs_base[0];
4381          if(equal(STREF(object,(V697),8),(V731))){          if(equal(STREF(object,(V627),8),(V654))){
4382          goto T1449;}          goto T1326;}
4383          V732 = (V697);          V655= Ct;
4384          V733 = (V731);          STSET(object,(V627),8, (V654));
4385          V734= Ct;          (void)((V654));}
4386          STSET(object,V732,8, V733);          goto T1326;
4387          (void)(V733);}  T1326:;
4388          goto T1449;          if(equal(STREF(object,(V627),12),V641)){
4389  T1449:;          goto T1331;}
4390          if(equal(STREF(object,(V697),12),V713)){          V657= Ct;
4391          goto T1454;}          STSET(object,(V627),12, V641);
4392          V736 = (V697);          (void)(V641);
4393          V737 = V713;          goto T1331;
4394          V738= Ct;  T1331:;
4395          STSET(object,V736,12, V737);          {object V658;
4396          (void)(V737);          if((V642)!=Cnil){
4397          goto T1454;          V659= (V642);
4398  T1454:;          goto T1336;}
4399          {object V739;          V659= (V643);
4400          if((V714)!=Cnil){          goto T1336;
4401          V740= (V714);  T1336:;
4402          goto T1459;}          V658= ((((V659)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4403          V740= (V715);          if(equal(STREF(object,(V627),16),(V658))){
4404          goto T1459;          goto T1334;}
4405  T1459:;          V660= Ct;
4406          V739= ((((V740)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          STSET(object,(V627),16, (V658));
4407          if(equal(STREF(object,(V697),16),(V739))){          (void)((V658));}
4408          goto T1457;}          goto T1334;
4409          V741 = (V697);  T1334:;
4410          V742 = (V739);          {object V661;
4411          V743= Ct;          if(((V625))==Cnil){
4412          STSET(object,V741,16, V742);          goto T1341;}
4413          (void)(V742);}          if(((V644))==Cnil){
4414          goto T1457;          goto T1344;}
4415  T1457:;          V661= Ct;
4416          {object V744;          goto T1339;
4417          if(((V695))==Cnil){          goto T1344;
4418          goto T1464;}  T1344:;
4419          if(((V716))==Cnil){          V661= (V645);
4420          goto T1467;}          goto T1339;
4421          V744= Ct;          goto T1341;
4422          goto T1462;  T1341:;
4423          goto T1467;          V661= STREF(object,(V627),16);
4424  T1467:;          goto T1339;
4425          V744= (V717);  T1339:;
4426          goto T1462;          if(equal(STREF(object,(V627),20),(V661))){
4427          goto T1464;          goto T1277;}
4428  T1464:;          V662= Ct;
4429          V744= STREF(object,(V697),16);          STSET(object,(V627),20, (V661));
4430          goto T1462;          (void)((V661));}}
4431  T1462:;          goto T1277;
4432          if(equal(STREF(object,(V697),20),(V744))){  T1277:;
4433          goto T1400;}          if(((V623))==Cnil){
4434          V745 = (V697);          goto T1348;}
4435          V746 = (V744);          base[4]= (V622);
4436          V747= Ct;          base[5]= (V627);
4437          STSET(object,V745,20, V746);          base[6]= (V623);
         (void)(V746);}}  
         goto T1400;  
 T1400:;  
         if(((V693))==Cnil){  
         goto T1471;}  
         base[4]= (V692);  
         base[5]= (V697);  
         base[6]= (V693);  
4438          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4439          (void) (*Lnk429)();          (void) (*Lnk444)();
4440          vs_top=sup;          vs_top=sup;
4441          goto T1471;          goto T1348;
4442  T1471:;  T1348:;
4443          (void)((*(LnkLI430))((V692),(V697),(V693),(V698),(V699),(V700)));          (void)((*(LnkLI445))((V622),(V627),(V623),(V628),(V629),(V630)));
4444          {object V748 = (V697);          {object V663 = (V627);
4445          VMR70(V748)}}          VMR67(V663)}}
4446          va_end(ap);          va_end(ap);
4447          base[0]=base[0];          base[0]=base[0];
4448          return Cnil;}          return Cnil;}
4449          }}          }}
4450  /*      function definition for CHECK-METHOD-ARG-INFO   */  /*      function definition for CHECK-METHOD-ARG-INFO   */
4451    
4452  static void L81()  static void L77()
4453  {register object *base=vs_base;  {register object *base=vs_base;
4454          register object *sup=base+VM71; VC71          register object *sup=base+VM68; VC68
4455          vs_check;          vs_check;
4456          {register object V749;          {register object V664;
4457          check_arg(3);          check_arg(3);
4458          V749=(base[1]);          V664=(base[1]);
4459          vs_top=sup;          vs_top=sup;
4460          goto TTL;          goto TTL;
4461  TTL:;  TTL:;
4462          {object V750;          {register object V665;
4463          object V751;          register object V666;
4464          object V752;          register object V667;
4465          object V753;          register object V668;
4466          object V754;          object V669;
4467          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
4468          goto T1481;}          goto T1358;}
4469          base[4]= (*(LnkLI431))(base[2]);          base[4]= (*(LnkLI446))(base[2]);
4470          goto T1479;          goto T1356;
4471          goto T1481;          goto T1358;
4472  T1481:;  T1358:;
4473          base[5]= base[2];          base[5]= base[2];
4474          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4475          (void) (*Lnk47)(Lclptr47);          (void) (*Lnk51)(Lclptr51);
4476          vs_top=sup;          vs_top=sup;
4477          base[4]= vs_base[0];          base[4]= vs_base[0];
4478          goto T1479;          goto T1356;
4479  T1479:;  T1356:;
4480          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4481          (void) (*Lnk407)();          (void) (*Lnk419)();
4482          if(vs_base>=vs_top){vs_top=sup;goto T1484;}          if(vs_base>=vs_top){vs_top=sup;goto T1361;}
4483          V750= vs_base[0];          V665= vs_base[0];
4484          vs_base++;          vs_base++;
4485          if(vs_base>=vs_top){vs_top=sup;goto T1485;}          if(vs_base>=vs_top){vs_top=sup;goto T1362;}
4486          V751= vs_base[0];          V666= vs_base[0];
4487          vs_base++;          vs_base++;
4488          if(vs_base>=vs_top){vs_top=sup;goto T1486;}          if(vs_base>=vs_top){vs_top=sup;goto T1363;}
4489          V752= vs_base[0];          V667= vs_base[0];
4490          vs_base++;          vs_base++;
4491          if(vs_base>=vs_top){vs_top=sup;goto T1487;}          if(vs_base>=vs_top){vs_top=sup;goto T1364;}
4492          V753= vs_base[0];          V668= vs_base[0];
4493          vs_base++;          vs_base++;
4494          if(vs_base>=vs_top){vs_top=sup;goto T1488;}          if(vs_base>=vs_top){vs_top=sup;goto T1365;}
4495          V754= vs_base[0];          V669= vs_base[0];
4496          vs_base++;          vs_base++;
4497          if(vs_base>=vs_top){vs_top=sup;goto T1489;}          if(vs_base>=vs_top){vs_top=sup;goto T1366;}
4498          base[3]=MMcons(vs_base[0],Cnil);          base[3]=MMcons(vs_base[0],Cnil);
4499          vs_top=sup;          vs_top=sup;
4500          goto T1490;          goto T1367;
4501          goto T1484;          goto T1361;
4502  T1484:;  T1361:;
4503          V750= Cnil;          V665= Cnil;
4504          goto T1485;          goto T1362;
4505  T1485:;  T1362:;
4506          V751= Cnil;          V666= Cnil;
4507          goto T1486;          goto T1363;
4508  T1486:;  T1363:;
4509          V752= Cnil;          V667= Cnil;
4510          goto T1487;          goto T1364;
4511  T1487:;  T1364:;
4512          V753= Cnil;          V668= Cnil;
4513          goto T1488;          goto T1365;
4514  T1488:;  T1365:;
4515          V754= Cnil;          V669= Cnil;
4516          goto T1489;          goto T1366;
4517  T1489:;  T1366:;
4518          base[3]=MMcons(Cnil,Cnil);          base[3]=MMcons(Cnil,Cnil);
4519          goto T1490;          goto T1367;
4520  T1490:;  T1367:;
4521          {object V755;          {object V670;
4522          object V756;          object V671;
4523          object V757;          object V672;
4524          object V758;          object V673;
4525          V755= CMPmake_fixnum((long)(*(LnkLI394))((V749)));          V670= CMPmake_fixnum((long)(*(LnkLI442))((V664)));
4526          V756= STREF(object,(V749),12);          V671= STREF(object,(V664),12);
4527          V757= STREF(object,(V749),16);          V672= STREF(object,(V664),16);
4528          V758= STREF(object,(V749),20);          V673= STREF(object,(V664),20);
4529          if(number_compare((V750),(V755))==0){          if(number_compare((V665),(V670))==0){
4530          goto T1495;}          goto T1372;}
4531          base[4]= VV[246];          base[4]= VV[259];
4532          base[6]= (V750);          base[6]= (V665);
4533          base[7]= (V755);          base[7]= (V670);
4534          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4535          L83(base);          L79(base);
4536          vs_top=sup;          vs_top=sup;
4537          base[5]= vs_base[0];          base[5]= vs_base[0];
4538          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4539          L82(base);          L78(base);
4540          vs_top=sup;          vs_top=sup;
4541          goto T1495;          goto T1372;
4542  T1495:;  T1372:;
4543          if(number_compare((V751),(V756))==0){          if(number_compare((V666),(V671))==0){
4544          goto T1502;}          goto T1379;}
4545          base[4]= VV[247];          base[4]= VV[260];
4546          base[6]= (V751);          base[6]= (V666);
4547          base[7]= (V756);          base[7]= (V671);
4548          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4549          L83(base);          L79(base);
4550          vs_top=sup;          vs_top=sup;
4551          base[5]= vs_base[0];          base[5]= vs_base[0];
4552          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4553          L82(base);          L78(base);
4554          vs_top=sup;          vs_top=sup;
4555          goto T1502;          goto T1379;
4556  T1502:;  T1379:;
4557          if((V752)!=Cnil){          if((V667)!=Cnil){
4558          V759= (V752);          V674= (V667);
4559          goto T1512;}          goto T1389;}
4560          V759= (V753);          V674= (V668);
4561          goto T1512;          goto T1389;
4562  T1512:;  T1389:;
4563          V760 = (V757);          if((V674)==((V672))){
4564          if((V759)==(V760)){          goto T1386;}
4565          goto T1509;}          base[4]= VV[261];
         base[4]= VV[248];  
4566          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4567          Lerror();          L78(base);
4568          vs_top=sup;          vs_top=sup;
4569          goto T1509;          goto T1386;
4570  T1509:;  T1386:;
4571          if(!(type_of((V758))==t_cons)){          if(!(type_of((V673))==t_cons)){
4572          goto T1515;}          goto T1392;}
4573          if(((V753))==Cnil){          if(((V668))==Cnil){
4574          goto T1519;}          goto T1396;}
4575          if(((V752))==Cnil){          if(((V667))==Cnil){
4576          goto T1518;}          goto T1395;}
4577          goto T1519;          goto T1396;
4578  T1519:;  T1396:;
4579          if(((V754))!=Cnil){          if(((V669))!=Cnil){
4580          goto T1518;}          goto T1395;}
4581          base[4]=          base[4]=
4582          make_cclosure_new(LC133,Cnil,base[3],Cdata);          make_cclosure_new(LC128,Cnil,base[3],Cdata);
4583          base[5]= (V758);          base[5]= (V673);
4584          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4585          (void) (*Lnk366)();          (void) (*Lnk381)();
4586          vs_top=sup;          vs_top=sup;
4587          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4588          goto T1518;}          goto T1395;}
4589          base[4]= VV[249];          base[4]= VV[262];
4590          base[5]= (V758);          base[5]= (V673);
4591          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4592          L82(base);          L78(base);
4593          return;          return;
4594          goto T1518;          goto T1395;
4595  T1518:;  T1395:;
4596          base[4]= Cnil;          base[4]= Cnil;
4597          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4598          return;          return;
4599          goto T1515;          goto T1392;
4600  T1515:;  T1392:;
4601          base[4]= Cnil;          base[4]= Cnil;
4602          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4603          return;}}          return;}}
# Line 4890  T1515:; Line 4605  T1515:;
4605  }  }
4606  /*      local entry for function SET-ARG-INFO1  */  /*      local entry for function SET-ARG-INFO1  */
4607    
4608  static object LI84(V767,V768,V769,V770,V771,V772)  static object LI80(V681,V682,V683,V684,V685,V686)
4609    
4610  object V767;object V768;object V769;object V770;object V771;object V772;  object V681;object V682;object V683;object V684;object V685;object V686;
4611  {        VMB72 VMS72 VMV72  {        VMB69 VMS69 VMV69
4612          goto TTL;          goto TTL;
4613  TTL:;  TTL:;
4614          {object V773;          {object V687;
4615          object V774;          object V688;
4616          object V775;          object V689;
4617          register object V776;          register object V690;
4618          if((V770)==Cnil){          if((V684)==Cnil){
4619          V773= Cnil;          V687= Cnil;
4620          goto T1531;}          goto T1408;}
4621          if((CMPcdr((V770)))!=Cnil){          if((CMPcdr((V684)))!=Cnil){
4622          goto T1532;}          goto T1409;}
4623          V773= Cnil;          V687= Cnil;
4624          goto T1531;          goto T1408;
4625          goto T1532;          goto T1409;
4626  T1532:;  T1409:;
4627          V773= (V769);          V687= (V683);
4628          goto T1531;          goto T1408;
4629  T1531:;  T1408:;
4630          V774= CMPmake_fixnum((long)length(STREF(object,(V768),8)));          V688= CMPmake_fixnum((long)length(STREF(object,(V682),8)));
4631          if(((V773))==Cnil){          if(((V687))==Cnil){
4632          goto T1537;}          goto T1414;}
4633          V775= STREF(object,(V768),8);          V689= STREF(object,(V682),8);
4634          goto T1535;          goto T1412;
4635          goto T1537;          goto T1414;
4636  T1537:;  T1414:;
4637          base[4]= (V774);          base[4]= (V688);
4638          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4639          Lmake_list();          Lmake_list();
4640          vs_top=sup;          vs_top=sup;
4641          V775= vs_base[0];          V689= vs_base[0];
4642          goto T1535;          goto T1412;
4643  T1535:;  T1412:;
4644          if(((V773))==Cnil){          if(((V687))==Cnil){
4645          goto T1542;}          goto T1419;}
4646          V776= STREF(object,(V768),24);          V690= STREF(object,(V682),24);
4647          goto T1540;          goto T1417;
4648          goto T1542;          goto T1419;
4649  T1542:;  T1419:;
4650          V776= Cnil;          V690= Cnil;
4651          goto T1540;          goto T1417;
4652  T1540:;  T1417:;
4653          if(((*(LnkLI432))((V768)))==Cnil){          if(((*(LnkLI447))((V682)))==Cnil){
4654          goto T1530;}          goto T1407;}
4655          {register object V777;          {register object V691;
4656          register object V778;          register object V692;
4657          if(((V769))==Cnil){          if(((V683))==Cnil){
4658          goto T1549;}          goto T1426;}
4659          V777= make_cons((V769),Cnil);          V691= make_cons((V683),Cnil);
4660          goto T1547;          goto T1424;
4661          goto T1549;          goto T1426;
4662  T1549:;  T1426:;
4663          V777= (V770);          V691= (V684);
4664          goto T1547;          goto T1424;
4665  T1547:;  T1424:;
4666          V778= CMPcar((V777));          V692= CMPcar((V691));
4667          goto T1553;          goto T1430;
4668  T1553:;  T1430:;
4669          if(!(((V777))==Cnil)){          if(!(((V691))==Cnil)){
4670          goto T1554;}          goto T1431;}
4671          goto T1546;          goto T1423;
4672          goto T1554;          goto T1431;
4673  T1554:;  T1431:;
4674          {object V779;          {object V693;
4675          register object V780;          register object V694;
4676          register object V781;          register object V695;
4677          if(((VV[17]->s.s_dbind))==(VV[18])){          if(((VV[21]->s.s_dbind))==(VV[22])){
4678          goto T1560;}          goto T1437;}
4679          if(type_of((V778))==t_cons){          if(type_of((V692))==t_cons){
4680          goto T1561;}          goto T1438;}
4681          goto T1560;          goto T1437;
4682  T1560:;  T1437:;
4683          base[9]= (V778);          base[9]= (V692);
4684          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4685          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk448)(Lclptr448);
4686          vs_top=sup;          vs_top=sup;
4687          V779= vs_base[0];          V693= vs_base[0];
4688          goto T1559;          goto T1436;
4689          goto T1561;          goto T1438;
4690  T1561:;  T1438:;
4691          V779= (VFUN_NARGS=2,(*(LnkLI434))((V778),Ct));          V693= (VFUN_NARGS=2,(*(LnkLI449))((V692),Ct));
4692          goto T1559;          goto T1436;
4693  T1559:;  T1436:;
4694          if(((VV[17]->s.s_dbind))==(VV[18])){          if(((VV[21]->s.s_dbind))==(VV[22])){
4695          goto T1567;}          goto T1444;}
4696          if(type_of((V778))==t_cons){          if(type_of((V692))==t_cons){
4697          goto T1568;}          goto T1445;}
4698          goto T1567;          goto T1444;
4699  T1567:;  T1444:;
4700          V780= (*(LnkLI363))((V778));          V694= (*(LnkLI378))((V692));
4701          goto T1566;          goto T1443;
4702          goto T1568;          goto T1445;
4703  T1568:;  T1445:;
4704          V780= (*(LnkLI435))((V778));          V694= (*(LnkLI450))((V692));
4705          goto T1566;          goto T1443;
4706  T1566:;  T1443:;
4707          if(((V780))==Cnil){          if(((V694))==Cnil){
4708          goto T1574;}          goto T1451;}
4709          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
4710          goto T1573;}          goto T1450;}
4711          base[9]= (V767);          base[9]= (V681);
4712          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4713          (void) (*Lnk436)(Lclptr436);          (void) (*Lnk451)(Lclptr451);
4714          vs_top=sup;          vs_top=sup;
4715          V782= vs_base[0];          V696= vs_base[0];
4716          V783 = (VV[253]->s.s_dbind);          if(!((V696)==((VV[266]->s.s_dbind)))){
4717          if(!((V782)==(V783))){          goto T1451;}
4718          goto T1574;}          goto T1450;
4719          goto T1573;  T1450:;
4720  T1573:;          if(!(((V694))==((VV[267]->s.s_dbind)))){
4721          if(!(((V780))==((VV[254]->s.s_dbind)))){          goto T1460;}
4722          goto T1583;}          V695= VV[268];
4723          V781= VV[255];          goto T1449;
4724          goto T1572;          goto T1460;
4725          goto T1583;  T1460:;
4726  T1583:;          if(!(((V694))==((VV[269]->s.s_dbind)))){
4727          if(!(((V780))==((VV[256]->s.s_dbind)))){          goto T1463;}
4728          goto T1586;}          V695= VV[270];
4729          V781= VV[257];          goto T1449;
4730          goto T1572;          goto T1463;
4731          goto T1586;  T1463:;
4732  T1586:;          if(!(((V694))==((VV[271]->s.s_dbind)))){
4733          if(!(((V780))==((VV[258]->s.s_dbind)))){          goto T1466;}
4734          goto T1589;}          V695= VV[272];
4735          V781= VV[259];          goto T1449;
4736          goto T1572;          goto T1466;
4737          goto T1589;  T1466:;
4738  T1589:;          V695= Cnil;
4739          V781= Cnil;          goto T1449;
4740          goto T1572;          goto T1451;
4741          goto T1574;  T1451:;
4742  T1574:;          V695= Cnil;
4743          V781= Cnil;          goto T1449;
4744          goto T1572;  T1449:;
4745  T1572:;          base[10]=VV[452]->s.s_gfdef;
4746          base[10]=VV[437]->s.s_gfdef;          {object V697;
4747          {object V784;          object V698= (V689);
4748          object V785= (V775);          object V699= (V693);
4749          object V786= (V779);          if(V698==Cnil||V699==Cnil){
4750          if(V785==Cnil||V786==Cnil){          V689= Cnil;
4751          V775= Cnil;          goto T1469;}
4752          goto T1592;}          base[9]=V697=MMcons(Cnil,Cnil);
4753          base[9]=V784=MMcons(Cnil,Cnil);          goto T1470;
4754          goto T1593;  T1470:;
4755  T1593:;          base[11]= (V698->c.c_car);
4756          base[11]= (V785->c.c_car);          base[12]= (V699->c.c_car);
         base[12]= (V786->c.c_car);  
4757          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
4758          (void) (*Lnk437)();          (void) (*Lnk452)();
4759          vs_top=sup;          vs_top=sup;
4760          (V784->c.c_car)= vs_base[0];          (V697->c.c_car)= vs_base[0];
4761          if((V785=MMcdr(V785))==Cnil||(V786=MMcdr(V786))==Cnil){          if((V698=MMcdr(V698))==Cnil||(V699=MMcdr(V699))==Cnil){
4762          V775= base[9];          V689= base[9];
4763          goto T1592;}          goto T1469;}
4764          V784=MMcdr(V784)=MMcons(Cnil,Cnil);          V697=MMcdr(V697)=MMcons(Cnil,Cnil);
4765          goto T1593;}          goto T1470;}
4766          goto T1592;          goto T1469;
4767  T1592:;  T1469:;
4768          if(((V776))!=Cnil){          if(((V690))!=Cnil){
4769          goto T1599;}          goto T1476;}
4770          V776= (V781);          V690= (V695);
4771          goto T1597;          goto T1474;
4772          goto T1599;          goto T1476;
4773  T1599:;  T1476:;
4774          if(!(((V776))==((V781)))){          if(!(((V690))==((V695)))){
4775          goto T1602;}          goto T1479;}
4776          goto T1597;          goto T1474;
4777          goto T1602;          goto T1479;
4778  T1602:;  T1479:;
4779          V776= Cnil;          V690= Cnil;
4780          goto T1597;          goto T1474;
4781  T1597:;}  T1474:;}
4782          V777= CMPcdr((V777));          V691= CMPcdr((V691));
4783          V778= CMPcar((V777));          V692= CMPcar((V691));
4784          goto T1553;}          goto T1430;}
4785          goto T1546;          goto T1423;
4786  T1546:;  T1423:;
4787          if(equal(STREF(object,(V768),8),V775)){          if(equal(STREF(object,(V682),8),V689)){
4788          goto T1609;}          goto T1486;}
4789          V788 = (V768);          V701= Ct;
4790          V789 = V775;          STSET(object,(V682),8, V689);
4791          V790= Ct;          (void)(V689);
4792          STSET(object,V788,8, V789);          goto T1486;
4793          (void)(V789);  T1486:;
4794          goto T1609;          if(equal(STREF(object,(V682),24),V690)){
4795  T1609:;          goto T1407;}
4796          if(equal(STREF(object,(V768),24),V776)){          V703= Ct;
4797          goto T1530;}          STSET(object,(V682),24, V690);
4798          V792 = (V768);          (void)(V690);}
4799          V793 = V776;          goto T1407;
4800          V794= Ct;  T1407:;
4801          STSET(object,V792,24, V793);          if(((V685))==Cnil){
4802          (void)(V793);}          goto T1492;}
4803          goto T1530;          if(((V686))==Cnil){
4804  T1530:;          goto T1491;}
4805          if(((V771))==Cnil){          goto T1492;
4806          goto T1615;}  T1492:;
4807          if(((V772))==Cnil){          {object V704;
4808          goto T1614;}          object V705;
4809          goto T1615;          if(((*(LnkLI453))((V681)))==Cnil){
4810  T1615:;          goto T1498;}
         {object V795;  
         object V796;  
         if(((*(LnkLI438))((V767)))==Cnil){  
         goto T1621;}  
4811          base[0]= Ct;          base[0]= Ct;
4812          base[1]= Ct;          base[1]= Ct;
4813          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4814          goto T1619;          goto T1496;
4815          goto T1621;          goto T1498;
4816  T1621:;  T1498:;
4817          base[0]= (V767);          base[0]= (V681);
4818          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4819          (void) (*Lnk439)();          (void) (*Lnk454)();
4820          goto T1619;          goto T1496;
4821  T1619:;  T1496:;
4822          if(vs_base>=vs_top){vs_top=sup;goto T1626;}          if(vs_base>=vs_top){vs_top=sup;goto T1503;}
4823          V795= vs_base[0];          V704= vs_base[0];
4824          vs_base++;          vs_base++;
4825          if(vs_base>=vs_top){vs_top=sup;goto T1627;}          if(vs_base>=vs_top){vs_top=sup;goto T1504;}
4826          V796= vs_base[0];          V705= vs_base[0];
4827          vs_top=sup;          vs_top=sup;
4828          goto T1628;          goto T1505;
4829          goto T1626;          goto T1503;
4830  T1626:;  T1503:;
4831          V795= Cnil;          V704= Cnil;
4832          goto T1627;          goto T1504;
4833  T1627:;  T1504:;
4834          V796= Cnil;          V705= Cnil;
4835          goto T1628;          goto T1505;
4836  T1628:;  T1505:;
4837          if(equal(STREF(object,(V768),32),V795)){          if(equal(STREF(object,(V682),32),V704)){
4838          goto T1629;}          goto T1506;}
4839          V798 = (V768);          V707= Ct;
4840          V799 = V795;          STSET(object,(V682),32, V704);
4841          V800= Ct;          (void)(V704);
4842          STSET(object,V798,32, V799);          goto T1506;
4843          (void)(V799);  T1506:;
4844          goto T1629;          if(equal(STREF(object,(V682),36),V705)){
4845  T1629:;          goto T1509;}
4846          if(equal(STREF(object,(V768),36),V796)){          V709= Ct;
4847          goto T1632;}          STSET(object,(V682),36, V705);
4848          V802 = (V768);          (void)(V705);
4849          V803 = V796;          goto T1509;
4850          V804= Ct;  T1509:;
4851          STSET(object,V802,36, V803);          if((STREF(object,(V682),36))!=Cnil){
4852          (void)(V803);          goto T1491;}
4853          goto T1632;          if(equal(STREF(object,(V682),24),Ct)){
4854  T1632:;          goto T1491;}
4855          if((STREF(object,(V768),36))!=Cnil){          V711= Ct;
4856          goto T1614;}          STSET(object,(V682),24, Ct);
4857          if(equal(STREF(object,(V768),24),Ct)){          (void)(Ct);}
4858          goto T1614;}          goto T1491;
4859          V806 = (V768);  T1491:;
4860          V807 = Ct;          if(((V685))!=Cnil){
4861          V808= Ct;          goto T1516;}
4862          STSET(object,V806,24, V807);          {object V712;
4863          (void)(V807);}          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
4864          goto T1614;          goto T1521;}
4865  T1614:;          base[0]= (V681);
         if(((V771))!=Cnil){  
         goto T1639;}  
         {object V809;  
         if(!(((VV[17]->s.s_dbind))==(VV[18]))){  
         goto T1644;}  
         base[0]= (V767);  
4866          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4867          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk455)(Lclptr455);
4868          vs_top=sup;          vs_top=sup;
4869          V809= vs_base[0];          V712= vs_base[0];
4870          goto T1642;          goto T1519;
4871          goto T1644;          goto T1521;
4872  T1644:;  T1521:;
4873          V809= (*(LnkLI441))((V767));          V712= (*(LnkLI456))((V681));
4874          goto T1642;          goto T1519;
4875  T1642:;  T1519:;
4876          {object V810;          {object V713;
4877          {object V811;          {object V714;
4878          object V812;          object V715;
4879          if(!(type_of((V809))!=t_cons)){          if(!(type_of((V712))!=t_cons)){
4880          goto T1650;}          goto T1527;}
4881          V811= (V809);          V714= (V712);
4882          goto T1648;          goto T1525;
4883          goto T1650;          goto T1527;
4884  T1650:;  T1527:;
4885          V811= CMPcadr((V809));          V714= CMPcadr((V712));
4886          goto T1648;          goto T1525;
4887  T1648:;{object V813;  T1525:;{object V716;
4888          V813= (VV[218]->s.s_dbind);          V716= (VV[228]->s.s_dbind);
4889          base[2]= (VV[218]->s.s_dbind);          base[2]= (VV[228]->s.s_dbind);
4890          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4891          Lpackage_use_list();          Lpackage_use_list();
4892          vs_top=sup;          vs_top=sup;
4893          V814= vs_base[0];          V717= vs_base[0];
4894          V812= make_cons(V813,V814);}          V715= make_cons(V716,V717);}
4895          if((V811)==Cnil){          if((V714)==Cnil){
4896          V810= Cnil;          V713= Cnil;
4897          goto T1647;}          goto T1524;}
4898          if(type_of((V811))==t_symbol){          if(type_of((V714))==t_symbol){
4899          goto T1655;}          goto T1532;}
4900          V810= Cnil;          V713= Cnil;
4901          goto T1647;          goto T1524;
4902          goto T1655;          goto T1532;
4903  T1655:;  T1532:;
4904          base[2]= (V811);          base[2]= (V714);
4905          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4906          Lsymbol_package();          Lsymbol_package();
4907          vs_top=sup;          vs_top=sup;
4908          V817= vs_base[0];          V720= vs_base[0];
4909          V818 = (V812);          {register object x= V720,V719= (V715);
4910          {register object x= V817,V816= V818;          while(V719!=Cnil)
4911          while(V816!=Cnil)          if(x==(V719->c.c_car)){
4912          if(x==(V816->c.c_car)){          V718= V719;
4913          V815= V816;          goto T1536;
4914          goto T1659;          }else V719=V719->c.c_cdr;
4915          }else V816=V816->c.c_cdr;          V718= Cnil;}
4916          V815= Cnil;}          goto T1536;
4917          goto T1659;  T1536:;
4918  T1659:;          if((((V718)==Cnil?Ct:Cnil))==Cnil){
4919          if((((V815)==Cnil?Ct:Cnil))==Cnil){          goto T1534;}
4920          goto T1657;}          V713= Cnil;
4921          V810= Cnil;          goto T1524;
4922          goto T1647;          goto T1534;
4923          goto T1657;  T1534:;
4924  T1657:;          base[2]= VV[273];
4925          base[2]= VV[260];          base[3]= symbol_name((V714));
         base[3]= symbol_name((V811));  
4926          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4927          (void) (*Lnk442)();          (void) (*Lnk457)();
4928          vs_top=sup;          vs_top=sup;
4929          V819= vs_base[0];          V721= vs_base[0];
4930          V810= ((V819)==Cnil?Ct:Cnil);}          V713= ((V721)==Cnil?Ct:Cnil);}
4931          goto T1647;          goto T1524;
4932  T1647:;  T1524:;
4933          if(equal(STREF(object,(V768),28),(V810))){          if(equal(STREF(object,(V682),28),(V713))){
4934          goto T1639;}          goto T1516;}
4935          V820 = (V768);          V722= Ct;
4936          V821 = (V810);          STSET(object,(V682),28, (V713));
4937          V822= Ct;          (void)((V713));}}
4938          STSET(object,V820,28, V821);          goto T1516;
4939          (void)(V821);}}  T1516:;
4940          goto T1639;          {object V723;
4941  T1639:;          if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){
4942          {object V823;          goto T1546;}
4943          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){          V723= Ct;
4944          goto T1669;}          goto T1545;
4945          V823= Ct;          goto T1546;
4946          goto T1668;  T1546:;
4947          goto T1669;          {object V724;
4948  T1669:;          object V725;
4949          {object V824;          base[2]= (V681);
4950          object V825;          vs_top=(vs_base=base+2)+1;
4951          base[2]= (V767);          (void) (*Lnk373)(Lclptr373);
4952          vs_top=(vs_base=base+2)+1;          vs_top=sup;
4953          (void) (*Lnk358)(Lclptr358);          V724= vs_base[0];
4954          vs_top=sup;          base[2]= (VV[375]->s.s_gfdef);
4955          V824= vs_base[0];          base[4]= (V724);
         base[2]= (VV[360]->s.s_gfdef);  
         V826 = (V767);  
         base[4]= (V824);  
4956          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4957          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
4958          vs_top=sup;          vs_top=sup;
4959          V827= vs_base[0];          V726= vs_base[0];
4960          base[3]= list(4,V826,V827,VV[261],Cnil);          base[3]= list(4,(V681),V726,VV[274],Cnil);
4961          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4962          (void) (*Lnk443)(Lclptr443);          (void) (*Lnk458)(Lclptr458);
4963          vs_top=sup;          vs_top=sup;
4964          V825= vs_base[0];          V725= vs_base[0];
4965          if((V825)==Cnil){          if((V725)==Cnil){
4966          V823= Cnil;          V723= Cnil;
4967          goto T1668;}          goto T1545;}
4968          if((CMPcdr((V825)))==Cnil){          if((CMPcdr((V725)))==Cnil){
4969          goto T1678;}          goto T1555;}
4970          V823= Cnil;          V723= Cnil;
4971          goto T1668;          goto T1545;
4972          goto T1678;          goto T1555;
4973  T1678:;  T1555:;
4974          {object V828;          {object V727;
4975          base[2]= CMPcar((V825));          base[2]= CMPcar((V725));
4976          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4977          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk448)(Lclptr448);
4978          vs_top=sup;          vs_top=sup;
4979          V828= vs_base[0];          V727= vs_base[0];
4980          base[2]= CMPcar((V828));          base[2]= CMPcar((V727));
4981          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4982          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk305)(Lclptr305);
4983          vs_top=sup;          vs_top=sup;
4984          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4985          goto T1682;}          goto T1559;}
4986          V823= Cnil;          V723= Cnil;
4987          goto T1668;          goto T1545;
4988          goto T1682;          goto T1559;
4989  T1682:;  T1559:;
4990          base[2]= CMPcar((V828));          base[2]= CMPcar((V727));
4991          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4992          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
4993          vs_top=sup;          vs_top=sup;
4994          V829= vs_base[0];          V728= vs_base[0];
4995          if((VV[19])==(V829)){          if((VV[23])==(V728)){
4996          goto T1685;}          goto T1562;}
4997          V823= Cnil;          V723= Cnil;
4998          goto T1668;          goto T1545;
4999          goto T1685;          goto T1562;
5000  T1685:;  T1562:;
5001          base[2]= CMPcadr((V828));          base[2]= CMPcadr((V727));
5002          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5003          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk305)(Lclptr305);
5004          vs_top=sup;          vs_top=sup;
5005          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5006          goto T1689;}          goto T1566;}
5007          V823= Cnil;          V723= Cnil;
5008          goto T1668;          goto T1545;
5009          goto T1689;          goto T1566;
5010  T1689:;  T1566:;
5011          base[2]= CMPcadr((V828));          base[2]= CMPcadr((V727));
5012          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5013          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
5014          vs_top=sup;          vs_top=sup;
5015          V830= vs_base[0];          V729= vs_base[0];
5016          V823= ((VV[20])==(V830)?Ct:Cnil);}}          V723= ((VV[24])==(V729)?Ct:Cnil);}}
5017          goto T1668;          goto T1545;
5018  T1668:;  T1545:;
5019          if(equal(STREF(object,(V768),40),(V823))){          if(equal(STREF(object,(V682),40),(V723))){
5020          goto T1667;}          goto T1544;}
5021          V831 = (V768);          V730= Ct;
5022          V832 = (V823);          STSET(object,(V682),40, (V723));
5023          V833= Ct;          (void)((V723));}
5024          STSET(object,V831,40, V832);          goto T1544;
5025          (void)(V832);}  T1544:;
5026          goto T1667;          {object V731 = (V682);
5027  T1667:;          VMR69(V731)}
         {object V834 = (V768);  
         VMR72(V834)}  
5028          base[0]=base[0];          base[0]=base[0];
5029          return Cnil;          return Cnil;
5030  }  }
5031  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */
5032    
5033  static object LI85(object V836,object V835,object first,...)  static object LI81(object V733,object V732,object first,...)
5034  {        {      
5035          va_list ap;          va_list ap;
5036          int narg = VFUN_NARGS; VMB73 VMS73 VMV73          int narg = VFUN_NARGS; VMB70 VMS70 VMV70
5037          {register object V837;          {register object V734;
5038          register object V838;          register object V735;
5039          object V839;          object V736;
5040          object V840;          object V737;
5041          object V841;          object V738;
5042            object V739;
5043          va_start(ap,first);          va_start(ap,first);
5044          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5045          V837= V836;          V734= V733;
5046          V838= V835;          V735= V732;
5047          narg= narg - 2;          narg= narg - 2;
5048          V842 = make_list(narg);          V740 = make_list(narg);
5049          V839= V842;          V736= V740;
5050          {          {
5051          parse_key_rest_new(V842,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap);          parse_key_rest_new(V740,narg,Vcs +3,(struct key *)(void *)&LI81key,first,ap);
5052          if(Vcs[3]==0){          if(Vcs[3]==0){
5053          V840= Cnil;          V737= Cnil;
5054          V841= Cnil;          V738= Cnil;
5055          }else{          }else{
5056          V840=(Vcs[3]);          V737=(Vcs[3]);
5057          V841= Ct;}          V738= Ct;}
5058          if(((V837))==Cnil){          V739=(Vcs[4]);
5059          goto T1698;}          if(((V734))==Cnil){
5060          if(((*(LnkLI438))((V837)))==Cnil){          goto T1575;}
5061          goto T1698;}          if(((*(LnkLI453))((V734)))==Cnil){
5062          {object V843 = (V837);          goto T1575;}
5063          VMR73(V843)}          {object V741 = (V734);
5064          goto T1698;          VMR70(V741)}
5065  T1698:;          goto T1575;
5066          {register object x= (V838),V844= (VV[262]->s.s_dbind);  T1575:;
5067          while(V844!=Cnil)          {register object x= (V735),V742= (VV[275]->s.s_dbind);
5068          if(equal(x,V844->c.c_car->c.c_car) &&V844->c.c_car != Cnil){          while(V742!=Cnil)
5069          goto T1704;          if(equal(x,V742->c.c_car->c.c_car) &&V742->c.c_car != Cnil){
5070          }else V844=V844->c.c_cdr;          goto T1581;
5071          goto T1703;}          }else V742=V742->c.c_cdr;
5072          goto T1704;          goto T1580;}
5073  T1704:;          goto T1581;
5074          if(((V837))==Cnil){  T1581:;
5075          goto T1706;}          if(((V734))==Cnil){
5076          {object V845 = (VFUN_NARGS=4,(*(LnkLI444))((V838),(V840),(V841),(V837)));          goto T1583;}
5077          VMR73(V845)}          {object V743 = (VFUN_NARGS=5,(*(LnkLI459))((V735),(V737),(V738),(V734),(V739)));
5078          goto T1706;          VMR70(V743)}
5079  T1706:;          goto T1583;
5080          base[0]= VV[263];  T1583:;
5081          base[1]= (V838);          base[0]= VV[276];
5082            base[1]= (V735);
5083          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5084          Lerror();          Lerror();
5085          vs_top=sup;          vs_top=sup;
5086          {object V846 = vs_base[0];          {object V744 = vs_base[0];
5087          VMR73(V846)}          VMR70(V744)}
5088          goto T1703;          goto T1580;
5089  T1703:;  T1580:;
5090          if(((V837))==Cnil){          if(((V734))==Cnil){
5091          goto T1711;}          goto T1588;}
5092          base[0]= VV[264];          base[0]= VV[277];
5093          base[1]= (V838);          base[1]= (V735);
5094          base[2]= VV[262];          base[2]= VV[275];
5095          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5096          Lerror();          Lerror();
5097          vs_top=sup;          vs_top=sup;
5098          {object V847 = vs_base[0];          {object V745 = vs_base[0];
5099          VMR73(V847)}          VMR70(V745)}
5100          goto T1711;          goto T1588;
5101  T1711:;  T1588:;
5102          base[0]= V838;          base[0]= V735;
5103          base[1]= (VV[265]->s.s_dbind);          base[1]= (VV[278]->s.s_dbind);
5104          base[2]= VV[266];          base[2]= VV[279];
5105          base[3]= (VV[242]->s.s_gfdef);          base[3]= (VV[255]->s.s_gfdef);
5106          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
5107          Ladjoin();          Ladjoin();
5108          vs_top=sup;          vs_top=sup;
5109          (VV[265]->s.s_dbind)= vs_base[0];          (VV[278]->s.s_dbind)= vs_base[0];
5110          {object V849 = (VFUN_NARGS=3,(*(LnkLI444))((V838),(V840),(V841)));          {object V747 = (VFUN_NARGS=5,(*(LnkLI459))((V735),(V737),(V738),Cnil,(V739)));
5111          VMR73(V849)}          VMR70(V747)}
5112          va_end(ap);          va_end(ap);
5113          base[0]=base[0];          base[0]=base[0];
5114          return Cnil;}          return Cnil;}
5115          }}          }}
5116  /*      local entry for function MAKE-EARLY-GF  */  /*      local entry for function MAKE-EARLY-GF  */
5117    
5118  static object LI86(object V850,object first,...)  static object LI82(object V748,object first,...)
5119  {        {      
5120          va_list ap;          va_list ap;
5121          int narg = VFUN_NARGS; VMB74 VMS74 VMV74          int narg = VFUN_NARGS; VMB71 VMS71 VMV71
5122          {register object V851;          {register object V749;
5123          object V852;          object V750;
5124          object V853;          object V751;
5125          object V854;          object V752;
5126            object V753;
5127          va_start(ap,first);          va_start(ap,first);
5128          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5129          V851= V850;          V749= V748;
5130          narg = narg - 1;          narg = narg - 1;
5131          if (narg <= 0) goto T1722;          if (narg <= 0) goto T1599;
5132          else {          else {
5133          V852= first;}          V750= first;}
5134          if (--narg <= 0) goto T1723;          if (--narg <= 0) goto T1600;
5135          else {          else {
5136          V853= va_arg(ap,object);}          V751= va_arg(ap,object);}
5137          if (--narg <= 0) goto T1724;          if (--narg <= 0) goto T1601;
5138          else {          else {
5139          V854= va_arg(ap,object);}          V752= va_arg(ap,object);}
5140          --narg; goto T1725;          if (--narg <= 0) goto T1602;
5141          goto T1722;          else {
5142  T1722:;          V753= va_arg(ap,object);}
5143          V852= Cnil;          --narg; goto T1603;
5144          goto T1723;          goto T1599;
5145  T1723:;  T1599:;
5146          V853= Cnil;          V750= Cnil;
5147          goto T1724;          goto T1600;
5148  T1724:;  T1600:;
5149          V854= Cnil;          V751= Cnil;
5150          goto T1725;          goto T1601;
5151  T1725:;  T1601:;
5152          base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[267]->s.s_dbind),(VV[268]->s.s_dbind)));          V752= Cnil;
5153            goto T1602;
5154    T1602:;
5155            V753= Cnil;
5156            goto T1603;
5157    T1603:;
5158            base[0]= (VFUN_NARGS=2,(*(LnkLI460))((VV[280]->s.s_dbind),(VV[281]->s.s_dbind)));
5159          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
5160          V855 = (base[0]->c.c_car);          if((V752)!=Cnil){
5161          if((V854)!=Cnil){          V754= (V752);
5162          V856= (V854);          goto T1610;}
5163          goto T1731;}          if(!(((V749))==(VV[282]))){
5164          if(!(((V851))==(VV[269]))){          goto T1612;}
5165          goto T1733;}          V754=
5166          V856=          make_cclosure_new(LC129,Cnil,base[0],Cdata);
5167          make_cclosure_new(LC134,Cnil,base[0],Cdata);          goto T1610;
5168          goto T1731;          goto T1612;
5169          goto T1733;  T1612:;
5170  T1733:;          V754=
5171          V856=          make_cclosure_new(LC130,Cnil,base[0],Cdata);
5172          make_cclosure_new(LC135,Cnil,base[0],Cdata);          goto T1610;
5173          goto T1731;  T1610:;
5174  T1731:;          (void)((*(LnkLI461))((base[0]->c.c_car),V754));
5175          (void)((*(LnkLI446))(V855,V856));          {object V756;
5176          {object V858;          V756= (base[0]->c.c_car);
5177          V858= (base[0]->c.c_car);          V757= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V859= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});  
         V860 = (V858);  
         V861 = V851;  
5178          (void)((          (void)((
5179          V862 = V859,          V758 = V757,
5180          (type_of(V862) == t_sfun ?(*((V862)->sfn.sfn_self)):          (type_of(V758) == t_sfun ?(*((V758)->sfn.sfn_self)):
5181          (fcall.argd=2,type_of(V862)==t_vfun) ?          (fcall.argd=2,type_of(V758)==t_vfun) ?
5182          (*((V862)->sfn.sfn_self)):          (*((V758)->sfn.sfn_self)):
5183          (fcall.fun=(V862),fcalln))(V860,V861)));}          (fcall.fun=(V758),fcalln))((V756),V749)));}
5184          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[275],(V851)));          (void)((*(LnkLI462))(VV[23],(base[0]->c.c_car),VV[288],(V749)));
         V863 = (base[0]->c.c_car);  
5185          vs_base=vs_top;          vs_base=vs_top;
5186          (void) (*Lnk351)();          (void) (*Lnk366)();
5187          vs_top=sup;          vs_top=sup;
5188          V864= vs_base[0];          V759= vs_base[0];
5189          (void)((*(LnkLI447))(VV[19],V863,VV[276],V864));          (void)((*(LnkLI462))(VV[23],(base[0]->c.c_car),VV[289],V759));
5190          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5191          base[2]= (V851);          base[2]= (V749);
5192          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5193          (void) (*Lnk346)();          (void) (*Lnk361)();
5194          vs_top=sup;          vs_top=sup;
5195          {object V865;          {object V760;
5196          V865= (*(LnkLI448))();          V760= (*(LnkLI463))();
5197          {object V867;          {object V762;
5198          V867= (base[0]->c.c_car);          V762= (base[0]->c.c_car);
5199          if(type_of((V867))==t_structure){          if(type_of((V762))==t_structure){
5200          goto T1751;}          goto T1630;}
5201          goto T1749;          goto T1628;
5202          goto T1751;          goto T1630;
5203  T1751:;  T1630:;
5204          if(!((((V867))->str.str_def)==(VV[277]))){          if(!((((V762))->str.str_def)==(VV[290]))){
5205          goto T1749;}}          goto T1628;}}
5206          V866= STREF(object,(base[0]->c.c_car),4);          V761= STREF(object,(base[0]->c.c_car),4);
5207          goto T1747;          goto T1626;
5208          goto T1749;          goto T1628;
5209  T1749:;{object V868;  T1628:;{object V763;
5210          V868= (VV[146]->s.s_dbind);          V763= (VV[151]->s.s_dbind);
5211          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
5212          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
5213          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5214          (void) (*Lnk390)();          (void) (*Lnk407)();
5215          vs_top=sup;          vs_top=sup;
5216          V869= vs_base[0];          V764= vs_base[0];
5217          if(!((V868)==(CMPcar(V869)))){          if(!((V763)==(CMPcar(V764)))){
5218          goto T1754;}}          goto T1633;}}
5219          V866= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);          V761= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
5220          goto T1747;          goto T1626;
5221          goto T1754;          goto T1633;
5222  T1754:;  T1633:;
5223          base[1]= VV[147];          base[1]= VV[152];
5224          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5225          Lerror();          Lerror();
5226          vs_top=sup;          vs_top=sup;
5227          V866= vs_base[0];          V761= vs_base[0];
5228          goto T1747;          goto T1626;
5229  T1747:;  T1626:;
5230          V870 = (VV[237]->s.s_dbind);          (void)(((V761)->v.v_self[fix((VV[250]->s.s_dbind))]=((V760))));
5231          V871 = (V865);          if(((V751))==Cnil){
5232          (void)(((V866)->v.v_self[fix(V870)]=(V871)));          goto T1623;}
5233          if(((V853))==Cnil){          (void)((*(LnkLI14))((V749),(V750)));
5234          goto T1744;}          if(((V753))==Cnil){
5235          (void)((*(LnkLI10))((V851),(V852)));          goto T1643;}
5236          (void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V852))));}          (void)((VFUN_NARGS=5,(*(LnkLI464))((base[0]->c.c_car),VV[19],(V750),VV[0],(V753))));
5237          goto T1744;          goto T1623;
5238  T1744:;          goto T1643;
5239          {object V872 = (base[0]->c.c_car);  T1643:;
5240          VMR74(V872)}          (void)((VFUN_NARGS=3,(*(LnkLI464))((base[0]->c.c_car),VV[19],(V750))));}
5241            goto T1623;
5242    T1623:;
5243            {object V765 = (base[0]->c.c_car);
5244            VMR71(V765)}
5245          va_end(ap);          va_end(ap);
5246          base[0]=base[0];          base[0]=base[0];
5247          return Cnil;}          return Cnil;}
5248          }          }
5249  /*      local entry for function SET-DFUN       */  /*      local entry for function SET-DFUN       */
5250    
5251  static object LI87(object V873,object first,...)  static object LI83(object V766,object first,...)
5252  {        {      
5253          va_list ap;          va_list ap;
5254          int narg = VFUN_NARGS; VMB75 VMS75 VMV75          int narg = VFUN_NARGS; VMB72 VMS72 VMV72
5255          {register object V874;          {register object V767;
5256          register object V875;          register object V768;
5257          register object V876;          register object V769;
5258          object V877;          object V770;
5259          va_start(ap,first);          va_start(ap,first);
5260          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5261          V874= V873;          V767= V766;
5262          narg = narg - 1;          narg = narg - 1;
5263          if (narg <= 0) goto T1763;          if (narg <= 0) goto T1645;
5264          else {          else {
5265          V875= first;}          V768= first;}
5266          if (--narg <= 0) goto T1764;          if (--narg <= 0) goto T1646;
5267          else {          else {
5268          V876= va_arg(ap,object);}          V769= va_arg(ap,object);}
5269          if (--narg <= 0) goto T1765;          if (--narg <= 0) goto T1647;
5270          else {          else {
5271          V877= va_arg(ap,object);}          V770= va_arg(ap,object);}
5272          --narg; goto T1766;          --narg; goto T1648;
5273          goto T1763;          goto T1645;
5274  T1763:;  T1645:;
5275          V875= Cnil;          V768= Cnil;
5276          goto T1764;          goto T1646;
5277  T1764:;  T1646:;
5278          V876= Cnil;          V769= Cnil;
5279          goto T1765;          goto T1647;
5280  T1765:;  T1647:;
5281          V877= Cnil;          V770= Cnil;
5282          goto T1766;          goto T1648;
5283  T1766:;  T1648:;
5284          if(((V876))==Cnil){          if(((V769))==Cnil){
5285          goto T1770;}          goto T1652;}
5286          V878 = (V876);          V771= Ct;
5287          V879 = (V874);          STSET(object,(V769),0, (V767));
5288          V880= Ct;          (void)((V767));
5289          STSET(object,V878,0, V879);          goto T1652;
5290          (void)(V879);  T1652:;
5291          goto T1770;          {object V772;
5292  T1770:;          if(((V768))==Cnil){
5293          {object V881;          goto T1658;}
5294          if(((V875))==Cnil){          if(((V769))!=Cnil){
5295          goto T1776;}          goto T1657;}
5296          if(((V876))!=Cnil){          if(((V770))==Cnil){
5297          goto T1775;}          goto T1658;}
5298          if(((V877))==Cnil){          goto T1657;
5299          goto T1776;}  T1657:;
5300          goto T1775;          V772= listA(3,(V768),(V769),(V770));
5301  T1775:;          goto T1656;
5302          V881= listA(3,(V875),(V876),(V877));          goto T1658;
5303          goto T1774;  T1658:;
5304          goto T1776;          V772= (V768);
5305  T1776:;          goto T1656;
5306          V881= (V875);  T1656:;
5307          goto T1774;          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
5308  T1774:;          goto T1665;}
5309          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          V775= ({object _tmp=get(VV[465],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[465])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[465])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         goto T1783;}  
         V884= ({object _tmp=get(VV[450],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[450])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[450])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});  
         V885 = V881;  
         V886 = V874;  
5310          (void)((          (void)((
5311          V887 = V884,          V776 = V775,
5312          (type_of(V887) == t_sfun ?(*((V887)->sfn.sfn_self)):          (type_of(V776) == t_sfun ?(*((V776)->sfn.sfn_self)):
5313          (fcall.argd=2,type_of(V887)==t_vfun) ?          (fcall.argd=2,type_of(V776)==t_vfun) ?
5314          (*((V887)->sfn.sfn_self)):          (*((V776)->sfn.sfn_self)):
5315          (fcall.fun=(V887),fcalln))(V885,V886)));          (fcall.fun=(V776),fcalln))(V772,V767)));
5316          goto T1773;          goto T1655;
5317          goto T1783;          goto T1665;
5318  T1783:;  T1665:;
5319          if(type_of(V874)==t_structure){          if(type_of(V767)==t_structure){
5320          goto T1790;}          goto T1672;}
5321          goto T1788;          goto T1670;
5322          goto T1790;          goto T1672;
5323  T1790:;  T1672:;
5324          if(!(((V874)->str.str_def)==(VV[279]))){          if(!(((V767)->str.str_def)==(VV[292]))){
5325          goto T1788;}          goto T1670;}
5326          V888= STREF(object,(V874),4);          V777= STREF(object,(V767),4);
5327          goto T1786;          goto T1668;
5328          goto T1788;          goto T1670;
5329  T1788:;{object V890;  T1670:;{object V779;
5330          V890= (VV[146]->s.s_dbind);          V779= (VV[151]->s.s_dbind);
5331          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5332          base[1]= (V874);          base[1]= (V767);
5333          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5334          (void) (*Lnk390)();          (void) (*Lnk407)();
5335          vs_top=sup;          vs_top=sup;
5336          V891= vs_base[0];          V780= vs_base[0];
5337          if(!((V890)==(CMPcar(V891)))){          if(!((V779)==(CMPcar(V780)))){
5338          goto T1793;}}          goto T1675;}}
5339          V888= CMPcar(((V874))->cc.cc_turbo[12]);          V777= CMPcar(((V767))->cc.cc_turbo[12]);
5340          goto T1786;          goto T1668;
5341          goto T1793;          goto T1675;
5342  T1793:;  T1675:;
5343          base[0]= VV[147];          base[0]= VV[152];
5344          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5345          Lerror();          Lerror();
5346          vs_top=sup;          vs_top=sup;
5347          V888= vs_base[0];          V777= vs_base[0];
5348          goto T1786;          goto T1668;
5349  T1786:;  T1668:;
5350          V892 = (VV[280]->s.s_dbind);          (void)(((V777)->v.v_self[fix((VV[293]->s.s_dbind))]=((V772))));}
5351          V893 = (V881);          goto T1655;
5352          (void)(((V888)->v.v_self[fix(V892)]=(V893)));}  T1655:;
5353          goto T1773;          {object V781 = (V768);
5354  T1773:;          VMR72(V781)}
         {object V894 = (V875);  
         VMR75(V894)}  
5355          va_end(ap);          va_end(ap);
5356          base[0]=base[0];          base[0]=base[0];
5357          return Cnil;}          return Cnil;}
5358          }          }
5359  /*      local entry for function GF-DFUN-CACHE  */  /*      local entry for function GF-DFUN-CACHE  */
5360    
5361  static object LI88(V896)  static object LI84(V783)
5362    
5363  register object V896;  register object V783;
5364  {        VMB76 VMS76 VMV76  {        VMB73 VMS73 VMV73
5365          goto TTL;          goto TTL;
5366  TTL:;  TTL:;
5367          {object V897;          {object V784;
5368          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
5369          goto T1801;}          goto T1683;}
5370          base[0]= (V896);          base[0]= (V783);
5371          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5372          (void) (*Lnk450)(Lclptr450);          (void) (*Lnk465)(Lclptr465);
5373          vs_top=sup;          vs_top=sup;
5374          V897= vs_base[0];          V784= vs_base[0];
5375          goto T1799;          goto T1681;
5376          goto T1801;          goto T1683;
5377  T1801:;  T1683:;
5378          if(type_of(V896)==t_structure){          if(type_of(V783)==t_structure){
5379          goto T1808;}          goto T1690;}
5380          goto T1806;          goto T1688;
5381          goto T1808;          goto T1690;
5382  T1808:;  T1690:;
5383          if(!(((V896)->str.str_def)==(VV[281]))){          if(!(((V783)->str.str_def)==(VV[294]))){
5384          goto T1806;}          goto T1688;}
5385          V898= STREF(object,(V896),4);          V785= STREF(object,(V783),4);
5386          goto T1804;          goto T1686;
5387          goto T1806;          goto T1688;
5388  T1806:;{object V900;  T1688:;{object V787;
5389          V900= (VV[146]->s.s_dbind);          V787= (VV[151]->s.s_dbind);
5390          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5391          base[1]= (V896);          base[1]= (V783);
5392          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5393          (void) (*Lnk390)();          (void) (*Lnk407)();
5394          vs_top=sup;          vs_top=sup;
5395          V901= vs_base[0];          V788= vs_base[0];
5396          if(!((V900)==(CMPcar(V901)))){          if(!((V787)==(CMPcar(V788)))){
5397          goto T1811;}}          goto T1693;}}
5398          V898= CMPcar(((V896))->cc.cc_turbo[12]);          V785= CMPcar(((V783))->cc.cc_turbo[12]);
5399          goto T1804;          goto T1686;
5400          goto T1811;          goto T1693;
5401  T1811:;  T1693:;
5402          base[0]= VV[147];          base[0]= VV[152];
5403          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5404          Lerror();          Lerror();
5405          vs_top=sup;          vs_top=sup;
5406          V898= vs_base[0];          V785= vs_base[0];
5407          goto T1804;          goto T1686;
5408  T1804:;  T1686:;
5409          V902 = (VV[280]->s.s_dbind);          V784= (V785)->v.v_self[fix((VV[293]->s.s_dbind))];
5410          V897= (V898)->v.v_self[fix(V902)];          goto T1681;
5411          goto T1799;  T1681:;
5412  T1799:;          {register object V789;
5413          {register object V903;          V789= (V784);
5414          V903= (V897);          base[0]= (V789);
         base[0]= (V903);  
5415          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5416          Lfunctionp();          Lfunctionp();
5417          vs_top=sup;          vs_top=sup;
5418          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5419          goto T1818;}          goto T1700;}
5420          {object V904 = Cnil;          {object V790 = Cnil;
5421          VMR76(V904)}          VMR73(V790)}
5422          goto T1818;          goto T1700;
5423  T1818:;  T1700:;
5424          if(!(type_of((V903))==t_cons)){          if(!(type_of((V789))==t_cons)){
5425          goto T1822;}          goto T1704;}
5426          {object V905 = CMPcadr((V897));          {object V791 = CMPcadr((V784));
5427          VMR76(V905)}          VMR73(V791)}
5428          goto T1822;          goto T1704;
5429  T1822:;  T1704:;
5430          {object V906 = Cnil;          {object V792 = Cnil;
5431          VMR76(V906)}}}          VMR73(V792)}}}
5432          base[0]=base[0];          base[0]=base[0];
5433          return Cnil;          return Cnil;
5434  }  }
5435  /*      local entry for function GF-DFUN-INFO   */  /*      local entry for function GF-DFUN-INFO   */
5436    
5437  static object LI89(V908)  static object LI85(V794)
5438    
5439  register object V908;  register object V794;
5440  {        VMB77 VMS77 VMV77  {        VMB74 VMS74 VMV74
5441          goto TTL;          goto TTL;
5442  TTL:;  TTL:;
5443          {object V909;          {object V795;
5444          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
5445          goto T1826;}          goto T1708;}
5446          base[0]= (V908);          base[0]= (V794);
5447          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5448          (void) (*Lnk450)(Lclptr450);          (void) (*Lnk465)(Lclptr465);
5449          vs_top=sup;          vs_top=sup;
5450          V909= vs_base[0];          V795= vs_base[0];
5451          goto T1824;          goto T1706;
5452          goto T1826;          goto T1708;
5453  T1826:;  T1708:;
5454          if(type_of(V908)==t_structure){          if(type_of(V794)==t_structure){
5455          goto T1833;}          goto T1715;}
5456          goto T1831;          goto T1713;
5457          goto T1833;          goto T1715;
5458  T1833:;  T1715:;
5459          if(!(((V908)->str.str_def)==(VV[282]))){          if(!(((V794)->str.str_def)==(VV[295]))){
5460          goto T1831;}          goto T1713;}
5461          V910= STREF(object,(V908),4);          V796= STREF(object,(V794),4);
5462          goto T1829;          goto T1711;
5463          goto T1831;          goto T1713;
5464  T1831:;{object V912;  T1713:;{object V798;
5465          V912= (VV[146]->s.s_dbind);          V798= (VV[151]->s.s_dbind);
5466          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5467          base[1]= (V908);          base[1]= (V794);
5468          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5469          (void) (*Lnk390)();          (void) (*Lnk407)();
5470          vs_top=sup;          vs_top=sup;
5471          V913= vs_base[0];          V799= vs_base[0];
5472          if(!((V912)==(CMPcar(V913)))){          if(!((V798)==(CMPcar(V799)))){
5473          goto T1836;}}          goto T1718;}}
5474          V910= CMPcar(((V908))->cc.cc_turbo[12]);          V796= CMPcar(((V794))->cc.cc_turbo[12]);
5475          goto T1829;          goto T1711;
5476          goto T1836;          goto T1718;
5477  T1836:;  T1718:;
5478          base[0]= VV[147];          base[0]= VV[152];
5479          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5480          Lerror();          Lerror();
5481          vs_top=sup;          vs_top=sup;
5482          V910= vs_base[0];          V796= vs_base[0];
5483          goto T1829;          goto T1711;
5484  T1829:;  T1711:;
5485          V914 = (VV[280]->s.s_dbind);          V795= (V796)->v.v_self[fix((VV[293]->s.s_dbind))];
5486          V909= (V910)->v.v_self[fix(V914)];          goto T1706;
5487          goto T1824;  T1706:;
5488  T1824:;          {register object V800;
5489          {register object V915;          V800= (V795);
5490          V915= (V909);          base[0]= (V800);
         base[0]= (V915);  
5491          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5492          Lfunctionp();          Lfunctionp();
5493          vs_top=sup;          vs_top=sup;
5494          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5495          goto T1843;}          goto T1725;}
5496          {object V916 = Cnil;          {object V801 = Cnil;
5497          VMR77(V916)}          VMR74(V801)}
5498          goto T1843;          goto T1725;
5499  T1843:;  T1725:;
5500          if(!(type_of((V915))==t_cons)){          if(!(type_of((V800))==t_cons)){
5501          goto T1847;}          goto T1729;}
5502          {object V917 = CMPcddr((V909));          {object V802 = CMPcddr((V795));
5503          VMR77(V917)}          VMR74(V802)}
5504          goto T1847;          goto T1729;
5505  T1847:;  T1729:;
5506          {object V918 = Cnil;          {object V803 = Cnil;
5507          VMR77(V918)}}}          VMR74(V803)}}}
5508          base[0]=base[0];          base[0]=base[0];
5509          return Cnil;          return Cnil;
5510  }  }
5511  /*      local entry for function EARLY-GF-NAME  */  /*      local entry for function EARLY-GF-NAME  */
5512    
5513  static object LI90(V920)  static object LI86(V805)
5514    
5515  register object V920;  register object V805;
5516  {        VMB78 VMS78 VMV78  {        VMB75 VMS75 VMV75
5517          goto TTL;          goto TTL;
5518  TTL:;  TTL:;
5519          if(type_of(V920)==t_structure){          if(type_of(V805)==t_structure){
5520          goto T1853;}          goto T1735;}
5521          goto T1851;          goto T1733;
5522          goto T1853;          goto T1735;
5523  T1853:;  T1735:;
5524          if(!(((V920)->str.str_def)==(VV[283]))){          if(!(((V805)->str.str_def)==(VV[296]))){
5525          goto T1851;}          goto T1733;}
5526          V921= STREF(object,(V920),4);          V806= STREF(object,(V805),4);
5527          goto T1849;          goto T1731;
5528          goto T1851;          goto T1733;
5529  T1851:;{object V923;  T1733:;{object V808;
5530          V923= (VV[146]->s.s_dbind);          V808= (VV[151]->s.s_dbind);
5531          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5532          base[1]= (V920);          base[1]= (V805);
5533          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5534          (void) (*Lnk390)();          (void) (*Lnk407)();
5535          vs_top=sup;          vs_top=sup;
5536          V924= vs_base[0];          V809= vs_base[0];
5537          if(!((V923)==(CMPcar(V924)))){          if(!((V808)==(CMPcar(V809)))){
5538          goto T1856;}}          goto T1738;}}
5539          V921= CMPcar(((V920))->cc.cc_turbo[12]);          V806= CMPcar(((V805))->cc.cc_turbo[12]);
5540          goto T1849;          goto T1731;
5541          goto T1856;          goto T1738;
5542  T1856:;  T1738:;
5543          base[0]= VV[147];          base[0]= VV[152];
5544          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5545          Lerror();          Lerror();
5546          vs_top=sup;          vs_top=sup;
5547          V921= vs_base[0];          V806= vs_base[0];
5548          goto T1849;          goto T1731;
5549  T1849:;  T1731:;
5550          V925 = (VV[284]->s.s_dbind);          {object V810 = (V806)->v.v_self[fix((VV[297]->s.s_dbind))];
5551          {object V926 = (V921)->v.v_self[fix(V925)];          VMR75(V810)}
         VMR78(V926)}  
5552          base[0]=base[0];          base[0]=base[0];
5553          return Cnil;          return Cnil;
5554  }  }
5555  /*      local entry for function GF-LAMBDA-LIST */  /*      local entry for function GF-LAMBDA-LIST */
5556    
5557  static object LI91(V928)  static object LI87(V812)
5558    
5559  register object V928;  register object V812;
5560  {        VMB79 VMS79 VMV79  {        VMB76 VMS76 VMV76
5561          goto TTL;          goto TTL;
5562  TTL:;  TTL:;
5563          {object V929;          {object V813;
5564          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
5565          goto T1864;}          goto T1746;}
5566          base[0]= (V928);          base[0]= (V812);
5567          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5568          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk439)(Lclptr439);
5569          vs_top=sup;          vs_top=sup;
5570          V929= vs_base[0];          V813= vs_base[0];
5571          goto T1862;          goto T1744;
5572          goto T1864;          goto T1746;
5573  T1864:;  T1746:;
5574          if(type_of(V928)==t_structure){          if(type_of(V812)==t_structure){
5575          goto T1871;}          goto T1753;}
5576          goto T1869;          goto T1751;
5577          goto T1871;          goto T1753;
5578  T1871:;  T1753:;
5579          if(!(((V928)->str.str_def)==(VV[285]))){          if(!(((V812)->str.str_def)==(VV[298]))){
5580          goto T1869;}          goto T1751;}
5581          V930= STREF(object,(V928),4);          V814= STREF(object,(V812),4);
5582          goto T1867;          goto T1749;
5583          goto T1869;          goto T1751;
5584  T1869:;{object V932;  T1751:;{object V816;
5585          V932= (VV[146]->s.s_dbind);          V816= (VV[151]->s.s_dbind);
5586          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5587          base[1]= (V928);          base[1]= (V812);
5588          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5589          (void) (*Lnk390)();          (void) (*Lnk407)();
5590          vs_top=sup;          vs_top=sup;
5591          V933= vs_base[0];          V817= vs_base[0];
5592          if(!((V932)==(CMPcar(V933)))){          if(!((V816)==(CMPcar(V817)))){
5593          goto T1874;}}          goto T1756;}}
5594          V930= CMPcar(((V928))->cc.cc_turbo[12]);          V814= CMPcar(((V812))->cc.cc_turbo[12]);
5595          goto T1867;          goto T1749;
5596          goto T1874;          goto T1756;
5597  T1874:;  T1756:;
5598          base[0]= VV[147];          base[0]= VV[152];
5599          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5600          Lerror();          Lerror();
5601          vs_top=sup;          vs_top=sup;
5602          V930= vs_base[0];          V814= vs_base[0];
5603          goto T1867;          goto T1749;
5604  T1867:;  T1749:;
5605          V934 = (VV[237]->s.s_dbind);          V813= (V814)->v.v_self[fix((VV[250]->s.s_dbind))];
5606          V929= (V930)->v.v_self[fix(V934)];          goto T1744;
5607          goto T1862;  T1744:;
5608  T1862:;          if(!((VV[251])==(STREF(object,(V813),0)))){
5609          if(!((VV[238])==(STREF(object,(V929),0)))){          goto T1763;}
5610          goto T1881;}          {object V818;
5611          {object V935;          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
5612          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          goto T1767;}
5613          goto T1885;}          base[0]= (V812);
         base[0]= (V928);  
5614          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5615          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk440)(Lclptr440);
5616          vs_top=sup;          vs_top=sup;
5617          V935= vs_base[0];          V818= vs_base[0];
5618          goto T1883;          goto T1765;
5619          goto T1885;          goto T1767;
5620  T1885:;  T1767:;
5621          if(type_of(V928)==t_structure){          if(type_of(V812)==t_structure){
5622          goto T1892;}          goto T1774;}
5623          goto T1890;          goto T1772;
5624          goto T1892;          goto T1774;
5625  T1892:;  T1774:;
5626          if(!(((V928)->str.str_def)==(VV[286]))){          if(!(((V812)->str.str_def)==(VV[299]))){
5627          goto T1890;}          goto T1772;}
5628          V936= STREF(object,(V928),4);          V819= STREF(object,(V812),4);
5629          goto T1888;          goto T1770;
5630          goto T1890;          goto T1772;
5631  T1890:;{object V938;  T1772:;{object V821;
5632          V938= (VV[146]->s.s_dbind);          V821= (VV[151]->s.s_dbind);
5633          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5634          base[1]= (V928);          base[1]= (V812);
5635          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5636          (void) (*Lnk390)();          (void) (*Lnk407)();
5637          vs_top=sup;          vs_top=sup;
5638          V939= vs_base[0];          V822= vs_base[0];
5639          if(!((V938)==(CMPcar(V939)))){          if(!((V821)==(CMPcar(V822)))){
5640          goto T1895;}}          goto T1777;}}
5641          V936= CMPcar(((V928))->cc.cc_turbo[12]);          V819= CMPcar(((V812))->cc.cc_turbo[12]);
5642          goto T1888;          goto T1770;
5643          goto T1895;          goto T1777;
5644  T1895:;  T1777:;
5645          base[0]= VV[147];          base[0]= VV[152];
5646          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5647          Lerror();          Lerror();
5648          vs_top=sup;          vs_top=sup;
5649          V936= vs_base[0];          V819= vs_base[0];
5650          goto T1888;          goto T1770;
5651  T1888:;  T1770:;
5652          V940 = (VV[236]->s.s_dbind);          V818= (V819)->v.v_self[fix((VV[249]->s.s_dbind))];
5653          V935= (V936)->v.v_self[fix(V940)];          goto T1765;
5654          goto T1883;  T1765:;
5655  T1883:;          if(((V818))!=Cnil){
5656          if(((V935))!=Cnil){          goto T1784;}
5657          goto T1902;}          base[0]= VV[300];
5658          base[0]= VV[287];          base[1]= (V812);
         base[1]= (V928);  
5659          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5660          (void) (*Lnk398)();          (void) (*Lnk466)();
5661          vs_top=sup;          vs_top=sup;
5662          {object V941 = Cnil;          {object V823 = Cnil;
5663          VMR79(V941)}          VMR76(V823)}
5664          goto T1902;          goto T1784;
5665  T1902:;  T1784:;
5666          {object V942;          {object V824;
5667          object V943;          object V825;
5668          object V944;          object V826;
5669          base[3]= (V935);          base[3]= (V818);
5670          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5671          Llast();          Llast();
5672          vs_top=sup;          vs_top=sup;
5673          V945= vs_base[0];          V827= vs_base[0];
5674          V942= CMPcar(V945);          V824= CMPcar(V827);
5675          if(!(type_of((V942))==t_cons)){          if(!(type_of((V824))==t_cons)){
5676          goto T1912;}          goto T1794;}
5677          V943= (*(LnkLI431))((V942));          V825= (*(LnkLI446))((V824));
5678          goto T1910;          goto T1792;
5679          goto T1912;          goto T1794;
5680  T1912:;  T1794:;
5681          base[3]= (V942);          base[3]= (V824);
5682          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5683          (void) (*Lnk47)(Lclptr47);          (void) (*Lnk51)(Lclptr51);
5684          vs_top=sup;          vs_top=sup;
5685          V943= vs_base[0];          V825= vs_base[0];
5686          goto T1910;          goto T1792;
5687  T1910:;  T1792:;
5688          {register object x= VV[61],V946= (V943);          {register object x= VV[63],V828= (V825);
5689          while(V946!=Cnil)          while(V828!=Cnil)
5690          if(eql(x,V946->c.c_car)){          if(eql(x,V828->c.c_car)){
5691          V944= V946;          V826= V828;
5692          goto T1915;          goto T1797;
5693          }else V946=V946->c.c_cdr;          }else V828=V828->c.c_cdr;
5694          V944= Cnil;}          V826= Cnil;}
5695          goto T1915;          goto T1797;
5696  T1915:;  T1797:;
5697          if(((V944))==Cnil){          if(((V826))==Cnil){
5698          goto T1917;}          goto T1799;}
5699          base[3]= (V943);          base[3]= (V825);
5700          base[4]= CMPcdr((V944));          base[4]= CMPcdr((V826));
5701          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5702          Lldiff();          Lldiff();
5703          vs_top=sup;          vs_top=sup;
5704          V947= vs_base[0];          V829= vs_base[0];
5705          {object V948 = append(V947,VV[288]);          {object V830 = append(V829,VV[301]);
5706          VMR79(V948)}          VMR76(V830)}
5707          goto T1917;          goto T1799;
5708  T1917:;  T1799:;
5709          {object V949 = (V943);          {object V831 = (V825);
5710          VMR79(V949)}}}          VMR76(V831)}}}
5711          goto T1881;          goto T1763;
5712  T1881:;  T1763:;
5713          {object V950 = STREF(object,(V929),0);          {object V832 = STREF(object,(V813),0);
5714          VMR79(V950)}}          VMR76(V832)}}
5715          base[0]=base[0];          base[0]=base[0];
5716          return Cnil;          return Cnil;
5717  }  }
5718  /*      macro definition for REAL-ENSURE-GF-INTERNAL    */  /*      macro definition for REAL-ENSURE-GF-INTERNAL    */
5719    
5720  static void L92()  static void L88()
5721  {register object *base=vs_base;  {register object *base=vs_base;
5722          register object *sup=base+VM80; VC80          register object *sup=base+VM77; VC77
5723          vs_check;          vs_check;
5724          check_arg(2);          check_arg(2);
5725          vs_top=sup;          vs_top=sup;
5726          {object V951=base[0]->c.c_cdr;          {object V833=base[0]->c.c_cdr;
5727          if(endp(V951))invalid_macro_call();          if(endp(V833))invalid_macro_call();
5728          base[2]= (V951->c.c_car);          base[2]= (V833->c.c_car);
5729          V951=V951->c.c_cdr;          V833=V833->c.c_cdr;
5730          if(endp(V951))invalid_macro_call();          if(endp(V833))invalid_macro_call();
5731          base[3]= (V951->c.c_car);          base[3]= (V833->c.c_car);
5732          V951=V951->c.c_cdr;          V833=V833->c.c_cdr;
5733          if(endp(V951))invalid_macro_call();          if(endp(V833))invalid_macro_call();
5734          base[4]= (V951->c.c_car);          base[4]= (V833->c.c_car);
5735          V951=V951->c.c_cdr;          V833=V833->c.c_cdr;
5736          if(!endp(V951))invalid_macro_call();}          if(!endp(V833))invalid_macro_call();}
5737          V952= list(2,VV[289],base[2]);          V834= list(2,VV[302],base[2]);
5738          V953= list(2,/* INLINE-ARGS */V952,list(3,VV[290],base[2],list(4,VV[291],base[2],Ct,base[4])));          V835= list(2,/* INLINE-ARGS */V834,list(3,VV[303],base[2],list(4,VV[304],base[2],Ct,base[4])));
5739          V954= list(2,VV[292],base[2]);          V836= list(2,VV[305],base[2]);
5740          V955= make_cons(/* INLINE-ARGS */V954,Cnil);          V837= make_cons(/* INLINE-ARGS */V836,Cnil);
5741          V956= list(4,VV[120],/* INLINE-ARGS */V953,/* INLINE-ARGS */V955,list(2,Ct,list(3,VV[293],VV[294],base[2])));          V838= list(4,VV[125],/* INLINE-ARGS */V835,/* INLINE-ARGS */V837,list(2,Ct,list(3,VV[306],VV[307],base[2])));
5742          V957= list(3,VV[295],base[3],VV[5]);          V839= list(3,VV[308],base[3],VV[5]);
5743          V958= list(3,VV[295],base[3],VV[296]);          V840= list(3,VV[308],base[3],VV[309]);
5744          V959= list(2,VV[297],listA(3,VV[298],base[3],VV[299]));          V841= list(2,VV[310],listA(3,VV[311],base[3],VV[312]));
5745          V960= make_cons(/* INLINE-ARGS */V959,Cnil);          V842= make_cons(/* INLINE-ARGS */V841,Cnil);
5746          V961= list(3,VV[298],base[3],VV[4]);          V843= list(3,VV[311],base[3],VV[4]);
5747          base[5]= list(5,VV[9],/* INLINE-ARGS */V956,/* INLINE-ARGS */V957,/* INLINE-ARGS */V958,list(3,VV[95],/* INLINE-ARGS */V960,list(3,VV[241],VV[300],list(3,VV[30],/* INLINE-ARGS */V961,listA(3,VV[301],list(2,VV[302],base[2]),VV[303])))));          V844= list(3,VV[100],/* INLINE-ARGS */V842,list(3,VV[254],VV[313],list(3,VV[34],/* INLINE-ARGS */V843,listA(3,VV[314],list(2,VV[315],base[2]),VV[316]))));
5748            V845= list(2,VV[317],listA(3,VV[311],base[3],VV[318]));
5749            V846= make_cons(/* INLINE-ARGS */V845,Cnil);
5750            V847= list(3,VV[311],base[3],VV[6]);
5751            base[5]= list(6,VV[13],/* INLINE-ARGS */V838,/* INLINE-ARGS */V839,/* INLINE-ARGS */V840,/* INLINE-ARGS */V844,list(3,VV[100],/* INLINE-ARGS */V846,list(3,VV[254],VV[319],list(3,VV[34],/* INLINE-ARGS */V847,list(4,VV[304],VV[317],Ct,base[4])))));
5752          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5753          return;          return;
5754  }  }
5755  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */
5756    
5757  static object LI93(object V963,object V962,object first,...)  static object LI89(object V849,object V848,object first,...)
5758  {        {      
5759          va_list ap;          va_list ap;
5760          int narg = VFUN_NARGS; VMB81 VMS81 VMV81          int narg = VFUN_NARGS; VMB78 VMS78 VMV78
5761          {object V964;          {object V850;
5762          object V965;          object V851;
5763          register object V966;          register object V852;
5764          object V967;          object V853;
5765          object V968;          object V854;
5766          object V969;          object V855;
5767          register object V970;          register object V856;
5768          object V971;          object V857;
5769          va_start(ap,first);          va_start(ap,first);
5770          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5771          V964= V963;          V850= V849;
5772          V965= V962;          V851= V848;
5773          narg= narg - 2;          narg= narg - 2;
5774          V972 = make_list(narg);          V858 = make_list(narg);
5775          V966= V972;          V852= V858;
5776          {          {
5777          parse_key_rest_new(V972,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap);          parse_key_rest_new(V858,narg,Vcs +3,(struct key *)(void *)&LI89key,first,ap);
5778          V967=(Vcs[3]);          V853=(Vcs[3]);
5779          if(Vcs[4]==0){          if(Vcs[4]==0){
5780          V968= Cnil;          V854= Cnil;
5781          V969= Cnil;          V855= Cnil;
5782          }else{          }else{
5783          V968=(Vcs[4]);          V854=(Vcs[4]);
5784          V969= Ct;}          V855= Ct;}
5785          if(Vcs[5]==0){          if(Vcs[5]==0){
5786          V970= VV[19];          V856= VV[23];
5787          V971= Cnil;          V857= Cnil;
5788          }else{          }else{
5789          V970=(Vcs[5]);          V856=(Vcs[5]);
5790          V971= Ct;}          V857= Ct;}
5791          if(!(type_of((V970))==t_symbol)){          if(!(type_of((V856))==t_symbol)){
5792          goto T1927;}          goto T1809;}
5793          V970= (VFUN_NARGS=3,(*(LnkLI291))((V970),Ct,(V967)));          V856= (VFUN_NARGS=3,(*(LnkLI304))((V856),Ct,(V853)));
5794          goto T1925;          goto T1807;
5795          goto T1927;          goto T1809;
5796  T1927:;  T1809:;
5797          {object V973;          {object V859;
5798          base[0]= (V970);          base[0]= (V856);
5799          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5800          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk305)(Lclptr305);
5801          vs_top=sup;          vs_top=sup;
5802          V973= vs_base[0];          V859= vs_base[0];
5803          if(((V973))==Cnil){          if(((V859))==Cnil){
5804          goto T1933;}          goto T1815;}
5805          goto T1925;          goto T1807;
5806          goto T1933;          goto T1815;
5807  T1933:;  T1815:;
5808          base[0]= VV[294];          base[0]= VV[307];
5809          base[1]= (V970);          base[1]= (V856);
5810          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5811          Lerror();          Lerror();
5812          vs_top=sup;}          vs_top=sup;}
5813          goto T1925;          goto T1807;
5814  T1925:;  T1807:;
5815          {object V974;          {object V860;
5816          object V975;          object V861;
5817          base[0]= (V966);          base[0]= (V852);
5818          base[1]= VV[5];          base[1]= VV[5];
5819          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5820          siLrem_f();          siLrem_f();
5821          if(vs_base>=vs_top){vs_top=sup;goto T1941;}          if(vs_base>=vs_top){vs_top=sup;goto T1823;}
5822          V974= vs_base[0];          V860= vs_base[0];
5823          vs_base++;          vs_base++;
5824          if(vs_base>=vs_top){vs_top=sup;goto T1942;}          if(vs_base>=vs_top){vs_top=sup;goto T1824;}
5825          V975= vs_base[0];          V861= vs_base[0];
5826          vs_top=sup;          vs_top=sup;
5827          goto T1943;          goto T1825;
5828          goto T1941;          goto T1823;
5829  T1941:;  T1823:;
5830          V974= Cnil;          V860= Cnil;
5831          goto T1942;          goto T1824;
5832  T1942:;  T1824:;
5833          V975= Cnil;          V861= Cnil;
5834          goto T1943;          goto T1825;
5835  T1943:;  T1825:;
5836          V966= (V974);}          V852= (V860);}
5837          {object V976;          {object V862;
5838          object V977;          object V863;
5839          base[0]= (V966);          base[0]= (V852);
5840          base[1]= VV[296];          base[1]= VV[309];
5841          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5842          siLrem_f();          siLrem_f();
5843          if(vs_base>=vs_top){vs_top=sup;goto T1950;}          if(vs_base>=vs_top){vs_top=sup;goto T1832;}
5844          V976= vs_base[0];          V862= vs_base[0];
5845          vs_base++;          vs_base++;
5846          if(vs_base>=vs_top){vs_top=sup;goto T1951;}          if(vs_base>=vs_top){vs_top=sup;goto T1833;}
5847          V977= vs_base[0];          V863= vs_base[0];
5848          vs_top=sup;          vs_top=sup;
5849          goto T1952;          goto T1834;
5850          goto T1950;          goto T1832;
5851  T1950:;  T1832:;
5852          V976= Cnil;          V862= Cnil;
5853          goto T1951;          goto T1833;
5854  T1951:;  T1833:;
5855          V977= Cnil;          V863= Cnil;
5856          goto T1952;          goto T1834;
5857  T1952:;  T1834:;
5858          V966= (V976);}          V852= (V862);}
5859          {object V978;          {object V864;
5860          base[0]= (V966);          base[0]= (V852);
5861          base[1]= VV[4];          base[1]= VV[4];
5862          base[2]= VV[304];          base[2]= VV[320];
5863          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5864          Lgetf();          Lgetf();
5865          vs_top=sup;          vs_top=sup;
5866          V978= vs_base[0];          V864= vs_base[0];
5867          if(((V978))==(VV[304])){          if(((V864))==(VV[320])){
5868          goto T1924;}          goto T1837;}
5869          {object V980;          {object V866;
5870          base[2]= (V970);          base[2]= (V856);
5871          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5872          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
5873          vs_top=sup;          vs_top=sup;
5874          base[1]= vs_base[0];          base[1]= vs_base[0];
5875          base[2]= CMPcar((V978));          base[2]= CMPcar((V864));
5876          base[3]= CMPcdr((V978));          base[3]= CMPcdr((V864));
5877          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5878          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk314)(Lclptr314);
5879          vs_top=sup;          vs_top=sup;
5880          V980= vs_base[0];          V866= vs_base[0];
5881          {object V981;          {object V867;
5882          base[1]= (V966);          base[1]= (V852);
5883          base[2]= (V980);          base[2]= (V866);
5884          base[3]= VV[4];          base[3]= VV[4];
5885          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5886          siLput_f();          siLput_f();
5887          vs_top=sup;          vs_top=sup;
5888          V981= vs_base[0];          V867= vs_base[0];
5889          V966= (V981);}}}          V852= (V867);}}}
5890          goto T1924;          goto T1837;
5891  T1924:;  T1837:;
5892          if(((V971))==Cnil){          {object V868;
5893          goto T1972;}          base[0]= (V852);
5894          V982= (*(LnkLI363))((V964));          base[1]= VV[6];
5895          V983 = (V970);          base[2]= VV[320];
5896          if((/* INLINE-ARGS */V982)==(V983)){          vs_top=(vs_base=base+0)+3;
5897          goto T1972;}          Lgetf();
5898          base[0]= (V964);          vs_top=sup;
5899          base[1]= (V970);          V868= vs_base[0];
5900            if(((V868))==(VV[320])){
5901            goto T1806;}
5902            {object V870;
5903            V870= (VFUN_NARGS=3,(*(LnkLI304))((V868),Ct,(V853)));
5904            {object V871;
5905            base[1]= (V852);
5906            base[2]= (V870);
5907            base[3]= VV[6];
5908            vs_top=(vs_base=base+1)+3;
5909            siLput_f();
5910            vs_top=sup;
5911            V871= vs_base[0];
5912            V852= (V871);}}}
5913            goto T1806;
5914    T1806:;
5915            if(((V857))==Cnil){
5916            goto T1868;}
5917            V872= (*(LnkLI378))((V850));
5918            if((/* INLINE-ARGS */V872)==((V856))){
5919            goto T1868;}
5920            base[0]= (V850);
5921            base[1]= (V856);
5922          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5923          (void) (*Lnk451)(Lclptr451);          (void) (*Lnk467)(Lclptr467);
5924          vs_top=sup;          vs_top=sup;
5925          goto T1972;          goto T1868;
5926  T1972:;  T1868:;
5927          {object V984;          {object V873;
5928          base[0]=VV[452]->s.s_gfdef;          base[0]=VV[468]->s.s_gfdef;
5929          base[1]= (V964);          base[1]= (V850);
5930          {object V985;          {object V874;
5931          V985= (V966);          V874= (V852);
5932           vs_top=base+2;           vs_top=base+2;
5933           while(V985!=Cnil)           while(V874!=Cnil)
5934           {vs_push((V985)->c.c_car);V985=(V985)->c.c_cdr;}           {vs_push((V874)->c.c_car);V874=(V874)->c.c_cdr;}
5935          vs_base=base+1;}          vs_base=base+1;}
5936          (void) (*Lnk452)(Lclptr452);          (void) (*Lnk468)(Lclptr468);
5937          vs_top=sup;          vs_top=sup;
5938          V984= vs_base[0];          V873= vs_base[0];
5939          if(((V969))==Cnil){          if(((V855))==Cnil){
5940          goto T1982;}          goto T1878;}
5941          (void)((*(LnkLI10))((V965),(V968)));          (void)((*(LnkLI14))((V851),(V854)));
5942          goto T1982;          goto T1878;
5943  T1982:;  T1878:;
5944          {object V986 = (V984);          {object V875 = (V873);
5945          VMR81(V986)}}          VMR78(V875)}}
5946          va_end(ap);          va_end(ap);
5947          base[0]=base[0];          base[0]=base[0];
5948          return Cnil;}          return Cnil;}
5949          }}          }}
5950  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */
5951    
5952  static object LI94(object V988,object V987,object first,...)  static object LI90(object V877,object V876,object first,...)
5953  {        {      
5954          va_list ap;          va_list ap;
5955          int narg = VFUN_NARGS; VMB82 VMS82 VMV82          int narg = VFUN_NARGS; VMB79 VMS79 VMV79
5956          {object V989;          {object V878;
5957          object V990;          object V879;
5958          register object V991;          register object V880;
5959          object V992;          object V881;
5960          object V993;          object V882;
5961          object V994;          object V883;
5962          register object V995;          register object V884;
5963          va_start(ap,first);          va_start(ap,first);
5964          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5965          V989= V988;          V878= V877;
5966          V990= V987;          V879= V876;
5967          narg= narg - 2;          narg= narg - 2;
5968          V996 = make_list(narg);          V885 = make_list(narg);
5969          V991= V996;          V880= V885;
5970          {          {
5971          parse_key_rest_new(V996,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap);          parse_key_rest_new(V885,narg,Vcs +3,(struct key *)(void *)&LI90key,first,ap);
5972          V992=(Vcs[3]);          V881=(Vcs[3]);
5973          if(Vcs[4]==0){          if(Vcs[4]==0){
5974          V993= Cnil;          V882= Cnil;
5975          V994= Cnil;          V883= Cnil;
5976          }else{          }else{
5977          V993=(Vcs[4]);          V882=(Vcs[4]);
5978          V994= Ct;}          V883= Ct;}
5979          V995=(Vcs[5]);          V884=(Vcs[5]);
5980          if(!(type_of((V995))==t_symbol)){          if(!(type_of((V884))==t_symbol)){
5981          goto T1989;}          goto T1885;}
5982          V995= (VFUN_NARGS=3,(*(LnkLI291))((V995),Ct,(V992)));          V884= (VFUN_NARGS=3,(*(LnkLI304))((V884),Ct,(V881)));
5983          goto T1987;          goto T1883;
5984          goto T1989;          goto T1885;
5985  T1989:;  T1885:;
5986          {object V997;          {object V886;
5987          base[0]= (V995);          base[0]= (V884);
5988          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5989          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk305)(Lclptr305);
5990          vs_top=sup;          vs_top=sup;
5991          V997= vs_base[0];          V886= vs_base[0];
5992          if(((V997))==Cnil){          if(((V886))==Cnil){
5993          goto T1995;}          goto T1891;}
5994          goto T1987;          goto T1883;
5995          goto T1995;          goto T1891;
5996  T1995:;  T1891:;
5997          base[0]= VV[294];          base[0]= VV[307];
5998          base[1]= (V995);          base[1]= (V884);
5999          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6000          Lerror();          Lerror();
6001          vs_top=sup;}          vs_top=sup;}
6002          goto T1987;          goto T1883;
6003  T1987:;  T1883:;
6004          {object V998;          {object V887;
6005          object V999;          object V888;
6006          base[0]= (V991);          base[0]= (V880);
6007          base[1]= VV[5];          base[1]= VV[5];
6008          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6009          siLrem_f();          siLrem_f();
6010          if(vs_base>=vs_top){vs_top=sup;goto T2003;}          if(vs_base>=vs_top){vs_top=sup;goto T1899;}
6011          V998= vs_base[0];          V887= vs_base[0];
6012          vs_base++;          vs_base++;
6013          if(vs_base>=vs_top){vs_top=sup;goto T2004;}          if(vs_base>=vs_top){vs_top=sup;goto T1900;}
6014          V999= vs_base[0];          V888= vs_base[0];
6015          vs_top=sup;          vs_top=sup;
6016          goto T2005;          goto T1901;
6017          goto T2003;          goto T1899;
6018  T2003:;  T1899:;
6019          V998= Cnil;          V887= Cnil;
6020          goto T2004;          goto T1900;
6021  T2004:;  T1900:;
6022          V999= Cnil;          V888= Cnil;
6023          goto T2005;          goto T1901;
6024  T2005:;  T1901:;
6025          V991= (V998);}          V880= (V887);}
6026          {object V1000;          {object V889;
6027          object V1001;          object V890;
6028          base[0]= (V991);          base[0]= (V880);
6029          base[1]= VV[296];          base[1]= VV[309];
6030          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6031          siLrem_f();          siLrem_f();
6032          if(vs_base>=vs_top){vs_top=sup;goto T2012;}          if(vs_base>=vs_top){vs_top=sup;goto T1908;}
6033          V1000= vs_base[0];          V889= vs_base[0];
6034          vs_base++;          vs_base++;
6035          if(vs_base>=vs_top){vs_top=sup;goto T2013;}          if(vs_base>=vs_top){vs_top=sup;goto T1909;}
6036          V1001= vs_base[0];          V890= vs_base[0];
6037          vs_top=sup;          vs_top=sup;
6038          goto T2014;          goto T1910;
6039          goto T2012;          goto T1908;
6040  T2012:;  T1908:;
6041          V1000= Cnil;          V889= Cnil;
6042          goto T2013;          goto T1909;
6043  T2013:;  T1909:;
6044          V1001= Cnil;          V890= Cnil;
6045          goto T2014;          goto T1910;
6046  T2014:;  T1910:;
6047          V991= (V1000);}          V880= (V889);}
6048          {object V1002;          {object V891;
6049          base[0]= (V991);          base[0]= (V880);
6050          base[1]= VV[4];          base[1]= VV[4];
6051          base[2]= VV[304];          base[2]= VV[320];
6052          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
6053          Lgetf();          Lgetf();
6054          vs_top=sup;          vs_top=sup;
6055          V1002= vs_base[0];          V891= vs_base[0];
6056          if(((V1002))==(VV[304])){          if(((V891))==(VV[320])){
6057          goto T1986;}          goto T1913;}
6058          {object V1004;          {object V893;
6059          base[2]= (V995);          base[2]= (V884);
6060          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6061          (void) (*Lnk302)(Lclptr302);          (void) (*Lnk315)(Lclptr315);
6062          vs_top=sup;          vs_top=sup;
6063          base[1]= vs_base[0];          base[1]= vs_base[0];
6064          base[2]= CMPcar((V1002));          base[2]= CMPcar((V891));
6065          base[3]= CMPcdr((V1002));          base[3]= CMPcdr((V891));
6066          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6067          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk314)(Lclptr314);
6068          vs_top=sup;          vs_top=sup;
6069          V1004= vs_base[0];          V893= vs_base[0];
6070          {object V1005;          {object V894;
6071          base[1]= (V991);          base[1]= (V880);
6072          base[2]= (V1004);          base[2]= (V893);
6073          base[3]= VV[4];          base[3]= VV[4];
6074          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6075          siLput_f();          siLput_f();
6076          vs_top=sup;          vs_top=sup;
6077          V1005= vs_base[0];          V894= vs_base[0];
6078          V991= (V1005);}}}          V880= (V894);}}}
6079          goto T1986;          goto T1913;
6080  T1986:;  T1913:;
6081          {object V1006;          {object V895;
6082          {object V1008;          base[0]= (V880);
6083          base[1]=VV[453]->s.s_gfdef;          base[1]= VV[6];
6084          base[2]= (V995);          base[2]= VV[320];
6085          base[3]= VV[219];          vs_top=(vs_base=base+0)+3;
6086          base[4]= (V990);          Lgetf();
6087          {object V1009;          vs_top=sup;
6088          V1009= (V991);          V895= vs_base[0];
6089            if(((V895))==(VV[320])){
6090            goto T1882;}
6091            {object V897;
6092            V897= (VFUN_NARGS=3,(*(LnkLI304))((V895),Ct,(V881)));
6093            {object V898;
6094            base[1]= (V880);
6095            base[2]= (V897);
6096            base[3]= VV[6];
6097            vs_top=(vs_base=base+1)+3;
6098            siLput_f();
6099            vs_top=sup;
6100            V898= vs_base[0];
6101            V880= (V898);}}}
6102            goto T1882;
6103    T1882:;
6104            {object V899;
6105            {object V901;
6106            base[1]=VV[469]->s.s_gfdef;
6107            base[2]= (V884);
6108            base[3]= VV[158];
6109            base[4]= (V879);
6110            {object V902;
6111            V902= (V880);
6112           vs_top=base+5;           vs_top=base+5;
6113           while(V1009!=Cnil)           while(V902!=Cnil)
6114           {vs_push((V1009)->c.c_car);V1009=(V1009)->c.c_cdr;}           {vs_push((V902)->c.c_car);V902=(V902)->c.c_cdr;}
6115          vs_base=base+2;}          vs_base=base+2;}
6116          (void) (*Lnk453)(Lclptr453);          (void) (*Lnk469)(Lclptr469);
6117          vs_top=sup;          vs_top=sup;
6118          V1008= vs_base[0];          V901= vs_base[0];
6119          V1010= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V903= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
6120          V1011 = (V1008);          V899= (
6121          V1012 = V990;          V904 = V903,
6122          V1006= (          (type_of(V904) == t_sfun ?(*((V904)->sfn.sfn_self)):
6123          V1013 = V1010,          (fcall.argd=2,type_of(V904)==t_vfun) ?
6124          (type_of(V1013) == t_sfun ?(*((V1013)->sfn.sfn_self)):          (*((V904)->sfn.sfn_self)):
6125          (fcall.argd=2,type_of(V1013)==t_vfun) ?          (fcall.fun=(V904),fcalln))((V901),V879));}
6126          (*((V1013)->sfn.sfn_self)):          if(((V883))==Cnil){
6127          (fcall.fun=(V1013),fcalln))(V1011,V1012));}          goto T1951;}
6128          if(((V994))==Cnil){          (void)((*(LnkLI14))((V879),(V882)));
6129          goto T2041;}          goto T1951;
6130          (void)((*(LnkLI10))((V990),(V993)));  T1951:;
6131          goto T2041;          {object V905 = (V899);
6132  T2041:;          VMR79(V905)}}
         {object V1014 = (V1006);  
         VMR82(V1014)}}  
6133          va_end(ap);          va_end(ap);
6134          base[0]=base[0];          base[0]=base[0];
6135          return Cnil;}          return Cnil;}
6136          }}          }}
6137  /*      function definition for GET-GENERIC-FUNCTION-INFO       */  /*      function definition for GET-GENERIC-FUNCTION-INFO       */
6138    
6139  static void L95()  static void L91()
6140  {register object *base=vs_base;  {register object *base=vs_base;
6141          register object *sup=base+VM83; VC83          register object *sup=base+VM80; VC80
6142          vs_check;          vs_check;
6143          {register object V1015;          {register object V906;
6144          check_arg(1);          check_arg(1);
6145          V1015=(base[0]);          V906=(base[0]);
6146          vs_top=sup;          vs_top=sup;
6147          goto TTL;          goto TTL;
6148  TTL:;  TTL:;
6149          {object V1016;          {object V907;
6150          object V1017;          object V908;
6151          object V1018;          object V909;
6152          {object V1019;          {object V910;
6153          object V1020;          object V911;
6154          if(((*(LnkLI438))((V1015)))==Cnil){          if(((*(LnkLI453))((V906)))==Cnil){
6155          goto T2047;}          goto T1957;}
6156          if(type_of(V1015)==t_structure){          if(type_of(V906)==t_structure){
6157          goto T2053;}          goto T1963;}
6158          goto T2051;          goto T1961;
6159          goto T2053;          goto T1963;
6160  T2053:;  T1963:;
6161          if(!(((V1015)->str.str_def)==(VV[305]))){          if(!(((V906)->str.str_def)==(VV[321]))){
6162          goto T2051;}          goto T1961;}
6163          V1021= STREF(object,(V1015),4);          V912= STREF(object,(V906),4);
6164          goto T2049;          goto T1959;
6165          goto T2051;          goto T1961;
6166  T2051:;{object V1023;  T1961:;{object V914;
6167          V1023= (VV[146]->s.s_dbind);          V914= (VV[151]->s.s_dbind);
6168          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6169          base[4]= (V1015);          base[4]= (V906);
6170          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6171          (void) (*Lnk390)();          (void) (*Lnk407)();
6172          vs_top=sup;          vs_top=sup;
6173          V1024= vs_base[0];          V915= vs_base[0];
6174          if(!((V1023)==(CMPcar(V1024)))){          if(!((V914)==(CMPcar(V915)))){
6175          goto T2056;}}          goto T1966;}}
6176          V1021= CMPcar(((V1015))->cc.cc_turbo[12]);          V912= CMPcar(((V906))->cc.cc_turbo[12]);
6177          goto T2049;          goto T1959;
6178          goto T2056;          goto T1966;
6179  T2056:;  T1966:;
6180          base[3]= VV[147];          base[3]= VV[152];
6181          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6182          Lerror();          Lerror();
6183          vs_top=sup;          vs_top=sup;
6184          V1021= vs_base[0];          V912= vs_base[0];
6185          goto T2049;          goto T1959;
6186  T2049:;  T1959:;
6187          V1025 = (VV[237]->s.s_dbind);          V910= (V912)->v.v_self[fix((VV[250]->s.s_dbind))];
6188          V1019= (V1021)->v.v_self[fix(V1025)];          goto T1955;
6189          goto T2045;          goto T1957;
6190          goto T2047;  T1957:;
6191  T2047:;          base[3]= (V906);
         base[3]= (V1015);  
6192          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6193          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk439)(Lclptr439);
6194          vs_top=sup;          vs_top=sup;
6195          V1019= vs_base[0];          V910= vs_base[0];
6196          goto T2045;          goto T1955;
6197  T2045:;  T1955:;
6198          V1020= STREF(object,(V1019),8);          V911= STREF(object,(V910),8);
6199          base[3]= (*(LnkLI395))((V1019));          base[3]= (*(LnkLI470))((V910));
6200          base[4]= (V1020);          base[4]= (V911);
6201          base[5]= (V1019);          base[5]= (V910);
6202          vs_top=(vs_base=base+3)+3;}          vs_top=(vs_base=base+3)+3;}
6203          if(vs_base>=vs_top){vs_top=sup;goto T2067;}          if(vs_base>=vs_top){vs_top=sup;goto T1977;}
6204          V1016= vs_base[0];          V907= vs_base[0];
6205          vs_base++;          vs_base++;
6206          if(vs_base>=vs_top){vs_top=sup;goto T2068;}          if(vs_base>=vs_top){vs_top=sup;goto T1978;}
6207          V1017= vs_base[0];          V908= vs_base[0];
6208          vs_base++;          vs_base++;
6209          if(vs_base>=vs_top){vs_top=sup;goto T2069;}          if(vs_base>=vs_top){vs_top=sup;goto T1979;}
6210          V1018= vs_base[0];          V909= vs_base[0];
6211          vs_top=sup;          vs_top=sup;
6212          goto T2070;          goto T1980;
6213          goto T2067;          goto T1977;
6214  T2067:;  T1977:;
6215          V1016= Cnil;          V907= Cnil;
6216          goto T2068;          goto T1978;
6217  T2068:;  T1978:;
6218          V1017= Cnil;          V908= Cnil;
6219          goto T2069;          goto T1979;
6220  T2069:;  T1979:;
6221          V1018= Cnil;          V909= Cnil;
6222          goto T2070;          goto T1980;
6223  T2070:;  T1980:;
6224          base[1]= CMPmake_fixnum((long)length((V1017)));          base[1]= CMPmake_fixnum((long)length((V908)));
6225          base[2]= (V1016);          base[2]= (V907);
6226          base[3]= (V1017);          base[3]= (V908);
6227          base[5]= VV[454];          base[5]= VV[471];
6228          base[6]= (V1017);          base[6]= (V908);
6229          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6230          (void) (*Lnk425)();          (void) (*Lnk438)();
6231          vs_top=sup;          vs_top=sup;
6232          base[4]= vs_base[0];          base[4]= vs_base[0];
6233          base[5]= (V1018);          base[5]= (V909);
6234          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
6235          return;}          return;}
6236          }          }
6237  }  }
6238  /*      local entry for function EARLY-MAKE-A-METHOD    */  /*      local entry for function EARLY-MAKE-A-METHOD    */
6239    
6240  static object LI96(object V1031,object V1030,object V1029,object V1028,object V1027,object V1026,object first,...)  static object LI92(object V921,object V920,object V919,object V918,object V917,object V916,object first,...)
6241  {        {      
6242          va_list ap;          va_list ap;
6243          int narg = VFUN_NARGS; VMB84 VMS84 VMV84          int narg = VFUN_NARGS; VMB81 VMS81 VMV81
6244          {object V1032;          {object V922;
6245          object V1033;          object V923;
6246          object V1034;          object V924;
6247          register object V1035;          register object V925;
6248          register object V1036;          register object V926;
6249          object V1037;          object V927;
6250          object V1038;          object V928;
6251          va_start(ap,first);          va_start(ap,first);
6252          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
6253          V1032= V1031;          V922= V921;
6254          V1033= V1030;          V923= V920;
6255          V1034= V1029;          V924= V919;
6256          V1035= V1028;          V925= V918;
6257          V1036= V1027;          V926= V917;
6258          V1037= V1026;          V927= V916;
6259          narg = narg - 6;          narg = narg - 6;
6260          if (narg <= 0) goto T2078;          if (narg <= 0) goto T1988;
6261          else {          else {
6262          V1038= first;}          V928= first;}
6263          --narg; goto T2079;          --narg; goto T1989;
6264          goto T2078;          goto T1988;
6265  T2078:;  T1988:;
6266          V1038= Cnil;          V928= Cnil;
6267          goto T2079;          goto T1989;
6268  T2079:;  T1989:;
6269          (void)((VFUN_NARGS=1,(*(LnkLI455))((V1036))));          (void)((VFUN_NARGS=1,(*(LnkLI472))((V926))));
6270          {object V1039;          {object V929;
6271          object V1040;          object V930;
6272          V1039= Cnil;          V929= Cnil;
6273          V1040= Cnil;          V930= Cnil;
6274          base[0]= VV[456];          base[0]= VV[473];
6275          base[1]= (V1035);          base[1]= (V925);
6276          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6277          (void) (*Lnk366)();          (void) (*Lnk381)();
6278          vs_top=sup;          vs_top=sup;
6279          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6280          goto T2084;}          goto T1994;}
6281          V1039= (V1035);          V929= (V925);
6282          {object V1041;          {object V931;
6283          object V1042= (V1035);          object V932= (V925);
6284          if(V1042==Cnil){          if(V932==Cnil){
6285          V1040= Cnil;          V930= Cnil;
6286          goto T2090;}          goto T2000;}
6287          base[0]=V1041=MMcons(Cnil,Cnil);          base[0]=V931=MMcons(Cnil,Cnil);
6288          goto T2091;          goto T2001;
6289  T2091:;  T2001:;
6290          if(!(((V1042->c.c_car))==(Ct))){          if(!(((V932->c.c_car))==(Ct))){
6291          goto T2094;}          goto T2004;}
6292          (V1041->c.c_car)= Ct;          (V931->c.c_car)= Ct;
6293          goto T2092;          goto T2002;
6294          goto T2094;          goto T2004;
6295  T2094:;  T2004:;
6296          base[1]= (V1042->c.c_car);          base[1]= (V932->c.c_car);
6297          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6298          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
6299          vs_top=sup;          vs_top=sup;
6300          (V1041->c.c_car)= vs_base[0];          (V931->c.c_car)= vs_base[0];
6301          goto T2092;          goto T2002;
6302  T2092:;  T2002:;
6303          if((V1042=MMcdr(V1042))==Cnil){          if((V932=MMcdr(V932))==Cnil){
6304          V1040= base[0];          V930= base[0];
6305          goto T2090;}          goto T2000;}
6306          V1041=MMcdr(V1041)=MMcons(Cnil,Cnil);          V931=MMcdr(V931)=MMcons(Cnil,Cnil);
6307          goto T2091;}          goto T2001;}
6308          goto T2090;          goto T2000;
6309  T2090:;  T2000:;
6310          goto T2082;          goto T1992;
6311          goto T2084;          goto T1994;
6312  T2084:;  T1994:;
6313          V1040= (V1035);          V930= (V925);
6314          V1039= Cnil;          V929= Cnil;
6315          goto T2082;          goto T1992;
6316  T2082:;  T1992:;
6317          base[0]= (V1036);          base[0]= (V926);
6318          base[1]= VV[35];          base[1]= VV[39];
6319          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6320          Lgetf();          Lgetf();
6321          vs_top=sup;          vs_top=sup;
6322          V1044= vs_base[0];          V934= vs_base[0];
6323          base[0]= (V1036);          base[0]= (V926);
6324          base[1]= VV[215];          base[1]= VV[225];
6325          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6326          Lgetf();          Lgetf();
6327          vs_top=sup;          vs_top=sup;
6328          V1045= vs_base[0];          V935= vs_base[0];
6329          V1046 = (V1039);          {object V936 = list(5,VV[322],V934,V935,(V929),list(7,(V922),(V923),(V924),(V930),(V926),(V927),(V928)));
6330          {object V1047 = list(5,VV[306],V1044,V1045,V1046,list(7,(V1032),(V1033),(V1034),(V1040),(V1036),(V1037),(V1038)));          VMR81(V936)}}
         VMR84(V1047)}}  
6331          va_end(ap);          va_end(ap);
6332          base[0]=base[0];          base[0]=base[0];
6333          return Cnil;}          return Cnil;}
6334          }          }
6335  /*      function definition for REAL-MAKE-A-METHOD      */  /*      function definition for REAL-MAKE-A-METHOD      */
6336    
6337  static void L97()  static void L93()
6338  {register object *base=vs_base;  {register object *base=vs_base;
6339          register object *sup=base+VM85; VC85          register object *sup=base+VM82; VC82
6340          vs_check;          vs_check;
6341          {object V1048;          {object V937;
6342          object V1049;          object V938;
6343          object V1050;          object V939;
6344          object V1051;          object V940;
6345          object V1052;          object V941;
6346          object V1053;          object V942;
6347          object V1054;          object V943;
6348          if(vs_top-vs_base<6) too_few_arguments();          if(vs_top-vs_base<6) too_few_arguments();
6349          if(vs_top-vs_base>7) too_many_arguments();          if(vs_top-vs_base>7) too_many_arguments();
6350          V1048=(base[0]);          V937=(base[0]);
6351          V1049=(base[1]);          V938=(base[1]);
6352          V1050=(base[2]);          V939=(base[2]);
6353          V1051=(base[3]);          V940=(base[3]);
6354          V1052=(base[4]);          V941=(base[4]);
6355          V1053=(base[5]);          V942=(base[5]);
6356          vs_base=vs_base+6;          vs_base=vs_base+6;
6357          if(vs_base>=vs_top){vs_top=sup;goto T2106;}          if(vs_base>=vs_top){vs_top=sup;goto T2016;}
6358          V1054=(base[6]);          V943=(base[6]);
6359          vs_top=sup;          vs_top=sup;
6360          goto T2107;          goto T2017;
6361          goto T2106;          goto T2016;
6362  T2106:;  T2016:;
6363          V1054= Cnil;          V943= Cnil;
6364          goto T2107;          goto T2017;
6365  T2107:;  T2017:;
6366          V1051= (*(LnkLI457))((V1051));          V940= (*(LnkLI474))((V940));
6367          base[7]=VV[453]->s.s_gfdef;          base[7]=VV[469]->s.s_gfdef;
6368          base[8]= (V1048);          base[8]= (V937);
6369          base[9]= VV[307];          base[9]= VV[323];
6370          base[10]= (V1049);          base[10]= (V938);
6371          base[11]= VV[15];          base[11]= VV[19];
6372          base[12]= (V1050);          base[12]= (V939);
6373          base[13]= VV[308];          base[13]= VV[324];
6374          base[14]= (V1051);          base[14]= (V940);
6375          base[15]= VV[3];          base[15]= VV[3];
6376          base[16]= (V1053);          base[16]= (V942);
6377          base[17]= VV[309];          base[17]= VV[325];
6378          base[18]= (V1054);          base[18]= (V943);
6379          base[19]= VV[310];          base[19]= VV[326];
6380          base[20]= Ct;          base[20]= Ct;
6381          {object V1055;          {object V944;
6382          V1055= (V1052);          V944= (V941);
6383           vs_top=base+21;           vs_top=base+21;
6384           while(V1055!=Cnil)           while(V944!=Cnil)
6385           {vs_push((V1055)->c.c_car);V1055=(V1055)->c.c_cdr;}           {vs_push((V944)->c.c_car);V944=(V944)->c.c_cdr;}
6386          vs_base=base+8;}          vs_base=base+8;}
6387          (void) (*Lnk453)(Lclptr453);          (void) (*Lnk469)(Lclptr469);
6388          return;          return;
6389          }          }
6390  }  }
6391  /*      function definition for EARLY-METHOD-FUNCTION   */  /*      function definition for EARLY-METHOD-FUNCTION   */
6392    
6393  static void L98()  static void L94()
6394  {register object *base=vs_base;  {register object *base=vs_base;
6395          register object *sup=base+VM86; VC86          register object *sup=base+VM83; VC83
6396          vs_check;          vs_check;
6397          {object V1056;          {object V945;
6398          check_arg(1);          check_arg(1);
6399          V1056=(base[0]);          V945=(base[0]);
6400          vs_top=sup;          vs_top=sup;
6401          goto TTL;          goto TTL;
6402  TTL:;  TTL:;
6403          base[1]= CMPcadr((V1056));          base[1]= CMPcadr((V945));
6404          base[2]= CMPcaddr((V1056));          base[2]= CMPcaddr((V945));
6405          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6406          return;          return;
6407          }          }
6408  }  }
6409  /*      local entry for function EARLY-METHOD-CLASS     */  /*      local entry for function EARLY-METHOD-CLASS     */
6410    
6411  static object LI99(V1058)  static object LI95(V947)
6412    
6413  object V1058;  object V947;
6414  {        VMB87 VMS87 VMV87  {        VMB84 VMS84 VMV84
6415          goto TTL;          goto TTL;
6416  TTL:;  TTL:;
6417          base[0]= (V1058);          base[0]= (V947);
6418          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6419          (void) (*Lnk458)();          (void) (*Lnk475)();
6420          vs_top=sup;          vs_top=sup;
6421          V1059= vs_base[0];          V948= vs_base[0];
6422          {object V1060 = (VFUN_NARGS=1,(*(LnkLI291))(CMPcar(V1059)));          {object V949 = (VFUN_NARGS=1,(*(LnkLI304))(CMPcar(V948)));
6423          VMR87(V1060)}          VMR84(V949)}
6424          base[0]=base[0];          base[0]=base[0];
6425          return Cnil;          return Cnil;
6426  }  }
6427  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */
6428    
6429  static object LI100(V1062)  static object LI96(V951)
6430    
6431  object V1062;  object V951;
6432  {        VMB88 VMS88 VMV88  {        VMB85 VMS85 VMV85
6433          goto TTL;          goto TTL;
6434  TTL:;  TTL:;
6435          {object V1063;          {object V952;
6436          base[0]= (V1062);          base[0]= (V951);
6437          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6438          (void) (*Lnk458)();          (void) (*Lnk475)();
6439          vs_top=sup;          vs_top=sup;
6440          V1064= vs_base[0];          V953= vs_base[0];
6441          V1063= CMPcar(V1064);          V952= CMPcar(V953);
6442          if(!(((V1063))==(VV[311]))){          if(!(((V952))==(VV[327]))){
6443          goto T2132;}          goto T2042;}
6444          {object V1065 = Ct;          {object V954 = Ct;
6445          VMR88(V1065)}          VMR85(V954)}
6446          goto T2132;          goto T2042;
6447  T2132:;  T2042:;
6448          if(!(((V1063))==(VV[312]))){          if(!(((V952))==(VV[328]))){
6449          goto T2134;}          goto T2044;}
6450          {object V1066 = Ct;          {object V955 = Ct;
6451          VMR88(V1066)}          VMR85(V955)}
6452          goto T2134;          goto T2044;
6453  T2134:;  T2044:;
6454          {object V1067 = (((V1063))==(VV[313])?Ct:Cnil);          {object V956 = (((V952))==(VV[329])?Ct:Cnil);
6455          VMR88(V1067)}}          VMR85(V956)}}
6456          base[0]=base[0];          base[0]=base[0];
6457          return Cnil;          return Cnil;
6458  }  }
6459  /*      function definition for EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME        */  /*      function definition for EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME        */
6460    
6461  static void L101()  static void L97()
6462  {register object *base=vs_base;  {register object *base=vs_base;
6463          register object *sup=base+VM89; VC89          register object *sup=base+VM86; VC86
6464          vs_check;          vs_check;
6465          {object V1068;          {object V957;
6466          check_arg(1);          check_arg(1);
6467          V1068=(base[0]);          V957=(base[0]);
6468          vs_top=sup;          vs_top=sup;
6469          goto TTL;          goto TTL;
6470  TTL:;  TTL:;
6471          base[2]= (V1068);          base[2]= (V957);
6472          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6473          (void) (*Lnk458)();          (void) (*Lnk475)();
6474          vs_top=sup;          vs_top=sup;
6475          base[1]= vs_base[0];          base[1]= vs_base[0];
6476          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6477          (void) (*Lnk459)();          (void) (*Lnk476)();
6478          return;          return;
6479          }          }
6480  }  }
6481  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */
6482    
6483  static object LI102(object V1069,object first,...)  static object LI98(object V958,object first,...)
6484  {        {      
6485          va_list ap;          va_list ap;
6486          int narg = VFUN_NARGS; VMB90 VMS90 VMV90          int narg = VFUN_NARGS; VMB87 VMS87 VMV87
6487          {register object V1070;          {register object V959;
6488          object V1071;          object V960;
6489          va_start(ap,first);          va_start(ap,first);
6490          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
6491          V1070= V1069;          V959= V958;
6492          narg = narg - 1;          narg = narg - 1;
6493          if (narg <= 0) goto T2138;          if (narg <= 0) goto T2048;
6494          else {          else {
6495          V1071= first;}          V960= first;}
6496          --narg; goto T2139;          --narg; goto T2049;
6497          goto T2138;          goto T2048;
6498  T2138:;  T2048:;
6499          V1071= Cnil;          V960= Cnil;
6500          goto T2139;          goto T2049;
6501  T2139:;  T2049:;
6502          if(!(type_of((V1070))==t_cons||((V1070))==Cnil)){          if(!(type_of((V959))==t_cons||((V959))==Cnil)){
6503          goto T2142;}          goto T2052;}
6504          if(!((CMPcar((V1070)))==(VV[306]))){          if(!((CMPcar((V959)))==(VV[322]))){
6505          goto T2142;}          goto T2052;}
6506          if(!(((V1071))==(Ct))){          if(!(((V960))==(Ct))){
6507          goto T2147;}{object V1072;          goto T2057;}{object V961;
6508          V1072= CMPcadddr((V1070));          V961= CMPcadddr((V959));
6509          if(V1072==Cnil)goto T2149;          if(V961==Cnil)goto T2059;
6510          {object V1073 = V1072;          {object V962 = V961;
6511          VMR90(V1073)}          VMR87(V962)}
6512          goto T2149;          goto T2059;
6513  T2149:;}  T2059:;}
6514          {object V1075;          {object V964;
6515          base[2]=VV[291]->s.s_gfdef;          base[2]=VV[304]->s.s_gfdef;
6516          base[3]= (V1070);          base[3]= (V959);
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk458)();  
         vs_top=sup;  
         V1078= vs_base[0];  
         {object V1076;  
         object V1077= CMPcadddr(V1078);  
         if(V1077==Cnil){  
         V1075= Cnil;  
         goto T2151;}  
         base[1]=V1076=MMcons(Cnil,Cnil);  
         goto T2152;  
 T2152:;  
         base[3]= (V1077->c.c_car);  
6517          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6518          (void) (*Lnk291)();          (void) (*Lnk475)();
6519          vs_top=sup;          vs_top=sup;
6520          (V1076->c.c_car)= vs_base[0];          V967= vs_base[0];
6521          if((V1077=MMcdr(V1077))==Cnil){          {object V965;
6522          V1075= base[1];          object V966= CMPcadddr(V967);
6523          goto T2151;}          if(V966==Cnil){
6524          V1076=MMcdr(V1076)=MMcons(Cnil,Cnil);          V964= Cnil;
6525          goto T2152;}          goto T2061;}
6526          goto T2151;          base[1]=V965=MMcons(Cnil,Cnil);
6527  T2151:;          goto T2062;
6528          (CMPcdddr(V1070))->c.c_car = (V1075);  T2062:;
6529          (void)(CMPcdddr(V1070));          base[3]= (V966->c.c_car);
6530          {object V1079 = (V1075);          vs_top=(vs_base=base+3)+1;
6531          VMR90(V1079)}}          (void) (*Lnk304)();
6532          goto T2147;          vs_top=sup;
6533  T2147:;          (V965->c.c_car)= vs_base[0];
6534          base[0]= (V1070);          if((V966=MMcdr(V966))==Cnil){
6535            V964= base[1];
6536            goto T2061;}
6537            V965=MMcdr(V965)=MMcons(Cnil,Cnil);
6538            goto T2062;}
6539            goto T2061;
6540    T2061:;
6541            (CMPcdddr(V959))->c.c_car = (V964);
6542            (void)(CMPcdddr(V959));
6543            {object V968 = (V964);
6544            VMR87(V968)}}
6545            goto T2057;
6546    T2057:;
6547            base[0]= (V959);
6548          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6549          (void) (*Lnk458)();          (void) (*Lnk475)();
6550          vs_top=sup;          vs_top=sup;
6551          V1080= vs_base[0];          V969= vs_base[0];
6552          {object V1081 = CMPcadddr(V1080);          {object V970 = CMPcadddr(V969);
6553          VMR90(V1081)}          VMR87(V970)}
6554          goto T2142;          goto T2052;
6555  T2142:;  T2052:;
6556          base[0]= VV[314];          base[0]= VV[330];
6557          base[1]= (V1070);          base[1]= (V959);
6558          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6559          Lerror();          Lerror();
6560          vs_top=sup;          vs_top=sup;
6561          {object V1082 = vs_base[0];          {object V971 = vs_base[0];
6562          VMR90(V1082)}          VMR87(V971)}
6563          va_end(ap);          va_end(ap);
6564          base[0]=base[0];          base[0]=base[0];
6565          return Cnil;}          return Cnil;}
6566          }          }
6567  /*      local entry for function EARLY-METHOD-QUALIFIERS        */  /*      local entry for function EARLY-METHOD-QUALIFIERS        */
6568    
6569  static object LI103(V1084)  static object LI99(V973)
6570    
6571  object V1084;  object V973;
6572  {        VMB91 VMS91 VMV91  {        VMB88 VMS88 VMV88
6573          goto TTL;          goto TTL;
6574  TTL:;  TTL:;
6575          base[0]= (V1084);          base[0]= (V973);
6576          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6577          (void) (*Lnk458)();          (void) (*Lnk475)();
6578          vs_top=sup;          vs_top=sup;
6579          V1085= vs_base[0];          V974= vs_base[0];
6580          {object V1086 = CMPcadr(V1085);          {object V975 = CMPcadr(V974);
6581          VMR91(V1086)}          VMR88(V975)}
6582          base[0]=base[0];          base[0]=base[0];
6583          return Cnil;          return Cnil;
6584  }  }
6585  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */
6586    
6587  static object LI104(V1088)  static object LI100(V977)
6588    
6589  object V1088;  object V977;
6590  {        VMB92 VMS92 VMV92  {        VMB89 VMS89 VMV89
6591          goto TTL;          goto TTL;
6592  TTL:;  TTL:;
6593          base[0]= (V1088);          base[0]= (V977);
6594          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6595          (void) (*Lnk458)();          (void) (*Lnk475)();
6596          vs_top=sup;          vs_top=sup;
6597          V1089= vs_base[0];          V978= vs_base[0];
6598          {object V1090 = CMPcaddr(V1089);          {object V979 = CMPcaddr(V978);
6599          VMR92(V1090)}          VMR89(V979)}
6600          base[0]=base[0];          base[0]=base[0];
6601          return Cnil;          return Cnil;
6602  }  }
6603  /*      local entry for function EARLY-ADD-NAMED-METHOD */  /*      local entry for function EARLY-ADD-NAMED-METHOD */
6604    
6605  static object LI105(object V1094,object V1093,object V1092,object V1091,object first,...)  static object LI101(object V983,object V982,object V981,object V980,object first,...)
6606  {        {      
6607          va_list ap;          va_list ap;
6608          int narg = VFUN_NARGS; VMB93 VMS93 VMV93          int narg = VFUN_NARGS; VMB90 VMS90 VMV90
6609          {object V1095;          {object V984;
6610          register object V1096;          register object V985;
6611          register object V1097;          register object V986;
6612          object V1098;          object V987;
6613          object V1099;          object V988;
6614          va_start(ap,first);          va_start(ap,first);
6615          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
6616          V1095= V1094;          V984= V983;
6617          V1096= V1093;          V985= V982;
6618          V1097= V1092;          V986= V981;
6619          V1098= V1091;          V987= V980;
6620          narg= narg - 4;          narg= narg - 4;
6621          V1100 = list_vector_new(narg,first,ap);          V989 = list_vector_new(narg,first,ap);
6622          V1099= V1100;          V988= V989;
6623          {object V1101;          {object V990;
6624          object V1102;          object V991;
6625          object V1103;          object V992;
6626          base[3]= (V1095);          base[3]= (V984);
6627          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6628          (void) (*Lnk352)();          (void) (*Lnk367)();
6629          vs_top=sup;          vs_top=sup;
6630          V1101= vs_base[0];          V990= vs_base[0];
6631          {register object V1104;          {register object V993;
6632          register object V1105;          register object V994;
6633          if(type_of(V1101)==t_structure){          if(type_of(V990)==t_structure){
6634          goto T2174;}          goto T2084;}
6635          goto T2172;          goto T2082;
6636          goto T2174;          goto T2084;
6637  T2174:;  T2084:;
6638          if(!(((V1101)->str.str_def)==(VV[315]))){          if(!(((V990)->str.str_def)==(VV[331]))){
6639          goto T2172;}          goto T2082;}
6640          V1106= STREF(object,(V1101),4);          V995= STREF(object,(V990),4);
6641          goto T2170;          goto T2080;
6642          goto T2172;          goto T2082;
6643  T2172:;{object V1108;  T2082:;{object V997;
6644          V1108= (VV[146]->s.s_dbind);          V997= (VV[151]->s.s_dbind);
6645          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
6646          base[6]= (V1101);          base[6]= (V990);
6647          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6648          (void) (*Lnk390)();          (void) (*Lnk407)();
6649          vs_top=sup;          vs_top=sup;
6650          V1109= vs_base[0];          V998= vs_base[0];
6651          if(!((V1108)==(CMPcar(V1109)))){          if(!((V997)==(CMPcar(V998)))){
6652          goto T2177;}}          goto T2087;}}
6653          V1106= CMPcar(((V1101))->cc.cc_turbo[12]);          V995= CMPcar(((V990))->cc.cc_turbo[12]);
6654          goto T2170;          goto T2080;
6655          goto T2177;          goto T2087;
6656  T2177:;  T2087:;
6657          base[5]= VV[147];          base[5]= VV[152];
6658          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6659          Lerror();          Lerror();
6660          vs_top=sup;          vs_top=sup;
6661          V1106= vs_base[0];          V995= vs_base[0];
6662          goto T2170;          goto T2080;
6663  T2170:;  T2080:;
6664          V1110 = (VV[236]->s.s_dbind);          V993= (V995)->v.v_self[fix((VV[249]->s.s_dbind))];
6665          V1104= (V1106)->v.v_self[fix(V1110)];          V994= CMPcar((V993));
6666          V1105= CMPcar((V1104));          goto T2095;
6667          goto T2185;  T2095:;
6668  T2185:;          if(!(((V993))==Cnil)){
6669          if(!(((V1104))==Cnil)){          goto T2096;}
6670          goto T2186;}          V991= Cnil;
6671          V1102= Cnil;          goto T2078;
6672          goto T2168;          goto T2096;
6673          goto T2186;  T2096:;
6674  T2186:;          V999= (VFUN_NARGS=1,(*(LnkLI449))((V994)));
6675          V1111= (VFUN_NARGS=1,(*(LnkLI434))((V1105)));          if(!(equal(/* INLINE-ARGS */V999,(V986)))){
6676          V1112 = (V1097);          goto T2100;}
6677          if(!(equal(/* INLINE-ARGS */V1111,V1112))){          V1000= (*(LnkLI477))((V994));
6678          goto T2190;}          if(!(equal(/* INLINE-ARGS */V1000,(V985)))){
6679          V1113= (*(LnkLI460))((V1105));          goto T2100;}
6680          V1114 = (V1096);          V991= (V994);
6681          if(!(equal(/* INLINE-ARGS */V1113,V1114))){          goto T2078;
6682          goto T2190;}          goto T2100;
6683          V1102= (V1105);  T2100:;
6684          goto T2168;          V993= CMPcdr((V993));
6685          goto T2190;          V994= CMPcar((V993));
6686  T2190:;          goto T2095;}
6687          V1104= CMPcdr((V1104));          goto T2078;
6688          V1105= CMPcar((V1104));  T2078:;
6689          goto T2185;}          base[3]= VV[24];
6690          goto T2168;          base[4]= (V985);
6691  T2168:;          base[5]= (V987);
6692          base[3]= VV[20];          base[6]= (V986);
6693          base[4]= (V1096);          base[7]= (V988);
         base[5]= (V1098);  
         base[6]= (V1097);  
         base[7]= (V1099);  
6694          base[8]= Cnil;          base[8]= Cnil;
6695          V1103= simple_symlispcall(VV[461],base+3,6);          V992= simple_symlispcall(VV[478],base+3,6);
6696          if(((V1102))==Cnil){          if(((V991))==Cnil){
6697          goto T2207;}          goto T2117;}
6698          base[3]= (V1101);          base[3]= (V990);
6699          base[4]= (V1102);          base[4]= (V991);
6700          (void)simple_symlispcall(VV[462],base+3,2);          (void)simple_symlispcall(VV[479],base+3,2);
6701          goto T2207;          goto T2117;
6702  T2207:;  T2117:;
6703          base[3]= (V1101);          base[3]= (V990);
6704          base[4]= (V1103);          base[4]= (V992);
6705          {object V1115 = simple_symlispcall(VV[463],base+3,2);          {object V1001 = simple_symlispcall(VV[480],base+3,2);
6706          VMR93(V1115)}}          VMR90(V1001)}}
6707          va_end(ap);          va_end(ap);
6708          base[0]=base[0];          base[0]=base[0];
6709          return Cnil;}          return Cnil;}
6710          }          }
6711  /*      local entry for function ADD-METHOD     */  /*      local entry for function ADD-METHOD     */
6712    
6713  static object LI106(V1118,V1119)  static object LI102(V1004,V1005)
6714    
6715  register object V1118;register object V1119;  register object V1004;register object V1005;
6716  {        VMB94 VMS94 VMV94  {        VMB91 VMS91 VMV91
6717          goto TTL;          goto TTL;
6718  TTL:;{object V1120;  TTL:;{object V1006;
6719          V1120= (VV[146]->s.s_dbind);          V1006= (VV[151]->s.s_dbind);
6720          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6721          base[1]= (V1118);          base[1]= (V1004);
6722          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6723          (void) (*Lnk390)();          (void) (*Lnk407)();
6724          vs_top=sup;          vs_top=sup;
6725          V1121= vs_base[0];          V1007= vs_base[0];
6726          if((V1120)==(CMPcar(V1121))){          if((V1006)==(CMPcar(V1007))){
6727          goto T2214;}}          goto T2124;}}
6728          base[0]= VV[316];          base[0]= VV[332];
6729          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6730          Lerror();          Lerror();
6731          vs_top=sup;          vs_top=sup;
6732          goto T2214;          goto T2124;
6733  T2214:;  T2124:;
6734          if(!(type_of((V1119))==t_cons||((V1119))==Cnil)){          if(!(type_of((V1005))==t_cons||((V1005))==Cnil)){
6735          goto T2222;}          goto T2132;}
6736          if((CMPcar((V1119)))==(VV[306])){          if((CMPcar((V1005)))==(VV[322])){
6737          goto T2221;}          goto T2131;}
6738          goto T2222;          goto T2132;
6739  T2222:;  T2132:;
6740          base[0]= VV[317];          base[0]= VV[333];
6741          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6742          Lerror();          Lerror();
6743          vs_top=sup;          vs_top=sup;
6744          goto T2221;          goto T2131;
6745  T2221:;  T2131:;
6746          {object V1123;          {object V1009;
6747          object V1124;          object V1010;
6748          object V1125;          object V1011;
6749          if(type_of(V1118)==t_structure){          if(type_of(V1004)==t_structure){
6750          goto T2232;}          goto T2142;}
6751          goto T2230;          goto T2140;
6752          goto T2232;          goto T2142;
6753  T2232:;  T2142:;
6754          if(!(((V1118)->str.str_def)==(VV[318]))){          if(!(((V1004)->str.str_def)==(VV[334]))){
6755          goto T2230;}          goto T2140;}
6756          V1123= STREF(object,(V1118),4);          V1009= STREF(object,(V1004),4);
6757          goto T2228;          goto T2138;
6758          goto T2230;          goto T2140;
6759  T2230:;{object V1127;  T2140:;{object V1013;
6760          V1127= (VV[146]->s.s_dbind);          V1013= (VV[151]->s.s_dbind);
6761          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6762          base[3]= (V1118);          base[3]= (V1004);
6763          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6764          (void) (*Lnk390)();          (void) (*Lnk407)();
6765          vs_top=sup;          vs_top=sup;
6766          V1128= vs_base[0];          V1014= vs_base[0];
6767          if(!((V1127)==(CMPcar(V1128)))){          if(!((V1013)==(CMPcar(V1014)))){
6768          goto T2235;}}          goto T2145;}}
6769          V1123= CMPcar(((V1118))->cc.cc_turbo[12]);          V1009= CMPcar(((V1004))->cc.cc_turbo[12]);
6770          goto T2228;          goto T2138;
6771          goto T2235;          goto T2145;
6772  T2235:;  T2145:;
6773          base[2]= VV[147];          base[2]= VV[152];
6774          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6775          Lerror();          Lerror();
6776          vs_top=sup;          vs_top=sup;
6777          V1123= vs_base[0];          V1009= vs_base[0];
6778          goto T2228;          goto T2138;
6779  T2228:;  T2138:;
6780          V1124= (VV[236]->s.s_dbind);          V1010= (VV[249]->s.s_dbind);
6781          V1125= make_cons(V1119,((V1123))->v.v_self[fix((V1124))]);          V1011= make_cons(V1005,((V1009))->v.v_self[fix((V1010))]);
6782          (void)((((V1123))->v.v_self[fix((V1124))]=((V1125))));}          (void)((((V1009))->v.v_self[fix((V1010))]=((V1011))));}
6783          (void)((VFUN_NARGS=3,(*(LnkLI449))((V1118),VV[319],(V1119))));          (void)((VFUN_NARGS=3,(*(LnkLI464))((V1004),VV[335],(V1005))));
6784          V1130= (*(LnkLI441))((V1118));          V1016= (*(LnkLI456))((V1004));
6785          V1131 = (VV[262]->s.s_dbind);          {register object x= /* INLINE-ARGS */V1016,V1015= (VV[275]->s.s_dbind);
6786          {register object x= /* INLINE-ARGS */V1130,V1129= V1131;          while(V1015!=Cnil)
6787          while(V1129!=Cnil)          if(equal(x,V1015->c.c_car->c.c_car) &&V1015->c.c_car != Cnil){
6788          if(equal(x,V1129->c.c_car->c.c_car) &&V1129->c.c_car != Cnil){          goto T2155;
6789          goto T2245;          }else V1015=V1015->c.c_cdr;}
6790          }else V1129=V1129->c.c_cdr;}          {object V1017 = (VFUN_NARGS=1,(*(LnkLI481))((V1004)));
6791          {object V1132 = (VFUN_NARGS=1,(*(LnkLI464))((V1118)));          VMR91(V1017)}
6792          VMR94(V1132)}          goto T2155;
6793          goto T2245;  T2155:;
6794  T2245:;          {object V1018 = Cnil;
6795          {object V1133 = Cnil;          VMR91(V1018)}
         VMR94(V1133)}  
6796          base[0]=base[0];          base[0]=base[0];
6797          return Cnil;          return Cnil;
6798  }  }
6799  /*      local entry for function REMOVE-METHOD  */  /*      local entry for function REMOVE-METHOD  */
6800    
6801  static object LI107(V1136,V1137)  static object LI103(V1021,V1022)
6802    
6803  register object V1136;object V1137;  register object V1021;object V1022;
6804  {        VMB95 VMS95 VMV95  {        VMB92 VMS92 VMV92
6805          goto TTL;          goto TTL;
6806  TTL:;{object V1138;  TTL:;{object V1023;
6807          V1138= (VV[146]->s.s_dbind);          V1023= (VV[151]->s.s_dbind);
6808          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6809          base[1]= (V1136);          base[1]= (V1021);
6810          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6811          (void) (*Lnk390)();          (void) (*Lnk407)();
6812          vs_top=sup;          vs_top=sup;
6813          V1139= vs_base[0];          V1024= vs_base[0];
6814          if((V1138)==(CMPcar(V1139))){          if((V1023)==(CMPcar(V1024))){
6815          goto T2247;}}          goto T2157;}}
6816          base[0]= VV[320];          base[0]= VV[336];
6817          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6818          Lerror();          Lerror();
6819          vs_top=sup;          vs_top=sup;
6820          goto T2247;          goto T2157;
6821  T2247:;  T2157:;
6822          if(!(type_of((V1137))==t_cons||((V1137))==Cnil)){          if(!(type_of((V1022))==t_cons||((V1022))==Cnil)){
6823          goto T2255;}          goto T2165;}
6824          if((CMPcar((V1137)))==(VV[306])){          if((CMPcar((V1022)))==(VV[322])){
6825          goto T2254;}          goto T2164;}
6826          goto T2255;          goto T2165;
6827  T2255:;  T2165:;
6828          base[0]= VV[321];          base[0]= VV[337];
6829          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6830          Lerror();          Lerror();
6831          vs_top=sup;          vs_top=sup;
6832          goto T2254;          goto T2164;
6833  T2254:;  T2164:;
6834          if(type_of(V1136)==t_structure){          if(type_of(V1021)==t_structure){
6835          goto T2265;}          goto T2175;}
6836          goto T2263;          goto T2173;
6837          goto T2265;          goto T2175;
6838  T2265:;  T2175:;
6839          if(!(((V1136)->str.str_def)==(VV[322]))){          if(!(((V1021)->str.str_def)==(VV[338]))){
6840          goto T2263;}          goto T2173;}
6841          V1140= STREF(object,(V1136),4);          V1025= STREF(object,(V1021),4);
6842          goto T2261;          goto T2171;
6843          goto T2263;          goto T2173;
6844  T2263:;{object V1142;  T2173:;{object V1027;
6845          V1142= (VV[146]->s.s_dbind);          V1027= (VV[151]->s.s_dbind);
6846          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6847          base[1]= (V1136);          base[1]= (V1021);
6848          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6849          (void) (*Lnk390)();          (void) (*Lnk407)();
6850          vs_top=sup;          vs_top=sup;
6851          V1143= vs_base[0];          V1028= vs_base[0];
6852          if(!((V1142)==(CMPcar(V1143)))){          if(!((V1027)==(CMPcar(V1028)))){
6853          goto T2268;}}          goto T2178;}}
6854          V1140= CMPcar(((V1136))->cc.cc_turbo[12]);          V1025= CMPcar(((V1021))->cc.cc_turbo[12]);
6855          goto T2261;          goto T2171;
6856          goto T2268;          goto T2178;
6857  T2268:;  T2178:;
6858          base[0]= VV[147];          base[0]= VV[152];
6859          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6860          Lerror();          Lerror();
6861          vs_top=sup;          vs_top=sup;
6862          V1140= vs_base[0];          V1025= vs_base[0];
6863          goto T2261;          goto T2171;
6864  T2261:;{object V1144;  T2171:;{object V1029;
6865          V1144= (VV[236]->s.s_dbind);          V1029= (VV[249]->s.s_dbind);
6866          base[0]= (V1137);          base[0]= (V1022);
6867          if(type_of(V1136)==t_structure){          if(type_of(V1021)==t_structure){
6868          goto T2281;}          goto T2191;}
6869          goto T2279;          goto T2189;
6870          goto T2281;          goto T2191;
6871  T2281:;  T2191:;
6872          if(!(((V1136)->str.str_def)==(VV[323]))){          if(!(((V1021)->str.str_def)==(VV[339]))){
6873          goto T2279;}          goto T2189;}
6874          V1146= STREF(object,(V1136),4);          V1031= STREF(object,(V1021),4);
6875          goto T2277;          goto T2187;
6876          goto T2279;          goto T2189;
6877  T2279:;{object V1148;  T2189:;{object V1033;
6878          V1148= (VV[146]->s.s_dbind);          V1033= (VV[151]->s.s_dbind);
6879          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6880          base[3]= (V1136);          base[3]= (V1021);
6881          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6882          (void) (*Lnk390)();          (void) (*Lnk407)();
6883          vs_top=sup;          vs_top=sup;
6884          V1149= vs_base[0];          V1034= vs_base[0];
6885          if(!((V1148)==(CMPcar(V1149)))){          if(!((V1033)==(CMPcar(V1034)))){
6886          goto T2284;}}          goto T2194;}}
6887          V1146= CMPcar(((V1136))->cc.cc_turbo[12]);          V1031= CMPcar(((V1021))->cc.cc_turbo[12]);
6888          goto T2277;          goto T2187;
6889          goto T2284;          goto T2194;
6890  T2284:;  T2194:;
6891          base[2]= VV[147];          base[2]= VV[152];
6892          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6893          Lerror();          Lerror();
6894          vs_top=sup;          vs_top=sup;
6895          V1146= vs_base[0];          V1031= vs_base[0];
6896          goto T2277;          goto T2187;
6897  T2277:;  T2187:;
6898          V1150 = (VV[236]->s.s_dbind);          base[1]= (V1031)->v.v_self[fix((VV[249]->s.s_dbind))];
         base[1]= (V1146)->v.v_self[fix(V1150)];  
6899          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6900          (void) (*Lnk376)();          (void) (*Lnk482)();
6901          vs_top=sup;          vs_top=sup;
6902          V1145= vs_base[0];          V1030= vs_base[0];
6903          (void)(((V1140)->v.v_self[fix(V1144)]=(V1145)));}          (void)(((V1025)->v.v_self[fix(V1029)]=(V1030)));}
6904          (void)((VFUN_NARGS=1,(*(LnkLI449))((V1136))));          (void)((VFUN_NARGS=1,(*(LnkLI464))((V1021))));
6905          V1152= (*(LnkLI441))((V1136));          V1036= (*(LnkLI456))((V1021));
6906          V1153 = (VV[262]->s.s_dbind);          {register object x= /* INLINE-ARGS */V1036,V1035= (VV[275]->s.s_dbind);
6907          {register object x= /* INLINE-ARGS */V1152,V1151= V1153;          while(V1035!=Cnil)
6908          while(V1151!=Cnil)          if(equal(x,V1035->c.c_car->c.c_car) &&V1035->c.c_car != Cnil){
6909          if(equal(x,V1151->c.c_car->c.c_car) &&V1151->c.c_car != Cnil){          goto T2202;
6910          goto T2292;          }else V1035=V1035->c.c_cdr;}
6911          }else V1151=V1151->c.c_cdr;}          {object V1037 = (VFUN_NARGS=1,(*(LnkLI481))((V1021)));
6912          {object V1154 = (VFUN_NARGS=1,(*(LnkLI464))((V1136)));          VMR92(V1037)}
6913          VMR95(V1154)}          goto T2202;
6914          goto T2292;  T2202:;
6915  T2292:;          {object V1038 = Cnil;
6916          {object V1155 = Cnil;          VMR92(V1038)}
         VMR95(V1155)}  
6917          base[0]=base[0];          base[0]=base[0];
6918          return Cnil;          return Cnil;
6919  }  }
6920  /*      local entry for function GET-METHOD     */  /*      local entry for function GET-METHOD     */
6921    
6922  static object LI108(object V1158,object V1157,object V1156,object first,...)  static object LI104(object V1041,object V1040,object V1039,object first,...)
6923  {        {      
6924          va_list ap;          va_list ap;
6925          int narg = VFUN_NARGS; VMB96 VMS96 VMV96          int narg = VFUN_NARGS; VMB93 VMS93 VMV93
6926          {object V1159;          {object V1042;
6927          register object V1160;          register object V1043;
6928          register object V1161;          register object V1044;
6929          object V1162;          object V1045;
6930          va_start(ap,first);          va_start(ap,first);
6931          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
6932          V1159= V1158;          V1042= V1041;
6933          V1160= V1157;          V1043= V1040;
6934          V1161= V1156;          V1044= V1039;
6935          narg = narg - 3;          narg = narg - 3;
6936          if (narg <= 0) goto T2294;          if (narg <= 0) goto T2204;
6937          else {          else {
6938          V1162= first;}          V1045= first;}
6939          --narg; goto T2295;          --narg; goto T2205;
6940          goto T2294;          goto T2204;
6941  T2294:;  T2204:;
6942          V1162= Ct;          V1045= Ct;
6943          goto T2295;          goto T2205;
6944  T2295:;  T2205:;
6945          if(((*(LnkLI438))((V1159)))==Cnil){          if(((*(LnkLI453))((V1042)))==Cnil){
6946          goto T2298;}{object V1163;          goto T2208;}{object V1046;
6947          {register object V1164;          {register object V1047;
6948          register object V1165;          register object V1048;
6949          if(type_of(V1159)==t_structure){          if(type_of(V1042)==t_structure){
6950          goto T2307;}          goto T2217;}
6951          goto T2305;          goto T2215;
6952          goto T2307;          goto T2217;
6953  T2307:;  T2217:;
6954          if(!(((V1159)->str.str_def)==(VV[324]))){          if(!(((V1042)->str.str_def)==(VV[340]))){
6955          goto T2305;}          goto T2215;}
6956          V1166= STREF(object,(V1159),4);          V1049= STREF(object,(V1042),4);
6957          goto T2303;          goto T2213;
6958          goto T2305;          goto T2215;
6959  T2305:;{object V1168;  T2215:;{object V1051;
6960          V1168= (VV[146]->s.s_dbind);          V1051= (VV[151]->s.s_dbind);
6961          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6962          base[3]= (V1159);          base[3]= (V1042);
6963          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6964          (void) (*Lnk390)();          (void) (*Lnk407)();
6965          vs_top=sup;          vs_top=sup;
6966          V1169= vs_base[0];          V1052= vs_base[0];
6967          if(!((V1168)==(CMPcar(V1169)))){          if(!((V1051)==(CMPcar(V1052)))){
6968          goto T2310;}}          goto T2220;}}
6969          V1166= CMPcar(((V1159))->cc.cc_turbo[12]);          V1049= CMPcar(((V1042))->cc.cc_turbo[12]);
6970          goto T2303;          goto T2213;
6971          goto T2310;          goto T2220;
6972  T2310:;  T2220:;
6973          base[2]= VV[147];          base[2]= VV[152];
6974          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6975          Lerror();          Lerror();
6976          vs_top=sup;          vs_top=sup;
6977          V1166= vs_base[0];          V1049= vs_base[0];
6978          goto T2303;          goto T2213;
6979  T2303:;  T2213:;
6980          V1170 = (VV[236]->s.s_dbind);          V1047= (V1049)->v.v_self[fix((VV[249]->s.s_dbind))];
6981          V1164= (V1166)->v.v_self[fix(V1170)];          V1048= CMPcar((V1047));
6982          V1165= CMPcar((V1164));          goto T2228;
6983          goto T2318;  T2228:;
6984  T2318:;          if(!(((V1047))==Cnil)){
6985          if(!(((V1164))==Cnil)){          goto T2229;}
6986          goto T2319;}          V1046= Cnil;
6987          V1163= Cnil;          goto T2211;
6988          goto T2301;          goto T2229;
6989          goto T2319;  T2229:;
6990  T2319:;          V1053= (VFUN_NARGS=2,(*(LnkLI449))((V1048),Cnil));
6991          V1171= (VFUN_NARGS=2,(*(LnkLI434))((V1165),Cnil));          if(equal(/* INLINE-ARGS */V1053,(V1044))){
6992          V1172 = (V1161);          goto T2235;}
6993          if(equal(/* INLINE-ARGS */V1171,V1172)){          V1054= (VFUN_NARGS=2,(*(LnkLI449))((V1048),Ct));
6994          goto T2325;}          if(!(equal(/* INLINE-ARGS */V1054,(V1044)))){
6995          V1173= (VFUN_NARGS=2,(*(LnkLI434))((V1165),Ct));          goto T2233;}
6996          V1174 = (V1161);          goto T2235;
6997          if(!(equal(/* INLINE-ARGS */V1173,V1174))){  T2235:;
6998          goto T2323;}          V1055= (*(LnkLI477))((V1048));
6999          goto T2325;          if(!(equal(/* INLINE-ARGS */V1055,(V1043)))){
7000  T2325:;          goto T2233;}
7001          V1175= (*(LnkLI460))((V1165));          V1046= (V1048);
7002          V1176 = (V1160);          goto T2211;
7003          if(!(equal(/* INLINE-ARGS */V1175,V1176))){          goto T2233;
7004          goto T2323;}  T2233:;
7005          V1163= (V1165);          V1047= CMPcdr((V1047));
7006          goto T2301;          V1048= CMPcar((V1047));
7007          goto T2323;          goto T2228;}
7008  T2323:;          goto T2211;
7009          V1164= CMPcdr((V1164));  T2211:;
7010          V1165= CMPcar((V1164));          if(V1046==Cnil)goto T2210;
7011          goto T2318;}          {object V1056 = V1046;
7012          goto T2301;          VMR93(V1056)}
7013  T2301:;          goto T2210;
7014          if(V1163==Cnil)goto T2300;  T2210:;}
7015          {object V1177 = V1163;          if(((V1045))==Cnil){
7016          VMR96(V1177)}          goto T2246;}
7017          goto T2300;          base[0]= VV[341];
 T2300:;}  
         if(((V1162))==Cnil){  
         goto T2336;}  
         base[0]= VV[325];  
7018          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7019          Lerror();          Lerror();
7020          vs_top=sup;          vs_top=sup;
7021          {object V1178 = vs_base[0];          {object V1057 = vs_base[0];
7022          VMR96(V1178)}          VMR93(V1057)}
7023          goto T2336;          goto T2246;
7024  T2336:;  T2246:;
7025          {object V1179 = Cnil;          {object V1058 = Cnil;
7026          VMR96(V1179)}          VMR93(V1058)}
7027          goto T2298;          goto T2208;
7028  T2298:;  T2208:;
7029          {object V1180 = (VFUN_NARGS=4,(*(LnkLI465))((V1159),(V1160),(V1161),(V1162)));          {object V1059 = (VFUN_NARGS=4,(*(LnkLI483))((V1042),(V1043),(V1044),(V1045)));
7030          VMR96(V1180)}          VMR93(V1059)}
7031          va_end(ap);          va_end(ap);
7032          base[0]=base[0];          base[0]=base[0];
7033          return Cnil;}          return Cnil;}
7034          }          }
7035  /*      local entry for function FIX-EARLY-GENERIC-FUNCTIONS    */  /*      local entry for function FIX-EARLY-GENERIC-FUNCTIONS    */
7036    
7037  static object LI109(object first,...)  static object LI105(object first,...)
7038  {        {      
7039          va_list ap;          va_list ap;
7040          int narg = VFUN_NARGS; VMB97 VMS97 VMV97          int narg = VFUN_NARGS; VMB94 VMS94 VMV94
7041          {object V1181;          {object V1060;
7042          va_start(ap,first);          va_start(ap,first);
7043          narg = narg - 0;          narg = narg - 0;
7044          if (narg <= 0) goto T2339;          if (narg <= 0) goto T2249;
7045          else {          else {
7046          V1181= first;}          V1060= first;}
7047          --narg; goto T2340;          --narg; goto T2250;
7048          goto T2339;          goto T2249;
7049  T2339:;  T2249:;
7050          V1181= (VV[326]->s.s_dbind);          V1060= (VV[342]->s.s_dbind);
7051          goto T2340;          goto T2250;
7052  T2340:;  T2250:;
7053          (VV[327]->s.s_dbind)= Ct;          {object V1061;
7054          {object V1182;          V1061= Cnil;
7055          V1182= Cnil;          {register object V1062;
7056          {register object V1183;          register object V1063;
7057          register object V1184;          V1062= (VV[278]->s.s_dbind);
7058          V1183= (VV[265]->s.s_dbind);          V1063= CMPcar((V1062));
7059          V1184= CMPcar((V1183));          goto T2256;
7060          goto T2348;  T2256:;
7061  T2348:;          if(!(((V1062))==Cnil)){
7062          if(!(((V1183))==Cnil)){          goto T2257;}
7063          goto T2349;}          goto T2252;
7064          goto T2344;          goto T2257;
7065          goto T2349;  T2257:;
7066  T2349:;          base[1]= (VV[484]->s.s_gfdef);
7067          base[1]= (VV[466]->s.s_gfdef);          {object V1065;
7068          {object V1186;          V1065= (*(LnkLI362))((V1063));
7069          V1186= (*(LnkLI347))((V1184));          if(type_of((V1065))==t_structure){
7070          if(type_of((V1186))==t_structure){          goto T2271;}
7071          goto T2363;}          goto T2268;
7072          goto T2360;          goto T2271;
7073          goto T2363;  T2271:;
7074  T2363:;          if(!((((V1065))->str.str_def)==(VV[343]))){
7075          if(!((((V1186))->str.str_def)==(VV[328]))){          goto T2268;}}
7076          goto T2360;}}          V1066= (*(LnkLI362))((V1063));
7077          V1187= (*(LnkLI347))((V1184));          V1064= STREF(object,/* INLINE-ARGS */V1066,4);
7078          V1185= STREF(object,/* INLINE-ARGS */V1187,4);          goto T2266;
7079          goto T2358;          goto T2268;
7080          goto T2360;  T2268:;{object V1067;
7081  T2360:;{object V1188;          V1067= (VV[151]->s.s_dbind);
         V1188= (VV[146]->s.s_dbind);  
7082          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7083          base[4]= (*(LnkLI347))((V1184));          base[4]= (*(LnkLI362))((V1063));
7084          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7085          (void) (*Lnk390)();          (void) (*Lnk407)();
7086          vs_top=sup;          vs_top=sup;
7087          V1189= vs_base[0];          V1068= vs_base[0];
7088          if(!((V1188)==(CMPcar(V1189)))){          if(!((V1067)==(CMPcar(V1068)))){
7089          goto T2366;}}          goto T2274;}}
7090          V1190= (*(LnkLI347))((V1184));          V1069= (*(LnkLI362))((V1063));
7091          V1185= CMPcar((/* INLINE-ARGS */V1190)->cc.cc_turbo[12]);          V1064= CMPcar((/* INLINE-ARGS */V1069)->cc.cc_turbo[12]);
7092          goto T2358;          goto T2266;
7093          goto T2366;          goto T2274;
7094  T2366:;  T2274:;
7095          base[3]= VV[147];          base[3]= VV[152];
7096          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7097          Lerror();          Lerror();
7098          vs_top=sup;          vs_top=sup;
7099          V1185= vs_base[0];          V1064= vs_base[0];
7100          goto T2358;          goto T2266;
7101  T2358:;  T2266:;
7102          V1191 = (VV[236]->s.s_dbind);          base[2]= (V1064)->v.v_self[fix((VV[249]->s.s_dbind))];
         base[2]= (V1185)->v.v_self[fix(V1191)];  
7103          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7104          (void) (*Lnk366)();          (void) (*Lnk381)();
7105          vs_top=sup;          vs_top=sup;
7106          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7107          goto T2353;}          goto T2261;}
7108          V1182= make_cons(V1184,(V1182));          V1061= make_cons(V1063,(V1061));
7109          goto T2353;          goto T2261;
7110  T2353:;  T2261:;
7111          V1183= CMPcdr((V1183));          V1062= CMPcdr((V1062));
7112          V1184= CMPcar((V1183));          V1063= CMPcar((V1062));
7113          goto T2348;}          goto T2256;}
7114          goto T2344;          goto T2252;
7115  T2344:;  T2252:;
7116          {register object V1193;          {register object V1071;
7117          object V1194;          object V1072;
7118          V1193= nconc((V1182),VV[329]);          V1071= nconc((V1061),VV[344]);
7119          V1194= CMPcar((V1193));          V1072= CMPcar((V1071));
7120          goto T2382;          goto T2290;
7121  T2382:;  T2290:;
7122          if(!(((V1193))==Cnil)){          if(!(((V1071))==Cnil)){
7123          goto T2383;}          goto T2291;}
7124          goto T2378;          goto T2286;
7125          goto T2383;          goto T2291;
7126  T2383:;  T2291:;
7127          V1195 = (V1194);          base[2]= (V1072);
7128          base[2]= (V1194);          base[3]= (VV[278]->s.s_dbind);
7129          base[3]= (VV[265]->s.s_dbind);          base[4]= VV[279];
7130          base[4]= VV[266];          base[5]= (VV[255]->s.s_gfdef);
         base[5]= (VV[242]->s.s_gfdef);  
7131          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7132          (void) (*Lnk467)();          (void) (*Lnk485)();
7133          vs_top=sup;          vs_top=sup;
7134          V1196= vs_base[0];          V1073= vs_base[0];
7135          (VV[265]->s.s_dbind)= make_cons(V1195,V1196);          (VV[278]->s.s_dbind)= make_cons((V1072),V1073);
7136          V1193= CMPcdr((V1193));          V1071= CMPcdr((V1071));
7137          V1194= CMPcar((V1193));          V1072= CMPcar((V1071));
7138          goto T2382;}          goto T2290;}
7139          goto T2378;          goto T2286;
7140  T2378:;  T2286:;
7141          {register object V1197;          {register object V1074;
7142          object V1198;          object V1075;
7143          V1197= (VV[265]->s.s_dbind);          V1074= (VV[278]->s.s_dbind);
7144          V1198= CMPcar((V1197));          V1075= CMPcar((V1074));
7145          goto T2403;          goto T2311;
7146  T2403:;  T2311:;
7147          if(!(((V1197))==Cnil)){          if(!(((V1074))==Cnil)){
7148          goto T2404;}          goto T2312;}
7149          goto T2399;          goto T2307;
7150          goto T2404;          goto T2312;
7151  T2404:;  T2312:;
7152          if(((V1181))==Cnil){          if(((V1060))==Cnil){
7153          goto T2408;}          goto T2316;}
7154          base[1]= Ct;          base[1]= Ct;
7155          base[2]= VV[330];          base[2]= VV[345];
7156          base[3]= (V1198);          base[3]= (V1075);
7157          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
7158          Lformat();          Lformat();
7159          vs_top=sup;          vs_top=sup;
7160          goto T2408;          goto T2316;
7161  T2408:;  T2316:;
7162          {register object V1199;          {register object V1076;
7163          object V1200;          object V1077;
7164          V1199= (*(LnkLI347))((V1198));          V1076= (*(LnkLI362))((V1075));
7165          if(type_of(V1199)==t_structure){          if(type_of(V1076)==t_structure){
7166          goto T2422;}          goto T2330;}
7167          goto T2420;          goto T2328;
7168          goto T2422;          goto T2330;
7169  T2422:;  T2330:;
7170          if(!(((V1199)->str.str_def)==(VV[331]))){          if(!(((V1076)->str.str_def)==(VV[346]))){
7171          goto T2420;}          goto T2328;}
7172          V1203= STREF(object,(V1199),4);          V1080= STREF(object,(V1076),4);
7173          goto T2418;          goto T2326;
7174          goto T2420;          goto T2328;
7175  T2420:;{object V1205;  T2328:;{object V1082;
7176          V1205= (VV[146]->s.s_dbind);          V1082= (VV[151]->s.s_dbind);
7177          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
7178          base[5]= (V1199);          base[5]= (V1076);
7179          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7180          (void) (*Lnk390)();          (void) (*Lnk407)();
7181          vs_top=sup;          vs_top=sup;
7182          V1206= vs_base[0];          V1083= vs_base[0];
7183          if(!((V1205)==(CMPcar(V1206)))){          if(!((V1082)==(CMPcar(V1083)))){
7184          goto T2425;}}          goto T2333;}}
7185          V1203= CMPcar(((V1199))->cc.cc_turbo[12]);          V1080= CMPcar(((V1076))->cc.cc_turbo[12]);
7186          goto T2418;          goto T2326;
7187          goto T2425;          goto T2333;
7188  T2425:;  T2333:;
7189          base[4]= VV[147];          base[4]= VV[152];
7190          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7191          Lerror();          Lerror();
7192          vs_top=sup;          vs_top=sup;
7193          V1203= vs_base[0];          V1080= vs_base[0];
7194          goto T2418;          goto T2326;
7195  T2418:;  T2326:;
7196          V1207 = (VV[236]->s.s_dbind);          {object V1078;
7197          {object V1201;          object V1079= (V1080)->v.v_self[fix((VV[249]->s.s_dbind))];
7198          object V1202= (V1203)->v.v_self[fix(V1207)];          if(V1079==Cnil){
7199          if(V1202==Cnil){          V1077= Cnil;
7200          V1200= Cnil;          goto T2324;}
7201          goto T2416;}          base[3]=V1078=MMcons(Cnil,Cnil);
7202          base[3]=V1201=MMcons(Cnil,Cnil);          goto T2325;
7203          goto T2417;  T2325:;
7204  T2417:;          {object V1085;
7205          {object V1209;          base[5]= (V1079->c.c_car);
         base[5]= (V1202->c.c_car);  
7206          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7207          (void) (*Lnk458)();          (void) (*Lnk475)();
7208          vs_top=sup;          vs_top=sup;
7209          base[4]= vs_base[0];          base[4]= vs_base[0];
7210          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7211          Lcopy_list();          Lcopy_list();
7212          vs_top=sup;          vs_top=sup;
7213          V1209= vs_base[0];          V1085= vs_base[0];
7214          {object V1211;          {object V1087;
7215          V1211= (VFUN_NARGS=2,(*(LnkLI434))((V1202->c.c_car),Ct));          V1087= (VFUN_NARGS=2,(*(LnkLI449))((V1079->c.c_car),Ct));
7216          (CMPcdddr(V1209))->c.c_car = (V1211);          (CMPcdddr(V1085))->c.c_car = (V1087);
7217          (void)(CMPcdddr(V1209));}          (void)(CMPcdddr(V1085));}
7218          {object V1212;          {object V1088;
7219          V1212= (V1209);          V1088= (V1085);
7220           vs_top=base+4;           vs_top=base+4;
7221           while(V1212!=Cnil)           while(V1088!=Cnil)
7222           {vs_push((V1212)->c.c_car);V1212=(V1212)->c.c_cdr;}           {vs_push((V1088)->c.c_car);V1088=(V1088)->c.c_cdr;}
7223          vs_base=base+4;}          vs_base=base+4;}
7224          (void) (*Lnk468)();          (void) (*Lnk486)();
7225          vs_top=sup;          vs_top=sup;
7226          (V1201->c.c_car)= vs_base[0];}          (V1078->c.c_car)= vs_base[0];}
7227          if((V1202=MMcdr(V1202))==Cnil){          if((V1079=MMcdr(V1079))==Cnil){
7228          V1200= base[3];          V1077= base[3];
7229          goto T2416;}          goto T2324;}
7230          V1201=MMcdr(V1201)=MMcons(Cnil,Cnil);          V1078=MMcdr(V1078)=MMcons(Cnil,Cnil);
7231          goto T2417;}          goto T2325;}
7232          goto T2416;          goto T2324;
7233  T2416:;  T2324:;
7234          {object V1214;          {object V1090;
7235          V1214= (VV[332]->s.s_dbind);          V1090= (VV[347]->s.s_dbind);
7236          V1215= ({object _tmp=get(VV[358],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[358])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[358])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1091= ({object _tmp=get(VV[373],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[373])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[373])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1216 = (V1214);  
         V1217 = V1199;  
7237          (void)((          (void)((
7238          V1218 = V1215,          V1092 = V1091,
7239          (type_of(V1218) == t_sfun ?(*((V1218)->sfn.sfn_self)):          (type_of(V1092) == t_sfun ?(*((V1092)->sfn.sfn_self)):
7240          (fcall.argd=2,type_of(V1218)==t_vfun) ?          (fcall.argd=2,type_of(V1092)==t_vfun) ?
7241          (*((V1218)->sfn.sfn_self)):          (*((V1092)->sfn.sfn_self)):
7242          (fcall.fun=(V1218),fcalln))(V1216,V1217)));}          (fcall.fun=(V1092),fcalln))((V1090),V1076)));}
7243          {object V1220;          {object V1094;
7244          V1220= (VV[253]->s.s_dbind);          V1094= (VV[266]->s.s_dbind);
7245          V1221= ({object _tmp=get(VV[436],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[436])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[436])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1095= ({object _tmp=get(VV[451],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[451])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[451])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1222 = (V1220);  
         V1223 = V1199;  
7246          (void)((          (void)((
7247          V1224 = V1221,          V1096 = V1095,
7248          (type_of(V1224) == t_sfun ?(*((V1224)->sfn.sfn_self)):          (type_of(V1096) == t_sfun ?(*((V1096)->sfn.sfn_self)):
7249          (fcall.argd=2,type_of(V1224)==t_vfun) ?          (fcall.argd=2,type_of(V1096)==t_vfun) ?
7250          (*((V1224)->sfn.sfn_self)):          (*((V1096)->sfn.sfn_self)):
7251          (fcall.fun=(V1224),fcalln))(V1222,V1223)));}          (fcall.fun=(V1096),fcalln))((V1094),V1076)));}
7252          (void)((*(LnkLI469))((V1199),(V1200)));}          (void)((*(LnkLI487))((V1076),(V1077)));}
7253          V1197= CMPcdr((V1197));          V1074= CMPcdr((V1074));
7254          V1198= CMPcar((V1197));          V1075= CMPcar((V1074));
7255          goto T2403;}          goto T2311;}
7256          goto T2399;          goto T2307;
7257  T2399:;  T2307:;
7258          {register object V1225;          {register object V1097;
7259          object V1226;          object V1098;
7260          V1225= (VV[333]->s.s_dbind);          V1097= (VV[348]->s.s_dbind);
7261          V1226= CMPcar((V1225));          V1098= CMPcar((V1097));
7262          goto T2454;          goto T2362;
7263  T2454:;  T2362:;
7264          if(!(((V1225))==Cnil)){          if(!(((V1097))==Cnil)){
7265          goto T2455;}          goto T2363;}
7266          goto T2450;          goto T2358;
7267          goto T2455;          goto T2363;
7268  T2455:;  T2363:;
7269          {object V1227;          {object V1099;
7270          object V1228;          object V1100;
7271          V1227= CMPcar((V1226));          V1099= CMPcar((V1098));
7272          base[3]= CMPcaddr((V1226));          base[3]= CMPcaddr((V1098));
7273          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7274          Lsymbol_function();          Lsymbol_function();
7275          vs_top=sup;          vs_top=sup;
7276          V1228= vs_base[0];          V1100= vs_base[0];
7277          V1229= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1101= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1230 = (V1228);  
         V1231 = (V1227);  
7278          (void)((          (void)((
7279          V1232 = V1229,          V1102 = V1101,
7280          (type_of(V1232) == t_sfun ?(*((V1232)->sfn.sfn_self)):          (type_of(V1102) == t_sfun ?(*((V1102)->sfn.sfn_self)):
7281          (fcall.argd=2,type_of(V1232)==t_vfun) ?          (fcall.argd=2,type_of(V1102)==t_vfun) ?
7282          (*((V1232)->sfn.sfn_self)):          (*((V1102)->sfn.sfn_self)):
7283          (fcall.fun=(V1232),fcalln))(V1230,V1231)));}          (fcall.fun=(V1102),fcalln))((V1100),(V1099))));}
7284          V1225= CMPcdr((V1225));          V1097= CMPcdr((V1097));
7285          V1226= CMPcar((V1225));          V1098= CMPcar((V1097));
7286          goto T2454;}          goto T2362;}
7287          goto T2450;          goto T2358;
7288  T2450:;  T2358:;
7289          {register object V1233;          {register object V1103;
7290          object V1234;          object V1104;
7291          V1233= (VV[262]->s.s_dbind);          V1103= (VV[275]->s.s_dbind);
7292          V1234= CMPcar((V1233));          V1104= CMPcar((V1103));
7293          goto T2472;          goto T2380;
7294  T2472:;  T2380:;
7295          if(!(((V1233))==Cnil)){          if(!(((V1103))==Cnil)){
7296          goto T2473;}          goto T2381;}
7297          {object V1235 = Cnil;          {object V1105 = Cnil;
7298          VMR97(V1235)}          VMR94(V1105)}
7299          goto T2473;          goto T2381;
7300  T2473:;  T2381:;
7301          {object V1236;          {object V1106;
7302          object V1237;          object V1107;
7303          object V1238;          object V1108;
7304          V1236= CMPcar((V1234));          V1106= CMPcar((V1104));
7305          V1237= (*(LnkLI347))((V1236));          V1107= (*(LnkLI362))((V1106));
7306          {object V1239;          {object V1109;
7307          object V1240= CMPcdr((V1234));          object V1110= CMPcdr((V1104));
7308          if(V1240==Cnil){          if(V1110==Cnil){
7309          V1238= Cnil;          V1108= Cnil;
7310          goto T2480;}          goto T2388;}
7311          base[4]=V1239=MMcons(Cnil,Cnil);          base[4]=V1109=MMcons(Cnil,Cnil);
7312          goto T2481;          goto T2389;
7313  T2481:;  T2389:;
7314          {object V1242;          {object V1112;
7315          object V1243;          object V1113;
7316          object V1244;          object V1114;
7317          object V1245;          object V1115;
7318          object V1246;          object V1116;
7319          V1242= CMPcar((V1240->c.c_car));          V1112= CMPcar((V1110->c.c_car));
7320          V1243= CMPcadr((V1240->c.c_car));          V1113= CMPcadr((V1110->c.c_car));
7321          V1244= CMPcaddr((V1240->c.c_car));          V1114= CMPcaddr((V1110->c.c_car));
7322          if((V1244)!=Cnil){          if((V1114)!=Cnil){
7323          V1245= (V1244);          V1115= (V1114);
7324          goto T2486;}          goto T2394;}
7325          V1245= (V1236);          V1115= (V1106);
7326          goto T2486;          goto T2394;
7327  T2486:;  T2394:;
7328          base[11]= (V1245);          base[11]= (V1115);
7329          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
7330          Lsymbol_function();          Lsymbol_function();
7331          vs_top=sup;          vs_top=sup;
7332          base[9]= vs_base[0];          base[9]= vs_base[0];
7333          base[9]=MMcons(base[9],Cnil);          base[9]=MMcons(base[9],Cnil);
7334          base[11]=          base[11]=
7335          make_cclosure_new(LC138,Cnil,base[9],Cdata);          make_cclosure_new(LC133,Cnil,base[9],Cdata);
7336          base[12]= list(2,VV[164],(V1245));          base[12]= list(2,VV[173],(V1115));
7337          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
7338          (void) (*Lnk346)();          (void) (*Lnk361)();
7339          vs_top=sup;          vs_top=sup;
7340          V1247= vs_base[0];          V1117= vs_base[0];
7341          V1246= list(2,VV[35],V1247);          V1116= list(2,VV[39],V1117);
7342          base[11]= VV[20];          base[11]= VV[24];
7343          base[12]= Cnil;          base[12]= Cnil;
7344          base[13]= (V1242);          base[13]= (V1112);
7345          base[14]= (V1243);          base[14]= (V1113);
7346          base[15]= (V1246);          base[15]= (V1116);
7347          base[16]= Cnil;          base[16]= Cnil;
7348          (V1239->c.c_car)= simple_symlispcall(VV[461],base+11,6);}          (V1109->c.c_car)= simple_symlispcall(VV[478],base+11,6);}
7349          if((V1240=MMcdr(V1240))==Cnil){          if((V1110=MMcdr(V1110))==Cnil){
7350          V1238= base[4];          V1108= base[4];
7351          goto T2480;}          goto T2388;}
7352          V1239=MMcdr(V1239)=MMcons(Cnil,Cnil);          V1109=MMcdr(V1109)=MMcons(Cnil,Cnil);
7353          goto T2481;}          goto T2389;}
7354          goto T2480;          goto T2388;
7355  T2480:;  T2388:;
7356          {object V1249;          {object V1119;
7357          V1249= (VV[332]->s.s_dbind);          V1119= (VV[347]->s.s_dbind);
7358          V1250= ({object _tmp=get(VV[358],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[358])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[358])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1120= ({object _tmp=get(VV[373],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[373])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[373])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1251 = (V1249);  
         V1252 = V1237;  
7359          (void)((          (void)((
7360          V1253 = V1250,          V1121 = V1120,
7361          (type_of(V1253) == t_sfun ?(*((V1253)->sfn.sfn_self)):          (type_of(V1121) == t_sfun ?(*((V1121)->sfn.sfn_self)):
7362          (fcall.argd=2,type_of(V1253)==t_vfun) ?          (fcall.argd=2,type_of(V1121)==t_vfun) ?
7363          (*((V1253)->sfn.sfn_self)):          (*((V1121)->sfn.sfn_self)):
7364          (fcall.fun=(V1253),fcalln))(V1251,V1252)));}          (fcall.fun=(V1121),fcalln))((V1119),V1107)));}
7365          {object V1255;          {object V1123;
7366          V1255= (VV[253]->s.s_dbind);          V1123= (VV[266]->s.s_dbind);
7367          V1256= ({object _tmp=get(VV[436],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[436])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[436])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1124= ({object _tmp=get(VV[451],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[451])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[451])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1257 = (V1255);  
         V1258 = V1237;  
7368          (void)((          (void)((
7369          V1259 = V1256,          V1125 = V1124,
7370          (type_of(V1259) == t_sfun ?(*((V1259)->sfn.sfn_self)):          (type_of(V1125) == t_sfun ?(*((V1125)->sfn.sfn_self)):
7371          (fcall.argd=2,type_of(V1259)==t_vfun) ?          (fcall.argd=2,type_of(V1125)==t_vfun) ?
7372          (*((V1259)->sfn.sfn_self)):          (*((V1125)->sfn.sfn_self)):
7373          (fcall.fun=(V1259),fcalln))(V1257,V1258)));}          (fcall.fun=(V1125),fcalln))((V1123),V1107)));}
7374          (void)((*(LnkLI469))((V1237),(V1238)));}          (void)((*(LnkLI487))((V1107),(V1108)));}
7375          V1233= CMPcdr((V1233));          V1103= CMPcdr((V1103));
7376          V1234= CMPcar((V1233));          V1104= CMPcar((V1103));
7377          goto T2472;}}          goto T2380;}}
7378          va_end(ap);          va_end(ap);
7379          base[0]=base[0];          base[0]=base[0];
7380          return Cnil;}          return Cnil;}
7381          }          }
7382  /*      function definition for PARSE-DEFMETHOD */  /*      function definition for PARSE-DEFMETHOD */
7383    
7384  static void L110()  static void L106()
7385  {register object *base=vs_base;  {register object *base=vs_base;
7386          register object *sup=base+VM98; VC98          register object *sup=base+VM95; VC95
7387          vs_check;          vs_check;
7388          {register object V1260;          {register object V1126;
7389          check_arg(1);          check_arg(1);
7390          V1260=(base[0]);          V1126=(base[0]);
7391          vs_top=sup;          vs_top=sup;
7392          goto TTL;          goto TTL;
7393  TTL:;  TTL:;
7394          {object V1261;          {object V1127;
7395          register object V1262;          register object V1128;
7396          object V1263;          object V1129;
7397          {object V1264;          {object V1130;
7398          V1264= CMPcar((V1260));          V1130= CMPcar((V1126));
7399          V1260= CMPcdr((V1260));          V1126= CMPcdr((V1126));
7400          V1261= (V1264);}          V1127= (V1130);}
7401          V1262= Cnil;          V1128= Cnil;
7402          V1263= Cnil;          V1129= Cnil;
7403          goto T2516;          goto T2424;
7404  T2516:;  T2424:;
7405          if((CMPcar((V1260)))==Cnil){          if((CMPcar((V1126)))==Cnil){
7406          goto T2519;}          goto T2427;}
7407          if(!(type_of(CMPcar((V1260)))!=t_cons)){          if(!(type_of(CMPcar((V1126)))!=t_cons)){
7408          goto T2519;}          goto T2427;}
7409          {register object V1265;          {register object V1131;
7410          {register object V1266;          {register object V1132;
7411          V1266= CMPcar((V1260));          V1132= CMPcar((V1126));
7412          V1260= CMPcdr((V1260));          V1126= CMPcdr((V1126));
7413          V1265= (V1266);}          V1131= (V1132);}
7414          V1262= make_cons((V1265),(V1262));          V1128= make_cons((V1131),(V1128));
7415          goto T2517;}          goto T2425;}
7416          goto T2519;          goto T2427;
7417  T2519:;  T2427:;
7418          V1262= nreverse((V1262));          V1128= nreverse((V1128));
7419          goto T2514;          goto T2422;
7420          goto T2517;          goto T2425;
7421  T2517:;  T2425:;
7422          goto T2516;          goto T2424;
7423          goto T2514;          goto T2422;
7424  T2514:;  T2422:;
7425          {object V1267;          {object V1133;
7426          V1267= CMPcar((V1260));          V1133= CMPcar((V1126));
7427          V1260= CMPcdr((V1260));          V1126= CMPcdr((V1126));
7428          V1263= (V1267);}          V1129= (V1133);}
7429          base[1]= (V1261);          base[1]= (V1127);
7430          base[2]= (V1262);          base[2]= (V1128);
7431          base[3]= (V1263);          base[3]= (V1129);
7432          base[4]= (V1260);          base[4]= (V1126);
7433          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7434          return;}          return;}
7435          }          }
7436  }  }
7437  /*      local entry for function PARSE-SPECIALIZERS     */  /*      local entry for function PARSE-SPECIALIZERS     */
7438    
7439  static object LI111(V1269)  static object LI107(V1135)
7440    
7441  object V1269;  object V1135;
7442  {        VMB99 VMS99 VMV99  {        VMB96 VMS96 VMV96
7443          goto TTL;          goto TTL;
7444  TTL:;  TTL:;
7445          {object V1270;          {object V1136;
7446          object V1271= (V1269);          object V1137= (V1135);
7447          if(V1271==Cnil){          if(V1137==Cnil){
7448          {object V1272 = Cnil;          {object V1138 = Cnil;
7449          VMR99(V1272)}}          VMR96(V1138)}}
7450          base[0]=V1270=MMcons(Cnil,Cnil);          base[0]=V1136=MMcons(Cnil,Cnil);
7451          goto T2539;          goto T2447;
7452  T2539:;  T2447:;
7453          base[1]= (V1271->c.c_car);          base[1]= (V1137->c.c_car);
7454          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7455          L112(base);          L108(base);
7456          vs_top=sup;          vs_top=sup;
7457          (V1270->c.c_car)= vs_base[0];          (V1136->c.c_car)= vs_base[0];
7458          if((V1271=MMcdr(V1271))==Cnil){          if((V1137=MMcdr(V1137))==Cnil){
7459          {object V1273 = base[0];          {object V1139 = base[0];
7460          VMR99(V1273)}}          VMR96(V1139)}}
7461          V1270=MMcdr(V1270)=MMcons(Cnil,Cnil);          V1136=MMcdr(V1136)=MMcons(Cnil,Cnil);
7462          goto T2539;}          goto T2447;}
7463          base[0]=base[0];          base[0]=base[0];
7464          return Cnil;          return Cnil;
7465  }  }
7466  /*      local entry for function UNPARSE-SPECIALIZERS   */  /*      local entry for function UNPARSE-SPECIALIZERS   */
7467    
7468  static object LI113(V1275)  static object LI109(V1141)
7469    
7470  object V1275;  register object V1141;
7471  {        VMB100 VMS100 VMV100  {        VMB97 VMS97 VMV97
7472          goto TTL;          goto TTL;
7473  TTL:;  TTL:;
7474          if(!(type_of((V1275))==t_cons||((V1275))==Cnil)){          if(!(type_of((V1141))==t_cons||((V1141))==Cnil)){
7475          goto T2543;}          goto T2451;}
7476          {object V1276;          {object V1142;
7477          object V1277= (V1275);          object V1143= (V1141);
7478          if(V1277==Cnil){          if(V1143==Cnil){
7479          {object V1278 = Cnil;          {object V1144 = Cnil;
7480          VMR100(V1278)}}          VMR97(V1144)}}
7481          base[0]=V1276=MMcons(Cnil,Cnil);          base[0]=V1142=MMcons(Cnil,Cnil);
7482          goto T2545;          goto T2453;
7483  T2545:;  T2453:;
7484          base[1]= (V1277->c.c_car);          base[1]= (V1143->c.c_car);
7485          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7486          L114(base);          L110(base);
7487          vs_top=sup;          vs_top=sup;
7488          (V1276->c.c_car)= vs_base[0];          (V1142->c.c_car)= vs_base[0];
7489          if((V1277=MMcdr(V1277))==Cnil){          if((V1143=MMcdr(V1143))==Cnil){
7490          {object V1279 = base[0];          {object V1145 = base[0];
7491          VMR100(V1279)}}          VMR97(V1145)}}
7492          V1276=MMcdr(V1276)=MMcons(Cnil,Cnil);          V1142=MMcdr(V1142)=MMcons(Cnil,Cnil);
7493          goto T2545;}          goto T2453;}
7494          goto T2543;          goto T2451;
7495  T2543:;  T2451:;
7496          base[0]= (V1275);          base[0]= (V1141);
7497          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7498          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk448)(Lclptr448);
7499          vs_top=sup;          vs_top=sup;
7500          V1275= vs_base[0];          V1141= vs_base[0];
7501          goto TTL;          goto TTL;
7502          base[0]=base[0];          base[0]=base[0];
7503          return Cnil;          return Cnil;
7504  }  }
7505  /*      function definition for PARSE-METHOD-OR-SPEC    */  /*      function definition for PARSE-METHOD-OR-SPEC    */
7506    
7507  static void L115()  static void L111()
7508  {register object *base=vs_base;  {register object *base=vs_base;
7509          register object *sup=base+VM101; VC101          register object *sup=base+VM98; VC98
7510          vs_check;          vs_check;
7511          {object V1280;          {object V1146;
7512          object V1281;          object V1147;
7513          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7514          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7515          V1280=(base[0]);          V1146=(base[0]);
7516          vs_base=vs_base+1;          vs_base=vs_base+1;
7517          if(vs_base>=vs_top){vs_top=sup;goto T2551;}          if(vs_base>=vs_top){vs_top=sup;goto T2459;}
7518          V1281=(base[1]);          V1147=(base[1]);
7519          vs_top=sup;          vs_top=sup;
7520          goto T2552;          goto T2460;
7521          goto T2551;          goto T2459;
7522  T2551:;  T2459:;
7523          V1281= Ct;          V1147= Ct;
7524          goto T2552;          goto T2460;
7525  T2552:;  T2460:;
7526          {register object V1282;          {register object V1148;
7527          register object V1283;          register object V1149;
7528          object V1284;          object V1150;
7529          object V1285;          object V1151;
7530          V1282= Cnil;          V1148= Cnil;
7531          V1283= Cnil;          V1149= Cnil;
7532          V1284= Cnil;          V1150= Cnil;
7533          V1285= Cnil;          V1151= Cnil;
7534          base[2]= (V1280);          base[2]= (V1146);
7535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7536          (void) (*Lnk470)(Lclptr470);          (void) (*Lnk488)(Lclptr488);
7537          vs_top=sup;          vs_top=sup;
7538          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7539          goto T2556;}          goto T2464;}
7540          V1283= (V1280);          V1149= (V1146);
7541          base[2]= (V1283);          base[2]= (V1149);
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk471)(Lclptr471);  
         vs_top=sup;  
         V1282= vs_base[0];  
         if((V1282)==Cnil){  
         V1285= Cnil;  
         goto T2565;}  
         base[2]= (V1282);  
7542          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7543          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk397)(Lclptr397);
         vs_top=sup;  
         V1285= vs_base[0];  
         goto T2565;  
 T2565:;  
         if(((V1285))==Cnil){  
         goto T2569;}  
         V1286 = (V1285);  
         base[2]= (V1283);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk473)(Lclptr473);  
7544          vs_top=sup;          vs_top=sup;
7545          V1287= vs_base[0];          V1148= vs_base[0];
7546          base[2]= (V1283);          if((V1148)==Cnil){
7547            V1151= Cnil;
7548            goto T2473;}
7549            base[2]= (V1148);
7550          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7551          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk455)(Lclptr455);
7552          vs_top=sup;          vs_top=sup;
7553          V1288= vs_base[0];          V1151= vs_base[0];
7554          V1289= (*(LnkLI474))(V1288);          goto T2473;
7555          V1290= (*(LnkLI400))(V1286,V1287,/* INLINE-ARGS */V1289);  T2473:;
7556          V1284= (*(LnkLI472))(/* INLINE-ARGS */V1290);          if(((V1151))==Cnil){
7557          goto T2567;          goto T2477;}
7558          goto T2569;          base[2]= (V1149);
7559  T2569:;          vs_top=(vs_base=base+2)+1;
7560            (void) (*Lnk490)(Lclptr490);
7561            vs_top=sup;
7562            V1152= vs_base[0];
7563            base[2]= (V1149);
7564            vs_top=(vs_base=base+2)+1;
7565            (void) (*Lnk448)(Lclptr448);
7566            vs_top=sup;
7567            V1153= vs_base[0];
7568            V1154= (*(LnkLI491))(V1153);
7569            V1155= (*(LnkLI413))((V1151),V1152,/* INLINE-ARGS */V1154);
7570            V1150= (*(LnkLI489))(/* INLINE-ARGS */V1155);
7571            goto T2475;
7572            goto T2477;
7573    T2477:;
7574          base[3]= Cnil;          base[3]= Cnil;
7575          base[4]= VV[337];          base[4]= VV[352];
7576          base[5]= (V1283);          base[5]= (V1149);
7577          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7578          Lformat();          Lformat();
7579          vs_top=sup;          vs_top=sup;
# Line 7865  T2569:; Line 7581  T2569:;
7581          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7582          Lmake_symbol();          Lmake_symbol();
7583          vs_top=sup;          vs_top=sup;
7584          V1284= vs_base[0];          V1150= vs_base[0];
7585          goto T2567;          goto T2475;
7586  T2567:;  T2475:;
7587          goto T2554;          goto T2462;
7588          goto T2556;          goto T2464;
7589  T2556:;  T2464:;
7590          {object V1291;          {object V1156;
7591          object V1292;          object V1157;
7592          register object V1293;          register object V1158;
7593          base[2]= (V1280);          base[2]= (V1146);
7594          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7595          (void) (*Lnk353)();          (void) (*Lnk368)();
7596          if(vs_base>=vs_top){vs_top=sup;goto T2581;}          if(vs_base>=vs_top){vs_top=sup;goto T2489;}
7597          V1291= vs_base[0];          V1156= vs_base[0];
7598          vs_base++;          vs_base++;
7599          if(vs_base>=vs_top){vs_top=sup;goto T2582;}          if(vs_base>=vs_top){vs_top=sup;goto T2490;}
7600          V1292= vs_base[0];          V1157= vs_base[0];
7601          vs_base++;          vs_base++;
7602          if(vs_base>=vs_top){vs_top=sup;goto T2583;}          if(vs_base>=vs_top){vs_top=sup;goto T2491;}
7603          V1293= vs_base[0];          V1158= vs_base[0];
7604          vs_top=sup;          vs_top=sup;
7605          goto T2584;          goto T2492;
7606          goto T2581;          goto T2489;
7607  T2581:;  T2489:;
7608          V1291= Cnil;          V1156= Cnil;
7609          goto T2582;          goto T2490;
7610  T2582:;  T2490:;
7611          V1292= Cnil;          V1157= Cnil;
7612          goto T2583;          goto T2491;
7613  T2583:;  T2491:;
7614          V1293= Cnil;          V1158= Cnil;
7615          goto T2584;          goto T2492;
7616  T2584:;  T2492:;
7617          if((V1281)!=Cnil){          if((V1147)!=Cnil){
7618          if(((V1281))!=Cnil){          if(((V1147))!=Cnil){
7619          goto T2588;}          goto T2496;}
7620          goto T2589;}          goto T2497;}
7621          if(((*(LnkLI356))((V1291)))!=Cnil){          if(((*(LnkLI371))((V1156)))!=Cnil){
7622          goto T2588;}          goto T2496;}
7623          goto T2589;          goto T2497;
7624  T2589:;  T2497:;
7625          V1282= Cnil;          V1148= Cnil;
7626          goto T2587;          goto T2495;
7627          goto T2588;          goto T2496;
7628  T2588:;  T2496:;
7629          V1282= (*(LnkLI347))((V1291));          V1148= (*(LnkLI362))((V1156));
7630          goto T2587;          goto T2495;
7631  T2587:;  T2495:;
7632          if(((V1282))!=Cnil){          if(((V1148))!=Cnil){
7633          goto T2585;}          goto T2493;}
7634          goto T2554;          goto T2462;
7635          goto T2585;          goto T2493;
7636  T2585:;  T2493:;
7637          {object V1294;          {object V1159;
7638          base[2]= (V1282);          base[2]= (V1148);
7639          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7640          (void) (*Lnk475)(Lclptr475);          (void) (*Lnk492)(Lclptr492);
7641          vs_top=sup;          vs_top=sup;
7642          V1294= vs_base[0];          V1159= vs_base[0];
7643          V1295= (*(LnkLI457))((V1293));          V1160= (*(LnkLI474))((V1158));
7644          V1297 = CMPmake_fixnum((long)length((V1293)));          V1162 = CMPmake_fixnum((long)length((V1158)));
7645          base[2]= number_minus((V1294),V1297);          base[2]= number_minus((V1159),V1162);
7646          base[3]= VV[222];          base[3]= VV[235];
7647          base[4]= (VV[338]->s.s_dbind);          base[4]= (VV[353]->s.s_dbind);
7648          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7649          Lmake_list();          Lmake_list();
7650          vs_top=sup;          vs_top=sup;
7651          V1296= vs_base[0];          V1161= vs_base[0];
7652          V1293= append(/* INLINE-ARGS */V1295,V1296);          V1158= append(/* INLINE-ARGS */V1160,V1161);
7653          V1283= (VFUN_NARGS=4,(*(LnkLI476))((V1282),(V1292),(V1293),(V1281)));          V1149= (VFUN_NARGS=4,(*(LnkLI493))((V1148),(V1157),(V1158),(V1147)));
7654          if(((V1283))!=Cnil){          if(((V1149))!=Cnil){
7655          goto T2598;}          goto T2506;}
7656          goto T2554;          goto T2462;
7657          goto T2598;          goto T2506;
7658  T2598:;  T2506:;
7659          V1298= (*(LnkLI400))((V1291),(V1292),(V1293));          V1163= (*(LnkLI413))((V1156),(V1157),(V1158));
7660          V1284= (*(LnkLI472))(/* INLINE-ARGS */V1298);}}          V1150= (*(LnkLI489))(/* INLINE-ARGS */V1163);}}
7661          goto T2554;          goto T2462;
7662  T2554:;  T2462:;
7663          base[2]= (V1282);          base[2]= (V1148);
7664          base[3]= (V1283);          base[3]= (V1149);
7665          base[4]= (V1284);          base[4]= (V1150);
7666          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7667          return;}          return;}
7668          }          }
7669  }  }
7670  /*      local entry for function EXTRACT-PARAMETERS     */  /*      local entry for function EXTRACT-PARAMETERS     */
7671    
7672  static object LI116(V1300)  static object LI112(V1165)
7673    
7674  object V1300;  object V1165;
7675  {        VMB102 VMS102 VMV102  {        VMB99 VMS99 VMV99
7676          goto TTL;          goto TTL;
7677  TTL:;  TTL:;
7678          {object V1301;          {object V1166;
7679          object V1302;          object V1167;
7680          object V1303;          object V1168;
7681          base[0]= (V1300);          base[0]= (V1165);
7682          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7683          (void) (*Lnk370)();          (void) (*Lnk385)();
7684          if(vs_base>=vs_top){vs_top=sup;goto T2607;}          if(vs_base>=vs_top){vs_top=sup;goto T2515;}
7685          V1301= vs_base[0];          V1166= vs_base[0];
7686          vs_base++;          vs_base++;
7687          if(vs_base>=vs_top){vs_top=sup;goto T2608;}          if(vs_base>=vs_top){vs_top=sup;goto T2516;}
7688          V1302= vs_base[0];          V1167= vs_base[0];
7689          vs_base++;          vs_base++;
7690          if(vs_base>=vs_top){vs_top=sup;goto T2609;}          if(vs_base>=vs_top){vs_top=sup;goto T2517;}
7691          V1303= vs_base[0];          V1168= vs_base[0];
7692          vs_top=sup;          vs_top=sup;
7693          goto T2610;          goto T2518;
7694          goto T2607;          goto T2515;
7695  T2607:;  T2515:;
7696          V1301= Cnil;          V1166= Cnil;
7697          goto T2608;          goto T2516;
7698  T2608:;  T2516:;
7699          V1302= Cnil;          V1167= Cnil;
7700          goto T2609;          goto T2517;
7701  T2609:;  T2517:;
7702          V1303= Cnil;          V1168= Cnil;
7703          goto T2610;          goto T2518;
7704  T2610:;  T2518:;
7705          {object V1304 = (V1301);          {object V1169 = (V1166);
7706          VMR102(V1304)}}          VMR99(V1169)}}
7707          base[0]=base[0];          base[0]=base[0];
7708          return Cnil;          return Cnil;
7709  }  }
7710  /*      local entry for function EXTRACT-LAMBDA-LIST    */  /*      local entry for function EXTRACT-LAMBDA-LIST    */
7711    
7712  static object LI117(V1306)  static object LI113(V1171)
7713    
7714  object V1306;  object V1171;
7715  {        VMB103 VMS103 VMV103  {        VMB100 VMS100 VMV100
7716          goto TTL;          goto TTL;
7717  TTL:;  TTL:;
7718          {object V1307;          {object V1172;
7719          object V1308;          object V1173;
7720          object V1309;          object V1174;
7721          base[0]= (V1306);          base[0]= (V1171);
7722          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7723          (void) (*Lnk370)();          (void) (*Lnk385)();
7724          if(vs_base>=vs_top){vs_top=sup;goto T2613;}          if(vs_base>=vs_top){vs_top=sup;goto T2521;}
7725          V1307= vs_base[0];          V1172= vs_base[0];
7726          vs_base++;          vs_base++;
7727          if(vs_base>=vs_top){vs_top=sup;goto T2614;}          if(vs_base>=vs_top){vs_top=sup;goto T2522;}
7728          V1308= vs_base[0];          V1173= vs_base[0];
7729          vs_base++;          vs_base++;
7730          if(vs_base>=vs_top){vs_top=sup;goto T2615;}          if(vs_base>=vs_top){vs_top=sup;goto T2523;}
7731          V1309= vs_base[0];          V1174= vs_base[0];
7732          vs_top=sup;          vs_top=sup;
7733          goto T2616;          goto T2524;
7734          goto T2613;          goto T2521;
7735  T2613:;  T2521:;
7736          V1307= Cnil;          V1172= Cnil;
7737          goto T2614;          goto T2522;
7738  T2614:;  T2522:;
7739          V1308= Cnil;          V1173= Cnil;
7740          goto T2615;          goto T2523;
7741  T2615:;  T2523:;
7742          V1309= Cnil;          V1174= Cnil;
7743          goto T2616;          goto T2524;
7744  T2616:;  T2524:;
7745          {object V1310 = (V1308);          {object V1175 = (V1173);
7746          VMR103(V1310)}}          VMR100(V1175)}}
7747          base[0]=base[0];          base[0]=base[0];
7748          return Cnil;          return Cnil;
7749  }  }
7750  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */
7751    
7752  static object LI118(V1312)  static object LI114(V1177)
7753    
7754  object V1312;  object V1177;
7755  {        VMB104 VMS104 VMV104  {        VMB101 VMS101 VMV101
7756          goto TTL;          goto TTL;
7757  TTL:;  TTL:;
7758          {object V1313;          {object V1178;
7759          object V1314;          object V1179;
7760          object V1315;          object V1180;
7761          base[0]= (V1312);          base[0]= (V1177);
7762          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7763          (void) (*Lnk370)();          (void) (*Lnk385)();
7764          if(vs_base>=vs_top){vs_top=sup;goto T2619;}          if(vs_base>=vs_top){vs_top=sup;goto T2527;}
7765          V1313= vs_base[0];          V1178= vs_base[0];
7766          vs_base++;          vs_base++;
7767          if(vs_base>=vs_top){vs_top=sup;goto T2620;}          if(vs_base>=vs_top){vs_top=sup;goto T2528;}
7768          V1314= vs_base[0];          V1179= vs_base[0];
7769          vs_base++;          vs_base++;
7770          if(vs_base>=vs_top){vs_top=sup;goto T2621;}          if(vs_base>=vs_top){vs_top=sup;goto T2529;}
7771          V1315= vs_base[0];          V1180= vs_base[0];
7772          vs_top=sup;          vs_top=sup;
7773          goto T2622;          goto T2530;
7774          goto T2619;          goto T2527;
7775  T2619:;  T2527:;
7776          V1313= Cnil;          V1178= Cnil;
7777          goto T2620;          goto T2528;
7778  T2620:;  T2528:;
7779          V1314= Cnil;          V1179= Cnil;
7780          goto T2621;          goto T2529;
7781  T2621:;  T2529:;
7782          V1315= Cnil;          V1180= Cnil;
7783          goto T2622;          goto T2530;
7784  T2622:;  T2530:;
7785          {object V1316 = (V1315);          {object V1181 = (V1180);
7786          VMR104(V1316)}}          VMR101(V1181)}}
7787          base[0]=base[0];          base[0]=base[0];
7788          return Cnil;          return Cnil;
7789  }  }
7790  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */
7791    
7792  static object LI119(V1318)  static object LI115(V1183)
7793    
7794  object V1318;  object V1183;
7795  {        VMB105 VMS105 VMV105  {        VMB102 VMS102 VMV102
7796          goto TTL;          goto TTL;
7797  TTL:;  TTL:;
7798          {object V1319;          {object V1184;
7799          object V1320;          object V1185;
7800          object V1321;          object V1186;
7801          object V1322;          object V1187;
7802          base[0]= (V1318);          base[0]= (V1183);
7803          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7804          (void) (*Lnk370)();          (void) (*Lnk385)();
7805          if(vs_base>=vs_top){vs_top=sup;goto T2625;}          if(vs_base>=vs_top){vs_top=sup;goto T2533;}
7806          V1319= vs_base[0];          V1184= vs_base[0];
7807          vs_base++;          vs_base++;
7808          if(vs_base>=vs_top){vs_top=sup;goto T2626;}          if(vs_base>=vs_top){vs_top=sup;goto T2534;}
7809          V1320= vs_base[0];          V1185= vs_base[0];
7810          vs_base++;          vs_base++;
7811          if(vs_base>=vs_top){vs_top=sup;goto T2627;}          if(vs_base>=vs_top){vs_top=sup;goto T2535;}
7812          V1321= vs_base[0];          V1186= vs_base[0];
7813          vs_base++;          vs_base++;
7814          if(vs_base>=vs_top){vs_top=sup;goto T2628;}          if(vs_base>=vs_top){vs_top=sup;goto T2536;}
7815          V1322= vs_base[0];          V1187= vs_base[0];
7816          vs_top=sup;          vs_top=sup;
7817          goto T2629;          goto T2537;
7818          goto T2625;          goto T2533;
7819  T2625:;  T2533:;
7820          V1319= Cnil;          V1184= Cnil;
7821          goto T2626;          goto T2534;
7822  T2626:;  T2534:;
7823          V1320= Cnil;          V1185= Cnil;
7824          goto T2627;          goto T2535;
7825  T2627:;  T2535:;
7826          V1321= Cnil;          V1186= Cnil;
7827          goto T2628;          goto T2536;
7828  T2628:;  T2536:;
7829          V1322= Cnil;          V1187= Cnil;
7830          goto T2629;          goto T2537;
7831  T2629:;  T2537:;
7832          {object V1323 = (V1322);          {object V1188 = (V1187);
7833          VMR105(V1323)}}          VMR102(V1188)}}
7834          base[0]=base[0];          base[0]=base[0];
7835          return Cnil;          return Cnil;
7836  }  }
7837  /*      function definition for PARSE-SPECIALIZED-LAMBDA-LIST   */  /*      function definition for PARSE-SPECIALIZED-LAMBDA-LIST   */
7838    
7839  static void L120()  static void L116()
7840  {register object *base=vs_base;  {register object *base=vs_base;
7841          register object *sup=base+VM106; VC106          register object *sup=base+VM103; VC103
7842          vs_check;          vs_check;
7843          {register object V1324;          {register object V1189;
7844          object V1325;          object V1190;
7845          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7846          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7847          V1324=(base[0]);          V1189=(base[0]);
7848          vs_base=vs_base+1;          vs_base=vs_base+1;
7849          if(vs_base>=vs_top){vs_top=sup;goto T2630;}          if(vs_base>=vs_top){vs_top=sup;goto T2538;}
7850          V1325=(base[1]);          V1190=(base[1]);
7851          vs_top=sup;          vs_top=sup;
7852          goto T2631;          goto T2539;
7853          goto T2630;          goto T2538;
7854  T2630:;  T2538:;
7855          V1325= Cnil;          V1190= Cnil;
7856          goto T2631;          goto T2539;
7857  T2631:;  T2539:;
7858          {register object V1326;          {register object V1191;
7859          V1326= CMPcar((V1324));          V1191= CMPcar((V1189));
7860          if(((V1324))!=Cnil){          if(((V1189))!=Cnil){
7861          goto T2635;}          goto T2543;}
7862          base[2]= Cnil;          base[2]= Cnil;
7863          base[3]= Cnil;          base[3]= Cnil;
7864          base[4]= Cnil;          base[4]= Cnil;
7865          base[5]= Cnil;          base[5]= Cnil;
7866          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7867          return;          return;
7868          goto T2635;          goto T2543;
7869  T2635:;  T2543:;
7870          if(!(((V1326))==(VV[55]))){          if(!(((V1191))==(VV[65]))){
7871          goto T2642;}          goto T2550;}
7872          base[2]= Cnil;          base[2]= Cnil;
7873          base[3]= (V1324);          base[3]= (V1189);
7874          base[4]= Cnil;          base[4]= Cnil;
7875          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7876          return;          return;
7877          goto T2642;          goto T2550;
7878  T2642:;  T2550:;
7879          {register object x= (V1326),V1327= VV[182];          {register object x= (V1191),V1192= VV[193];
7880          while(V1327!=Cnil)          while(V1192!=Cnil)
7881          if(x==(V1327->c.c_car)){          if(x==(V1192->c.c_car)){
7882          goto T2649;          goto T2557;
7883          }else V1327=V1327->c.c_cdr;          }else V1192=V1192->c.c_cdr;
7884          goto T2648;}          goto T2556;}
7885          goto T2649;          goto T2557;
7886  T2649:;  T2557:;
7887          {register object x= (V1326),V1328= VV[339];          {register object x= (V1191),V1193= VV[354];
7888          while(V1328!=Cnil)          while(V1193!=Cnil)
7889          if(x==(V1328->c.c_car)){          if(x==(V1193->c.c_car)){
7890          goto T2650;          goto T2558;
7891          }else V1328=V1328->c.c_cdr;}          }else V1193=V1193->c.c_cdr;}
7892          base[2]= VV[340];          base[2]= VV[355];
7893          base[3]= (V1326);          base[3]= (V1191);
7894          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7895          (void) (*Lnk398)();          (void) (*Lnk466)();
7896          vs_top=sup;          vs_top=sup;
7897          goto T2650;          goto T2558;
7898  T2650:;  T2558:;
7899          {object V1329;          {object V1194;
7900          object V1330;          object V1195;
7901          base[2]= CMPcdr((V1324));          base[2]= CMPcdr((V1189));
7902          base[3]= Ct;          base[3]= Ct;
7903          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7904          (void) (*Lnk370)();          (void) (*Lnk385)();
7905          if(vs_base>=vs_top){vs_top=sup;goto T2658;}          if(vs_base>=vs_top){vs_top=sup;goto T2566;}
7906          V1329= vs_base[0];          V1194= vs_base[0];
7907          vs_base++;          vs_base++;
7908          if(vs_base>=vs_top){vs_top=sup;goto T2659;}          if(vs_base>=vs_top){vs_top=sup;goto T2567;}
7909          V1330= vs_base[0];          V1195= vs_base[0];
7910          vs_top=sup;          vs_top=sup;
7911          goto T2660;          goto T2568;
7912          goto T2658;          goto T2566;
7913  T2658:;  T2566:;
7914          V1329= Cnil;          V1194= Cnil;
7915          goto T2659;          goto T2567;
7916  T2659:;  T2567:;
7917          V1330= Cnil;          V1195= Cnil;
7918          goto T2660;          goto T2568;
7919  T2660:;  T2568:;
7920          base[2]= (V1329);          base[2]= (V1194);
7921          base[3]= make_cons((V1326),(V1330));          base[3]= make_cons((V1191),(V1195));
7922          base[4]= Cnil;          base[4]= Cnil;
7923          base[5]= Cnil;          base[5]= Cnil;
7924          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7925          return;}          return;}
7926          goto T2648;          goto T2556;
7927  T2648:;  T2556:;
7928          if(((V1325))==Cnil){          if(((V1190))==Cnil){
7929          goto T2666;}          goto T2574;}
7930          {object V1331;          {object V1196;
7931          object V1332;          object V1197;
7932          base[2]= CMPcdr((V1324));          base[2]= CMPcdr((V1189));
7933          base[3]= Ct;          base[3]= Ct;
7934          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7935          (void) (*Lnk370)();          (void) (*Lnk385)();
7936          if(vs_base>=vs_top){vs_top=sup;goto T2671;}          if(vs_base>=vs_top){vs_top=sup;goto T2579;}
7937          V1331= vs_base[0];          V1196= vs_base[0];
7938          vs_base++;          vs_base++;
7939          if(vs_base>=vs_top){vs_top=sup;goto T2672;}          if(vs_base>=vs_top){vs_top=sup;goto T2580;}
7940          V1332= vs_base[0];          V1197= vs_base[0];
7941          vs_top=sup;          vs_top=sup;
7942          goto T2673;          goto T2581;
7943          goto T2671;          goto T2579;
7944  T2671:;  T2579:;
7945          V1331= Cnil;          V1196= Cnil;
7946          goto T2672;          goto T2580;
7947  T2672:;  T2580:;
7948          V1332= Cnil;          V1197= Cnil;
7949          goto T2673;          goto T2581;
7950  T2673:;  T2581:;
7951          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){
7952          goto T2677;}          goto T2585;}
7953          V1333= CMPcar((V1326));          V1198= CMPcar((V1191));
7954          goto T2675;          goto T2583;
7955          goto T2677;          goto T2585;
7956  T2677:;  T2585:;
7957          V1333= (V1326);          V1198= (V1191);
7958          goto T2675;          goto T2583;
7959  T2675:;  T2583:;
7960          V1334 = (V1331);          base[2]= make_cons(V1198,(V1196));
7961          base[2]= make_cons(V1333,V1334);          base[3]= make_cons((V1191),(V1197));
         base[3]= make_cons((V1326),(V1332));  
7962          base[4]= Cnil;          base[4]= Cnil;
7963          base[5]= Cnil;          base[5]= Cnil;
7964          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7965          return;}          return;}
7966          goto T2666;          goto T2574;
7967  T2666:;  T2574:;
7968          {object V1335;          {object V1199;
7969          object V1336;          object V1200;
7970          object V1337;          object V1201;
7971          object V1338;          object V1202;
7972          base[2]= CMPcdr((V1324));          base[2]= CMPcdr((V1189));
7973          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7974          (void) (*Lnk370)();          (void) (*Lnk385)();
7975          if(vs_base>=vs_top){vs_top=sup;goto T2684;}          if(vs_base>=vs_top){vs_top=sup;goto T2592;}
7976          V1335= vs_base[0];          V1199= vs_base[0];
7977          vs_base++;          vs_base++;
7978          if(vs_base>=vs_top){vs_top=sup;goto T2685;}          if(vs_base>=vs_top){vs_top=sup;goto T2593;}
7979          V1336= vs_base[0];          V1200= vs_base[0];
7980          vs_base++;          vs_base++;
7981          if(vs_base>=vs_top){vs_top=sup;goto T2686;}          if(vs_base>=vs_top){vs_top=sup;goto T2594;}
7982          V1337= vs_base[0];          V1201= vs_base[0];
7983          vs_base++;          vs_base++;
7984          if(vs_base>=vs_top){vs_top=sup;goto T2687;}          if(vs_base>=vs_top){vs_top=sup;goto T2595;}
7985          V1338= vs_base[0];          V1202= vs_base[0];
7986          vs_top=sup;          vs_top=sup;
7987          goto T2688;          goto T2596;
7988          goto T2684;          goto T2592;
7989  T2684:;  T2592:;
7990          V1335= Cnil;          V1199= Cnil;
7991          goto T2685;          goto T2593;
7992  T2685:;  T2593:;
7993          V1336= Cnil;          V1200= Cnil;
7994          goto T2686;          goto T2594;
7995  T2686:;  T2594:;
7996          V1337= Cnil;          V1201= Cnil;
7997          goto T2687;          goto T2595;
7998  T2687:;  T2595:;
7999          V1338= Cnil;          V1202= Cnil;
8000          goto T2688;          goto T2596;
8001  T2688:;  T2596:;
8002          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){
8003          goto T2692;}          goto T2600;}
8004          V1339= CMPcar((V1326));          V1203= CMPcar((V1191));
8005          goto T2690;          goto T2598;
8006          goto T2692;          goto T2600;
8007  T2692:;  T2600:;
8008          V1339= (V1326);          V1203= (V1191);
8009          goto T2690;          goto T2598;
8010  T2690:;  T2598:;
8011          V1340 = (V1335);          base[2]= make_cons(V1203,(V1199));
8012          base[2]= make_cons(V1339,V1340);          if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){
8013          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          goto T2605;}
8014          goto T2697;}          V1204= CMPcar((V1191));
8015          V1341= CMPcar((V1326));          goto T2603;
8016          goto T2695;          goto T2605;
8017          goto T2697;  T2605:;
8018  T2697:;          V1204= (V1191);
8019          V1341= (V1326);          goto T2603;
8020          goto T2695;  T2603:;
8021  T2695:;          base[3]= make_cons(V1204,(V1200));
8022          V1342 = (V1336);          if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){
8023          base[3]= make_cons(V1341,V1342);          goto T2610;}
8024          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          V1205= CMPcadr((V1191));
8025          goto T2702;}          goto T2608;
8026          V1343= CMPcadr((V1326));          goto T2610;
8027          goto T2700;  T2610:;
8028          goto T2702;          V1205= Ct;
8029  T2702:;          goto T2608;
8030          V1343= Ct;  T2608:;
8031          goto T2700;          base[4]= make_cons(V1205,(V1201));
8032  T2700:;          if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){
8033          V1344 = (V1337);          goto T2615;}
8034          base[4]= make_cons(V1343,V1344);          V1206= CMPcar((V1191));
8035          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          goto T2613;
8036          goto T2707;}          goto T2615;
8037          V1345= CMPcar((V1326));  T2615:;
8038          goto T2705;          V1206= (V1191);
8039          goto T2707;          goto T2613;
8040  T2707:;  T2613:;
8041          V1345= (V1326);          base[5]= make_cons(V1206,(V1202));
         goto T2705;  
 T2705:;  
         V1346 = (V1338);  
         base[5]= make_cons(V1345,V1346);  
8042          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8043          return;}}          return;}}
8044          }          }
8045  }  }
8046  /*      macro definition for SYMBOL-MACROLET    */  /*      macro definition for SYMBOL-MACROLET    */
8047    
8048  static void L121()  static void L117()
8049  {register object *base=vs_base;  {register object *base=vs_base;
8050          register object *sup=base+VM107; VC107          register object *sup=base+VM104; VC104
8051          vs_check;          vs_check;
8052          check_arg(2);          check_arg(2);
8053          vs_top=sup;          vs_top=sup;
8054          {object V1347=base[0]->c.c_cdr;          {object V1207=base[0]->c.c_cdr;
8055          if(endp(V1347))invalid_macro_call();          if(endp(V1207))invalid_macro_call();
8056          base[2]= (V1347->c.c_car);          base[2]= (V1207->c.c_car);
8057          V1347=V1347->c.c_cdr;          V1207=V1207->c.c_cdr;
8058          base[3]= V1347;}          base[3]= V1207;}
8059          {object V1348;          {object V1208;
8060          object V1349= base[2];          object V1209= base[2];
8061          if(V1349==Cnil){          if(V1209==Cnil){
8062          base[4]= Cnil;          base[4]= Cnil;
8063          goto T2709;}          goto T2617;}
8064          base[5]=V1348=MMcons(Cnil,Cnil);          base[5]=V1208=MMcons(Cnil,Cnil);
8065          goto T2710;          goto T2618;
8066  T2710:;  T2618:;
8067          V1351= CMPcar((V1349->c.c_car));          V1211= CMPcar((V1209->c.c_car));
8068          V1352= (*(LnkLI477))(CMPcar((V1349->c.c_car)),base[1]);          V1212= (*(LnkLI494))(CMPcar((V1209->c.c_car)),base[1]);
8069          (V1348->c.c_car)= list(3,/* INLINE-ARGS */V1351,/* INLINE-ARGS */V1352,CMPcadr((V1349->c.c_car)));          (V1208->c.c_car)= list(3,/* INLINE-ARGS */V1211,/* INLINE-ARGS */V1212,CMPcadr((V1209->c.c_car)));
8070          if((V1349=MMcdr(V1349))==Cnil){          if((V1209=MMcdr(V1209))==Cnil){
8071          base[4]= base[5];          base[4]= base[5];
8072          goto T2709;}          goto T2617;}
8073          V1348=MMcdr(V1348)=MMcons(Cnil,Cnil);          V1208=MMcdr(V1208)=MMcons(Cnil,Cnil);
8074          goto T2710;}          goto T2618;}
8075          goto T2709;          goto T2617;
8076  T2709:;  T2617:;
8077          base[4]=MMcons(base[4],Cnil);          base[4]=MMcons(base[4],Cnil);
8078          base[5]= make_cons(VV[9],base[3]);          base[5]= make_cons(VV[13],base[3]);
8079          base[6]= base[1];          base[6]= base[1];
8080          base[7]=          base[7]=
8081          make_cclosure_new(LC139,Cnil,base[4],Cdata);          make_cclosure_new(LC134,Cnil,base[4],Cdata);
8082          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
8083          (void) (*Lnk396)();          (void) (*Lnk410)();
8084          return;          return;
8085  }  }
8086  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */
8087    
8088  static object LI124(V1357,V1358,V1359,V1360)  static object LI120(V1217,V1218,V1219,V1220)
8089    
8090  object V1357;register object V1358;object V1359;object V1360;  object V1217;register object V1218;object V1219;object V1220;
8091  {        VMB108 VMS108 VMV108  {        VMB105 VMS105 VMV105
8092          goto TTL;          goto TTL;
8093  TTL:;  TTL:;
8094          base[0]= (V1360);          base[0]= (V1220);
8095          base[1]= (V1357);          base[1]= (V1217);
8096          base[2]= Cnil;          base[2]= Cnil;
8097          if(((V1359))==(VV[193])){          if(((V1219))==(VV[203])){
8098          goto T2716;}          goto T2624;}
8099          {object V1361 = (V1358);          {object V1221 = (V1218);
8100          VMR108(V1361)}          VMR105(V1221)}
8101          goto T2716;          goto T2624;
8102  T2716:;  T2624:;
8103          if(!(type_of((V1358))==t_symbol)){          if(!(type_of((V1218))==t_symbol)){
8104          goto T2719;}          goto T2627;}
8105          {register object x= (V1358),V1362= base[1];          {register object x= (V1218),V1222= base[1];
8106          while(V1362!=Cnil)          while(V1222!=Cnil)
8107          if(eql(x,V1362->c.c_car->c.c_car) &&V1362->c.c_car != Cnil){          if(eql(x,V1222->c.c_car->c.c_car) &&V1222->c.c_car != Cnil){
8108          base[2]= (V1362->c.c_car);          base[2]= (V1222->c.c_car);
8109          goto T2725;          goto T2633;
8110          }else V1362=V1362->c.c_cdr;          }else V1222=V1222->c.c_cdr;
8111          base[2]= Cnil;}          base[2]= Cnil;}
8112          goto T2725;          goto T2633;
8113  T2725:;  T2633:;
8114          if((base[2])==Cnil){          if((base[2])==Cnil){
8115          goto T2722;}          goto T2630;}
8116          V1363= CMPcadr(base[2]);          V1223= CMPcadr(base[2]);
8117          V1364= (*(LnkLI477))((V1358),base[0]);          V1224= (*(LnkLI494))((V1218),base[0]);
8118          if(!((/* INLINE-ARGS */V1363)==(/* INLINE-ARGS */V1364))){          if(!((/* INLINE-ARGS */V1223)==(/* INLINE-ARGS */V1224))){
8119          goto T2722;}          goto T2630;}
8120          {object V1365 = CMPcaddr(base[2]);          {object V1225 = CMPcaddr(base[2]);
8121          VMR108(V1365)}          VMR105(V1225)}
8122          goto T2722;          goto T2630;
8123  T2722:;  T2630:;
8124          {object V1366 = (V1358);          {object V1226 = (V1218);
8125          VMR108(V1366)}          VMR105(V1226)}
8126          goto T2719;          goto T2627;
8127  T2719:;  T2627:;
8128          if(type_of((V1358))==t_cons||((V1358))==Cnil){          if(type_of((V1218))==t_cons||((V1218))==Cnil){
8129          goto T2728;}          goto T2636;}
8130          {object V1367 = (V1358);          {object V1227 = (V1218);
8131          VMR108(V1367)}          VMR105(V1227)}
8132          goto T2728;          goto T2636;
8133  T2728:;  T2636:;
8134          {register object x= CMPcar((V1358)),V1368= VV[341];          {register object x= CMPcar((V1218)),V1228= VV[356];
8135          while(V1368!=Cnil)          while(V1228!=Cnil)
8136          if(eql(x,V1368->c.c_car)){          if(eql(x,V1228->c.c_car)){
8137          goto T2732;          goto T2640;
8138          }else V1368=V1368->c.c_cdr;          }else V1228=V1228->c.c_cdr;
8139          goto T2731;}          goto T2639;}
8140          goto T2732;          goto T2640;
8141  T2732:;  T2640:;
8142          base[3]= CMPcar((V1358));          base[3]= CMPcar((V1218));
8143          {object V1369;          {object V1229;
8144          V1369= Cnil;          V1229= Cnil;
8145          base[4]= CMPcdr((V1358));          base[4]= CMPcdr((V1218));
8146          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8147          L125(base);          L121(base);
8148          vs_top=sup;          vs_top=sup;
8149          V1369= vs_base[0];          V1229= vs_base[0];
8150          {object V1370 = (*(LnkLI478))((V1358),base[3],(V1369));          {object V1230 = (*(LnkLI495))((V1218),base[3],(V1229));
8151          VMR108(V1370)}}          VMR105(V1230)}}
8152          goto T2731;          goto T2639;
8153  T2731:;  T2639:;
8154          if(!((CMPcar((V1358)))==(VV[342]))){          if(!((CMPcar((V1218)))==(VV[357]))){
8155          goto T2738;}          goto T2646;}
8156          {object V1371;          {object V1231;
8157          object V1372;          object V1232;
8158          V1371= CMPcadr((V1358));          V1231= CMPcadr((V1218));
8159          {object V1373;          {object V1233;
8160          object V1374= (V1371);          object V1234= (V1231);
8161          if(V1374==Cnil){          if(V1234==Cnil){
8162          V1372= Cnil;          V1232= Cnil;
8163          goto T2741;}          goto T2649;}
8164          base[5]=V1373=MMcons(Cnil,Cnil);          base[5]=V1233=MMcons(Cnil,Cnil);
8165          goto T2742;          goto T2650;
8166  T2742:;  T2650:;
8167          vs_base=vs_top;          vs_base=vs_top;
8168          Lgensym();          Lgensym();
8169          vs_top=sup;          vs_top=sup;
8170          (V1373->c.c_car)= vs_base[0];          (V1233->c.c_car)= vs_base[0];
8171          if((V1374=MMcdr(V1374))==Cnil){          if((V1234=MMcdr(V1234))==Cnil){
8172          V1372= base[5];          V1232= base[5];
8173          goto T2741;}          goto T2649;}
8174          V1373=MMcdr(V1373)=MMcons(Cnil,Cnil);          V1233=MMcdr(V1233)=MMcons(Cnil,Cnil);
8175          goto T2742;}          goto T2650;}
8176          goto T2741;          goto T2649;
8177  T2741:;  T2649:;
8178          V1376= CMPcaddr((V1358));          V1236= CMPcaddr((V1218));
8179          {object V1378;          {object V1238;
8180          object V1379= (V1371);          object V1239= (V1231);
8181          object V1380= (V1372);          object V1240= (V1232);
8182          if(V1379==Cnil||V1380==Cnil){          if(V1239==Cnil||V1240==Cnil){
8183          V1377= Cnil;          V1237= Cnil;
8184          goto T2744;}          goto T2652;}
8185          base[5]=V1378=MMcons(Cnil,Cnil);          base[5]=V1238=MMcons(Cnil,Cnil);
8186          goto T2745;          goto T2653;
8187  T2745:;  T2653:;
8188          (V1378->c.c_car)= list(3,VV[30],(V1379->c.c_car),(V1380->c.c_car));          (V1238->c.c_car)= list(3,VV[34],(V1239->c.c_car),(V1240->c.c_car));
8189          if((V1379=MMcdr(V1379))==Cnil||(V1380=MMcdr(V1380))==Cnil){          if((V1239=MMcdr(V1239))==Cnil||(V1240=MMcdr(V1240))==Cnil){
8190          V1377= base[5];          V1237= base[5];
8191          goto T2744;}          goto T2652;}
8192          V1378=MMcdr(V1378)=MMcons(Cnil,Cnil);          V1238=MMcdr(V1238)=MMcons(Cnil,Cnil);
8193          goto T2745;}          goto T2653;}
8194          goto T2744;          goto T2652;
8195  T2744:;  T2652:;
8196          {object V1383 = listA(4,VV[343],(V1372),/* INLINE-ARGS */V1376,reverse(V1377));          {object V1243 = listA(4,VV[358],(V1232),/* INLINE-ARGS */V1236,reverse(V1237));
8197          VMR108(V1383)}}          VMR105(V1243)}}
8198          goto T2738;          goto T2646;
8199  T2738:;  T2646:;
8200          {object V1384 = (V1358);          {object V1244 = (V1218);
8201          VMR108(V1384)}          VMR105(V1244)}
8202          base[0]=base[0];          base[0]=base[0];
8203          return Cnil;          return Cnil;
8204  }  }
8205  /*      macro definition for WITH-SLOTS */  /*      macro definition for WITH-SLOTS */
8206    
8207  static void L126()  static void L122()
8208  {register object *base=vs_base;  {register object *base=vs_base;
8209          register object *sup=base+VM109; VC109          register object *sup=base+VM106; VC106
8210          vs_check;          vs_check;
8211          check_arg(2);          check_arg(2);
8212          vs_top=sup;          vs_top=sup;
8213          {object V1385=base[0]->c.c_cdr;          {object V1245=base[0]->c.c_cdr;
8214          if(endp(V1385))invalid_macro_call();          if(endp(V1245))invalid_macro_call();
8215          base[2]= (V1385->c.c_car);          base[2]= (V1245->c.c_car);
8216          V1385=V1385->c.c_cdr;          V1245=V1245->c.c_cdr;
8217          if(endp(V1385))invalid_macro_call();          if(endp(V1245))invalid_macro_call();
8218          base[3]= (V1385->c.c_car);          base[3]= (V1245->c.c_car);
8219          V1385=V1385->c.c_cdr;          V1245=V1245->c.c_cdr;
8220          base[4]= V1385;}          base[4]= V1245;}
8221          {register object V1386;          {register object V1246;
8222          vs_base=vs_top;          vs_base=vs_top;
8223          Lgensym();          Lgensym();
8224          vs_top=sup;          vs_top=sup;
8225          V1386= vs_base[0];          V1246= vs_base[0];
8226          V1387= list(2,(V1386),base[3]);          V1247= list(2,(V1246),base[3]);
8227          V1388= make_cons(/* INLINE-ARGS */V1387,Cnil);          V1248= make_cons(/* INLINE-ARGS */V1247,Cnil);
8228          {object V1390;          V1249= list(2,VV[49],list(2,VV[55],(V1246)));
8229            {object V1251;
8230          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8231          goto T2751;}          goto T2659;}
8232          if(!((CMPcar(base[3]))==(VV[138]))){          if(!((CMPcar(base[3]))==(VV[143]))){
8233          goto T2751;}          goto T2659;}
8234          V1390= CMPcaddr(base[3]);          V1251= CMPcaddr(base[3]);
8235          goto T2749;          goto T2657;
8236          goto T2751;          goto T2659;
8237  T2751:;  T2659:;
8238          V1390= base[3];          V1251= base[3];
8239          goto T2749;          goto T2657;
8240  T2749:;  T2657:;
8241          if(type_of((V1390))==t_symbol){          if(type_of((V1251))==t_symbol){
8242          goto T2755;}          goto T2663;}
8243          V1389= Cnil;          V1250= Cnil;
8244          goto T2748;          goto T2656;
8245          goto T2755;          goto T2663;
8246  T2755:;  T2663:;
8247          V1391= list(2,VV[45],list(3,VV[344],(V1386),(V1390)));          V1252= list(2,VV[49],list(3,VV[359],(V1246),(V1251)));
8248          V1389= make_cons(/* INLINE-ARGS */V1391,Cnil);}          V1250= make_cons(/* INLINE-ARGS */V1252,Cnil);}
8249          goto T2748;          goto T2656;
8250  T2748:;  T2656:;
8251          {object V1393;          {object V1254;
8252          object V1394= base[2];          object V1255= base[2];
8253          if(V1394==Cnil){          if(V1255==Cnil){
8254          V1392= Cnil;          V1253= Cnil;
8255          goto T2757;}          goto T2665;}
8256          base[5]=V1393=MMcons(Cnil,Cnil);          base[5]=V1254=MMcons(Cnil,Cnil);
8257          goto T2758;          goto T2666;
8258  T2758:;  T2666:;
8259          {register object V1395;          {register object V1256;
8260          V1395= (V1394->c.c_car);          V1256= (V1255->c.c_car);
8261          {object V1396;          {object V1257;
8262          object V1397;          object V1258;
8263          if(!(type_of((V1395))==t_symbol)){          if(!(type_of((V1256))==t_symbol)){
8264          goto T2762;}          goto T2670;}
8265          V1396= (V1395);          V1257= (V1256);
8266          goto T2760;          goto T2668;
8267          goto T2762;          goto T2670;
8268  T2762:;  T2670:;
8269          V1396= CMPcar((V1395));          V1257= CMPcar((V1256));
8270          goto T2760;          goto T2668;
8271  T2760:;  T2668:;
8272          if(!(type_of((V1395))==t_symbol)){          if(!(type_of((V1256))==t_symbol)){
8273          goto T2766;}          goto T2674;}
8274          V1397= (V1395);          V1258= (V1256);
8275          goto T2764;          goto T2672;
8276          goto T2766;          goto T2674;
8277  T2766:;  T2674:;
8278          V1397= CMPcadr((V1395));          V1258= CMPcadr((V1256));
8279          goto T2764;          goto T2672;
8280  T2764:;  T2672:;
8281          (V1393->c.c_car)= list(2,(V1396),list(3,VV[196],(V1386),list(2,VV[1],(V1397))));}}          (V1254->c.c_car)= list(2,(V1257),list(3,VV[204],(V1246),list(2,VV[1],(V1258))));}}
8282          if((V1394=MMcdr(V1394))==Cnil){          if((V1255=MMcdr(V1255))==Cnil){
8283          V1392= base[5];          V1253= base[5];
8284          goto T2757;}          goto T2665;}
8285          V1393=MMcdr(V1393)=MMcons(Cnil,Cnil);          V1254=MMcdr(V1254)=MMcons(Cnil,Cnil);
8286          goto T2758;}          goto T2666;}
8287          goto T2757;          goto T2665;
8288  T2757:;  T2665:;
8289          V1398 = base[4];          V1259= list(2,(V1246),listA(3,VV[360],V1253,base[4]));
8290          V1399= list(2,(V1386),listA(3,VV[345],V1392,V1398));          base[5]= listA(4,VV[100],/* INLINE-ARGS */V1248,/* INLINE-ARGS */V1249,append(V1250,/* INLINE-ARGS */V1259));
         base[5]= listA(3,VV[95],/* INLINE-ARGS */V1388,append(V1389,/* INLINE-ARGS */V1399));  
8291          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8292          return;}          return;}
8293  }  }
8294  /*      macro definition for WITH-ACCESSORS     */  /*      macro definition for WITH-ACCESSORS     */
8295    
8296  static void L127()  static void L123()
8297  {register object *base=vs_base;  {register object *base=vs_base;
8298          register object *sup=base+VM110; VC110          register object *sup=base+VM107; VC107
8299          vs_check;          vs_check;
8300          check_arg(2);          check_arg(2);
8301          vs_top=sup;          vs_top=sup;
8302          {object V1400=base[0]->c.c_cdr;          {object V1260=base[0]->c.c_cdr;
8303          if(endp(V1400))invalid_macro_call();          if(endp(V1260))invalid_macro_call();
8304          base[2]= (V1400->c.c_car);          base[2]= (V1260->c.c_car);
8305          V1400=V1400->c.c_cdr;          V1260=V1260->c.c_cdr;
8306          if(endp(V1400))invalid_macro_call();          if(endp(V1260))invalid_macro_call();
8307          base[3]= (V1400->c.c_car);          base[3]= (V1260->c.c_car);
8308          V1400=V1400->c.c_cdr;          V1260=V1260->c.c_cdr;
8309          base[4]= V1400;}          base[4]= V1260;}
8310          {register object V1401;          {register object V1261;
8311          vs_base=vs_top;          vs_base=vs_top;
8312          Lgensym();          Lgensym();
8313          vs_top=sup;          vs_top=sup;
8314          V1401= vs_base[0];          V1261= vs_base[0];
8315          V1402= list(2,(V1401),base[3]);          V1262= list(2,(V1261),base[3]);
8316          V1403= make_cons(/* INLINE-ARGS */V1402,Cnil);          V1263= make_cons(/* INLINE-ARGS */V1262,Cnil);
8317          {object V1405;          V1264= list(2,VV[49],list(2,VV[55],(V1261)));
8318            {object V1266;
8319          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8320          goto T2772;}          goto T2680;}
8321          if(!((CMPcar(base[3]))==(VV[138]))){          if(!((CMPcar(base[3]))==(VV[143]))){
8322          goto T2772;}          goto T2680;}
8323          V1405= CMPcaddr(base[3]);          V1266= CMPcaddr(base[3]);
8324          goto T2770;          goto T2678;
8325          goto T2772;          goto T2680;
8326  T2772:;  T2680:;
8327          V1405= base[3];          V1266= base[3];
8328          goto T2770;          goto T2678;
8329  T2770:;  T2678:;
8330          if(type_of((V1405))==t_symbol){          if(type_of((V1266))==t_symbol){
8331          goto T2776;}          goto T2684;}
8332          V1404= Cnil;          V1265= Cnil;
8333          goto T2769;          goto T2677;
8334          goto T2776;          goto T2684;
8335  T2776:;  T2684:;
8336          V1406= list(2,VV[45],list(3,VV[344],(V1401),(V1405)));          V1267= list(2,VV[49],list(3,VV[359],(V1261),(V1266)));
8337          V1404= make_cons(/* INLINE-ARGS */V1406,Cnil);}          V1265= make_cons(/* INLINE-ARGS */V1267,Cnil);}
8338          goto T2769;          goto T2677;
8339  T2769:;  T2677:;
8340          {object V1408;          {object V1269;
8341          object V1409= base[2];          object V1270= base[2];
8342          if(V1409==Cnil){          if(V1270==Cnil){
8343          V1407= Cnil;          V1268= Cnil;
8344          goto T2778;}          goto T2686;}
8345          base[5]=V1408=MMcons(Cnil,Cnil);          base[5]=V1269=MMcons(Cnil,Cnil);
8346          goto T2779;          goto T2687;
8347  T2779:;  T2687:;
8348          {object V1411;          {object V1272;
8349          object V1412;          object V1273;
8350          V1411= CMPcar((V1409->c.c_car));          V1272= CMPcar((V1270->c.c_car));
8351          V1412= CMPcadr((V1409->c.c_car));          V1273= CMPcadr((V1270->c.c_car));
8352          (V1408->c.c_car)= list(2,(V1411),list(2,(V1412),(V1401)));}          (V1269->c.c_car)= list(2,(V1272),list(2,(V1273),(V1261)));}
8353          if((V1409=MMcdr(V1409))==Cnil){          if((V1270=MMcdr(V1270))==Cnil){
8354          V1407= base[5];          V1268= base[5];
8355          goto T2778;}          goto T2686;}
8356          V1408=MMcdr(V1408)=MMcons(Cnil,Cnil);          V1269=MMcdr(V1269)=MMcons(Cnil,Cnil);
8357          goto T2779;}          goto T2687;}
8358          goto T2778;          goto T2686;
8359  T2778:;  T2686:;
8360          V1413 = base[4];          V1274= list(2,(V1261),listA(3,VV[360],V1268,base[4]));
8361          V1414= list(2,(V1401),listA(3,VV[345],V1407,V1413));          base[5]= listA(4,VV[100],/* INLINE-ARGS */V1263,/* INLINE-ARGS */V1264,append(V1265,/* INLINE-ARGS */V1274));
         base[5]= listA(3,VV[95],/* INLINE-ARGS */V1403,append(V1404,/* INLINE-ARGS */V1414));  
8362          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8363          return;}          return;}
8364  }  }
8365  /*      local function SCAN-SETF        */  /*      local function SCAN-SETF        */
8366    
8367  static void L125(base0)  static void L121(base0)
8368  register object *base0;  register object *base0;
8369  {       register object *base=vs_base;  {       register object *base=vs_base;
8370          register object *sup=base+VM111; VC111          register object *sup=base+VM108; VC108
8371          vs_check;          vs_check;
8372          {register object V1415;          {register object V1275;
8373          check_arg(1);          check_arg(1);
8374          V1415=(base[0]);          V1275=(base[0]);
8375          vs_top=sup;          vs_top=sup;
8376          goto TTL;          goto TTL;
8377  TTL:;  TTL:;
8378          if(((V1415))!=Cnil){          if(((V1275))!=Cnil){
8379          goto T2784;}          goto T2692;}
8380          base[1]= Cnil;          base[1]= Cnil;
8381          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8382          return;          return;
8383          goto T2784;          goto T2692;
8384  T2784:;  T2692:;
8385          V1416 = (V1415);          {register object x= CMPcar((V1275)),V1277= base0[1];
8386          {register object x= CMPcar((V1415)),V1418= base0[1];          while(V1277!=Cnil)
8387          while(V1418!=Cnil)          if(eql(x,V1277->c.c_car->c.c_car) &&V1277->c.c_car != Cnil){
8388          if(eql(x,V1418->c.c_car->c.c_car) &&V1418->c.c_car != Cnil){          base0[2]= (V1277->c.c_car);
8389          base0[2]= (V1418->c.c_car);          goto T2699;
8390          goto T2791;          }else V1277=V1277->c.c_cdr;
         }else V1418=V1418->c.c_cdr;  
8391          base0[2]= Cnil;}          base0[2]= Cnil;}
8392          goto T2791;          goto T2699;
8393  T2791:;  T2699:;
8394          if((base0[2])==Cnil){          if((base0[2])==Cnil){
8395          goto T2788;}          goto T2696;}
8396          V1419= CMPcadr(base0[2]);          V1278= CMPcadr(base0[2]);
8397          V1420= (*(LnkLI477))(CMPcar((V1415)),base0[0]);          V1279= (*(LnkLI494))(CMPcar((V1275)),base0[0]);
8398          if(!((/* INLINE-ARGS */V1419)==(/* INLINE-ARGS */V1420))){          if(!((/* INLINE-ARGS */V1278)==(/* INLINE-ARGS */V1279))){
8399          goto T2788;}          goto T2696;}
8400          base0[3]= VV[30];          base0[3]= VV[34];
8401          V1417= CMPcaddr(base0[2]);          V1276= CMPcaddr(base0[2]);
8402          goto T2786;          goto T2694;
8403          goto T2788;          goto T2696;
8404  T2788:;  T2696:;
8405          V1417= CMPcar((V1415));          V1276= CMPcar((V1275));
8406          goto T2786;          goto T2694;
8407  T2786:;  T2694:;
8408          V1421= CMPcadr((V1415));          V1280= CMPcadr((V1275));
8409          base[1]= CMPcddr((V1415));          base[1]= CMPcddr((V1275));
8410          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8411          L125(base0);          L121(base0);
8412          vs_top=sup;          vs_top=sup;
8413          V1422= vs_base[0];          V1281= vs_base[0];
8414          base[1]= (VFUN_NARGS=4,(*(LnkLI479))(V1416,V1417,/* INLINE-ARGS */V1421,V1422));          base[1]= (VFUN_NARGS=4,(*(LnkLI496))((V1275),V1276,/* INLINE-ARGS */V1280,V1281));
8415          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8416          return;          return;
8417          }          }
8418  }  }
8419  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8420    
8421  static void LC139(base0)  static void LC134(base0)
8422  register object *base0;  register object *base0;
8423  {       register object *base=vs_base;  {       register object *base=vs_base;
8424          register object *sup=base+VM112; VC112          register object *sup=base+VM109; VC109
8425          vs_check;          vs_check;
8426          {object V1423;          {object V1282;
8427          object V1424;          object V1283;
8428          object V1425;          object V1284;
8429          check_arg(3);          check_arg(3);
8430          V1423=(base[0]);          V1282=(base[0]);
8431          V1424=(base[1]);          V1283=(base[1]);
8432          V1425=(base[2]);          V1284=(base[2]);
8433          vs_top=sup;          vs_top=sup;
8434          base[3]= (*(LnkLI480))((base0[0]->c.c_car),(V1423),(V1424),(V1425));          base[3]= (*(LnkLI497))((base0[0]->c.c_car),(V1282),(V1283),(V1284));
8435          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8436          return;          return;
8437          }          }
8438  }  }
8439  /*      local function UNPARSE  */  /*      local function UNPARSE  */
8440    
8441  static void L114(base0)  static void L110(base0)
8442  register object *base0;  register object *base0;
8443  {       register object *base=vs_base;  {       register object *base=vs_base;
8444          register object *sup=base+VM113; VC113          register object *sup=base+VM110; VC110
8445          vs_check;          vs_check;
8446          {object V1426;          {object V1285;
8447          check_arg(1);          check_arg(1);
8448          V1426=(base[0]);          V1285=(base[0]);
8449          vs_top=sup;          vs_top=sup;
8450          goto TTL;          goto TTL;
8451  TTL:;  TTL:;
8452          base[1]= (V1426);          base[1]= (V1285);
8453          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8454          (void) (*Lnk481)(Lclptr481);          (void) (*Lnk498)(Lclptr498);
8455          vs_top=sup;          vs_top=sup;
8456          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8457          goto T2798;}          goto T2706;}
8458          {register object V1427;          {register object V1286;
8459          base[1]= (V1426);          base[1]= (V1285);
8460          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8461          (void) (*Lnk482)(Lclptr482);          (void) (*Lnk499)(Lclptr499);
8462          vs_top=sup;          vs_top=sup;
8463          V1427= vs_base[0];          V1286= vs_base[0];
8464          if(!(type_of((V1427))==t_cons)){          if(!(type_of((V1286))==t_cons)){
8465          goto T2804;}          goto T2712;}
8466          if(!((CMPcar((V1427)))==(VV[50]))){          if(!((CMPcar((V1286)))==(VV[54]))){
8467          goto T2804;}          goto T2712;}
8468          {object V1428;          {object V1287;
8469          object V1429;          object V1288;
8470          V1428= CMPcadr((V1427));          V1287= CMPcadr((V1286));
8471          base[3]= (V1428);          base[3]= (V1287);
8472          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8473          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk379)(Lclptr379);
8474          vs_top=sup;          vs_top=sup;
8475          V1429= vs_base[0];          V1288= vs_base[0];
8476          V1430 = (V1428);          V1289= (VFUN_NARGS=2,(*(LnkLI304))((V1288),Cnil));
8477          V1431= (VFUN_NARGS=2,(*(LnkLI291))((V1429),Cnil));          if(!(((V1287))==(/* INLINE-ARGS */V1289))){
8478          if(!((V1430)==(/* INLINE-ARGS */V1431))){          goto T2720;}
8479          goto T2812;}          base[3]= (V1288);
         base[3]= (V1429);  
8480          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8481          return;          return;
8482          goto T2812;          goto T2720;
8483  T2812:;  T2720:;
8484          base[3]= (V1427);          base[3]= (V1286);
8485          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8486          return;}          return;}
8487          goto T2804;          goto T2712;
8488  T2804:;  T2712:;
8489          base[1]= (V1427);          base[1]= (V1286);
8490          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8491          return;}          return;}
8492          goto T2798;          goto T2706;
8493  T2798:;  T2706:;
8494          base[1]= VV[336];          base[1]= VV[351];
8495          base[2]= (V1426);          base[2]= (V1285);
8496          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8497          Lerror();          Lerror();
8498          return;          return;
# Line 8791  T2798:; Line 8500  T2798:;
8500  }  }
8501  /*      local function PARSE    */  /*      local function PARSE    */
8502    
8503  static void L112(base0)  static void L108(base0)
8504  register object *base0;  register object *base0;
8505  {       register object *base=vs_base;  {       register object *base=vs_base;
8506          register object *sup=base+VM114; VC114          register object *sup=base+VM111; VC111
8507          vs_check;          vs_check;
8508          {register object V1432;          {register object V1290;
8509          check_arg(1);          check_arg(1);
8510          V1432=(base[0]);          V1290=(base[0]);
8511          vs_top=sup;          vs_top=sup;
8512          goto TTL;          goto TTL;
8513  TTL:;  TTL:;
8514          {object V1433;          {object V1291;
8515          base[1]= (V1432);          base[1]= (V1290);
8516          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8517          (void) (*Lnk483)();          (void) (*Lnk500)();
8518          vs_top=sup;          vs_top=sup;
8519          V1433= vs_base[0];          V1291= vs_base[0];
8520          base[1]= (V1433);          base[1]= (V1291);
8521          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8522          (void) (*Lnk481)(Lclptr481);          (void) (*Lnk498)(Lclptr498);
8523          vs_top=sup;          vs_top=sup;
8524          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8525          goto T2819;}          goto T2727;}
8526          base[1]= (V1433);          base[1]= (V1291);
8527          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8528          return;          return;
8529          goto T2819;          goto T2727;
8530  T2819:;  T2727:;
8531          if(!(type_of((V1432))==t_symbol)){          if(!(type_of((V1290))==t_symbol)){
8532          goto T2823;}          goto T2731;}
8533          base[1]= VV[334];          base[1]= VV[349];
8534          base[2]= (V1432);          base[2]= (V1290);
8535          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8536          Lerror();          Lerror();
8537          return;          return;
8538          goto T2823;          goto T2731;
8539  T2823:;  T2731:;
8540          base[1]= VV[335];          base[1]= VV[350];
8541          base[2]= (V1432);          base[2]= (V1290);
8542          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8543          Lerror();          Lerror();
8544          return;}          return;}
# Line 8837  T2823:; Line 8546  T2823:;
8546  }  }
8547  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8548    
8549  static void LC138(base0)  static void LC133(base0)
8550  register object *base0;  register object *base0;
8551  {       register object *base=vs_base;  {       register object *base=vs_base;
8552          register object *sup=base+VM115; VC115          register object *sup=base+VM112; VC112
8553          vs_check;          vs_check;
8554          {object V1434;          {object V1292;
8555          register object V1435;          register object V1293;
8556          check_arg(2);          check_arg(2);
8557          V1434=(base[0]);          V1292=(base[0]);
8558          V1435=(base[1]);          V1293=(base[1]);
8559          vs_top=sup;          vs_top=sup;
8560          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8561          {object V1436;          {object V1294;
8562          V1436= (V1434);          V1294= (V1292);
8563           vs_top=base+3;           vs_top=base+3;
8564           while(V1436!=Cnil)           while(V1294!=Cnil)
8565           {vs_push((V1436)->c.c_car);V1436=(V1436)->c.c_cdr;}           {vs_push((V1294)->c.c_car);V1294=(V1294)->c.c_cdr;}
8566          vs_base=base+3;}          vs_base=base+3;}
8567          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8568                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8864  register object *base0; Line 8573  register object *base0;
8573  }  }
8574  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8575    
8576  static void LC137(base0)  static void LC132(base0)
8577  register object *base0;  register object *base0;
8578  {       register object *base=vs_base;  {       register object *base=vs_base;
8579          register object *sup=base+VM116; VC116          register object *sup=base+VM113; VC113
8580          vs_check;          vs_check;
8581          {object V1437;          {object V1295;
8582          check_arg(1);          check_arg(1);
8583          V1437=(base[0]);          V1295=(base[0]);
8584          vs_top=sup;          vs_top=sup;
8585          base[1]= (((type_of((V1437))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((type_of((V1295))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);
8586          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8587          return;          return;
8588          }          }
8589  }  }
8590  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8591    
8592  static void LC136(base0)  static void LC131(base0)
8593  register object *base0;  register object *base0;
8594  {       register object *base=vs_base;  {       register object *base=vs_base;
8595          register object *sup=base+VM117; VC117          register object *sup=base+VM114; VC114
8596          vs_check;          vs_check;
8597          {object V1438;          {object V1296;
8598          check_arg(1);          check_arg(1);
8599          V1438=(base[0]);          V1296=(base[0]);
8600          vs_top=sup;          vs_top=sup;
8601          base[1]= (((((V1438))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1296))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8602          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8603          return;          return;
8604          }          }
8605  }  }
8606  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8607    
8608  static void LC135(base0)  static void LC130(base0)
8609  register object *base0;  register object *base0;
8610  {       register object *base=vs_base;  {       register object *base=vs_base;
8611          register object *sup=base+VM118; VC118          register object *sup=base+VM115; VC115
8612          vs_check;          vs_check;
8613          {object V1439;          {object V1297;
8614          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8615          {object *p=vs_top;          {object *p=vs_top;
8616           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8617          V1439=(base[0]);          V1297=(base[0]);
8618          vs_top=sup;          vs_top=sup;
8619          base[1]= VV[274];          base[1]= VV[287];
8620          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8621          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8622          Lerror();          Lerror();
# Line 8916  register object *base0; Line 8625  register object *base0;
8625  }  }
8626  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8627    
8628  static void LC134(base0)  static void LC129(base0)
8629  register object *base0;  register object *base0;
8630  {       register object *base=vs_base;  {       register object *base=vs_base;
8631          register object *sup=base+VM119; VC119          register object *sup=base+VM116; VC116
8632          vs_check;          vs_check;
8633          {object V1440;          {object V1298;
8634          register object V1441;          register object V1299;
8635          check_arg(2);          check_arg(2);
8636          V1440=(base[0]);          V1298=(base[0]);
8637          V1441=(base[1]);          V1299=(base[1]);
8638          vs_top=sup;          vs_top=sup;
8639          base[2]= (V1441);          base[2]= (V1299);
8640          base[3]= VV[270];          base[3]= VV[283];
8641          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8642          Lformat();          Lformat();
8643          vs_top=sup;          vs_top=sup;
8644          base[2]= (V1441);          base[2]= (V1299);
8645          base[3]= VV[271];          base[3]= VV[284];
8646          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8647          Lformat();          Lformat();
8648          vs_top=sup;          vs_top=sup;
8649          base[2]= (V1441);          base[2]= (V1299);
8650          base[3]= VV[272];          base[3]= VV[285];
8651          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8652          Lformat();          Lformat();
8653          vs_top=sup;          vs_top=sup;
8654          (void)((*(LnkLI484))((V1440),(V1441)));          (void)((*(LnkLI501))((V1298),(V1299)));
8655          base[2]= (V1441);          base[2]= (V1299);
8656          base[3]= VV[273];          base[3]= VV[286];
8657          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8658          Lformat();          Lformat();
8659          return;          return;
# Line 8952  register object *base0; Line 8661  register object *base0;
8661  }  }
8662  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8663    
8664  static void LC133(base0)  static void LC128(base0)
8665  register object *base0;  register object *base0;
8666  {       register object *base=vs_base;  {       register object *base=vs_base;
8667          register object *sup=base+VM120; VC120          register object *sup=base+VM117; VC117
8668          vs_check;          vs_check;
8669          {object V1442;          {object V1300;
8670          check_arg(1);          check_arg(1);
8671          V1442=(base[0]);          V1300=(base[0]);
8672          vs_top=sup;          vs_top=sup;
8673          {register object x= (V1442),V1443= (base0[0]->c.c_car);          {register object x= (V1300),V1301= (base0[0]->c.c_car);
8674          while(V1443!=Cnil)          while(V1301!=Cnil)
8675          if(x==(V1443->c.c_car)){          if(x==(V1301->c.c_car)){
8676          base[1]= V1443;          base[1]= V1301;
8677          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8678          return;          return;
8679          }else V1443=V1443->c.c_cdr;          }else V1301=V1301->c.c_cdr;
8680          base[1]= Cnil;          base[1]= Cnil;
8681          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8682          return;}          return;}
# Line 8975  register object *base0; Line 8684  register object *base0;
8684  }  }
8685  /*      local function COMPARE  */  /*      local function COMPARE  */
8686    
8687  static void L83(base0)  static void L79(base0)
8688  register object *base0;  register object *base0;
8689  {       register object *base=vs_base;  {       register object *base=vs_base;
8690          register object *sup=base+VM121; VC121          register object *sup=base+VM118; VC118
8691          vs_check;          vs_check;
8692          {object V1444;          {object V1302;
8693          object V1445;          object V1303;
8694          check_arg(2);          check_arg(2);
8695          V1444=(base[0]);          V1302=(base[0]);
8696          V1445=(base[1]);          V1303=(base[1]);
8697          vs_top=sup;          vs_top=sup;
8698          goto TTL;          goto TTL;
8699  TTL:;  TTL:;
8700          if(!(number_compare((V1444),(V1445))>0)){          if(!(number_compare((V1302),(V1303))>0)){
8701          goto T2846;}          goto T2754;}
8702          base[2]= VV[251];          base[2]= VV[264];
8703          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8704          return;          return;
8705          goto T2846;          goto T2754;
8706  T2846:;  T2754:;
8707          base[2]= VV[252];          base[2]= VV[265];
8708          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8709          return;          return;
8710          }          }
8711  }  }
8712  /*      local function LOSE     */  /*      local function LOSE     */
8713    
8714  static void L82(base0)  static void L78(base0)
8715  register object *base0;  register object *base0;
8716  {       register object *base=vs_base;  {       register object *base=vs_base;
8717          register object *sup=base+VM122; VC122          register object *sup=base+VM119; VC119
8718          vs_check;          vs_check;
8719          {object V1446;          {object V1304;
8720          object V1447;          object V1305;
8721          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8722          V1446=(base[0]);          V1304=(base[0]);
8723          vs_base=vs_base+1;          vs_base=vs_base+1;
8724          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8725          {object *p=vs_top;          {object *p=vs_top;
8726           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8727          V1447=(base[1]);          V1305=(base[1]);
         vs_top=sup;  
         base[2]= VV[250];  
         base[3]= base0[2];  
         base[4]= base0[0];  
         base[6]= Cnil;  
         base[7]= (V1446);  
         {object V1448;  
         V1448= (V1447);  
          vs_top=base+8;  
          while(V1448!=Cnil)  
          {vs_push((V1448)->c.c_car);V1448=(V1448)->c.c_cdr;}  
         vs_base=base+6;}  
         Lformat();  
8728          vs_top=sup;          vs_top=sup;
8729          base[5]= vs_base[0];          base[2]= VV[8];
8730          vs_top=(vs_base=base+2)+4;          base[3]= VV[263];
8731          Lerror();          base[4]= base0[2];
8732            base[5]= base0[0];
8733            base[6]= (V1304);
8734            base[7]= (V1305);
8735            vs_top=(vs_base=base+2)+6;
8736            (void) (*Lnk364)();
8737          return;          return;
8738          }          }
8739  }  }
8740  /*      local function CLOSURE  */  /*      local function CLOSURE  */
8741    
8742  static void LC132(base0)  static void LC127(base0)
8743  register object *base0;  register object *base0;
8744  {       register object *base=vs_base;  {       register object *base=vs_base;
8745          register object *sup=base+VM123; VC123          register object *sup=base+VM120; VC120
8746          vs_check;          vs_check;
8747          {object V1449;          {object V1306;
8748          check_arg(1);          check_arg(1);
8749          V1449=(base[0]);          V1306=(base[0]);
8750          vs_top=sup;          vs_top=sup;
8751          base[1]= (((((V1449))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1306))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8752          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8753          return;          return;
8754          }          }
8755  }  }
8756    /*      local function CLOSURE  */
8757    
8758    static void LC126(base0)
8759    register object *base0;
8760    {       register object *base=vs_base;
8761            register object *sup=base+VM121; VC121
8762            vs_check;
8763            {object V1307;
8764            check_arg(1);
8765            V1307=(base[0]);
8766            vs_top=sup;
8767            base[1]= (V1307);
8768            base[2]= VV[244];
8769            base[3]= (base0[0]->c.c_car);
8770            vs_top=(vs_base=base+1)+3;
8771            Lformat();
8772            return;
8773            }
8774    }
8775  /*      local function PARSE-KEYWORD-ARGUMENT   */  /*      local function PARSE-KEYWORD-ARGUMENT   */
8776    
8777  static void L64(base0)  static void L59(base0)
8778  register object *base0;  register object *base0;
8779  {       register object *base=vs_base;  {       register object *base=vs_base;
8780          register object *sup=base+VM124; VC124          register object *sup=base+VM122; VC122
8781          vs_check;          vs_check;
8782          {object V1450;          {object V1308;
8783          check_arg(1);          check_arg(1);
8784          V1450=(base[0]);          V1308=(base[0]);
8785          vs_top=sup;          vs_top=sup;
8786          goto TTL;          goto TTL;
8787  TTL:;  TTL:;
8788          if(!(type_of((V1450))==t_cons||((V1450))==Cnil)){          if(!(type_of((V1308))==t_cons||((V1308))==Cnil)){
8789          goto T2856;}          goto T2766;}
8790          {object V1451= CMPcar((V1450));          {object V1309= CMPcar((V1308));
8791          if(!(type_of(V1451)==t_cons||(V1451)==Cnil)){          if(!(type_of(V1309)==t_cons||(V1309)==Cnil)){
8792          goto T2859;}}          goto T2769;}}
8793          base[1]= CMPcaar((V1450));          base[1]= CMPcaar((V1308));
8794          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8795          return;          return;
8796          goto T2859;          goto T2769;
8797  T2859:;  T2769:;
8798          base[1]= CMPcar((V1450));          base[1]= CMPcar((V1308));
8799          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8800          (void) (*Lnk485)();          (void) (*Lnk502)();
8801          return;          return;
8802          goto T2856;          goto T2766;
8803  T2856:;  T2766:;
8804          base[1]= (V1450);          base[1]= (V1308);
8805          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8806          (void) (*Lnk485)();          (void) (*Lnk502)();
8807          return;          return;
8808          }          }
8809  }  }
8810  /*      local function SET-MF-PROPERTY  */  /*      local function SET-MF-PROPERTY  */
8811    
8812  static void L62(base0)  static void L57(base0)
8813  register object *base0;  register object *base0;
8814  {       register object *base=vs_base;  {       register object *base=vs_base;
8815          register object *sup=base+VM125; VC125          register object *sup=base+VM123; VC123
8816          vs_check;          vs_check;
8817          {object V1452;          {object V1310;
8818          object V1453;          object V1311;
8819          check_arg(2);          check_arg(2);
8820          V1452=(base[0]);          V1310=(base[0]);
8821          V1453=(base[1]);          V1311=(base[1]);
8822          vs_top=sup;          vs_top=sup;
8823          goto TTL;          goto TTL;
8824  TTL:;  TTL:;
8825          if((base0[0])==Cnil){          if((base0[0])==Cnil){
8826          goto T2863;}          goto T2773;}
8827          V1457= ({object _tmp=get(VV[210],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[210])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[210])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V1315= ({object _tmp=get(VV[220],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[220])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[220])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V1458 = V1453;  
         V1459 = base0[0];  
         V1460 = V1452;  
8828          (void)((          (void)((
8829          V1461 = V1457,          V1316 = V1315,
8830          (type_of(V1461) == t_sfun ?(*((V1461)->sfn.sfn_self)):          (type_of(V1316) == t_sfun ?(*((V1316)->sfn.sfn_self)):
8831          (fcall.argd=3,type_of(V1461)==t_vfun) ?          (fcall.argd=3,type_of(V1316)==t_vfun) ?
8832          (*((V1461)->sfn.sfn_self)):          (*((V1316)->sfn.sfn_self)):
8833          (fcall.fun=(V1461),fcalln))(V1458,V1459,V1460)));          (fcall.fun=(V1316),fcalln))(V1311,base0[0],V1310)));
8834          goto T2863;          goto T2773;
8835  T2863:;  T2773:;
8836          if((base0[4])==Cnil){          if((base0[4])==Cnil){
8837          goto T2868;}          goto T2778;}
8838          base[2]= ({object _tmp=get(VV[210],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[210])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[210])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          base[2]= ({object _tmp=get(VV[220],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[220])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[220])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
8839          base[3]= V1453;          base[3]= V1311;
8840          base[4]= base0[4];          base[4]= base0[4];
8841          base[5]= V1452;          base[5]= V1310;
8842          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8843          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8844                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8845                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8846                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8847          return;          return;
8848          goto T2868;          goto T2778;
8849  T2868:;  T2778:;
8850          base[2]= Cnil;          base[2]= Cnil;
8851          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8852          return;          return;
8853          }          }
8854  }  }
 /*      local function IGNOREDP */  
   
 static void L49(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM126; VC126  
         vs_check;  
         {object V1465;  
         check_arg(1);  
         V1465=(base[0]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         {register object V1466;  
         register object V1467;  
         V1466= CMPcdar(base0[0]);  
         V1467= CMPcar((V1466));  
         goto T2877;  
 T2877:;  
         if(!(((V1466))==Cnil)){  
         goto T2878;}  
         base[3]= Cnil;  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2878;  
 T2878:;  
         if(!((CMPcar((V1467)))==(VV[181]))){  
         goto T2882;}  
         {register object x= (V1465),V1468= CMPcdr((V1467));  
         while(V1468!=Cnil)  
         if(x==(V1468->c.c_car)){  
         goto T2886;  
         }else V1468=V1468->c.c_cdr;  
         goto T2882;}  
         goto T2886;  
 T2886:;  
         base[3]= Ct;  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2882;  
 T2882:;  
         V1466= CMPcdr((V1466));  
         V1467= CMPcar((V1466));  
         goto T2877;}  
         }  
 }  
8855  /*      local function WALK-FUNCTION    */  /*      local function WALK-FUNCTION    */
8856    
8857  static void LC44(base0)  static void LC44(base0)
8858  register object *base0;  register object *base0;
8859  {       register object *base=vs_base;  {       register object *base=vs_base;
8860          register object *sup=base+VM127; VC127          register object *sup=base+VM124; VC124
8861          vs_check;          vs_check;
8862          {register object V1469;          {register object V1320;
8863          object V1470;          object V1321;
8864          object V1471;          object V1322;
8865          check_arg(3);          check_arg(3);
8866          V1469=(base[0]);          V1320=(base[0]);
8867          V1470=(base[1]);          V1321=(base[1]);
8868          V1471=(base[2]);          V1322=(base[2]);
8869          vs_top=sup;          vs_top=sup;
8870          if(((V1470))==(VV[193])){          if(((V1321))==(VV[203])){
8871          goto T2893;}          goto T2785;}
8872          base[3]= (V1469);          base[3]= (V1320);
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2893;  
 T2893:;  
         if(type_of((V1469))==t_cons||((V1469))==Cnil){  
         goto T2896;}  
         base[3]= (V1469);  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2896;  
 T2896:;  
         if(!((CMPcar((V1469)))==(VV[194]))){  
         goto T2899;}  
         (base0[2]->c.c_car)= Ct;  
         base[3]= (V1469);  
8873          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8874          return;          return;
8875          goto T2899;          goto T2785;
8876  T2899:;  T2785:;
8877          if(!((CMPcar((V1469)))==(VV[195]))){          if(type_of((V1320))==t_cons||((V1320))==Cnil){
8878          goto T2904;}          goto T2788;}
8879          (base0[0]->c.c_car)= Ct;          base[3]= (V1320);
         base[3]= (V1469);  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2904;  
 T2904:;  
         {object V1472;  
         if((CMPcar((V1469)))==(VV[14])){  
         goto T2909;}  
         V1472= Cnil;  
         goto T2908;  
         goto T2909;  
 T2909:;  
         if(!((CMPcadr((V1469)))==(VV[194]))){  
         goto T2912;}  
         (base0[2]->c.c_car)= Ct;  
         (base0[1]->c.c_car)= Ct;  
         V1472= (V1469);  
         goto T2908;  
         goto T2912;  
 T2912:;  
         if(!((CMPcadr((V1469)))==(VV[195]))){  
         goto T2919;}  
         (base0[0]->c.c_car)= Ct;  
         (base0[1]->c.c_car)= Ct;  
         V1472= (V1469);  
         goto T2908;  
         goto T2919;  
 T2919:;  
         V1472= Cnil;  
         goto T2908;  
 T2908:;  
         if(((V1472))==Cnil){  
         goto T2926;}  
         base[3]= (V1472);  
8880          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8881          return;          return;
8882          goto T2926;          goto T2788;
8883  T2926:;  T2788:;
8884          if((CMPcar((V1469)))==(VV[196])){          if((CMPcar((V1320)))==(VV[204])){
8885          goto T2930;}          goto T2792;}
8886          if((CMPcar((V1469)))==(VV[197])){          if((CMPcar((V1320)))==(VV[205])){
8887          goto T2930;}          goto T2792;}
8888          if(!((CMPcar((V1469)))==(VV[198]))){          if(!((CMPcar((V1320)))==(VV[206]))){
8889          goto T2929;}          goto T2791;}
8890          goto T2930;          goto T2792;
8891  T2930:;  T2792:;
8892          base[3]= CMPcaddr((V1469));          base[3]= CMPcaddr((V1320));
8893          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8894          Lconstantp();          Lconstantp();
8895          vs_top=sup;          vs_top=sup;
8896          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8897          goto T2929;}          goto T2791;}
8898          {object V1473;          {object V1323;
8899          V1473= (*(LnkLI486))((V1469),(base0[5]->c.c_car),(V1471));          V1323= (*(LnkLI503))((V1320),(base0[2]->c.c_car),(V1322));
8900          {object V1474= CMPcar((V1469));          {object V1324;
8901          if((V1474!= VV[196]))goto T2939;          V1324= CMPcar((V1320));
8902          base[3]= (*(LnkLI487))((base0[4]->c.c_car),(V1473),(V1469));          {object V1325= (V1324);
8903          vs_top=(vs_base=base+3)+1;          if((V1325!= VV[204]))goto T2802;
8904          return;          base[3]= (*(LnkLI504))((base0[1]->c.c_car),(V1323),(V1320));
8905          goto T2939;          vs_top=(vs_base=base+3)+1;
8906  T2939:;          return;
8907          if((V1474!= VV[197]))goto T2940;          goto T2802;
8908          base[3]= (*(LnkLI488))((base0[4]->c.c_car),(V1473),(V1469));  T2802:;
8909          vs_top=(vs_base=base+3)+1;          if((V1325!= VV[205]))goto T2803;
8910          return;          base[3]= (*(LnkLI505))((base0[1]->c.c_car),(V1323),(V1320));
8911          goto T2940;          vs_top=(vs_base=base+3)+1;
8912  T2940:;          return;
8913          if((V1474!= VV[198]))goto T2941;          goto T2803;
8914          base[3]= (*(LnkLI489))((base0[4]->c.c_car),(V1473),(V1469));  T2803:;
8915            if((V1325!= VV[206]))goto T2804;
8916            base[3]= (*(LnkLI506))((base0[1]->c.c_car),(V1323),(V1320));
8917          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8918          return;          return;
8919          goto T2941;          goto T2804;
8920  T2941:;  T2804:;
8921          FEerror("The ECASE key value ~s is illegal.",1,V1474);          base[3]= VV[157];
8922          base[3]= Cnil;          base[4]= VV[158];
8923          vs_top=(vs_base=base+3)+1;          base[5]= VV[207];
8924          return;}}          base[6]= VV[160];
8925          goto T2929;          base[7]= (V1324);
8926  T2929:;          base[8]= VV[161];
8927          if(!((CMPcar((V1469)))==(VV[137]))){          base[9]= VV[208];
8928          goto T2943;}          base[10]= VV[163];
8929          if(!(type_of(CMPcadr((V1469)))==t_cons)){          base[11]= VV[209];
8930          goto T2943;}          vs_top=(vs_base=base+3)+9;
8931          if(!((CMPcar(CMPcadr((V1469))))==(VV[14]))){          (void) (*Lnk409)();
8932          goto T2943;}          return;}}}
8933          base[3]= CMPcadr(CMPcadr((V1469)));          goto T2791;
8934    T2791:;
8935            if(!((CMPcar((V1320)))==(VV[142]))){
8936            goto T2815;}
8937            if(!(type_of(CMPcadr((V1320)))==t_cons)){
8938            goto T2815;}
8939            if(!((CMPcar(CMPcadr((V1320))))==(VV[18]))){
8940            goto T2815;}
8941            base[3]= CMPcadr(CMPcadr((V1320)));
8942          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8943          (void) (*Lnk490)();          (void) (*Lnk507)();
8944          vs_top=sup;          vs_top=sup;
8945          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8946          goto T2943;}          goto T2815;}
8947          base[3]= (*(LnkLI491))((V1469),(base0[5]->c.c_car),(V1471),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI508))((V1320),(base0[2]->c.c_car),(V1322),(base0[1]->c.c_car),(base0[0]->c.c_car));
8948          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8949          return;          return;
8950          goto T2943;          goto T2815;
8951  T2943:;  T2815:;
8952          if(type_of(CMPcar((V1469)))==t_symbol){          if(type_of(CMPcar((V1320)))==t_symbol){
8953          goto T2954;}          goto T2826;}
8954          if(!(type_of(CMPcar((V1469)))==t_cons)){          if(!(type_of(CMPcar((V1320)))==t_cons)){
8955          goto T2953;}          goto T2825;}
8956          if(!((CMPcaar((V1469)))==(VV[30]))){          if(!((CMPcaar((V1320)))==(VV[34]))){
8957          goto T2953;}          goto T2825;}
8958          goto T2954;          goto T2826;
8959  T2954:;  T2826:;
8960          base[3]= CMPcar((V1469));          base[3]= CMPcar((V1320));
8961          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8962          (void) (*Lnk490)();          (void) (*Lnk507)();
8963          vs_top=sup;          vs_top=sup;
8964          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8965          goto T2953;}          goto T2825;}
8966          base[3]= (*(LnkLI491))((V1469),(base0[5]->c.c_car),(V1471),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI508))((V1320),(base0[2]->c.c_car),(V1322),(base0[1]->c.c_car),(base0[0]->c.c_car));
8967          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8968          return;          return;
8969          goto T2953;          goto T2825;
8970  T2953:;  T2825:;
8971          if(!((CMPcar((V1469)))==(VV[199]))){          if(!((CMPcar((V1320)))==(VV[210]))){
8972          goto T2963;}          goto T2835;}
8973          if(((VV[22]->s.s_dbind))==Cnil){          if(((VV[26]->s.s_dbind))==Cnil){
8974          goto T2963;}          goto T2835;}
8975          {object V1475= CMPcadddr((V1469));          {object V1326= CMPcadddr((V1320));
8976          if((V1475!= VV[255]))goto T2968;          if((V1326!= VV[268]))goto T2840;
8977          {object V1476;          {object V1327;
8978          V1476= CMPcaddr((V1469));          V1327= CMPcaddr((V1320));
8979          (VV[23]->s.s_dbind)= make_cons((V1476),(VV[23]->s.s_dbind));          (VV[27]->s.s_dbind)= make_cons((V1327),(VV[27]->s.s_dbind));
8980          goto T2967;}          goto T2839;}
8981          goto T2968;          goto T2840;
8982  T2968:;  T2840:;
8983          if((V1475!= VV[257]))goto T2971;          if((V1326!= VV[270]))goto T2843;
8984          {object V1477;          {object V1328;
8985          V1477= CMPcaddr((V1469));          V1328= CMPcaddr((V1320));
8986          (VV[24]->s.s_dbind)= make_cons((V1477),(VV[24]->s.s_dbind));          (VV[28]->s.s_dbind)= make_cons((V1328),(VV[28]->s.s_dbind));
8987          goto T2967;}          goto T2839;}
8988          goto T2971;          goto T2843;
8989  T2971:;  T2843:;
8990          if((V1475!= VV[259]))goto T2974;          if((V1326!= VV[272]))goto T2846;
8991          {object V1478;          {object V1329;
8992          V1478= CMPcaddr((V1469));          V1329= CMPcaddr((V1320));
8993          (VV[25]->s.s_dbind)= make_cons((V1478),(VV[25]->s.s_dbind));          (VV[29]->s.s_dbind)= make_cons((V1329),(VV[29]->s.s_dbind));
8994          goto T2967;}          goto T2839;}
8995          goto T2974;          goto T2846;
8996  T2974:;}  T2846:;}
8997          goto T2967;          goto T2839;
8998  T2967:;  T2839:;
8999          base[3]= make_cons(CMPcadr((V1469)),CMPcddddr((V1469)));          base[3]= make_cons(CMPcadr((V1320)),CMPcddddr((V1320)));
9000          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9001          return;          return;
9002          goto T2963;          goto T2835;
9003  T2963:;  T2835:;
9004          base[3]= (V1469);          base[3]= (V1320);
9005          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9006          return;}          return;
9007          }          }
9008  }  }
9009  /*      local function PROCESS-VAR      */  /*      local function PROCESS-VAR      */
9010    
9011  static void L40(base0)  static void L41(base0)
9012  register object *base0;  register object *base0;
9013  {       register object *base=vs_base;  {       register object *base=vs_base;
9014          register object *sup=base+VM128; VC128          register object *sup=base+VM125; VC125
9015          vs_check;          vs_check;
9016          {register object V1479;          {register object V1330;
9017          check_arg(1);          check_arg(1);
9018          V1479=(base[0]);          V1330=(base[0]);
9019          vs_top=sup;          vs_top=sup;
9020          goto TTL;          goto TTL;
9021  TTL:;  TTL:;
9022          {register object x= (V1479),V1480= VV[182];          {register object x= (V1330),V1331= VV[193];
9023          while(V1480!=Cnil)          while(V1331!=Cnil)
9024          if(x==(V1480->c.c_car)){          if(x==(V1331->c.c_car)){
9025          goto T2979;          goto T2851;
9026          }else V1480=V1480->c.c_cdr;          }else V1331=V1331->c.c_cdr;
9027          goto T2978;}          goto T2850;}
9028          goto T2979;          goto T2851;
9029  T2979:;  T2851:;
9030          {object V1481= (V1479);          {object V1332= (V1330);
9031          if((V1481!= VV[406]))goto T2981;          if((V1332!= VV[418]))goto T2853;
9032          base0[7]= VV[183];          base0[7]= VV[194];
9033          goto T2980;          goto T2852;
9034          goto T2981;          goto T2853;
9035  T2981:;  T2853:;
9036          if((V1481!= VV[61]))goto T2983;          if((V1332!= VV[63]))goto T2855;
9037          base0[7]= VV[184];          base0[7]= VV[195];
9038          goto T2980;          goto T2852;
9039          goto T2983;          goto T2855;
9040  T2983:;  T2855:;
9041          if((V1481!= VV[62]))goto T2985;          if((V1332!= VV[64]))goto T2857;
9042          goto T2980;          goto T2852;
9043          goto T2985;          goto T2857;
9044  T2985:;  T2857:;
9045          if((V1481!= VV[169]))goto T2986;          if((V1332!= VV[178]))goto T2858;
9046          base0[7]= VV[185];          base0[7]= VV[196];
9047          goto T2980;          goto T2852;
9048          goto T2986;          goto T2858;
9049  T2986:;  T2858:;
9050          if((V1481!= VV[55]))goto T2988;          if((V1332!= VV[65]))goto T2860;
9051          base0[7]= VV[186];          base0[7]= VV[197];
9052          goto T2980;          goto T2852;
9053          goto T2988;          goto T2860;
9054  T2988:;  T2860:;
9055          base[1]= VV[187];          base[1]= VV[198];
9056          base[2]= (V1479);          base[2]= (V1330);
9057          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9058          Lerror();          Lerror();
9059          vs_top=sup;}          vs_top=sup;}
9060          goto T2980;          goto T2852;
9061  T2980:;  T2852:;
9062          base[1]= Cnil;          base[1]= Cnil;
9063          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9064          return;          return;
9065          goto T2978;          goto T2850;
9066  T2978:;  T2850:;
9067          {object V1482= base0[7];          {object V1333= base0[7];
9068          if((V1482!= VV[180]))goto T2992;          if((V1333!= VV[192]))goto T2864;
9069          V1483= list(2,(V1479),list(2,VV[188],base0[5]));          V1334= list(2,(V1330),list(2,VV[199],base0[5]));
9070          base[1]= make_cons(/* INLINE-ARGS */V1483,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1334,Cnil);
9071          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9072          return;          return;
9073          goto T2992;          goto T2864;
9074  T2992:;  T2864:;
9075          if((V1482!= VV[183]))goto T2993;          if((V1333!= VV[194]))goto T2865;
9076          if(type_of((V1479))==t_cons){          if(type_of((V1330))==t_cons){
9077          goto T2995;}          goto T2867;}
9078          V1484= list(2,(V1479),list(3,VV[115],base0[5],list(2,VV[188],base0[5])));          V1335= list(2,(V1330),list(3,VV[120],base0[5],list(2,VV[199],base0[5])));
9079          base[1]= make_cons(/* INLINE-ARGS */V1484,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1335,Cnil);
9080          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9081          return;          return;
9082          goto T2995;          goto T2867;
9083  T2995:;  T2867:;
9084          if((CMPcddr((V1479)))!=Cnil){          if((CMPcddr((V1330)))!=Cnil){
9085          goto T2998;}          goto T2870;}
9086          V1485= CMPcar((V1479));          V1336= CMPcar((V1330));
9087          V1486= list(2,/* INLINE-ARGS */V1485,list(4,VV[129],base0[5],list(2,VV[188],base0[5]),CMPcadr((V1479))));          V1337= list(2,/* INLINE-ARGS */V1336,list(4,VV[134],base0[5],list(2,VV[199],base0[5]),CMPcadr((V1330))));
9088          base[1]= make_cons(/* INLINE-ARGS */V1486,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1337,Cnil);
9089          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9090          return;          return;
9091          goto T2998;          goto T2870;
9092  T2998:;  T2870:;
9093          V1487= list(2,CMPcaddr((V1479)),base0[5]);          V1338= list(2,CMPcaddr((V1330)),base0[5]);
9094          V1488= CMPcar((V1479));          V1339= CMPcar((V1330));
9095          base[1]= list(2,/* INLINE-ARGS */V1487,list(2,/* INLINE-ARGS */V1488,list(4,VV[129],base0[5],list(2,VV[188],base0[5]),CMPcadr((V1479)))));          base[1]= list(2,/* INLINE-ARGS */V1338,list(2,/* INLINE-ARGS */V1339,list(4,VV[134],base0[5],list(2,VV[199],base0[5]),CMPcadr((V1330)))));
9096          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9097          return;          return;
9098          goto T2993;          goto T2865;
9099  T2993:;  T2865:;
9100          if((V1482!= VV[185]))goto T3000;          if((V1333!= VV[196]))goto T2872;
9101          V1489= list(2,(V1479),base0[5]);          V1340= list(2,(V1330),base0[5]);
9102          base[1]= make_cons(/* INLINE-ARGS */V1489,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1340,Cnil);
9103          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9104          return;          return;
9105          goto T3000;          goto T2872;
9106  T3000:;  T2872:;
9107          if((V1482!= VV[184]))goto T3001;          if((V1333!= VV[195]))goto T2873;
9108          if(type_of((V1479))==t_cons){          if(type_of((V1330))==t_cons){
9109          goto T3003;}          goto T2875;}
9110          base[1]= (V1479);          base[1]= (V1330);
9111          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9112          (void) (*Lnk485)();          (void) (*Lnk502)();
9113          vs_top=sup;          vs_top=sup;
9114          V1490= vs_base[0];          V1341= vs_base[0];
9115          V1491 = base0[5];          V1342= list(2,(V1330),list(2,VV[200],list(3,VV[201],V1341,base0[5])));
9116          V1492= list(2,(V1479),list(3,VV[189],V1490,V1491));          base[1]= make_cons(/* INLINE-ARGS */V1342,Cnil);
9117          base[1]= make_cons(/* INLINE-ARGS */V1492,Cnil);          vs_top=(vs_base=base+1)+1;
9118          vs_top=(vs_base=base+1)+1;          return;
9119          return;          goto T2875;
9120          goto T3003;  T2875:;
9121  T3003:;          if((CMPcddr((V1330)))!=Cnil){
9122          if((CMPcddr((V1479)))!=Cnil){          goto T2880;}
9123          goto T3008;}          {object V1343;
9124          {object V1493;          object V1344;
9125          object V1494;          if(!(type_of(CMPcar((V1330)))==t_cons)){
9126          if(!(type_of(CMPcar((V1479)))==t_cons)){          goto T2884;}
9127          goto T3012;}          base[1]= CMPcaar((V1330));
9128          base[1]= CMPcaar((V1479));          base[2]= CMPcadar((V1330));
         base[2]= CMPcadar((V1479));  
9129          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9130          goto T3010;          goto T2882;
9131          goto T3012;          goto T2884;
9132  T3012:;  T2884:;
9133          base[2]= CMPcar((V1479));          base[2]= CMPcar((V1330));
9134          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9135          (void) (*Lnk485)();          (void) (*Lnk502)();
9136          vs_top=sup;          vs_top=sup;
9137          base[1]= vs_base[0];          base[1]= vs_base[0];
9138          base[2]= CMPcar((V1479));          base[2]= CMPcar((V1330));
9139          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9140          goto T3010;          goto T2882;
9141  T3010:;  T2882:;
9142          if(vs_base>=vs_top){vs_top=sup;goto T3019;}          if(vs_base>=vs_top){vs_top=sup;goto T2891;}
9143          V1493= vs_base[0];          V1343= vs_base[0];
9144          vs_base++;          vs_base++;
9145          if(vs_base>=vs_top){vs_top=sup;goto T3020;}          if(vs_base>=vs_top){vs_top=sup;goto T2892;}
9146          V1494= vs_base[0];          V1344= vs_base[0];
9147          vs_top=sup;          vs_top=sup;
9148          goto T3021;          goto T2893;
9149          goto T3019;          goto T2891;
9150  T3019:;  T2891:;
9151          V1493= Cnil;          V1343= Cnil;
9152          goto T3020;          goto T2892;
9153  T3020:;  T2892:;
9154          V1494= Cnil;          V1344= Cnil;
9155          goto T3021;          goto T2893;
9156  T3021:;  T2893:;
9157          V1495= list(2,base0[6],list(3,VV[190],(V1493),base0[5]));          V1345= list(2,base0[6],list(3,VV[201],list(2,VV[1],(V1343)),base0[5]));
9158          V1496= list(2,VV[191],base0[6]);          base[1]= list(2,/* INLINE-ARGS */V1345,list(2,(V1344),list(4,VV[134],base0[6],list(2,VV[200],base0[6]),CMPcadr((V1330)))));
         base[1]= list(2,/* INLINE-ARGS */V1495,list(2,(V1494),list(4,VV[129],/* INLINE-ARGS */V1496,list(2,VV[192],base0[6]),CMPcadr((V1479)))));  
9159          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9160          return;}          return;}
9161          goto T3008;          goto T2880;
9162  T3008:;  T2880:;
9163          {object V1497;          {object V1346;
9164          object V1498;          object V1347;
9165          if(!(type_of(CMPcar((V1479)))==t_cons)){          if(!(type_of(CMPcar((V1330)))==t_cons)){
9166          goto T3024;}          goto T2896;}
9167          base[1]= CMPcaar((V1479));          base[1]= CMPcaar((V1330));
9168          base[2]= CMPcadar((V1479));          base[2]= CMPcadar((V1330));
9169          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9170          goto T3022;          goto T2894;
9171          goto T3024;          goto T2896;
9172  T3024:;  T2896:;
9173          base[2]= CMPcar((V1479));          base[2]= CMPcar((V1330));
9174          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9175          (void) (*Lnk485)();          (void) (*Lnk502)();
9176          vs_top=sup;          vs_top=sup;
9177          base[1]= vs_base[0];          base[1]= vs_base[0];
9178          base[2]= CMPcar((V1479));          base[2]= CMPcar((V1330));
9179          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9180          goto T3022;          goto T2894;
9181  T3022:;  T2894:;
9182          if(vs_base>=vs_top){vs_top=sup;goto T3031;}          if(vs_base>=vs_top){vs_top=sup;goto T2903;}
9183          V1497= vs_base[0];          V1346= vs_base[0];
9184          vs_base++;          vs_base++;
9185          if(vs_base>=vs_top){vs_top=sup;goto T3032;}          if(vs_base>=vs_top){vs_top=sup;goto T2904;}
9186          V1498= vs_base[0];          V1347= vs_base[0];
9187          vs_top=sup;          vs_top=sup;
9188          goto T3033;          goto T2905;
9189          goto T3031;          goto T2903;
9190  T3031:;  T2903:;
9191          V1497= Cnil;          V1346= Cnil;
9192          goto T3032;          goto T2904;
9193  T3032:;  T2904:;
9194          V1498= Cnil;          V1347= Cnil;
9195          goto T3033;          goto T2905;
9196  T3033:;  T2905:;
9197          V1499= list(2,base0[6],list(3,VV[190],(V1497),base0[5]));          V1348= list(2,base0[6],list(3,VV[201],list(2,VV[1],(V1346)),base0[5]));
9198          V1500= list(2,CMPcaddr((V1479)),base0[6]);          V1349= list(2,CMPcaddr((V1330)),base0[6]);
9199          V1501= list(2,VV[191],base0[6]);          base[1]= list(3,/* INLINE-ARGS */V1348,/* INLINE-ARGS */V1349,list(2,(V1347),list(4,VV[134],base0[6],list(2,VV[200],base0[6]),CMPcadr((V1330)))));
         base[1]= list(3,/* INLINE-ARGS */V1499,/* INLINE-ARGS */V1500,list(2,(V1498),list(4,VV[129],/* INLINE-ARGS */V1501,list(2,VV[192],base0[6]),CMPcadr((V1479)))));  
9200          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9201          return;}          return;}
9202          goto T3001;          goto T2873;
9203  T3001:;  T2873:;
9204          if((V1482!= VV[186]))goto T3034;          if((V1333!= VV[197]))goto T2906;
9205          base[1]= make_cons((V1479),Cnil);          base[1]= make_cons((V1330),Cnil);
9206          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9207          return;          return;
9208          goto T3034;          goto T2906;
9209  T3034:;  T2906:;
9210          base[1]= Cnil;          base[1]= Cnil;
9211          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9212          return;}          return;}
# Line 9585  T3034:; Line 9214  T3034:;
9214  }  }
9215  /*      local function CLOSURE  */  /*      local function CLOSURE  */
9216    
9217  static void LC131(base0)  static void LC125(base0)
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM129; VC129  
         vs_check;  
         {object V1502;  
         vs_top[0]=Cnil;  
         {object *p=vs_top;  
          for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}  
         V1502=(base[0]);  
         vs_top=sup;  
         base[1]= STREF(object,(base0[0]->c.c_car),0);  
         base[2]= (V1502);  
         {object V1503;  
         V1503= STREF(object,(base0[0]->c.c_car),4);  
          vs_top=base+3;  
          while(V1503!=Cnil)  
          {vs_push((V1503)->c.c_car);V1503=(V1503)->c.c_cdr;}  
         vs_base=base+2;}  
         {object _funobj = base[1];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;  
         }  
 }  
 /*      local function CLOSURE  */  
   
 static void LC130(base0)  
 register object *base0;  
 {       register object *base=vs_base;  
         register object *sup=base+VM130; VC130  
         vs_check;  
         {object V1504;  
         vs_top[0]=Cnil;  
         {object *p=vs_top;  
          for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}  
         V1504=(base[0]);  
         vs_top=sup;  
         base[1]= STREF(object,(base0[2]->c.c_car),0);  
         base[2]= STREF(object,(base0[2]->c.c_car),4);  
         base[3]= STREF(object,(base0[2]->c.c_car),8);  
         {object V1505;  
         if(((base0[0]->c.c_car))==Cnil){  
         goto T3045;}  
         {object V1506;  
         object V1507;  
         V1506= nthcdr(fix((base0[1]->c.c_car)),(V1504));  
         base[6]= (V1504);  
         base[7]= (V1506);  
         vs_top=(vs_base=base+6)+2;  
         Lldiff();  
         vs_top=sup;  
         V1507= vs_base[0];  
         V1505= nconc((V1507),(V1506));  
         goto T3043;}  
         goto T3045;  
 T3045:;  
         V1505= (V1504);  
         goto T3043;  
 T3043:;  
          vs_top=base+4;  
          while(V1505!=Cnil)  
          {vs_push((V1505)->c.c_car);V1505=(V1505)->c.c_cdr;}  
         vs_base=base+2;}  
         {object _funobj = base[1];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;  
         }  
 }  
 /*      local function CLOSURE  */  
   
 static void LC129(base0)  
9218  register object *base0;  register object *base0;
9219  {       register object *base=vs_base;  {       register object *base=vs_base;
9220          register object *sup=base+VM131; VC131          register object *sup=base+VM126; VC126
9221          vs_check;          vs_check;
9222          {register object V1508;          {register object V1350;
9223          check_arg(1);          check_arg(1);
9224          V1508=(base[0]);          V1350=(base[0]);
9225          vs_top=sup;          vs_top=sup;
9226          if(!(type_of((V1508))==t_cons)){          if(!(type_of((V1350))==t_cons)){
9227          goto T3052;}          goto T2908;}
9228          if((CMPcar((V1508)))==(VV[31])){          if((CMPcar((V1350)))==(VV[35])){
9229          goto T3054;}          goto T2910;}
9230          base[1]= Cnil;          base[1]= Cnil;
9231          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9232          return;          return;
9233          goto T3054;          goto T2910;
9234  T3054:;  T2910:;
9235          base[1]= CMPcadr((V1508));          base[1]= CMPcadr((V1350));
9236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9237          Lconstantp();          Lconstantp();
9238          vs_top=sup;          vs_top=sup;
9239          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
9240          goto T3056;}          goto T2912;}
9241          base[1]= Cnil;          base[1]= Cnil;
9242          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9243          return;          return;
9244          goto T3056;          goto T2912;
9245  T3056:;  T2912:;
9246          {register object V1509;          {register object V1351;
9247          base[1]= CMPcadr((V1508));          base[1]= CMPcadr((V1350));
9248          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9249          Leval();          Leval();
9250          vs_top=sup;          vs_top=sup;
9251          V1509= vs_base[0];{object V1510;          V1351= vs_base[0];{object V1352;
9252          V1510= (*(LnkLI365))((V1509));          V1352= (*(LnkLI380))((V1351));
9253          if(V1510==Cnil)goto T3061;          if(V1352==Cnil)goto T2917;
9254          base[1]= V1510;          base[1]= V1352;
9255          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9256          return;          return;
9257          goto T3061;          goto T2917;
9258  T3061:;}  T2917:;}
9259          if(!(type_of((V1509))==t_fixnum||type_of((V1509))==t_bignum)){          if(!(type_of((V1351))==t_fixnum||type_of((V1351))==t_bignum)){
9260          goto T3063;}          goto T2919;}
9261          base[1]= Ct;          base[1]= Ct;
9262          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9263          return;          return;
9264          goto T3063;          goto T2919;
9265  T3063:;  T2919:;
9266          if(type_of((V1509))==t_character){          if(type_of((V1351))==t_character){
9267          goto T3065;}          goto T2921;}
9268          base[1]= Cnil;          base[1]= Cnil;
9269          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9270          return;          return;
9271          goto T3065;          goto T2921;
9272  T3065:;  T2921:;
9273          base[1]= (V1509);          base[1]= (V1351);
9274          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9275          Lstandard_char_p();          Lstandard_char_p();
9276          return;}          return;}
9277          goto T3052;          goto T2908;
9278  T3052:;  T2908:;
9279          base[1]= (*(LnkLI365))((V1508));          base[1]= (*(LnkLI380))((V1350));
9280          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9281          return;          return;
9282          }          }
9283  }  }
9284    /*      local function INITARG  */
9285    
9286    static void L7(base0)
9287    register object *base0;
9288    {       register object *base=vs_base;
9289            register object *sup=base+VM127; VC127
9290            vs_check;
9291            {object V1353;
9292            object V1354;
9293            object V1355;
9294            if(vs_top-vs_base<1) too_few_arguments();
9295            if(vs_top-vs_base>2) too_many_arguments();
9296            V1353=(base[0]);
9297            vs_base=vs_base+1;
9298            if(vs_base>=vs_top){vs_top=sup;goto T2924;}
9299            V1354=(base[1]);
9300            V1355= Ct;
9301            vs_top=sup;
9302            goto T2925;
9303            goto T2924;
9304    T2924:;
9305            V1354= Cnil;
9306            V1355= Cnil;
9307            goto T2925;
9308    T2925:;
9309            if(((V1355))==Cnil){
9310            goto T2928;}
9311            {object V1358;
9312            base[3]= base0[0];
9313            base[4]= V1354;
9314            base[5]= V1353;
9315            vs_top=(vs_base=base+3)+3;
9316            siLput_f();
9317            vs_top=sup;
9318            V1358= vs_base[0];
9319            base0[0]= (V1358);
9320            base[3]= V1354;
9321            vs_top=(vs_base=base+3)+1;
9322            return;}
9323            goto T2928;
9324    T2928:;
9325            base[3]= base0[0];
9326            base[4]= (V1353);
9327            vs_top=(vs_base=base+3)+2;
9328            Lgetf();
9329            return;
9330            }
9331    }
9332    /*      local function CHECK-DECLARATION        */
9333    
9334    static void L6(base0)
9335    register object *base0;
9336    {       register object *base=vs_base;
9337            register object *sup=base+VM128; VC128
9338            vs_check;
9339            {object V1359;
9340            check_arg(1);
9341            V1359=(base[0]);
9342            vs_top=sup;
9343            goto TTL;
9344    TTL:;
9345            {register object V1360;
9346            register object V1361;
9347            V1360= Cnil;
9348            V1361= (V1359);
9349            goto T2939;
9350    T2939:;
9351            if(!(((V1361))==Cnil)){
9352            goto T2941;}
9353            goto T2940;
9354            goto T2941;
9355    T2941:;
9356            V1360= CMPcar((V1361));
9357            V1361= CMPcdr((V1361));
9358            if(!(type_of((V1360))==t_cons)){
9359            goto T2948;}
9360            {register object x= CMPcar((V1360)),V1362= VV[11];
9361            while(V1362!=Cnil)
9362            if(x==(V1362->c.c_car)){
9363            goto T2952;
9364            }else V1362=V1362->c.c_cdr;
9365            goto T2948;}
9366            goto T2952;
9367    T2952:;
9368            base[1]= VV[8];
9369            base[2]= VV[12];
9370            base[3]= (V1360);
9371            vs_top=(vs_base=base+1)+3;
9372            (void) (*Lnk364)();
9373            vs_top=sup;
9374            goto T2948;
9375    T2948:;
9376            goto T2939;
9377            goto T2940;
9378    T2940:;
9379            base[1]= Cnil;
9380            vs_top=(vs_base=base+1)+1;
9381            return;}
9382            }
9383    }
9384  /*      local function DUPLICATE-OPTION */  /*      local function DUPLICATE-OPTION */
9385    
9386  static void L5(base0)  static void L5(base0)
9387  register object *base0;  register object *base0;
9388  {       register object *base=vs_base;  {       register object *base=vs_base;
9389          register object *sup=base+VM132; VC132          register object *sup=base+VM129; VC129
9390          vs_check;          vs_check;
9391          {object V1511;          {object V1363;
9392          check_arg(1);          check_arg(1);
9393          V1511=(base[0]);          V1363=(base[0]);
9394          vs_top=sup;          vs_top=sup;
9395          goto TTL;          goto TTL;
9396  TTL:;  TTL:;
9397          base[1]= VV[8];          base[1]= VV[8];
9398          base[2]= (V1511);          base[2]= VV[10];
9399          vs_top=(vs_base=base+1)+2;          base[3]= (V1363);
9400          Lerror();          vs_top=(vs_base=base+1)+3;
9401            (void) (*Lnk364)();
9402          return;          return;
9403          }          }
9404  }  }
9405  /*      local function CLOSURE  */  /*      local function CLOSURE  */
9406    
9407  static void LC128(base0)  static void LC124(base0)
9408  register object *base0;  register object *base0;
9409  {       register object *base=vs_base;  {       register object *base=vs_base;
9410          register object *sup=base+VM133; VC133          register object *sup=base+VM130; VC130
9411          vs_check;          vs_check;
9412          {object V1512;          {object V1364;
9413          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9414          {object *p=vs_top;          {object *p=vs_top;
9415           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9416          V1512=(base[0]);          V1364=(base[0]);
9417          vs_top=sup;          vs_top=sup;
9418          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9419          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9420          Lsymbol_function();          Lsymbol_function();
9421          vs_top=sup;          vs_top=sup;
9422          base[1]= vs_base[0];          base[1]= vs_base[0];
9423          {object V1513;          {object V1365;
9424          V1513= (V1512);          V1365= (V1364);
9425           vs_top=base+2;           vs_top=base+2;
9426           while(V1513!=Cnil)           while(V1365!=Cnil)
9427           {vs_push((V1513)->c.c_car);V1513=(V1513)->c.c_cdr;}           {vs_push((V1365)->c.c_car);V1365=(V1365)->c.c_cdr;}
9428          vs_base=base+2;}          vs_base=base+2;}
9429          {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))
9430                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9777  register object *base0; Line 9433  register object *base0;
9433          return;          return;
9434          }          }
9435  }  }
9436  static object  LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)(void *)&LnkLI491,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */  static object  LnkTLI508(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[508],(void **)(void *)&LnkLI508,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */
9437  static void LnkT490(){ call_or_link(VV[490],(void **)(void *)&Lnk490);} /* GENERIC-FUNCTION-NAME-P */  static void LnkT507(){ call_or_link(VV[507],(void **)(void *)&Lnk507);} /* GENERIC-FUNCTION-NAME-P */
9438  static object  LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)(void *)&LnkLI489,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */  static object  LnkTLI506(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[506],(void **)(void *)&LnkLI506,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */
9439  static object  LnkTLI488(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[488],(void **)(void *)&LnkLI488,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */  static object  LnkTLI505(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[505],(void **)(void *)&LnkLI505,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */
9440  static object  LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)(void *)&LnkLI487,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */  static object  LnkTLI504(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[504],(void **)(void *)&LnkLI504,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */
9441  static object  LnkTLI486(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[486],(void **)(void *)&LnkLI486,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */  static object  LnkTLI503(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[503],(void **)(void *)&LnkLI503,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */
9442  static void LnkT485(){ call_or_link(VV[485],(void **)(void *)&Lnk485);} /* MAKE-KEYWORD */  static void LnkT502(){ call_or_link(VV[502],(void **)(void *)&Lnk502);} /* MAKE-KEYWORD */
9443  static object  LnkTLI484(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[484],(void **)(void *)&LnkLI484,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */  static object  LnkTLI501(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[501],(void **)(void *)&LnkLI501,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */
9444  static void LnkT483(){ call_or_link(VV[483],(void **)(void *)&Lnk483);} /* SPECIALIZER-FROM-TYPE */  static void LnkT500(){ call_or_link(VV[500],(void **)(void *)&Lnk500);} /* SPECIALIZER-FROM-TYPE */
9445  static void LnkT482(ptr) object *ptr;{ call_or_link_closure(VV[482],(void **)(void *)&Lnk482,(void **)(void *)&Lclptr482);} /* SPECIALIZER-TYPE */  static void LnkT499(ptr) object *ptr;{ call_or_link_closure(VV[499],(void **)(void *)&Lnk499,(void **)(void *)&Lclptr499);} /* SPECIALIZER-TYPE */
9446  static void LnkT481(ptr) object *ptr;{ call_or_link_closure(VV[481],(void **)(void *)&Lnk481,(void **)(void *)&Lclptr481);} /* SPECIALIZERP */  static void LnkT498(ptr) object *ptr;{ call_or_link_closure(VV[498],(void **)(void *)&Lnk498,(void **)(void *)&Lclptr498);} /* SPECIALIZERP */
9447  static object  LnkTLI480(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[480],(void **)(void *)&LnkLI480,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */  static object  LnkTLI497(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[497],(void **)(void *)&LnkLI497,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */
9448  static object  LnkTLI479(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[479],(void **)(void *)&LnkLI479,first,ap);va_end(ap);return V1;} /* RELIST* */  static object  LnkTLI496(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[496],(void **)(void *)&LnkLI496,first,ap);va_end(ap);return V1;} /* RELIST* */
9449  static object  LnkTLI478(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[478],(void **)(void *)&LnkLI478,3,first,ap);va_end(ap);return V1;} /* RECONS */  static object  LnkTLI495(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[495],(void **)(void *)&LnkLI495,3,first,ap);va_end(ap);return V1;} /* RECONS */
9450  static object  LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)(void *)&LnkLI477,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */  static object  LnkTLI494(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[494],(void **)(void *)&LnkLI494,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */
9451  static object  LnkTLI476(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[476],(void **)(void *)&LnkLI476,first,ap);va_end(ap);return V1;} /* GET-METHOD */  static object  LnkTLI493(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[493],(void **)(void *)&LnkLI493,first,ap);va_end(ap);return V1;} /* GET-METHOD */
9452  static void LnkT475(ptr) object *ptr;{ call_or_link_closure(VV[475],(void **)(void *)&Lnk475,(void **)(void *)&Lclptr475);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */  static void LnkT492(ptr) object *ptr;{ call_or_link_closure(VV[492],(void **)(void *)&Lnk492,(void **)(void *)&Lclptr492);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */
9453  static object  LnkTLI474(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[474],(void **)(void *)&LnkLI474,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */  static object  LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)(void *)&LnkLI491,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */
9454  static void LnkT473(ptr) object *ptr;{ call_or_link_closure(VV[473],(void **)(void *)&Lnk473,(void **)(void *)&Lclptr473);} /* METHOD-QUALIFIERS */  static void LnkT490(ptr) object *ptr;{ call_or_link_closure(VV[490],(void **)(void *)&Lnk490,(void **)(void *)&Lclptr490);} /* METHOD-QUALIFIERS */
9455  static object  LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[472],(void **)(void *)&LnkLI472,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */  static object  LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)(void *)&LnkLI489,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */
9456  static void LnkT471(ptr) object *ptr;{ call_or_link_closure(VV[471],(void **)(void *)&Lnk471,(void **)(void *)&Lclptr471);} /* METHOD-GENERIC-FUNCTION */  static void LnkT488(ptr) object *ptr;{ call_or_link_closure(VV[488],(void **)(void *)&Lnk488,(void **)(void *)&Lclptr488);} /* METHOD-P */
9457  static void LnkT470(ptr) object *ptr;{ call_or_link_closure(VV[470],(void **)(void *)&Lnk470,(void **)(void *)&Lclptr470);} /* METHOD-P */  static object  LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)(void *)&LnkLI487,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */
9458  static object  LnkTLI469(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[469],(void **)(void *)&LnkLI469,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */  static void LnkT486(){ call_or_link(VV[486],(void **)(void *)&Lnk486);} /* REAL-MAKE-A-METHOD */
9459  static void LnkT468(){ call_or_link(VV[468],(void **)(void *)&Lnk468);} /* REAL-MAKE-A-METHOD */  static void LnkT485(){ call_or_link(VV[485],(void **)(void *)&Lnk485);} /* DELETE */
9460  static void LnkT467(){ call_or_link(VV[467],(void **)(void *)&Lnk467);} /* DELETE */  static object  LnkTLI483(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[483],(void **)(void *)&LnkLI483,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */
9461  static object  LnkTLI465(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[465],(void **)(void *)&LnkLI465,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */  static void LnkT482(){ call_or_link(VV[482],(void **)(void *)&Lnk482);} /* REMOVE */
9462  static object  LnkTLI464(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[464],(void **)(void *)&LnkLI464,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */  static object  LnkTLI481(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[481],(void **)(void *)&LnkLI481,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
9463  static object  LnkTLI460(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[460],(void **)(void *)&LnkLI460,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */  static object  LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)(void *)&LnkLI477,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */
9464  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* FIND-CLASS */  static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* FIND-CLASS */
9465  static void LnkT459(){ call_or_link(VV[459],(void **)(void *)&Lnk459);} /* SEVENTH */  static void LnkT476(){ call_or_link(VV[476],(void **)(void *)&Lnk476);} /* SEVENTH */
9466  static void LnkT458(){ call_or_link(VV[458],(void **)(void *)&Lnk458);} /* FIFTH */  static void LnkT475(){ call_or_link(VV[475],(void **)(void *)&Lnk475);} /* FIFTH */
9467  static object  LnkTLI457(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[457],(void **)(void *)&LnkLI457,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */  static object  LnkTLI474(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[474],(void **)(void *)&LnkLI474,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */
9468  static object  LnkTLI455(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[455],(void **)(void *)&LnkLI455,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */  static object  LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[472],(void **)(void *)&LnkLI472,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */
9469  static void LnkT453(ptr) object *ptr;{ call_or_link_closure(VV[453],(void **)(void *)&Lnk453,(void **)(void *)&Lclptr453);} /* MAKE-INSTANCE */  static object  LnkTLI470(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[470],(void **)(void *)&LnkLI470,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */
9470  static void LnkT452(ptr) object *ptr;{ call_or_link_closure(VV[452],(void **)(void *)&Lnk452,(void **)(void *)&Lclptr452);} /* REINITIALIZE-INSTANCE */  static void LnkT469(ptr) object *ptr;{ call_or_link_closure(VV[469],(void **)(void *)&Lnk469,(void **)(void *)&Lclptr469);} /* MAKE-INSTANCE */
9471  static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)(void *)&Lnk451,(void **)(void *)&Lclptr451);} /* CHANGE-CLASS */  static void LnkT468(ptr) object *ptr;{ call_or_link_closure(VV[468],(void **)(void *)&Lnk468,(void **)(void *)&Lclptr468);} /* REINITIALIZE-INSTANCE */
9472  static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* FIND-METHOD-COMBINATION */  static void LnkT467(ptr) object *ptr;{ call_or_link_closure(VV[467],(void **)(void *)&Lnk467,(void **)(void *)&Lclptr467);} /* CHANGE-CLASS */
9473  static void LnkT450(ptr) object *ptr;{ call_or_link_closure(VV[450],(void **)(void *)&Lnk450,(void **)(void *)&Lclptr450);} /* GF-DFUN-STATE */  static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* FIND-METHOD-COMBINATION */
9474  static object  LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)(void *)&LnkLI449,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */  static void LnkT466(){ call_or_link(VV[466],(void **)(void *)&Lnk466);} /* WARN */
9475  static object  LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[10],(void **)(void *)&LnkLI10,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */  static void LnkT465(ptr) object *ptr;{ call_or_link_closure(VV[465],(void **)(void *)&Lnk465,(void **)(void *)&Lclptr465);} /* GF-DFUN-STATE */
9476  static object  LnkTLI448(){return call_proc0(VV[448],(void **)(void *)&LnkLI448);} /* MAKE-ARG-INFO */  static object  LnkTLI464(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[464],(void **)(void *)&LnkLI464,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */
9477  static object  LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)(void *)&LnkLI447,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */  static object  LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */
9478  static object  LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)(void *)&LnkLI446,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */  static object  LnkTLI463(){return call_proc0(VV[463],(void **)(void *)&LnkLI463);} /* MAKE-ARG-INFO */
9479  static object  LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[445],(void **)(void *)&LnkLI445,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */  static object  LnkTLI462(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[462],(void **)(void *)&LnkLI462,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
9480  static object  LnkTLI444(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[444],(void **)(void *)&LnkLI444,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */  static object  LnkTLI461(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[461],(void **)(void *)&LnkLI461,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
9481  static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* CLASSP */  static object  LnkTLI460(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[460],(void **)(void *)&LnkLI460,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */
9482  static void LnkT443(ptr) object *ptr;{ call_or_link_closure(VV[443],(void **)(void *)&Lnk443,(void **)(void *)&Lclptr443);} /* COMPUTE-APPLICABLE-METHODS */  static object  LnkTLI459(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[459],(void **)(void *)&LnkLI459,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */
9483  static void LnkT442(){ call_or_link(VV[442],(void **)(void *)&Lnk442);} /* FIND */  static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* CLASSP */
9484  static object  LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)(void *)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */  static void LnkT458(ptr) object *ptr;{ call_or_link_closure(VV[458],(void **)(void *)&Lnk458,(void **)(void *)&Lclptr458);} /* COMPUTE-APPLICABLE-METHODS */
9485  static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)(void *)&Lnk440,(void **)(void *)&Lclptr440);} /* GENERIC-FUNCTION-NAME */  static void LnkT457(){ call_or_link(VV[457],(void **)(void *)&Lnk457);} /* FIND */
9486  static void LnkT439(){ call_or_link(VV[439],(void **)(void *)&Lnk439);} /* COMPUTE-APPLICABLE-METHODS-EMF */  static object  LnkTLI456(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[456],(void **)(void *)&LnkLI456,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */
9487  static object  LnkTLI438(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[438],(void **)(void *)&LnkLI438,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */  static void LnkT455(ptr) object *ptr;{ call_or_link_closure(VV[455],(void **)(void *)&Lnk455,(void **)(void *)&Lclptr455);} /* GENERIC-FUNCTION-NAME */
9488  static void LnkT437(){ call_or_link(VV[437],(void **)(void *)&Lnk437);} /* RAISE-METATYPE */  static void LnkT454(){ call_or_link(VV[454],(void **)(void *)&Lnk454);} /* COMPUTE-APPLICABLE-METHODS-EMF */
9489  static void LnkT436(ptr) object *ptr;{ call_or_link_closure(VV[436],(void **)(void *)&Lnk436,(void **)(void *)&Lclptr436);} /* GENERIC-FUNCTION-METHOD-COMBINATION */  static object  LnkTLI453(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[453],(void **)(void *)&LnkLI453,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */
9490  static object  LnkTLI435(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[435],(void **)(void *)&LnkLI435,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */  static void LnkT452(){ call_or_link(VV[452],(void **)(void *)&Lnk452);} /* RAISE-METATYPE */
9491  static object  LnkTLI434(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[434],(void **)(void *)&LnkLI434,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */  static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)(void *)&Lnk451,(void **)(void *)&Lclptr451);} /* GENERIC-FUNCTION-METHOD-COMBINATION */
9492  static void LnkT433(ptr) object *ptr;{ call_or_link_closure(VV[433],(void **)(void *)&Lnk433,(void **)(void *)&Lclptr433);} /* METHOD-SPECIALIZERS */  static object  LnkTLI450(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[450],(void **)(void *)&LnkLI450,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */
9493  static object  LnkTLI432(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[432],(void **)(void *)&LnkLI432,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */  static object  LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)(void *)&LnkLI449,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */
9494  static void LnkT47(ptr) object *ptr;{ call_or_link_closure(VV[47],(void **)(void *)&Lnk47,(void **)(void *)&Lclptr47);} /* METHOD-LAMBDA-LIST */  static void LnkT448(ptr) object *ptr;{ call_or_link_closure(VV[448],(void **)(void *)&Lnk448,(void **)(void *)&Lclptr448);} /* METHOD-SPECIALIZERS */
9495  static object  LnkTLI431(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[431],(void **)(void *)&LnkLI431,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */  static object  LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)(void *)&LnkLI447,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */
9496  static object  LnkTLI430(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[430],(void **)(void *)&LnkLI430,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */  static void LnkT51(ptr) object *ptr;{ call_or_link_closure(VV[51],(void **)(void *)&Lnk51,(void **)(void *)&Lclptr51);} /* METHOD-LAMBDA-LIST */
9497  static void LnkT429(){ call_or_link(VV[429],(void **)(void *)&Lnk429);} /* CHECK-METHOD-ARG-INFO */  static object  LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)(void *)&LnkLI446,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */
9498  static object  LnkTLI428(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[428],(void **)(void *)&LnkLI428,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */  static object  LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[445],(void **)(void *)&LnkLI445,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */
9499  static object  LnkTLI427(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[427],(void **)(void *)&LnkLI427,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */  static void LnkT444(){ call_or_link(VV[444],(void **)(void *)&Lnk444);} /* CHECK-METHOD-ARG-INFO */
9500  static void LnkT426(ptr) object *ptr;{ call_or_link_closure(VV[426],(void **)(void *)&Lnk426,(void **)(void *)&Lclptr426);} /* GENERIC-FUNCTION-METHODS */  static object  LnkTLI443(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[443],(void **)(void *)&LnkLI443,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */
9501  static void LnkT425(){ call_or_link(VV[425],(void **)(void *)&Lnk425);} /* COUNT-IF */  static object  LnkTLI442(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[442],(void **)(void *)&LnkLI442,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */
9502  static object  LnkTLI411(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[411],(void **)(void *)&LnkLI411,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */  static object  LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)(void *)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */
9503  static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* CONCATENATE */  static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)(void *)&Lnk440,(void **)(void *)&Lclptr440);} /* GENERIC-FUNCTION-METHODS */
9504  static object  LnkTLI409(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[409],(void **)(void *)&LnkLI409,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static void LnkT439(ptr) object *ptr;{ call_or_link_closure(VV[439],(void **)(void *)&Lnk439,(void **)(void *)&Lclptr439);} /* GF-ARG-INFO */
9505  static object  LnkTLI408(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[408],(void **)(void *)&LnkLI408,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */  static void LnkT438(){ call_or_link(VV[438],(void **)(void *)&Lnk438);} /* COUNT-IF */
9506  static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* ANALYZE-LAMBDA-LIST */  static void LnkT425(){ call_or_link(VV[425],(void **)(void *)&Lnk425);} /* RESTART-CASE */
9507  static object  LnkTLI405(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[405],(void **)(void *)&LnkLI405,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */  static void LnkT424(){ call_or_link(VV[424],(void **)(void *)&Lnk424);} /* CONTINUE */
9508  static object  LnkTLI404(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[404],(void **)(void *)&LnkLI404,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */  static object  LnkTLI422(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[422],(void **)(void *)&LnkLI422,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */
9509  static object  LnkTLI402(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[402],(void **)(void *)&LnkLI402,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */  static object  LnkTLI421(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[421],(void **)(void *)&LnkLI421,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
9510  static object  LnkTLI401(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[401],(void **)(void *)&LnkLI401,first,ap);va_end(ap);return V1;} /* RECORD-DEFINITION */  static object  LnkTLI420(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[420],(void **)(void *)&LnkLI420,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */
9511  static object  LnkTLI400(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[400],(void **)(void *)&LnkLI400,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */  static void LnkT419(){ call_or_link(VV[419],(void **)(void *)&Lnk419);} /* ANALYZE-LAMBDA-LIST */
9512  static object  LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[210],(void **)(void *)&LnkLI210,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */  static object  LnkTLI417(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[417],(void **)(void *)&LnkLI417,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */
9513  static object  LnkTLI399(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[399],(void **)(void *)&LnkLI399,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */  static object  LnkTLI416(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[416],(void **)(void *)&LnkLI416,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */
9514  static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* WARN */  static object  LnkTLI414(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[414],(void **)(void *)&LnkLI414,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */
9515  static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* STANDARD-GENERIC-FUNCTION-P */  static object  LnkTLI413(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[413],(void **)(void *)&LnkLI413,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */
9516  static void LnkT396(){ call_or_link(VV[396],(void **)(void *)&Lnk396);} /* WALK-FORM */  static object  LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[220],(void **)(void *)&LnkLI220,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
9517  static object  LnkTLI395(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[395],(void **)(void *)&LnkLI395,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */  static object  LnkTLI412(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[412],(void **)(void *)&LnkLI412,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */
9518  static object  LnkTLI394(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[394],(void **)(void *)&LnkLI394,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */  static void LnkT411(ptr) object *ptr;{ call_or_link_closure(VV[411],(void **)(void *)&Lnk411,(void **)(void *)&Lclptr411);} /* STANDARD-GENERIC-FUNCTION-P */
9519  static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)(void *)&Lnk393,(void **)(void *)&Lclptr393);} /* GF-ARG-INFO */  static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* WALK-FORM */
9520  static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* TYPECASE-ERROR-STRING */  static void LnkT409(){ call_or_link(VV[409],(void **)(void *)&Lnk409);} /* ERROR */
9521  static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* SLOT-UNBOUND-INTERNAL */  static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* SLOT-UNBOUND-INTERNAL */
9522  static object  LnkTLI391(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[391],(void **)(void *)&LnkLI391,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI408(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[408],(void **)(void *)&LnkLI408,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
9523  static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* CCLOSURE-ENV-NTHCDR */
9524  static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* STRUCTURE-SUBTYPE-P */  static void LnkT406(){ call_or_link(VV[406],(void **)(void *)&Lnk406);} /* STRUCTURE-SUBTYPE-P */
9525  static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-ARRAY */  static void LnkT405(){ call_or_link(VV[405],(void **)(void *)&Lnk405);} /* MAKE-ARRAY */
9526  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* SLOT-NAME-LISTS-FROM-SLOTS */  static void LnkT396(ptr) object *ptr;{ call_or_link_closure(VV[396],(void **)(void *)&Lnk396,(void **)(void *)&Lclptr396);} /* NO-NEXT-METHOD */
9527  static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* SOME */  static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* METHOD-GENERIC-FUNCTION */
9528  static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* WALK-METHOD-LAMBDA */  static void LnkT395(ptr) object *ptr;{ call_or_link_closure(VV[395],(void **)(void *)&Lnk395,(void **)(void *)&Lclptr395);} /* FIND-METHOD */
9529  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* TYPEP */  static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* DO-ARG-COUNT-ERROR */
9530  static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* REMOVE */  static void LnkT393(){ call_or_link(VV[393],(void **)(void *)&Lnk393);} /* SLOT-NAME-LISTS-FROM-SLOTS */
9531  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[375],(void **)(void *)&LnkLI375,5,first,ap);va_end(ap);return V1;} /* MAKE-PARAMETER-REFERENCES */  static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* SOME */
9532  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[374],(void **)(void *)&LnkLI374,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */  static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* WALK-METHOD-LAMBDA */
9533  static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* MAKE-METHOD-LAMBDA-INTERNAL */  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* TYPEP */
9534  static object  LnkTLI372(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[372],(void **)(void *)&LnkLI372,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */  static object  LnkTLI389(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[389],(void **)(void *)&LnkLI389,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */
9535  static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* EXTRACT-DECLARATIONS */  static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-METHOD-LAMBDA-INTERNAL */
9536  static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* PARSE-SPECIALIZED-LAMBDA-LIST */  static object  LnkTLI387(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[387],(void **)(void *)&LnkLI387,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */
9537  static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* MAKE-METHOD-FUNCTION-INTERNAL */  static void LnkT386(){ call_or_link(VV[386],(void **)(void *)&Lnk386);} /* EXTRACT-DECLARATIONS */
9538  static object  LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */  static void LnkT385(){ call_or_link(VV[385],(void **)(void *)&Lnk385);} /* PARSE-SPECIALIZED-LAMBDA-LIST */
9539  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* EVERY */  static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* MAKE-METHOD-FUNCTION-INTERNAL */
9540  static object  LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)(void *)&LnkLI365,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */  static object  LnkTLI383(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[383],(void **)(void *)&LnkLI383,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */
9541  static void LnkT364(ptr) object *ptr;{ call_or_link_closure(VV[364],(void **)(void *)&Lnk364,(void **)(void *)&Lclptr364);} /* CLASS-NAME */  static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* EVERY */
9542  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI380(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[380],(void **)(void *)&LnkLI380,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */
9543  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[362],(void **)(void *)&LnkLI362,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */  static void LnkT379(ptr) object *ptr;{ call_or_link_closure(VV[379],(void **)(void *)&Lnk379,(void **)(void *)&Lclptr379);} /* CLASS-NAME */
9544  static void LnkT361(ptr) object *ptr;{ call_or_link_closure(VV[361],(void **)(void *)&Lnk361,(void **)(void *)&Lclptr361);} /* MAKE-METHOD-INITARGS-FORM */  static object  LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)(void *)&LnkLI378,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
9545  static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)(void *)&Lnk360,(void **)(void *)&Lclptr360);} /* MAKE-METHOD-LAMBDA */  static object  LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[377],(void **)(void *)&LnkLI377,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */
9546  static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* ADD-METHOD-DECLARATIONS */  static void LnkT376(ptr) object *ptr;{ call_or_link_closure(VV[376],(void **)(void *)&Lnk376,(void **)(void *)&Lclptr376);} /* MAKE-METHOD-INITARGS-FORM */
9547  static void LnkT358(ptr) object *ptr;{ call_or_link_closure(VV[358],(void **)(void *)&Lnk358,(void **)(void *)&Lclptr358);} /* GENERIC-FUNCTION-METHOD-CLASS */  static void LnkT375(ptr) object *ptr;{ call_or_link_closure(VV[375],(void **)(void *)&Lnk375,(void **)(void *)&Lclptr375);} /* MAKE-METHOD-LAMBDA */
9548  static void LnkT302(ptr) object *ptr;{ call_or_link_closure(VV[302],(void **)(void *)&Lnk302,(void **)(void *)&Lclptr302);} /* CLASS-PROTOTYPE */  static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* ADD-METHOD-DECLARATIONS */
9549  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static void LnkT373(ptr) object *ptr;{ call_or_link_closure(VV[373],(void **)(void *)&Lnk373,(void **)(void *)&Lclptr373);} /* GENERIC-FUNCTION-METHOD-CLASS */
9550  static void LnkT357(ptr) object *ptr;{ call_or_link_closure(VV[357],(void **)(void *)&Lnk357,(void **)(void *)&Lclptr357);} /* GENERIC-FUNCTION-P */  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* CLASS-PROTOTYPE */
9551  static object  LnkTLI347(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[347],(void **)(void *)&LnkLI347,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[304],(void **)(void *)&LnkLI304,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
9552  static object  LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */  static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)(void *)&Lnk372,(void **)(void *)&Lclptr372);} /* GENERIC-FUNCTION-P */
9553  static object  LnkTLI355(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[355],(void **)(void *)&LnkLI355,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)(void *)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
9554  static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */  static object  LnkTLI371(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[371],(void **)(void *)&LnkLI371,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */
9555  static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* PARSE-DEFMETHOD */  static object  LnkTLI370(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[370],(void **)(void *)&LnkLI370,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */
9556  static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* ENSURE-GENERIC-FUNCTION */  static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */
9557  static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOAD-TRUENAME */  static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* PARSE-DEFMETHOD */
9558  static object  LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[350],(void **)(void *)&LnkLI350,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */  static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* ENSURE-GENERIC-FUNCTION */
9559  static object  LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* LOAD-TRUENAME */
9560  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */  static object  LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)(void *)&LnkLI365,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
9561  static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* SET-FUNCTION-NAME */  static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* SPECIFIC-ERROR */
9562    static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */
9563    static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* SET-FUNCTION-NAME */
9564    
9565  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
9566  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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