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

Diff of /gcl/pcl/pcl_std_class.c

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

revision 1.3 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.4 by camm, Tue Oct 7 21:07:39 2003 UTC
# Line 70  static void L2() Line 70  static void L2()
70  TTL:;  TTL:;
71          {object V13= (V11);          {object V13= (V11);
72          if((V13!= VV[168]))goto T13;          if((V13!= VV[168]))goto T13;
73          base[5]= (V9);          base[5]= ({object _tmp=get(VV[169],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[169])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[169])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
74          base[6]= V10;          base[6]= V9;
75          vs_top=(vs_base=base+5)+2;          base[7]= V10;
76          (void) (*Lnk174)(Lclptr174);          vs_top=(vs_base=base+6)+2;
77            {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
78                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
79                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
80                   else super_funcall_no_event(_funobj);}
81          return;          return;
82          goto T13;          goto T13;
83  T13:;  T13:;
84          if((V13!= VV[170]))goto T16;          if((V13!= VV[170]))goto T17;
85          base[5]= (V9);          base[5]= ({object _tmp=get(VV[171],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[171])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[171])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
86          base[6]= V10;          base[6]= V9;
87          vs_top=(vs_base=base+5)+2;          base[7]= V10;
88          (void) (*Lnk175)(Lclptr175);          vs_top=(vs_base=base+6)+2;
89            {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
90                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
91                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
92                   else super_funcall_no_event(_funobj);}
93          return;          return;
94          goto T16;          goto T17;
95  T16:;  T17:;
96          if((V13!= VV[172]))goto T19;          if((V13!= VV[172]))goto T21;
97          base[5]= (V9);          base[5]= ({object _tmp=get(VV[173],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[173])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[173])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
98          base[6]= V10;          base[6]= V9;
99          vs_top=(vs_base=base+5)+2;          base[7]= V10;
100          (void) (*Lnk176)(Lclptr176);          vs_top=(vs_base=base+6)+2;
101            {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
102                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
103                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
104                   else super_funcall_no_event(_funobj);}
105          return;          return;
106          goto T19;          goto T21;
107  T19:;  T21:;
108          FEerror("The ECASE key value ~s is illegal.",1,V13);          FEerror("The ECASE key value ~s is illegal.",1,V13);
109          base[5]= Cnil;          base[5]= Cnil;
110          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 101  T19:; Line 113  T19:;
113  }  }
114  /*      local entry for function (FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))        */  /*      local entry for function (FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))        */
115    
116  static object LI3(V21,V22,V23,V24)  static object LI3(V24,V25,V26,V27)
117    
118  object V21;object V22;register object V23;object V24;  object V24;object V25;register object V26;object V27;
119  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
120          goto TTL;          goto TTL;
121  TTL:;  TTL:;
122          {object V26;          {object V29;
123          object V27;          object V30;
124          V26= CMPcar((V21));          V29= CMPcar((V24));
125          V27= CMPcdr((V21));          V30= CMPcdr((V24));
126          {object V28;          {object V31;
127          if(type_of(V23)==t_structure){          if(type_of(V26)==t_structure){
128          goto T32;}          goto T35;}
129          goto T30;          goto T33;
130          goto T32;          goto T35;
131  T32:;  T35:;
132          if(!(((V23)->str.str_def)==(VV[0]))){          if(!(((V26)->str.str_def)==(VV[0]))){
133          goto T30;}          goto T33;}
134          V28= STREF(object,(V23),4);          V31= STREF(object,(V26),4);
135          goto T28;          goto T31;
136          goto T30;          goto T33;
137  T30:;{object V30;  T33:;{object V33;
138          V30= (VV[2]->s.s_dbind);          V33= (VV[2]->s.s_dbind);
139          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
140          base[1]= (V23);          base[1]= (V26);
141          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
142          (void) (*Lnk177)();          (void) (*Lnk174)();
143          vs_top=sup;          vs_top=sup;
144          V31= vs_base[0];          V34= vs_base[0];
145          if(!((V30)==(CMPcar(V31)))){          if(!((V33)==(CMPcar(V34)))){
146          goto T35;}}          goto T38;}}
147          V28= CMPcar(((V23))->cc.cc_turbo[12]);          V31= CMPcar(((V26))->cc.cc_turbo[12]);
148          goto T28;          goto T31;
149          goto T35;          goto T38;
150  T35:;  T38:;
151          V28= Cnil;          V31= Cnil;
152          goto T28;          goto T31;
153  T28:;  T31:;
154          {long V32;          {long V35;
155          {register object V33;          {register object V36;
156          V33= ((V26))->v.v_self[1];          V36= ((V29))->v.v_self[1];
157          if(!(type_of(V33)==t_fixnum)){          if(!(type_of(V36)==t_fixnum)){
         goto T46;}  
         V33= ((V28))->v.v_self[fix((V33))];  
         goto T44;  
         goto T46;  
 T46:;  
         V33= VV[3];  
         goto T44;  
 T44:;  
         if(!(((V33))==(VV[3]))){  
158          goto T49;}          goto T49;}
159          base[0]= (V23);          V36= ((V31))->v.v_self[fix((V36))];
160          vs_top=(vs_base=base+0)+1;          goto T47;
         (void) (*Lnk179)(Lclptr179);  
         vs_top=sup;  
         V32= fix(vs_base[0]);  
         goto T41;  
161          goto T49;          goto T49;
162  T49:;  T49:;
163          V32= fix((V33));}          V36= VV[3];
164          goto T41;          goto T47;
165  T41:;  T47:;
166          if(!(((V24))==(VV[4]))){          if(!(((V36))==(VV[3]))){
167          goto T53;}          goto T52;}
168          {object V35 = ((7)==(V32)?Ct:Cnil);          base[0]= (V26);
169          VMR3(V35)}          vs_top=(vs_base=base+0)+1;
170          goto T53;          (void) (*Lnk176)(Lclptr176);
171  T53:;          vs_top=sup;
172          {long V36;          V35= fix(vs_base[0]);
173          {object V37= (V24);          goto T44;
174          if((V37!= VV[168]))goto T56;          goto T52;
175          V36= 1;  T52:;
176          goto T55;          V35= fix((V36));}
177            goto T44;
178    T44:;
179            if(!(((V27))==(VV[4]))){
180            goto T56;}
181            {object V38 = ((7)==(V35)?Ct:Cnil);
182            VMR3(V38)}
183          goto T56;          goto T56;
184  T56:;  T56:;
185          if((V37!= VV[170]))goto T57;          {long V39;
186          V36= 2;          {object V40= (V27);
187          goto T55;          if((V40!= VV[168]))goto T59;
188          goto T57;          V39= 1;
189  T57:;          goto T58;
190          if((V37!= VV[172]))goto T58;          goto T59;
191          V36= 4;  T59:;
192          goto T55;          if((V40!= VV[170]))goto T60;
193            V39= 2;
194            goto T58;
195            goto T60;
196    T60:;
197            if((V40!= VV[172]))goto T61;
198            V39= 4;
199            goto T58;
200            goto T61;
201    T61:;
202            FEerror("The ECASE key value ~s is illegal.",1,V40);
203            V39= fix(Cnil);
204            goto T58;}
205          goto T58;          goto T58;
206  T58:;  T58:;
207          FEerror("The ECASE key value ~s is illegal.",1,V37);          {object V41 = (((((long)((V39) & (V35)))==0?Ct:Cnil))==Cnil?Ct:Cnil);
208          V36= fix(Cnil);          VMR3(V41)}}}}}
         goto T55;}  
         goto T55;  
 T55:;  
         {object V38 = (((((long)((V36) & (V32)))==0?Ct:Cnil))==Cnil?Ct:Cnil);  
         VMR3(V38)}}}}}  
209          base[0]=base[0];          base[0]=base[0];
210          return Cnil;          return Cnil;
211  }  }
212  /*      local entry for function (FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))       */  /*      local entry for function (FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))       */
213    
214  static object LI4(V44,V45,V46,V47,V48)  static object LI4(V47,V48,V49,V50,V51)
215    
216  object V44;object V45;object V46;register object V47;object V48;  object V47;object V48;object V49;register object V50;object V51;
217  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
218          goto TTL;          goto TTL;
219  TTL:;  TTL:;
220          {object V50;          {object V53;
221          object V51;          object V54;
222          V50= CMPcar((V44));          V53= CMPcar((V47));
223          V51= CMPcdr((V44));          V54= CMPcdr((V47));
224          {object V52;          {object V55;
225          if(type_of(V47)==t_structure){          if(type_of(V50)==t_structure){
226          goto T69;}          goto T72;}
227          goto T67;          goto T70;
228          goto T69;          goto T72;
229  T69:;  T72:;
230          if(!(((V47)->str.str_def)==(VV[5]))){          if(!(((V50)->str.str_def)==(VV[5]))){
231          goto T67;}          goto T70;}
232          V52= STREF(object,(V47),4);          V55= STREF(object,(V50),4);
233          goto T65;          goto T68;
234          goto T67;          goto T70;
235  T67:;{object V54;  T70:;{object V57;
236          V54= (VV[2]->s.s_dbind);          V57= (VV[2]->s.s_dbind);
237          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
238          base[1]= (V47);          base[1]= (V50);
239          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
240          (void) (*Lnk177)();          (void) (*Lnk174)();
241          vs_top=sup;          vs_top=sup;
242          V55= vs_base[0];          V58= vs_base[0];
243          if(!((V54)==(CMPcar(V55)))){          if(!((V57)==(CMPcar(V58)))){
244          goto T72;}}          goto T75;}}
245          V52= CMPcar(((V47))->cc.cc_turbo[12]);          V55= CMPcar(((V50))->cc.cc_turbo[12]);
246          goto T65;          goto T68;
247          goto T72;          goto T75;
248  T72:;  T75:;
249          V52= Cnil;          V55= Cnil;
250          goto T65;          goto T68;
251  T65:;  T68:;
252          {long V56;          {long V59;
253          long V57;          long V60;
254          {object V58= (V48);          {object V61= (V51);
255          if((V58!= VV[168]))goto T80;          if((V61!= VV[168]))goto T83;
256          V56= 1;          V59= 1;
257          goto T79;          goto T82;
258          goto T80;          goto T83;
259  T80:;  T83:;
260          if((V58!= VV[170]))goto T81;          if((V61!= VV[170]))goto T84;
261          V56= 2;          V59= 2;
262          goto T79;          goto T82;
263          goto T81;          goto T84;
264  T81:;  T84:;
265          if((V58!= VV[172]))goto T82;          if((V61!= VV[172]))goto T85;
266          V56= 4;          V59= 4;
267          goto T79;          goto T82;
268            goto T85;
269    T85:;
270            FEerror("The ECASE key value ~s is illegal.",1,V61);
271            V59= fix(Cnil);
272            goto T82;}
273          goto T82;          goto T82;
274  T82:;  T82:;
275          FEerror("The ECASE key value ~s is illegal.",1,V58);          {register object V62;
276          V56= fix(Cnil);          V62= ((V53))->v.v_self[1];
277          goto T79;}          if(!(type_of(V62)==t_fixnum)){
         goto T79;  
 T79:;  
         {register object V59;  
         V59= ((V50))->v.v_self[1];  
         if(!(type_of(V59)==t_fixnum)){  
         goto T88;}  
         V59= ((V52))->v.v_self[fix((V59))];  
         goto T86;  
         goto T88;  
 T88:;  
         V59= VV[3];  
         goto T86;  
 T86:;  
         if(!(((V59))==(VV[3]))){  
278          goto T91;}          goto T91;}
279          base[0]= (V47);          V62= ((V55))->v.v_self[fix((V62))];
280          vs_top=(vs_base=base+0)+1;          goto T89;
         (void) (*Lnk179)(Lclptr179);  
         vs_top=sup;  
         V57= fix(vs_base[0]);  
         goto T83;  
281          goto T91;          goto T91;
282  T91:;  T91:;
283          V57= fix((V59));}          V62= VV[3];
284          goto T83;          goto T89;
285  T83:;  T89:;
286          {object V61;          if(!(((V62))==(VV[3]))){
287          if(((V46))==Cnil){          goto T94;}
288          goto T96;}          base[0]= (V50);
289          V61= CMPmake_fixnum((long)((V56) | (V57)));          vs_top=(vs_base=base+0)+1;
290          goto T94;          (void) (*Lnk176)(Lclptr176);
291          goto T96;          vs_top=sup;
292  T96:;          V60= fix(vs_base[0]);
293          V61= CMPmake_fixnum((long)(((long)(~(V56))) & (V57)));          goto T86;
294          goto T94;          goto T94;
295  T94:;  T94:;
296          {object V62;          V60= fix((V62));}
297          V62= ((V50))->v.v_self[1];          goto T86;
298          if(!(type_of(V62)==t_fixnum)){  T86:;
299          goto T100;}          {object V64;
300          (void)(((V52))->v.v_self[fix((V62))]= ((V61)));          if(((V49))==Cnil){
301          goto T78;          goto T99;}
302          goto T100;          V64= CMPmake_fixnum((long)((V59) | (V60)));
303  T100:;          goto T97;
304          base[0]= (V61);          goto T99;
305          base[1]= (V47);  T99:;
306            V64= CMPmake_fixnum((long)(((long)(~(V59))) & (V60)));
307            goto T97;
308    T97:;
309            {object V65;
310            V65= ((V53))->v.v_self[1];
311            if(!(type_of(V65)==t_fixnum)){
312            goto T103;}
313            (void)(((V55))->v.v_self[fix((V65))]= ((V64)));
314            goto T81;
315            goto T103;
316    T103:;
317            base[0]= (V64);
318            base[1]= (V50);
319          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
320          (void) (*Lnk180)(Lclptr180);          (void) (*Lnk177)(Lclptr177);
321          vs_top=sup;}}}          vs_top=sup;}}}
322          goto T78;          goto T81;
323  T78:;  T81:;
324          {object V64 = (V46);          {object V67 = (V49);
325          VMR4(V64)}}}          VMR4(V67)}}}
326          base[0]=base[0];          base[0]=base[0];
327          return Cnil;          return Cnil;
328  }  }
329  /*      local entry for function (FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))   */
330    
331  static object LI5(V68,V69,V70)  static object LI5(V71,V72,V73)
332    
333  object V68;object V69;register object V70;  object V71;object V72;register object V73;
334  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
335          goto TTL;          goto TTL;
336  TTL:;  TTL:;
337          {object V72;          {object V75;
338          object V73;          object V76;
339          V72= CMPcar((V68));          V75= CMPcar((V71));
340          V73= CMPcdr((V68));          V76= CMPcdr((V71));
341          {object V74;          {object V77;
342          if(type_of(V70)==t_structure){          if(type_of(V73)==t_structure){
343          goto T114;}          goto T117;}
344          goto T112;          goto T115;
345          goto T114;          goto T117;
346  T114:;  T117:;
347          if(!(((V70)->str.str_def)==(VV[6]))){          if(!(((V73)->str.str_def)==(VV[6]))){
348          goto T112;}          goto T115;}
349          V74= STREF(object,(V70),4);          V77= STREF(object,(V73),4);
350          goto T110;          goto T113;
351          goto T112;          goto T115;
352  T112:;{object V76;  T115:;{object V79;
353          V76= (VV[2]->s.s_dbind);          V79= (VV[2]->s.s_dbind);
354          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
355          base[1]= (V70);          base[1]= (V73);
356          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
357          (void) (*Lnk177)();          (void) (*Lnk174)();
358          vs_top=sup;          vs_top=sup;
359          V77= vs_base[0];          V80= vs_base[0];
360          if(!((V76)==(CMPcar(V77)))){          if(!((V79)==(CMPcar(V80)))){
361          goto T117;}}          goto T120;}}
362          V74= CMPcar(((V70))->cc.cc_turbo[12]);          V77= CMPcar(((V73))->cc.cc_turbo[12]);
363          goto T110;          goto T113;
364          goto T117;          goto T120;
365  T117:;  T120:;
366          V74= Cnil;          V77= Cnil;
367          goto T110;          goto T113;
368  T110:;  T113:;
369          {object V78;          {object V81;
370          object V79;          object V82;
371          {register object V80;          {register object V83;
372          V80= ((V72))->v.v_self[2];          V83= ((V75))->v.v_self[2];
373          if(!(type_of(V80)==t_fixnum)){          if(!(type_of(V83)==t_fixnum)){
         goto T128;}  
         V80= ((V74))->v.v_self[fix((V80))];  
         goto T126;  
         goto T128;  
 T128:;  
         V80= VV[3];  
         goto T126;  
 T126:;  
         if(!(((V80))==(VV[3]))){  
374          goto T131;}          goto T131;}
375          base[2]= (V70);          V83= ((V77))->v.v_self[fix((V83))];
376          vs_top=(vs_base=base+2)+1;          goto T129;
         (void) (*Lnk181)(Lclptr181);  
         vs_top=sup;  
         V78= vs_base[0];  
         goto T123;  
377          goto T131;          goto T131;
378  T131:;  T131:;
379          V78= (V80);}          V83= VV[3];
380          goto T123;          goto T129;
381  T123:;  T129:;
382          {register object V82;          if(!(((V83))==(VV[3]))){
383          V82= ((V72))->v.v_self[1];          goto T134;}
384          if(!(type_of(V82)==t_fixnum)){          base[2]= (V73);
         goto T139;}  
         V82= ((V74))->v.v_self[fix((V82))];  
         goto T137;  
         goto T139;  
 T139:;  
         V82= VV[3];  
         goto T137;  
 T137:;  
         if(!(((V82))==(VV[3]))){  
         goto T142;}  
         base[2]= (V70);  
385          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
386          (void) (*Lnk182)(Lclptr182);          (void) (*Lnk178)(Lclptr178);
387          vs_top=sup;          vs_top=sup;
388          V79= vs_base[0];          V81= vs_base[0];
389            goto T126;
390          goto T134;          goto T134;
391    T134:;
392            V81= (V83);}
393            goto T126;
394    T126:;
395            {register object V85;
396            V85= ((V75))->v.v_self[1];
397            if(!(type_of(V85)==t_fixnum)){
398            goto T142;}
399            V85= ((V77))->v.v_self[fix((V85))];
400            goto T140;
401          goto T142;          goto T142;
402  T142:;  T142:;
403          V79= (V82);}          V85= VV[3];
404          goto T134;          goto T140;
405  T134:;  T140:;
406          {object V84;{object V85;          if(!(((V85))==(VV[3]))){
407          base[2]= (V78);          goto T145;}
408            base[2]= (V73);
409            vs_top=(vs_base=base+2)+1;
410            (void) (*Lnk179)(Lclptr179);
411            vs_top=sup;
412            V82= vs_base[0];
413            goto T137;
414            goto T145;
415    T145:;
416            V82= (V85);}
417            goto T137;
418    T137:;
419            {object V87;{object V88;
420            base[2]= (V81);
421          base[3]= (VV[7]->s.s_dbind);          base[3]= (VV[7]->s.s_dbind);
422          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
423          Lgethash();          Lgethash();
424          vs_top=sup;          vs_top=sup;
425          V85= vs_base[0];          V88= vs_base[0];
426          if(V85==Cnil)goto T147;          if(V88==Cnil)goto T150;
427          V84= V85;          V87= V88;
428          goto T146;          goto T149;
429          goto T147;          goto T150;
430  T147:;}  T150:;}
431          {object V87;          {object V90;
432          object V88;          object V91;
433          V87= (VV[7]->s.s_dbind);          V90= (VV[7]->s.s_dbind);
434          base[3]= VV[8];          base[3]= VV[8];
435          base[4]= VV[9];          base[4]= VV[9];
436          base[5]= VV[10];          base[5]= VV[10];
# Line 426  T147:;} Line 438  T147:;}
438          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
439          Lmake_hash_table();          Lmake_hash_table();
440          vs_top=sup;          vs_top=sup;
441          V88= vs_base[0];          V91= vs_base[0];
442          base[3]= V78;          base[3]= V81;
443          base[4]= (V87);          base[4]= (V90);
444          base[5]= (V88);          base[5]= (V91);
445          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
446          siLhash_set();          siLhash_set();
447          vs_top=sup;          vs_top=sup;
448          V84= vs_base[0];}          V87= vs_base[0];}
449          goto T146;          goto T149;
450  T146:;  T149:;
451          base[2]= V79;          base[2]= V82;
452          base[3]= V84;          base[3]= V87;
453          base[4]= V70;          base[4]= V73;
454          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
455          siLhash_set();          siLhash_set();
456          vs_top=sup;}          vs_top=sup;}
457          {register object V92;          {register object V95;
458          register object V93;          register object V96;
459          V92= VV[11];          V95= VV[11];
460          V93= CMPcar((V92));          V96= CMPcar((V95));
461          goto T167;          goto T170;
462  T167:;  T170:;
463          if(!(((V92))==Cnil)){          if(!(((V95))==Cnil)){
464          goto T168;}          goto T171;}
465          goto T163;          goto T166;
466          goto T168;          goto T171;
467  T168:;  T171:;
468          {register object V94;          {register object V97;
469          register object V95;          register object V98;
470          {object V96= (V93);          {object V99= (V96);
471          if((V96!= VV[168]))goto T174;          if((V99!= VV[168]))goto T177;
472          V94= VV[12];          V97= VV[12];
473          goto T173;          goto T176;
474          goto T174;          goto T177;
475  T174:;  T177:;
476          if((V96!= VV[170]))goto T175;          if((V99!= VV[170]))goto T178;
477          V94= VV[13];          V97= VV[13];
478          goto T173;          goto T176;
479          goto T175;          goto T178;
480  T175:;  T178:;
481          if((V96!= VV[172]))goto T176;          if((V99!= VV[172]))goto T179;
482          V94= VV[14];          V97= VV[14];
483          goto T173;          goto T176;
484            goto T179;
485    T179:;
486            FEerror("The ECASE key value ~s is illegal.",1,V99);
487            V97= Cnil;
488            goto T176;}
489          goto T176;          goto T176;
490  T176:;  T176:;
491          FEerror("The ECASE key value ~s is illegal.",1,V96);          V98= (*(LnkLI180))((V97));
492          V94= Cnil;          base[5]= (V73);
493          goto T173;}          base[6]= (V96);
494          goto T173;          base[7]= (V98);
 T173:;  
         V95= (*(LnkLI183))((V94));  
         base[5]= (V70);  
         base[6]= (V93);  
         base[7]= (V95);  
495          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
496          (void) (*Lnk184)(Lclptr184);          (void) (*Lnk181)(Lclptr181);
497          vs_top=sup;}          vs_top=sup;}
498          V92= CMPcdr((V92));          V95= CMPcdr((V95));
499          V93= CMPcar((V92));          V96= CMPcar((V95));
500          goto T167;}          goto T170;}
501          goto T163;          goto T166;
502  T163:;  T166:;
503          {object V97 = (VFUN_NARGS=1,(*(LnkLI185))((V78)));          {object V100 = (VFUN_NARGS=1,(*(LnkLI182))((V81)));
504          VMR5(V97)}}}}          VMR5(V100)}}}}
505          base[0]=base[0];          base[0]=base[0];
506          return Cnil;          return Cnil;
507  }  }
508  /*      local entry for function (FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))       */  /*      local entry for function (FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))       */
509    
510  static object LI6(V103,V104,V105,V106,V107)  static object LI6(V106,V107,V108,V109,V110)
511    
512  object V103;object V104;register object V105;register object V106;object V107;  object V106;object V107;register object V108;register object V109;object V110;
513  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
514          goto TTL;          goto TTL;
515  TTL:;  TTL:;
516          {object V109;          {object V112;
517          object V110;          object V113;
518          V109= CMPcar((V103));          V112= CMPcar((V106));
519          V110= CMPcdr((V103));          V113= CMPcdr((V106));
520          {object V111;          {object V114;
521          if(type_of(V105)==t_structure){          if(type_of(V108)==t_structure){
522          goto T196;}          goto T199;}
523          goto T194;          goto T197;
524          goto T196;          goto T199;
525  T196:;  T199:;
526          if(!(((V105)->str.str_def)==(VV[15]))){          if(!(((V108)->str.str_def)==(VV[15]))){
527          goto T194;}          goto T197;}
528          V111= STREF(object,(V105),4);          V114= STREF(object,(V108),4);
529          goto T192;          goto T195;
530          goto T194;          goto T197;
531  T194:;{object V113;  T197:;{object V116;
532          V113= (VV[2]->s.s_dbind);          V116= (VV[2]->s.s_dbind);
533          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
534          base[1]= (V105);          base[1]= (V108);
535          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
536          (void) (*Lnk177)();          (void) (*Lnk174)();
537          vs_top=sup;          vs_top=sup;
538          V114= vs_base[0];          V117= vs_base[0];
539          if(!((V113)==(CMPcar(V114)))){          if(!((V116)==(CMPcar(V117)))){
540          goto T199;}}          goto T202;}}
541          V111= CMPcar(((V105))->cc.cc_turbo[12]);          V114= CMPcar(((V108))->cc.cc_turbo[12]);
542          goto T192;          goto T195;
543          goto T199;          goto T202;
544  T199:;  T202:;
545          V111= Cnil;          V114= Cnil;
546          goto T192;          goto T195;
547  T192:;  T195:;
548          {object V115;          {object V118;
549          register object V116;          register object V119;
550          object V117;          object V120;
551          object V118;          object V121;
552          {register object V119;          {register object V122;
553          V119= ((V109))->v.v_self[2];          V122= ((V112))->v.v_self[2];
554          if(!(type_of(V119)==t_fixnum)){          if(!(type_of(V122)==t_fixnum)){
         goto T210;}  
         V119= ((V111))->v.v_self[fix((V119))];  
         goto T208;  
         goto T210;  
 T210:;  
         V119= VV[3];  
         goto T208;  
 T208:;  
         if(!(((V119))==(VV[3]))){  
555          goto T213;}          goto T213;}
556          base[4]= (V105);          V122= ((V114))->v.v_self[fix((V122))];
557          vs_top=(vs_base=base+4)+1;          goto T211;
         (void) (*Lnk181)(Lclptr181);  
         vs_top=sup;  
         V115= vs_base[0];  
         goto T205;  
558          goto T213;          goto T213;
559  T213:;  T213:;
560          V115= (V119);}          V122= VV[3];
561          goto T205;          goto T211;
562  T205:;  T211:;
563          {register object V121;          if(!(((V122))==(VV[3]))){
564          V121= ((V109))->v.v_self[1];          goto T216;}
565          if(!(type_of(V121)==t_fixnum)){          base[4]= (V108);
         goto T221;}  
         V121= ((V111))->v.v_self[fix((V121))];  
         goto T219;  
         goto T221;  
 T221:;  
         V121= VV[3];  
         goto T219;  
 T219:;  
         if(!(((V121))==(VV[3]))){  
         goto T224;}  
         base[4]= (V105);  
566          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
567          (void) (*Lnk182)(Lclptr182);          (void) (*Lnk178)(Lclptr178);
568          vs_top=sup;          vs_top=sup;
569          V116= vs_base[0];          V118= vs_base[0];
570            goto T208;
571          goto T216;          goto T216;
572    T216:;
573            V118= (V122);}
574            goto T208;
575    T208:;
576            {register object V124;
577            V124= ((V112))->v.v_self[1];
578            if(!(type_of(V124)==t_fixnum)){
579            goto T224;}
580            V124= ((V114))->v.v_self[fix((V124))];
581            goto T222;
582          goto T224;          goto T224;
583  T224:;  T224:;
584          V116= (V121);}          V124= VV[3];
585          goto T216;          goto T222;
586  T216:;  T222:;
587          V117= (*(LnkLI186))((V116),(V115));          if(!(((V124))==(VV[3]))){
588          if((V117)==Cnil){          goto T227;}
589          V118= Cnil;          base[4]= (V108);
590          goto T228;}          vs_top=(vs_base=base+4)+1;
591          base[4]= (V117);          (void) (*Lnk179)(Lclptr179);
592            vs_top=sup;
593            V119= vs_base[0];
594            goto T219;
595            goto T227;
596    T227:;
597            V119= (V124);}
598            goto T219;
599    T219:;
600            V120= (*(LnkLI183))((V119),(V118));
601            if((V120)==Cnil){
602            V121= Cnil;
603            goto T231;}
604            base[4]= (V120);
605          base[5]= VV[4];          base[5]= VV[4];
606          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
607          (void) (*Lnk187)(Lclptr187);          (void) (*Lnk184)(Lclptr184);
608          vs_top=sup;          vs_top=sup;
609          V118= vs_base[0];          V121= vs_base[0];
610          goto T228;          goto T231;
611  T228:;  T231:;
612          {object V123;          {object V126;
613          object V124;          object V127;
614          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[16]->s.s_dbind))==(VV[17]))){
615          goto T234;}          goto T237;}
616          base[4]= (V107);          base[4]= (V110);
617          base[5]= (V106);          base[5]= (V109);
618          base[6]= (V116);          base[6]= (V119);
619          base[7]= (V105);          base[7]= (V108);
620          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
621          (void) (*Lnk188)();          (void) (*Lnk185)();
622          goto T232;          goto T235;
623          goto T234;          goto T237;
624  T234:;  T237:;
625          base[4]= (V116);          base[4]= (V119);
626          base[5]= (V105);          base[5]= (V108);
627          base[6]= (V106);          base[6]= (V109);
628          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
629          (void) (*Lnk189)();          (void) (*Lnk186)();
630          goto T232;          goto T235;
631  T232:;  T235:;
632          if(vs_base>=vs_top){vs_top=sup;goto T243;}          if(vs_base>=vs_top){vs_top=sup;goto T246;}
633          V123= vs_base[0];          V126= vs_base[0];
634          vs_base++;          vs_base++;
635          if(vs_base>=vs_top){vs_top=sup;goto T244;}          if(vs_base>=vs_top){vs_top=sup;goto T247;}
636          V124= vs_base[0];          V127= vs_base[0];
637          vs_top=sup;          vs_top=sup;
638          goto T245;          goto T248;
639          goto T243;          goto T246;
640  T243:;  T246:;
641          V123= Cnil;          V126= Cnil;
642          goto T244;          goto T247;
643  T244:;  T247:;
644          V124= Cnil;          V127= Cnil;
645          goto T245;          goto T248;
646  T245:;  T248:;
647          base[4]= (V123);          base[4]= (V126);
648          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
649          (void) (*Lnk190)();          (void) (*Lnk187)();
650          vs_top=sup;          vs_top=sup;
651          base[4]= (V124);          V131= ({object _tmp=get(VV[184],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[184])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[184])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
652          base[5]= V105;          V132 = V127;
653          base[6]= V106;          V133 = V108;
654          vs_top=(vs_base=base+4)+3;          V134 = V109;
655          (void) (*Lnk191)(Lclptr191);          (void)((
656          vs_top=sup;          V135 = V131,
657          base[4]= (V123);          (type_of(V135) == t_sfun ?(*((V135)->sfn.sfn_self)):
658          base[5]= V105;          (fcall.argd=3,type_of(V135)==t_vfun) ?
659          base[6]= V106;          (*((V135)->sfn.sfn_self)):
660          vs_top=(vs_base=base+4)+3;          (fcall.fun=(V135),fcalln))(V132,V133,V134)));
661          (void) (*Lnk192)(Lclptr192);          V139= ({object _tmp=get(VV[188],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[188])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[188])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
662          vs_top=sup;}          V140 = V126;
663          if(((V117))==Cnil){          V141 = V108;
664          goto T256;}          V142 = V109;
665          V129 = (V118);          (void)((
666          base[4]= (V105);          V143 = V139,
667            (type_of(V143) == t_sfun ?(*((V143)->sfn.sfn_self)):
668            (fcall.argd=3,type_of(V143)==t_vfun) ?
669            (*((V143)->sfn.sfn_self)):
670            (fcall.fun=(V143),fcalln))(V140,V141,V142)));}
671            if(((V120))==Cnil){
672            goto T255;}
673            V144 = (V121);
674            base[4]= (V108);
675          base[5]= VV[4];          base[5]= VV[4];
676          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
677          (void) (*Lnk187)(Lclptr187);          (void) (*Lnk184)(Lclptr184);
678          vs_top=sup;          vs_top=sup;
679          V130= vs_base[0];          V145= vs_base[0];
680          if((V129)==(V130)){          if((V144)==(V145)){
681          goto T256;}          goto T255;}
682          {object V131;          {object V146;
683          V131= make_cons((V116),(V115));          V146= make_cons((V119),(V118));
684          (VV[18]->s.s_dbind)= make_cons((V131),(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons((V146),(VV[18]->s.s_dbind));
685          {object V132 = (VV[18]->s.s_dbind);          {object V147 = (VV[18]->s.s_dbind);
686          VMR6(V132)}}          VMR6(V147)}}
687          goto T256;          goto T255;
688  T256:;  T255:;
689          {object V133 = Cnil;          {object V148 = Cnil;
690          VMR6(V133)}}}}          VMR6(V148)}}}}
691          base[0]=base[0];          base[0]=base[0];
692          return Cnil;          return Cnil;
693  }  }
694  /*      local entry for function (FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))   */
695    
696  static object LI7(V137,V138,V139)  static object LI7(V152,V153,V154)
697    
698  object V137;object V138;object V139;  object V152;object V153;object V154;
699  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
700          goto TTL;          goto TTL;
701  TTL:;  TTL:;
702          {object V141 = VV[19];          {object V156 = VV[19];
703          VMR7(V141)}          VMR7(V156)}
704          return Cnil;          return Cnil;
705  }  }
706  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) */
707    
708  static object LI8(V147,V148,V149,V150,V151)  static object LI8(V162,V163,V164,V165,V166)
709    
710  object V147;object V148;object V149;object V150;object V151;  object V162;object V163;object V164;object V165;object V166;
711  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
712          goto TTL;          goto TTL;
713  TTL:;  TTL:;
714          {object V153;          {object V168;
715          object V155;          object V170;
716          V153= (*(LnkLI193))(VV[20],V151);          V168= (*(LnkLI189))(VV[20],V166);
717          if(!(type_of((V153))==t_cons)){          if(!(type_of((V168))==t_cons)){
718          goto T273;}          goto T272;}
719          V155= CMPcar((V153));          V170= CMPcar((V168));
720          goto T271;          goto T270;
721          goto T273;          goto T272;
722  T273:;  T272:;
723          V155= Cnil;          V170= Cnil;
724          goto T271;          goto T270;
725  T271:;  T270:;
726          if((V153)==Cnil){          if((V168)==Cnil){
727          goto T277;}          goto T276;}
728          {object V158 = (*(LnkLI194))((V155),V149,VV[21]);          base[2]= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
729          VMR8(V158)}          base[3]= V170;
730          goto T277;          base[4]= V164;
731  T277:;          base[5]= VV[21];
732          {object V159 = Cnil;          vs_top=(vs_base=base+3)+3;
733          VMR8(V159)}}          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
734                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
735                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
736                   else super_funcall_no_event(_funobj);}
737            vs_top=sup;
738            {object V174 = vs_base[0];
739            VMR8(V174)}
740            goto T276;
741    T276:;
742            {object V175 = Cnil;
743            VMR8(V175)}}
744          base[0]=base[0];          base[0]=base[0];
745          return Cnil;          return Cnil;
746  }  }
747  /*      local entry for function (FAST-METHOD DOCUMENTATION (T))        */  /*      local entry for function (FAST-METHOD DOCUMENTATION (T))        */
748    
749  static object LI9(V164,V165,V166,V167)  static object LI9(V180,V181,V182,V183)
750    
751  object V164;object V165;object V166;object V167;  object V180;object V181;object V182;object V183;
752  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
753          goto TTL;          goto TTL;
754  TTL:;  TTL:;
755          {register object V168;          {register object V184;
756          object V169;          object V185;
757          V168= (V167);          V184= (V183);
758          if(((V168))==Cnil){          if(((V184))==Cnil){
759          goto T284;}          goto T287;}
760          {object V170;          {object V186;
761          V170= CMPcar((V168));          V186= CMPcar((V184));
762          V168= CMPcdr((V168));          V184= CMPcdr((V184));
763          V169= (V170);          V185= (V186);
764          goto T282;}          goto T285;}
765          goto T284;          goto T287;
766  T284:;  T287:;
767          V169= Cnil;          V185= Cnil;
768          goto T282;          goto T285;
769  T282:;  T285:;
770          base[1]= (V166);          base[1]= (V182);
771          base[2]= (V169);          base[2]= (V185);
772          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
773          (void) (*Lnk195)();          (void) (*Lnk191)();
774          vs_top=sup;          vs_top=sup;
775          {object V171 = vs_base[0];          {object V187 = vs_base[0];
776          VMR9(V171)}}          VMR9(V187)}}
777          base[0]=base[0];          base[0]=base[0];
778          return Cnil;          return Cnil;
779  }  }
780  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T T))       */  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T T))       */
781    
782  static object LI10(V177,V178,V179,V180,V181)  static object LI10(V193,V194,V195,V196,V197)
783    
784  object V177;object V178;object V179;object V180;object V181;  object V193;object V194;object V195;object V196;object V197;
785  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
786          goto TTL;          goto TTL;
787  TTL:;  TTL:;
788          {register object V182;          {register object V198;
789          object V183;          object V199;
790          V182= (V181);          V198= (V197);
791          if(((V182))==Cnil){          if(((V198))==Cnil){
792          goto T297;}          goto T300;}
793          {object V184;          {object V200;
794          V184= CMPcar((V182));          V200= CMPcar((V198));
795          V182= CMPcdr((V182));          V198= CMPcdr((V198));
796          V183= (V184);          V199= (V200);
797          goto T295;}          goto T298;}
798          goto T297;          goto T300;
799  T297:;  T300:;
800          V183= Cnil;          V199= Cnil;
801          goto T295;          goto T298;
802  T295:;  T298:;
803          base[1]= VV[22];          base[1]= VV[22];
804          base[2]= (V180);          base[2]= (V196);
805          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
806          Lerror();          Lerror();
807          vs_top=sup;          vs_top=sup;
808          {object V185 = vs_base[0];          {object V201 = vs_base[0];
809          VMR10(V185)}}          VMR10(V201)}}
810          base[0]=base[0];          base[0]=base[0];
811          return Cnil;          return Cnil;
812  }  }
813  /*      local entry for function (FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))      */  /*      local entry for function (FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))      */
814    
815  static object LI11(V190,V191,V192,V193)  static object LI11(V206,V207,V208,V209)
816    
817  object V190;object V191;object V192;object V193;  object V206;object V207;object V208;object V209;
818  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
819          goto TTL;          goto TTL;
820  TTL:;  TTL:;
821          {register object V194;          {register object V210;
822          object V195;          object V211;
823          V194= (V193);          V210= (V209);
824          if(((V194))==Cnil){          if(((V210))==Cnil){
825          goto T310;}          goto T313;}
826          {object V196;          {object V212;
827          V196= CMPcar((V194));          V212= CMPcar((V210));
828          V194= CMPcdr((V194));          V210= CMPcdr((V210));
829          V195= (V196);          V211= (V212);
830          goto T308;}          goto T311;}
831          goto T310;          goto T313;
832  T310:;  T313:;
833          V195= Cnil;          V211= Cnil;
834          goto T308;          goto T311;
835  T308:;  T311:;
836          {object V197 = (*(LnkLI196))((V192),VV[21]);          {object V213 = (*(LnkLI190))((V208),VV[21]);
837          VMR11(V197)}}          VMR11(V213)}}
838          base[0]=base[0];          base[0]=base[0];
839          return Cnil;          return Cnil;
840  }  }
841  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))     */  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))     */
842    
843  static object LI12(V203,V204,V205,V206,V207)  static object LI12(V219,V220,V221,V222,V223)
844    
845  object V203;object V204;object V205;object V206;object V207;  object V219;object V220;object V221;object V222;object V223;
846  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
847          goto TTL;          goto TTL;
848  TTL:;  TTL:;
849          {register object V208;          {register object V224;
850          object V209;          object V225;
851          V208= (V207);          V224= (V223);
852          if(((V208))==Cnil){          if(((V224))==Cnil){
853          goto T321;}          goto T324;}
854          {object V210;          {object V226;
855          V210= CMPcar((V208));          V226= CMPcar((V224));
856          V208= CMPcdr((V208));          V224= CMPcdr((V224));
857          V209= (V210);          V225= (V226);
858          goto T319;}          goto T322;}
859          goto T321;          goto T324;
860  T321:;  T324:;
861          V209= Cnil;          V225= Cnil;
862          goto T319;          goto T322;
863  T319:;  T322:;
864          {object V213 = (*(LnkLI194))((V205),V206,VV[21]);          base[1]= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
865          VMR12(V213)}}          base[2]= V221;
866            base[3]= V222;
867            base[4]= VV[21];
868            vs_top=(vs_base=base+2)+3;
869            {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
870                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
871                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
872                   else super_funcall_no_event(_funobj);}
873            vs_top=sup;
874            {object V230 = vs_base[0];
875            VMR12(V230)}}
876          base[0]=base[0];          base[0]=base[0];
877          return Cnil;          return Cnil;
878  }  }
# Line 842  static void L13() Line 882  static void L13()
882  {register object *base=vs_base;  {register object *base=vs_base;
883          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
884          vs_check;          vs_check;
885          {object V214;          {object V231;
886          object V215;          object V232;
887          register object V216;          register object V233;
888          object V217;          object V234;
889          check_arg(4);          check_arg(4);
890          V214=(base[0]);          V231=(base[0]);
891          V215=(base[1]);          V232=(base[1]);
892          V216=(base[2]);          V233=(base[2]);
893          V217=(base[3]);          V234=(base[3]);
894          vs_top=sup;          vs_top=sup;
895          goto TTL;          goto TTL;
896  TTL:;  TTL:;
897          {register object V218;          {register object V235;
898          object V219;          object V236;
899          V218= (V217);          V235= (V234);
900          if(((V218))==Cnil){          if(((V235))==Cnil){
901          goto T332;}          goto T339;}
902          {object V220;          {object V237;
903          V220= CMPcar((V218));          V237= CMPcar((V235));
904          V218= CMPcdr((V218));          V235= CMPcdr((V235));
905          V219= (V220);          V236= (V237);
906          goto T330;}          goto T337;}
907          goto T332;          goto T339;
908  T332:;  T339:;
909          V219= Cnil;          V236= Cnil;
910          goto T330;          goto T337;
911  T330:;  T337:;
912          {object V221;          {object V238;
913          object V222;          object V239;
914          V221= CMPcar((V214));          V238= CMPcar((V231));
915          V222= CMPcdr((V214));          V239= CMPcdr((V231));
916          {object V223;          {object V240;
917          if(type_of(V216)==t_structure){          if(type_of(V233)==t_structure){
918          goto T345;}          goto T352;}
919          goto T343;          goto T350;
920          goto T345;          goto T352;
921  T345:;  T352:;
922          if(!(((V216)->str.str_def)==(VV[23]))){          if(!(((V233)->str.str_def)==(VV[23]))){
923          goto T343;}          goto T350;}
924          V223= STREF(object,(V216),4);          V240= STREF(object,(V233),4);
925          goto T341;          goto T348;
926          goto T343;          goto T350;
927  T343:;{object V225;  T350:;{object V242;
928          V225= (VV[2]->s.s_dbind);          V242= (VV[2]->s.s_dbind);
929          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
930          base[6]= (V216);          base[6]= (V233);
931          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
932          (void) (*Lnk177)();          (void) (*Lnk174)();
933          vs_top=sup;          vs_top=sup;
934          V226= vs_base[0];          V243= vs_base[0];
935          if(!((V225)==(CMPcar(V226)))){          if(!((V242)==(CMPcar(V243)))){
936          goto T348;}}          goto T355;}}
937          V223= CMPcar(((V216))->cc.cc_turbo[12]);          V240= CMPcar(((V233))->cc.cc_turbo[12]);
938          goto T341;          goto T348;
939            goto T355;
940    T355:;
941            V240= Cnil;
942          goto T348;          goto T348;
943  T348:;  T348:;
944          V223= Cnil;          {register object V244;
945          goto T341;          V244= ((V238))->v.v_self[1];
946  T341:;          if(!(type_of(V244)==t_fixnum)){
947          {register object V227;          goto T365;}
948          V227= ((V221))->v.v_self[1];          V244= ((V240))->v.v_self[fix((V244))];
949          if(!(type_of(V227)==t_fixnum)){          goto T363;
950          goto T358;}          goto T365;
951          V227= ((V223))->v.v_self[fix((V227))];  T365:;
952          goto T356;          V244= VV[3];
953          goto T358;          goto T363;
954  T358:;  T363:;
955          V227= VV[3];          if(!(((V244))==(VV[3]))){
956          goto T356;          goto T368;}
957  T356:;          base[5]= (V233);
         if(!(((V227))==(VV[3]))){  
         goto T361;}  
         base[5]= (V216);  
958          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
959          (void) (*Lnk197)(Lclptr197);          (void) (*Lnk192)(Lclptr192);
960          return;          return;
961          goto T361;          goto T368;
962  T361:;  T368:;
963          base[5]= (V227);          base[5]= (V244);
964          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
965          return;}}}}          return;}}}}
966          }          }
# Line 931  static void L14() Line 971  static void L14()
971  {register object *base=vs_base;  {register object *base=vs_base;
972          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
973          vs_check;          vs_check;
974          {object V229;          {object V246;
975          object V230;          object V247;
976          object V231;          object V248;
977          register object V232;          register object V249;
978          object V233;          object V250;
979          check_arg(5);          check_arg(5);
980          V229=(base[0]);          V246=(base[0]);
981          V230=(base[1]);          V247=(base[1]);
982          V231=(base[2]);          V248=(base[2]);
983          V232=(base[3]);          V249=(base[3]);
984          V233=(base[4]);          V250=(base[4]);
985          vs_top=sup;          vs_top=sup;
986          goto TTL;          goto TTL;
987  TTL:;  TTL:;
988          {register object V234;          {register object V251;
989          object V235;          object V252;
990          V234= (V233);          V251= (V250);
991          if(((V234))==Cnil){          if(((V251))==Cnil){
992          goto T369;}          goto T376;}
993          {object V236;          {object V253;
994          V236= CMPcar((V234));          V253= CMPcar((V251));
995          V234= CMPcdr((V234));          V251= CMPcdr((V251));
996          V235= (V236);          V252= (V253);
997          goto T367;}          goto T374;}
998          goto T369;          goto T376;
999  T369:;  T376:;
1000          V235= Cnil;          V252= Cnil;
1001          goto T367;          goto T374;
1002  T367:;  T374:;
1003          {object V237;          {object V254;
1004          object V238;          object V255;
1005          V237= CMPcar((V229));          V254= CMPcar((V246));
1006          V238= CMPcdr((V229));          V255= CMPcdr((V246));
1007          {object V239;          {object V256;
1008          if(type_of(V232)==t_structure){          if(type_of(V249)==t_structure){
1009          goto T382;}          goto T389;}
1010          goto T380;          goto T387;
1011          goto T382;          goto T389;
1012  T382:;  T389:;
1013          if(!(((V232)->str.str_def)==(VV[24]))){          if(!(((V249)->str.str_def)==(VV[24]))){
1014          goto T380;}          goto T387;}
1015          V239= STREF(object,(V232),4);          V256= STREF(object,(V249),4);
1016          goto T378;          goto T385;
1017          goto T380;          goto T387;
1018  T380:;{object V241;  T387:;{object V258;
1019          V241= (VV[2]->s.s_dbind);          V258= (VV[2]->s.s_dbind);
1020          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
1021          base[7]= (V232);          base[7]= (V249);
1022          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1023          (void) (*Lnk177)();          (void) (*Lnk174)();
1024          vs_top=sup;          vs_top=sup;
1025          V242= vs_base[0];          V259= vs_base[0];
1026          if(!((V241)==(CMPcar(V242)))){          if(!((V258)==(CMPcar(V259)))){
1027          goto T385;}}          goto T392;}}
1028          V239= CMPcar(((V232))->cc.cc_turbo[12]);          V256= CMPcar(((V249))->cc.cc_turbo[12]);
1029          goto T378;          goto T385;
1030            goto T392;
1031    T392:;
1032            V256= Cnil;
1033          goto T385;          goto T385;
1034  T385:;  T385:;
1035          V239= Cnil;          {object V261;
1036          goto T378;          V261= ((V254))->v.v_self[1];
1037  T378:;          if(!(type_of(V261)==t_fixnum)){
1038          {object V244;          goto T400;}
1039          V244= ((V237))->v.v_self[1];          base[6]= ((V256))->v.v_self[fix((V261))]= (V248);
         if(!(type_of(V244)==t_fixnum)){  
         goto T393;}  
         base[6]= ((V239))->v.v_self[fix((V244))]= (V231);  
1040          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1041          return;          return;
1042          goto T393;          goto T400;
1043  T393:;  T400:;
1044          base[6]= V231;          base[6]= V248;
1045          base[7]= (V232);          base[7]= (V249);
1046          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1047          (void) (*Lnk198)(Lclptr198);          (void) (*Lnk193)(Lclptr193);
1048          return;}}}}          return;}}}}
1049          }          }
1050  }  }
1051  /*      local entry for function (FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))    */  /*      local entry for function (FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))    */
1052    
1053  static object LI15(V249,V250,V251)  static object LI15(V266,V267,V268)
1054    
1055  object V249;object V250;register object V251;  object V266;object V267;register object V268;
1056  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1057          goto TTL;          goto TTL;
1058  TTL:;  TTL:;
1059          {object V253;          {object V270;
1060          object V254;          object V271;
1061          V253= CMPcar((V249));          V270= CMPcar((V266));
1062          V254= CMPcdr((V249));          V271= CMPcdr((V266));
1063          {object V255;          {object V272;
1064          if(type_of(V251)==t_structure){          if(type_of(V268)==t_structure){
1065          goto T407;}          goto T414;}
1066          goto T405;          goto T412;
1067          goto T407;          goto T414;
1068  T407:;  T414:;
1069          if(!(((V251)->str.str_def)==(VV[25]))){          if(!(((V268)->str.str_def)==(VV[25]))){
1070          goto T405;}          goto T412;}
1071          V255= STREF(object,(V251),4);          V272= STREF(object,(V268),4);
1072          goto T403;          goto T410;
1073          goto T405;          goto T412;
1074  T405:;{object V257;  T412:;{object V274;
1075          V257= (VV[2]->s.s_dbind);          V274= (VV[2]->s.s_dbind);
1076          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1077          base[1]= (V251);          base[1]= (V268);
1078          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1079          (void) (*Lnk177)();          (void) (*Lnk174)();
1080          vs_top=sup;          vs_top=sup;
1081          V258= vs_base[0];          V275= vs_base[0];
1082          if(!((V257)==(CMPcar(V258)))){          if(!((V274)==(CMPcar(V275)))){
1083          goto T410;}}          goto T417;}}
1084          V255= CMPcar(((V251))->cc.cc_turbo[12]);          V272= CMPcar(((V268))->cc.cc_turbo[12]);
1085          goto T403;          goto T410;
1086            goto T417;
1087    T417:;
1088            V272= Cnil;
1089          goto T410;          goto T410;
1090  T410:;  T410:;
1091          V255= Cnil;          {register object V278;
1092          goto T403;          V278= ((V270))->v.v_self[1];
1093  T403:;          if(!(type_of(V278)==t_fixnum)){
1094          {register object V261;          goto T429;}
1095          V261= ((V253))->v.v_self[1];          V278= ((V272))->v.v_self[fix((V278))];
1096          if(!(type_of(V261)==t_fixnum)){          goto T427;
1097          goto T422;}          goto T429;
1098          V261= ((V255))->v.v_self[fix((V261))];  T429:;
1099          goto T420;          V278= VV[3];
1100          goto T422;          goto T427;
1101  T422:;  T427:;
1102          V261= VV[3];          if(!(((V278))==(VV[3]))){
1103          goto T420;          goto T432;}
1104  T420:;          base[0]= (V268);
         if(!(((V261))==(VV[3]))){  
         goto T425;}  
         base[0]= (V251);  
1105          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1106          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk194)(Lclptr194);
1107          vs_top=sup;          vs_top=sup;
1108          V260= vs_base[0];          V277= vs_base[0];
1109          goto T417;          goto T424;
1110          goto T425;          goto T432;
1111  T425:;  T432:;
1112          V260= (V261);}          V277= (V278);}
1113          goto T417;          goto T424;
1114  T417:;  T424:;
1115          {object V263 = ((((V260)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V280 = ((((V277)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
1116          VMR15(V263)}}}          VMR15(V280)}}}
1117          base[0]=base[0];          base[0]=base[0];
1118          return Cnil;          return Cnil;
1119  }  }
# Line 1083  static void L16() Line 1123  static void L16()
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;
         {object V264;  
         object V265;  
         register object V266;  
         check_arg(3);  
         V264=(base[0]);  
         V265=(base[1]);  
         V266=(base[2]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         {object V268;  
         object V269;  
         V268= CMPcar((V264));  
         V269= CMPcdr((V264));  
         {object V270;  
         if(type_of(V266)==t_structure){  
         goto T438;}  
         goto T436;  
         goto T438;  
 T438:;  
         if(!(((V266)->str.str_def)==(VV[26]))){  
         goto T436;}  
         V270= STREF(object,(V266),4);  
         goto T434;  
         goto T436;  
 T436:;{object V272;  
         V272= (VV[2]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V266);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk177)();  
         vs_top=sup;  
         V273= vs_base[0];  
         if(!((V272)==(CMPcar(V273)))){  
         goto T441;}}  
         V270= CMPcar(((V266))->cc.cc_turbo[12]);  
         goto T434;  
         goto T441;  
 T441:;  
         V270= Cnil;  
         goto T434;  
 T434:;  
         {object V275;  
         {register object V276;  
         V276= ((V268))->v.v_self[1];  
         if(!(type_of(V276)==t_fixnum)){  
         goto T453;}  
         V276= ((V270))->v.v_self[fix((V276))];  
         goto T451;  
         goto T453;  
 T453:;  
         V276= VV[3];  
         goto T451;  
 T451:;  
         if(!(((V276))==(VV[3]))){  
         goto T456;}  
         base[3]= (V266);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk200)(Lclptr200);  
         vs_top=sup;  
         V275= vs_base[0];  
         goto T448;  
         goto T456;  
 T456:;  
         V275= (V276);}  
         goto T448;  
 T448:;  
         if(((V275))==Cnil){  
         goto T460;}  
         base[3]= (V275);  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T460;  
 T460:;  
         {object V278;  
         base[3]= (V266);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk201)(Lclptr201);  
         vs_top=sup;  
         V278= vs_base[0];  
         {object V279;  
         V279= ((V268))->v.v_self[1];  
         if(!(type_of(V279)==t_fixnum)){  
         goto T466;}  
         base[3]= ((V270))->v.v_self[fix((V279))]= ((V278));  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T466;  
 T466:;  
         base[3]= (V278);  
         base[4]= (V266);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk202)(Lclptr202);  
         return;}}}}}  
         }  
 }  
 /*      function definition for (FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) */  
   
 static void L17()  
 {register object *base=vs_base;  
         register object *sup=base+VM17; VC17  
         vs_check;  
1126          {object V281;          {object V281;
1127          object V282;          object V282;
1128          register object V283;          register object V283;
# Line 1195  static void L17() Line 1133  static void L17()
1133          vs_top=sup;          vs_top=sup;
1134          goto TTL;          goto TTL;
1135  TTL:;  TTL:;
1136          {register object V285;          {object V285;
1137          object V286;          object V286;
1138          V285= CMPcar((V281));          V285= CMPcar((V281));
1139          V286= CMPcdr((V281));          V286= CMPcdr((V281));
1140          {register object V287;          {object V287;
1141          if(type_of(V283)==t_structure){          if(type_of(V283)==t_structure){
1142          goto T480;}          goto T445;}
1143          goto T478;          goto T443;
1144          goto T480;          goto T445;
1145  T480:;  T445:;
1146          if(!(((V283)->str.str_def)==(VV[27]))){          if(!(((V283)->str.str_def)==(VV[26]))){
1147          goto T478;}          goto T443;}
1148          V287= STREF(object,(V283),4);          V287= STREF(object,(V283),4);
1149          goto T476;          goto T441;
1150          goto T478;          goto T443;
1151  T478:;{object V289;  T443:;{object V289;
1152          V289= (VV[2]->s.s_dbind);          V289= (VV[2]->s.s_dbind);
1153          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1154          base[4]= (V283);          base[4]= (V283);
1155          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1156          (void) (*Lnk177)();          (void) (*Lnk174)();
1157          vs_top=sup;          vs_top=sup;
1158          V290= vs_base[0];          V290= vs_base[0];
1159          if(!((V289)==(CMPcar(V290)))){          if(!((V289)==(CMPcar(V290)))){
1160          goto T483;}}          goto T448;}}
1161          V287= CMPcar(((V283))->cc.cc_turbo[12]);          V287= CMPcar(((V283))->cc.cc_turbo[12]);
1162          goto T476;          goto T441;
1163          goto T483;          goto T448;
1164  T483:;  T448:;
1165          V287= Cnil;          V287= Cnil;
1166          goto T476;          goto T441;
1167  T476:;  T441:;
1168          {object V292;          {object V292;
1169          {register object V293;          {register object V293;
1170          V293= ((V285))->v.v_self[2];          V293= ((V285))->v.v_self[1];
1171          if(!(type_of(V293)==t_fixnum)){          if(!(type_of(V293)==t_fixnum)){
1172          goto T495;}          goto T460;}
1173          V293= ((V287))->v.v_self[fix((V293))];          V293= ((V287))->v.v_self[fix((V293))];
1174          goto T493;          goto T458;
1175          goto T495;          goto T460;
1176  T495:;  T460:;
1177          V293= VV[3];          V293= VV[3];
1178          goto T493;          goto T458;
1179  T493:;  T458:;
1180          if(!(((V293))==(VV[3]))){          if(!(((V293))==(VV[3]))){
1181          goto T498;}          goto T463;}
1182          base[3]= (V283);          base[3]= (V283);
1183          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1184          (void) (*Lnk200)(Lclptr200);          (void) (*Lnk195)(Lclptr195);
1185          vs_top=sup;          vs_top=sup;
1186          V292= vs_base[0];          V292= vs_base[0];
1187          goto T490;          goto T455;
1188          goto T498;          goto T463;
1189  T498:;  T463:;
1190          V292= (V293);}          V292= (V293);}
1191          goto T490;          goto T455;
1192  T490:;  T455:;
1193          if(((V292))==Cnil){          if(((V292))==Cnil){
1194          goto T502;}          goto T467;}
1195          base[3]= (V292);          base[3]= (V292);
1196          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1197          return;          return;
1198          goto T502;          goto T467;
1199  T502:;  T467:;
1200          {object V295;          {object V295;
1201          {register object V296;          base[3]= (V283);
1202            vs_top=(vs_base=base+3)+1;
1203            (void) (*Lnk196)(Lclptr196);
1204            vs_top=sup;
1205            V295= vs_base[0];
1206            {object V296;
1207          V296= ((V285))->v.v_self[1];          V296= ((V285))->v.v_self[1];
1208          if(!(type_of(V296)==t_fixnum)){          if(!(type_of(V296)==t_fixnum)){
1209          goto T512;}          goto T473;}
1210          V296= ((V287))->v.v_self[fix((V296))];          base[3]= ((V287))->v.v_self[fix((V296))]= ((V295));
         goto T510;  
         goto T512;  
 T512:;  
         V296= VV[3];  
         goto T510;  
 T510:;  
         if(!(((V296))==(VV[3]))){  
         goto T515;}  
         base[3]= (V283);  
1211          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1212          (void) (*Lnk203)(Lclptr203);          return;
1213            goto T473;
1214    T473:;
1215            base[3]= (V295);
1216            base[4]= (V283);
1217            vs_top=(vs_base=base+3)+2;
1218            (void) (*Lnk197)(Lclptr197);
1219            return;}}}}}
1220            }
1221    }
1222    /*      function definition for (FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) */
1223    
1224    static void L17()
1225    {register object *base=vs_base;
1226            register object *sup=base+VM17; VC17
1227            vs_check;
1228            {object V298;
1229            object V299;
1230            register object V300;
1231            check_arg(3);
1232            V298=(base[0]);
1233            V299=(base[1]);
1234            V300=(base[2]);
1235          vs_top=sup;          vs_top=sup;
1236          if((vs_base[0])==Cnil){          goto TTL;
1237          goto T506;}  TTL:;
1238          goto T507;          {register object V302;
1239          goto T515;          object V303;
1240  T515:;          V302= CMPcar((V298));
1241          if(((V296))==Cnil){          V303= CMPcdr((V298));
1242          goto T506;}}          {register object V304;
1243          goto T507;          if(type_of(V300)==t_structure){
1244  T507:;          goto T487;}
1245          base[3]= (V283);          goto T485;
1246            goto T487;
1247    T487:;
1248            if(!(((V300)->str.str_def)==(VV[27]))){
1249            goto T485;}
1250            V304= STREF(object,(V300),4);
1251            goto T483;
1252            goto T485;
1253    T485:;{object V306;
1254            V306= (VV[2]->s.s_dbind);
1255            base[3]= small_fixnum(14);
1256            base[4]= (V300);
1257            vs_top=(vs_base=base+3)+2;
1258            (void) (*Lnk174)();
1259            vs_top=sup;
1260            V307= vs_base[0];
1261            if(!((V306)==(CMPcar(V307)))){
1262            goto T490;}}
1263            V304= CMPcar(((V300))->cc.cc_turbo[12]);
1264            goto T483;
1265            goto T490;
1266    T490:;
1267            V304= Cnil;
1268            goto T483;
1269    T483:;
1270            {object V309;
1271            {register object V310;
1272            V310= ((V302))->v.v_self[2];
1273            if(!(type_of(V310)==t_fixnum)){
1274            goto T502;}
1275            V310= ((V304))->v.v_self[fix((V310))];
1276            goto T500;
1277            goto T502;
1278    T502:;
1279            V310= VV[3];
1280            goto T500;
1281    T500:;
1282            if(!(((V310))==(VV[3]))){
1283            goto T505;}
1284            base[3]= (V300);
1285          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1286          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk195)(Lclptr195);
1287          vs_top=sup;          vs_top=sup;
1288          V295= vs_base[0];          V309= vs_base[0];
1289          goto T504;          goto T497;
1290          goto T506;          goto T505;
1291  T506:;  T505:;
1292          {register object V299;          V309= (V310);}
1293          V299= ((V285))->v.v_self[3];          goto T497;
1294          if(!(type_of(V299)==t_fixnum)){  T497:;
1295          goto T524;}          if(((V309))==Cnil){
1296          V299= ((V287))->v.v_self[fix((V299))];          goto T509;}
1297          goto T522;          base[3]= (V309);
1298          goto T524;          vs_top=(vs_base=base+3)+1;
1299  T524:;          return;
1300          V299= VV[3];          goto T509;
1301    T509:;
1302            {object V312;
1303            {register object V313;
1304            V313= ((V302))->v.v_self[1];
1305            if(!(type_of(V313)==t_fixnum)){
1306            goto T519;}
1307            V313= ((V304))->v.v_self[fix((V313))];
1308            goto T517;
1309            goto T519;
1310    T519:;
1311            V313= VV[3];
1312            goto T517;
1313    T517:;
1314            if(!(((V313))==(VV[3]))){
1315            goto T522;}
1316            base[3]= (V300);
1317            vs_top=(vs_base=base+3)+1;
1318            (void) (*Lnk198)(Lclptr198);
1319            vs_top=sup;
1320            if((vs_base[0])==Cnil){
1321            goto T513;}
1322            goto T514;
1323          goto T522;          goto T522;
1324  T522:;  T522:;
1325          if(!(((V299))==(VV[3]))){          if(((V313))==Cnil){
1326          goto T527;}          goto T513;}}
1327          base[3]= (V283);          goto T514;
1328    T514:;
1329            base[3]= (V300);
1330          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1331          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk196)(Lclptr196);
1332          vs_top=sup;          vs_top=sup;
1333          V298= vs_base[0];          V312= vs_base[0];
1334          goto T519;          goto T511;
1335          goto T527;          goto T513;
1336  T527:;  T513:;
1337          V298= (V299);}          {register object V316;
1338          goto T519;          V316= ((V302))->v.v_self[3];
1339  T519:;          if(!(type_of(V316)==t_fixnum)){
1340          V295= (VFUN_NARGS=1,(*(LnkLI204))(V298));          goto T531;}
1341          goto T504;          V316= ((V304))->v.v_self[fix((V316))];
1342  T504:;          goto T529;
1343          {object V301;          goto T531;
1344          V301= ((V285))->v.v_self[2];  T531:;
1345          if(!(type_of(V301)==t_fixnum)){          V316= VV[3];
1346          goto T532;}          goto T529;
1347          base[3]= ((V287))->v.v_self[fix((V301))]= ((V295));  T529:;
1348            if(!(((V316))==(VV[3]))){
1349            goto T534;}
1350            base[3]= (V300);
1351            vs_top=(vs_base=base+3)+1;
1352            (void) (*Lnk194)(Lclptr194);
1353            vs_top=sup;
1354            V315= vs_base[0];
1355            goto T526;
1356            goto T534;
1357    T534:;
1358            V315= (V316);}
1359            goto T526;
1360    T526:;
1361            V312= (VFUN_NARGS=1,(*(LnkLI199))(V315));
1362            goto T511;
1363    T511:;
1364            {object V318;
1365            V318= ((V302))->v.v_self[2];
1366            if(!(type_of(V318)==t_fixnum)){
1367            goto T539;}
1368            base[3]= ((V304))->v.v_self[fix((V318))]= ((V312));
1369          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1370          return;          return;
1371          goto T532;          goto T539;
1372  T532:;  T539:;
1373          base[3]= (V295);          base[3]= (V312);
1374          base[4]= (V283);          base[4]= (V300);
1375          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1376          (void) (*Lnk202)(Lclptr202);          (void) (*Lnk197)(Lclptr197);
1377          return;}}}}}          return;}}}}}
1378          }          }
1379  }  }
1380  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))       */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))       */
1381    
1382  static object LI18(V306,V307,V308)  static object LI18(V323,V324,V325)
1383    
1384  object V306;object V307;object V308;  object V323;object V324;object V325;
1385  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1386          goto TTL;          goto TTL;
1387  TTL:;  TTL:;
1388          {object V310 = (*(LnkLI196))((V308),VV[28]);          {object V327 = (*(LnkLI190))((V325),VV[28]);
1389          VMR18(V310)}          VMR18(V327)}
1390          return Cnil;          return Cnil;
1391  }  }
1392  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))      */  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))      */
1393    
1394  static object LI19(V314,V315,V316)  static object LI19(V331,V332,V333)
1395    
1396  object V314;object V315;object V316;  object V331;object V332;object V333;
1397  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1398          goto TTL;          goto TTL;
1399  TTL:;  TTL:;
1400          {object V318 = (*(LnkLI196))((V316),VV[29]);          {object V335 = (*(LnkLI190))((V333),VV[29]);
1401          VMR19(V318)}          VMR19(V335)}
1402          return Cnil;          return Cnil;
1403  }  }
1404  /*      local entry for function (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))  */  /*      local entry for function (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))  */
1405    
1406  static object LI20(V322,V323,V324)  static object LI20(V339,V340,V341)
1407    
1408  object V322;object V323;object V324;  object V339;object V340;object V341;
1409  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1410          goto TTL;          goto TTL;
1411  TTL:;  TTL:;
1412          {object V326 = (*(LnkLI196))((V324),VV[30]);          {object V343 = (*(LnkLI190))((V341),VV[30]);
1413          VMR20(V326)}          VMR20(V343)}
1414          return Cnil;          return Cnil;
1415  }  }
1416  /*      local entry for function (FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))     */  /*      local entry for function (FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))     */
1417    
1418  static object LI21(V330,V331,V332)  static object LI21(V347,V348,V349)
1419    
1420  object V330;object V331;object V332;  object V347;object V348;object V349;
1421  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1422          goto TTL;          goto TTL;
1423  TTL:;  TTL:;
1424          {object V334 = (*(LnkLI196))((V332),VV[31]);          {object V351 = (*(LnkLI190))((V349),VV[31]);
1425          VMR21(V334)}          VMR21(V351)}
1426          return Cnil;          return Cnil;
1427  }  }
1428  /*      local entry for function (FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))        */  /*      local entry for function (FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))        */
1429    
1430  static object LI22(V339,V340,V341,V342)  static object LI22(V356,V357,V358,V359)
1431    
1432  object V339;object V340;register object V341;object V342;  object V356;object V357;register object V358;object V359;
1433  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1434          goto TTL;          goto TTL;
1435  TTL:;  TTL:;
1436          {object V344;          {object V361;
1437          object V345;          object V362;
1438          V344= CMPcar((V339));          V361= CMPcar((V356));
1439          V345= CMPcdr((V339));          V362= CMPcdr((V356));
1440          {object V346;          {object V363;
1441          if(type_of(V341)==t_structure){          if(type_of(V358)==t_structure){
1442          goto T558;}          goto T565;}
1443          goto T556;          goto T563;
1444          goto T558;          goto T565;
1445  T558:;  T565:;
1446          if(!(((V341)->str.str_def)==(VV[32]))){          if(!(((V358)->str.str_def)==(VV[32]))){
1447          goto T556;}          goto T563;}
1448          V346= STREF(object,(V341),4);          V363= STREF(object,(V358),4);
1449          goto T554;          goto T561;
1450          goto T556;          goto T563;
1451  T556:;{object V348;  T563:;{object V365;
1452          V348= (VV[2]->s.s_dbind);          V365= (VV[2]->s.s_dbind);
1453          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1454          base[1]= (V341);          base[1]= (V358);
1455          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1456          (void) (*Lnk177)();          (void) (*Lnk174)();
1457          vs_top=sup;          vs_top=sup;
1458          V349= vs_base[0];          V366= vs_base[0];
1459          if(!((V348)==(CMPcar(V349)))){          if(!((V365)==(CMPcar(V366)))){
1460          goto T561;}}          goto T568;}}
1461          V346= CMPcar(((V341))->cc.cc_turbo[12]);          V363= CMPcar(((V358))->cc.cc_turbo[12]);
1462          goto T554;          goto T561;
1463            goto T568;
1464    T568:;
1465            V363= Cnil;
1466          goto T561;          goto T561;
1467  T561:;  T561:;
1468          V346= Cnil;          {object V369;
1469          goto T554;          base[0]= V359;
1470  T554:;          {register object V370;
1471          {object V352;          V370= ((V361))->v.v_self[1];
1472          base[0]= V342;          if(!(type_of(V370)==t_fixnum)){
1473          {register object V353;          goto T584;}
1474          V353= ((V344))->v.v_self[1];          V370= ((V363))->v.v_self[fix((V370))];
1475          if(!(type_of(V353)==t_fixnum)){          goto T582;
1476          goto T577;}          goto T584;
1477          V353= ((V346))->v.v_self[fix((V353))];  T584:;
1478          goto T575;          V370= VV[3];
1479          goto T577;          goto T582;
1480  T577:;  T582:;
1481          V353= VV[3];          if(!(((V370))==(VV[3]))){
1482          goto T575;          goto T587;}
1483  T575:;          base[2]= (V358);
         if(!(((V353))==(VV[3]))){  
         goto T580;}  
         base[2]= (V341);  
1484          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1485          (void) (*Lnk205)(Lclptr205);          (void) (*Lnk200)(Lclptr200);
1486          vs_top=sup;          vs_top=sup;
1487          base[1]= vs_base[0];          base[1]= vs_base[0];
1488          goto T572;          goto T579;
1489          goto T580;          goto T587;
1490  T580:;  T587:;
1491          base[1]= (V353);}          base[1]= (V370);}
1492          goto T572;          goto T579;
1493  T572:;  T579:;
1494          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1495          Ladjoin();          Ladjoin();
1496          vs_top=sup;          vs_top=sup;
1497          V352= vs_base[0];          V369= vs_base[0];
1498          {object V355;          {object V372;
1499          V355= ((V344))->v.v_self[1];          V372= ((V361))->v.v_self[1];
1500          if(!(type_of(V355)==t_fixnum)){          if(!(type_of(V372)==t_fixnum)){
1501          goto T585;}          goto T592;}
1502          (void)(((V346))->v.v_self[fix((V355))]= ((V352)));          (void)(((V363))->v.v_self[fix((V372))]= ((V369)));
1503          goto T569;          goto T576;
1504          goto T585;          goto T592;
1505  T585:;  T592:;
1506          base[0]= (V352);          base[0]= (V369);
1507          base[1]= (V341);          base[1]= (V358);
1508          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1509          (void) (*Lnk206)(Lclptr206);          (void) (*Lnk201)(Lclptr201);
1510          vs_top=sup;}}          vs_top=sup;}}
1511          goto T569;          goto T576;
1512  T569:;  T576:;
1513          {object V357 = (V342);          {object V374 = (V359);
1514          VMR22(V357)}}}          VMR22(V374)}}}
1515          base[0]=base[0];          base[0]=base[0];
1516          return Cnil;          return Cnil;
1517  }  }
1518  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))     */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))     */
1519    
1520  static object LI23(V362,V363,V364,V365)  static object LI23(V379,V380,V381,V382)
1521    
1522  object V362;object V363;register object V364;object V365;  object V379;object V380;register object V381;object V382;
1523  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1524          goto TTL;          goto TTL;
1525  TTL:;  TTL:;
1526          {object V367;          {object V384;
1527          object V368;          object V385;
1528          V367= CMPcar((V362));          V384= CMPcar((V379));
1529          V368= CMPcdr((V362));          V385= CMPcdr((V379));
1530          {object V369;          {object V386;
1531          if(type_of(V364)==t_structure){          if(type_of(V381)==t_structure){
1532          goto T599;}          goto T606;}
1533          goto T597;          goto T604;
1534          goto T599;          goto T606;
1535  T599:;  T606:;
1536          if(!(((V364)->str.str_def)==(VV[33]))){          if(!(((V381)->str.str_def)==(VV[33]))){
1537          goto T597;}          goto T604;}
1538          V369= STREF(object,(V364),4);          V386= STREF(object,(V381),4);
1539          goto T595;          goto T602;
1540          goto T597;          goto T604;
1541  T597:;{object V371;  T604:;{object V388;
1542          V371= (VV[2]->s.s_dbind);          V388= (VV[2]->s.s_dbind);
1543          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1544          base[1]= (V364);          base[1]= (V381);
1545          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1546          (void) (*Lnk177)();          (void) (*Lnk174)();
1547          vs_top=sup;          vs_top=sup;
1548          V372= vs_base[0];          V389= vs_base[0];
1549          if(!((V371)==(CMPcar(V372)))){          if(!((V388)==(CMPcar(V389)))){
1550          goto T602;}}          goto T609;}}
1551          V369= CMPcar(((V364))->cc.cc_turbo[12]);          V386= CMPcar(((V381))->cc.cc_turbo[12]);
1552          goto T595;          goto T602;
1553            goto T609;
1554    T609:;
1555            V386= Cnil;
1556          goto T602;          goto T602;
1557  T602:;  T602:;
1558          V369= Cnil;          {object V391;
1559          goto T595;          base[0]= (V382);
1560  T595:;          {register object V392;
1561          {object V374;          V392= ((V384))->v.v_self[1];
1562          base[0]= (V365);          if(!(type_of(V392)==t_fixnum)){
1563          {register object V375;          goto T625;}
1564          V375= ((V367))->v.v_self[1];          V392= ((V386))->v.v_self[fix((V392))];
1565          if(!(type_of(V375)==t_fixnum)){          goto T623;
1566          goto T618;}          goto T625;
1567          V375= ((V369))->v.v_self[fix((V375))];  T625:;
1568          goto T616;          V392= VV[3];
1569          goto T618;          goto T623;
1570  T618:;  T623:;
1571          V375= VV[3];          if(!(((V392))==(VV[3]))){
1572          goto T616;          goto T628;}
1573  T616:;          base[2]= (V381);
         if(!(((V375))==(VV[3]))){  
         goto T621;}  
         base[2]= (V364);  
1574          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1575          (void) (*Lnk205)(Lclptr205);          (void) (*Lnk200)(Lclptr200);
1576          vs_top=sup;          vs_top=sup;
1577          base[1]= vs_base[0];          base[1]= vs_base[0];
1578          goto T613;          goto T620;
1579          goto T621;          goto T628;
1580  T621:;  T628:;
1581          base[1]= (V375);}          base[1]= (V392);}
1582          goto T613;          goto T620;
1583  T613:;  T620:;
1584          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1585          (void) (*Lnk95)();          (void) (*Lnk95)();
1586          vs_top=sup;          vs_top=sup;
1587          V374= vs_base[0];          V391= vs_base[0];
1588          {object V377;          {object V394;
1589          V377= ((V367))->v.v_self[1];          V394= ((V384))->v.v_self[1];
1590          if(!(type_of(V377)==t_fixnum)){          if(!(type_of(V394)==t_fixnum)){
1591          goto T626;}          goto T633;}
1592          (void)(((V369))->v.v_self[fix((V377))]= ((V374)));          (void)(((V386))->v.v_self[fix((V394))]= ((V391)));
1593          goto T610;          goto T617;
1594          goto T626;          goto T633;
1595  T626:;  T633:;
1596          base[0]= (V374);          base[0]= (V391);
1597          base[1]= (V364);          base[1]= (V381);
1598          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1599          (void) (*Lnk206)(Lclptr206);          (void) (*Lnk201)(Lclptr201);
1600          vs_top=sup;}}          vs_top=sup;}}
1601          goto T610;          goto T617;
1602  T610:;  T617:;
1603          {object V379 = (V365);          {object V396 = (V382);
1604          VMR23(V379)}}}          VMR23(V396)}}}
1605          base[0]=base[0];          base[0]=base[0];
1606          return Cnil;          return Cnil;
1607  }  }
1608  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) */  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) */
1609    
1610  static object LI24(V384,V385,V386,V387)  static object LI24(V401,V402,V403,V404)
1611    
1612  object V384;object V385;register object V386;object V387;  object V401;object V402;register object V403;object V404;
1613  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1614          goto TTL;          goto TTL;
1615  TTL:;  TTL:;
1616          {register object V389;          {register object V406;
1617          object V390;          object V407;
1618          V389= CMPcar((V384));          V406= CMPcar((V401));
1619          V390= CMPcdr((V384));          V407= CMPcdr((V401));
1620          {object V391;          {object V408;
1621          if(type_of(V386)==t_structure){          if(type_of(V403)==t_structure){
1622          goto T640;}          goto T647;}
1623          goto T638;          goto T645;
1624          goto T640;          goto T647;
1625  T640:;  T647:;
1626          if(!(((V386)->str.str_def)==(VV[34]))){          if(!(((V403)->str.str_def)==(VV[34]))){
1627          goto T638;}          goto T645;}
1628          V391= STREF(object,(V386),4);          V408= STREF(object,(V403),4);
1629          goto T636;          goto T643;
1630          goto T638;          goto T645;
1631  T638:;{object V393;  T645:;{object V410;
1632          V393= (VV[2]->s.s_dbind);          V410= (VV[2]->s.s_dbind);
1633          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1634          base[1]= (V386);          base[1]= (V403);
1635          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1636          (void) (*Lnk177)();          (void) (*Lnk174)();
1637          vs_top=sup;          vs_top=sup;
1638          V394= vs_base[0];          V411= vs_base[0];
1639          if(!((V393)==(CMPcar(V394)))){          if(!((V410)==(CMPcar(V411)))){
1640          goto T643;}}          goto T650;}}
1641          V391= CMPcar(((V386))->cc.cc_turbo[12]);          V408= CMPcar(((V403))->cc.cc_turbo[12]);
1642          goto T636;          goto T643;
1643            goto T650;
1644    T650:;
1645            V408= Cnil;
1646          goto T643;          goto T643;
1647  T643:;  T643:;
1648          V391= Cnil;          {object V413;
1649          goto T636;          object V414;
1650  T636:;          {register object V415;
1651          {object V396;          V415= ((V406))->v.v_self[1];
1652          object V397;          if(!(type_of(V415)==t_fixnum)){
1653          {register object V398;          goto T665;}
1654          V398= ((V389))->v.v_self[1];          V415= ((V408))->v.v_self[fix((V415))];
1655          if(!(type_of(V398)==t_fixnum)){          goto T663;
1656          goto T658;}          goto T665;
1657          V398= ((V391))->v.v_self[fix((V398))];  T665:;
1658          goto T656;          V415= VV[3];
1659          goto T658;          goto T663;
1660  T658:;  T663:;
1661          V398= VV[3];          if(!(((V415))==(VV[3]))){
1662          goto T656;          goto T668;}
1663  T656:;          base[2]= (V403);
         if(!(((V398))==(VV[3]))){  
         goto T661;}  
         base[2]= (V386);  
1664          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1665          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1666          vs_top=sup;          vs_top=sup;
1667          V396= vs_base[0];          V413= vs_base[0];
1668          goto T653;          goto T660;
1669          goto T661;          goto T668;
1670  T661:;  T668:;
1671          V396= (V398);}          V413= (V415);}
1672          goto T653;          goto T660;
1673  T653:;  T660:;
1674          base[2]= (V387);          base[2]= (V404);
1675          {register object V401;          {register object V418;
1676          V401= ((V389))->v.v_self[1];          V418= ((V406))->v.v_self[1];
1677          if(!(type_of(V401)==t_fixnum)){          if(!(type_of(V418)==t_fixnum)){
1678          goto T672;}          goto T679;}
1679          V401= ((V391))->v.v_self[fix((V401))];          V418= ((V408))->v.v_self[fix((V418))];
1680          goto T670;          goto T677;
1681          goto T672;          goto T679;
1682  T672:;  T679:;
1683          V401= VV[3];          V418= VV[3];
1684          goto T670;          goto T677;
1685  T670:;  T677:;
1686          if(!(((V401))==(VV[3]))){          if(!(((V418))==(VV[3]))){
1687          goto T675;}          goto T682;}
1688          base[4]= (V386);          base[4]= (V403);
1689          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1690          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1691          vs_top=sup;          vs_top=sup;
1692          V400= vs_base[0];          V417= vs_base[0];
1693          goto T667;          goto T674;
1694          goto T675;          goto T682;
1695  T675:;  T682:;
1696          V400= (V401);}          V417= (V418);}
1697          goto T667;          goto T674;
1698  T667:;  T674:;
1699          base[3]= CMPcar(V400);          base[3]= CMPcar(V417);
1700          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1701          Ladjoin();          Ladjoin();
1702          vs_top=sup;          vs_top=sup;
1703          V397= vs_base[0];          V414= vs_base[0];
1704          ((V396))->c.c_car = (V397);}          ((V413))->c.c_car = (V414);}
1705          {object V403;          {object V420;
1706          {register object V405;          {register object V422;
1707          V405= ((V389))->v.v_self[1];          V422= ((V406))->v.v_self[1];
1708          if(!(type_of(V405)==t_fixnum)){          if(!(type_of(V422)==t_fixnum)){
1709          goto T684;}          goto T691;}
1710          V405= ((V391))->v.v_self[fix((V405))];          V422= ((V408))->v.v_self[fix((V422))];
1711          goto T682;          goto T689;
1712          goto T684;          goto T691;
1713  T684:;  T691:;
1714          V405= VV[3];          V422= VV[3];
1715          goto T682;          goto T689;
1716  T682:;  T689:;
1717          if(!(((V405))==(VV[3]))){          if(!(((V422))==(VV[3]))){
1718          goto T687;}          goto T694;}
1719          base[1]= (V386);          base[1]= (V403);
1720          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1721          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1722          vs_top=sup;          vs_top=sup;
1723          V403= vs_base[0];          V420= vs_base[0];
1724          goto T679;          goto T686;
1725          goto T687;          goto T694;
1726  T687:;  T694:;
1727          V403= (V405);}          V420= (V422);}
1728          goto T679;          goto T686;
1729  T679:;  T686:;
1730          ((V403))->c.c_cdr = Cnil;}          ((V420))->c.c_cdr = Cnil;}
1731          {object V407 = (V387);          {object V424 = (V404);
1732          VMR24(V407)}}}          VMR24(V424)}}}
1733          base[0]=base[0];          base[0]=base[0];
1734          return Cnil;          return Cnil;
1735  }  }
1736  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))      */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))      */
1737    
1738  static object LI25(V412,V413,V414,V415)  static object LI25(V429,V430,V431,V432)
1739    
1740  object V412;object V413;register object V414;object V415;  object V429;object V430;register object V431;object V432;
1741  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1742          goto TTL;          goto TTL;
1743  TTL:;  TTL:;
1744          {register object V417;          {register object V434;
1745          object V418;          object V435;
1746          V417= CMPcar((V412));          V434= CMPcar((V429));
1747          V418= CMPcdr((V412));          V435= CMPcdr((V429));
1748          {object V419;          {object V436;
1749          if(type_of(V414)==t_structure){          if(type_of(V431)==t_structure){
1750          goto T701;}          goto T708;}
1751          goto T699;          goto T706;
1752          goto T701;          goto T708;
1753  T701:;  T708:;
1754          if(!(((V414)->str.str_def)==(VV[35]))){          if(!(((V431)->str.str_def)==(VV[35]))){
1755          goto T699;}          goto T706;}
1756          V419= STREF(object,(V414),4);          V436= STREF(object,(V431),4);
1757          goto T697;          goto T704;
1758          goto T699;          goto T706;
1759  T699:;{object V421;  T706:;{object V438;
1760          V421= (VV[2]->s.s_dbind);          V438= (VV[2]->s.s_dbind);
1761          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1762          base[1]= (V414);          base[1]= (V431);
1763          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1764          (void) (*Lnk177)();          (void) (*Lnk174)();
1765          vs_top=sup;          vs_top=sup;
1766          V422= vs_base[0];          V439= vs_base[0];
1767          if(!((V421)==(CMPcar(V422)))){          if(!((V438)==(CMPcar(V439)))){
1768          goto T704;}}          goto T711;}}
1769          V419= CMPcar(((V414))->cc.cc_turbo[12]);          V436= CMPcar(((V431))->cc.cc_turbo[12]);
1770          goto T697;          goto T704;
1771            goto T711;
1772    T711:;
1773            V436= Cnil;
1774          goto T704;          goto T704;
1775  T704:;  T704:;
1776          V419= Cnil;          {object V441;
1777          goto T697;          object V442;
1778  T697:;          {register object V443;
1779          {object V424;          V443= ((V434))->v.v_self[1];
1780          object V425;          if(!(type_of(V443)==t_fixnum)){
1781          {register object V426;          goto T726;}
1782          V426= ((V417))->v.v_self[1];          V443= ((V436))->v.v_self[fix((V443))];
1783          if(!(type_of(V426)==t_fixnum)){          goto T724;
1784          goto T719;}          goto T726;
1785          V426= ((V419))->v.v_self[fix((V426))];  T726:;
1786          goto T717;          V443= VV[3];
1787          goto T719;          goto T724;
1788  T719:;  T724:;
1789          V426= VV[3];          if(!(((V443))==(VV[3]))){
1790          goto T717;          goto T729;}
1791  T717:;          base[2]= (V431);
         if(!(((V426))==(VV[3]))){  
         goto T722;}  
         base[2]= (V414);  
1792          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1793          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1794          vs_top=sup;          vs_top=sup;
1795          V424= vs_base[0];          V441= vs_base[0];
1796          goto T714;          goto T721;
1797          goto T722;          goto T729;
1798  T722:;  T729:;
1799          V424= (V426);}          V441= (V443);}
1800          goto T714;          goto T721;
1801  T714:;  T721:;
1802          base[2]= (V415);          base[2]= (V432);
1803          {register object V429;          {register object V446;
1804          V429= ((V417))->v.v_self[1];          V446= ((V434))->v.v_self[1];
1805          if(!(type_of(V429)==t_fixnum)){          if(!(type_of(V446)==t_fixnum)){
1806          goto T733;}          goto T740;}
1807          V429= ((V419))->v.v_self[fix((V429))];          V446= ((V436))->v.v_self[fix((V446))];
1808          goto T731;          goto T738;
1809          goto T733;          goto T740;
1810  T733:;  T740:;
1811          V429= VV[3];          V446= VV[3];
1812          goto T731;          goto T738;
1813  T731:;  T738:;
1814          if(!(((V429))==(VV[3]))){          if(!(((V446))==(VV[3]))){
1815          goto T736;}          goto T743;}
1816          base[4]= (V414);          base[4]= (V431);
1817          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1818          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1819          vs_top=sup;          vs_top=sup;
1820          V428= vs_base[0];          V445= vs_base[0];
1821          goto T728;          goto T735;
1822          goto T736;          goto T743;
1823  T736:;  T743:;
1824          V428= (V429);}          V445= (V446);}
1825          goto T728;          goto T735;
1826  T728:;  T735:;
1827          base[3]= CMPcar(V428);          base[3]= CMPcar(V445);
1828          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1829          (void) (*Lnk95)();          (void) (*Lnk95)();
1830          vs_top=sup;          vs_top=sup;
1831          V425= vs_base[0];          V442= vs_base[0];
1832          ((V424))->c.c_car = (V425);}          ((V441))->c.c_car = (V442);}
1833          {object V431;          {object V448;
1834          {register object V433;          {register object V450;
1835          V433= ((V417))->v.v_self[1];          V450= ((V434))->v.v_self[1];
1836          if(!(type_of(V433)==t_fixnum)){          if(!(type_of(V450)==t_fixnum)){
1837          goto T745;}          goto T752;}
1838          V433= ((V419))->v.v_self[fix((V433))];          V450= ((V436))->v.v_self[fix((V450))];
1839          goto T743;          goto T750;
1840          goto T745;          goto T752;
1841  T745:;  T752:;
1842          V433= VV[3];          V450= VV[3];
1843          goto T743;          goto T750;
1844  T743:;  T750:;
1845          if(!(((V433))==(VV[3]))){          if(!(((V450))==(VV[3]))){
1846          goto T748;}          goto T755;}
1847          base[1]= (V414);          base[1]= (V431);
1848          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1849          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1850          vs_top=sup;          vs_top=sup;
1851          V431= vs_base[0];          V448= vs_base[0];
1852          goto T740;          goto T747;
1853          goto T748;          goto T755;
1854  T748:;  T755:;
1855          V431= (V433);}          V448= (V450);}
1856          goto T740;          goto T747;
1857  T740:;  T747:;
1858          ((V431))->c.c_cdr = Cnil;}          ((V448))->c.c_cdr = Cnil;}
1859          {object V435 = (V415);          {object V452 = (V432);
1860          VMR25(V435)}}}          VMR25(V452)}}}
1861          base[0]=base[0];          base[0]=base[0];
1862          return Cnil;          return Cnil;
1863  }  }
1864  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))       */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))       */
1865    
1866  static object LI26(V439,V440,V441)  static object LI26(V456,V457,V458)
1867    
1868  object V439;object V440;register object V441;  object V456;object V457;register object V458;
1869  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1870          goto TTL;          goto TTL;
1871  TTL:;  TTL:;
1872          {object V443;          {object V460;
1873          object V444;          object V461;
1874          V443= CMPcar((V439));          V460= CMPcar((V456));
1875          V444= CMPcdr((V439));          V461= CMPcdr((V456));
1876          {object V445;          {object V462;
1877          if(type_of(V441)==t_structure){          if(type_of(V458)==t_structure){
1878          goto T762;}          goto T769;}
1879          goto T760;          goto T767;
1880          goto T762;          goto T769;
1881  T762:;  T769:;
1882          if(!(((V441)->str.str_def)==(VV[36]))){          if(!(((V458)->str.str_def)==(VV[36]))){
1883          goto T760;}          goto T767;}
1884          V445= STREF(object,(V441),4);          V462= STREF(object,(V458),4);
1885          goto T758;          goto T765;
1886          goto T760;          goto T767;
1887  T760:;{object V447;  T767:;{object V464;
1888          V447= (VV[2]->s.s_dbind);          V464= (VV[2]->s.s_dbind);
1889          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1890          base[1]= (V441);          base[1]= (V458);
1891          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1892          (void) (*Lnk177)();          (void) (*Lnk174)();
1893          vs_top=sup;          vs_top=sup;
1894          V448= vs_base[0];          V465= vs_base[0];
1895          if(!((V447)==(CMPcar(V448)))){          if(!((V464)==(CMPcar(V465)))){
1896          goto T765;}}          goto T772;}}
1897          V445= CMPcar(((V441))->cc.cc_turbo[12]);          V462= CMPcar(((V458))->cc.cc_turbo[12]);
1898          goto T758;          goto T765;
1899            goto T772;
1900    T772:;
1901            V462= Cnil;
1902          goto T765;          goto T765;
1903  T765:;  T765:;
1904          V445= Cnil;          {register object V468;
1905          goto T758;          V468= ((V460))->v.v_self[1];
1906  T758:;          if(!(type_of(V468)==t_fixnum)){
1907          {register object V451;          goto T784;}
1908          V451= ((V443))->v.v_self[1];          V468= ((V462))->v.v_self[fix((V468))];
1909          if(!(type_of(V451)==t_fixnum)){          goto T782;
1910          goto T777;}          goto T784;
1911          V451= ((V445))->v.v_self[fix((V451))];  T784:;
1912          goto T775;          V468= VV[3];
1913          goto T777;          goto T782;
1914  T777:;  T782:;
1915          V451= VV[3];          if(!(((V468))==(VV[3]))){
1916          goto T775;          goto T787;}
1917  T775:;          base[0]= (V458);
         if(!(((V451))==(VV[3]))){  
         goto T780;}  
         base[0]= (V441);  
1918          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1919          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
1920          vs_top=sup;          vs_top=sup;
1921          V450= vs_base[0];          V467= vs_base[0];
1922          goto T772;          goto T779;
1923          goto T780;          goto T787;
1924  T780:;  T787:;
1925          V450= (V451);}          V467= (V468);}
1926          goto T772;          goto T779;
1927  T772:;  T779:;
1928          {object V453 = CMPcar(V450);          {object V470 = CMPcar(V467);
1929          VMR26(V453)}}}          VMR26(V470)}}}
1930          base[0]=base[0];          base[0]=base[0];
1931          return Cnil;          return Cnil;
1932  }  }
1933  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))     */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))     */
1934    
1935  static object LI27(V457,V458,V459)  static object LI27(V474,V475,V476)
1936    
1937  object V457;object V458;register object V459;  object V474;object V475;register object V476;
1938  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1939          goto TTL;          goto TTL;
1940  TTL:;  TTL:;
1941          {object V461;          {object V478;
1942          object V462;          object V479;
1943          V461= CMPcar((V457));          V478= CMPcar((V474));
1944          V462= CMPcdr((V457));          V479= CMPcdr((V474));
1945          {object V463;          {object V480;
1946          if(type_of(V459)==t_structure){          if(type_of(V476)==t_structure){
1947          goto T793;}          goto T800;}
1948          goto T791;          goto T798;
1949          goto T793;          goto T800;
1950  T793:;  T800:;
1951          if(!(((V459)->str.str_def)==(VV[37]))){          if(!(((V476)->str.str_def)==(VV[37]))){
1952          goto T791;}          goto T798;}
1953          V463= STREF(object,(V459),4);          V480= STREF(object,(V476),4);
1954          goto T789;          goto T796;
1955          goto T791;          goto T798;
1956  T791:;{object V465;  T798:;{object V482;
1957          V465= (VV[2]->s.s_dbind);          V482= (VV[2]->s.s_dbind);
1958          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1959          base[1]= (V459);          base[1]= (V476);
1960          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1961          (void) (*Lnk177)();          (void) (*Lnk174)();
1962          vs_top=sup;          vs_top=sup;
1963          V466= vs_base[0];          V483= vs_base[0];
1964          if(!((V465)==(CMPcar(V466)))){          if(!((V482)==(CMPcar(V483)))){
1965          goto T796;}}          goto T803;}}
1966          V463= CMPcar(((V459))->cc.cc_turbo[12]);          V480= CMPcar(((V476))->cc.cc_turbo[12]);
1967          goto T789;          goto T796;
1968            goto T803;
1969    T803:;
1970            V480= Cnil;
1971          goto T796;          goto T796;
1972  T796:;  T796:;
1973          V463= Cnil;          {object V485;
1974          goto T789;          {object V487;
1975  T789:;          V487= ((V478))->v.v_self[1];
1976          {object V468;          if(!(type_of(V487)==t_fixnum)){
         {object V470;  
         V470= ((V461))->v.v_self[1];  
         if(!(type_of(V470)==t_fixnum)){  
         goto T809;}  
         V470= ((V463))->v.v_self[fix((V470))];  
         goto T807;  
         goto T809;  
 T809:;  
         V470= VV[3];  
         goto T807;  
 T807:;  
         if(!(((V470))==(VV[3]))){  
         goto T812;}  
         base[0]= (V459);  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk207)(Lclptr207);  
         vs_top=sup;  
         V469= vs_base[0];  
         goto T804;  
         goto T812;  
 T812:;  
         V469= (V470);}  
         goto T804;  
 T804:;  
         V468= CMPcdr(V469);  
         if(((V468))==Cnil){  
1977          goto T816;}          goto T816;}
1978          {object V472 = (V468);          V487= ((V480))->v.v_self[fix((V487))];
1979          VMR27(V472)}          goto T814;
1980          goto T816;          goto T816;
1981  T816:;  T816:;
1982          {object V473;          V487= VV[3];
1983          object V474;          goto T814;
1984          {object V475;  T814:;
1985          V475= ((V461))->v.v_self[1];          if(!(((V487))==(VV[3]))){
1986          if(!(type_of(V475)==t_fixnum)){          goto T819;}
1987            base[0]= (V476);
1988            vs_top=(vs_base=base+0)+1;
1989            (void) (*Lnk202)(Lclptr202);
1990            vs_top=sup;
1991            V486= vs_base[0];
1992            goto T811;
1993            goto T819;
1994    T819:;
1995            V486= (V487);}
1996            goto T811;
1997    T811:;
1998            V485= CMPcdr(V486);
1999            if(((V485))==Cnil){
2000          goto T823;}          goto T823;}
2001          V475= ((V463))->v.v_self[fix((V475))];          {object V489 = (V485);
2002          goto T821;          VMR27(V489)}
2003          goto T823;          goto T823;
2004  T823:;  T823:;
2005          V475= VV[3];          {object V490;
2006          goto T821;          object V491;
2007  T821:;          {object V492;
2008          if(!(((V475))==(VV[3]))){          V492= ((V478))->v.v_self[1];
2009          goto T826;}          if(!(type_of(V492)==t_fixnum)){
2010          base[2]= (V459);          goto T830;}
2011            V492= ((V480))->v.v_self[fix((V492))];
2012            goto T828;
2013            goto T830;
2014    T830:;
2015            V492= VV[3];
2016            goto T828;
2017    T828:;
2018            if(!(((V492))==(VV[3]))){
2019            goto T833;}
2020            base[2]= (V476);
2021          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2022          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
2023          vs_top=sup;          vs_top=sup;
2024          V473= vs_base[0];          V490= vs_base[0];
2025          goto T818;          goto T825;
2026          goto T826;          goto T833;
2027  T826:;  T833:;
2028          V473= (V475);}          V490= (V492);}
2029          goto T818;          goto T825;
2030  T818:;  T825:;
2031          {register object V477;          {register object V494;
2032          register object V478;          register object V495;
2033          V477= Cnil;          V494= Cnil;
2034          V478= Cnil;          V495= Cnil;
2035          {register object V479;          {register object V496;
2036          register object V480;          register object V497;
2037          {object V482;          {object V499;
2038          V482= ((V461))->v.v_self[1];          V499= ((V478))->v.v_self[1];
2039          if(!(type_of(V482)==t_fixnum)){          if(!(type_of(V499)==t_fixnum)){
2040          goto T839;}          goto T846;}
2041          V482= ((V463))->v.v_self[fix((V482))];          V499= ((V480))->v.v_self[fix((V499))];
2042          goto T837;          goto T844;
2043          goto T839;          goto T846;
2044  T839:;  T846:;
2045          V482= VV[3];          V499= VV[3];
2046          goto T837;          goto T844;
2047  T837:;  T844:;
2048          if(!(((V482))==(VV[3]))){          if(!(((V499))==(VV[3]))){
2049          goto T842;}          goto T849;}
2050          base[4]= (V459);          base[4]= (V476);
2051          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2052          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk202)(Lclptr202);
2053          vs_top=sup;          vs_top=sup;
2054          V481= vs_base[0];          V498= vs_base[0];
2055          goto T834;          goto T841;
2056          goto T842;          goto T849;
2057  T842:;  T849:;
2058          V481= (V482);}          V498= (V499);}
2059          goto T834;          goto T841;
2060  T834:;  T841:;
2061          V479= CMPcar(V481);          V496= CMPcar(V498);
2062          V480= CMPcar((V479));          V497= CMPcar((V496));
2063          goto T847;          goto T854;
2064  T847:;  T854:;
2065          if(!(((V479))==Cnil)){          if(!(((V496))==Cnil)){
2066          goto T848;}          goto T855;}
2067          goto T832;          goto T839;
2068          goto T848;          goto T855;
2069  T848:;  T855:;
2070          {register object V484;          {register object V501;
2071          base[4]= (V480);          base[4]= (V497);
2072          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2073          (void) (*Lnk208)(Lclptr208);          (void) (*Lnk203)(Lclptr203);
2074          vs_top=sup;          vs_top=sup;
2075          V484= vs_base[0];          V501= vs_base[0];
2076          if(((V477))!=Cnil){          if(((V494))!=Cnil){
2077          goto T856;}          goto T863;}
2078          V478= make_cons((V484),Cnil);          V495= make_cons((V501),Cnil);
2079          V477= (V478);          V494= (V495);
2080          goto T852;          goto T859;
2081          goto T856;          goto T863;
2082  T856:;  T863:;
2083          {register object x= (V484),V485= (V477);          {register object x= (V501),V502= (V494);
2084          while(V485!=Cnil)          while(V502!=Cnil)
2085          if(x==(V485->c.c_car)){          if(x==(V502->c.c_car)){
2086          goto T852;          goto T859;
2087          }else V485=V485->c.c_cdr;}          }else V502=V502->c.c_cdr;}
2088          V487= make_cons((V484),Cnil);          V504= make_cons((V501),Cnil);
2089          ((V478))->c.c_cdr = /* INLINE-ARGS */V487;          ((V495))->c.c_cdr = /* INLINE-ARGS */V504;
2090          V486= (V478);          V503= (V495);
2091          V478= CMPcdr(V486);}          V495= CMPcdr(V503);}
2092          goto T852;          goto T859;
2093  T852:;  T859:;
2094          V479= CMPcdr((V479));          V496= CMPcdr((V496));
2095          V480= CMPcar((V479));          V497= CMPcar((V496));
2096          goto T847;}          goto T854;}
2097          goto T832;          goto T839;
2098  T832:;  T839:;
2099          V474= (V477);}          V491= (V494);}
2100          ((V473))->c.c_cdr = (V474);          ((V490))->c.c_cdr = (V491);
2101          {object V488 = (V474);          {object V505 = (V491);
2102          VMR27(V488)}}}}}          VMR27(V505)}}}}}
2103          base[0]=base[0];          base[0]=base[0];
2104          return Cnil;          return Cnil;
2105  }  }
2106  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))       */  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))       */
2107    
2108  static object LI28(V492,V493,V494)  static object LI28(V509,V510,V511)
2109    
2110  object V492;object V493;object V494;  object V509;object V510;object V511;
2111  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
2112          goto TTL;          goto TTL;
2113  TTL:;  TTL:;
2114          {object V496 = (VV[38]->s.s_dbind);          {object V513 = (VV[38]->s.s_dbind);
2115          VMR28(V496)}          VMR28(V513)}
2116          return Cnil;          return Cnil;
2117  }  }
2118  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))  */  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))  */
2119    
2120  static object LI29(V500,V501,V502)  static object LI29(V517,V518,V519)
2121    
2122  object V500;object V501;object V502;  object V517;object V518;object V519;
2123  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
2124          goto TTL;          goto TTL;
2125  TTL:;  TTL:;
2126          {object V504 = (VV[39]->s.s_dbind);          {object V521 = (VV[39]->s.s_dbind);
2127          VMR29(V504)}          VMR29(V521)}
2128          return Cnil;          return Cnil;
2129  }  }
2130  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))       */  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))       */
2131    
2132  static object LI30(V509,V510,V511,V512)  static object LI30(V526,V527,V528,V529)
2133    
2134  object V509;object V510;object V511;object V512;  object V526;object V527;object V528;object V529;
2135  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
2136          goto TTL;          goto TTL;
2137  TTL:;  TTL:;
2138          {object V514;          {object V531;
2139          object V515;          object V532;
2140          register object V516;          register object V533;
2141          base[3]= (V511);          base[3]= (V528);
2142          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2143          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk204)(Lclptr204);
2144          vs_top=sup;          vs_top=sup;
2145          V514= vs_base[0];          V531= vs_base[0];
2146          base[3]= (V511);          base[3]= (V528);
2147          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2148          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk205)(Lclptr205);
2149          vs_top=sup;          vs_top=sup;
2150          V515= vs_base[0];          V532= vs_base[0];
2151          base[3]= (V514);          base[3]= (V531);
2152          base[4]= (V515);          base[4]= (V532);
2153          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2154          Lgethash();          Lgethash();
2155          vs_top=sup;          vs_top=sup;
2156          V516= vs_base[0];          V533= vs_base[0];
2157          if(((V516))!=Cnil){          if(((V533))!=Cnil){
2158          goto T887;}          goto T894;}
2159          {object V519;          {object V536;
2160          V519= make_cons(Cnil,Cnil);          V536= make_cons(Cnil,Cnil);
2161          base[4]= V514;          base[4]= V531;
2162          base[5]= V515;          base[5]= V532;
2163          base[6]= (V519);          base[6]= (V536);
2164          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2165          siLhash_set();          siLhash_set();
2166          vs_top=sup;          vs_top=sup;
2167          V516= vs_base[0];}          V533= vs_base[0];}
2168          goto T887;          goto T894;
2169  T887:;  T894:;
2170          {object V521;          {object V538;
2171          base[4]= (V512);          base[4]= (V529);
2172          base[5]= CMPcar((V516));          base[5]= CMPcar((V533));
2173          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2174          Ladjoin();          Ladjoin();
2175          vs_top=sup;          vs_top=sup;
2176          V521= vs_base[0];          V538= vs_base[0];
2177          (V516)->c.c_car = (V521);}          (V533)->c.c_car = (V538);}
2178          (V516)->c.c_cdr = Cnil;          (V533)->c.c_cdr = Cnil;
2179          {object V524 = (V512);          {object V541 = (V529);
2180          VMR30(V524)}}          VMR30(V541)}}
2181          base[0]=base[0];          base[0]=base[0];
2182          return Cnil;          return Cnil;
2183  }  }
2184  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))    */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))    */
2185    
2186  static object LI31(V529,V530,V531,V532)  static object LI31(V546,V547,V548,V549)
2187    
2188  object V529;object V530;object V531;object V532;  object V546;object V547;object V548;object V549;
2189  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
2190          goto TTL;          goto TTL;
2191  TTL:;  TTL:;
2192          {object V534;          {object V551;
2193          register object V535;          register object V552;
2194          base[2]= (V531);          base[2]= (V548);
2195          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2196          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk204)(Lclptr204);
2197          vs_top=sup;          vs_top=sup;
2198          V534= vs_base[0];          V551= vs_base[0];
2199          base[2]= (V534);          base[2]= (V551);
2200          base[4]= (V531);          base[4]= (V548);
2201          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2202          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk205)(Lclptr205);
2203          vs_top=sup;          vs_top=sup;
2204          base[3]= vs_base[0];          base[3]= vs_base[0];
2205          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2206          Lgethash();          Lgethash();
2207          vs_top=sup;          vs_top=sup;
2208          V535= vs_base[0];          V552= vs_base[0];
2209          if(((V535))==Cnil){          if(((V552))==Cnil){
2210          goto T912;}          goto T919;}
2211          {object V537;          {object V554;
2212          base[3]= (V532);          base[3]= (V549);
2213          base[4]= CMPcar((V535));          base[4]= CMPcar((V552));
2214          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2215          (void) (*Lnk95)();          (void) (*Lnk95)();
2216          vs_top=sup;          vs_top=sup;
2217          V537= vs_base[0];          V554= vs_base[0];
2218          (V535)->c.c_car = (V537);}          (V552)->c.c_car = (V554);}
2219          (V535)->c.c_cdr = Cnil;          (V552)->c.c_cdr = Cnil;
2220          goto T912;          goto T919;
2221  T912:;  T919:;
2222          {object V540 = (V532);          {object V557 = (V549);
2223          VMR31(V540)}}          VMR31(V557)}}
2224          base[0]=base[0];          base[0]=base[0];
2225          return Cnil;          return Cnil;
2226  }  }
2227  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))     */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))     */
2228    
2229  static object LI32(V544,V545,V546)  static object LI32(V561,V562,V563)
2230    
2231  object V544;object V545;object V546;  object V561;object V562;object V563;
2232  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
2233          goto TTL;          goto TTL;
2234  TTL:;  TTL:;
2235          base[1]= (V546);          base[1]= (V563);
2236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2237          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk204)(Lclptr204);
2238          vs_top=sup;          vs_top=sup;
2239          base[0]= vs_base[0];          base[0]= vs_base[0];
2240          base[2]= (V546);          base[2]= (V563);
2241          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2242          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk205)(Lclptr205);
2243          vs_top=sup;          vs_top=sup;
2244          base[1]= vs_base[0];          base[1]= vs_base[0];
2245          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2246          Lgethash();          Lgethash();
2247          vs_top=sup;          vs_top=sup;
2248          V548= vs_base[0];          V565= vs_base[0];
2249          {object V549 = CMPcar(V548);          {object V566 = CMPcar(V565);
2250          VMR32(V549)}          VMR32(V566)}
2251          base[0]=base[0];          base[0]=base[0];
2252          return Cnil;          return Cnil;
2253  }  }
2254  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))   */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))   */
2255    
2256  static object LI33(V553,V554,V555)  static object LI33(V570,V571,V572)
2257    
2258  object V553;object V554;object V555;  object V570;object V571;object V572;
2259  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2260          goto TTL;          goto TTL;
2261  TTL:;  TTL:;
2262          {object V557;          {object V574;
2263          register object V558;          register object V575;
2264          base[2]= (V555);          base[2]= (V572);
2265          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2266          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk204)(Lclptr204);
2267          vs_top=sup;          vs_top=sup;
2268          V557= vs_base[0];          V574= vs_base[0];
2269          base[2]= (V557);          base[2]= (V574);
2270          base[4]= (V555);          base[4]= (V572);
2271          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2272          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk205)(Lclptr205);
2273          vs_top=sup;          vs_top=sup;
2274          base[3]= vs_base[0];          base[3]= vs_base[0];
2275          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2276          Lgethash();          Lgethash();
2277          vs_top=sup;          vs_top=sup;
2278          V558= vs_base[0];          V575= vs_base[0];
2279          if(((V558))==Cnil){          if(((V575))==Cnil){
2280          goto T939;}{object V559;          goto T946;}{object V576;
2281          V559= CMPcdr((V558));          V576= CMPcdr((V575));
2282          if(V559==Cnil)goto T941;          if(V576==Cnil)goto T948;
2283          {object V560 = V559;          {object V577 = V576;
2284          VMR33(V560)}          VMR33(V577)}
2285          goto T941;          goto T948;
2286  T941:;}  T948:;}
2287          {object V562;          {object V579;
2288          {register object V563;          {register object V580;
2289          register object V564;          register object V581;
2290          V563= Cnil;          V580= Cnil;
2291          V564= Cnil;          V581= Cnil;
2292          {register object V565;          {register object V582;
2293          register object V566;          register object V583;
2294          V565= CMPcar((V558));          V582= CMPcar((V575));
2295          V566= CMPcar((V565));          V583= CMPcar((V582));
2296          goto T950;          goto T957;
2297  T950:;  T957:;
2298          if(!(((V565))==Cnil)){          if(!(((V582))==Cnil)){
2299          goto T951;}          goto T958;}
2300          goto T946;          goto T953;
2301          goto T951;          goto T958;
2302  T951:;  T958:;
2303          {register object V567;          {register object V584;
2304          base[5]= (V566);          base[5]= (V583);
2305          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2306          (void) (*Lnk208)(Lclptr208);          (void) (*Lnk203)(Lclptr203);
2307          vs_top=sup;          vs_top=sup;
2308          V567= vs_base[0];          V584= vs_base[0];
2309          if(((V563))!=Cnil){          if(((V580))!=Cnil){
2310          goto T959;}          goto T966;}
2311          V564= make_cons((V567),Cnil);          V581= make_cons((V584),Cnil);
2312          V563= (V564);          V580= (V581);
2313          goto T955;          goto T962;
2314          goto T959;          goto T966;
2315  T959:;  T966:;
2316          {register object x= (V567),V568= (V563);          {register object x= (V584),V585= (V580);
2317          while(V568!=Cnil)          while(V585!=Cnil)
2318          if(x==(V568->c.c_car)){          if(x==(V585->c.c_car)){
2319          goto T955;          goto T962;
2320          }else V568=V568->c.c_cdr;}          }else V585=V585->c.c_cdr;}
2321          V570= make_cons((V567),Cnil);          V587= make_cons((V584),Cnil);
2322          ((V564))->c.c_cdr = /* INLINE-ARGS */V570;          ((V581))->c.c_cdr = /* INLINE-ARGS */V587;
2323          V569= (V564);          V586= (V581);
2324          V564= CMPcdr(V569);}          V581= CMPcdr(V586);}
2325          goto T955;          goto T962;
2326  T955:;  T962:;
2327          V565= CMPcdr((V565));          V582= CMPcdr((V582));
2328          V566= CMPcar((V565));          V583= CMPcar((V582));
2329          goto T950;}          goto T957;}
2330            goto T953;
2331    T953:;
2332            V579= (V580);}
2333            (V575)->c.c_cdr = (V579);
2334            {object V588 = (V579);
2335            VMR33(V588)}}
2336          goto T946;          goto T946;
2337  T946:;  T946:;
2338          V562= (V563);}          {object V589 = Cnil;
2339          (V558)->c.c_cdr = (V562);          VMR33(V589)}}
         {object V571 = (V562);  
         VMR33(V571)}}  
         goto T939;  
 T939:;  
         {object V572 = Cnil;  
         VMR33(V572)}}  
2340          base[0]=base[0];          base[0]=base[0];
2341          return Cnil;          return Cnil;
2342  }  }
2343  /*      local entry for function MAP-SPECIALIZERS       */  /*      local entry for function MAP-SPECIALIZERS       */
2344    
2345  static object LI35(V574)  static object LI35(V591)
2346    
2347  object V574;  object V591;
2348  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2349          goto TTL;          goto TTL;
2350  TTL:;  TTL:;
2351          base[0]=MMcons((V574),Cnil);          base[0]=MMcons((V591),Cnil);
2352          base[1]=          base[1]=
2353          make_cclosure_new(LC126,Cnil,base[0],Cdata);          make_cclosure_new(LC126,Cnil,base[0],Cdata);
2354          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2355          (void) (*Lnk211)();          (void) (*Lnk206)();
2356          vs_top=sup;          vs_top=sup;
2357          base[1]=          base[1]=
2358          make_cclosure_new(LC127,Cnil,base[0],Cdata);          make_cclosure_new(LC127,Cnil,base[0],Cdata);
# Line 2326  TTL:; Line 2366  TTL:;
2366          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2367          Lmaphash();          Lmaphash();
2368          vs_top=sup;          vs_top=sup;
2369          {object V575 = Cnil;          {object V592 = Cnil;
2370          VMR34(V575)}          VMR34(V592)}
2371          base[0]=base[0];          base[0]=base[0];
2372          return Cnil;          return Cnil;
2373  }  }
2374  /*      local entry for function MAP-ALL-GENERIC-FUNCTIONS      */  /*      local entry for function MAP-ALL-GENERIC-FUNCTIONS      */
2375    
2376  static object LI37(V577)  static object LI37(V594)
2377    
2378  object V577;  object V594;
2379  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2380          goto TTL;          goto TTL;
2381  TTL:;  TTL:;
2382          base[0]=MMcons((V577),Cnil);          base[0]=MMcons((V594),Cnil);
2383          base[2]= VV[8];          base[2]= VV[8];
2384          base[3]= VV[9];          base[3]= VV[9];
2385          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2347  TTL:; Line 2387  TTL:;
2387          vs_top=sup;          vs_top=sup;
2388          base[1]= vs_base[0];          base[1]= vs_base[0];
2389          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
2390          V578=          V595=
2391          make_cclosure_new(LC129,Cnil,base[1],Cdata);          make_cclosure_new(LC129,Cnil,base[1],Cdata);
2392          (void)((*(LnkLI212))(V578));          (void)((*(LnkLI207))(V595));
2393          {object V579 = Cnil;          {object V596 = Cnil;
2394          VMR35(V579)}          VMR35(V596)}
2395          base[0]=base[0];          base[0]=base[0];
2396          return Cnil;          return Cnil;
2397  }  }
# Line 2361  static void L38() Line 2401  static void L38()
2401  {register object *base=vs_base;  {register object *base=vs_base;
2402          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2403          vs_check;          vs_check;
2404          {object V580;          {object V597;
2405          object V581;          object V598;
2406          register object V582;          register object V599;
2407          object V583;          object V600;
2408          object V584;          object V601;
2409          check_arg(5);          check_arg(5);
2410          V580=(base[0]);          V597=(base[0]);
2411          V581=(base[1]);          V598=(base[1]);
2412          V582=(base[2]);          V599=(base[2]);
2413          V583=(base[3]);          V600=(base[3]);
2414          V584=(base[4]);          V601=(base[4]);
2415          vs_top=sup;          vs_top=sup;
2416          goto TTL;          goto TTL;
2417  TTL:;  TTL:;
2418          {object V586;          {object V603;
2419          object V587;          object V604;
2420          V586= CMPcar((V580));          V603= CMPcar((V597));
2421          V587= CMPcdr((V580));          V604= CMPcdr((V597));
2422          {object V588;          {object V605;
2423          if(type_of(V582)==t_structure){          if(type_of(V599)==t_structure){
2424          goto T996;}          goto T1003;}
2425          goto T994;          goto T1001;
2426          goto T996;          goto T1003;
2427  T996:;  T1003:;
2428          if(!(((V582)->str.str_def)==(VV[41]))){          if(!(((V599)->str.str_def)==(VV[41]))){
2429          goto T994;}          goto T1001;}
2430          V588= STREF(object,(V582),4);          V605= STREF(object,(V599),4);
2431          goto T992;          goto T999;
2432          goto T994;          goto T1001;
2433  T994:;{object V590;  T1001:;{object V607;
2434          V590= (VV[2]->s.s_dbind);          V607= (VV[2]->s.s_dbind);
2435          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
2436          base[6]= (V582);          base[6]= (V599);
2437          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2438          (void) (*Lnk177)();          (void) (*Lnk174)();
2439          vs_top=sup;          vs_top=sup;
2440          V591= vs_base[0];          V608= vs_base[0];
2441          if(!((V590)==(CMPcar(V591)))){          if(!((V607)==(CMPcar(V608)))){
2442          goto T999;}}          goto T1006;}}
2443          V588= CMPcar(((V582))->cc.cc_turbo[12]);          V605= CMPcar(((V599))->cc.cc_turbo[12]);
2444          goto T992;          goto T999;
2445            goto T1006;
2446    T1006:;
2447            V605= Cnil;
2448          goto T999;          goto T999;
2449  T999:;  T999:;
2450          V588= Cnil;          {object V609;
2451          goto T992;          base[5]= (V599);
 T992:;  
         {object V592;  
         base[5]= (V582);  
2452          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2453          (void) (*Lnk213)(Lclptr213);          (void) (*Lnk208)(Lclptr208);
2454          vs_top=sup;          vs_top=sup;
2455          V593= vs_base[0];          V610= vs_base[0];
2456          V592= list(2,VV[42],V593);          V609= list(2,VV[42],V610);
2457          {object V594;          {object V611;
2458          V594= ((V586))->v.v_self[1];          V611= ((V603))->v.v_self[1];
2459          if(!(type_of(V594)==t_fixnum)){          if(!(type_of(V611)==t_fixnum)){
2460          goto T1010;}          goto T1017;}
2461          base[5]= ((V588))->v.v_self[fix((V594))]= ((V592));          base[5]= ((V605))->v.v_self[fix((V611))]= ((V609));
2462          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2463          return;          return;
2464          goto T1010;          goto T1017;
2465  T1010:;  T1017:;
2466          base[5]= (V592);          base[5]= (V609);
2467          base[6]= (V582);          base[6]= (V599);
2468          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2469          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk209)(Lclptr209);
2470          return;}}}}          return;}}}}
2471          }          }
2472  }  }
# Line 2436  static void L39() Line 2476  static void L39()
2476  {register object *base=vs_base;  {register object *base=vs_base;
2477          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2478          vs_check;          vs_check;
2479          {object V596;          {object V613;
2480          object V597;          object V614;
2481          register object V598;          register object V615;
2482          object V599;          object V616;
2483          object V600;          object V617;
2484          check_arg(5);          check_arg(5);
2485          V596=(base[0]);          V613=(base[0]);
2486          V597=(base[1]);          V614=(base[1]);
2487          V598=(base[2]);          V615=(base[2]);
2488          V599=(base[3]);          V616=(base[3]);
2489          V600=(base[4]);          V617=(base[4]);
2490          vs_top=sup;          vs_top=sup;
2491          goto TTL;          goto TTL;
2492  TTL:;  TTL:;
2493          {object V602;          {object V619;
2494          object V603;          object V620;
2495          V602= CMPcar((V596));          V619= CMPcar((V613));
2496          V603= CMPcdr((V596));          V620= CMPcdr((V613));
2497          {object V604;          {object V621;
2498          if(type_of(V598)==t_structure){          if(type_of(V615)==t_structure){
2499          goto T1024;}          goto T1031;}
2500          goto T1022;          goto T1029;
2501          goto T1024;          goto T1031;
2502  T1024:;  T1031:;
2503          if(!(((V598)->str.str_def)==(VV[43]))){          if(!(((V615)->str.str_def)==(VV[43]))){
2504          goto T1022;}          goto T1029;}
2505          V604= STREF(object,(V598),4);          V621= STREF(object,(V615),4);
2506          goto T1020;          goto T1027;
2507          goto T1022;          goto T1029;
2508  T1022:;{object V606;  T1029:;{object V623;
2509          V606= (VV[2]->s.s_dbind);          V623= (VV[2]->s.s_dbind);
2510          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
2511          base[6]= (V598);          base[6]= (V615);
2512          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2513          (void) (*Lnk177)();          (void) (*Lnk174)();
2514          vs_top=sup;          vs_top=sup;
2515          V607= vs_base[0];          V624= vs_base[0];
2516          if(!((V606)==(CMPcar(V607)))){          if(!((V623)==(CMPcar(V624)))){
2517          goto T1027;}}          goto T1034;}}
2518          V604= CMPcar(((V598))->cc.cc_turbo[12]);          V621= CMPcar(((V615))->cc.cc_turbo[12]);
2519          goto T1020;          goto T1027;
2520            goto T1034;
2521    T1034:;
2522            V621= Cnil;
2523          goto T1027;          goto T1027;
2524  T1027:;  T1027:;
2525          V604= Cnil;          {object V625;
2526          goto T1020;          base[5]= (V615);
 T1020:;  
         {object V608;  
         base[5]= (V598);  
2527          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2528          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk204)(Lclptr204);
2529          vs_top=sup;          vs_top=sup;
2530          V609= vs_base[0];          V626= vs_base[0];
2531          V608= list(2,VV[44],V609);          V625= list(2,VV[44],V626);
2532          {object V610;          {object V627;
2533          V610= ((V602))->v.v_self[1];          V627= ((V619))->v.v_self[1];
2534          if(!(type_of(V610)==t_fixnum)){          if(!(type_of(V627)==t_fixnum)){
2535          goto T1038;}          goto T1045;}
2536          base[5]= ((V604))->v.v_self[fix((V610))]= ((V608));          base[5]= ((V621))->v.v_self[fix((V627))]= ((V625));
2537          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2538          return;          return;
2539          goto T1038;          goto T1045;
2540  T1038:;  T1045:;
2541          base[5]= (V608);          base[5]= (V625);
2542          base[6]= (V598);          base[6]= (V615);
2543          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2544          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk209)(Lclptr209);
2545          return;}}}}          return;}}}}
2546          }          }
2547  }  }
2548  /*      local entry for function REAL-LOAD-DEFCLASS     */  /*      local entry for function REAL-LOAD-DEFCLASS     */
2549    
2550  static object LI40(V618,V619,V620,V621,V622,V623)  static object LI40(V635,V636,V637,V638,V639,V640)
2551    
2552  object V618;object V619;object V620;object V621;object V622;object V623;  object V635;object V636;object V637;object V638;object V639;object V640;
2553  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2554          goto TTL;          goto TTL;
2555  TTL:;  TTL:;
2556          (void)((*(LnkLI215))((V623)));          (void)((*(LnkLI210))((V640)));
2557          {object V624;          {object V641;
2558          base[0]= (V618);          base[0]= (V635);
2559          base[1]= VV[45];          base[1]= VV[45];
2560          base[2]= (V619);          base[2]= (V636);
2561          base[3]= VV[46];          base[3]= VV[46];
2562          base[4]= (V620);          base[4]= (V637);
2563          base[5]= VV[47];          base[5]= VV[47];
2564          base[6]= (V621);          base[6]= (V638);
2565          base[7]= VV[48];          base[7]= VV[48];
2566          V626= list(2,VV[49],(V618));          V643= list(2,VV[49],(V635));
2567          vs_base=vs_top;          vs_base=vs_top;
2568          (void) (*Lnk216)();          (void) (*Lnk211)();
2569          vs_top=sup;          vs_top=sup;
2570          V627= vs_base[0];          V644= vs_base[0];
2571          base[8]= list(2,/* INLINE-ARGS */V626,V627);          base[8]= list(2,/* INLINE-ARGS */V643,V644);
2572          {object V625;          {object V642;
2573          V625= (V622);          V642= (V639);
2574           vs_top=base+9;           vs_top=base+9;
2575           while(V625!=Cnil)           while(V642!=Cnil)
2576           {vs_push((V625)->c.c_car);V625=(V625)->c.c_cdr;}           {vs_push((V642)->c.c_car);V642=(V642)->c.c_cdr;}
2577          vs_base=base+0;}          vs_base=base+0;}
2578          (void) (*Lnk217)();          (void) (*Lnk212)();
2579          vs_top=sup;          vs_top=sup;
2580          V624= vs_base[0];          V641= vs_base[0];
2581          {object V628 = (V624);          {object V645 = (V641);
2582          VMR38(V628)}}          VMR38(V645)}}
2583          base[0]=base[0];          base[0]=base[0];
2584          return Cnil;          return Cnil;
2585  }  }
# Line 2549  static void L41() Line 2589  static void L41()
2589  {register object *base=vs_base;  {register object *base=vs_base;
2590          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2591          vs_check;          vs_check;
2592          {object V629;          {object V646;
2593          object V630;          object V647;
2594          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2595          V629=(base[0]);          V646=(base[0]);
2596          vs_base=vs_base+1;          vs_base=vs_base+1;
2597          vs_top[0]=Cnil;          vs_top[0]=Cnil;
2598          {object *p=vs_top;          {object *p=vs_top;
2599           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2600          V630=(base[1]);          V647=(base[1]);
2601          vs_top=sup;          vs_top=sup;
2602          base[2]=VV[218]->s.s_gfdef;          base[2]=VV[213]->s.s_gfdef;
2603          base[3]= (V629);          base[3]= (V646);
2604          base[4]= (VFUN_NARGS=2,(*(LnkLI219))((V629),Cnil));          base[4]= (VFUN_NARGS=2,(*(LnkLI214))((V646),Cnil));
2605          {object V631;          {object V648;
2606          V631= (V630);          V648= (V647);
2607           vs_top=base+5;           vs_top=base+5;
2608           while(V631!=Cnil)           while(V648!=Cnil)
2609           {vs_push((V631)->c.c_car);V631=(V631)->c.c_cdr;}           {vs_push((V648)->c.c_car);V648=(V648)->c.c_cdr;}
2610          vs_base=base+3;}          vs_base=base+3;}
2611          (void) (*Lnk218)(Lclptr218);          (void) (*Lnk213)(Lclptr213);
2612          return;          return;
2613          }          }
2614  }  }
2615  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))        */  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))        */
2616    
2617  static object LI42(V637,V638,V639,V640,V641)  static object LI42(V654,V655,V656,V657,V658)
2618    
2619  object V637;object V638;register object V639;register object V640;object V641;  object V654;object V655;register object V656;register object V657;object V658;
2620  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2621          goto TTL;          goto TTL;
2622  TTL:;  TTL:;
2623          {object V644;          {object V661;
2624          object V645;          object V662;
2625          base[0]= (V640);          base[0]= (V657);
2626          base[1]= V641;          base[1]= V658;
2627          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2628          (void) (*Lnk220)();          (void) (*Lnk215)();
2629          if(vs_base>=vs_top){vs_top=sup;goto T1064;}          if(vs_base>=vs_top){vs_top=sup;goto T1071;}
2630          V644= vs_base[0];          V661= vs_base[0];
2631          vs_base++;          vs_base++;
2632          if(vs_base>=vs_top){vs_top=sup;goto T1065;}          if(vs_base>=vs_top){vs_top=sup;goto T1072;}
2633          V645= vs_base[0];          V662= vs_base[0];
2634          vs_top=sup;          vs_top=sup;
2635          goto T1066;          goto T1073;
2636          goto T1064;          goto T1071;
2637  T1064:;  T1071:;
2638          V644= Cnil;          V661= Cnil;
2639          goto T1065;          goto T1072;
2640  T1065:;  T1072:;
2641          V645= Cnil;          V662= Cnil;
2642          goto T1066;          goto T1073;
2643  T1066:;  T1073:;
2644          base[1]= (V644);          base[1]= (V661);
2645          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2646          (void) (*Lnk221)(Lclptr221);          (void) (*Lnk216)(Lclptr216);
2647          vs_top=sup;          vs_top=sup;
2648          base[0]= vs_base[0];          base[0]= vs_base[0];
2649          base[1]= (V639);          base[1]= (V656);
2650          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2651          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk217)(Lclptr217);
2652          vs_top=sup;          vs_top=sup;
2653          base[0]=VV[223]->s.s_gfdef;          base[0]=VV[218]->s.s_gfdef;
2654          base[1]= (V644);          base[1]= (V661);
2655          base[2]= VV[50];          base[2]= VV[50];
2656          base[3]= (V639);          base[3]= (V656);
2657          {object V646;          {object V663;
2658          V646= (V645);          V663= (V662);
2659           vs_top=base+4;           vs_top=base+4;
2660           while(V646!=Cnil)           while(V663!=Cnil)
2661           {vs_push((V646)->c.c_car);V646=(V646)->c.c_cdr;}           {vs_push((V663)->c.c_car);V663=(V663)->c.c_cdr;}
2662          vs_base=base+1;}          vs_base=base+1;}
2663          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk218)(Lclptr218);
2664          vs_top=sup;          vs_top=sup;
2665          V640= vs_base[0];          V657= vs_base[0];
2666          (void)((*(LnkLI224))(V640,V639));          V666= ({object _tmp=get(VV[214],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[214])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[214])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
2667          base[0]= (V640);          V667 = V657;
2668          base[1]= (V639);          V668 = V656;
2669            (void)((
2670            V669 = V666,
2671            (type_of(V669) == t_sfun ?(*((V669)->sfn.sfn_self)):
2672            (fcall.argd=2,type_of(V669)==t_vfun) ?
2673            (*((V669)->sfn.sfn_self)):
2674            (fcall.fun=(V669),fcalln))(V667,V668)));
2675            base[0]= (V657);
2676            base[1]= (V656);
2677          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2678          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk217)(Lclptr217);
2679          vs_top=sup;          vs_top=sup;
2680          {object V649 = (V640);          {object V670 = (V657);
2681          VMR40(V649)}}          VMR40(V670)}}
2682          base[0]=base[0];          base[0]=base[0];
2683          return Cnil;          return Cnil;
2684  }  }
2685  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))   */  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))   */
2686    
2687  static object LI43(V655,V656,V657,V658,V659)  static object LI43(V676,V677,V678,V679,V680)
2688    
2689  object V655;object V656;object V657;register object V658;object V659;  object V676;object V677;object V678;register object V679;object V680;
2690  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2691          goto TTL;          goto TTL;
2692  TTL:;  TTL:;
2693          {object V662;          {object V683;
2694          object V663;          object V684;
2695          base[0]= (V658);          base[0]= (V679);
2696          base[1]= V659;          base[1]= V680;
2697          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2698          (void) (*Lnk220)();          (void) (*Lnk215)();
2699          if(vs_base>=vs_top){vs_top=sup;goto T1087;}          if(vs_base>=vs_top){vs_top=sup;goto T1095;}
2700          V662= vs_base[0];          V683= vs_base[0];
2701          vs_base++;          vs_base++;
2702          if(vs_base>=vs_top){vs_top=sup;goto T1088;}          if(vs_base>=vs_top){vs_top=sup;goto T1096;}
2703          V663= vs_base[0];          V684= vs_base[0];
2704          vs_top=sup;          vs_top=sup;
2705          goto T1089;          goto T1097;
2706          goto T1087;          goto T1095;
2707  T1087:;  T1095:;
2708          V662= Cnil;          V683= Cnil;
2709          goto T1088;          goto T1096;
2710  T1088:;  T1096:;
2711          V663= Cnil;          V684= Cnil;
2712          goto T1089;          goto T1097;
2713  T1089:;  T1097:;
2714          V664= (*(LnkLI225))((V658));          V685= (*(LnkLI219))((V679));
2715          V665 = (V662);          V686 = (V683);
2716          if((/* INLINE-ARGS */V664)==(V665)){          if((/* INLINE-ARGS */V685)==(V686)){
2717          goto T1090;}          goto T1098;}
2718          base[0]= (V658);          base[0]= (V679);
2719          base[1]= (V662);          base[1]= (V683);
2720          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2721          (void) (*Lnk226)(Lclptr226);          (void) (*Lnk220)(Lclptr220);
2722          vs_top=sup;          vs_top=sup;
2723          goto T1090;          goto T1098;
2724  T1090:;  T1098:;
2725          base[0]=VV[227]->s.s_gfdef;          base[0]=VV[221]->s.s_gfdef;
2726          base[1]= (V658);          base[1]= (V679);
2727          {object V666;          {object V687;
2728          V666= (V663);          V687= (V684);
2729           vs_top=base+2;           vs_top=base+2;
2730           while(V666!=Cnil)           while(V687!=Cnil)
2731           {vs_push((V666)->c.c_car);V666=(V666)->c.c_cdr;}           {vs_push((V687)->c.c_car);V687=(V687)->c.c_cdr;}
2732          vs_base=base+1;}          vs_base=base+1;}
2733          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk221)(Lclptr221);
2734          vs_top=sup;          vs_top=sup;
2735          (void)((*(LnkLI224))(V658,V657));          V690= ({object _tmp=get(VV[214],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[214])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[214])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
2736          base[0]= (V658);          V691 = V679;
2737          base[1]= (V657);          V692 = V678;
2738            (void)((
2739            V693 = V690,
2740            (type_of(V693) == t_sfun ?(*((V693)->sfn.sfn_self)):
2741            (fcall.argd=2,type_of(V693)==t_vfun) ?
2742            (*((V693)->sfn.sfn_self)):
2743            (fcall.fun=(V693),fcalln))(V691,V692)));
2744            base[0]= (V679);
2745            base[1]= (V678);
2746          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2747          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk217)(Lclptr217);
2748          vs_top=sup;          vs_top=sup;
2749          {object V669 = (V658);          {object V694 = (V679);
2750          VMR41(V669)}}          VMR41(V694)}}
2751          base[0]=base[0];          base[0]=base[0];
2752          return Cnil;          return Cnil;
2753  }  }
2754  /*      local entry for function (FAST-METHOD CLASS-PREDICATE-NAME (T)) */  /*      local entry for function (FAST-METHOD CLASS-PREDICATE-NAME (T)) */
2755    
2756  static object LI44(V673,V674,V675)  static object LI44(V698,V699,V700)
2757    
2758  object V673;object V674;object V675;  object V698;object V699;object V700;
2759  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2760          goto TTL;          goto TTL;
2761  TTL:;  TTL:;
2762          {object V677 = VV[51];          {object V702 = VV[51];
2763          VMR42(V677)}          VMR42(V702)}
2764          return Cnil;          return Cnil;
2765  }  }
2766  /*      function definition for ENSURE-CLASS-VALUES     */  /*      function definition for ENSURE-CLASS-VALUES     */
# Line 2713  static void L45() Line 2769  static void L45()
2769  {register object *base=vs_base;  {register object *base=vs_base;
2770          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2771          vs_check;          vs_check;
2772          {object V678;          {object V703;
2773          object V679;          object V704;
2774          check_arg(2);          check_arg(2);
2775          V678=(base[0]);          V703=(base[0]);
2776          V679=(base[1]);          V704=(base[1]);
2777          vs_top=sup;          vs_top=sup;
2778          goto TTL;          goto TTL;
2779  TTL:;  TTL:;
2780          {register object V680;          {register object V705;
2781          object V681;          object V706;
2782          object V682;          object V707;
2783          object V683;          object V708;
2784          object V684;          object V709;
2785          object V685;          object V710;
2786          base[8]= (V679);          base[8]= (V704);
2787          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2788          Lcopy_list();          Lcopy_list();
2789          vs_top=sup;          vs_top=sup;
2790          V680= vs_base[0];          V705= vs_base[0];
2791          V681= make_cons(small_fixnum(1),Cnil);          V706= make_cons(small_fixnum(1),Cnil);
2792          base[8]= (V680);          base[8]= (V705);
2793          base[9]= VV[45];          base[9]= VV[45];
2794          base[10]= (V681);          base[10]= (V706);
2795          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2796          Lgetf();          Lgetf();
2797          vs_top=sup;          vs_top=sup;
2798          V682= vs_base[0];          V707= vs_base[0];
2799          base[8]= (V680);          base[8]= (V705);
2800          base[9]= VV[46];          base[9]= VV[46];
2801          base[10]= (V681);          base[10]= (V706);
2802          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2803          Lgetf();          Lgetf();
2804          vs_top=sup;          vs_top=sup;
2805          V683= vs_base[0];          V708= vs_base[0];
2806          base[8]= (V680);          base[8]= (V705);
2807          base[9]= VV[47];          base[9]= VV[47];
2808          base[10]= (V681);          base[10]= (V706);
2809          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2810          Lgetf();          Lgetf();
2811          vs_top=sup;          vs_top=sup;
2812          V684= vs_base[0];          V709= vs_base[0];
2813          if(!(((((V682))==((V681))?Ct:Cnil))==Cnil)){          if(!(((((V707))==((V706))?Ct:Cnil))==Cnil)){
2814          goto T1122;}          goto T1131;}
2815          V685= (VFUN_NARGS=1,(*(LnkLI219))((V682)));          V710= (VFUN_NARGS=1,(*(LnkLI214))((V707)));
2816          goto T1120;          goto T1129;
2817          goto T1122;          goto T1131;
2818  T1122:;  T1131:;
2819          if(((V678))==Cnil){          if(((V703))==Cnil){
2820          goto T1124;}          goto T1133;}
2821          base[8]= (V678);          base[8]= (V703);
2822          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2823          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk222)(Lclptr222);
2824          vs_top=sup;          vs_top=sup;
2825          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2826          goto T1125;}          goto T1134;}
2827          goto T1124;          goto T1133;
2828  T1124:;  T1133:;
2829          V685= (VV[52]->s.s_dbind);          V710= (VV[52]->s.s_dbind);
2830          goto T1120;          goto T1129;
2831          goto T1125;          goto T1134;
2832  T1125:;  T1134:;
2833          V685= (*(LnkLI225))((V678));          V710= (*(LnkLI219))((V703));
2834          goto T1120;          goto T1129;
2835  T1120:;  T1129:;
2836          goto T1132;          goto T1141;
2837  T1132:;  T1141:;
2838          {register object V686;          {register object V711;
2839          register object V687;          register object V712;
2840          base[8]= (V680);          base[8]= (V705);
2841          base[9]= VV[45];          base[9]= VV[45];
2842          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2843          siLrem_f();          siLrem_f();
2844          if(vs_base>=vs_top){vs_top=sup;goto T1139;}          if(vs_base>=vs_top){vs_top=sup;goto T1148;}
2845          V686= vs_base[0];          V711= vs_base[0];
2846          vs_base++;          vs_base++;
2847          if(vs_base>=vs_top){vs_top=sup;goto T1140;}          if(vs_base>=vs_top){vs_top=sup;goto T1149;}
2848          V687= vs_base[0];          V712= vs_base[0];
2849          vs_top=sup;          vs_top=sup;
2850            goto T1150;
2851            goto T1148;
2852    T1148:;
2853            V711= Cnil;
2854            goto T1149;
2855    T1149:;
2856            V712= Cnil;
2857            goto T1150;
2858    T1150:;
2859            V705= (V711);
2860            if(((V712))!=Cnil){
2861            goto T1142;}}
2862            goto T1139;
2863            goto T1142;
2864    T1142:;
2865          goto T1141;          goto T1141;
2866          goto T1139;          goto T1139;
2867  T1139:;  T1139:;
2868          V686= Cnil;          goto T1156;
2869          goto T1140;  T1156:;
2870  T1140:;          {register object V713;
2871          V687= Cnil;          register object V714;
2872          goto T1141;          base[8]= (V705);
 T1141:;  
         V680= (V686);  
         if(((V687))!=Cnil){  
         goto T1133;}}  
         goto T1130;  
         goto T1133;  
 T1133:;  
         goto T1132;  
         goto T1130;  
 T1130:;  
         goto T1147;  
 T1147:;  
         {register object V688;  
         register object V689;  
         base[8]= (V680);  
2873          base[9]= VV[46];          base[9]= VV[46];
2874          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2875          siLrem_f();          siLrem_f();
2876          if(vs_base>=vs_top){vs_top=sup;goto T1154;}          if(vs_base>=vs_top){vs_top=sup;goto T1163;}
2877          V688= vs_base[0];          V713= vs_base[0];
2878          vs_base++;          vs_base++;
2879          if(vs_base>=vs_top){vs_top=sup;goto T1155;}          if(vs_base>=vs_top){vs_top=sup;goto T1164;}
2880          V689= vs_base[0];          V714= vs_base[0];
2881          vs_top=sup;          vs_top=sup;
2882            goto T1165;
2883            goto T1163;
2884    T1163:;
2885            V713= Cnil;
2886            goto T1164;
2887    T1164:;
2888            V714= Cnil;
2889            goto T1165;
2890    T1165:;
2891            V705= (V713);
2892            if(((V714))!=Cnil){
2893            goto T1157;}}
2894            goto T1154;
2895            goto T1157;
2896    T1157:;
2897          goto T1156;          goto T1156;
2898          goto T1154;          goto T1154;
2899  T1154:;  T1154:;
2900          V688= Cnil;          goto T1171;
2901          goto T1155;  T1171:;
2902  T1155:;          {register object V715;
2903          V689= Cnil;          register object V716;
2904          goto T1156;          base[8]= (V705);
 T1156:;  
         V680= (V688);  
         if(((V689))!=Cnil){  
         goto T1148;}}  
         goto T1145;  
         goto T1148;  
 T1148:;  
         goto T1147;  
         goto T1145;  
 T1145:;  
         goto T1162;  
 T1162:;  
         {register object V690;  
         register object V691;  
         base[8]= (V680);  
2905          base[9]= VV[47];          base[9]= VV[47];
2906          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2907          siLrem_f();          siLrem_f();
2908          if(vs_base>=vs_top){vs_top=sup;goto T1169;}          if(vs_base>=vs_top){vs_top=sup;goto T1178;}
2909          V690= vs_base[0];          V715= vs_base[0];
2910          vs_base++;          vs_base++;
2911          if(vs_base>=vs_top){vs_top=sup;goto T1170;}          if(vs_base>=vs_top){vs_top=sup;goto T1179;}
2912          V691= vs_base[0];          V716= vs_base[0];
2913          vs_top=sup;          vs_top=sup;
2914          goto T1171;          goto T1180;
         goto T1169;  
 T1169:;  
         V690= Cnil;  
         goto T1170;  
 T1170:;  
         V691= Cnil;  
         goto T1171;  
 T1171:;  
         V680= (V690);  
         if(((V691))!=Cnil){  
         goto T1163;}}  
         goto T1160;  
         goto T1163;  
 T1163:;  
         goto T1162;  
         goto T1160;  
 T1160:;  
         base[8]= (V685);  
         if(((((V683))==((V681))?Ct:Cnil))==Cnil){  
         goto T1178;}  
         V692= Cnil;  
         goto T1177;  
2915          goto T1178;          goto T1178;
2916  T1178:;  T1178:;
2917          {object V693;          V715= Cnil;
2918          object V694= (V683);          goto T1179;
2919          if(V694==Cnil){  T1179:;
2920          V692= Cnil;          V716= Cnil;
         goto T1177;}  
         base[10]=V693=MMcons(Cnil,Cnil);  
2921          goto T1180;          goto T1180;
2922  T1180:;  T1180:;
2923          base[11]= (V694->c.c_car);          V705= (V715);
2924            if(((V716))!=Cnil){
2925            goto T1172;}}
2926            goto T1169;
2927            goto T1172;
2928    T1172:;
2929            goto T1171;
2930            goto T1169;
2931    T1169:;
2932            base[8]= (V710);
2933            if(((((V708))==((V706))?Ct:Cnil))==Cnil){
2934            goto T1187;}
2935            V717= Cnil;
2936            goto T1186;
2937            goto T1187;
2938    T1187:;
2939            {object V718;
2940            object V719= (V708);
2941            if(V719==Cnil){
2942            V717= Cnil;
2943            goto T1186;}
2944            base[10]=V718=MMcons(Cnil,Cnil);
2945            goto T1189;
2946    T1189:;
2947            base[11]= (V719->c.c_car);
2948          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
2949          L46(base);          L46(base);
2950          vs_top=sup;          vs_top=sup;
2951          (V693->c.c_car)= vs_base[0];          (V718->c.c_car)= vs_base[0];
2952          if((V694=MMcdr(V694))==Cnil){          if((V719=MMcdr(V719))==Cnil){
2953          V692= base[10];          V717= base[10];
2954          goto T1177;}          goto T1186;}
2955          V693=MMcdr(V693)=MMcons(Cnil,Cnil);          V718=MMcdr(V718)=MMcons(Cnil,Cnil);
2956          goto T1180;}          goto T1189;}
2957          goto T1177;          goto T1186;
2958  T1177:;  T1186:;
2959          if(((((V684))==((V681))?Ct:Cnil))==Cnil){          if(((((V709))==((V706))?Ct:Cnil))==Cnil){
2960          goto T1184;}          goto T1193;}
2961          V695= Cnil;          V720= Cnil;
2962          goto T1183;          goto T1192;
2963          goto T1184;          goto T1193;
2964  T1184:;  T1193:;
2965          V695= (V684);          V720= (V709);
2966          goto T1183;          goto T1192;
2967  T1183:;  T1192:;
2968          V696 = (V680);          V721 = (V705);
2969          base[9]= listA(5,VV[46],V692,VV[47],V695,V696);          base[9]= listA(5,VV[46],V717,VV[47],V720,V721);
2970          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2971          return;}          return;}
2972          }          }
2973  }  }
2974  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))   */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))   */
2975    
2976  static object LI47(V702,V703,V704,V705,V706)  static object LI47(V727,V728,V729,V730,V731)
2977    
2978  object V702;object V703;register object V704;object V705;object V706;  object V727;object V728;register object V729;object V730;object V731;
2979  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2980          goto TTL;          goto TTL;
2981  TTL:;  TTL:;
2982          {object V708;          {object V733;
2983          object V710;          object V735;
2984          object V711;          object V736;
2985          object V713;          object V738;
2986          object V714;          object V739;
2987          object V716;          object V741;
2988          object V717;          object V742;
2989          object V719;          object V744;
2990          V708= (*(LnkLI193))(VV[46],V706);          V733= (*(LnkLI189))(VV[46],V731);
2991          if(!(type_of((V708))==t_cons)){          if(!(type_of((V733))==t_cons)){
2992          goto T1191;}          goto T1200;}
2993          V710= CMPcar((V708));          V735= CMPcar((V733));
2994          goto T1189;          goto T1198;
2995          goto T1191;          goto T1200;
2996  T1191:;  T1200:;
2997          V710= Cnil;          V735= Cnil;
2998          goto T1189;          goto T1198;
2999  T1189:;  T1198:;
3000          V711= (*(LnkLI193))(VV[47],V706);          V736= (*(LnkLI189))(VV[47],V731);
3001          if(!(type_of((V711))==t_cons)){          if(!(type_of((V736))==t_cons)){
3002          goto T1196;}          goto T1205;}
3003          V713= CMPcar((V711));          V738= CMPcar((V736));
3004          goto T1194;          goto T1203;
3005          goto T1196;          goto T1205;
3006  T1196:;  T1205:;
3007          V713= Cnil;          V738= Cnil;
3008          goto T1194;          goto T1203;
3009  T1194:;  T1203:;
3010          V714= (*(LnkLI193))(VV[55],V706);          V739= (*(LnkLI189))(VV[55],V731);
3011          if(!(type_of((V714))==t_cons)){          if(!(type_of((V739))==t_cons)){
3012          goto T1201;}          goto T1210;}
3013          V716= CMPcar((V714));          V741= CMPcar((V739));
3014          goto T1199;          goto T1208;
3015          goto T1201;          goto T1210;
3016  T1201:;  T1210:;
3017          V716= Cnil;          V741= Cnil;
3018          goto T1199;          goto T1208;
3019  T1199:;  T1208:;
3020          V717= (*(LnkLI193))(VV[56],V706);          V742= (*(LnkLI189))(VV[56],V731);
3021          if(!(type_of((V717))==t_cons)){          if(!(type_of((V742))==t_cons)){
3022          goto T1206;}          goto T1215;}
3023          V719= CMPcar((V717));          V744= CMPcar((V742));
3024          goto T1204;          goto T1213;
3025          goto T1206;          goto T1215;
3026  T1206:;  T1215:;
3027          V719= Cnil;          V744= Cnil;
3028          goto T1204;          goto T1213;
3029  T1204:;  T1213:;
3030          {object V720;          {object V745;
3031          object V721;          object V746;
3032          V720= CMPcar((V702));          V745= CMPcar((V727));
3033          V721= CMPcdr((V702));          V746= CMPcdr((V727));
3034          {object V722;          {object V747;
3035          if(type_of(V704)==t_structure){          if(type_of(V729)==t_structure){
3036          goto T1216;}          goto T1225;}
3037          goto T1214;          goto T1223;
3038          goto T1216;          goto T1225;
3039  T1216:;  T1225:;
3040          if(!(((V704)->str.str_def)==(VV[57]))){          if(!(((V729)->str.str_def)==(VV[57]))){
3041          goto T1214;}          goto T1223;}
3042          V722= STREF(object,(V704),4);          V747= STREF(object,(V729),4);
3043          goto T1212;          goto T1221;
3044          goto T1214;          goto T1223;
3045  T1214:;{object V724;  T1223:;{object V749;
3046          V724= (VV[2]->s.s_dbind);          V749= (VV[2]->s.s_dbind);
3047          base[8]= small_fixnum(14);          base[8]= small_fixnum(14);
3048          base[9]= (V704);          base[9]= (V729);
3049          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3050          (void) (*Lnk177)();          (void) (*Lnk174)();
3051          vs_top=sup;          vs_top=sup;
3052          V725= vs_base[0];          V750= vs_base[0];
3053          if(!((V724)==(CMPcar(V725)))){          if(!((V749)==(CMPcar(V750)))){
3054          goto T1219;}}          goto T1228;}}
3055          V722= CMPcar(((V704))->cc.cc_turbo[12]);          V747= CMPcar(((V729))->cc.cc_turbo[12]);
3056          goto T1212;          goto T1221;
3057          goto T1219;          goto T1228;
3058  T1219:;  T1228:;
3059          V722= Cnil;          V747= Cnil;
3060          goto T1212;          goto T1221;
3061  T1212:;  T1221:;
3062          if((V708)==Cnil){          if((V733)==Cnil){
         goto T1227;}  
         if((V710)!=Cnil){  
         goto T1230;}  
         V710= make_cons((VV[58]->s.s_dbind),Cnil);  
         goto T1230;  
 T1230:;  
         {register object V726;  
         register object V727;  
         V726= (V710);  
         V727= CMPcar((V726));  
         goto T1235;  
 T1235:;  
         if(!(((V726))==Cnil)){  
3063          goto T1236;}          goto T1236;}
3064          goto T1231;          if((V735)!=Cnil){
3065          goto T1236;          goto T1239;}
3066  T1236:;          V735= make_cons((VV[58]->s.s_dbind),Cnil);
3067          base[9]= (V704);          goto T1239;
3068          base[10]= (V727);  T1239:;
3069            {register object V751;
3070            register object V752;
3071            V751= (V735);
3072            V752= CMPcar((V751));
3073            goto T1244;
3074    T1244:;
3075            if(!(((V751))==Cnil)){
3076            goto T1245;}
3077            goto T1240;
3078            goto T1245;
3079    T1245:;
3080            base[9]= (V729);
3081            base[10]= (V752);
3082          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
3083          (void) (*Lnk60)(Lclptr60);          (void) (*Lnk60)(Lclptr60);
3084          vs_top=sup;          vs_top=sup;
3085          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3086          goto T1240;}          goto T1249;}
3087          base[9]= VV[59];          base[9]= VV[59];
3088          base[10]= (V727);          base[10]= (V752);
3089          base[11]= (V704);          base[11]= (V729);
3090          base[12]= (*(LnkLI225))((V727));          base[12]= (*(LnkLI219))((V752));
3091          base[13]= (*(LnkLI225))((V704));          base[13]= (*(LnkLI219))((V729));
3092          base[14]= VV[60];          base[14]= VV[60];
3093          vs_top=(vs_base=base+9)+6;          vs_top=(vs_base=base+9)+6;
3094          Lerror();          Lerror();
3095          vs_top=sup;          vs_top=sup;
3096            goto T1249;
3097    T1249:;
3098            V751= CMPcdr((V751));
3099            V752= CMPcar((V751));
3100            goto T1244;}
3101          goto T1240;          goto T1240;
3102  T1240:;  T1240:;
3103          V726= CMPcdr((V726));          {object V754;
3104          V727= CMPcar((V726));          V754= ((V745))->v.v_self[2];
3105          goto T1235;}          if(!(type_of(V754)==t_fixnum)){
         goto T1231;  
 T1231:;  
         {object V729;  
         V729= ((V720))->v.v_self[2];  
         if(!(type_of(V729)==t_fixnum)){  
         goto T1258;}  
         (void)(((V722))->v.v_self[fix((V729))]= (V710));  
         goto T1225;  
         goto T1258;  
 T1258:;  
         base[8]= V710;  
         base[9]= (V704);  
         vs_top=(vs_base=base+8)+2;  
         (void) (*Lnk229)(Lclptr229);  
         vs_top=sup;  
         goto T1225;}  
         goto T1227;  
 T1227:;  
         {object V731;  
         V731= ((V720))->v.v_self[2];  
         if(!(type_of(V731)==t_fixnum)){  
3106          goto T1267;}          goto T1267;}
3107          V731= ((V722))->v.v_self[fix((V731))];          (void)(((V747))->v.v_self[fix((V754))]= (V735));
3108          goto T1265;          goto T1234;
3109          goto T1267;          goto T1267;
3110  T1267:;  T1267:;
3111          V731= VV[3];          base[8]= V735;
3112          goto T1265;          base[9]= (V729);
3113  T1265:;          vs_top=(vs_base=base+8)+2;
3114          if(!(((V731))==(VV[3]))){          (void) (*Lnk223)(Lclptr223);
         goto T1270;}  
         base[8]= (V704);  
         vs_top=(vs_base=base+8)+1;  
         (void) (*Lnk230)(Lclptr230);  
3115          vs_top=sup;          vs_top=sup;
3116          V710= vs_base[0];          goto T1234;}
3117          goto T1262;          goto T1236;
3118          goto T1270;  T1236:;
3119  T1270:;          {object V756;
3120          V710= (V731);}          V756= ((V745))->v.v_self[2];
3121          goto T1262;          if(!(type_of(V756)==t_fixnum)){
 T1262:;  
         goto T1225;  
 T1225:;  
         if((V711)==Cnil){  
3122          goto T1276;}          goto T1276;}
3123          {object V733;          V756= ((V747))->v.v_self[fix((V756))];
3124          {object V734;          goto T1274;
3125          object V735= (V713);          goto T1276;
3126          if(V735==Cnil){  T1276:;
3127          V733= Cnil;          V756= VV[3];
3128          goto T1278;}          goto T1274;
3129          base[8]=V734=MMcons(Cnil,Cnil);  T1274:;
3130            if(!(((V756))==(VV[3]))){
3131            goto T1279;}
3132            base[8]= (V729);
3133            vs_top=(vs_base=base+8)+1;
3134            (void) (*Lnk224)(Lclptr224);
3135            vs_top=sup;
3136            V735= vs_base[0];
3137            goto T1271;
3138          goto T1279;          goto T1279;
3139  T1279:;  T1279:;
3140          base[9]= (V704);          V735= (V756);}
3141          base[10]= (V735->c.c_car);          goto T1271;
3142    T1271:;
3143            goto T1234;
3144    T1234:;
3145            if((V736)==Cnil){
3146            goto T1285;}
3147            {object V758;
3148            {object V759;
3149            object V760= (V738);
3150            if(V760==Cnil){
3151            V758= Cnil;
3152            goto T1287;}
3153            base[8]=V759=MMcons(Cnil,Cnil);
3154            goto T1288;
3155    T1288:;
3156            base[9]= (V729);
3157            base[10]= (V760->c.c_car);
3158          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
3159          (void) (*Lnk231)();          (void) (*Lnk225)();
3160          vs_top=sup;          vs_top=sup;
3161          (V734->c.c_car)= vs_base[0];          (V759->c.c_car)= vs_base[0];
3162          if((V735=MMcdr(V735))==Cnil){          if((V760=MMcdr(V760))==Cnil){
3163          V733= base[8];          V758= base[8];
3164          goto T1278;}          goto T1287;}
3165          V734=MMcdr(V734)=MMcons(Cnil,Cnil);          V759=MMcdr(V759)=MMcons(Cnil,Cnil);
3166          goto T1279;}          goto T1288;}
3167          goto T1278;          goto T1287;
3168  T1278:;  T1287:;
3169          {object V737;          {object V762;
3170          V737= ((V720))->v.v_self[1];          V762= ((V745))->v.v_self[1];
3171          if(!(type_of(V737)==t_fixnum)){          if(!(type_of(V762)==t_fixnum)){
3172          goto T1285;}          goto T1294;}
3173          V713= ((V722))->v.v_self[fix((V737))]= ((V733));          V738= ((V747))->v.v_self[fix((V762))]= ((V758));
3174          goto T1274;          goto T1283;
3175          goto T1285;          goto T1294;
3176  T1285:;  T1294:;
3177          base[8]= (V733);          base[8]= (V758);
3178          base[9]= (V704);          base[9]= (V729);
3179          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3180          (void) (*Lnk232)(Lclptr232);          (void) (*Lnk226)(Lclptr226);
3181          vs_top=sup;          vs_top=sup;
3182          V713= vs_base[0];          V738= vs_base[0];
3183          goto T1274;}}          goto T1283;}}
3184          goto T1276;          goto T1285;
3185  T1276:;  T1285:;
3186          {object V739;          {object V764;
3187          V739= ((V720))->v.v_self[1];          V764= ((V745))->v.v_self[1];
3188          if(!(type_of(V739)==t_fixnum)){          if(!(type_of(V764)==t_fixnum)){
3189          goto T1293;}          goto T1302;}
3190          V739= ((V722))->v.v_self[fix((V739))];          V764= ((V747))->v.v_self[fix((V764))];
3191          goto T1291;          goto T1300;
3192          goto T1293;          goto T1302;
3193  T1293:;  T1302:;
3194          V739= VV[3];          V764= VV[3];
3195          goto T1291;          goto T1300;
3196  T1291:;  T1300:;
3197          if(!(((V739))==(VV[3]))){          if(!(((V764))==(VV[3]))){
3198          goto T1296;}          goto T1305;}
3199          base[8]= (V704);          base[8]= (V729);
3200          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3201          (void) (*Lnk233)(Lclptr233);          (void) (*Lnk227)(Lclptr227);
3202          vs_top=sup;          vs_top=sup;
3203          V713= vs_base[0];          V738= vs_base[0];
3204          goto T1274;          goto T1283;
3205          goto T1296;          goto T1305;
3206  T1296:;  T1305:;
3207          V713= (V739);}          V738= (V764);}
3208          goto T1274;          goto T1283;
3209  T1274:;  T1283:;
3210          if((V714)==Cnil){          if((V739)==Cnil){
3211          goto T1301;}          goto T1310;}
3212          (void)((*(LnkLI194))((V716),V704,VV[28]));          V769= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
3213          goto T1299;          V770 = V741;
3214          goto T1301;          V771 = V729;
3215  T1301:;          V772 = VV[28];
3216          V716= (*(LnkLI196))((V704),VV[28]);          (void)((
3217          goto T1299;          V773 = V769,
3218  T1299:;          (type_of(V773) == t_sfun ?(*((V773)->sfn.sfn_self)):
3219          {object V746;          (fcall.argd=3,type_of(V773)==t_vfun) ?
3220          register object V747;          (*((V773)->sfn.sfn_self)):
3221          V746= Cnil;          (fcall.fun=(V773),fcalln))(V770,V771,V772)));
         V747= Cnil;  
         {register object V748;  
         register object V749;  
         V748= (V713);  
         V749= CMPcar((V748));  
         goto T1312;  
 T1312:;  
         if(!(((V748))==Cnil)){  
         goto T1313;}  
3222          goto T1308;          goto T1308;
3223          goto T1313;          goto T1310;
3224  T1313:;  T1310:;
3225          base[9]= (V749);          V741= (*(LnkLI190))((V729),VV[28]);
3226          vs_top=(vs_base=base+9)+1;          goto T1308;
3227          (void) (*Lnk234)(Lclptr234);  T1308:;
3228            {object V776;
3229            {object V777;
3230            register object V778;
3231            V777= Cnil;
3232            V778= Cnil;
3233            {register object V779;
3234            register object V780;
3235            V779= (V738);
3236            V780= CMPcar((V779));
3237            goto T1322;
3238    T1322:;
3239            if(!(((V779))==Cnil)){
3240            goto T1323;}
3241            goto T1318;
3242            goto T1323;
3243    T1323:;
3244            base[10]= (V780);
3245            vs_top=(vs_base=base+10)+1;
3246            (void) (*Lnk228)(Lclptr228);
3247          vs_top=sup;          vs_top=sup;
3248          V750= vs_base[0];          V781= vs_base[0];
3249          V751 = (V704);          V782 = (V729);
3250          if(!((V750)==(V751))){          if(!((V781)==(V782))){
3251          goto T1317;}          goto T1327;}
3252          {object V752;          {object V783;
3253          base[9]= (V749);          base[10]= (V780);
3254          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+10)+1;
3255          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk229)(Lclptr229);
3256          vs_top=sup;          vs_top=sup;
3257          V752= vs_base[0];          V783= vs_base[0];
3258          {object V753;          {object V784;
3259          base[9]= (V749);          base[10]= (V780);
3260          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+10)+1;
3261          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
3262          vs_top=sup;          vs_top=sup;
3263          V754= vs_base[0];          V785= vs_base[0];
3264          if(((V752))==Cnil){          if(((V783))==Cnil){
3265          goto T1329;}          goto T1339;}
3266          vs_base=vs_top;          vs_base=vs_top;
3267          {object _funobj = (V752);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V783);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3268                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3269                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3270                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3271          vs_top=sup;          vs_top=sup;
3272          V755= vs_base[0];          V786= vs_base[0];
3273            goto T1337;
3274            goto T1339;
3275    T1339:;
3276            V786= (VV[61]->s.s_dbind);
3277            goto T1337;
3278    T1337:;
3279            V784= make_cons(V785,V786);
3280            if(((V777))!=Cnil){
3281            goto T1342;}
3282            V778= make_cons((V784),Cnil);
3283            V777= (V778);
3284          goto T1327;          goto T1327;
3285          goto T1329;          goto T1342;
3286  T1329:;  T1342:;
3287          V755= (VV[61]->s.s_dbind);          V788= make_cons((V784),Cnil);
3288            ((V778))->c.c_cdr = /* INLINE-ARGS */V788;
3289            V787= (V778);
3290            V778= CMPcdr(V787);}}
3291          goto T1327;          goto T1327;
3292  T1327:;  T1327:;
3293          V753= make_cons(V754,V755);          V779= CMPcdr((V779));
3294          if(((V746))!=Cnil){          V780= CMPcar((V779));
3295          goto T1332;}          goto T1322;}
3296          V747= make_cons((V753),Cnil);          goto T1318;
3297          V746= (V747);  T1318:;
3298          goto T1317;          V776= (V777);}
3299          goto T1332;          V789= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
3300  T1332:;          V790 = (V776);
3301          V757= make_cons((V753),Cnil);          V791 = V729;
3302          ((V747))->c.c_cdr = /* INLINE-ARGS */V757;          V792 = VV[31];
3303          V756= (V747);          (void)((
3304          V747= CMPcdr(V756);}}          V793 = V789,
3305          goto T1317;          (type_of(V793) == t_sfun ?(*((V793)->sfn.sfn_self)):
3306  T1317:;          (fcall.argd=3,type_of(V793)==t_vfun) ?
3307          V748= CMPcdr((V748));          (*((V793)->sfn.sfn_self)):
3308          V749= CMPcar((V748));          (fcall.fun=(V793),fcalln))(V790,V791,V792)));}
3309          goto T1312;}          if((V742)==Cnil){
3310          goto T1308;          goto T1357;}
3311  T1308:;          {object V794;
3312          V745= (V746);}          V794= CMPcar((V744));
3313          V758 = V704;          {object V795;
3314          V759 = VV[31];          V795= ((V745))->v.v_self[3];
3315          (void)((*(LnkLI194))(V745,V758,V759));          if(!(type_of(V795)==t_fixnum)){
3316          if((V717)==Cnil){          goto T1362;}
3317          goto T1346;}          V744= ((V747))->v.v_self[fix((V795))]= ((V794));
3318          {object V760;          goto T1355;
3319          V760= CMPcar((V719));          goto T1362;
3320          {object V761;  T1362:;
3321          V761= ((V720))->v.v_self[3];          base[8]= (V794);
3322          if(!(type_of(V761)==t_fixnum)){          base[9]= (V729);
         goto T1351;}  
         V719= ((V722))->v.v_self[fix((V761))]= ((V760));  
         goto T1344;  
         goto T1351;  
 T1351:;  
         base[8]= (V760);  
         base[9]= (V704);  
3323          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3324          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk231)(Lclptr231);
3325          vs_top=sup;          vs_top=sup;
3326          V719= vs_base[0];          V744= vs_base[0];
3327          goto T1344;}}          goto T1355;}}
3328          goto T1346;          goto T1357;
3329  T1346:;  T1357:;
3330          {object V763;          {object V797;
3331          {object V764;          {object V798;
3332          V764= ((V720))->v.v_self[3];          V798= ((V745))->v.v_self[3];
3333          if(!(type_of(V764)==t_fixnum)){          if(!(type_of(V798)==t_fixnum)){
3334          goto T1360;}          goto T1371;}
3335          V764= ((V722))->v.v_self[fix((V764))];          V798= ((V747))->v.v_self[fix((V798))];
3336          goto T1358;          goto T1369;
3337          goto T1360;          goto T1371;
3338  T1360:;  T1371:;
3339          V764= VV[3];          V798= VV[3];
3340          goto T1358;          goto T1369;
3341  T1358:;  T1369:;
3342          if(!(((V764))==(VV[3]))){          if(!(((V798))==(VV[3]))){
3343          goto T1363;}          goto T1374;}
3344          base[8]= (V704);          base[8]= (V729);
3345          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3346          (void) (*Lnk238)(Lclptr238);          (void) (*Lnk232)(Lclptr232);
3347          vs_top=sup;          vs_top=sup;
3348          V763= vs_base[0];          V797= vs_base[0];
3349          goto T1355;          goto T1366;
3350          goto T1363;          goto T1374;
3351  T1363:;  T1374:;
3352          V763= (V764);}          V797= (V798);}
3353            goto T1366;
3354    T1366:;
3355            if(((V797))==Cnil){
3356            goto T1378;}
3357            V744= (V797);
3358          goto T1355;          goto T1355;
3359  T1355:;          goto T1378;
3360          if(((V763))==Cnil){  T1378:;
3361          goto T1367;}          {object V800;
3362          V719= (V763);          base[9]= (V729);
         goto T1344;  
         goto T1367;  
 T1367:;  
         {object V766;  
         base[9]= (V704);  
3363          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3364          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
3365          vs_top=sup;          vs_top=sup;
3366          base[8]= vs_base[0];          base[8]= vs_base[0];
3367          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3368          (void) (*Lnk240)();          (void) (*Lnk234)();
3369          vs_top=sup;          vs_top=sup;
3370          V766= vs_base[0];          V800= vs_base[0];
3371          {object V767;          {object V801;
3372          V767= ((V720))->v.v_self[3];          V801= ((V745))->v.v_self[3];
3373          if(!(type_of(V767)==t_fixnum)){          if(!(type_of(V801)==t_fixnum)){
3374          goto T1374;}          goto T1385;}
3375          V719= ((V722))->v.v_self[fix((V767))]= ((V766));          V744= ((V747))->v.v_self[fix((V801))]= ((V800));
3376          goto T1344;          goto T1355;
3377          goto T1374;          goto T1385;
3378  T1374:;  T1385:;
3379          base[8]= (V766);          base[8]= (V800);
3380          base[9]= (V704);          base[9]= (V729);
3381          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3382          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk231)(Lclptr231);
3383          vs_top=sup;          vs_top=sup;
3384          V719= vs_base[0];}}}          V744= vs_base[0];}}}
3385          goto T1344;          goto T1355;
3386  T1344:;  T1355:;
3387          (void)((*(LnkLI241))((V704),(V710)));          (void)((*(LnkLI235))((V729),(V735)));
3388          (void)((*(LnkLI242))((V704),Cnil));          (void)((*(LnkLI236))((V729),Cnil));
3389          (void)((*(LnkLI243))((V704),(V719)));          (void)((*(LnkLI237))((V729),(V744)));
3390          {object V769 = (*(LnkLI244))((V704),(V713));          {object V803 = (*(LnkLI238))((V729),(V738));
3391          VMR44(V769)}}}}          VMR44(V803)}}}}
3392          base[0]=base[0];          base[0]=base[0];
3393          return Cnil;          return Cnil;
3394  }  }
# Line 3325  static void L48() Line 3398  static void L48()
3398  {register object *base=vs_base;  {register object *base=vs_base;
3399          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3400          vs_check;          vs_check;
3401          {object V770;          {object V804;
3402          object V771;          object V805;
3403          register object V772;          register object V806;
3404          object V773;          object V807;
3405          object V774;          object V808;
3406          check_arg(5);          check_arg(5);
3407          V770=(base[0]);          V804=(base[0]);
3408          V771=(base[1]);          V805=(base[1]);
3409          V772=(base[2]);          V806=(base[2]);
3410          V773=(base[3]);          V807=(base[3]);
3411          V774=(base[4]);          V808=(base[4]);
3412          vs_top=sup;          vs_top=sup;
3413          goto TTL;          goto TTL;
3414  TTL:;  TTL:;
3415          {object V776;          {object V810;
3416          V776= (*(LnkLI245))(VV[50],V774);          V810= (*(LnkLI239))(VV[50],V808);
3417          {object V777;          {object V811;
3418          object V778;          object V812;
3419          V777= CMPcar((V770));          V811= CMPcar((V804));
3420          V778= CMPcdr((V770));          V812= CMPcdr((V804));
3421          {object V779;          {object V813;
3422          if(type_of(V772)==t_structure){          if(type_of(V806)==t_structure){
3423          goto T1392;}          goto T1403;}
3424          goto T1390;          goto T1401;
3425          goto T1392;          goto T1403;
3426  T1392:;  T1403:;
3427          if(!(((V772)->str.str_def)==(VV[62]))){          if(!(((V806)->str.str_def)==(VV[62]))){
3428          goto T1390;}          goto T1401;}
3429          V779= STREF(object,(V772),4);          V813= STREF(object,(V806),4);
3430          goto T1388;          goto T1399;
3431          goto T1390;          goto T1401;
3432  T1390:;{object V781;  T1401:;{object V815;
3433          V781= (VV[2]->s.s_dbind);          V815= (VV[2]->s.s_dbind);
3434          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
3435          base[7]= (V772);          base[7]= (V806);
3436          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3437          (void) (*Lnk177)();          (void) (*Lnk174)();
3438          vs_top=sup;          vs_top=sup;
3439          V782= vs_base[0];          V816= vs_base[0];
3440          if(!((V781)==(CMPcar(V782)))){          if(!((V815)==(CMPcar(V816)))){
3441          goto T1395;}}          goto T1406;}}
3442          V779= CMPcar(((V772))->cc.cc_turbo[12]);          V813= CMPcar(((V806))->cc.cc_turbo[12]);
3443          goto T1388;          goto T1399;
3444          goto T1395;          goto T1406;
3445  T1395:;  T1406:;
3446          V779= Cnil;          V813= Cnil;
3447          goto T1388;          goto T1399;
3448  T1388:;  T1399:;
3449          {object V783;          {object V817;
3450          V783= list(2,VV[63],(V772));          V817= list(2,VV[63],(V806));
3451          {object V784;          {object V818;
3452          V784= ((V777))->v.v_self[1];          V818= ((V811))->v.v_self[1];
3453          if(!(type_of(V784)==t_fixnum)){          if(!(type_of(V818)==t_fixnum)){
3454          goto T1405;}          goto T1416;}
3455          (void)(((V779))->v.v_self[fix((V784))]= ((V783)));          (void)(((V813))->v.v_self[fix((V818))]= ((V817)));
3456          goto T1401;          goto T1412;
3457          goto T1405;          goto T1416;
3458  T1405:;  T1416:;
3459          base[6]= (V783);          base[6]= (V817);
3460          base[7]= (V772);          base[7]= (V806);
3461          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3462          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk209)(Lclptr209);
3463          vs_top=sup;}}          vs_top=sup;}}
3464          goto T1401;          goto T1412;
3465  T1401:;  T1412:;
3466          {object V786;          {object V820;
3467          base[6]= VV[64];          base[6]= VV[64];
3468          base[7]= VV[65];          base[7]= VV[65];
3469          base[8]= (V772);          base[8]= (V806);
3470          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3471          (void) (*Lnk246)();          (void) (*Lnk240)();
3472          vs_top=sup;          vs_top=sup;
3473          V786= vs_base[0];          V820= vs_base[0];
3474          {object V787;          {object V821;
3475          V787= ((V777))->v.v_self[2];          V821= ((V811))->v.v_self[2];
3476          if(!(type_of(V787)==t_fixnum)){          if(!(type_of(V821)==t_fixnum)){
3477          goto T1415;}          goto T1426;}
3478          base[6]= ((V779))->v.v_self[fix((V787))]= ((V786));          base[6]= ((V813))->v.v_self[fix((V821))]= ((V820));
3479          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3480          return;          return;
3481          goto T1415;          goto T1426;
3482  T1415:;  T1426:;
3483          base[6]= (V786);          base[6]= (V820);
3484          base[7]= (V772);          base[7]= (V806);
3485          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3486          (void) (*Lnk247)(Lclptr247);          (void) (*Lnk241)(Lclptr241);
3487          return;}}}}}          return;}}}}}
3488          }          }
3489  }  }
3490  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))       */  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))       */
3491    
3492  static object LI49(V793,V794,V795,V796)  static object LI49(V827,V828,V829,V830)
3493    
3494  object V793;object V794;register object V795;object V796;  object V827;object V828;register object V829;object V830;
3495  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3496          goto TTL;          goto TTL;
3497  TTL:;  TTL:;
3498          V798 = (V795);          V832 = (V829);
3499          base[0]= (V795);          base[0]= (V829);
3500          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3501          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk243)(Lclptr243);
3502          vs_top=sup;          vs_top=sup;
3503          V799= vs_base[0];          V833= vs_base[0];
3504          (void)((*(LnkLI248))(V798,V799));          (void)((*(LnkLI242))(V832,V833));
3505          V800 = (V795);          V834 = (V829);
3506          base[0]= (V795);          base[0]= (V829);
3507          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3508          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk245)(Lclptr245);
3509          vs_top=sup;          vs_top=sup;
3510          V801= vs_base[0];          V835= vs_base[0];
3511          {object V802 = (*(LnkLI250))(V800,V801);          {object V836 = (*(LnkLI244))(V834,V835);
3512          VMR46(V802)}          VMR46(V836)}
3513          base[0]=base[0];          base[0]=base[0];
3514          return Cnil;          return Cnil;
3515  }  }
# Line 3446  static void L50() Line 3519  static void L50()
3519  {register object *base=vs_base;  {register object *base=vs_base;
3520          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
3521          vs_check;          vs_check;
3522          {object V803;          {object V837;
3523          object V804;          object V838;
3524          object V805;          object V839;
3525          check_arg(4);          check_arg(4);
3526          V803=(base[0]);          V837=(base[0]);
3527          V804=(base[1]);          V838=(base[1]);
3528          base[2]=MMcons(base[2],Cnil);          base[2]=MMcons(base[2],Cnil);
3529          V805=(base[3]);          V839=(base[3]);
3530          vs_top=sup;          vs_top=sup;
3531          base[4]=MMcons(V805,base[2]);          base[4]=MMcons(V839,base[2]);
3532          base[5]= (base[2]->c.c_car);          base[5]= (base[2]->c.c_car);
3533          base[6]=          base[6]=
3534          make_cclosure_new(LC130,Cnil,base[4],Cdata);          make_cclosure_new(LC130,Cnil,base[4],Cdata);
3535          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3536          (void) (*Lnk252)(Lclptr252);          (void) (*Lnk246)(Lclptr246);
3537          return;          return;
3538          }          }
3539  }  }
3540  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))     */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))     */
3541    
3542  static object LI51(V812,V813,V814,V815,V816)  static object LI51(V846,V847,V848,V849,V850)
3543    
3544  object V812;object V813;register object V814;object V815;object V816;  object V846;object V847;register object V848;object V849;object V850;
3545  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3546          goto TTL;          goto TTL;
3547  TTL:;  TTL:;
3548          {object V818;          {object V852;
3549          object V820;          object V854;
3550          object V821;          object V855;
3551          register object V823;          register object V857;
3552          object V824;          object V858;
3553          object V825;          object V859;
3554          object V827;          object V861;
3555          V818= (*(LnkLI193))(VV[46],V816);          V852= (*(LnkLI189))(VV[46],V850);
3556          if(!(type_of((V818))==t_cons)){          if(!(type_of((V852))==t_cons)){
         goto T1437;}  
         V820= CMPcar((V818));  
         goto T1435;  
         goto T1437;  
 T1437:;  
         V820= Cnil;  
         goto T1435;  
 T1435:;  
         V821= (*(LnkLI193))(VV[47],V816);  
         if(!(type_of((V821))==t_cons)){  
         goto T1442;}  
         V823= CMPcar((V821));  
         goto T1440;  
         goto T1442;  
 T1442:;  
         V823= Cnil;  
         goto T1440;  
 T1440:;  
         V824= (*(LnkLI245))(VV[55],V816);  
         V825= (*(LnkLI193))(VV[56],V816);  
         if(!(type_of((V825))==t_cons)){  
3557          goto T1448;}          goto T1448;}
3558          V827= CMPcar((V825));          V854= CMPcar((V852));
3559          goto T1446;          goto T1446;
3560          goto T1448;          goto T1448;
3561  T1448:;  T1448:;
3562          V827= Cnil;          V854= Cnil;
3563          goto T1446;          goto T1446;
3564  T1446:;  T1446:;
3565          {register object V828;          V855= (*(LnkLI189))(VV[47],V850);
3566          object V829;          if(!(type_of((V855))==t_cons)){
3567          V828= CMPcar((V812));          goto T1453;}
3568          V829= CMPcdr((V812));          V857= CMPcar((V855));
3569          {register object V830;          goto T1451;
3570          if(type_of(V814)==t_structure){          goto T1453;
3571          goto T1458;}  T1453:;
3572          goto T1456;          V857= Cnil;
3573          goto T1458;          goto T1451;
3574  T1458:;  T1451:;
3575          if(!(((V814)->str.str_def)==(VV[66]))){          V858= (*(LnkLI239))(VV[55],V850);
3576          goto T1456;}          V859= (*(LnkLI189))(VV[56],V850);
3577          V830= STREF(object,(V814),4);          if(!(type_of((V859))==t_cons)){
3578          goto T1454;          goto T1459;}
3579          goto T1456;          V861= CMPcar((V859));
3580  T1456:;{object V832;          goto T1457;
3581          V832= (VV[2]->s.s_dbind);          goto T1459;
3582    T1459:;
3583            V861= Cnil;
3584            goto T1457;
3585    T1457:;
3586            {register object V862;
3587            object V863;
3588            V862= CMPcar((V846));
3589            V863= CMPcdr((V846));
3590            {register object V864;
3591            if(type_of(V848)==t_structure){
3592            goto T1469;}
3593            goto T1467;
3594            goto T1469;
3595    T1469:;
3596            if(!(((V848)->str.str_def)==(VV[66]))){
3597            goto T1467;}
3598            V864= STREF(object,(V848),4);
3599            goto T1465;
3600            goto T1467;
3601    T1467:;{object V866;
3602            V866= (VV[2]->s.s_dbind);
3603          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
3604          base[8]= (V814);          base[8]= (V848);
3605          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3606          (void) (*Lnk177)();          (void) (*Lnk174)();
3607          vs_top=sup;          vs_top=sup;
3608          V833= vs_base[0];          V867= vs_base[0];
3609          if(!((V832)==(CMPcar(V833)))){          if(!((V866)==(CMPcar(V867)))){
3610          goto T1461;}}          goto T1472;}}
3611          V830= CMPcar(((V814))->cc.cc_turbo[12]);          V864= CMPcar(((V848))->cc.cc_turbo[12]);
3612          goto T1454;          goto T1465;
         goto T1461;  
 T1461:;  
         V830= Cnil;  
         goto T1454;  
 T1454:;  
         if((V818)==Cnil){  
         goto T1469;}  
         {object V834;  
         if((V820)!=Cnil){  
         V834= (V820);  
         goto T1471;}  
         base[7]= (V814);  
         vs_top=(vs_base=base+7)+1;  
         (void) (*Lnk239)(Lclptr239);  
         vs_top=sup;  
         V835= vs_base[0];  
         if((((V835)==(VV[67])?Ct:Cnil))==Cnil){  
         goto T1473;}  
         V820= Cnil;  
         goto T1472;  
         goto T1473;  
 T1473:;  
         V820= make_cons((VV[68]->s.s_dbind),Cnil);  
3613          goto T1472;          goto T1472;
3614  T1472:;  T1472:;
3615          V834= (V820);          V864= Cnil;
3616          goto T1471;          goto T1465;
3617  T1471:;  T1465:;
3618          {object V836;          if((V852)==Cnil){
3619          V836= ((V828))->v.v_self[5];          goto T1480;}
3620          if(!(type_of(V836)==t_fixnum)){          {object V868;
3621          goto T1479;}          if((V854)!=Cnil){
3622          (void)(((V830))->v.v_self[fix((V836))]= ((V834)));          V868= (V854);
3623          goto T1467;          goto T1482;}
3624          goto T1479;          base[7]= (V848);
 T1479:;  
         base[7]= (V834);  
         base[8]= (V814);  
         vs_top=(vs_base=base+7)+2;  
         (void) (*Lnk229)(Lclptr229);  
         vs_top=sup;  
         goto T1467;}}  
         goto T1469;  
 T1469:;  
         {register object V838;  
         V838= ((V828))->v.v_self[5];  
         if(!(type_of(V838)==t_fixnum)){  
         goto T1488;}  
         V838= ((V830))->v.v_self[fix((V838))];  
         goto T1486;  
         goto T1488;  
 T1488:;  
         V838= VV[3];  
         goto T1486;  
 T1486:;  
         if(!(((V838))==(VV[3]))){  
         goto T1491;}  
         base[7]= (V814);  
3625          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3626          (void) (*Lnk230)(Lclptr230);          (void) (*Lnk233)(Lclptr233);
3627          vs_top=sup;          vs_top=sup;
3628          V820= vs_base[0];          V869= vs_base[0];
3629            if((((V869)==(VV[67])?Ct:Cnil))==Cnil){
3630            goto T1484;}
3631            V854= Cnil;
3632          goto T1483;          goto T1483;
3633          goto T1491;          goto T1484;
3634  T1491:;  T1484:;
3635          V820= (V838);}          V854= make_cons((VV[68]->s.s_dbind),Cnil);
3636          goto T1483;          goto T1483;
3637  T1483:;  T1483:;
3638          goto T1467;          V868= (V854);
3639  T1467:;          goto T1482;
3640          {register object V840;  T1482:;
3641          object V841;          {object V870;
3642          object V842;          V870= ((V862))->v.v_self[5];
3643          base[10]= (V814);          if(!(type_of(V870)==t_fixnum)){
3644          vs_top=(vs_base=base+10)+1;          goto T1490;}
3645          (void) (*Lnk239)(Lclptr239);          (void)(((V864))->v.v_self[fix((V870))]= ((V868)));
3646            goto T1478;
3647            goto T1490;
3648    T1490:;
3649            base[7]= (V868);
3650            base[8]= (V848);
3651            vs_top=(vs_base=base+7)+2;
3652            (void) (*Lnk223)(Lclptr223);
3653          vs_top=sup;          vs_top=sup;
3654          V840= vs_base[0];          goto T1478;}}
3655          {register object V843;          goto T1480;
3656          V843= ((V828))->v.v_self[6];  T1480:;
3657          if(!(type_of(V843)==t_fixnum)){          {register object V872;
3658            V872= ((V862))->v.v_self[5];
3659            if(!(type_of(V872)==t_fixnum)){
3660            goto T1499;}
3661            V872= ((V864))->v.v_self[fix((V872))];
3662            goto T1497;
3663            goto T1499;
3664    T1499:;
3665            V872= VV[3];
3666            goto T1497;
3667    T1497:;
3668            if(!(((V872))==(VV[3]))){
3669          goto T1502;}          goto T1502;}
3670          V843= ((V830))->v.v_self[fix((V843))];          base[7]= (V848);
3671          goto T1500;          vs_top=(vs_base=base+7)+1;
3672            (void) (*Lnk224)(Lclptr224);
3673            vs_top=sup;
3674            V854= vs_base[0];
3675            goto T1494;
3676          goto T1502;          goto T1502;
3677  T1502:;  T1502:;
3678          V843= VV[3];          V854= (V872);}
3679          goto T1500;          goto T1494;
3680  T1500:;  T1494:;
3681          if(!(((V843))==(VV[3]))){          goto T1478;
3682          goto T1505;}  T1478:;
3683          base[10]= (V814);          {register object V874;
3684            object V875;
3685            object V876;
3686            base[10]= (V848);
3687          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
3688          (void) (*Lnk253)(Lclptr253);          (void) (*Lnk233)(Lclptr233);
3689          vs_top=sup;          vs_top=sup;
3690          V841= vs_base[0];          V874= vs_base[0];
3691          goto T1497;          {register object V877;
3692          goto T1505;          V877= ((V862))->v.v_self[6];
3693  T1505:;          if(!(type_of(V877)==t_fixnum)){
3694          V841= (V843);}          goto T1513;}
3695          goto T1497;          V877= ((V864))->v.v_self[fix((V877))];
3696  T1497:;          goto T1511;
3697          if((V841)!=Cnil){          goto T1513;
3698          V842= (V841);  T1513:;
3699          goto T1508;}          V877= VV[3];
3700          V845= (*(LnkLI254))((V840));          goto T1511;
3701          V842= ((/* INLINE-ARGS */V845)==Cnil?Ct:Cnil);  T1511:;
3702            if(!(((V877))==(VV[3]))){
3703            goto T1516;}
3704            base[10]= (V848);
3705            vs_top=(vs_base=base+10)+1;
3706            (void) (*Lnk247)(Lclptr247);
3707            vs_top=sup;
3708            V875= vs_base[0];
3709            goto T1508;
3710            goto T1516;
3711    T1516:;
3712            V875= (V877);}
3713          goto T1508;          goto T1508;
3714  T1508:;  T1508:;
3715          if((V821)==Cnil){          if((V875)!=Cnil){
3716          goto T1511;}          V876= (V875);
3717          {object V846;          goto T1519;}
3718          {object V847;          V879= (*(LnkLI248))((V874));
3719          object V848= (V823);          V876= ((/* INLINE-ARGS */V879)==Cnil?Ct:Cnil);
3720          if(V848==Cnil){          goto T1519;
3721          V823= Cnil;  T1519:;
3722          goto T1514;}          if((V855)==Cnil){
3723          base[10]=V847=MMcons(Cnil,Cnil);          goto T1522;}
3724          goto T1515;          {object V880;
3725  T1515:;          {object V881;
3726          {object V849;          object V882= (V857);
3727          V849= (V848->c.c_car);          if(V882==Cnil){
3728          if(((V842))==Cnil){          V857= Cnil;
3729          goto T1517;}          goto T1525;}
3730          {object V850;          base[10]=V881=MMcons(Cnil,Cnil);
3731          object V851;          goto T1526;
3732          object V852;  T1526:;
3733          base[14]= (V849);          {object V883;
3734            V883= (V882->c.c_car);
3735            if(((V876))==Cnil){
3736            goto T1528;}
3737            {object V884;
3738            object V885;
3739            object V886;
3740            base[14]= (V883);
3741          base[15]= VV[50];          base[15]= VV[50];
3742          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
3743          Lgetf();          Lgetf();
3744          vs_top=sup;          vs_top=sup;
3745          V850= vs_base[0];          V884= vs_base[0];
3746          base[14]= Cnil;          base[14]= Cnil;
3747          base[15]= VV[69];          base[15]= VV[69];
3748          base[16]= (V840);          base[16]= (V874);
3749          base[17]= (V850);          base[17]= (V884);
3750          vs_top=(vs_base=base+14)+4;          vs_top=(vs_base=base+14)+4;
3751          Lformat();          Lformat();
3752          vs_top=sup;          vs_top=sup;
3753          V851= vs_base[0];          V885= vs_base[0];
3754          base[14]= (V851);          base[14]= (V885);
3755          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
3756          Lintern();          Lintern();
3757          vs_top=sup;          vs_top=sup;
3758          V852= vs_base[0];          V886= vs_base[0];
3759          V849= listA(3,VV[70],(V852),(V849));}          V883= listA(3,VV[70],(V886),(V883));}
3760          goto T1517;          goto T1528;
3761  T1517:;  T1528:;
3762          base[11]= (V814);          base[11]= (V848);
3763          base[12]= (V849);          base[12]= (V883);
3764          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
3765          (void) (*Lnk231)();          (void) (*Lnk225)();
3766          vs_top=sup;          vs_top=sup;
3767          (V847->c.c_car)= vs_base[0];}          (V881->c.c_car)= vs_base[0];}
3768          if((V848=MMcdr(V848))==Cnil){          if((V882=MMcdr(V882))==Cnil){
3769          V823= base[10];          V857= base[10];
3770          goto T1514;}          goto T1525;}
3771          V847=MMcdr(V847)=MMcons(Cnil,Cnil);          V881=MMcdr(V881)=MMcons(Cnil,Cnil);
3772          goto T1515;}          goto T1526;}
3773          goto T1514;          goto T1525;
3774  T1514:;  T1525:;
3775          V846= (V823);          V880= (V857);
3776          {object V853;          {object V887;
3777          V853= ((V828))->v.v_self[4];          V887= ((V862))->v.v_self[4];
3778          if(!(type_of(V853)==t_fixnum)){          if(!(type_of(V887)==t_fixnum)){
3779          goto T1535;}          goto T1546;}
3780          (void)(((V830))->v.v_self[fix((V853))]= ((V846)));          (void)(((V864))->v.v_self[fix((V887))]= ((V880)));
3781          goto T1509;          goto T1520;
3782          goto T1535;          goto T1546;
3783  T1535:;  T1546:;
3784          base[10]= (V846);          base[10]= (V880);
3785          base[11]= (V814);          base[11]= (V848);
3786          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
3787          (void) (*Lnk232)(Lclptr232);          (void) (*Lnk226)(Lclptr226);
3788          vs_top=sup;          vs_top=sup;
3789          goto T1509;}}          goto T1520;}}
3790          goto T1511;          goto T1522;
3791  T1511:;  T1522:;
3792          {register object V855;          {register object V889;
3793          V855= ((V828))->v.v_self[4];          V889= ((V862))->v.v_self[4];
3794          if(!(type_of(V855)==t_fixnum)){          if(!(type_of(V889)==t_fixnum)){
3795          goto T1544;}          goto T1555;}
3796          V855= ((V830))->v.v_self[fix((V855))];          V889= ((V864))->v.v_self[fix((V889))];
3797          goto T1542;          goto T1553;
3798          goto T1544;          goto T1555;
3799  T1544:;  T1555:;
3800          V855= VV[3];          V889= VV[3];
3801          goto T1542;          goto T1553;
3802  T1542:;  T1553:;
3803          if(!(((V855))==(VV[3]))){          if(!(((V889))==(VV[3]))){
3804          goto T1547;}          goto T1558;}
3805          base[10]= (V814);          base[10]= (V848);
3806          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
3807          (void) (*Lnk233)(Lclptr233);          (void) (*Lnk227)(Lclptr227);
3808          vs_top=sup;          vs_top=sup;
3809          V823= vs_base[0];          V857= vs_base[0];
3810          goto T1539;          goto T1550;
         goto T1547;  
 T1547:;  
         V823= (V855);}  
         goto T1539;  
 T1539:;  
         goto T1509;  
 T1509:;  
         if(((V842))==Cnil){  
         goto T1494;}  
         {object V857;  
         object V858;  
         object V859;  
         object V860;  
         object V861;  
         object V862;  
         object V863;  
         object V864;  
         object V865;  
         {register object V867;  
         V867= ((V828))->v.v_self[5];  
         if(!(type_of(V867)==t_fixnum)){  
         goto T1558;}  
         V867= ((V830))->v.v_self[fix((V867))];  
         goto T1556;  
3811          goto T1558;          goto T1558;
3812  T1558:;  T1558:;
3813          V867= VV[3];          V857= (V889);}
3814          goto T1556;          goto T1550;
3815  T1556:;  T1550:;
3816          if(!(((V867))==(VV[3]))){          goto T1520;
3817          goto T1561;}  T1520:;
3818          base[19]= (V814);          if(((V876))==Cnil){
3819            goto T1505;}
3820            {object V891;
3821            object V892;
3822            object V893;
3823            object V894;
3824            object V895;
3825            object V896;
3826            object V897;
3827            object V898;
3828            object V899;
3829            {register object V901;
3830            V901= ((V862))->v.v_self[5];
3831            if(!(type_of(V901)==t_fixnum)){
3832            goto T1569;}
3833            V901= ((V864))->v.v_self[fix((V901))];
3834            goto T1567;
3835            goto T1569;
3836    T1569:;
3837            V901= VV[3];
3838            goto T1567;
3839    T1567:;
3840            if(!(((V901))==(VV[3]))){
3841            goto T1572;}
3842            base[19]= (V848);
3843          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3844          (void) (*Lnk230)(Lclptr230);          (void) (*Lnk224)(Lclptr224);
3845          vs_top=sup;          vs_top=sup;
3846          V866= vs_base[0];          V900= vs_base[0];
3847          goto T1553;          goto T1564;
3848          goto T1561;          goto T1572;
3849  T1561:;  T1572:;
3850          V866= (V867);}          V900= (V901);}
3851          goto T1553;          goto T1564;
3852  T1553:;  T1564:;
3853          V857= CMPcar(V866);          V891= CMPcar(V900);
3854          base[20]= Cnil;          base[20]= Cnil;
3855          base[21]= VV[71];          base[21]= VV[71];
3856          base[22]= (V840);          base[22]= (V874);
3857          vs_top=(vs_base=base+20)+3;          vs_top=(vs_base=base+20)+3;
3858          Lformat();          Lformat();
3859          vs_top=sup;          vs_top=sup;
# Line 3788  T1553:; Line 3861  T1553:;
3861          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3862          Lintern();          Lintern();
3863          vs_top=sup;          vs_top=sup;
3864          V858= vs_base[0];          V892= vs_base[0];
3865          base[20]= Cnil;          base[20]= Cnil;
3866          base[21]= VV[72];          base[21]= VV[72];
3867          base[22]= (V858);          base[22]= (V892);
3868          vs_top=(vs_base=base+20)+3;          vs_top=(vs_base=base+20)+3;
3869          Lformat();          Lformat();
3870          vs_top=sup;          vs_top=sup;
# Line 3799  T1553:; Line 3872  T1553:;
3872          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3873          Lintern();          Lintern();
3874          vs_top=sup;          vs_top=sup;
3875          V859= vs_base[0];          V893= vs_base[0];
3876          if(((V857))==Cnil){          if(((V891))==Cnil){
3877          goto T1577;}          goto T1588;}
3878          base[19]= (V857);          base[19]= (V891);
3879          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3880          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
3881          vs_top=sup;          vs_top=sup;
3882          V870= vs_base[0];          V904= vs_base[0];
3883          V871= list(2,VV[74],V870);          V905= list(2,VV[74],V904);
3884          V869= make_cons(/* INLINE-ARGS */V871,Cnil);          V903= make_cons(/* INLINE-ARGS */V905,Cnil);
3885          goto T1575;          goto T1586;
3886          goto T1577;          goto T1588;
3887  T1577:;  T1588:;
3888          V869= Cnil;          V903= Cnil;
3889          goto T1575;          goto T1586;
3890  T1575:;  T1586:;
3891          V872= list(2,VV[77],(V858));          V906= list(2,VV[77],(V892));
3892          V873= list(4,VV[75],VV[76],/* INLINE-ARGS */V872,list(3,VV[78],(V859),Cnil));          V907= list(4,VV[75],VV[76],/* INLINE-ARGS */V906,list(3,VV[78],(V893),Cnil));
3893          V874= append(V869,/* INLINE-ARGS */V873);          V908= append(V903,/* INLINE-ARGS */V907);
3894          V875= make_cons((V840),/* INLINE-ARGS */V874);          V909= make_cons((V874),/* INLINE-ARGS */V908);
3895          {object V877;          {object V911;
3896          object V878= (V823);          object V912= (V857);
3897          if(V878==Cnil){          if(V912==Cnil){
3898          V876= Cnil;          V910= Cnil;
3899          goto T1581;}          goto T1592;}
3900          base[19]=V877=MMcons(Cnil,Cnil);          base[19]=V911=MMcons(Cnil,Cnil);
3901          goto T1582;          goto T1593;
3902  T1582:;  T1593:;
3903          base[20]= (V878->c.c_car);          base[20]= (V912->c.c_car);
3904          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3905          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
3906          vs_top=sup;          vs_top=sup;
3907          V880= vs_base[0];          V914= vs_base[0];
3908          (V877->c.c_car)= list(2,V880,VV[61]);          (V911->c.c_car)= list(2,V914,VV[61]);
3909          if((V878=MMcdr(V878))==Cnil){          if((V912=MMcdr(V912))==Cnil){
3910          V876= base[19];          V910= base[19];
3911          goto T1581;}          goto T1592;}
3912          V877=MMcdr(V877)=MMcons(Cnil,Cnil);          V911=MMcdr(V911)=MMcons(Cnil,Cnil);
3913          goto T1582;}          goto T1593;}
3914          goto T1581;          goto T1592;
3915  T1581:;  T1592:;
3916          V860= listA(3,VV[73],/* INLINE-ARGS */V875,V876);          V894= listA(3,VV[73],/* INLINE-ARGS */V909,V910);
3917          {object V881;          {object V915;
3918          object V882= (V823);          object V916= (V857);
3919          if(V882==Cnil){          if(V916==Cnil){
3920          V861= Cnil;          V895= Cnil;
3921          goto T1586;}          goto T1597;}
3922          base[19]=V881=MMcons(Cnil,Cnil);          base[19]=V915=MMcons(Cnil,Cnil);
3923          goto T1587;          goto T1598;
3924  T1587:;  T1598:;
3925          base[21]= Cnil;          base[21]= Cnil;
3926          base[22]= VV[79];          base[22]= VV[79];
3927          base[23]= (V858);          base[23]= (V892);
3928          base[25]= (V882->c.c_car);          base[25]= (V916->c.c_car);
3929          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
3930          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
3931          vs_top=sup;          vs_top=sup;
3932          base[24]= vs_base[0];          base[24]= vs_base[0];
3933          vs_top=(vs_base=base+21)+4;          vs_top=(vs_base=base+21)+4;
# Line 3864  T1587:; Line 3937  T1587:;
3937          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3938          Lintern();          Lintern();
3939          vs_top=sup;          vs_top=sup;
3940          (V881->c.c_car)= vs_base[0];          (V915->c.c_car)= vs_base[0];
3941          if((V882=MMcdr(V882))==Cnil){          if((V916=MMcdr(V916))==Cnil){
3942          V861= base[19];          V895= base[19];
3943          goto T1586;}          goto T1597;}
3944          V881=MMcdr(V881)=MMcons(Cnil,Cnil);          V915=MMcdr(V915)=MMcons(Cnil,Cnil);
3945          goto T1587;}          goto T1598;}
3946          goto T1586;          goto T1597;
3947  T1586:;  T1597:;
3948          {object V884;          {object V918;
3949          object V885= (V823);          object V919= (V857);
3950          if(V885==Cnil){          if(V919==Cnil){
3951          V862= Cnil;          V896= Cnil;
3952          goto T1595;}          goto T1606;}
3953          base[19]=V884=MMcons(Cnil,Cnil);          base[19]=V918=MMcons(Cnil,Cnil);
3954          goto T1596;          goto T1607;
3955  T1596:;  T1607:;
3956          base[21]= Cnil;          base[21]= Cnil;
3957          base[22]= VV[80];          base[22]= VV[80];
3958          base[23]= (V858);          base[23]= (V892);
3959          base[25]= (V885->c.c_car);          base[25]= (V919->c.c_car);
3960          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
3961          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
3962          vs_top=sup;          vs_top=sup;
3963          base[24]= vs_base[0];          base[24]= vs_base[0];
3964          vs_top=(vs_base=base+21)+4;          vs_top=(vs_base=base+21)+4;
# Line 3895  T1596:; Line 3968  T1596:;
3968          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3969          Lintern();          Lintern();
3970          vs_top=sup;          vs_top=sup;
3971          (V884->c.c_car)= vs_base[0];          (V918->c.c_car)= vs_base[0];
3972          if((V885=MMcdr(V885))==Cnil){          if((V919=MMcdr(V919))==Cnil){
3973          V862= base[19];          V896= base[19];
3974          goto T1595;}          goto T1606;}
3975          V884=MMcdr(V884)=MMcons(Cnil,Cnil);          V918=MMcdr(V918)=MMcons(Cnil,Cnil);
3976          goto T1596;}          goto T1607;}
3977          goto T1595;          goto T1606;
3978  T1595:;  T1606:;
3979          {object V887;          {object V921;
3980          object V888= (V823);          object V922= (V857);
3981          object V889= (V861);          object V923= (V895);
3982          if(V888==Cnil||V889==Cnil){          if(V922==Cnil||V923==Cnil){
3983          V863= Cnil;          V897= Cnil;
3984          goto T1604;}          goto T1615;}
3985          base[19]=V887=MMcons(Cnil,Cnil);          base[19]=V921=MMcons(Cnil,Cnil);
3986          goto T1605;          goto T1616;
3987  T1605:;  T1616:;
3988          {object V892;          {object V926;
3989          base[20]= (V888->c.c_car);          base[20]= (V922->c.c_car);
3990          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3991          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk249)(Lclptr249);
3992          vs_top=sup;          vs_top=sup;
3993          V892= vs_base[0];          V926= vs_base[0];
3994          V893= list(2,VV[83],list(3,VV[84],(V840),VV[85]));          V927= list(2,VV[83],list(3,VV[84],(V874),VV[85]));
3995          (V887->c.c_car)= list(5,VV[81],(V889->c.c_car),VV[82],/* INLINE-ARGS */V893,list(2,(V892),VV[85]));}          (V921->c.c_car)= list(5,VV[81],(V923->c.c_car),VV[82],/* INLINE-ARGS */V927,list(2,(V926),VV[85]));}
3996          if((V888=MMcdr(V888))==Cnil||(V889=MMcdr(V889))==Cnil){          if((V922=MMcdr(V922))==Cnil||(V923=MMcdr(V923))==Cnil){
3997          V863= base[19];          V897= base[19];
3998          goto T1604;}          goto T1615;}
3999          V887=MMcdr(V887)=MMcons(Cnil,Cnil);          V921=MMcdr(V921)=MMcons(Cnil,Cnil);
4000          goto T1605;}          goto T1616;}
4001          goto T1604;          goto T1615;
4002  T1604:;  T1615:;
4003          {object V894;          {object V928;
4004          object V895= (V823);          object V929= (V857);
4005          object V896= (V862);          object V930= (V896);
4006          if(V895==Cnil||V896==Cnil){          if(V929==Cnil||V930==Cnil){
4007          V864= Cnil;          V898= Cnil;
4008          goto T1609;}          goto T1620;}
4009          base[19]=V894=MMcons(Cnil,Cnil);          base[19]=V928=MMcons(Cnil,Cnil);
4010          goto T1610;          goto T1621;
4011  T1610:;  T1621:;
4012          {object V899;          {object V933;
4013          base[20]= (V895->c.c_car);          base[20]= (V929->c.c_car);
4014          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
4015          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk249)(Lclptr249);
4016          vs_top=sup;          vs_top=sup;
4017          V899= vs_base[0];          V933= vs_base[0];
4018          V900= list(2,VV[83],list(3,VV[84],(V840),VV[85]));          V934= list(2,VV[83],list(3,VV[84],(V874),VV[85]));
4019          (V894->c.c_car)= list(5,VV[81],(V896->c.c_car),VV[86],/* INLINE-ARGS */V900,list(3,VV[87],list(2,(V899),VV[85]),VV[88]));}          (V928->c.c_car)= list(5,VV[81],(V930->c.c_car),VV[86],/* INLINE-ARGS */V934,list(3,VV[87],list(2,(V933),VV[85]),VV[88]));}
4020          if((V895=MMcdr(V895))==Cnil||(V896=MMcdr(V896))==Cnil){          if((V929=MMcdr(V929))==Cnil||(V930=MMcdr(V930))==Cnil){
4021          V864= base[19];          V898= base[19];
4022          goto T1609;}          goto T1620;}
4023          V894=MMcdr(V894)=MMcons(Cnil,Cnil);          V928=MMcdr(V928)=MMcons(Cnil,Cnil);
4024          goto T1610;}          goto T1621;}
4025          goto T1609;          goto T1620;
4026  T1609:;  T1620:;
4027          V901 = (V860);          V935 = (V894);
4028          base[19]= (V863);          base[19]= (V897);
4029          base[20]= (V864);          base[20]= (V898);
4030          V903= listA(3,VV[90],list(2,VV[91],(V840)),VV[92]);          V937= listA(3,VV[90],list(2,VV[91],(V874)),VV[92]);
4031          base[21]= make_cons(/* INLINE-ARGS */V903,Cnil);          base[21]= make_cons(/* INLINE-ARGS */V937,Cnil);
4032          vs_top=(vs_base=base+19)+3;          vs_top=(vs_base=base+19)+3;
4033          Lappend();          Lappend();
4034          vs_top=sup;          vs_top=sup;
4035          V902= vs_base[0];          V936= vs_base[0];
4036          V865= listA(3,VV[89],V901,V902);          V899= listA(3,VV[89],V935,V936);
4037          if(((*(LnkLI254))((V840)))!=Cnil){          if(((*(LnkLI248))((V874)))!=Cnil){
4038          goto T1619;}          goto T1630;}
4039          base[19]= (V865);          base[19]= (V899);
4040          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
4041          Leval();          Leval();
4042          vs_top=sup;          vs_top=sup;
4043          goto T1619;          goto T1630;
4044  T1619:;  T1630:;
4045          {          {
4046          object V904= (V823);          object V938= (V857);
4047          object V905= (V861);          object V939= (V895);
4048          object V906= (V862);          object V940= (V896);
4049          if(V904==Cnil||V905==Cnil||V906==Cnil){          if(V938==Cnil||V939==Cnil||V940==Cnil){
4050          goto T1623;}          goto T1634;}
4051          goto T1624;          goto T1635;
4052  T1624:;  T1635:;
4053          {object V910;          {object V944;
4054          object V911;          object V945;
4055          V910= (*(LnkLI183))((V905->c.c_car));          V944= (*(LnkLI180))((V939->c.c_car));
4056          if(((*(LnkLI256))((V906->c.c_car)))==Cnil){          if(((*(LnkLI250))((V940->c.c_car)))==Cnil){
4057          goto T1629;}          goto T1640;}
4058          V911= (*(LnkLI183))((V906->c.c_car));          V945= (*(LnkLI180))((V940->c.c_car));
4059          goto T1627;          goto T1638;
4060          goto T1629;          goto T1640;
4061  T1629:;  T1640:;
4062          V911= Cnil;          V945= Cnil;
4063          goto T1627;          goto T1638;
4064  T1627:;  T1638:;
4065          base[21]= (V910);          base[21]= (V944);
4066          base[22]= (V904->c.c_car);          base[22]= (V938->c.c_car);
4067          vs_top=(vs_base=base+21)+2;          vs_top=(vs_base=base+21)+2;
4068          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk251)(Lclptr251);
4069          vs_top=sup;          vs_top=sup;
4070          base[21]= (V911);          base[21]= (V945);
4071          base[22]= (V904->c.c_car);          base[22]= (V938->c.c_car);
4072          vs_top=(vs_base=base+21)+2;          vs_top=(vs_base=base+21)+2;
4073          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk252)(Lclptr252);
4074          vs_top=sup;}          vs_top=sup;}
4075          if((V904=MMcdr(V904))==Cnil||(V905=MMcdr(V905))==Cnil||(V906=MMcdr(V906))==Cnil){          if((V938=MMcdr(V938))==Cnil||(V939=MMcdr(V939))==Cnil||(V940=MMcdr(V940))==Cnil){
4076          goto T1623;}          goto T1634;}
4077          goto T1624;}          goto T1635;}
4078          goto T1623;          goto T1634;
4079  T1623:;  T1634:;
4080          {object V913;          {object V947;
4081          V913= ((V828))->v.v_self[3];          V947= ((V862))->v.v_self[3];
4082          if(!(type_of(V913)==t_fixnum)){          if(!(type_of(V947)==t_fixnum)){
4083          goto T1639;}          goto T1650;}
4084          (void)(((V830))->v.v_self[fix((V913))]= (V865));          (void)(((V864))->v.v_self[fix((V947))]= (V899));
4085          goto T1636;          goto T1647;
4086          goto T1639;          goto T1650;
4087  T1639:;  T1650:;
4088          base[19]= V865;          base[19]= V899;
4089          base[20]= (V814);          base[20]= (V848);
4090          vs_top=(vs_base=base+19)+2;          vs_top=(vs_base=base+19)+2;
4091          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk253)(Lclptr253);
4092          vs_top=sup;}          vs_top=sup;}
4093          goto T1636;          goto T1647;
4094  T1636:;  T1647:;
4095          {object V916;          {object V950;
4096          V916= ((V828))->v.v_self[2];          V950= ((V862))->v.v_self[2];
4097          if(!(type_of(V916)==t_fixnum)){          if(!(type_of(V950)==t_fixnum)){
4098          goto T1645;}          goto T1656;}
4099          (void)(((V830))->v.v_self[fix((V916))]= (V859));          (void)(((V864))->v.v_self[fix((V950))]= (V893));
4100          goto T1494;          goto T1505;
4101          goto T1645;          goto T1656;
4102  T1645:;  T1656:;
4103          base[19]= V859;          base[19]= V893;
4104          base[20]= (V814);          base[20]= (V848);
4105          vs_top=(vs_base=base+19)+2;          vs_top=(vs_base=base+19)+2;
4106          (void) (*Lnk260)(Lclptr260);          (void) (*Lnk254)(Lclptr254);
4107          vs_top=sup;}}}          vs_top=sup;}}}
4108          goto T1494;          goto T1505;
4109  T1494:;  T1505:;
4110          (void)((*(LnkLI241))((V814),(V820)));          (void)((*(LnkLI235))((V848),(V854)));
4111          {object V918;          {object V952;
4112          base[7]= (V814);          base[7]= (V848);
4113          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4114          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk255)(Lclptr255);
4115          vs_top=sup;          vs_top=sup;
4116          V918= vs_base[0];          V952= vs_base[0];
4117          {object V919;          {object V953;
4118          V919= ((V828))->v.v_self[1];          V953= ((V862))->v.v_self[1];
4119          if(!(type_of(V919)==t_fixnum)){          if(!(type_of(V953)==t_fixnum)){
4120          goto T1655;}          goto T1666;}
4121          (void)(((V830))->v.v_self[fix((V919))]= ((V918)));          (void)(((V864))->v.v_self[fix((V953))]= ((V952)));
4122          goto T1650;          goto T1661;
4123          goto T1655;          goto T1666;
4124  T1655:;  T1666:;
4125          base[7]= (V918);          base[7]= (V952);
4126          base[8]= (V814);          base[8]= (V848);
4127          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4128          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk98)(Lclptr98);
4129          vs_top=sup;}}          vs_top=sup;}}
4130          goto T1650;          goto T1661;
4131  T1650:;  T1661:;
4132          {object V921;          {object V955;
4133          base[7]= (V814);          base[7]= (V848);
4134          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4135          (void) (*Lnk262)(Lclptr262);          (void) (*Lnk256)(Lclptr256);
4136          vs_top=sup;          vs_top=sup;
4137          V921= vs_base[0];          V955= vs_base[0];
4138          {object V922;          {object V956;
4139          V922= ((V828))->v.v_self[8];          V956= ((V862))->v.v_self[8];
4140          if(!(type_of(V922)==t_fixnum)){          if(!(type_of(V956)==t_fixnum)){
         goto T1664;}  
         (void)(((V830))->v.v_self[fix((V922))]= ((V921)));  
         goto T1659;  
         goto T1664;  
 T1664:;  
         base[7]= (V921);  
         base[8]= (V814);  
         vs_top=(vs_base=base+7)+2;  
         (void) (*Lnk102)(Lclptr102);  
         vs_top=sup;}}  
         goto T1659;  
 T1659:;  
         {register object V924;  
         V924= ((V828))->v.v_self[9];  
         if(!(type_of(V924)==t_fixnum)){  
4141          goto T1675;}          goto T1675;}
4142          V924= ((V830))->v.v_self[fix((V924))];          (void)(((V864))->v.v_self[fix((V956))]= ((V955)));
4143          goto T1673;          goto T1670;
4144          goto T1675;          goto T1675;
4145  T1675:;  T1675:;
4146          V924= VV[3];          base[7]= (V955);
4147          goto T1673;          base[8]= (V848);
4148  T1673:;          vs_top=(vs_base=base+7)+2;
4149          if(!(((V924))==(VV[3]))){          (void) (*Lnk102)(Lclptr102);
4150          goto T1678;}          vs_top=sup;}}
         base[7]= (V814);  
         vs_top=(vs_base=base+7)+1;  
         (void) (*Lnk199)(Lclptr199);  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T1668;}  
         goto T1670;  
         goto T1678;  
 T1678:;  
         if(((V924))!=Cnil){  
         goto T1668;}}  
4151          goto T1670;          goto T1670;
4152  T1670:;  T1670:;
4153          {object V926;          {register object V958;
4154          V926= (VFUN_NARGS=2,(*(LnkLI263))(small_fixnum(0),(V814)));          V958= ((V862))->v.v_self[9];
4155          {object V927;          if(!(type_of(V958)==t_fixnum)){
4156          V927= ((V828))->v.v_self[9];          goto T1686;}
4157          if(!(type_of(V927)==t_fixnum)){          V958= ((V864))->v.v_self[fix((V958))];
4158          goto T1684;}          goto T1684;
4159          (void)(((V830))->v.v_self[fix((V927))]= ((V926)));          goto T1686;
4160          goto T1668;  T1686:;
4161            V958= VV[3];
4162          goto T1684;          goto T1684;
4163  T1684:;  T1684:;
4164          base[7]= (V926);          if(!(((V958))==(VV[3]))){
4165          base[8]= (V814);          goto T1689;}
4166            base[7]= (V848);
4167            vs_top=(vs_base=base+7)+1;
4168            (void) (*Lnk194)(Lclptr194);
4169            vs_top=sup;
4170            if((vs_base[0])!=Cnil){
4171            goto T1679;}
4172            goto T1681;
4173            goto T1689;
4174    T1689:;
4175            if(((V958))!=Cnil){
4176            goto T1679;}}
4177            goto T1681;
4178    T1681:;
4179            {object V960;
4180            V960= (VFUN_NARGS=2,(*(LnkLI257))(small_fixnum(0),(V848)));
4181            {object V961;
4182            V961= ((V862))->v.v_self[9];
4183            if(!(type_of(V961)==t_fixnum)){
4184            goto T1695;}
4185            (void)(((V864))->v.v_self[fix((V961))]= ((V960)));
4186            goto T1679;
4187            goto T1695;
4188    T1695:;
4189            base[7]= (V960);
4190            base[8]= (V848);
4191          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4192          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
4193          vs_top=sup;}}          vs_top=sup;}}
4194          goto T1668;          goto T1679;
4195  T1668:;  T1679:;
4196          (void)((*(LnkLI264))((V814)));          (void)((*(LnkLI258))((V848)));
4197          if((V825)==Cnil){          if((V859)==Cnil){
4198          goto T1692;}          goto T1703;}
4199          {object V929;          {object V963;
4200          V929= CMPcar((V827));          V963= CMPcar((V861));
4201          {object V930;          {object V964;
4202          V930= ((V828))->v.v_self[7];          V964= ((V862))->v.v_self[7];
4203          if(!(type_of(V930)==t_fixnum)){          if(!(type_of(V964)==t_fixnum)){
4204          goto T1697;}          goto T1708;}
4205          V827= ((V830))->v.v_self[fix((V930))]= ((V929));          V861= ((V864))->v.v_self[fix((V964))]= ((V963));
4206          goto T1690;          goto T1701;
4207          goto T1697;          goto T1708;
4208  T1697:;  T1708:;
4209          base[7]= (V929);          base[7]= (V963);
4210          base[8]= (V814);          base[8]= (V848);
4211          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4212          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk231)(Lclptr231);
4213          vs_top=sup;          vs_top=sup;
4214          V827= vs_base[0];          V861= vs_base[0];
4215          goto T1690;}}          goto T1701;}}
4216          goto T1692;          goto T1703;
4217  T1692:;  T1703:;
4218          {object V932;          {object V966;
4219          {register object V933;          {register object V967;
4220          V933= ((V828))->v.v_self[7];          V967= ((V862))->v.v_self[7];
4221          if(!(type_of(V933)==t_fixnum)){          if(!(type_of(V967)==t_fixnum)){
4222          goto T1706;}          goto T1717;}
4223          V933= ((V830))->v.v_self[fix((V933))];          V967= ((V864))->v.v_self[fix((V967))];
4224          goto T1704;          goto T1715;
4225          goto T1706;          goto T1717;
4226  T1706:;  T1717:;
4227          V933= VV[3];          V967= VV[3];
4228          goto T1704;          goto T1715;
4229  T1704:;  T1715:;
4230          if(!(((V933))==(VV[3]))){          if(!(((V967))==(VV[3]))){
4231          goto T1709;}          goto T1720;}
4232          base[7]= (V814);          base[7]= (V848);
4233          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4234          (void) (*Lnk238)(Lclptr238);          (void) (*Lnk232)(Lclptr232);
4235          vs_top=sup;          vs_top=sup;
4236          V932= vs_base[0];          V966= vs_base[0];
4237          goto T1701;          goto T1712;
4238          goto T1709;          goto T1720;
4239  T1709:;  T1720:;
4240          V932= (V933);}          V966= (V967);}
4241            goto T1712;
4242    T1712:;
4243            if(((V966))==Cnil){
4244            goto T1724;}
4245            V861= (V966);
4246          goto T1701;          goto T1701;
4247  T1701:;          goto T1724;
4248          if(((V932))==Cnil){  T1724:;
4249          goto T1713;}          {object V969;
4250          V827= (V932);          base[8]= (V848);
         goto T1690;  
         goto T1713;  
 T1713:;  
         {object V935;  
         base[8]= (V814);  
4251          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
4252          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
4253          vs_top=sup;          vs_top=sup;
4254          base[7]= vs_base[0];          base[7]= vs_base[0];
4255          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4256          (void) (*Lnk240)();          (void) (*Lnk234)();
4257          vs_top=sup;          vs_top=sup;
4258          V935= vs_base[0];          V969= vs_base[0];
4259          {object V936;          {object V970;
4260          V936= ((V828))->v.v_self[7];          V970= ((V862))->v.v_self[7];
4261          if(!(type_of(V936)==t_fixnum)){          if(!(type_of(V970)==t_fixnum)){
4262          goto T1720;}          goto T1731;}
4263          V827= ((V830))->v.v_self[fix((V936))]= ((V935));          V861= ((V864))->v.v_self[fix((V970))]= ((V969));
4264          goto T1690;          goto T1701;
4265          goto T1720;          goto T1731;
4266  T1720:;  T1731:;
4267          base[7]= (V935);          base[7]= (V969);
4268          base[8]= (V814);          base[8]= (V848);
4269          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4270          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk231)(Lclptr231);
4271          vs_top=sup;          vs_top=sup;
4272          V827= vs_base[0];}}}          V861= vs_base[0];}}}
4273          goto T1690;          goto T1701;
4274  T1690:;  T1701:;
4275          (void)((*(LnkLI243))((V814),(V827)));          (void)((*(LnkLI237))((V848),(V861)));
4276          {object V938 = (*(LnkLI244))((V814),(V823));          {object V972 = (*(LnkLI238))((V848),(V857));
4277          VMR48(V938)}}}}          VMR48(V972)}}}}
4278          base[0]=base[0];          base[0]=base[0];
4279          return Cnil;          return Cnil;
4280  }  }
4281  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */
4282    
4283  static object LI52(V943,V944,V945,V946)  static object LI52(V977,V978,V979,V980)
4284    
4285  object V943;object V944;object V945;object V946;  object V977;object V978;object V979;object V980;
4286  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4287          goto TTL;          goto TTL;
4288  TTL:;  TTL:;
4289          {object V948 = (VFUN_NARGS=1,(*(LnkLI219))(VV[93]));          {object V982 = (VFUN_NARGS=1,(*(LnkLI214))(VV[93]));
4290          VMR49(V948)}          VMR49(V982)}
4291          return Cnil;          return Cnil;
4292  }  }
4293  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))   */  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))   */
4294    
4295  static object LI53(V952,V953,V954)  static object LI53(V986,V987,V988)
4296    
4297  object V952;object V953;object V954;  object V986;object V987;object V988;
4298  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4299          goto TTL;          goto TTL;
4300  TTL:;  TTL:;
4301          {object V956 = Cnil;          {object V990 = Cnil;
4302          VMR50(V956)}          VMR50(V990)}
4303          return Cnil;          return Cnil;
4304  }  }
4305  /*      local entry for function ADD-SLOT-ACCESSORS     */  /*      local entry for function ADD-SLOT-ACCESSORS     */
4306    
4307  static object LI54(V959,V960)  static object LI54(V993,V994)
4308    
4309  object V959;object V960;  object V993;object V994;
4310  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4311          goto TTL;          goto TTL;
4312  TTL:;  TTL:;
4313          {object V961 = (*(LnkLI265))((V959),(V960),VV[94]);          {object V995 = (*(LnkLI259))((V993),(V994),VV[94]);
4314          VMR51(V961)}          VMR51(V995)}
4315          return Cnil;          return Cnil;
4316  }  }
4317  /*      local entry for function REMOVE-SLOT-ACCESSORS  */  /*      local entry for function REMOVE-SLOT-ACCESSORS  */
4318    
4319  static object LI55(V964,V965)  static object LI55(V998,V999)
4320    
4321  object V964;object V965;  object V998;object V999;
4322  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4323          goto TTL;          goto TTL;
4324  TTL:;  TTL:;
4325          {object V966 = (*(LnkLI265))((V964),(V965),VV[95]);          {object V1000 = (*(LnkLI259))((V998),(V999),VV[95]);
4326          VMR52(V966)}          VMR52(V1000)}
4327          return Cnil;          return Cnil;
4328  }  }
4329  /*      local entry for function FIX-SLOT-ACCESSORS     */  /*      local entry for function FIX-SLOT-ACCESSORS     */
4330    
4331  static object LI58(V970,V971,V972)  static object LI58(V1004,V1005,V1006)
4332    
4333  object V970;object V971;object V972;  object V1004;object V1005;object V1006;
4334  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
4335          goto TTL;          goto TTL;
4336  TTL:;  TTL:;
4337          base[0]= (V972);          base[0]= (V1006);
4338          base[1]= (V970);          base[1]= (V1004);
4339          {register object V973;          {register object V1007;
4340          object V974;          object V1008;
4341          V973= (V971);          V1007= (V1005);
4342          V974= CMPcar((V973));          V1008= CMPcar((V1007));
4343          goto T1734;          goto T1745;
4344  T1734:;  T1745:;
4345          if(!(((V973))==Cnil)){          if(!(((V1007))==Cnil)){
4346          goto T1735;}          goto T1746;}
4347          {object V975 = Cnil;          {object V1009 = Cnil;
4348          VMR53(V975)}          VMR53(V1009)}
4349          goto T1735;          goto T1746;
4350  T1735:;  T1746:;
4351          {register object V976;          {register object V1010;
4352          base[3]= (V974);          base[3]= (V1008);
4353          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4354          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
4355          vs_top=sup;          vs_top=sup;
4356          V976= vs_base[0];          V1010= vs_base[0];
4357          {register object V977;          {register object V1011;
4358          register object V978;          register object V1012;
4359          base[5]= (V974);          base[5]= (V1008);
4360          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4361          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk260)(Lclptr260);
4362          vs_top=sup;          vs_top=sup;
4363          V977= vs_base[0];          V1011= vs_base[0];
4364          V978= CMPcar((V977));          V1012= CMPcar((V1011));
4365          goto T1747;          goto T1758;
4366  T1747:;  T1758:;
4367          if(!(((V977))==Cnil)){          if(!(((V1011))==Cnil)){
4368          goto T1748;}          goto T1759;}
4369          goto T1742;          goto T1753;
4370          goto T1748;          goto T1759;
4371  T1748:;  T1759:;
4372          base[5]= (V978);          base[5]= (V1012);
4373          base[6]= (V976);          base[6]= (V1010);
4374          base[7]= VV[96];          base[7]= VV[96];
4375          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
4376          L59(base);          L59(base);
4377          vs_top=sup;          vs_top=sup;
4378          V977= CMPcdr((V977));          V1011= CMPcdr((V1011));
4379          V978= CMPcar((V977));          V1012= CMPcar((V1011));
4380          goto T1747;}          goto T1758;}
4381          goto T1742;          goto T1753;
4382  T1742:;  T1753:;
4383          {register object V979;          {register object V1013;
4384          register object V980;          register object V1014;
4385          base[5]= (V974);          base[5]= (V1008);
4386          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4387          (void) (*Lnk267)(Lclptr267);          (void) (*Lnk261)(Lclptr261);
4388          vs_top=sup;          vs_top=sup;
4389          V979= vs_base[0];          V1013= vs_base[0];
4390          V980= CMPcar((V979));          V1014= CMPcar((V1013));
4391          goto T1765;          goto T1776;
4392  T1765:;  T1776:;
4393          if(!(((V979))==Cnil)){          if(!(((V1013))==Cnil)){
4394          goto T1766;}          goto T1777;}
4395          goto T1739;          goto T1750;
4396          goto T1766;          goto T1777;
4397  T1766:;  T1777:;
4398          base[5]= (V980);          base[5]= (V1014);
4399          base[6]= (V976);          base[6]= (V1010);
4400          base[7]= VV[97];          base[7]= VV[97];
4401          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
4402          L59(base);          L59(base);
4403          vs_top=sup;          vs_top=sup;
4404          V979= CMPcdr((V979));          V1013= CMPcdr((V1013));
4405          V980= CMPcar((V979));          V1014= CMPcar((V1013));
4406          goto T1765;}}          goto T1776;}}
4407          goto T1739;          goto T1750;
4408  T1739:;  T1750:;
4409          V973= CMPcdr((V973));          V1007= CMPcdr((V1007));
4410          V974= CMPcar((V973));          V1008= CMPcar((V1007));
4411          goto T1734;}          goto T1745;}
4412          base[0]=base[0];          base[0]=base[0];
4413          return Cnil;          return Cnil;
4414  }  }
4415  /*      local entry for function ADD-DIRECT-SUBCLASSES  */  /*      local entry for function ADD-DIRECT-SUBCLASSES  */
4416    
4417  static object LI60(V983,V984)  static object LI60(V1017,V1018)
4418    
4419  register object V983;object V984;  register object V1017;object V1018;
4420  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
4421          goto TTL;          goto TTL;
4422  TTL:;  TTL:;
4423          {register object V985;          {register object V1019;
4424          register object V986;          register object V1020;
4425          V985= (V984);          V1019= (V1018);
4426          V986= CMPcar((V985));          V1020= CMPcar((V1019));
4427          goto T1787;          goto T1798;
4428  T1787:;  T1798:;
4429          if(!(((V985))==Cnil)){          if(!(((V1019))==Cnil)){
4430          goto T1788;}          goto T1799;}
4431          {object V987 = Cnil;          {object V1021 = Cnil;
4432          VMR54(V987)}          VMR54(V1021)}
4433          goto T1788;          goto T1799;
4434  T1788:;  T1799:;
4435          V989 = (V983);          V1023 = (V1017);
4436          base[1]= (V983);          base[1]= (V1017);
4437          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4438          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk262)(Lclptr262);
4439          vs_top=sup;          vs_top=sup;
4440          V990= vs_base[0];          V1024= vs_base[0];
4441          {register object x= V989,V988= V990;          {register object x= V1023,V1022= V1024;
4442          while(V988!=Cnil)          while(V1022!=Cnil)
4443          if(x==(V988->c.c_car)){          if(x==(V1022->c.c_car)){
4444          goto T1792;          goto T1803;
4445          }else V988=V988->c.c_cdr;}          }else V1022=V1022->c.c_cdr;}
4446          base[1]= (V986);          base[1]= (V1020);
4447          base[2]= (V983);          base[2]= (V1017);
4448          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4449          (void) (*Lnk269)(Lclptr269);          (void) (*Lnk263)(Lclptr263);
4450          vs_top=sup;          vs_top=sup;
4451          goto T1792;          goto T1803;
4452  T1792:;  T1803:;
4453          V985= CMPcdr((V985));          V1019= CMPcdr((V1019));
4454          V986= CMPcar((V985));          V1020= CMPcar((V1019));
4455          goto T1787;}          goto T1798;}
4456          base[0]=base[0];          base[0]=base[0];
4457          return Cnil;          return Cnil;
4458  }  }
4459  /*      local entry for function REMOVE-DIRECT-SUBCLASSES       */  /*      local entry for function REMOVE-DIRECT-SUBCLASSES       */
4460    
4461  static object LI61(V993,V994)  static object LI61(V1027,V1028)
4462    
4463  register object V993;object V994;  register object V1027;object V1028;
4464  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
4465          goto TTL;          goto TTL;
4466  TTL:;  TTL:;
4467          {object V995;          {object V1029;
4468          base[0]= (V993);          base[0]= (V1027);
4469          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4470          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk243)(Lclptr243);
4471          vs_top=sup;          vs_top=sup;
4472          V995= vs_base[0];          V1029= vs_base[0];
4473          {register object V996;          {register object V1030;
4474          register object V997;          register object V1031;
4475          base[2]= (V995);          base[2]= (V1029);
4476          base[3]= (V994);          base[3]= (V1028);
4477          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4478          (void) (*Lnk270)();          (void) (*Lnk264)();
4479          vs_top=sup;          vs_top=sup;
4480          V996= vs_base[0];          V1030= vs_base[0];
4481          V997= CMPcar((V996));          V1031= CMPcar((V1030));
4482          goto T1811;          goto T1822;
4483  T1811:;  T1822:;
4484          if(!(((V996))==Cnil)){          if(!(((V1030))==Cnil)){
4485          goto T1812;}          goto T1823;}
4486          {object V998 = Cnil;          {object V1032 = Cnil;
4487          VMR55(V998)}          VMR55(V1032)}
4488          goto T1812;          goto T1823;
4489  T1812:;  T1823:;
4490          base[2]= (V997);          base[2]= (V1031);
4491          base[3]= (V993);          base[3]= (V1027);
4492          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4493          (void) (*Lnk271)(Lclptr271);          (void) (*Lnk265)(Lclptr265);
4494          vs_top=sup;          vs_top=sup;
4495          V996= CMPcdr((V996));          V1030= CMPcdr((V1030));
4496          V997= CMPcar((V996));          V1031= CMPcar((V1030));
4497          goto T1811;}}          goto T1822;}}
4498          base[0]=base[0];          base[0]=base[0];
4499          return Cnil;          return Cnil;
4500  }  }
4501  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) */  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) */
4502    
4503  static object LI62(V1002,V1003,V1004)  static object LI62(V1036,V1037,V1038)
4504    
4505  object V1002;object V1003;object V1004;  object V1036;object V1037;object V1038;
4506  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
4507          goto TTL;          goto TTL;
4508  TTL:;  TTL:;
4509          {object V1006 = (*(LnkLI242))((V1004),Ct);          {object V1040 = (*(LnkLI236))((V1038),Ct);
4510          VMR56(V1006)}          VMR56(V1040)}
4511          return Cnil;          return Cnil;
4512  }  }
4513  /*      local entry for function CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P    */  /*      local entry for function CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P    */
4514    
4515  static object LI63(V1008)  static object LI63(V1042)
4516    
4517  object V1008;  object V1042;
4518  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
4519          goto TTL;          goto TTL;
4520  TTL:;{object V1009;  TTL:;{object V1043;
4521          base[0]= (V1008);          base[0]= (V1042);
4522          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4523          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk222)(Lclptr222);
4524          vs_top=sup;          vs_top=sup;
4525          V1009= vs_base[0];          V1043= vs_base[0];
4526          if(V1009==Cnil)goto T1827;          if(V1043==Cnil)goto T1838;
4527          {object V1010 = V1009;          {object V1044 = V1043;
4528          VMR57(V1010)}          VMR57(V1044)}
4529          goto T1827;          goto T1838;
4530  T1827:;}  T1838:;}
4531          base[0]= (VV[272]->s.s_gfdef);          base[0]= (VV[266]->s.s_gfdef);
4532          base[2]= (V1008);          base[2]= (V1042);
4533          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4534          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk243)(Lclptr243);
4535          vs_top=sup;          vs_top=sup;
4536          base[1]= vs_base[0];          base[1]= vs_base[0];
4537          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4538          (void) (*Lnk273)();          (void) (*Lnk267)();
4539          vs_top=sup;          vs_top=sup;
4540          {object V1011 = vs_base[0];          {object V1045 = vs_base[0];
4541          VMR57(V1011)}          VMR57(V1045)}
4542          base[0]=base[0];          base[0]=base[0];
4543          return Cnil;          return Cnil;
4544  }  }
4545  /*      local entry for function UPDATE-CLASS   */  /*      local entry for function UPDATE-CLASS   */
4546    
4547  static object LI64(V1014,V1015)  static object LI64(V1048,V1049)
4548    
4549  register object V1014;object V1015;  register object V1048;object V1049;
4550  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
4551          goto TTL;          goto TTL;
4552  TTL:;  TTL:;
4553          if(((V1015))!=Cnil){          if(((V1049))!=Cnil){
4554          goto T1834;}          goto T1845;}
4555          base[0]= (V1014);          base[0]= (V1048);
4556          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4557          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk268)(Lclptr268);
4558          vs_top=sup;          vs_top=sup;
4559          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4560          goto T1834;}          goto T1845;}
4561          if(((*(LnkLI272))((V1014)))!=Cnil){          if(((*(LnkLI266))((V1048)))!=Cnil){
4562          goto T1833;}          goto T1844;}
4563          goto T1834;          goto T1845;
4564  T1834:;  T1845:;
4565          V1016 = (V1014);          V1050 = (V1048);
4566          base[0]= (V1014);          base[0]= (V1048);
4567          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4568          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk255)(Lclptr255);
4569          vs_top=sup;          vs_top=sup;
4570          V1017= vs_base[0];          V1051= vs_base[0];
4571          (void)((*(LnkLI275))(V1016,V1017));          (void)((*(LnkLI269))(V1050,V1051));
4572          V1018 = (V1014);          V1052 = (V1048);
4573          base[0]= (V1014);          base[0]= (V1048);
4574          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4575          (void) (*Lnk262)(Lclptr262);          (void) (*Lnk256)(Lclptr256);
4576          vs_top=sup;          vs_top=sup;
4577          V1019= vs_base[0];          V1053= vs_base[0];
4578          (void)((*(LnkLI276))(V1018,V1019));          (void)((*(LnkLI270))(V1052,V1053));
4579          (void)((*(LnkLI277))((V1014)));          (void)((*(LnkLI271))((V1048)));
4580          V1020 = (V1014);          V1054 = (V1048);
4581          base[0]= (V1014);          base[0]= (V1048);
4582          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4583          (void) (*Lnk279)(Lclptr279);          (void) (*Lnk273)(Lclptr273);
4584          vs_top=sup;          vs_top=sup;
4585          V1021= vs_base[0];          V1055= vs_base[0];
4586          (void)((*(LnkLI278))(V1020,V1021));          (void)((*(LnkLI272))(V1054,V1055));
4587          base[0]= (V1014);          base[0]= (V1048);
4588          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4589          (void) (*Lnk280)();          (void) (*Lnk274)();
4590          vs_top=sup;          vs_top=sup;
4591          goto T1833;          goto T1844;
4592  T1833:;  T1844:;
4593          if(((V1015))!=Cnil){          if(((V1049))!=Cnil){
4594          goto T1853;}          goto T1864;}
4595          {register object V1022;          {register object V1056;
4596          register object V1023;          register object V1057;
4597          base[2]= (V1014);          base[2]= (V1048);
4598          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4599          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk262)(Lclptr262);
4600          vs_top=sup;          vs_top=sup;
4601          V1022= vs_base[0];          V1056= vs_base[0];
4602          V1023= CMPcar((V1022));          V1057= CMPcar((V1056));
4603          goto T1859;          goto T1870;
4604  T1859:;  T1870:;
4605          if(!(((V1022))==Cnil)){          if(!(((V1056))==Cnil)){
4606          goto T1860;}          goto T1871;}
4607          {object V1024 = Cnil;          {object V1058 = Cnil;
4608          VMR58(V1024)}          VMR58(V1058)}
4609          goto T1860;          goto T1871;
4610  T1860:;  T1871:;
4611          (void)((*(LnkLI242))((V1023),Cnil));          (void)((*(LnkLI236))((V1057),Cnil));
4612          V1022= CMPcdr((V1022));          V1056= CMPcdr((V1056));
4613          V1023= CMPcar((V1022));          V1057= CMPcar((V1056));
4614          goto T1859;}          goto T1870;}
4615          goto T1853;          goto T1864;
4616  T1853:;  T1864:;
4617          {object V1025 = Cnil;          {object V1059 = Cnil;
4618          VMR58(V1025)}          VMR58(V1059)}
4619          base[0]=base[0];          base[0]=base[0];
4620          return Cnil;          return Cnil;
4621  }  }
4622  /*      local entry for function UPDATE-CPL     */  /*      local entry for function UPDATE-CPL     */
4623    
4624  static object LI65(V1028,V1029)  static object LI65(V1062,V1063)
4625    
4626  register object V1028;object V1029;  register object V1062;object V1063;
4627  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
4628          goto TTL;          goto TTL;
4629  TTL:;  TTL:;
4630          base[0]= (V1028);          base[0]= (V1062);
4631          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4632          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk268)(Lclptr268);
4633          vs_top=sup;          vs_top=sup;
4634          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4635          goto T1870;}          goto T1881;}
4636          base[0]= (V1028);          base[0]= (V1062);
4637          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4638          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
4639          vs_top=sup;          vs_top=sup;
4640          V1030= vs_base[0];          V1064= vs_base[0];
4641          V1031 = (V1029);          V1065 = (V1063);
4642          if(equal(V1030,V1031)){          if(equal(V1064,V1065)){
4643          goto T1870;}          goto T1881;}
4644          (void)((*(LnkLI281))((V1028)));          (void)((*(LnkLI275))((V1062)));
4645          goto T1870;          goto T1881;
4646  T1870:;  T1881:;
4647          if(!((VV[98])->s.s_gfdef!=OBJNULL)){          if(!((VV[98])->s.s_gfdef!=OBJNULL)){
4648          goto T1880;}          goto T1891;}
4649          base[0]= (V1029);          base[0]= (V1063);
4650          base[1]= (V1028);          base[1]= (V1062);
4651          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4652          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk98)(Lclptr98);
4653          vs_top=sup;          vs_top=sup;
4654          goto T1878;          goto T1889;
4655          goto T1880;          goto T1891;
4656  T1880:;  T1891:;
4657          (void)((*(LnkLI283))(VV[98],VV[99]));          (void)((*(LnkLI277))(VV[98],VV[99]));
4658          goto T1878;          goto T1889;
4659  T1878:;  T1889:;
4660          {object V1032 = (*(LnkLI284))((V1029));          {object V1066 = (*(LnkLI278))((V1063));
4661          VMR59(V1032)}          VMR59(V1066)}
4662          base[0]=base[0];          base[0]=base[0];
4663          return Cnil;          return Cnil;
4664  }  }
4665  /*      local entry for function UPDATE-CLASS-CAN-PRECEDE-P     */  /*      local entry for function UPDATE-CLASS-CAN-PRECEDE-P     */
4666    
4667  static object LI66(V1034)  static object LI66(V1068)
4668    
4669  object V1034;  object V1068;
4670  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
4671          goto TTL;          goto TTL;
4672  TTL:;  TTL:;
4673          if(((V1034))==Cnil){          if(((V1068))==Cnil){
4674          goto T1885;}          goto T1896;}
4675          {object V1035;          {object V1069;
4676          V1035= CMPcar((V1034));          V1069= CMPcar((V1068));
4677          {register object V1036;          {register object V1070;
4678          register object V1037;          register object V1071;
4679          V1036= CMPcdr((V1034));          V1070= CMPcdr((V1068));
4680          V1037= CMPcar((V1036));          V1071= CMPcar((V1070));
4681          goto T1892;          goto T1903;
4682  T1892:;  T1903:;
4683          if(!(((V1036))==Cnil)){          if(!(((V1070))==Cnil)){
4684          goto T1893;}          goto T1904;}
4685          goto T1887;          goto T1898;
4686          goto T1893;          goto T1904;
4687  T1893:;  T1904:;
4688          {register object V1038;          {register object V1072;
4689          register object V1039;          register object V1073;
4690          register object V1040;          register object V1074;
4691          register object V1041;          register object V1075;
4692          V1038= (V1037);          V1072= (V1071);
4693          V1039= (V1035);          V1073= (V1069);
4694          V1040= VV[100];          V1074= VV[100];
4695          base[3]= (V1038);          base[3]= (V1072);
4696          base[5]= (V1039);          base[5]= (V1073);
4697          base[6]= (V1040);          base[6]= (V1074);
4698          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4699          (void) (*Lnk285)();          (void) (*Lnk279)();
4700          vs_top=sup;          vs_top=sup;
4701          base[4]= vs_base[0];          base[4]= vs_base[0];
4702          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4703          Ladjoin();          Ladjoin();
4704          vs_top=sup;          vs_top=sup;
4705          V1041= vs_base[0];          V1075= vs_base[0];
4706          base[3]= (V1039);          base[3]= (V1073);
4707          base[4]= (V1040);          base[4]= (V1074);
4708          base[5]= (V1041);          base[5]= (V1075);
4709          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4710          (void) (*Lnk286)();          (void) (*Lnk280)();
4711          vs_top=sup;}          vs_top=sup;}
4712          V1036= CMPcdr((V1036));          V1070= CMPcdr((V1070));
4713          V1037= CMPcar((V1036));          V1071= CMPcar((V1070));
4714          goto T1892;}}          goto T1903;}}
4715          goto T1887;          goto T1898;
4716  T1887:;  T1898:;
4717          V1034= CMPcdr((V1034));          V1068= CMPcdr((V1068));
4718          goto TTL;          goto TTL;
4719          goto T1885;          goto T1896;
4720  T1885:;  T1896:;
4721          {object V1042 = Cnil;          {object V1076 = Cnil;
4722          VMR60(V1042)}          VMR60(V1076)}
4723          base[0]=base[0];          base[0]=base[0];
4724          return Cnil;          return Cnil;
4725  }  }
4726  /*      local entry for function CLASS-CAN-PRECEDE-P    */  /*      local entry for function CLASS-CAN-PRECEDE-P    */
4727    
4728  static object LI67(V1045,V1046)  static object LI67(V1079,V1080)
4729    
4730  object V1045;object V1046;  object V1079;object V1080;
4731  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
4732          goto TTL;          goto TTL;
4733  TTL:;  TTL:;
4734          V1048 = (V1046);          V1082 = (V1080);
4735          base[0]= (V1045);          base[0]= (V1079);
4736          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4737          (void) (*Lnk287)(Lclptr287);          (void) (*Lnk281)(Lclptr281);
4738          vs_top=sup;          vs_top=sup;
4739          V1049= vs_base[0];          V1083= vs_base[0];
4740          {register object x= V1048,V1047= V1049;          {register object x= V1082,V1081= V1083;
4741          while(V1047!=Cnil)          while(V1081!=Cnil)
4742          if(eql(x,V1047->c.c_car)){          if(eql(x,V1081->c.c_car)){
4743          {object V1050 = V1047;          {object V1084 = V1081;
4744          VMR61(V1050)}          VMR61(V1084)}
4745          }else V1047=V1047->c.c_cdr;          }else V1081=V1081->c.c_cdr;
4746          {object V1051 = Cnil;          {object V1085 = Cnil;
4747          VMR61(V1051)}}          VMR61(V1085)}}
4748          base[0]=base[0];          base[0]=base[0];
4749          return Cnil;          return Cnil;
4750  }  }
4751  /*      local entry for function UPDATE-SLOTS   */  /*      local entry for function UPDATE-SLOTS   */
4752    
4753  static object LI68(V1054,V1055)  static object LI68(V1088,V1089)
4754    
4755  object V1054;object V1055;  object V1088;object V1089;
4756  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
4757          goto TTL;          goto TTL;
4758  TTL:;  TTL:;
4759          {register object V1056;          {register object V1090;
4760          register object V1057;          register object V1091;
4761          V1056= Cnil;          V1090= Cnil;
4762          V1057= Cnil;          V1091= Cnil;
4763          {register object V1058;          {register object V1092;
4764          register object V1059;          register object V1093;
4765          V1058= (V1055);          V1092= (V1089);
4766          V1059= CMPcar((V1058));          V1093= CMPcar((V1092));
4767          goto T1922;          goto T1933;
4768  T1922:;  T1933:;
4769          if(!(((V1058))==Cnil)){          if(!(((V1092))==Cnil)){
4770          goto T1923;}          goto T1934;}
4771          goto T1918;          goto T1929;
4772          goto T1923;          goto T1934;
4773  T1923:;  T1934:;
4774          {register object V1060;          {register object V1094;
4775          base[1]= (V1059);          base[1]= (V1093);
4776          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4777          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
4778          vs_top=sup;          vs_top=sup;
4779          V1060= vs_base[0];          V1094= vs_base[0];
4780          if(!(((V1060))==(VV[19]))){          if(!(((V1094))==(VV[19]))){
4781          goto T1931;}          goto T1942;}
4782          V1056= make_cons(V1059,(V1056));          V1090= make_cons(V1093,(V1090));
4783          goto T1927;          goto T1938;
4784          goto T1931;          goto T1942;
4785  T1931:;  T1942:;
4786          base[1]= (V1060);          base[1]= (V1094);
4787          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4788          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk282)(Lclptr282);
4789          vs_top=sup;          vs_top=sup;
4790          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4791          goto T1927;}          goto T1938;}
4792          V1057= make_cons(V1059,(V1057));}          V1091= make_cons(V1093,(V1091));}
4793          goto T1927;          goto T1938;
4794  T1927:;  T1938:;
4795          V1058= CMPcdr((V1058));          V1092= CMPcdr((V1092));
4796          V1059= CMPcar((V1058));          V1093= CMPcar((V1092));
4797          goto T1922;}          goto T1933;}
4798          goto T1918;          goto T1929;
4799  T1918:;  T1929:;
4800          {object V1063;          {object V1097;
4801          object V1064;          object V1098;
4802          object V1065;          object V1099;
4803          object V1066;          object V1100;
4804          object V1067;          object V1101;
4805          object V1068;          object V1102;
4806          object V1069;          object V1103;
4807          base[8]=VV[236]->s.s_gfdef;          base[8]=VV[230]->s.s_gfdef;
4808          base[9]= (V1056);          base[9]= (V1090);
4809          base[10]= (VV[289]->s.s_gfdef);          base[10]= (VV[283]->s.s_gfdef);
4810          base[11]= VV[101];          base[11]= VV[101];
4811          base[12]= (VV[290]->s.s_gfdef);          base[12]= (VV[284]->s.s_gfdef);
4812          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
4813          (void) (*Lnk291)();          (void) (*Lnk285)();
4814          vs_top=sup;          vs_top=sup;
4815          V1072= vs_base[0];          V1106= vs_base[0];
4816          {object V1070;          {object V1104;
4817          object V1071= V1072;          object V1105= V1106;
4818          if(V1071==Cnil){          if(V1105==Cnil){
4819          V1063= Cnil;          V1097= Cnil;
4820          goto T1943;}          goto T1954;}
4821          base[7]=V1070=MMcons(Cnil,Cnil);          base[7]=V1104=MMcons(Cnil,Cnil);
4822          goto T1944;          goto T1955;
4823  T1944:;  T1955:;
4824          base[9]= (V1071->c.c_car);          base[9]= (V1105->c.c_car);
4825          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4826          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
4827          vs_top=sup;          vs_top=sup;
4828          (V1070->c.c_car)= vs_base[0];          (V1104->c.c_car)= vs_base[0];
4829          if((V1071=MMcdr(V1071))==Cnil){          if((V1105=MMcdr(V1105))==Cnil){
4830          V1063= base[7];          V1097= base[7];
4831          goto T1943;}          goto T1954;}
4832          V1070=MMcdr(V1070)=MMcons(Cnil,Cnil);          V1104=MMcdr(V1104)=MMcons(Cnil,Cnil);
4833          goto T1944;}          goto T1955;}
4834          goto T1943;          goto T1954;
4835  T1943:;  T1954:;
4836          V1064= CMPmake_fixnum((long)length((V1063)));          V1098= CMPmake_fixnum((long)length((V1097)));
4837          V1065= (*(LnkLI292))((V1057));          V1099= (*(LnkLI286))((V1091));
4838          base[7]= (V1054);          base[7]= (V1088);
4839          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4840          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk287)(Lclptr287);
4841          vs_top=sup;          vs_top=sup;
4842          V1066= vs_base[0];          V1100= vs_base[0];
4843          if((V1066)==Cnil){          if((V1100)==Cnil){
4844          V1067= Cnil;          V1101= Cnil;
4845          goto T1956;}          goto T1967;}
4846          V1067= ((V1066))->v.v_self[9];          V1101= ((V1100))->v.v_self[9];
4847          goto T1956;          goto T1967;
4848  T1956:;  T1967:;
4849          if((V1066)==Cnil){          if((V1100)==Cnil){
4850          V1068= Cnil;          V1102= Cnil;
4851          goto T1957;}          goto T1968;}
4852          V1068= ((V1066))->v.v_self[10];          V1102= ((V1100))->v.v_self[10];
4853          goto T1957;          goto T1968;
4854  T1957:;  T1968:;
4855          if(((V1066))!=Cnil){          if(((V1100))!=Cnil){
4856          goto T1960;}          goto T1971;}
4857          V1069= (VFUN_NARGS=2,(*(LnkLI263))((V1064),(V1054)));          V1103= (VFUN_NARGS=2,(*(LnkLI257))((V1098),(V1088)));
4858          goto T1958;          goto T1969;
4859          goto T1960;          goto T1971;
4860  T1960:;  T1971:;
4861          if(!(equal((V1063),(V1067)))){          if(!(equal((V1097),(V1101)))){
4862          goto T1963;}          goto T1974;}
4863          {register object V1073;          {register object V1107;
4864          object V1074;          object V1108;
4865          register object V1075;          register object V1109;
4866          object V1076;          object V1110;
4867          V1073= (V1068);          V1107= (V1102);
4868          V1074= Cnil;          V1108= Cnil;
4869          V1075= (V1065);          V1109= (V1099);
4870          V1076= Cnil;          V1110= Cnil;
4871          goto T1972;          goto T1983;
4872  T1972:;  T1983:;
4873          {object V1077;          {object V1111;
4874          if(!(((V1073))==Cnil)){          if(!(((V1107))==Cnil)){
4875          goto T1978;}          goto T1989;}
4876          goto T1966;          goto T1977;
4877          goto T1978;          goto T1989;
4878  T1978:;  T1989:;
4879          V1077= CMPcar((V1073));          V1111= CMPcar((V1107));
4880          V1073= CMPcdr((V1073));          V1107= CMPcdr((V1107));
4881          V1074= (V1077);}          V1108= (V1111);}
4882          {object V1078;          {object V1112;
4883          if(!(((V1075))==Cnil)){          if(!(((V1109))==Cnil)){
4884          goto T1986;}          goto T1997;}
4885          goto T1966;          goto T1977;
4886          goto T1986;          goto T1997;
4887  T1986:;  T1997:;
4888          V1078= CMPcar((V1075));          V1112= CMPcar((V1109));
4889          V1075= CMPcdr((V1075));          V1109= CMPcdr((V1109));
4890          V1076= (V1078);}          V1110= (V1112);}
4891          if((CMPcar((V1074)))==(CMPcar((V1076)))){          if((CMPcar((V1108)))==(CMPcar((V1110)))){
4892          goto T1973;}          goto T1984;}
4893          goto T1963;          goto T1974;
4894          goto T1973;          goto T1984;
4895  T1973:;  T1984:;
4896          goto T1972;}          goto T1983;}
4897          goto T1966;          goto T1977;
4898  T1966:;  T1977:;
4899          V1069= (V1066);          V1103= (V1100);
4900          goto T1958;          goto T1969;
4901          goto T1963;          goto T1974;
4902  T1963:;  T1974:;
4903          base[7]= (V1054);          base[7]= (V1088);
4904          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4905          (void) (*Lnk294)(Lclptr294);          (void) (*Lnk288)(Lclptr288);
4906          vs_top=sup;          vs_top=sup;
4907          base[7]= (V1054);          base[7]= (V1088);
4908          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4909          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk287)(Lclptr287);
4910          vs_top=sup;          vs_top=sup;
4911          V1069= vs_base[0];          V1103= vs_base[0];
4912          goto T1958;          goto T1969;
4913  T1958:;  T1969:;
4914          if(!((VV[102])->s.s_gfdef!=OBJNULL)){          if(!((VV[102])->s.s_gfdef!=OBJNULL)){
4915          goto T2000;}          goto T2011;}
4916          base[7]= (V1055);          base[7]= (V1089);
4917          base[8]= V1054;          base[8]= V1088;
4918          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4919          (void) (*Lnk102)(Lclptr102);          (void) (*Lnk102)(Lclptr102);
4920          vs_top=sup;          vs_top=sup;
4921          goto T1998;          goto T2009;
4922          goto T2000;          goto T2011;
4923  T2000:;  T2011:;
4924          (void)((*(LnkLI283))(VV[102],VV[103]));          (void)((*(LnkLI277))(VV[102],VV[103]));
4925          goto T1998;          goto T2009;
4926  T1998:;  T2009:;
4927          (void)(((V1069))->v.v_self[9]= ((V1063)));          (void)(((V1103))->v.v_self[9]= ((V1097)));
4928          (void)(((V1069))->v.v_self[10]= ((V1065)));          (void)(((V1103))->v.v_self[10]= ((V1099)));
4929          (void)(((V1069))->v.v_self[12]= ((V1064)));          (void)(((V1103))->v.v_self[12]= ((V1098)));
4930          if(!((VV[104])->s.s_gfdef!=OBJNULL)){          if(!((VV[104])->s.s_gfdef!=OBJNULL)){
4931          goto T2008;}          goto T2019;}
4932          base[7]= (V1069);          base[7]= (V1103);
4933          base[8]= V1054;          base[8]= V1088;
4934          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4935          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
4936          vs_top=sup;          vs_top=sup;
4937          goto T1996;          goto T2007;
4938          goto T2008;          goto T2019;
4939  T2008:;  T2019:;
4940          (void)((*(LnkLI283))(VV[104],VV[105]));          (void)((*(LnkLI277))(VV[104],VV[105]));
4941          goto T1996;          goto T2007;
4942  T1996:;  T2007:;
4943          if(((V1066))==((V1069))){          if(((V1100))==((V1103))){
4944          goto T2013;}          goto T2024;}
4945          {object V1080 = (*(LnkLI264))((V1054));          {object V1114 = (*(LnkLI258))((V1088));
4946          VMR62(V1080)}          VMR62(V1114)}
4947          goto T2013;          goto T2024;
4948  T2013:;  T2024:;
4949          {object V1081 = Cnil;          {object V1115 = Cnil;
4950          VMR62(V1081)}}}          VMR62(V1115)}}}
4951          base[0]=base[0];          base[0]=base[0];
4952          return Cnil;          return Cnil;
4953  }  }
4954  /*      local entry for function COMPUTE-CLASS-SLOTS    */  /*      local entry for function COMPUTE-CLASS-SLOTS    */
4955    
4956  static object LI69(V1083)  static object LI69(V1117)
4957    
4958  object V1083;  object V1117;
4959  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
4960          goto TTL;          goto TTL;
4961  TTL:;  TTL:;
4962          {register object V1084;          {register object V1118;
4963          register object V1085;          register object V1119;
4964          V1084= Cnil;          V1118= Cnil;
4965          V1085= Cnil;          V1119= Cnil;
4966          {register object V1086;          {register object V1120;
4967          register object V1087;          register object V1121;
4968          V1086= (V1083);          V1120= (V1117);
4969          V1087= CMPcar((V1086));          V1121= CMPcar((V1120));
4970          goto T2021;          goto T2032;
4971  T2021:;  T2032:;
4972          if(!(((V1086))==Cnil)){          if(!(((V1120))==Cnil)){
4973          goto T2022;}          goto T2033;}
4974          goto T2017;          goto T2028;
4975          goto T2022;          goto T2033;
4976  T2022:;  T2033:;
4977          {register object V1088;          {register object V1122;
4978          base[1]= (V1087);          base[1]= (V1121);
4979          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4980          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
4981          vs_top=sup;          vs_top=sup;
4982          V1090= vs_base[0];          V1124= vs_base[0];
4983          base[2]= (V1087);          base[2]= (V1121);
4984          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4985          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
4986          vs_top=sup;          vs_top=sup;
4987          base[1]= vs_base[0];          base[1]= vs_base[0];
4988          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4989          (void) (*Lnk31)(Lclptr31);          (void) (*Lnk31)(Lclptr31);
4990          vs_top=sup;          vs_top=sup;
4991          V1091= vs_base[0];          V1125= vs_base[0];
4992          {register object x= V1090,V1089= V1091;          {register object x= V1124,V1123= V1125;
4993          while(V1089!=Cnil)          while(V1123!=Cnil)
4994          if(eql(x,V1089->c.c_car->c.c_car) &&V1089->c.c_car != Cnil){          if(eql(x,V1123->c.c_car->c.c_car) &&V1123->c.c_car != Cnil){
4995          V1088= (V1089->c.c_car);          V1122= (V1123->c.c_car);
4996          goto T2027;          goto T2038;
4997          }else V1089=V1089->c.c_cdr;          }else V1123=V1123->c.c_cdr;
4998          V1088= Cnil;}          V1122= Cnil;}
4999          goto T2027;          goto T2038;
5000  T2027:;  T2038:;
5001          if(((V1084))!=Cnil){          if(((V1118))!=Cnil){
5002          goto T2034;}          goto T2045;}
5003          V1085= make_cons((V1088),Cnil);          V1119= make_cons((V1122),Cnil);
5004          V1084= (V1085);          V1118= (V1119);
5005          goto T2026;          goto T2037;
5006          goto T2034;          goto T2045;
5007  T2034:;  T2045:;
5008          V1093= make_cons((V1088),Cnil);          V1127= make_cons((V1122),Cnil);
5009          ((V1085))->c.c_cdr = /* INLINE-ARGS */V1093;          ((V1119))->c.c_cdr = /* INLINE-ARGS */V1127;
5010          V1092= (V1085);          V1126= (V1119);
5011          V1085= CMPcdr(V1092);}          V1119= CMPcdr(V1126);}
5012          goto T2026;          goto T2037;
5013  T2026:;  T2037:;
5014          V1086= CMPcdr((V1086));          V1120= CMPcdr((V1120));
5015          V1087= CMPcar((V1086));          V1121= CMPcar((V1120));
5016          goto T2021;}          goto T2032;}
5017          goto T2017;          goto T2028;
5018  T2017:;  T2028:;
5019          {object V1094 = (V1084);          {object V1128 = (V1118);
5020          VMR63(V1094)}}          VMR63(V1128)}}
5021          base[0]=base[0];          base[0]=base[0];
5022          return Cnil;          return Cnil;
5023  }  }
5024  /*      local entry for function COMPUTE-LAYOUT */  /*      local entry for function COMPUTE-LAYOUT */
5025    
5026  static object LI70(V1097,V1098)  static object LI70(V1131,V1132)
5027    
5028  object V1097;object V1098;  object V1131;object V1132;
5029  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
5030          goto TTL;          goto TTL;
5031  TTL:;  TTL:;
5032          {object V1099;          {object V1133;
5033          register object V1100;          register object V1134;
5034          V1099= Cnil;          V1133= Cnil;
5035          V1100= Cnil;          V1134= Cnil;
5036          {register object V1101;          {register object V1135;
5037          register object V1102;          register object V1136;
5038          V1101= (V1098);          V1135= (V1132);
5039          V1102= CMPcar((V1101));          V1136= CMPcar((V1135));
5040          goto T2052;          goto T2063;
5041  T2052:;  T2063:;
5042          if(!(((V1101))==Cnil)){          if(!(((V1135))==Cnil)){
5043          goto T2053;}          goto T2064;}
5044          goto T2048;          goto T2059;
5045          goto T2053;          goto T2064;
5046  T2053:;  T2064:;
5047          base[3]= (V1102);          base[3]= (V1136);
5048          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5049          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
5050          vs_top=sup;          vs_top=sup;
5051          V1103= vs_base[0];          V1137= vs_base[0];
5052          if(!((V1103)==(VV[19]))){          if(!((V1137)==(VV[19]))){
5053          goto T2057;}          goto T2068;}
5054          {register object V1104;          {register object V1138;
5055          base[3]= (V1102);          base[3]= (V1136);
5056          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5057          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
5058          vs_top=sup;          vs_top=sup;
5059          V1104= vs_base[0];          V1138= vs_base[0];
5060          if(((V1099))!=Cnil){          if(((V1133))!=Cnil){
5061          goto T2065;}          goto T2076;}
5062          V1100= make_cons((V1104),Cnil);          V1134= make_cons((V1138),Cnil);
5063          V1099= (V1100);          V1133= (V1134);
5064          goto T2057;          goto T2068;
5065          goto T2065;          goto T2076;
5066  T2065:;  T2076:;
5067          V1106= make_cons((V1104),Cnil);          V1140= make_cons((V1138),Cnil);
5068          ((V1100))->c.c_cdr = /* INLINE-ARGS */V1106;          ((V1134))->c.c_cdr = /* INLINE-ARGS */V1140;
5069          V1105= (V1100);          V1139= (V1134);
5070          V1100= CMPcdr(V1105);}          V1134= CMPcdr(V1139);}
5071          goto T2057;          goto T2068;
5072  T2057:;  T2068:;
5073          V1101= CMPcdr((V1101));          V1135= CMPcdr((V1135));
5074          V1102= CMPcar((V1101));          V1136= CMPcar((V1135));
5075          goto T2052;}          goto T2063;}
5076          goto T2048;          goto T2059;
5077  T2048:;  T2059:;
5078          base[0]= (V1099);}          base[0]= (V1133);}
5079          base[1]= Cnil;          base[1]= Cnil;
5080          base[3]= CMPcar((V1097));          base[3]= CMPcar((V1131));
5081          base[4]= VV[103];          base[4]= VV[103];
5082          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5083          (void) (*Lnk295)();          (void) (*Lnk289)();
5084          vs_top=sup;          vs_top=sup;
5085          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5086          goto T2079;}          goto T2090;}
5087          base[2]= (V1097);          base[2]= (V1131);
5088          goto T2077;          goto T2088;
5089          goto T2079;          goto T2090;
5090  T2079:;  T2090:;
5091          base[2]= CMPcdr((V1097));          base[2]= CMPcdr((V1131));
5092          goto T2077;          goto T2088;
5093  T2077:;  T2088:;
5094          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5095          L71(base);          L71(base);
5096          vs_top=sup;          vs_top=sup;
5097          V1107= append(base[0],base[1]);          V1141= append(base[0],base[1]);
5098          {object V1108 = reverse(/* INLINE-ARGS */V1107);          {object V1142 = reverse(/* INLINE-ARGS */V1141);
5099          VMR64(V1108)}          VMR64(V1142)}
5100          base[0]=base[0];          base[0]=base[0];
5101          return Cnil;          return Cnil;
5102  }  }
5103  /*      local entry for function UPDATE-GFS-OF-CLASS    */  /*      local entry for function UPDATE-GFS-OF-CLASS    */
5104    
5105  static object LI74(V1110)  static object LI74(V1144)
5106    
5107  object V1110;  object V1144;
5108  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
5109          goto TTL;          goto TTL;
5110  TTL:;  TTL:;
5111          base[0]=MMcons((V1110),Cnil);          base[0]=MMcons((V1144),Cnil);
5112          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5113          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5114          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk268)(Lclptr268);
5115          vs_top=sup;          vs_top=sup;
5116          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5117          goto T2084;}          goto T2095;}
5118          {object V1111;          {object V1145;
5119          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5120          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5121          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5122          vs_top=sup;          vs_top=sup;
5123          V1111= vs_base[0];{object V1112;          V1145= vs_base[0];{object V1146;
5124          {register object x= (VV[106]->s.s_dbind),V1113= (V1111);          {register object x= (VV[106]->s.s_dbind),V1147= (V1145);
5125          while(V1113!=Cnil)          while(V1147!=Cnil)
5126          if(eql(x,V1113->c.c_car)){          if(eql(x,V1147->c.c_car)){
5127          V1112= V1113;          V1146= V1147;
5128          goto T2092;          goto T2103;
5129          }else V1113=V1113->c.c_cdr;          }else V1147=V1147->c.c_cdr;
5130          V1112= Cnil;}          V1146= Cnil;}
5131          goto T2092;          goto T2103;
5132  T2092:;  T2103:;
5133          if(V1112==Cnil)goto T2091;          if(V1146==Cnil)goto T2102;
5134          if((V1112)==Cnil){          if((V1146)==Cnil){
5135          goto T2084;}          goto T2095;}
5136          goto T2088;          goto T2099;
5137          goto T2091;          goto T2102;
5138  T2091:;}  T2102:;}
5139          {register object x= (VV[107]->s.s_dbind),V1114= (V1111);          {register object x= (VV[107]->s.s_dbind),V1148= (V1145);
5140          while(V1114!=Cnil)          while(V1148!=Cnil)
5141          if(eql(x,V1114->c.c_car)){          if(eql(x,V1148->c.c_car)){
5142          goto T2088;          goto T2099;
5143          }else V1114=V1114->c.c_cdr;          }else V1148=V1148->c.c_cdr;
5144          goto T2084;}}          goto T2095;}}
5145          goto T2088;          goto T2099;
5146  T2088:;  T2099:;
5147          base[2]= VV[8];          base[2]= VV[8];
5148          base[3]= VV[9];          base[3]= VV[9];
5149          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 5087  T2088:; Line 5160  T2088:;
5160          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5161          Lmaphash();          Lmaphash();
5162          vs_top=sup;          vs_top=sup;
5163          {object V1115 = vs_base[0];          {object V1149 = vs_base[0];
5164          VMR65(V1115)}          VMR65(V1149)}
5165          goto T2084;          goto T2095;
5166  T2084:;  T2095:;
5167          {object V1116 = Cnil;          {object V1150 = Cnil;
5168          VMR65(V1116)}          VMR65(V1150)}
5169          base[0]=base[0];          base[0]=base[0];
5170          return Cnil;          return Cnil;
5171  }  }
5172  /*      local entry for function UPDATE-INITS   */  /*      local entry for function UPDATE-INITS   */
5173    
5174  static object LI76(V1119,V1120)  static object LI76(V1153,V1154)
5175    
5176  object V1119;object V1120;  object V1153;object V1154;
5177  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
5178          goto TTL;          goto TTL;
5179  TTL:;  TTL:;
5180          {object V1123 = (*(LnkLI194))((V1120),V1119,VV[29]);          base[0]= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
5181          VMR66(V1123)}          base[1]= V1154;
5182            base[2]= V1153;
5183            base[3]= VV[29];
5184            vs_top=(vs_base=base+1)+3;
5185            {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5186                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5187                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5188                   else super_funcall_no_event(_funobj);}
5189            vs_top=sup;
5190            {object V1158 = vs_base[0];
5191            VMR66(V1158)}
5192            base[0]=base[0];
5193          return Cnil;          return Cnil;
5194  }  }
5195  /*      local entry for function (FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))    */  /*      local entry for function (FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))    */
5196    
5197  static object LI79(V1127,V1128,V1129)  static object LI79(V1162,V1163,V1164)
5198    
5199  object V1127;object V1128;object V1129;  object V1162;object V1163;object V1164;
5200  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
5201          goto TTL;          goto TTL;
5202  TTL:;  TTL:;
5203          base[0]= (V1129);          base[0]= (V1164);
5204          {object V1131;          {object V1166;
5205          base[2]= base[0];          base[2]= base[0];
5206          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5207          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5208          vs_top=sup;          vs_top=sup;
5209          V1131= vs_base[0];          V1166= vs_base[0];
5210          base[2]= base[0];          base[2]= base[0];
5211          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5212          (void) (*Lnk296)(Lclptr296);          (void) (*Lnk290)(Lclptr290);
5213          vs_top=sup;          vs_top=sup;
5214          base[1]= vs_base[0];          base[1]= vs_base[0];
5215          {object V1132;          {object V1167;
5216          base[2]= (V1131);          base[2]= (V1166);
5217          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5218          L80(base);          L80(base);
5219          vs_top=sup;          vs_top=sup;
5220          V1132= vs_base[0];          V1167= vs_base[0];
5221          base[2]= (V1132);          base[2]= (V1167);
5222          base[3]= VV[8];          base[3]= VV[8];
5223          base[4]= (VV[9]->s.s_gfdef);          base[4]= (VV[9]->s.s_gfdef);
5224          base[5]= VV[101];          base[5]= VV[101];
5225          base[6]= (VV[297]->s.s_gfdef);          base[6]= (VV[291]->s.s_gfdef);
5226          base[7]= VV[108];          base[7]= VV[108];
5227          base[8]= Ct;          base[8]= Ct;
5228          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
5229          (void) (*Lnk298)();          (void) (*Lnk292)();
5230          vs_top=sup;          vs_top=sup;
5231          {object V1133 = vs_base[0];          {object V1168 = vs_base[0];
5232          VMR67(V1133)}}}          VMR67(V1168)}}}
5233          base[0]=base[0];          base[0]=base[0];
5234          return Cnil;          return Cnil;
5235  }  }
5236  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))       */  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))       */
5237    
5238  static object LI81(V1138,V1139,V1140,V1141)  static object LI81(V1173,V1174,V1175,V1176)
5239    
5240  object V1138;object V1139;object V1140;object V1141;  object V1173;object V1174;object V1175;object V1176;
5241  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
5242          goto TTL;          goto TTL;
5243  TTL:;  TTL:;
5244          {object V1143 = (VFUN_NARGS=1,(*(LnkLI219))(VV[109]));          {object V1178 = (VFUN_NARGS=1,(*(LnkLI214))(VV[109]));
5245          VMR68(V1143)}          VMR68(V1178)}
5246          return Cnil;          return Cnil;
5247  }  }
5248  /*      function definition for MAKE-DIRECT-SLOTD       */  /*      function definition for MAKE-DIRECT-SLOTD       */
# Line 5167  static void L82() Line 5251  static void L82()
5251  {register object *base=vs_base;  {register object *base=vs_base;
5252          register object *sup=base+VM69; VC69          register object *sup=base+VM69; VC69
5253          vs_check;          vs_check;
5254          {object V1144;          {object V1179;
5255          object V1145;          object V1180;
5256          check_arg(2);          check_arg(2);
5257          V1144=(base[0]);          V1179=(base[0]);
5258          V1145=(base[1]);          V1180=(base[1]);
5259          vs_top=sup;          vs_top=sup;
5260          goto TTL;          goto TTL;
5261  TTL:;  TTL:;
5262          {object V1146;          {object V1181;
5263          V1146= listA(3,VV[65],(V1144),(V1145));          V1181= listA(3,VV[65],(V1179),(V1180));
5264          base[2]=VV[223]->s.s_gfdef;          base[2]=VV[218]->s.s_gfdef;
5265          base[4]= (V1144);          base[4]= (V1179);
5266          base[5]= (V1146);          base[5]= (V1181);
5267          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5268          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk293)(Lclptr293);
5269          vs_top=sup;          vs_top=sup;
5270          base[3]= vs_base[0];          base[3]= vs_base[0];
5271          {object V1147;          {object V1182;
5272          V1147= (V1146);          V1182= (V1181);
5273           vs_top=base+4;           vs_top=base+4;
5274           while(V1147!=Cnil)           while(V1182!=Cnil)
5275           {vs_push((V1147)->c.c_car);V1147=(V1147)->c.c_cdr;}           {vs_push((V1182)->c.c_car);V1182=(V1182)->c.c_cdr;}
5276          vs_base=base+3;}          vs_base=base+3;}
5277          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk218)(Lclptr218);
5278          return;}          return;}
5279          }          }
5280  }  }
5281  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STD-CLASS))        */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STD-CLASS))        */
5282    
5283  static object LI83(V1151,V1152,V1153)  static object LI83(V1186,V1187,V1188)
5284    
5285  object V1151;object V1152;object V1153;  object V1186;object V1187;object V1188;
5286  {        VMB70 VMS70 VMV70  {        VMB70 VMS70 VMV70
5287          goto TTL;          goto TTL;
5288  TTL:;  TTL:;
5289          {register object V1155;          {register object V1190;
5290          V1155= Cnil;          V1190= Cnil;
5291          {object V1156;          {object V1191;
5292          object V1157;          object V1192;
5293          base[2]= (V1153);          base[2]= (V1188);
5294          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5295          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5296          vs_top=sup;          vs_top=sup;
5297          V1156= vs_base[0];          V1191= vs_base[0];
5298          V1157= CMPcar((V1156));          V1192= CMPcar((V1191));
5299          goto T2132;          goto T2147;
5300  T2132:;  T2147:;
5301          if(!(((V1156))==Cnil)){          if(!(((V1191))==Cnil)){
5302          goto T2133;}          goto T2148;}
5303          goto T2127;          goto T2142;
5304          goto T2133;          goto T2148;
5305  T2133:;  T2148:;
5306          {object V1158;          {object V1193;
5307          base[2]= (V1157);          base[2]= (V1192);
5308          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5309          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk245)(Lclptr245);
5310          vs_top=sup;          vs_top=sup;
5311          V1158= vs_base[0];          V1193= vs_base[0];
5312          {register object V1159;          {register object V1194;
5313          register object V1160;          register object V1195;
5314          V1159= (V1158);          V1194= (V1193);
5315          V1160= CMPcar((V1159));          V1195= CMPcar((V1194));
5316          goto T2143;          goto T2158;
5317  T2143:;  T2158:;
5318          if(!(((V1159))==Cnil)){          if(!(((V1194))==Cnil)){
5319          goto T2144;}          goto T2159;}
5320          goto T2137;          goto T2152;
5321          goto T2144;          goto T2159;
5322  T2144:;  T2159:;
5323          {register object V1161;          {register object V1196;
5324          register object V1162;          register object V1197;
5325          base[5]= (V1160);          base[5]= (V1195);
5326          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5327          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
5328          vs_top=sup;          vs_top=sup;
5329          V1161= vs_base[0];          V1196= vs_base[0];
5330          {register object x= (V1161),V1163= (V1155);          {register object x= (V1196),V1198= (V1190);
5331          while(V1163!=Cnil)          while(V1198!=Cnil)
5332          if(EQ(x,V1163->c.c_car->c.c_car) &&V1163->c.c_car != Cnil){          if(EQ(x,V1198->c.c_car->c.c_car) &&V1198->c.c_car != Cnil){
5333          V1162= (V1163->c.c_car);          V1197= (V1198->c.c_car);
5334          goto T2151;          goto T2166;
5335          }else V1163=V1163->c.c_cdr;          }else V1198=V1198->c.c_cdr;
5336          V1162= Cnil;}          V1197= Cnil;}
5337          goto T2151;          goto T2166;
5338  T2151:;  T2166:;
5339          if(((V1162))==Cnil){          if(((V1197))==Cnil){
5340          goto T2153;}          goto T2168;}
5341          {register object V1165;          {register object V1200;
5342          register object V1166;          register object V1201;
5343          V1165= (V1162);          V1200= (V1197);
5344          V1166= make_cons(V1160,CMPcdr((V1165)));          V1201= make_cons(V1195,CMPcdr((V1200)));
5345          ((V1165))->c.c_cdr = (V1166);          ((V1200))->c.c_cdr = (V1201);
5346          goto T2148;}          goto T2163;}
5347          goto T2153;          goto T2168;
5348  T2153:;  T2168:;
5349          {object V1167;          {object V1202;
5350          V1167= list(2,(V1161),(V1160));          V1202= list(2,(V1196),(V1195));
5351          V1155= make_cons((V1167),(V1155));}}          V1190= make_cons((V1202),(V1190));}}
5352          goto T2148;          goto T2163;
5353  T2148:;  T2163:;
5354          V1159= CMPcdr((V1159));          V1194= CMPcdr((V1194));
5355          V1160= CMPcar((V1159));          V1195= CMPcar((V1194));
5356          goto T2143;}}          goto T2158;}}
5357          goto T2137;          goto T2152;
5358  T2137:;  T2152:;
5359          V1156= CMPcdr((V1156));          V1191= CMPcdr((V1191));
5360          V1157= CMPcar((V1156));          V1192= CMPcar((V1191));
5361          goto T2132;}          goto T2147;}
5362          goto T2127;          goto T2142;
5363  T2127:;  T2142:;
5364          {object V1168;          {object V1203;
5365          object V1169= (V1155);          object V1204= (V1190);
5366          if(V1169==Cnil){          if(V1204==Cnil){
5367          {object V1170 = Cnil;          {object V1205 = Cnil;
5368          VMR70(V1170)}}          VMR70(V1205)}}
5369          base[0]=V1168=MMcons(Cnil,Cnil);          base[0]=V1203=MMcons(Cnil,Cnil);
5370          goto T2170;          goto T2185;
5371  T2170:;  T2185:;
5372          base[1]= (V1153);          base[1]= (V1188);
5373          base[2]= nreverse(CMPcdr((V1169->c.c_car)));          base[2]= nreverse(CMPcdr((V1204->c.c_car)));
5374          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5375          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk294)(Lclptr294);
5376          vs_top=sup;          vs_top=sup;
5377          (V1168->c.c_car)= vs_base[0];          (V1203->c.c_car)= vs_base[0];
5378          if((V1169=MMcdr(V1169))==Cnil){          if((V1204=MMcdr(V1204))==Cnil){
5379          {object V1172 = base[0];          {object V1207 = base[0];
5380          VMR70(V1172)}}          VMR70(V1207)}}
5381          V1168=MMcdr(V1168)=MMcons(Cnil,Cnil);          V1203=MMcdr(V1203)=MMcons(Cnil,Cnil);
5382          goto T2170;}}          goto T2185;}}
5383          base[0]=base[0];          base[0]=base[0];
5384          return Cnil;          return Cnil;
5385  }  }
5386  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))        */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))        */
5387    
5388  static object LI84(V1176,V1177,V1178)  static object LI84(V1211,V1212,V1213)
5389    
5390  object V1176;object V1177;object V1178;  object V1211;object V1212;object V1213;
5391  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
5392          goto TTL;          goto TTL;
5393  TTL:;  TTL:;
5394          {object V1180;          {object V1215;
5395          object V1181;          object V1216;
5396          object V1182;          object V1217;
5397          object V1183;          object V1218;
5398          if(((V1177))==Cnil){          if(((V1212))==Cnil){
5399          goto T2179;}          goto T2194;}
5400          base[0]= (V1177);          base[0]= (V1212);
5401          base[1]= VV[110];          base[1]= VV[110];
5402          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5403          (void) (*Lnk301)();          (void) (*Lnk295)();
5404          vs_top=sup;          vs_top=sup;
5405          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5406          goto T2183;}          goto T2198;}
5407          V1180= (          V1215= (
5408          V1184 = STREF(object,(V1177),0),          V1219 = STREF(object,(V1212),0),
5409          (type_of(V1184) == t_sfun ?(*((V1184)->sfn.sfn_self)):          (type_of(V1219) == t_sfun ?(*((V1219)->sfn.sfn_self)):
5410          (fcall.argd=3,type_of(V1184)==t_vfun) ?          (fcall.argd=3,type_of(V1219)==t_vfun) ?
5411          (*((V1184)->sfn.sfn_self)):          (*((V1219)->sfn.sfn_self)):
5412          (fcall.fun=(V1184),fcalln))(STREF(object,(V1177),4),STREF(object,(V1177),8),(V1178)));          (fcall.fun=(V1219),fcalln))(STREF(object,(V1212),4),STREF(object,(V1212),8),(V1213)));
         goto T2177;  
         goto T2183;  
 T2183:;  
         if(!(type_of((V1177))==t_fixnum)){  
         goto T2188;}  
         {object V1185;  
         object V1186;  
         if(type_of(V1178)==t_structure){  
         goto T2194;}  
         goto T2192;  
         goto T2194;  
 T2194:;  
         if(!(((V1178)->str.str_def)==(VV[111]))){  
         goto T2192;}  
         V1185= STREF(object,(V1178),4);  
         goto T2190;  
5413          goto T2192;          goto T2192;
5414  T2192:;{object V1188;          goto T2198;
5415          V1188= (VV[2]->s.s_dbind);  T2198:;
5416            if(!(type_of((V1212))==t_fixnum)){
5417            goto T2203;}
5418            {object V1220;
5419            object V1221;
5420            if(type_of(V1213)==t_structure){
5421            goto T2209;}
5422            goto T2207;
5423            goto T2209;
5424    T2209:;
5425            if(!(((V1213)->str.str_def)==(VV[111]))){
5426            goto T2207;}
5427            V1220= STREF(object,(V1213),4);
5428            goto T2205;
5429            goto T2207;
5430    T2207:;{object V1223;
5431            V1223= (VV[2]->s.s_dbind);
5432          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5433          base[3]= (V1178);          base[3]= (V1213);
5434          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5435          (void) (*Lnk177)();          (void) (*Lnk174)();
5436          vs_top=sup;          vs_top=sup;
5437          V1189= vs_base[0];          V1224= vs_base[0];
5438          if(!((V1188)==(CMPcar(V1189)))){          if(!((V1223)==(CMPcar(V1224)))){
5439          goto T2197;}}          goto T2212;}}
5440          V1185= CMPcar(((V1178))->cc.cc_turbo[12]);          V1220= CMPcar(((V1213))->cc.cc_turbo[12]);
5441          goto T2190;          goto T2205;
5442          goto T2197;          goto T2212;
5443  T2197:;  T2212:;
5444          V1185= Cnil;          V1220= Cnil;
5445          goto T2190;          goto T2205;
5446  T2190:;  T2205:;
5447          if(((V1185))==Cnil){          if(((V1220))==Cnil){
5448          goto T2204;}          goto T2219;}
5449          V1186= ((V1185))->v.v_self[fix((V1177))];          V1221= ((V1220))->v.v_self[fix((V1212))];
5450          goto T2202;          goto T2217;
5451          goto T2204;          goto T2219;
5452  T2204:;  T2219:;
5453          V1186= Cnil;          V1221= Cnil;
5454          goto T2202;          goto T2217;
5455  T2202:;  T2217:;
5456          if(!(((V1186))==(VV[3]))){          if(!(((V1221))==(VV[3]))){
5457          goto T2207;}          goto T2222;}
5458          base[2]= (V1178);          base[2]= (V1213);
5459          base[3]= (V1177);          base[3]= (V1212);
5460          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5461          (void) (*Lnk302)();          (void) (*Lnk296)();
5462          vs_top=sup;          vs_top=sup;
5463          V1180= vs_base[0];          V1215= vs_base[0];
5464          goto T2177;          goto T2192;
5465          goto T2207;          goto T2222;
5466  T2207:;  T2222:;
5467          V1180= (V1186);          V1215= (V1221);
5468          goto T2177;}          goto T2192;}
5469          goto T2188;          goto T2203;
5470  T2188:;  T2203:;
5471          base[0]= V1177;          base[0]= V1212;
5472          base[1]= VV[112];          base[1]= VV[112];
5473          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5474          (void) (*Lnk301)();          (void) (*Lnk295)();
5475          vs_top=sup;          vs_top=sup;
5476          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5477          goto T2212;}          goto T2227;}
5478          {object V1191;          {object V1226;
5479          object V1192;          object V1227;
5480          object V1193;          object V1228;
5481          V1191= STREF(object,(V1177),0);          V1226= STREF(object,(V1212),0);
5482          V1192= make_cons((V1178),Cnil);          V1227= make_cons((V1213),Cnil);
5483          V1193= STREF(object,(V1177),4);          V1228= STREF(object,(V1212),4);
5484          if(((V1193))==Cnil){          if(((V1228))==Cnil){
5485          goto T2220;}          goto T2235;}
5486          if((CMPcdr((V1193)))!=Cnil){          if((CMPcdr((V1228)))!=Cnil){
5487          goto T2220;}          goto T2235;}
5488          V1180= (          V1215= (
5489          (type_of((V1191)) == t_sfun ?(*(((V1191))->sfn.sfn_self)):          (type_of((V1226)) == t_sfun ?(*(((V1226))->sfn.sfn_self)):
5490          (fcall.argd=2,type_of((V1191))==t_vfun) ?          (fcall.argd=2,type_of((V1226))==t_vfun) ?
5491          (*(((V1191))->sfn.sfn_self)):          (*(((V1226))->sfn.sfn_self)):
5492          (fcall.fun=((V1191)),fcalln))((V1192),CMPcar((V1193))));          (fcall.fun=((V1226)),fcalln))((V1227),CMPcar((V1228))));
5493          goto T2177;          goto T2192;
5494          goto T2220;          goto T2235;
5495  T2220:;  T2235:;
5496          base[0]= (V1191);          base[0]= (V1226);
5497          base[1]= (V1192);          base[1]= (V1227);
5498          {object V1194;          {object V1229;
5499          V1194= (V1193);          V1229= (V1228);
5500           vs_top=base+2;           vs_top=base+2;
5501           while(V1194!=Cnil)           while(V1229!=Cnil)
5502           {vs_push((V1194)->c.c_car);V1194=(V1194)->c.c_cdr;}           {vs_push((V1229)->c.c_car);V1229=(V1229)->c.c_cdr;}
5503          vs_base=base+1;}          vs_base=base+1;}
5504          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5505                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5506                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5507                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5508          vs_top=sup;          vs_top=sup;
5509          V1180= vs_base[0];          V1215= vs_base[0];
5510          goto T2177;}          goto T2192;}
5511          goto T2212;          goto T2227;
5512  T2212:;  T2227:;
5513          base[0]= V1177;          base[0]= V1212;
5514          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5515          Lfunctionp();          Lfunctionp();
5516          vs_top=sup;          vs_top=sup;
5517          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5518          goto T2228;}          goto T2243;}
5519          V1180= (          V1215= (
5520          (type_of((V1177)) == t_sfun ?(*(((V1177))->sfn.sfn_self)):          (type_of((V1212)) == t_sfun ?(*(((V1212))->sfn.sfn_self)):
5521          (fcall.argd=1,type_of((V1177))==t_vfun) ?          (fcall.argd=1,type_of((V1212))==t_vfun) ?
5522          (*(((V1177))->sfn.sfn_self)):          (*(((V1212))->sfn.sfn_self)):
5523          (fcall.fun=((V1177)),fcalln))((V1178)));          (fcall.fun=((V1212)),fcalln))((V1213)));
5524          goto T2177;          goto T2192;
5525          goto T2228;          goto T2243;
5526  T2228:;  T2243:;
5527          base[1]= VV[113];          base[1]= VV[113];
5528          base[2]= V1177;          base[2]= V1212;
5529          base[3]= VV[114];          base[3]= VV[114];
5530          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5531          (void) (*Lnk303)();          (void) (*Lnk297)();
5532          vs_top=sup;          vs_top=sup;
5533          base[0]= vs_base[0];          base[0]= vs_base[0];
5534          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5535          Lerror();          Lerror();
5536          vs_top=sup;          vs_top=sup;
5537          V1180= vs_base[0];          V1215= vs_base[0];
5538          goto T2177;          goto T2192;
5539          goto T2179;          goto T2194;
5540  T2179:;  T2194:;
5541          base[0]= VV[115];          base[0]= VV[115];
5542          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5543          Lerror();          Lerror();
5544          vs_top=sup;          vs_top=sup;
5545          V1180= vs_base[0];          V1215= vs_base[0];
5546          goto T2177;          goto T2192;
5547  T2177:;  T2192:;
5548          base[0]= (V1178);          base[0]= (V1213);
5549          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5550          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5551          vs_top=sup;          vs_top=sup;
5552          V1181= vs_base[0];          V1216= vs_base[0];
5553          V1182= Cnil;          V1217= Cnil;
5554          V1183= Cnil;          V1218= Cnil;
5555          {register object V1195;          {register object V1230;
5556          register object V1196;          register object V1231;
5557          V1195= (V1180);          V1230= (V1215);
5558          V1196= CMPcar((V1195));          V1231= CMPcar((V1230));
5559          goto T2242;          goto T2257;
5560  T2242:;  T2257:;
5561          if(!(((V1195))==Cnil)){          if(!(((V1230))==Cnil)){
5562          goto T2243;}          goto T2258;}
5563          goto T2238;          goto T2253;
5564          goto T2243;          goto T2258;
5565  T2243:;  T2258:;
5566          {object V1197;          {object V1232;
5567          base[1]= (V1196);          base[1]= (V1231);
5568          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5569          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
5570          vs_top=sup;          vs_top=sup;
5571          V1197= vs_base[0];          V1232= vs_base[0];
5572          if(!(((V1197))==(VV[19]))){          if(!(((V1232))==(VV[19]))){
5573          goto T2251;}          goto T2266;}
5574          V1182= make_cons(V1196,(V1182));          V1217= make_cons(V1231,(V1217));
5575          goto T2247;          goto T2262;
5576          goto T2251;          goto T2266;
5577  T2251:;  T2266:;
5578          base[1]= (V1197);          base[1]= (V1232);
5579          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5580          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk282)(Lclptr282);
5581          vs_top=sup;          vs_top=sup;
5582          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5583          goto T2247;}          goto T2262;}
5584          V1183= make_cons(V1196,(V1183));}          V1218= make_cons(V1231,(V1218));}
5585          goto T2247;          goto T2262;
5586  T2247:;  T2262:;
5587          V1195= CMPcdr((V1195));          V1230= CMPcdr((V1230));
5588          V1196= CMPcar((V1195));          V1231= CMPcar((V1230));
5589          goto T2242;}          goto T2257;}
5590          goto T2238;          goto T2253;
5591  T2238:;  T2253:;
5592          {object V1200;          {object V1235;
5593          V1200= (*(LnkLI304))((V1181),(V1182));          V1235= (*(LnkLI298))((V1216),(V1217));
5594          {register object V1201;          {register object V1236;
5595          register object V1202;          register object V1237;
5596          V1201= (V1182);          V1236= (V1217);
5597          V1202= CMPcar((V1201));          V1237= CMPcar((V1236));
5598          goto T2268;          goto T2283;
5599  T2268:;  T2283:;
5600          if(!(((V1201))==Cnil)){          if(!(((V1236))==Cnil)){
5601          goto T2269;}          goto T2284;}
5602          goto T2263;          goto T2278;
5603          goto T2269;          goto T2284;
5604  T2269:;  T2284:;
5605          base[3]= (V1202);          {object V1239;
5606            base[3]= (V1237);
5607          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5608          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
5609          vs_top=sup;          vs_top=sup;
5610          base[2]= vs_base[0];          base[2]= vs_base[0];
5611          base[3]= (V1200);          base[3]= (V1235);
5612          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5613          (void) (*Lnk305)();          (void) (*Lnk299)();
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= V1202;  
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk306)(Lclptr306);  
5614          vs_top=sup;          vs_top=sup;
5615          V1201= CMPcdr((V1201));          V1239= vs_base[0];
5616          V1202= CMPcar((V1201));          V1240= ({object _tmp=get(VV[284],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[284])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[284])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
5617          goto T2268;}}          V1241 = (V1239);
5618          goto T2263;          V1242 = V1237;
5619  T2263:;          (void)((
5620          {register object V1204;          V1243 = V1240,
5621          register object V1205;          (type_of(V1243) == t_sfun ?(*((V1243)->sfn.sfn_self)):
5622          V1204= (V1183);          (fcall.argd=2,type_of(V1243)==t_vfun) ?
5623          V1205= CMPcar((V1204));          (*((V1243)->sfn.sfn_self)):
5624          goto T2288;          (fcall.fun=(V1243),fcalln))(V1241,V1242)));}
5625  T2288:;          V1236= CMPcdr((V1236));
5626          if(!(((V1204))==Cnil)){          V1237= CMPcar((V1236));
5627          goto T2289;}          goto T2283;}}
5628          goto T2284;          goto T2278;
5629          goto T2289;  T2278:;
5630  T2289:;          {register object V1244;
5631          base[2]= (V1205);          register object V1245;
5632            V1244= (V1218);
5633            V1245= CMPcar((V1244));
5634            goto T2303;
5635    T2303:;
5636            if(!(((V1244))==Cnil)){
5637            goto T2304;}
5638            goto T2299;
5639            goto T2304;
5640    T2304:;
5641            {object V1247;
5642            base[2]= (V1245);
5643          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5644          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
5645          vs_top=sup;          vs_top=sup;
5646          V1208= vs_base[0];          V1249= vs_base[0];
5647          base[3]= (V1205);          base[3]= (V1245);
5648          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5649          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
5650          vs_top=sup;          vs_top=sup;
5651          base[2]= vs_base[0];          base[2]= vs_base[0];
5652          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5653          (void) (*Lnk31)(Lclptr31);          (void) (*Lnk31)(Lclptr31);
5654          vs_top=sup;          vs_top=sup;
5655          V1209= vs_base[0];          V1250= vs_base[0];
5656          {register object x= V1208,V1207= V1209;          {register object x= V1249,V1248= V1250;
5657          while(V1207!=Cnil)          while(V1248!=Cnil)
5658          if(eql(x,V1207->c.c_car->c.c_car) &&V1207->c.c_car != Cnil){          if(eql(x,V1248->c.c_car->c.c_car) &&V1248->c.c_car != Cnil){
5659          base[1]= (V1207->c.c_car);          V1247= (V1248->c.c_car);
5660          goto T2294;          goto T2309;
5661          }else V1207=V1207->c.c_cdr;          }else V1248=V1248->c.c_cdr;
5662          base[1]= Cnil;}          V1247= Cnil;}
5663          goto T2294;          goto T2309;
5664  T2294:;  T2309:;
5665          base[2]= V1205;          V1251= ({object _tmp=get(VV[284],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[284])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[284])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
5666          vs_top=(vs_base=base+1)+2;          V1252 = (V1247);
5667          (void) (*Lnk306)(Lclptr306);          V1253 = V1245;
5668          vs_top=sup;          (void)((
5669          V1204= CMPcdr((V1204));          V1254 = V1251,
5670          V1205= CMPcar((V1204));          (type_of(V1254) == t_sfun ?(*((V1254)->sfn.sfn_self)):
5671          goto T2288;}          (fcall.argd=2,type_of(V1254)==t_vfun) ?
5672          goto T2284;          (*((V1254)->sfn.sfn_self)):
5673  T2284:;          (fcall.fun=(V1254),fcalln))(V1252,V1253)));}
5674          base[0]=VV[307]->s.s_gfdef;          V1244= CMPcdr((V1244));
5675            V1245= CMPcar((V1244));
5676            goto T2303;}
5677            goto T2299;
5678    T2299:;
5679            base[0]=VV[300]->s.s_gfdef;
5680          {          {
5681          object V1210= (V1180);          object V1255= (V1215);
5682          if(V1210==Cnil){          if(V1255==Cnil){
5683          goto T2306;}          goto T2321;}
5684          goto T2307;          goto T2322;
5685  T2307:;  T2322:;
5686          base[1]= (V1210->c.c_car);          base[1]= (V1255->c.c_car);
5687          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5688          (void) (*Lnk307)(Lclptr307);          (void) (*Lnk300)(Lclptr300);
5689          vs_top=sup;          vs_top=sup;
5690          if((V1210=MMcdr(V1210))==Cnil){          if((V1255=MMcdr(V1255))==Cnil){
5691          goto T2306;}          goto T2321;}
5692          goto T2307;}          goto T2322;}
5693          goto T2306;          goto T2321;
5694  T2306:;  T2321:;
5695          {object V1211 = (V1180);          {object V1256 = (V1215);
5696          VMR71(V1211)}}          VMR71(V1256)}}
5697          base[0]=base[0];          base[0]=base[0];
5698          return Cnil;          return Cnil;
5699  }  }
5700  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))  */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))  */
5701    
5702  static object LI85(V1215,V1216,V1217)  static object LI85(V1260,V1261,V1262)
5703    
5704  object V1215;object V1216;register object V1217;  object V1260;object V1261;register object V1262;
5705  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
5706          goto TTL;          goto TTL;
5707  TTL:;  TTL:;
5708          {object V1219;          {object V1264;
5709          object V1220;          object V1265;
5710          V1219= CMPcar((V1215));          V1264= CMPcar((V1260));
5711          V1220= CMPcdr((V1215));          V1265= CMPcdr((V1260));
5712          {object V1221;          {object V1266;
5713          if(type_of(V1217)==t_structure){          if(type_of(V1262)==t_structure){
         goto T2320;}  
         goto T2318;  
         goto T2320;  
 T2320:;  
         if(!(((V1217)->str.str_def)==(VV[116]))){  
         goto T2318;}  
         V1221= STREF(object,(V1217),4);  
         goto T2316;  
         goto T2318;  
 T2318:;{object V1223;  
         V1223= (VV[2]->s.s_dbind);  
         base[0]= small_fixnum(14);  
         base[1]= (V1217);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk177)();  
         vs_top=sup;  
         V1224= vs_base[0];  
         if(!((V1223)==(CMPcar(V1224)))){  
         goto T2323;}}  
         V1221= CMPcar(((V1217))->cc.cc_turbo[12]);  
         goto T2316;  
         goto T2323;  
 T2323:;  
         V1221= Cnil;  
         goto T2316;  
 T2316:;  
         {register object V1228;  
         V1228= ((V1219))->v.v_self[1];  
         if(!(type_of(V1228)==t_fixnum)){  
5714          goto T2335;}          goto T2335;}
         V1228= ((V1221))->v.v_self[fix((V1228))];  
5715          goto T2333;          goto T2333;
5716          goto T2335;          goto T2335;
5717  T2335:;  T2335:;
5718          V1228= VV[3];          if(!(((V1262)->str.str_def)==(VV[116]))){
5719            goto T2333;}
5720            V1266= STREF(object,(V1262),4);
5721            goto T2331;
5722          goto T2333;          goto T2333;
5723  T2333:;  T2333:;{object V1268;
5724          if(!(((V1228))==(VV[3]))){          V1268= (VV[2]->s.s_dbind);
5725          goto T2338;}          base[0]= small_fixnum(14);
5726          base[1]= (V1217);          base[1]= (V1262);
5727          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+2;
5728          (void) (*Lnk308)(Lclptr308);          (void) (*Lnk174)();
5729          vs_top=sup;          vs_top=sup;
5730          V1227= vs_base[0];          V1269= vs_base[0];
5731          goto T2330;          if(!((V1268)==(CMPcar(V1269)))){
5732            goto T2338;}}
5733            V1266= CMPcar(((V1262))->cc.cc_turbo[12]);
5734            goto T2331;
5735          goto T2338;          goto T2338;
5736  T2338:;  T2338:;
5737          V1227= (V1228);}          V1266= Cnil;
5738          goto T2330;          goto T2331;
5739  T2330:;  T2331:;
5740          V1230= reverse(V1227);          {register object V1273;
5741          {object V1225;          V1273= ((V1264))->v.v_self[1];
5742          object V1226= /* INLINE-ARGS */V1230;          if(!(type_of(V1273)==t_fixnum)){
5743          if(V1226==Cnil){          goto T2350;}
5744          {object V1231 = Cnil;          V1273= ((V1266))->v.v_self[fix((V1273))];
5745          VMR72(V1231)}}          goto T2348;
5746          base[0]=V1225=MMcons(Cnil,Cnil);          goto T2350;
5747          goto T2329;  T2350:;
5748  T2329:;          V1273= VV[3];
5749          base[2]= (V1226->c.c_car);          goto T2348;
5750    T2348:;
5751            if(!(((V1273))==(VV[3]))){
5752            goto T2353;}
5753            base[1]= (V1262);
5754            vs_top=(vs_base=base+1)+1;
5755            (void) (*Lnk301)(Lclptr301);
5756            vs_top=sup;
5757            V1272= vs_base[0];
5758            goto T2345;
5759            goto T2353;
5760    T2353:;
5761            V1272= (V1273);}
5762            goto T2345;
5763    T2345:;
5764            V1275= reverse(V1272);
5765            {object V1270;
5766            object V1271= /* INLINE-ARGS */V1275;
5767            if(V1271==Cnil){
5768            {object V1276 = Cnil;
5769            VMR72(V1276)}}
5770            base[0]=V1270=MMcons(Cnil,Cnil);
5771            goto T2344;
5772    T2344:;
5773            base[2]= (V1271->c.c_car);
5774          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5775          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk245)(Lclptr245);
5776          vs_top=sup;          vs_top=sup;
5777          V1235= vs_base[0];          V1280= vs_base[0];
5778          {object V1233;          {object V1278;
5779          object V1234= V1235;          object V1279= V1280;
5780          if(V1234==Cnil){          if(V1279==Cnil){
5781          (V1225->c.c_cdr)= Cnil;          (V1270->c.c_cdr)= Cnil;
5782          goto T2341;}          goto T2356;}
5783          base[1]=V1233=MMcons(Cnil,Cnil);          base[1]=V1278=MMcons(Cnil,Cnil);
5784          goto T2342;          goto T2357;
5785  T2342:;  T2357:;
5786          base[2]= (V1217);          base[2]= (V1262);
5787          base[3]= make_cons((V1234->c.c_car),Cnil);          base[3]= make_cons((V1279->c.c_car),Cnil);
5788          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5789          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk294)(Lclptr294);
5790          vs_top=sup;          vs_top=sup;
5791          (V1233->c.c_car)= vs_base[0];          (V1278->c.c_car)= vs_base[0];
5792          if((V1234=MMcdr(V1234))==Cnil){          if((V1279=MMcdr(V1279))==Cnil){
5793          (V1225->c.c_cdr)= base[1];          (V1270->c.c_cdr)= base[1];
5794          goto T2341;}          goto T2356;}
5795          V1233=MMcdr(V1233)=MMcons(Cnil,Cnil);          V1278=MMcdr(V1278)=MMcons(Cnil,Cnil);
5796          goto T2342;}          goto T2357;}
5797          goto T2341;          goto T2356;
5798  T2341:;  T2356:;
5799          while(MMcdr(V1225)!=Cnil)V1225=MMcdr(V1225);          while(MMcdr(V1270)!=Cnil)V1270=MMcdr(V1270);
5800          if((V1226=MMcdr(V1226))==Cnil){          if((V1271=MMcdr(V1271))==Cnil){
5801          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
5802          {object V1237 = base[0];          {object V1282 = base[0];
5803          VMR72(V1237)}}          VMR72(V1282)}}
5804          goto T2329;}}}          goto T2344;}}}
5805          base[0]=base[0];          base[0]=base[0];
5806          return Cnil;          return Cnil;
5807  }  }
5808  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))  */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))  */
5809    
5810  static object LI86(V1241,V1242,V1243)  static object LI86(V1286,V1287,V1288)
5811    
5812  object V1241;register object V1242;register object V1243;  object V1286;register object V1287;register object V1288;
5813  {        VMB73 VMS73 VMV73  {        VMB73 VMS73 VMV73
5814          goto TTL;          goto TTL;
5815  TTL:;  TTL:;
5816          {object V1245;          {object V1290;
5817          if(((V1242))==Cnil){          if(((V1287))==Cnil){
5818          goto T2353;}          goto T2368;}
5819          base[0]= (V1242);          base[0]= (V1287);
5820          base[1]= VV[110];          base[1]= VV[110];
5821          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5822          (void) (*Lnk301)();          (void) (*Lnk295)();
5823          vs_top=sup;          vs_top=sup;
5824          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5825          goto T2357;}          goto T2372;}
5826          V1245= (          V1290= (
5827          V1246 = STREF(object,(V1242),0),          V1291 = STREF(object,(V1287),0),
5828          (type_of(V1246) == t_sfun ?(*((V1246)->sfn.sfn_self)):          (type_of(V1291) == t_sfun ?(*((V1291)->sfn.sfn_self)):
5829          (fcall.argd=3,type_of(V1246)==t_vfun) ?          (fcall.argd=3,type_of(V1291)==t_vfun) ?
5830          (*((V1246)->sfn.sfn_self)):          (*((V1291)->sfn.sfn_self)):
5831          (fcall.fun=(V1246),fcalln))(STREF(object,(V1242),4),STREF(object,(V1242),8),(V1243)));          (fcall.fun=(V1291),fcalln))(STREF(object,(V1287),4),STREF(object,(V1287),8),(V1288)));
         goto T2351;  
         goto T2357;  
 T2357:;  
         if(!(type_of((V1242))==t_fixnum)){  
         goto T2362;}  
         {object V1247;  
         object V1248;  
         if(type_of(V1243)==t_structure){  
         goto T2368;}  
         goto T2366;  
         goto T2368;  
 T2368:;  
         if(!(((V1243)->str.str_def)==(VV[117]))){  
         goto T2366;}  
         V1247= STREF(object,(V1243),4);  
         goto T2364;  
5832          goto T2366;          goto T2366;
5833  T2366:;{object V1250;          goto T2372;
5834          V1250= (VV[2]->s.s_dbind);  T2372:;
5835            if(!(type_of((V1287))==t_fixnum)){
5836            goto T2377;}
5837            {object V1292;
5838            object V1293;
5839            if(type_of(V1288)==t_structure){
5840            goto T2383;}
5841            goto T2381;
5842            goto T2383;
5843    T2383:;
5844            if(!(((V1288)->str.str_def)==(VV[117]))){
5845            goto T2381;}
5846            V1292= STREF(object,(V1288),4);
5847            goto T2379;
5848            goto T2381;
5849    T2381:;{object V1295;
5850            V1295= (VV[2]->s.s_dbind);
5851          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5852          base[3]= (V1243);          base[3]= (V1288);
5853          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5854          (void) (*Lnk177)();          (void) (*Lnk174)();
5855          vs_top=sup;          vs_top=sup;
5856          V1251= vs_base[0];          V1296= vs_base[0];
5857          if(!((V1250)==(CMPcar(V1251)))){          if(!((V1295)==(CMPcar(V1296)))){
5858          goto T2371;}}          goto T2386;}}
5859          V1247= CMPcar(((V1243))->cc.cc_turbo[12]);          V1292= CMPcar(((V1288))->cc.cc_turbo[12]);
5860          goto T2364;          goto T2379;
5861          goto T2371;          goto T2386;
5862  T2371:;  T2386:;
5863          V1247= Cnil;          V1292= Cnil;
5864          goto T2364;          goto T2379;
5865  T2364:;  T2379:;
5866          if(((V1247))==Cnil){          if(((V1292))==Cnil){
5867          goto T2378;}          goto T2393;}
5868          V1248= ((V1247))->v.v_self[fix((V1242))];          V1293= ((V1292))->v.v_self[fix((V1287))];
5869          goto T2376;          goto T2391;
5870          goto T2378;          goto T2393;
5871  T2378:;  T2393:;
5872          V1248= Cnil;          V1293= Cnil;
5873          goto T2376;          goto T2391;
5874  T2376:;  T2391:;
5875          if(!(((V1248))==(VV[3]))){          if(!(((V1293))==(VV[3]))){
5876          goto T2381;}          goto T2396;}
5877          base[2]= (V1243);          base[2]= (V1288);
5878          base[3]= (V1242);          base[3]= (V1287);
5879          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5880          (void) (*Lnk302)();          (void) (*Lnk296)();
5881          vs_top=sup;          vs_top=sup;
5882          V1245= vs_base[0];          V1290= vs_base[0];
5883          goto T2351;          goto T2366;
5884          goto T2381;          goto T2396;
5885  T2381:;  T2396:;
5886          V1245= (V1248);          V1290= (V1293);
5887          goto T2351;}          goto T2366;}
5888          goto T2362;          goto T2377;
5889  T2362:;  T2377:;
5890          {register object V1252;          {register object V1297;
5891          V1252= (V1242);          V1297= (V1287);
5892          base[0]= (V1252);          base[0]= (V1297);
5893          base[1]= VV[112];          base[1]= VV[112];
5894          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5895          (void) (*Lnk301)();          (void) (*Lnk295)();
5896          vs_top=sup;          vs_top=sup;
5897          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5898          goto T2386;}          goto T2401;}
5899          {object V1253;          {object V1298;
5900          object V1254;          object V1299;
5901          register object V1255;          register object V1300;
5902          V1253= STREF(object,(V1242),0);          V1298= STREF(object,(V1287),0);
5903          V1254= make_cons((V1243),Cnil);          V1299= make_cons((V1288),Cnil);
5904          V1255= STREF(object,(V1242),4);          V1300= STREF(object,(V1287),4);
5905          if(((V1255))==Cnil){          if(((V1300))==Cnil){
5906          goto T2394;}          goto T2409;}
5907          if((CMPcdr((V1255)))!=Cnil){          if((CMPcdr((V1300)))!=Cnil){
5908          goto T2394;}          goto T2409;}
5909          V1245= (          V1290= (
5910          (type_of((V1253)) == t_sfun ?(*(((V1253))->sfn.sfn_self)):          (type_of((V1298)) == t_sfun ?(*(((V1298))->sfn.sfn_self)):
5911          (fcall.argd=2,type_of((V1253))==t_vfun) ?          (fcall.argd=2,type_of((V1298))==t_vfun) ?
5912          (*(((V1253))->sfn.sfn_self)):          (*(((V1298))->sfn.sfn_self)):
5913          (fcall.fun=((V1253)),fcalln))((V1254),CMPcar((V1255))));          (fcall.fun=((V1298)),fcalln))((V1299),CMPcar((V1300))));
5914          goto T2351;          goto T2366;
5915          goto T2394;          goto T2409;
5916  T2394:;  T2409:;
5917          base[0]= (V1253);          base[0]= (V1298);
5918          base[1]= (V1254);          base[1]= (V1299);
5919          {object V1256;          {object V1301;
5920          V1256= (V1255);          V1301= (V1300);
5921           vs_top=base+2;           vs_top=base+2;
5922           while(V1256!=Cnil)           while(V1301!=Cnil)
5923           {vs_push((V1256)->c.c_car);V1256=(V1256)->c.c_cdr;}           {vs_push((V1301)->c.c_car);V1301=(V1301)->c.c_cdr;}
5924          vs_base=base+1;}          vs_base=base+1;}
5925          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5926                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5927                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5928                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5929          vs_top=sup;          vs_top=sup;
5930          V1245= vs_base[0];          V1290= vs_base[0];
5931          goto T2351;}          goto T2366;}
5932          goto T2386;          goto T2401;
5933  T2386:;  T2401:;
5934          base[0]= (V1252);          base[0]= (V1297);
5935          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5936          Lfunctionp();          Lfunctionp();
5937          vs_top=sup;          vs_top=sup;
5938          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5939          goto T2402;}          goto T2417;}
5940          V1245= (          V1290= (
5941          (type_of((V1242)) == t_sfun ?(*(((V1242))->sfn.sfn_self)):          (type_of((V1287)) == t_sfun ?(*(((V1287))->sfn.sfn_self)):
5942          (fcall.argd=1,type_of((V1242))==t_vfun) ?          (fcall.argd=1,type_of((V1287))==t_vfun) ?
5943          (*(((V1242))->sfn.sfn_self)):          (*(((V1287))->sfn.sfn_self)):
5944          (fcall.fun=((V1242)),fcalln))((V1243)));          (fcall.fun=((V1287)),fcalln))((V1288)));
5945          goto T2351;          goto T2366;
5946          goto T2402;          goto T2417;
5947  T2402:;  T2417:;
5948          base[1]= VV[113];          base[1]= VV[113];
5949          base[2]= (V1252);          base[2]= (V1297);
5950          base[3]= VV[118];          base[3]= VV[118];
5951          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5952          (void) (*Lnk303)();          (void) (*Lnk297)();
5953          vs_top=sup;          vs_top=sup;
5954          base[0]= vs_base[0];          base[0]= vs_base[0];
5955          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5956          Lerror();          Lerror();
5957          vs_top=sup;          vs_top=sup;
5958          V1245= vs_base[0];          V1290= vs_base[0];
5959          goto T2351;}          goto T2366;}
5960          goto T2353;          goto T2368;
5961  T2353:;  T2368:;
5962          base[0]= VV[115];          base[0]= VV[115];
5963          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5964          Lerror();          Lerror();
5965          vs_top=sup;          vs_top=sup;
5966          V1245= vs_base[0];          V1290= vs_base[0];
5967          goto T2351;          goto T2366;
5968  T2351:;  T2366:;
5969          base[0]=VV[307]->s.s_gfdef;          base[0]=VV[300]->s.s_gfdef;
5970          {          {
5971          object V1257= (V1245);          object V1302= (V1290);
5972          if(V1257==Cnil){          if(V1302==Cnil){
5973          goto T2410;}          goto T2425;}
5974          goto T2411;          goto T2426;
5975  T2411:;  T2426:;
5976          base[1]= (V1257->c.c_car);          base[1]= (V1302->c.c_car);
5977          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5978          (void) (*Lnk307)(Lclptr307);          (void) (*Lnk300)(Lclptr300);
5979          vs_top=sup;          vs_top=sup;
5980          if((V1257=MMcdr(V1257))==Cnil){          if((V1302=MMcdr(V1302))==Cnil){
5981          goto T2410;}          goto T2425;}
5982          goto T2411;}          goto T2426;}
5983          goto T2410;          goto T2425;
5984  T2410:;  T2425:;
5985          {object V1258 = (V1245);          {object V1303 = (V1290);
5986          VMR73(V1258)}}          VMR73(V1303)}}
5987          base[0]=base[0];          base[0]=base[0];
5988          return Cnil;          return Cnil;
5989  }  }
# Line 5897  static void L87() Line 5993  static void L87()
5993  {register object *base=vs_base;  {register object *base=vs_base;
5994          register object *sup=base+VM74; VC74          register object *sup=base+VM74; VC74
5995          vs_check;          vs_check;
5996          {object V1259;          {object V1304;
5997          object V1260;          object V1305;
5998          object V1261;          object V1306;
5999          object V1262;          object V1307;
6000          check_arg(4);          check_arg(4);
6001          V1259=(base[0]);          V1304=(base[0]);
6002          V1260=(base[1]);          V1305=(base[1]);
6003          V1261=(base[2]);          V1306=(base[2]);
6004          V1262=(base[3]);          V1307=(base[3]);
6005          vs_top=sup;          vs_top=sup;
6006          goto TTL;          goto TTL;
6007  TTL:;  TTL:;
6008          {object V1264;          {object V1309;
6009          object V1265;          object V1310;
6010          base[6]= (V1261);          base[6]= (V1306);
6011          base[7]= (V1262);          base[7]= (V1307);
6012          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6013          (void) (*Lnk309)(Lclptr309);          (void) (*Lnk302)(Lclptr302);
6014          vs_top=sup;          vs_top=sup;
6015          V1264= vs_base[0];          V1309= vs_base[0];
6016          base[6]= (V1261);          base[6]= (V1306);
6017          base[7]= (V1264);          base[7]= (V1309);
6018          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6019          (void) (*Lnk310)(Lclptr310);          (void) (*Lnk303)(Lclptr303);
6020          vs_top=sup;          vs_top=sup;
6021          V1265= vs_base[0];          V1310= vs_base[0];
6022          base[6]=VV[223]->s.s_gfdef;          base[6]=VV[218]->s.s_gfdef;
6023          base[7]= (V1265);          base[7]= (V1310);
6024          {object V1266;          {object V1311;
6025          V1266= (V1264);          V1311= (V1309);
6026           vs_top=base+8;           vs_top=base+8;
6027           while(V1266!=Cnil)           while(V1311!=Cnil)
6028           {vs_push((V1266)->c.c_car);V1266=(V1266)->c.c_cdr;}           {vs_push((V1311)->c.c_car);V1311=(V1311)->c.c_cdr;}
6029          vs_base=base+7;}          vs_base=base+7;}
6030          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk218)(Lclptr218);
6031          return;}          return;}
6032          }          }
6033  }  }
6034  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))    */  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))    */
6035    
6036  static object LI88(V1271,V1272,V1273,V1274)  static object LI88(V1316,V1317,V1318,V1319)
6037    
6038  object V1271;object V1272;object V1273;object V1274;  object V1316;object V1317;object V1318;object V1319;
6039  {        VMB75 VMS75 VMV75  {        VMB75 VMS75 VMV75
6040          goto TTL;          goto TTL;
6041  TTL:;  TTL:;
6042          {object V1276 = (VFUN_NARGS=1,(*(LnkLI219))(VV[119]));          {object V1321 = (VFUN_NARGS=1,(*(LnkLI214))(VV[119]));
6043          VMR75(V1276)}          VMR75(V1321)}
6044          return Cnil;          return Cnil;
6045  }  }
6046  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))      */  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))      */
6047    
6048  static object LI89(V1281,V1282,V1283,V1284)  static object LI89(V1326,V1327,V1328,V1329)
6049    
6050  object V1281;object V1282;object V1283;object V1284;  object V1326;object V1327;object V1328;object V1329;
6051  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
6052          goto TTL;          goto TTL;
6053  TTL:;  TTL:;
6054          {object V1286 = (VFUN_NARGS=1,(*(LnkLI219))(VV[120]));          {object V1331 = (VFUN_NARGS=1,(*(LnkLI214))(VV[120]));
6055          VMR76(V1286)}          VMR76(V1331)}
6056          return Cnil;          return Cnil;
6057  }  }
6058  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))        */  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))        */
6059    
6060  static object LI90(V1291,V1292,V1293,V1294)  static object LI90(V1336,V1337,V1338,V1339)
6061    
6062  object V1291;object V1292;object V1293;object V1294;  object V1336;object V1337;object V1338;object V1339;
6063  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
6064          goto TTL;          goto TTL;
6065  TTL:;  TTL:;
6066          {object V1296;          {object V1341;
6067          object V1297;          object V1342;
6068          object V1298;          object V1343;
6069          register object V1299;          register object V1344;
6070          object V1300;          object V1345;
6071          register object V1301;          register object V1346;
6072          register object V1302;          register object V1347;
6073          register object V1303;          register object V1348;
6074          register object V1304;          register object V1349;
6075          V1296= Cnil;          V1341= Cnil;
6076          V1297= Cnil;          V1342= Cnil;
6077          V1298= Cnil;          V1343= Cnil;
6078          V1299= Cnil;          V1344= Cnil;
6079          V1300= Cnil;          V1345= Cnil;
6080          V1301= Ct;          V1346= Ct;
6081          V1302= Cnil;          V1347= Cnil;
6082          V1303= Cnil;          V1348= Cnil;
6083          V1304= Cnil;          V1349= Cnil;
6084          {register object V1305;          {register object V1350;
6085          register object V1306;          register object V1351;
6086          V1305= (V1294);          V1350= (V1339);
6087          V1306= CMPcar((V1305));          V1351= CMPcar((V1350));
6088          goto T2447;          goto T2462;
6089  T2447:;  T2462:;
6090          if(!(((V1305))==Cnil)){          if(!(((V1350))==Cnil)){
6091          goto T2448;}          goto T2463;}
6092          goto T2443;          goto T2458;
6093          goto T2448;          goto T2463;
6094  T2448:;  T2463:;
6095          if(((V1306))==Cnil){          if(((V1351))==Cnil){
6096          goto T2452;}          goto T2467;}
6097          if(((V1302))!=Cnil){          if(((V1347))!=Cnil){
6098          goto T2455;}          goto T2470;}
6099          base[1]= (V1306);          base[1]= (V1351);
6100          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6101          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
6102          vs_top=sup;          vs_top=sup;
6103          V1296= vs_base[0];          V1341= vs_base[0];
6104          V1302= Ct;          V1347= Ct;
6105          goto T2455;          goto T2470;
6106  T2455:;  T2470:;
6107          if(((V1303))!=Cnil){          if(((V1348))!=Cnil){
6108          goto T2462;}          goto T2477;}
6109          base[1]= (V1306);          base[1]= (V1351);
6110          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6111          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk229)(Lclptr229);
6112          vs_top=sup;          vs_top=sup;
6113          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6114          goto T2462;}          goto T2477;}
6115          base[1]= (V1306);          base[1]= (V1351);
6116          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6117          (void) (*Lnk311)(Lclptr311);          (void) (*Lnk304)(Lclptr304);
6118          vs_top=sup;          vs_top=sup;
6119          V1298= vs_base[0];          V1343= vs_base[0];
6120          base[1]= (V1306);          base[1]= (V1351);
6121          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6122          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk229)(Lclptr229);
6123          vs_top=sup;          vs_top=sup;
6124          V1297= vs_base[0];          V1342= vs_base[0];
6125          V1303= Ct;          V1348= Ct;
6126          goto T2462;          goto T2477;
6127  T2462:;  T2477:;
6128          if(((V1304))!=Cnil){          if(((V1349))!=Cnil){
6129          goto T2475;}          goto T2490;}
6130          base[1]= (V1306);          base[1]= (V1351);
6131          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6132          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk228)(Lclptr228);
6133          vs_top=sup;          vs_top=sup;
6134          V1300= vs_base[0];          V1345= vs_base[0];
6135          V1304= Ct;          V1349= Ct;
6136          goto T2475;          goto T2490;
6137  T2475:;  T2490:;
6138          base[1]= (V1306);          base[1]= (V1351);
6139          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6140          (void) (*Lnk312)(Lclptr312);          (void) (*Lnk305)(Lclptr305);
6141          vs_top=sup;          vs_top=sup;
6142          V1307= vs_base[0];          V1352= vs_base[0];
6143          V1308 = (V1299);          V1353 = (V1344);
6144          V1299= append(V1307,V1308);          V1344= append(V1352,V1353);
6145          {register object V1309;          {register object V1354;
6146          base[1]= (V1306);          base[1]= (V1351);
6147          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6148          (void) (*Lnk313)(Lclptr313);          (void) (*Lnk306)(Lclptr306);
6149          vs_top=sup;          vs_top=sup;
6150          V1309= vs_base[0];          V1354= vs_base[0];
6151          if(!(((V1301))==(Ct))){          if(!(((V1346))==(Ct))){
6152          goto T2490;}          goto T2505;}
6153          V1301= (V1309);          V1346= (V1354);
6154          goto T2488;          goto T2503;
6155          goto T2490;          goto T2505;
6156  T2490:;  T2505:;
6157          base[1]= (V1301);          base[1]= (V1346);
6158          base[2]= (V1309);          base[2]= (V1354);
6159          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6160          (void) (*Lnk314)();          (void) (*Lnk307)();
6161          vs_top=sup;          vs_top=sup;
6162          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6163          goto T2493;}          goto T2508;}
6164          goto T2488;          goto T2503;
6165          goto T2493;          goto T2508;
6166  T2493:;  T2508:;
6167          V1301= list(3,VV[121],(V1301),(V1309));          V1346= list(3,VV[121],(V1346),(V1354));
6168          goto T2488;          goto T2503;
6169  T2488:;}  T2503:;}
6170          goto T2452;          goto T2467;
6171  T2452:;  T2467:;
6172          V1305= CMPcdr((V1305));          V1350= CMPcdr((V1350));
6173          V1306= CMPcar((V1305));          V1351= CMPcar((V1350));
6174          goto T2447;}          goto T2462;}
6175          goto T2443;          goto T2458;
6176  T2443:;  T2458:;
6177          base[0]= VV[50];          base[0]= VV[50];
6178          base[1]= (V1296);          base[1]= (V1341);
6179          base[2]= VV[122];          base[2]= VV[122];
6180          base[3]= (V1298);          base[3]= (V1343);
6181          base[4]= VV[123];          base[4]= VV[123];
6182          base[5]= (V1297);          base[5]= (V1342);
6183          base[6]= VV[124];          base[6]= VV[124];
6184          base[7]= (V1299);          base[7]= (V1344);
6185          base[8]= VV[125];          base[8]= VV[125];
6186          base[9]= (V1300);          base[9]= (V1345);
6187          base[10]= VV[126];          base[10]= VV[126];
6188          base[11]= (V1301);          base[11]= (V1346);
6189          base[12]= VV[65];          base[12]= VV[65];
6190          base[13]= (V1293);          base[13]= (V1338);
6191          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
6192          Llist();          Llist();
6193          vs_top=sup;          vs_top=sup;
6194          {object V1310 = vs_base[0];          {object V1355 = vs_base[0];
6195          VMR77(V1310)}}          VMR77(V1355)}}
6196          base[0]=base[0];          base[0]=base[0];
6197          return Cnil;          return Cnil;
6198  }  }
6199  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))   */  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))   */
6200    
6201  static object LI91(V1315,V1316,V1317,V1318)  static object LI91(V1360,V1361,V1362,V1363)
6202    
6203  object V1315;register object V1316;register object V1317;register object V1318;  object V1360;register object V1361;register object V1362;register object V1363;
6204  {        VMB78 VMS78 VMV78  {        VMB78 VMS78 VMV78
6205          goto TTL;          goto TTL;
6206  TTL:;  TTL:;
6207          {object V1320;          {object V1365;
6208          V1320= CMPcar((V1318));          V1365= CMPcar((V1363));
6209          base[0]= (V1320);          base[0]= (V1365);
6210          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6211          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk249)(Lclptr249);
6212          vs_top=sup;          vs_top=sup;
6213          V1321= vs_base[0];          V1366= vs_base[0];
6214          base[0]= (V1320);          base[0]= (V1365);
6215          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6216          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk308)(Lclptr308);
6217          vs_top=sup;          vs_top=sup;
6218          V1322= vs_base[0];          V1367= vs_base[0];
6219          base[0]= (V1320);          base[0]= (V1365);
6220          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6221          (void) (*Lnk316)(Lclptr316);          (void) (*Lnk309)(Lclptr309);
6222          vs_top=sup;          vs_top=sup;
6223          V1323= vs_base[0];          V1368= vs_base[0];
6224          if(((V1316))==Cnil){          if(((V1361))==Cnil){
6225          goto T2528;}          goto T2543;}
6226          base[0]= (V1316);          base[0]= (V1361);
6227          base[1]= VV[110];          base[1]= VV[110];
6228          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6229          (void) (*Lnk301)();          (void) (*Lnk295)();
6230          vs_top=sup;          vs_top=sup;
6231          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6232          goto T2532;}          goto T2547;}
6233          base[0]= STREF(object,(V1316),0);          base[0]= STREF(object,(V1361),0);
6234          base[1]= STREF(object,(V1316),4);          base[1]= STREF(object,(V1361),4);
6235          base[2]= STREF(object,(V1316),8);          base[2]= STREF(object,(V1361),8);
6236          base[3]= (V1317);          base[3]= (V1362);
6237          base[4]= (V1318);          base[4]= (V1363);
6238          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
6239          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6240                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6241                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6242                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6243          vs_top=sup;          vs_top=sup;
6244          V1324= vs_base[0];          V1369= vs_base[0];
6245          goto T2526;          goto T2541;
6246          goto T2532;          goto T2547;
6247  T2532:;  T2547:;
6248          if(!(type_of((V1316))==t_fixnum)){          if(!(type_of((V1361))==t_fixnum)){
6249          goto T2542;}          goto T2557;}
6250          {object V1326;          {object V1371;
6251          if(type_of(V1317)==t_structure){          if(type_of(V1362)==t_structure){
6252          goto T2548;}          goto T2563;}
6253          goto T2546;          goto T2561;
6254          goto T2548;          goto T2563;
6255  T2548:;  T2563:;
6256          if(!(((V1317)->str.str_def)==(VV[129]))){          if(!(((V1362)->str.str_def)==(VV[129]))){
6257          goto T2546;}          goto T2561;}
6258          V1326= STREF(object,(V1317),4);          V1371= STREF(object,(V1362),4);
6259          goto T2544;          goto T2559;
6260          goto T2546;          goto T2561;
6261  T2546:;{object V1328;  T2561:;{object V1373;
6262          V1328= (VV[2]->s.s_dbind);          V1373= (VV[2]->s.s_dbind);
6263          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6264          base[1]= (V1317);          base[1]= (V1362);
6265          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6266          (void) (*Lnk177)();          (void) (*Lnk174)();
6267          vs_top=sup;          vs_top=sup;
6268          V1329= vs_base[0];          V1374= vs_base[0];
6269          if(!((V1328)==(CMPcar(V1329)))){          if(!((V1373)==(CMPcar(V1374)))){
6270          goto T2551;}}          goto T2566;}}
6271          V1326= CMPcar(((V1317))->cc.cc_turbo[12]);          V1371= CMPcar(((V1362))->cc.cc_turbo[12]);
6272          goto T2544;          goto T2559;
6273          goto T2551;          goto T2566;
6274  T2551:;  T2566:;
6275          V1326= Cnil;          V1371= Cnil;
6276          goto T2544;          goto T2559;
6277  T2544:;  T2559:;
6278          if(((V1326))==Cnil){          if(((V1371))==Cnil){
6279          goto T2557;}          goto T2572;}
6280          V1324= ((V1326))->v.v_self[fix((V1316))]= (V1317);          V1369= ((V1371))->v.v_self[fix((V1361))]= (V1362);
6281          goto T2526;          goto T2541;
6282            goto T2572;
6283    T2572:;
6284            V1369= Cnil;
6285            goto T2541;}
6286          goto T2557;          goto T2557;
6287  T2557:;  T2557:;
6288          V1324= Cnil;          {register object V1375;
6289          goto T2526;}          V1375= (V1361);
6290          goto T2542;          base[0]= (V1375);
 T2542:;  
         {register object V1330;  
         V1330= (V1316);  
         base[0]= (V1330);  
6291          base[1]= VV[112];          base[1]= VV[112];
6292          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6293          (void) (*Lnk301)();          (void) (*Lnk295)();
6294          vs_top=sup;          vs_top=sup;
6295          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6296          goto T2560;}          goto T2575;}
6297          {object V1331;          {object V1376;
6298          object V1332;          object V1377;
6299          register object V1333;          register object V1378;
6300          V1331= STREF(object,(V1316),0);          V1376= STREF(object,(V1361),0);
6301          V1332= list(2,(V1317),(V1318));          V1377= list(2,(V1362),(V1363));
6302          V1333= STREF(object,(V1316),4);          V1378= STREF(object,(V1361),4);
6303          if(((V1333))==Cnil){          if(((V1378))==Cnil){
6304          goto T2568;}          goto T2583;}
6305          if((CMPcdr((V1333)))!=Cnil){          if((CMPcdr((V1378)))!=Cnil){
6306          goto T2568;}          goto T2583;}
6307          base[0]= (V1332);          base[0]= (V1377);
6308          base[1]= CMPcar((V1333));          base[1]= CMPcar((V1378));
6309          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6310          {object _funobj = (V1331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1376);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6311                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6312                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6313                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6314          vs_top=sup;          vs_top=sup;
6315          V1324= vs_base[0];          V1369= vs_base[0];
6316          goto T2526;          goto T2541;
6317          goto T2568;          goto T2583;
6318  T2568:;  T2583:;
6319          base[0]= (V1331);          base[0]= (V1376);
6320          base[1]= (V1332);          base[1]= (V1377);
6321          {object V1334;          {object V1379;
6322          V1334= (V1333);          V1379= (V1378);
6323           vs_top=base+2;           vs_top=base+2;
6324           while(V1334!=Cnil)           while(V1379!=Cnil)
6325           {vs_push((V1334)->c.c_car);V1334=(V1334)->c.c_cdr;}           {vs_push((V1379)->c.c_car);V1379=(V1379)->c.c_cdr;}
6326          vs_base=base+1;}          vs_base=base+1;}
6327          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6328                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6329                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6330                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6331          vs_top=sup;          vs_top=sup;
6332          V1324= vs_base[0];          V1369= vs_base[0];
6333          goto T2526;}          goto T2541;}
6334          goto T2560;          goto T2575;
6335  T2560:;  T2575:;
6336          base[0]= (V1330);          base[0]= (V1375);
6337          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6338          Lfunctionp();          Lfunctionp();
6339          vs_top=sup;          vs_top=sup;
6340          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6341          goto T2578;}          goto T2593;}
6342          base[0]= (V1317);          base[0]= (V1362);
6343          base[1]= (V1318);          base[1]= (V1363);
6344          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6345          {object _funobj = (V1316);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1361);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6346                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6347                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6348                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6349          vs_top=sup;          vs_top=sup;
6350          V1324= vs_base[0];          V1369= vs_base[0];
6351          goto T2526;          goto T2541;
6352          goto T2578;          goto T2593;
6353  T2578:;  T2593:;
6354          base[1]= VV[113];          base[1]= VV[113];
6355          base[2]= (V1330);          base[2]= (V1375);
6356          base[3]= VV[130];          base[3]= VV[130];
6357          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6358          (void) (*Lnk303)();          (void) (*Lnk297)();
6359          vs_top=sup;          vs_top=sup;
6360          base[0]= vs_base[0];          base[0]= vs_base[0];
6361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6362          Lerror();          Lerror();
6363          vs_top=sup;          vs_top=sup;
6364          V1324= vs_base[0];          V1369= vs_base[0];
6365          goto T2526;}          goto T2541;}
6366          goto T2528;          goto T2543;
6367  T2528:;  T2543:;
6368          base[0]= VV[115];          base[0]= VV[115];
6369          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6370          Lerror();          Lerror();
6371          vs_top=sup;          vs_top=sup;
6372          V1324= vs_base[0];          V1369= vs_base[0];
6373          goto T2526;          goto T2541;
6374  T2526:;  T2541:;
6375          {object V1335 = listA(7,VV[70],V1321,VV[127],V1322,VV[128],V1323,V1324);          {object V1380 = listA(7,VV[70],V1366,VV[127],V1367,VV[128],V1368,V1369);
6376          VMR78(V1335)}}          VMR78(V1380)}}
6377          base[0]=base[0];          base[0]=base[0];
6378          return Cnil;          return Cnil;
6379  }  }
6380  /*      local entry for function (FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))       */
6381    
6382  static object LI92(V1341,V1342,V1343,V1344,V1345)  static object LI92(V1386,V1387,V1388,V1389,V1390)
6383    
6384  object V1341;object V1342;object V1343;object V1344;object V1345;  object V1386;object V1387;object V1388;object V1389;object V1390;
6385  {        VMB79 VMS79 VMV79  {        VMB79 VMS79 VMV79
6386          goto TTL;          goto TTL;
6387  TTL:;  TTL:;
6388          {object V1348 = (VFUN_NARGS=1,(*(LnkLI219))(VV[131]));          {object V1393 = (VFUN_NARGS=1,(*(LnkLI214))(VV[131]));
6389          VMR79(V1348)}          VMR79(V1393)}
6390          return Cnil;          return Cnil;
6391  }  }
6392  /*      function definition for (FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))        */  /*      function definition for (FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))        */
# Line 6299  static void L93() Line 6395  static void L93()
6395  {register object *base=vs_base;  {register object *base=vs_base;
6396          register object *sup=base+VM80; VC80          register object *sup=base+VM80; VC80
6397          vs_check;          vs_check;
6398          {object V1349;          {object V1394;
6399          object V1350;          object V1395;
6400          register object V1351;          register object V1396;
6401          object V1352;          object V1397;
6402          object V1353;          object V1398;
6403          check_arg(5);          check_arg(5);
6404          V1349=(base[0]);          V1394=(base[0]);
6405          V1350=(base[1]);          V1395=(base[1]);
6406          V1351=(base[2]);          V1396=(base[2]);
6407          V1352=(base[3]);          V1397=(base[3]);
6408          V1353=(base[4]);          V1398=(base[4]);
6409          vs_top=sup;          vs_top=sup;
6410          goto TTL;          goto TTL;
6411  TTL:;  TTL:;
6412          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[310]->s.s_gfdef);
6413          base[6]= (V1352);          base[6]= (V1397);
6414          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[311]->s.s_gfdef);
6415          base[9]= VV[131];          base[9]= VV[131];
6416          base[10]= Cnil;{object V1356;          base[10]= Cnil;{object V1401;
6417          base[12]= (V1351);          base[12]= (V1396);
6418          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6419          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6420          vs_top=sup;          vs_top=sup;
6421          V1356= vs_base[0];          V1401= vs_base[0];
6422          if(V1356==Cnil)goto T2600;          if(V1401==Cnil)goto T2615;
6423          V1355= V1356;          V1400= V1401;
6424          goto T2599;          goto T2614;
6425          goto T2600;          goto T2615;
6426  T2600:;}  T2615:;}
6427          V1355= VV[132];          V1400= VV[132];
6428          goto T2599;          goto T2614;
6429  T2599:;  T2614:;
6430          base[11]= make_cons(V1355,Cnil);          base[11]= make_cons(V1400,Cnil);
6431          base[12]= make_cons((V1351),Cnil);          base[12]= make_cons((V1396),Cnil);
6432          base[14]= (V1351);          base[14]= (V1396);
6433          base[15]= (V1353);          base[15]= (V1398);
6434          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6435          (void) (*Lnk319)(Lclptr319);          (void) (*Lnk312)(Lclptr312);
6436          vs_top=sup;          vs_top=sup;
6437          base[13]= vs_base[0];          base[13]= vs_base[0];
6438          base[14]= VV[133];          base[14]= VV[133];
6439          base[15]= (V1353);          base[15]= (V1398);
6440          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6441          lispcall(base+5,2);          lispcall(base+5,2);
6442          return;          return;
# Line 6348  T2599:; Line 6444  T2599:;
6444  }  }
6445  /*      local entry for function (FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))       */
6446    
6447  static object LI94(V1362,V1363,V1364,V1365,V1366)  static object LI94(V1407,V1408,V1409,V1410,V1411)
6448    
6449  object V1362;object V1363;object V1364;object V1365;object V1366;  object V1407;object V1408;object V1409;object V1410;object V1411;
6450  {        VMB81 VMS81 VMV81  {        VMB81 VMS81 VMV81
6451          goto TTL;          goto TTL;
6452  TTL:;  TTL:;
6453          {object V1369 = (VFUN_NARGS=1,(*(LnkLI219))(VV[134]));          {object V1414 = (VFUN_NARGS=1,(*(LnkLI214))(VV[134]));
6454          VMR81(V1369)}          VMR81(V1414)}
6455          return Cnil;          return Cnil;
6456  }  }
6457  /*      function definition for (FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))        */  /*      function definition for (FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))        */
# Line 6364  static void L95() Line 6460  static void L95()
6460  {register object *base=vs_base;  {register object *base=vs_base;
6461          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
6462          vs_check;          vs_check;
6463          {object V1370;          {object V1415;
6464          object V1371;          object V1416;
6465          register object V1372;          register object V1417;
6466          object V1373;          object V1418;
6467          object V1374;          object V1419;
6468          check_arg(5);          check_arg(5);
6469          V1370=(base[0]);          V1415=(base[0]);
6470          V1371=(base[1]);          V1416=(base[1]);
6471          V1372=(base[2]);          V1417=(base[2]);
6472          V1373=(base[3]);          V1418=(base[3]);
6473          V1374=(base[4]);          V1419=(base[4]);
6474          vs_top=sup;          vs_top=sup;
6475          goto TTL;          goto TTL;
6476  TTL:;  TTL:;
6477          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[310]->s.s_gfdef);
6478          base[6]= (V1373);          base[6]= (V1418);
6479          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[311]->s.s_gfdef);
6480          base[9]= VV[134];          base[9]= VV[134];
6481          base[10]= Cnil;{object V1377;          base[10]= Cnil;{object V1422;
6482          base[12]= (V1372);          base[12]= (V1417);
6483          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6484          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6485          vs_top=sup;          vs_top=sup;
6486          V1377= vs_base[0];          V1422= vs_base[0];
6487          if(V1377==Cnil)goto T2621;          if(V1422==Cnil)goto T2636;
6488          V1376= V1377;          V1421= V1422;
6489          goto T2620;          goto T2635;
6490          goto T2621;          goto T2636;
6491  T2621:;}  T2636:;}
6492          V1376= VV[132];          V1421= VV[132];
6493          goto T2620;          goto T2635;
6494  T2620:;  T2635:;
6495          base[11]= list(2,VV[135],V1376);          base[11]= list(2,VV[135],V1421);
6496          base[12]= list(2,(VV[136]->s.s_dbind),(V1372));          base[12]= list(2,(VV[136]->s.s_dbind),(V1417));
6497          base[14]= (V1372);          base[14]= (V1417);
6498          base[15]= (V1374);          base[15]= (V1419);
6499          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6500          (void) (*Lnk320)(Lclptr320);          (void) (*Lnk313)(Lclptr313);
6501          vs_top=sup;          vs_top=sup;
6502          base[13]= vs_base[0];          base[13]= vs_base[0];
6503          base[14]= VV[137];          base[14]= VV[137];
6504          base[15]= (V1374);          base[15]= (V1419);
6505          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6506          lispcall(base+5,2);          lispcall(base+5,2);
6507          return;          return;
# Line 6417  static void L96() Line 6513  static void L96()
6513  {register object *base=vs_base;  {register object *base=vs_base;
6514          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
6515          vs_check;          vs_check;
6516          {object V1378;          {object V1423;
6517          object V1379;          object V1424;
6518          register object V1380;          register object V1425;
6519          object V1381;          object V1426;
6520          object V1382;          object V1427;
6521          check_arg(5);          check_arg(5);
6522          V1378=(base[0]);          V1423=(base[0]);
6523          V1379=(base[1]);          V1424=(base[1]);
6524          V1380=(base[2]);          V1425=(base[2]);
6525          V1381=(base[3]);          V1426=(base[3]);
6526          V1382=(base[4]);          V1427=(base[4]);
6527          vs_top=sup;          vs_top=sup;
6528          goto TTL;          goto TTL;
6529  TTL:;  TTL:;
6530          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[310]->s.s_gfdef);
6531          base[6]= (V1381);          base[6]= (V1426);
6532          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[311]->s.s_gfdef);
6533          base[9]= VV[138];          base[9]= VV[138];
6534          base[10]= Cnil;{object V1385;          base[10]= Cnil;{object V1430;
6535          base[12]= (V1380);          base[12]= (V1425);
6536          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6537          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6538          vs_top=sup;          vs_top=sup;
6539          V1385= vs_base[0];          V1430= vs_base[0];
6540          if(V1385==Cnil)goto T2639;          if(V1430==Cnil)goto T2654;
6541          V1384= V1385;          V1429= V1430;
6542          goto T2638;          goto T2653;
6543          goto T2639;          goto T2654;
6544  T2639:;}  T2654:;}
6545          V1384= VV[132];          V1429= VV[132];
6546          goto T2638;          goto T2653;
6547  T2638:;  T2653:;
6548          base[11]= make_cons(V1384,Cnil);          base[11]= make_cons(V1429,Cnil);
6549          base[12]= make_cons((V1380),Cnil);          base[12]= make_cons((V1425),Cnil);
6550          base[14]= (V1380);          base[14]= (V1425);
6551          base[15]= (V1382);          base[15]= (V1427);
6552          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6553          (void) (*Lnk321)(Lclptr321);          (void) (*Lnk314)(Lclptr314);
6554          vs_top=sup;          vs_top=sup;
6555          base[13]= vs_base[0];          base[13]= vs_base[0];
6556          base[14]= VV[139];          base[14]= VV[139];
6557          base[15]= (V1382);          base[15]= (V1427);
6558          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6559          lispcall(base+5,2);          lispcall(base+5,2);
6560          return;          return;
# Line 6466  T2638:; Line 6562  T2638:;
6562  }  }
6563  /*      local entry for function (FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))      */
6564    
6565  static object LI97(V1390,V1391,V1392,V1393)  static object LI97(V1435,V1436,V1437,V1438)
6566    
6567  object V1390;object V1391;object V1392;object V1393;  object V1435;object V1436;object V1437;object V1438;
6568  {        VMB84 VMS84 VMV84  {        VMB84 VMS84 VMV84
6569          goto TTL;          goto TTL;
6570  TTL:;  TTL:;
6571          {object V1395;          {object V1440;
6572          V1396= make_cons((V1392),Cnil);          V1441= make_cons((V1437),Cnil);
6573          V1395= (VFUN_NARGS=4,(*(LnkLI322))((V1393),Cnil,/* INLINE-ARGS */V1396,Cnil));          V1440= (VFUN_NARGS=4,(*(LnkLI315))((V1438),Cnil,/* INLINE-ARGS */V1441,Cnil));
6574          if(((V1395))==Cnil){          if(((V1440))==Cnil){
6575          goto T2653;}          goto T2668;}
6576          base[0]= (V1393);          base[0]= (V1438);
6577          base[1]= (V1395);          base[1]= (V1440);
6578          {object V1397 = simple_symlispcall(VV[323],base+0,2);          {object V1442 = simple_symlispcall(VV[316],base+0,2);
6579          VMR84(V1397)}          VMR84(V1442)}
6580          goto T2653;          goto T2668;
6581  T2653:;  T2668:;
6582          {object V1398 = Cnil;          {object V1443 = Cnil;
6583          VMR84(V1398)}}          VMR84(V1443)}}
6584          base[0]=base[0];          base[0]=base[0];
6585          return Cnil;          return Cnil;
6586  }  }
6587  /*      local entry for function (FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))      */
6588    
6589  static object LI98(V1403,V1404,V1405,V1406)  static object LI98(V1448,V1449,V1450,V1451)
6590    
6591  object V1403;object V1404;object V1405;object V1406;  object V1448;object V1449;object V1450;object V1451;
6592  {        VMB85 VMS85 VMV85  {        VMB85 VMS85 VMV85
6593          goto TTL;          goto TTL;
6594  TTL:;  TTL:;
6595          {object V1408;          {object V1453;
6596          V1409= list(2,(VV[136]->s.s_dbind),(V1405));          V1454= list(2,(VV[136]->s.s_dbind),(V1450));
6597          V1408= (VFUN_NARGS=4,(*(LnkLI322))((V1406),Cnil,/* INLINE-ARGS */V1409,Cnil));          V1453= (VFUN_NARGS=4,(*(LnkLI315))((V1451),Cnil,/* INLINE-ARGS */V1454,Cnil));
6598          if(((V1408))==Cnil){          if(((V1453))==Cnil){
6599          goto T2662;}          goto T2677;}
6600          base[0]= (V1406);          base[0]= (V1451);
6601          base[1]= (V1408);          base[1]= (V1453);
6602          {object V1410 = simple_symlispcall(VV[323],base+0,2);          {object V1455 = simple_symlispcall(VV[316],base+0,2);
6603          VMR85(V1410)}          VMR85(V1455)}
6604          goto T2662;          goto T2677;
6605  T2662:;  T2677:;
6606          {object V1411 = Cnil;          {object V1456 = Cnil;
6607          VMR85(V1411)}}          VMR85(V1456)}}
6608          base[0]=base[0];          base[0]=base[0];
6609          return Cnil;          return Cnil;
6610  }  }
6611  /*      local entry for function (FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))      */
6612    
6613  static object LI99(V1416,V1417,V1418,V1419)  static object LI99(V1461,V1462,V1463,V1464)
6614    
6615  object V1416;object V1417;object V1418;object V1419;  object V1461;object V1462;object V1463;object V1464;
6616  {        VMB86 VMS86 VMV86  {        VMB86 VMS86 VMV86
6617          goto TTL;          goto TTL;
6618  TTL:;  TTL:;
6619          {object V1421;          {object V1466;
6620          V1422= make_cons((V1418),Cnil);          V1467= make_cons((V1463),Cnil);
6621          V1421= (VFUN_NARGS=4,(*(LnkLI322))((V1419),Cnil,/* INLINE-ARGS */V1422,Cnil));          V1466= (VFUN_NARGS=4,(*(LnkLI315))((V1464),Cnil,/* INLINE-ARGS */V1467,Cnil));
6622          if(((V1421))==Cnil){          if(((V1466))==Cnil){
6623          goto T2671;}          goto T2686;}
6624          base[0]= (V1419);          base[0]= (V1464);
6625          base[1]= (V1421);          base[1]= (V1466);
6626          {object V1423 = simple_symlispcall(VV[323],base+0,2);          {object V1468 = simple_symlispcall(VV[316],base+0,2);
6627          VMR86(V1423)}          VMR86(V1468)}
6628          goto T2671;          goto T2686;
6629  T2671:;  T2686:;
6630          {object V1424 = Cnil;          {object V1469 = Cnil;
6631          VMR86(V1424)}}          VMR86(V1469)}}
6632          base[0]=base[0];          base[0]=base[0];
6633          return Cnil;          return Cnil;
6634  }  }
6635  /*      local entry for function (FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))       */
6636    
6637  static object LI100(V1429,V1430,V1431,V1432)  static object LI100(V1474,V1475,V1476,V1477)
6638    
6639  object V1429;object V1430;object V1431;object V1432;  object V1474;object V1475;object V1476;object V1477;
6640  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
6641          goto TTL;          goto TTL;
6642  TTL:;  TTL:;
6643          base[0]= (V1431);          base[0]= (V1476);
6644          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6645          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6646          vs_top=sup;          vs_top=sup;
6647          V1434= vs_base[0];          V1479= vs_base[0];
6648          V1435 = (V1432);          V1480 = (V1477);
6649          {object V1436 = (*(LnkLI324))(V1434,V1435);          {object V1481 = (*(LnkLI317))(V1479,V1480);
6650          VMR87(V1436)}          VMR87(V1481)}
6651          base[0]=base[0];          base[0]=base[0];
6652          return Cnil;          return Cnil;
6653  }  }
6654  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))       */
6655    
6656  static object LI101(V1441,V1442,V1443,V1444)  static object LI101(V1486,V1487,V1488,V1489)
6657    
6658  object V1441;object V1442;object V1443;object V1444;  object V1486;object V1487;object V1488;object V1489;
6659  {        VMB88 VMS88 VMV88  {        VMB88 VMS88 VMV88
6660          goto TTL;          goto TTL;
6661  TTL:;  TTL:;
6662          base[0]= (V1443);          base[0]= (V1488);
6663          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6664          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6665          vs_top=sup;          vs_top=sup;
6666          V1446= vs_base[0];          V1491= vs_base[0];
6667          V1447 = (V1444);          V1492 = (V1489);
6668          {object V1448 = (*(LnkLI325))(V1446,V1447);          {object V1493 = (*(LnkLI318))(V1491,V1492);
6669          VMR88(V1448)}          VMR88(V1493)}
6670          base[0]=base[0];          base[0]=base[0];
6671          return Cnil;          return Cnil;
6672  }  }
6673  /*      local entry for function (FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))       */
6674    
6675  static object LI102(V1453,V1454,V1455,V1456)  static object LI102(V1498,V1499,V1500,V1501)
6676    
6677  object V1453;object V1454;object V1455;object V1456;  object V1498;object V1499;object V1500;object V1501;
6678  {        VMB89 VMS89 VMV89  {        VMB89 VMS89 VMV89
6679          goto TTL;          goto TTL;
6680  TTL:;  TTL:;
6681          base[0]= (V1455);          base[0]= (V1500);
6682          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6683          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk233)(Lclptr233);
6684          vs_top=sup;          vs_top=sup;
6685          V1458= vs_base[0];          V1503= vs_base[0];
6686          V1459 = (V1456);          V1504 = (V1501);
6687          {object V1460 = (*(LnkLI326))(V1458,V1459);          {object V1505 = (*(LnkLI319))(V1503,V1504);
6688          VMR89(V1460)}          VMR89(V1505)}
6689          base[0]=base[0];          base[0]=base[0];
6690          return Cnil;          return Cnil;
6691  }  }
6692  /*      local entry for function (FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))     */  /*      local entry for function (FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))     */
6693    
6694  static object LI103(V1465,V1466,V1467,V1468)  static object LI103(V1510,V1511,V1512,V1513)
6695    
6696  object V1465;object V1466;object V1467;object V1468;  object V1510;object V1511;object V1512;object V1513;
6697  {        VMB90 VMS90 VMV90  {        VMB90 VMS90 VMV90
6698          goto TTL;          goto TTL;
6699  TTL:;  TTL:;
6700          {object V1470 = (*(LnkLI327))((V1468));          {object V1515 = (*(LnkLI320))((V1513));
6701          VMR90(V1470)}          VMR90(V1515)}
6702          return Cnil;          return Cnil;
6703  }  }
6704  /*      local entry for function (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))     */  /*      local entry for function (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))     */
6705    
6706  static object LI104(V1475,V1476,V1477,V1478)  static object LI104(V1520,V1521,V1522,V1523)
6707    
6708  object V1475;object V1476;object V1477;object V1478;  object V1520;object V1521;object V1522;object V1523;
6709  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
6710          goto TTL;          goto TTL;
6711  TTL:;  TTL:;
6712          V1480= (*(LnkLI225))((V1477));          V1525= (*(LnkLI219))((V1522));
6713          V1481= (*(LnkLI225))((V1478));          V1526= (*(LnkLI219))((V1523));
6714          {object V1482 = ((/* INLINE-ARGS */V1480)==(/* INLINE-ARGS */V1481)?Ct:Cnil);          {object V1527 = ((/* INLINE-ARGS */V1525)==(/* INLINE-ARGS */V1526)?Ct:Cnil);
6715          VMR91(V1482)}          VMR91(V1527)}
6716          return Cnil;          return Cnil;
6717  }  }
6718  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))        */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))        */
6719    
6720  static object LI105(V1487,V1488,V1489,V1490)  static object LI105(V1532,V1533,V1534,V1535)
6721    
6722  object V1487;object V1488;object V1489;object V1490;  object V1532;object V1533;object V1534;object V1535;
6723  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
6724          goto TTL;          goto TTL;
6725  TTL:;  TTL:;
6726          if(!(((V1490))==((VV[136]->s.s_dbind)))){          if(!(((V1535))==((VV[136]->s.s_dbind)))){
6727          goto T2700;}          goto T2715;}
6728          {object V1492 = Ct;          {object V1537 = Ct;
6729          VMR92(V1492)}          VMR92(V1537)}
6730          goto T2700;          goto T2715;
6731  T2700:;  T2715:;
6732          V1493= (*(LnkLI225))((V1489));          V1538= (*(LnkLI219))((V1534));
6733          V1494= (*(LnkLI225))((V1490));          V1539= (*(LnkLI219))((V1535));
6734          {object V1495 = ((/* INLINE-ARGS */V1493)==(/* INLINE-ARGS */V1494)?Ct:Cnil);          {object V1540 = ((/* INLINE-ARGS */V1538)==(/* INLINE-ARGS */V1539)?Ct:Cnil);
6735          VMR92(V1495)}          VMR92(V1540)}
6736          return Cnil;          return Cnil;
6737  }  }
6738  /*      local entry for function FORCE-CACHE-FLUSHES    */  /*      local entry for function FORCE-CACHE-FLUSHES    */
6739    
6740  static object LI106(V1497)  static object LI106(V1542)
6741    
6742  object V1497;  object V1542;
6743  {        VMB93 VMS93 VMV93  {        VMB93 VMS93 VMV93
6744          goto TTL;          goto TTL;
6745  TTL:;  TTL:;
6746          {register object V1498;          {register object V1543;
6747          object V1499;          object V1544;
6748          base[2]= (V1497);          base[2]= (V1542);
6749          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6750          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk287)(Lclptr287);
6751          vs_top=sup;          vs_top=sup;
6752          V1498= vs_base[0];          V1543= vs_base[0];
6753          V1499= ((V1498))->v.v_self[8];          V1544= ((V1543))->v.v_self[8];
6754          if(!(((V1499))==(Ct))){          if(!(((V1544))==(Ct))){
6755          goto T2706;}          goto T2721;}
6756          {register object V1500;          {register object V1545;
6757          V1500= (VFUN_NARGS=2,(*(LnkLI263))(((V1498))->v.v_self[12],(V1497)));          V1545= (VFUN_NARGS=2,(*(LnkLI257))(((V1543))->v.v_self[12],(V1542)));
6758          (void)(((V1500))->v.v_self[9]= (((V1498))->v.v_self[9]));          (void)(((V1545))->v.v_self[9]= (((V1543))->v.v_self[9]));
6759          (void)(((V1500))->v.v_self[10]= (((V1498))->v.v_self[10]));          (void)(((V1545))->v.v_self[10]= (((V1543))->v.v_self[10]));
6760          if(!((VV[104])->s.s_gfdef!=OBJNULL)){          if(!((VV[104])->s.s_gfdef!=OBJNULL)){
6761          goto T2713;}          goto T2728;}
6762          base[2]= (V1500);          base[2]= (V1545);
6763          base[3]= (V1497);          base[3]= (V1542);
6764          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6765          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
6766          vs_top=sup;          vs_top=sup;
6767          goto T2711;          goto T2726;
6768          goto T2713;          goto T2728;
6769  T2713:;  T2728:;
6770          (void)((*(LnkLI283))(VV[104],VV[105]));          (void)((*(LnkLI277))(VV[104],VV[105]));
6771          goto T2711;          goto T2726;
6772  T2711:;  T2726:;
6773          {object V1501 = (*(LnkLI328))((V1498),VV[140],(V1500));          {object V1546 = (*(LnkLI321))((V1543),VV[140],(V1545));
6774          VMR93(V1501)}}          VMR93(V1546)}}
6775          goto T2706;          goto T2721;
6776  T2706:;  T2721:;
6777          {object V1502 = Cnil;          {object V1547 = Cnil;
6778          VMR93(V1502)}}          VMR93(V1547)}}
6779          base[0]=base[0];          base[0]=base[0];
6780          return Cnil;          return Cnil;
6781  }  }
6782  /*      local entry for function FLUSH-CACHE-TRAP       */  /*      local entry for function FLUSH-CACHE-TRAP       */
6783    
6784  static object LI107(V1506,V1507,V1508)  static object LI107(V1551,V1552,V1553)
6785    
6786  object V1506;object V1507;object V1508;  object V1551;object V1552;object V1553;
6787  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
6788          goto TTL;          goto TTL;
6789  TTL:;  TTL:;
6790          {object V1509 = (*(LnkLI329))((V1508),(V1507));          {object V1554 = (*(LnkLI322))((V1553),(V1552));
6791          VMR94(V1509)}          VMR94(V1554)}
6792          return Cnil;          return Cnil;
6793  }  }
6794  /*      local entry for function (FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))      */  /*      local entry for function (FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))      */
6795    
6796  static object LI108(V1513,V1514,V1515)  static object LI108(V1558,V1559,V1560)
6797    
6798  object V1513;object V1514;register object V1515;  object V1558;object V1559;register object V1560;
6799  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
6800          goto TTL;          goto TTL;
6801  TTL:;  TTL:;
6802          {object V1517;          {object V1562;
6803          object V1518;          object V1563;
6804          V1517= CMPcar((V1513));          V1562= CMPcar((V1558));
6805          V1518= CMPcdr((V1513));          V1563= CMPcdr((V1558));
6806          {object V1519;          {object V1564;
6807          if(type_of(V1515)==t_structure){          if(type_of(V1560)==t_structure){
6808          goto T2727;}          goto T2742;}
6809          goto T2725;          goto T2740;
6810          goto T2727;          goto T2742;
6811  T2727:;  T2742:;
6812          if(!(((V1515)->str.str_def)==(VV[141]))){          if(!(((V1560)->str.str_def)==(VV[141]))){
6813          goto T2725;}          goto T2740;}
6814          V1519= STREF(object,(V1515),4);          V1564= STREF(object,(V1560),4);
6815          goto T2723;          goto T2738;
6816          goto T2725;          goto T2740;
6817  T2725:;{object V1521;  T2740:;{object V1566;
6818          V1521= (VV[2]->s.s_dbind);          V1566= (VV[2]->s.s_dbind);
6819          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6820          base[1]= (V1515);          base[1]= (V1560);
6821          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6822          (void) (*Lnk177)();          (void) (*Lnk174)();
6823          vs_top=sup;          vs_top=sup;
6824          V1522= vs_base[0];          V1567= vs_base[0];
6825          if(!((V1521)==(CMPcar(V1522)))){          if(!((V1566)==(CMPcar(V1567)))){
6826          goto T2730;}}          goto T2745;}}
6827          V1519= CMPcar(((V1515))->cc.cc_turbo[12]);          V1564= CMPcar(((V1560))->cc.cc_turbo[12]);
6828          goto T2723;          goto T2738;
6829          goto T2730;          goto T2745;
6830  T2730:;  T2745:;
6831          V1519= Cnil;          V1564= Cnil;
6832          goto T2723;          goto T2738;
6833  T2723:;  T2738:;
6834          {register object V1523;          {register object V1568;
6835          register object V1524;          register object V1569;
6836          base[2]= (V1515);          base[2]= (V1560);
6837          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6838          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk287)(Lclptr287);
6839          vs_top=sup;          vs_top=sup;
6840          V1523= vs_base[0];          V1568= vs_base[0];
6841          V1524= (VFUN_NARGS=2,(*(LnkLI263))(((V1523))->v.v_self[12],(V1515)));          V1569= (VFUN_NARGS=2,(*(LnkLI257))(((V1568))->v.v_self[12],(V1560)));
6842          (void)(((V1524))->v.v_self[9]= (((V1523))->v.v_self[9]));          (void)(((V1569))->v.v_self[9]= (((V1568))->v.v_self[9]));
6843          (void)(((V1524))->v.v_self[10]= (((V1523))->v.v_self[10]));          (void)(((V1569))->v.v_self[10]= (((V1568))->v.v_self[10]));
6844          {object V1526;          {object V1571;
6845          V1526= ((V1517))->v.v_self[1];          V1571= ((V1562))->v.v_self[1];
6846          if(!(type_of(V1526)==t_fixnum)){          if(!(type_of(V1571)==t_fixnum)){
6847          goto T2744;}          goto T2759;}
6848          (void)(((V1519))->v.v_self[fix((V1526))]= (V1524));          (void)(((V1564))->v.v_self[fix((V1571))]= (V1569));
6849          goto T2741;          goto T2756;
6850          goto T2744;          goto T2759;
6851  T2744:;  T2759:;
6852          base[2]= V1524;          base[2]= V1569;
6853          base[3]= (V1515);          base[3]= (V1560);
6854          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6855          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
6856          vs_top=sup;}          vs_top=sup;}
6857          goto T2741;          goto T2756;
6858  T2741:;  T2756:;
6859          (void)((*(LnkLI328))((V1523),VV[142],(V1524)));          (void)((*(LnkLI321))((V1568),VV[142],(V1569)));
6860          {object V1528 = (V1515);          {object V1573 = (V1560);
6861          VMR95(V1528)}}}}          VMR95(V1573)}}}}
6862          base[0]=base[0];          base[0]=base[0];
6863          return Cnil;          return Cnil;
6864  }  }
# Line 6772  static void L109() Line 6868  static void L109()
6868  {register object *base=vs_base;  {register object *base=vs_base;
6869          register object *sup=base+VM96; VC96          register object *sup=base+VM96; VC96
6870          vs_check;          vs_check;
6871          {object V1529;          {object V1574;
6872          object V1530;          object V1575;
6873          object V1531;          object V1576;
6874          check_arg(3);          check_arg(3);
6875          V1529=(base[0]);          V1574=(base[0]);
6876          V1530=(base[1]);          V1575=(base[1]);
6877          V1531=(base[2]);          V1576=(base[2]);
6878          vs_top=sup;          vs_top=sup;
6879          goto TTL;          goto TTL;
6880  TTL:;  TTL:;
6881          base[3]= (VFUN_NARGS=1,(*(LnkLI219))((V1531)));          base[3]= (VFUN_NARGS=1,(*(LnkLI214))((V1576)));
6882          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6883          (void) (*Lnk294)(Lclptr294);          (void) (*Lnk288)(Lclptr288);
6884          return;          return;
6885          }          }
6886  }  }
6887  /*      local entry for function OBSOLETE-INSTANCE-TRAP */  /*      local entry for function OBSOLETE-INSTANCE-TRAP */
6888    
6889  static object LI110(V1536,V1537,V1538)  static object LI110(V1581,V1582,V1583)
6890    
6891  object V1536;object V1537;object V1538;  object V1581;object V1582;object V1583;
6892  {        VMB97 VMS97 VMV97  {        VMB97 VMS97 VMV97
6893          bds_check;          bds_check;
6894          goto TTL;          goto TTL;
6895  TTL:;  TTL:;
6896          if(type_of(V1538)==t_structure){          if(type_of(V1583)==t_structure){
6897          goto T2757;}          goto T2772;}
6898          goto T2756;          goto T2771;
6899          goto T2757;          goto T2772;
6900  T2757:;  T2772:;
6901          if(((V1538)->str.str_def)==(VV[143])){          if(((V1583)->str.str_def)==(VV[143])){
6902          goto T2754;}          goto T2769;}
6903          goto T2756;          goto T2771;
6904  T2756:;{object V1540;  T2771:;{object V1585;
6905          V1540= (VV[2]->s.s_dbind);          V1585= (VV[2]->s.s_dbind);
6906          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6907          base[1]= (V1538);          base[1]= (V1583);
6908          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6909          (void) (*Lnk177)();          (void) (*Lnk174)();
6910          vs_top=sup;          vs_top=sup;
6911          V1541= vs_base[0];          V1586= vs_base[0];
6912          if((V1540)==(CMPcar(V1541))){          if((V1585)==(CMPcar(V1586))){
6913          goto T2754;}}          goto T2769;}}
6914          if(((VV[144]->s.s_dbind))==Cnil){          if(((VV[144]->s.s_dbind))==Cnil){
6915          goto T2764;}          goto T2779;}
6916          {object V1542 = (VV[145]->s.s_dbind);          {object V1587 = (VV[145]->s.s_dbind);
6917          VMR97(V1542)}          VMR97(V1587)}
6918          goto T2764;          goto T2779;
6919  T2764:;  T2779:;
6920          bds_bind(VV[144],Ct);          bds_bind(VV[144],Ct);
6921          base[1]= VV[146];          base[1]= VV[146];
6922          base[2]= (V1538);          base[2]= (V1583);
6923          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6924          Lerror();          Lerror();
6925          vs_top=sup;          vs_top=sup;
6926          {object V1543 = vs_base[0];          {object V1588 = vs_base[0];
6927          bds_unwind1;          bds_unwind1;
6928          VMR97(V1543)}          VMR97(V1588)}
6929          goto T2754;          goto T2769;
6930  T2754:;  T2769:;
6931          {object V1544;          {object V1589;
6932          object V1545;          object V1590;
6933          object V1546;          object V1591;
6934          object V1547;          object V1592;
6935          object V1548;          object V1593;
6936          object V1549;          object V1594;
6937          object V1550;          object V1595;
6938          object V1551;          object V1596;
6939          register object V1552;          register object V1597;
6940          register object V1553;          register object V1598;
6941          V1544= ((V1537))->v.v_self[11];          V1589= ((V1582))->v.v_self[11];
6942          base[7]= (V1544);          base[7]= (V1589);
6943          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6944          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk196)(Lclptr196);
6945          vs_top=sup;          vs_top=sup;
6946          V1545= vs_base[0];          V1590= vs_base[0];
6947          V1546= ((V1536))->v.v_self[9];          V1591= ((V1581))->v.v_self[9];
6948          V1547= ((V1537))->v.v_self[9];          V1592= ((V1582))->v.v_self[9];
6949          if(type_of(V1538)==t_structure){          if(type_of(V1583)==t_structure){
6950          goto T2777;}          goto T2792;}
6951          goto T2775;          goto T2790;
6952          goto T2777;          goto T2792;
6953  T2777:;  T2792:;
6954          if(!(((V1538)->str.str_def)==(VV[147]))){          if(!(((V1583)->str.str_def)==(VV[147]))){
6955          goto T2775;}          goto T2790;}
6956          V1548= STREF(object,(V1538),4);          V1593= STREF(object,(V1583),4);
6957          goto T2773;          goto T2788;
6958          goto T2775;          goto T2790;
6959  T2775:;{object V1555;  T2790:;{object V1600;
6960          V1555= (VV[2]->s.s_dbind);          V1600= (VV[2]->s.s_dbind);
6961          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
6962          base[8]= (V1538);          base[8]= (V1583);
6963          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6964          (void) (*Lnk177)();          (void) (*Lnk174)();
6965          vs_top=sup;          vs_top=sup;
6966          V1556= vs_base[0];          V1601= vs_base[0];
6967          if(!((V1555)==(CMPcar(V1556)))){          if(!((V1600)==(CMPcar(V1601)))){
6968          goto T2780;}}          goto T2795;}}
6969          V1548= CMPcar(((V1538))->cc.cc_turbo[12]);          V1593= CMPcar(((V1583))->cc.cc_turbo[12]);
6970          goto T2773;          goto T2788;
6971          goto T2780;          goto T2795;
6972  T2780:;  T2795:;
6973          base[7]= VV[148];          base[7]= VV[148];
6974          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6975          Lerror();          Lerror();
6976          vs_top=sup;          vs_top=sup;
6977          V1548= vs_base[0];          V1593= vs_base[0];
         goto T2773;  
 T2773:;  
         if(type_of(V1545)==t_structure){  
         goto T2790;}  
         goto T2788;  
         goto T2790;  
 T2790:;  
         if(!(((V1545)->str.str_def)==(VV[149]))){  
         goto T2788;}  
         V1549= STREF(object,(V1545),4);  
         goto T2786;  
6978          goto T2788;          goto T2788;
6979  T2788:;{object V1558;  T2788:;
6980          V1558= (VV[2]->s.s_dbind);          if(type_of(V1590)==t_structure){
6981            goto T2805;}
6982            goto T2803;
6983            goto T2805;
6984    T2805:;
6985            if(!(((V1590)->str.str_def)==(VV[149]))){
6986            goto T2803;}
6987            V1594= STREF(object,(V1590),4);
6988            goto T2801;
6989            goto T2803;
6990    T2803:;{object V1603;
6991            V1603= (VV[2]->s.s_dbind);
6992          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
6993          base[8]= (V1545);          base[8]= (V1590);
6994          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6995          (void) (*Lnk177)();          (void) (*Lnk174)();
6996          vs_top=sup;          vs_top=sup;
6997          V1559= vs_base[0];          V1604= vs_base[0];
6998          if(!((V1558)==(CMPcar(V1559)))){          if(!((V1603)==(CMPcar(V1604)))){
6999          goto T2793;}}          goto T2808;}}
7000          V1549= CMPcar(((V1545))->cc.cc_turbo[12]);          V1594= CMPcar(((V1590))->cc.cc_turbo[12]);
7001          goto T2786;          goto T2801;
7002          goto T2793;          goto T2808;
7003  T2793:;  T2808:;
7004          base[7]= VV[148];          base[7]= VV[148];
7005          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7006          Lerror();          Lerror();
7007          vs_top=sup;          vs_top=sup;
7008          V1549= vs_base[0];          V1594= vs_base[0];
7009          goto T2786;          goto T2801;
7010  T2786:;  T2801:;
7011          V1550= ((V1536))->v.v_self[10];          V1595= ((V1581))->v.v_self[10];
7012          V1551= Cnil;          V1596= Cnil;
7013          V1552= Cnil;          V1597= Cnil;
7014          V1553= Cnil;          V1598= Cnil;
7015          {register object V1560;          {register object V1605;
7016          register object V1561;          register object V1606;
7017          object V1562;          object V1607;
7018          object V1563;          object V1608;
7019          V1560= (V1546);          V1605= (V1591);
7020          V1561= Cnil;          V1606= Cnil;
7021          V1562= small_fixnum(0);          V1607= small_fixnum(0);
7022          V1563= Cnil;          V1608= Cnil;
7023          goto T2809;          goto T2824;
7024  T2809:;  T2824:;
7025          {object V1564;          {object V1609;
7026          if(!(((V1560))==Cnil)){          if(!(((V1605))==Cnil)){
7027          goto T2815;}          goto T2830;}
7028          goto T2803;          goto T2818;
7029          goto T2815;          goto T2830;
7030  T2815:;  T2830:;
7031          V1564= CMPcar((V1560));          V1609= CMPcar((V1605));
7032          V1560= CMPcdr((V1560));          V1605= CMPcdr((V1605));
7033          V1561= (V1564);}          V1606= (V1609);}
7034          {object V1565;          {object V1610;
7035          V1565= (V1562);          V1610= (V1607);
7036          V1562= number_plus((V1562),small_fixnum(1));          V1607= number_plus((V1607),small_fixnum(1));
7037          V1563= (V1565);}          V1608= (V1610);}
7038          {long V1566;          {long V1611;
7039          object V1567;          object V1612;
7040          V1566= fix((V1563));          V1611= fix((V1608));
7041          base[8]= (V1561);          base[8]= (V1606);
7042          base[9]= (V1547);          base[9]= (V1592);
7043          base[10]= VV[8];          base[10]= VV[8];
7044          base[11]= (VV[9]->s.s_gfdef);          base[11]= (VV[9]->s.s_gfdef);
7045          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
7046          (void) (*Lnk305)();          (void) (*Lnk299)();
7047          vs_top=sup;          vs_top=sup;
7048          V1567= vs_base[0];          V1612= vs_base[0];
7049          if(((V1567))==Cnil){          if(((V1612))==Cnil){
7050          goto T2830;}          goto T2845;}
7051          (void)((((V1549))->v.v_self[fix((V1567))]=(((V1548))->v.v_self[V1566])));          (void)((((V1594))->v.v_self[fix((V1612))]=(((V1593))->v.v_self[V1611])));
7052          goto T2810;          goto T2825;
7053          goto T2830;          goto T2845;
7054  T2830:;  T2845:;
7055          V1552= make_cons(V1561,(V1552));          V1597= make_cons(V1606,(V1597));
7056          if((((V1548))->v.v_self[V1566])==((VV[61]->s.s_dbind))){          if((((V1593))->v.v_self[V1611])==((VV[61]->s.s_dbind))){
7057          goto T2810;}          goto T2825;}
7058          {object V1570;          {object V1615;
7059          V1570= ((V1548))->v.v_self[V1566];          V1615= ((V1593))->v.v_self[V1611];
7060          {object V1571;          {object V1616;
7061          base[9]= (V1553);          base[9]= (V1598);
7062          base[10]= (V1570);          base[10]= (V1615);
7063          base[11]= V1561;          base[11]= V1606;
7064          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
7065          siLput_f();          siLput_f();
7066          vs_top=sup;          vs_top=sup;
7067          V1571= vs_base[0];          V1616= vs_base[0];
7068          V1553= (V1571);}}}          V1598= (V1616);}}}
7069          goto T2810;          goto T2825;
7070  T2810:;  T2825:;
7071          goto T2809;}          goto T2824;}
7072          goto T2803;          goto T2818;
7073  T2803:;  T2818:;
7074          {register object V1572;          {register object V1617;
7075          register object V1573;          register object V1618;
7076          V1572= (V1550);          V1617= (V1595);
7077          V1573= Cnil;          V1618= Cnil;
7078          goto T2848;          goto T2863;
7079  T2848:;  T2863:;
7080          {object V1574;          {object V1619;
7081          if(!(((V1572))==Cnil)){          if(!(((V1617))==Cnil)){
7082          goto T2854;}          goto T2869;}
7083          goto T2844;          goto T2859;
7084          goto T2854;          goto T2869;
7085  T2854:;  T2869:;
7086          V1574= CMPcar((V1572));          V1619= CMPcar((V1617));
7087          V1572= CMPcdr((V1572));          V1617= CMPcdr((V1617));
7088          V1573= (V1574);}          V1618= (V1619);}
7089          {object V1575;          {object V1620;
7090          object V1576;          object V1621;
7091          V1575= CMPcar((V1573));          V1620= CMPcar((V1618));
7092          V1576= CMPcdr((V1573));          V1621= CMPcdr((V1618));
7093          {object V1577;          {object V1622;
7094          base[7]= (V1575);          base[7]= (V1620);
7095          base[8]= (V1547);          base[8]= (V1592);
7096          base[9]= VV[8];          base[9]= VV[8];
7097          base[10]= (VV[9]->s.s_gfdef);          base[10]= (VV[9]->s.s_gfdef);
7098          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
7099          (void) (*Lnk305)();          (void) (*Lnk299)();
7100          vs_top=sup;          vs_top=sup;
7101          V1577= vs_base[0];          V1622= vs_base[0];
7102          if(((V1577))==Cnil){          if(((V1622))==Cnil){
7103          goto T2866;}          goto T2881;}
7104          (void)((((V1549))->v.v_self[fix((V1577))]=(CMPcdr((V1573)))));          (void)((((V1594))->v.v_self[fix((V1622))]=(CMPcdr((V1618)))));
7105          goto T2849;          goto T2864;
7106          goto T2866;          goto T2881;
7107  T2866:;  T2881:;
7108          V1552= make_cons(V1575,(V1552));          V1597= make_cons(V1620,(V1597));
7109          if(((V1576))==((VV[61]->s.s_dbind))){          if(((V1621))==((VV[61]->s.s_dbind))){
7110          goto T2849;}          goto T2864;}
7111          {object V1581;          {object V1626;
7112          base[7]= (V1553);          base[7]= (V1598);
7113          base[8]= V1576;          base[8]= V1621;
7114          base[9]= V1575;          base[9]= V1620;
7115          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
7116          siLput_f();          siLput_f();
7117          vs_top=sup;          vs_top=sup;
7118          V1581= vs_base[0];          V1626= vs_base[0];
7119          V1553= (V1581);}}}          V1598= (V1626);}}}
7120          goto T2849;          goto T2864;
7121  T2849:;  T2864:;
7122          goto T2848;}          goto T2863;}
7123          goto T2844;          goto T2859;
7124  T2844:;  T2859:;
7125          {register object V1582;          {register object V1627;
7126          register object V1583;          register object V1628;
7127          V1582= (V1547);          V1627= (V1592);
7128          V1583= CMPcar((V1582));          V1628= CMPcar((V1627));
7129          goto T2883;          goto T2898;
7130  T2883:;  T2898:;
7131          if(!(((V1582))==Cnil)){          if(!(((V1627))==Cnil)){
7132          goto T2884;}          goto T2899;}
7133          goto T2879;          goto T2894;
7134          goto T2884;          goto T2899;
7135  T2884:;  T2899:;
7136          {register object x= (V1583),V1584= (V1546);          {register object x= (V1628),V1629= (V1591);
7137          while(V1584!=Cnil)          while(V1629!=Cnil)
7138          if(x==(V1584->c.c_car)){          if(x==(V1629->c.c_car)){
7139          goto T2888;          goto T2903;
7140          }else V1584=V1584->c.c_cdr;}          }else V1629=V1629->c.c_cdr;}
7141          {register object x= (V1583),V1585= (V1550);          {register object x= (V1628),V1630= (V1595);
7142          while(V1585!=Cnil)          while(V1630!=Cnil)
7143          if(EQ(x,V1585->c.c_car->c.c_car) &&V1585->c.c_car != Cnil){          if(EQ(x,V1630->c.c_car->c.c_car) &&V1630->c.c_car != Cnil){
7144          goto T2888;          goto T2903;
7145          }else V1585=V1585->c.c_cdr;}          }else V1630=V1630->c.c_cdr;}
7146          V1551= make_cons(V1583,(V1551));          V1596= make_cons(V1628,(V1596));
7147          goto T2888;          goto T2903;
7148  T2888:;  T2903:;
7149          V1582= CMPcdr((V1582));          V1627= CMPcdr((V1627));
7150          V1583= CMPcar((V1582));          V1628= CMPcar((V1627));
7151          goto T2883;}          goto T2898;}
7152          goto T2879;          goto T2894;
7153  T2879:;  T2894:;
7154          (void)((*(LnkLI330))((V1538),(V1545)));          (void)((*(LnkLI323))((V1583),(V1590)));
7155          base[7]= (V1538);          base[7]= (V1583);
7156          base[8]= (V1551);          base[8]= (V1596);
7157          base[9]= (V1552);          base[9]= (V1597);
7158          base[10]= (V1553);          base[10]= (V1598);
7159          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
7160          (void) (*Lnk331)(Lclptr331);          (void) (*Lnk324)(Lclptr324);
7161          vs_top=sup;          vs_top=sup;
7162          {object V1587 = (V1537);          {object V1632 = (V1582);
7163          VMR97(V1587)}}          VMR97(V1632)}}
7164          base[0]=base[0];          base[0]=base[0];
7165          return Cnil;          return Cnil;
7166  }  }
# Line 7076  static void L111() Line 7172  static void L111()
7172          vs_check;          vs_check;
7173          check_arg(2);          check_arg(2);
7174          vs_top=sup;          vs_top=sup;
7175          {object V1588=base[0]->c.c_cdr;          {object V1633=base[0]->c.c_cdr;
7176          if(endp(V1588))invalid_macro_call();          if(endp(V1633))invalid_macro_call();
7177          base[2]= (V1588->c.c_car);          base[2]= (V1633->c.c_car);
7178          V1588=V1588->c.c_cdr;          V1633=V1633->c.c_cdr;
7179          if(!endp(V1588))invalid_macro_call();}          if(!endp(V1633))invalid_macro_call();}
7180          V1589= list(2,VV[153],base[2]);          V1634= list(2,VV[153],base[2]);
7181          V1590= list(2,VV[154],base[2]);          V1635= list(2,VV[154],base[2]);
7182          V1591= list(3,VV[87],/* INLINE-ARGS */V1590,list(2,VV[154],base[2]));          V1636= list(3,VV[87],/* INLINE-ARGS */V1635,list(2,VV[154],base[2]));
7183          V1592= list(2,VV[155],base[2]);          V1637= list(2,VV[155],base[2]);
7184          base[3]= list(2,VV[89],list(4,VV[150],VV[151],list(4,VV[152],/* INLINE-ARGS */V1589,/* INLINE-ARGS */V1591,list(3,VV[87],/* INLINE-ARGS */V1592,list(2,VV[155],base[2]))),VV[156]));          base[3]= list(2,VV[89],list(4,VV[150],VV[151],list(4,VV[152],/* INLINE-ARGS */V1634,/* INLINE-ARGS */V1636,list(3,VV[87],/* INLINE-ARGS */V1637,list(2,VV[155],base[2]))),VV[156]));
7185          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7186          return;          return;
7187  }  }
7188  /*      local entry for function CHANGE-CLASS-INTERNAL  */  /*      local entry for function CHANGE-CLASS-INTERNAL  */
7189    
7190  static object LI112(V1595,V1596)  static object LI112(V1640,V1641)
7191    
7192  object V1595;object V1596;  object V1640;object V1641;
7193  {        VMB99 VMS99 VMV99  {        VMB99 VMS99 VMV99
7194          goto TTL;          goto TTL;
7195  TTL:;  TTL:;
7196          {object V1597;          {object V1642;
7197          object V1598;          object V1643;
7198          object V1599;          object V1644;
7199          object V1600;          object V1645;
7200          object V1601;          object V1646;
7201          object V1602;          object V1647;
7202          object V1603;          object V1648;
7203          object V1604;          object V1649;
7204          object V1605;          object V1650;
7205          V1597= (*(LnkLI225))((V1595));          V1642= (*(LnkLI219))((V1640));
7206          base[9]= (V1596);          base[9]= (V1641);
7207          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7208          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk196)(Lclptr196);
7209          vs_top=sup;          vs_top=sup;
7210          V1598= vs_base[0];          V1643= vs_base[0];
7211          if(type_of(V1598)==t_structure){          if(type_of(V1643)==t_structure){
7212          goto T2912;}          goto T2927;}
7213          goto T2910;          goto T2925;
7214          goto T2912;          goto T2927;
7215  T2912:;  T2927:;
7216          if(!(((V1598)->str.str_def)==(VV[157]))){          if(!(((V1643)->str.str_def)==(VV[157]))){
7217          goto T2910;}          goto T2925;}
7218          V1599= STREF(object,(V1598),0);          V1644= STREF(object,(V1643),0);
7219          goto T2908;          goto T2923;
7220          goto T2910;          goto T2925;
7221  T2910:;{object V1607;  T2925:;{object V1652;
7222          V1607= (VV[2]->s.s_dbind);          V1652= (VV[2]->s.s_dbind);
7223          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7224          base[10]= (V1598);          base[10]= (V1643);
7225          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7226          (void) (*Lnk177)();          (void) (*Lnk174)();
7227          vs_top=sup;          vs_top=sup;
7228          V1608= vs_base[0];          V1653= vs_base[0];
7229          if(!((V1607)==(CMPcar(V1608)))){          if(!((V1652)==(CMPcar(V1653)))){
7230          goto T2915;}}          goto T2930;}}
7231          V1599= CMPcar(((V1598))->cc.cc_turbo[13]);          V1644= CMPcar(((V1643))->cc.cc_turbo[13]);
7232          goto T2908;          goto T2923;
7233          goto T2915;          goto T2930;
7234  T2915:;  T2930:;
7235          base[9]= VV[158];          base[9]= VV[158];
7236          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7237          Lerror();          Lerror();
7238          vs_top=sup;          vs_top=sup;
7239          V1599= vs_base[0];          V1644= vs_base[0];
7240          goto T2908;          goto T2923;
7241  T2908:;  T2923:;
7242          base[9]= (V1597);          base[9]= (V1642);
7243          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7244          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk287)(Lclptr287);
7245          vs_top=sup;          vs_top=sup;
7246          V1600= vs_base[0];          V1645= vs_base[0];
7247          V1601= ((V1600))->v.v_self[9];          V1646= ((V1645))->v.v_self[9];
7248          V1602= ((V1599))->v.v_self[9];          V1647= ((V1644))->v.v_self[9];
7249          if(type_of(V1595)==t_structure){          if(type_of(V1640)==t_structure){
7250          goto T2929;}          goto T2944;}
7251          goto T2927;          goto T2942;
7252          goto T2929;          goto T2944;
7253  T2929:;  T2944:;
7254          if(!(((V1595)->str.str_def)==(VV[159]))){          if(!(((V1640)->str.str_def)==(VV[159]))){
7255          goto T2927;}          goto T2942;}
7256          V1603= STREF(object,(V1595),4);          V1648= STREF(object,(V1640),4);
7257          goto T2925;          goto T2940;
7258          goto T2927;          goto T2942;
7259  T2927:;{object V1610;  T2942:;{object V1655;
7260          V1610= (VV[2]->s.s_dbind);          V1655= (VV[2]->s.s_dbind);
7261          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7262          base[10]= (V1595);          base[10]= (V1640);
7263          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7264          (void) (*Lnk177)();          (void) (*Lnk174)();
7265          vs_top=sup;          vs_top=sup;
7266          V1611= vs_base[0];          V1656= vs_base[0];
7267          if(!((V1610)==(CMPcar(V1611)))){          if(!((V1655)==(CMPcar(V1656)))){
7268          goto T2932;}}          goto T2947;}}
7269          V1603= CMPcar(((V1595))->cc.cc_turbo[12]);          V1648= CMPcar(((V1640))->cc.cc_turbo[12]);
7270          goto T2925;          goto T2940;
7271          goto T2932;          goto T2947;
7272  T2932:;  T2947:;
7273          base[9]= VV[148];          base[9]= VV[148];
7274          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7275          Lerror();          Lerror();
7276          vs_top=sup;          vs_top=sup;
7277          V1603= vs_base[0];          V1648= vs_base[0];
         goto T2925;  
 T2925:;  
         if(type_of(V1598)==t_structure){  
         goto T2942;}  
         goto T2940;  
         goto T2942;  
 T2942:;  
         if(!(((V1598)->str.str_def)==(VV[160]))){  
         goto T2940;}  
         V1604= STREF(object,(V1598),4);  
         goto T2938;  
7278          goto T2940;          goto T2940;
7279  T2940:;{object V1613;  T2940:;
7280          V1613= (VV[2]->s.s_dbind);          if(type_of(V1643)==t_structure){
7281            goto T2957;}
7282            goto T2955;
7283            goto T2957;
7284    T2957:;
7285            if(!(((V1643)->str.str_def)==(VV[160]))){
7286            goto T2955;}
7287            V1649= STREF(object,(V1643),4);
7288            goto T2953;
7289            goto T2955;
7290    T2955:;{object V1658;
7291            V1658= (VV[2]->s.s_dbind);
7292          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7293          base[10]= (V1598);          base[10]= (V1643);
7294          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7295          (void) (*Lnk177)();          (void) (*Lnk174)();
7296          vs_top=sup;          vs_top=sup;
7297          V1614= vs_base[0];          V1659= vs_base[0];
7298          if(!((V1613)==(CMPcar(V1614)))){          if(!((V1658)==(CMPcar(V1659)))){
7299          goto T2945;}}          goto T2960;}}
7300          V1604= CMPcar(((V1598))->cc.cc_turbo[12]);          V1649= CMPcar(((V1643))->cc.cc_turbo[12]);
7301          goto T2938;          goto T2953;
7302          goto T2945;          goto T2960;
7303  T2945:;  T2960:;
7304          base[9]= VV[148];          base[9]= VV[148];
7305          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7306          Lerror();          Lerror();
7307          vs_top=sup;          vs_top=sup;
7308          V1604= vs_base[0];          V1649= vs_base[0];
7309          goto T2938;          goto T2953;
7310  T2938:;  T2953:;
7311          V1605= ((V1600))->v.v_self[10];          V1650= ((V1645))->v.v_self[10];
7312          {register object V1615;          {register object V1660;
7313          object V1616;          object V1661;
7314          register object V1617;          register object V1662;
7315          object V1618;          object V1663;
7316          V1615= (V1602);          V1660= (V1647);
7317          V1616= Cnil;          V1661= Cnil;
7318          V1617= small_fixnum(0);          V1662= small_fixnum(0);
7319          V1618= Cnil;          V1663= Cnil;
7320          goto T2958;          goto T2973;
7321  T2958:;  T2973:;
7322          {object V1619;          {object V1664;
7323          if(!(((V1615))==Cnil)){          if(!(((V1660))==Cnil)){
7324          goto T2964;}          goto T2979;}
7325          goto T2952;          goto T2967;
7326          goto T2964;          goto T2979;
7327  T2964:;  T2979:;
7328          V1619= CMPcar((V1615));          V1664= CMPcar((V1660));
7329          V1615= CMPcdr((V1615));          V1660= CMPcdr((V1660));
7330          V1616= (V1619);}          V1661= (V1664);}
7331          {object V1620;          {object V1665;
7332          V1620= (V1617);          V1665= (V1662);
7333          V1617= number_plus((V1617),small_fixnum(1));          V1662= number_plus((V1662),small_fixnum(1));
7334          V1618= (V1620);}          V1663= (V1665);}
7335          {long V1621;          {long V1666;
7336          register object V1622;          register object V1667;
7337          V1621= fix((V1618));          V1666= fix((V1663));
7338          base[10]= (V1616);          base[10]= (V1661);
7339          base[11]= (V1601);          base[11]= (V1646);
7340          base[12]= VV[8];          base[12]= VV[8];
7341          base[13]= (VV[9]->s.s_gfdef);          base[13]= (VV[9]->s.s_gfdef);
7342          vs_top=(vs_base=base+10)+4;          vs_top=(vs_base=base+10)+4;
7343          (void) (*Lnk305)();          (void) (*Lnk299)();
7344          vs_top=sup;          vs_top=sup;
7345          V1622= vs_base[0];          V1667= vs_base[0];
7346          if(((V1622))==Cnil){          if(((V1667))==Cnil){
7347          goto T2959;}          goto T2974;}
7348          (void)(((V1604))->v.v_self[V1621]= (((V1603))->v.v_self[fix((V1622))]));}          (void)(((V1649))->v.v_self[V1666]= (((V1648))->v.v_self[fix((V1667))]));}
7349          goto T2959;          goto T2974;
7350  T2959:;  T2974:;
7351          goto T2958;}          goto T2973;}
7352          goto T2952;          goto T2967;
7353  T2952:;  T2967:;
7354          {register object V1623;          {register object V1668;
7355          register object V1624;          register object V1669;
7356          V1623= (V1605);          V1668= (V1650);
7357          V1624= Cnil;          V1669= Cnil;
7358          goto T2985;          goto T3000;
7359  T2985:;  T3000:;
7360          {object V1625;          {object V1670;
7361          if(!(((V1623))==Cnil)){          if(!(((V1668))==Cnil)){
7362          goto T2991;}          goto T3006;}
7363          goto T2981;          goto T2996;
7364          goto T2991;          goto T3006;
7365  T2991:;  T3006:;
7366          V1625= CMPcar((V1623));          V1670= CMPcar((V1668));
7367          V1623= CMPcdr((V1623));          V1668= CMPcdr((V1668));
7368          V1624= (V1625);}          V1669= (V1670);}
7369          {register object V1626;          {register object V1671;
7370          base[9]= CMPcar((V1624));          base[9]= CMPcar((V1669));
7371          base[10]= (V1602);          base[10]= (V1647);
7372          base[11]= VV[8];          base[11]= VV[8];
7373          base[12]= (VV[9]->s.s_gfdef);          base[12]= (VV[9]->s.s_gfdef);
7374          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
7375          (void) (*Lnk305)();          (void) (*Lnk299)();
7376          vs_top=sup;          vs_top=sup;
7377          V1626= vs_base[0];          V1671= vs_base[0];
7378          if(((V1626))==Cnil){          if(((V1671))==Cnil){
7379          goto T2986;}          goto T3001;}
7380          (void)((((V1604))->v.v_self[fix((V1626))]=(CMPcdr((V1624)))));}          (void)((((V1649))->v.v_self[fix((V1671))]=(CMPcdr((V1669)))));}
7381          goto T2986;          goto T3001;
7382  T2986:;  T3001:;
7383          goto T2985;}          goto T3000;}
7384          goto T2981;          goto T2996;
7385  T2981:;  T2996:;
7386          (void)((*(LnkLI330))((V1595),(V1598)));          (void)((*(LnkLI323))((V1640),(V1643)));
7387          base[9]= (V1598);          base[9]= (V1643);
7388          base[10]= (V1595);          base[10]= (V1640);
7389          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7390          (void) (*Lnk332)(Lclptr332);          (void) (*Lnk325)(Lclptr325);
7391          vs_top=sup;          vs_top=sup;
7392          {object V1627 = (V1595);          {object V1672 = (V1640);
7393          VMR99(V1627)}}          VMR99(V1672)}}
7394          base[0]=base[0];          base[0]=base[0];
7395          return Cnil;          return Cnil;
7396  }  }
7397  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))    */  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))    */
7398    
7399  static object LI113(V1632,V1633,V1634,V1635)  static object LI113(V1677,V1678,V1679,V1680)
7400    
7401  object V1632;object V1633;register object V1634;object V1635;  object V1677;object V1678;register object V1679;object V1680;
7402  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
7403          goto TTL;          goto TTL;
7404  TTL:;  TTL:;
7405          if(type_of(V1634)==t_structure){          if(type_of(V1679)==t_structure){
7406          goto T3014;}          goto T3029;}
7407          goto T3013;          goto T3028;
7408          goto T3014;          goto T3029;
7409  T3014:;  T3029:;
7410          if(((V1634)->str.str_def)==(VV[161])){          if(((V1679)->str.str_def)==(VV[161])){
7411          goto T3011;}          goto T3026;}
7412          goto T3013;          goto T3028;
7413  T3013:;  T3028:;
7414          base[0]= VV[162];          base[0]= VV[162];
7415          base[1]= (V1634);          base[1]= (V1679);
7416          base[2]= (V1635);          base[2]= (V1680);
7417          base[3]= VV[163];          base[3]= VV[163];
7418          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7419          Lerror();          Lerror();
7420          vs_top=sup;          vs_top=sup;
7421          goto T3011;          goto T3026;
7422  T3011:;  T3026:;
7423          {object V1638 = (*(LnkLI333))((V1634),(V1635));          {object V1683 = (*(LnkLI326))((V1679),(V1680));
7424          VMR100(V1638)}          VMR100(V1683)}
7425          base[0]=base[0];          base[0]=base[0];
7426          return Cnil;          return Cnil;
7427  }  }
7428  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))        */  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))        */
7429    
7430  static object LI114(V1643,V1644,V1645,V1646)  static object LI114(V1688,V1689,V1690,V1691)
7431    
7432  object V1643;object V1644;register object V1645;object V1646;  object V1688;object V1689;register object V1690;object V1691;
7433  {        VMB101 VMS101 VMV101  {        VMB101 VMS101 VMV101
7434          goto TTL;          goto TTL;
7435  TTL:;{object V1648;  TTL:;{object V1693;
7436          V1648= (VV[2]->s.s_dbind);          V1693= (VV[2]->s.s_dbind);
7437          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
7438          base[1]= (V1645);          base[1]= (V1690);
7439          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7440          (void) (*Lnk177)();          (void) (*Lnk174)();
7441          vs_top=sup;          vs_top=sup;
7442          V1649= vs_base[0];          V1694= vs_base[0];
7443          if((V1648)==(CMPcar(V1649))){          if((V1693)==(CMPcar(V1694))){
7444          goto T3024;}}          goto T3039;}}
7445          base[0]= VV[164];          base[0]= VV[164];
7446          base[1]= (V1645);          base[1]= (V1690);
7447          base[2]= (V1646);          base[2]= (V1691);
7448          base[3]= VV[165];          base[3]= VV[165];
7449          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7450          Lerror();          Lerror();
7451          vs_top=sup;          vs_top=sup;
7452          goto T3024;          goto T3039;
7453  T3024:;  T3039:;
7454          {object V1650 = (*(LnkLI333))((V1645),(V1646));          {object V1695 = (*(LnkLI326))((V1690),(V1691));
7455          VMR101(V1650)}          VMR101(V1695)}
7456          base[0]=base[0];          base[0]=base[0];
7457          return Cnil;          return Cnil;
7458  }  }
# Line 7366  static void L115() Line 7462  static void L115()
7462  {register object *base=vs_base;  {register object *base=vs_base;
7463          register object *sup=base+VM102; VC102          register object *sup=base+VM102; VC102
7464          vs_check;          vs_check;
7465          {object V1651;          {object V1696;
7466          object V1652;          object V1697;
7467          object V1653;          object V1698;
7468          object V1654;          object V1699;
7469          check_arg(4);          check_arg(4);
7470          V1651=(base[0]);          V1696=(base[0]);
7471          V1652=(base[1]);          V1697=(base[1]);
7472          V1653=(base[2]);          V1698=(base[2]);
7473          V1654=(base[3]);          V1699=(base[3]);
7474          vs_top=sup;          vs_top=sup;
7475          goto TTL;          goto TTL;
7476  TTL:;  TTL:;
7477          base[4]= (V1653);          base[4]= (V1698);
7478          base[5]= (VFUN_NARGS=1,(*(LnkLI219))((V1654)));          base[5]= (VFUN_NARGS=1,(*(LnkLI214))((V1699)));
7479          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7480          (void) (*Lnk226)(Lclptr226);          (void) (*Lnk220)(Lclptr220);
7481          return;          return;
7482          }          }
7483  }  }
7484  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))     */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))     */
7485    
7486  static object LI116(V1661,V1662,V1663,V1664,V1665)  static object LI116(V1706,V1707,V1708,V1709,V1710)
7487    
7488  object V1661;object V1662;object V1663;object V1664;object V1665;  object V1706;object V1707;object V1708;object V1709;object V1710;
7489  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
7490          goto TTL;          goto TTL;
7491  TTL:;  TTL:;
# Line 7397  TTL:; Line 7493  TTL:;
7493          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7494          Lerror();          Lerror();
7495          vs_top=sup;          vs_top=sup;
7496          {object V1668 = vs_base[0];          {object V1713 = vs_base[0];
7497          VMR103(V1668)}          VMR103(V1713)}
7498          base[0]=base[0];          base[0]=base[0];
7499          return Cnil;          return Cnil;
7500  }  }
7501  /*      local entry for function (FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))      */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))      */
7502    
7503  static object LI117(V1672,V1673,V1674)  static object LI117(V1717,V1718,V1719)
7504    
7505  object V1672;object V1673;object V1674;  object V1717;object V1718;object V1719;
7506  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
7507          goto TTL;          goto TTL;
7508  TTL:;  TTL:;
7509          {object V1676 = Cnil;          {object V1721 = Cnil;
7510          VMR104(V1676)}          VMR104(V1721)}
7511          return Cnil;          return Cnil;
7512  }  }
7513  /*      local entry for function (FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))     */  /*      local entry for function (FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))     */
7514    
7515  static object LI118(V1680,V1681,V1682)  static object LI118(V1725,V1726,V1727)
7516    
7517  object V1680;object V1681;object V1682;  object V1725;object V1726;object V1727;
7518  {        VMB105 VMS105 VMV105  {        VMB105 VMS105 VMV105
7519          goto TTL;          goto TTL;
7520  TTL:;  TTL:;
7521          {object V1684 = Cnil;          {object V1729 = Cnil;
7522          VMR105(V1684)}          VMR105(V1729)}
7523          return Cnil;          return Cnil;
7524  }  }
7525  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))   */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))   */
7526    
7527  static object LI119(V1688,V1689,V1690)  static object LI119(V1733,V1734,V1735)
7528    
7529  object V1688;object V1689;object V1690;  object V1733;object V1734;object V1735;
7530  {        VMB106 VMS106 VMV106  {        VMB106 VMS106 VMV106
7531          goto TTL;          goto TTL;
7532  TTL:;  TTL:;
7533          {object V1692 = Cnil;          {object V1737 = Cnil;
7534          VMR106(V1692)}          VMR106(V1737)}
7535          return Cnil;          return Cnil;
7536  }  }
7537  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))  */  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))  */
7538    
7539  static object LI120(V1696,V1697,V1698)  static object LI120(V1741,V1742,V1743)
7540    
7541  object V1696;object V1697;object V1698;  object V1741;object V1742;object V1743;
7542  {        VMB107 VMS107 VMV107  {        VMB107 VMS107 VMV107
7543          goto TTL;          goto TTL;
7544  TTL:;  TTL:;
7545          {object V1700 = Cnil;          {object V1745 = Cnil;
7546          VMR107(V1700)}          VMR107(V1745)}
7547          return Cnil;          return Cnil;
7548  }  }
7549  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))       */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))       */
7550    
7551  static object LI121(V1705,V1706,V1707,V1708)  static object LI121(V1750,V1751,V1752,V1753)
7552    
7553  object V1705;object V1706;object V1707;object V1708;  object V1750;object V1751;object V1752;object V1753;
7554  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
7555          goto TTL;          goto TTL;
7556  TTL:;  TTL:;
7557          {object V1710 = (((V1708))==((VV[136]->s.s_dbind))?Ct:Cnil);          {object V1755 = (((V1753))==((VV[136]->s.s_dbind))?Ct:Cnil);
7558          VMR108(V1710)}          VMR108(V1755)}
7559          return Cnil;          return Cnil;
7560  }  }
7561  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))        */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))        */
7562    
7563  static object LI122(V1715,V1716,V1717,V1718)  static object LI122(V1760,V1761,V1762,V1763)
7564    
7565  object V1715;object V1716;object V1717;object V1718;  object V1760;object V1761;object V1762;object V1763;
7566  {        VMB109 VMS109 VMV109  {        VMB109 VMS109 VMV109
7567          goto TTL;          goto TTL;
7568  TTL:;  TTL:;
7569          {object V1720 = Ct;          {object V1765 = Ct;
7570          VMR109(V1720)}          VMR109(V1765)}
7571          return Cnil;          return Cnil;
7572  }  }
7573  /*      local entry for function (FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */  /*      local entry for function (FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */
7574    
7575  static object LI123(V1725,V1726,V1727,V1728)  static object LI123(V1770,V1771,V1772,V1773)
7576    
7577  object V1725;object V1726;object V1727;object V1728;  object V1770;object V1771;object V1772;object V1773;
7578  {        VMB110 VMS110 VMV110  {        VMB110 VMS110 VMV110
7579          goto TTL;          goto TTL;
7580  TTL:;  TTL:;
7581          {object V1733;          {object V1778;
7582          base[1]= V1728;          base[1]= V1773;
7583          base[2]= (*(LnkLI196))(V1727,VV[167]);          base[2]= (*(LnkLI190))(V1772,VV[167]);
7584          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7585          Ladjoin();          Ladjoin();
7586          vs_top=sup;          vs_top=sup;
7587          V1733= vs_base[0];          V1778= vs_base[0];
7588          {object V1736 = (*(LnkLI194))((V1733),V1727,VV[167]);          base[1]= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
7589          VMR110(V1736)}}          base[2]= (V1778);
7590            base[3]= V1772;
7591            base[4]= VV[167];
7592            vs_top=(vs_base=base+2)+3;
7593            {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7594                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7595                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7596                   else super_funcall_no_event(_funobj);}
7597            vs_top=sup;
7598            {object V1779 = vs_base[0];
7599            VMR110(V1779)}}
7600          base[0]=base[0];          base[0]=base[0];
7601          return Cnil;          return Cnil;
7602  }  }
7603  /*      local entry for function (FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))      */  /*      local entry for function (FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))      */
7604    
7605  static object LI124(V1741,V1742,V1743,V1744)  static object LI124(V1784,V1785,V1786,V1787)
7606    
7607  object V1741;object V1742;object V1743;object V1744;  object V1784;object V1785;object V1786;object V1787;
7608  {        VMB111 VMS111 VMV111  {        VMB111 VMS111 VMV111
7609          goto TTL;          goto TTL;
7610  TTL:;  TTL:;
7611          base[0]= (V1744);          {object V1791;
7612          base[1]= (*(LnkLI196))((V1743),VV[167]);          base[1]= (V1787);
7613          vs_top=(vs_base=base+0)+2;          base[2]= (*(LnkLI190))((V1786),VV[167]);
7614          (void) (*Lnk334)();          vs_top=(vs_base=base+1)+2;
7615            (void) (*Lnk327)();
7616          vs_top=sup;          vs_top=sup;
7617          V1748= vs_base[0];          V1791= vs_base[0];
7618          V1749 = V1743;          base[1]= ({object _tmp=get(VV[190],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[190])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[190])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
7619          V1750 = VV[167];          base[2]= (V1791);
7620          {object V1751 = (*(LnkLI194))(V1748,V1749,V1750);          base[3]= V1786;
7621          VMR111(V1751)}          base[4]= VV[167];
7622            vs_top=(vs_base=base+2)+3;
7623            {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7624                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
7625                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
7626                   else super_funcall_no_event(_funobj);}
7627            vs_top=sup;
7628            {object V1792 = vs_base[0];
7629            VMR111(V1792)}}
7630          base[0]=base[0];          base[0]=base[0];
7631          return Cnil;          return Cnil;
7632  }  }
7633  /*      local entry for function (FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))        */  /*      local entry for function (FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))        */
7634    
7635  static object LI125(V1756,V1757,V1758,V1759)  static object LI125(V1797,V1798,V1799,V1800)
7636    
7637  object V1756;object V1757;object V1758;register object V1759;  object V1797;object V1798;object V1799;register object V1800;
7638  {        VMB112 VMS112 VMV112  {        VMB112 VMS112 VMV112
7639          goto TTL;          goto TTL;
7640  TTL:;  TTL:;
7641          {register object V1761;          {register object V1802;
7642          register object V1762;          register object V1803;
7643          V1761= (*(LnkLI196))((V1758),VV[167]);          V1802= (*(LnkLI190))((V1799),VV[167]);
7644          V1762= CMPcar((V1761));          V1803= CMPcar((V1802));
7645          goto T3082;          goto T3105;
7646  T3082:;  T3105:;
7647          if(!(((V1761))==Cnil)){          if(!(((V1802))==Cnil)){
7648          goto T3083;}          goto T3106;}
7649          {object V1763 = Cnil;          {object V1804 = Cnil;
7650          VMR112(V1763)}          VMR112(V1804)}
7651          goto T3083;          goto T3106;
7652  T3083:;  T3106:;
7653          (void)((          (void)((
7654          (type_of((V1759)) == t_sfun ?(*(((V1759))->sfn.sfn_self)):          (type_of((V1800)) == t_sfun ?(*(((V1800))->sfn.sfn_self)):
7655          (fcall.argd=1,type_of((V1759))==t_vfun) ?          (fcall.argd=1,type_of((V1800))==t_vfun) ?
7656          (*(((V1759))->sfn.sfn_self)):          (*(((V1800))->sfn.sfn_self)):
7657          (fcall.fun=((V1759)),fcalln))((V1762))));          (fcall.fun=((V1800)),fcalln))((V1803))));
7658          V1761= CMPcdr((V1761));          V1802= CMPcdr((V1802));
7659          V1762= CMPcar((V1761));          V1803= CMPcar((V1802));
7660          goto T3082;}          goto T3105;}
7661          base[0]=base[0];          base[0]=base[0];
7662          return Cnil;          return Cnil;
7663  }  }
# Line 7553  register object *base0; Line 7668  register object *base0;
7668  {       register object *base=vs_base;  {       register object *base=vs_base;
7669          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
7670          vs_check;          vs_check;
7671          {register object V1764;          {register object V1805;
7672          check_arg(1);          check_arg(1);
7673          V1764=(base[0]);          V1805=(base[0]);
7674          vs_top=sup;          vs_top=sup;
7675          goto TTL;          goto TTL;
7676  TTL:;  TTL:;
7677          if(((V1764))!=Cnil){          if(((V1805))!=Cnil){
7678          goto T3094;}          goto T3117;}
7679          base[1]= Cnil;          base[1]= Cnil;
7680          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7681          return;          return;
7682          goto T3094;          goto T3117;
7683  T3094:;  T3117:;
7684          {object V1765;          {object V1806;
7685          {object V1766;          {object V1807;
7686          V1766= CMPcar((V1764));          V1807= CMPcar((V1805));
7687          V1764= CMPcdr((V1764));          V1805= CMPcdr((V1805));
7688          V1765= (V1766);}          V1806= (V1807);}
7689          if(!(((V1765))==(base0[0]))){          if(!(((V1806))==(base0[0]))){
7690          goto T3102;}          goto T3125;}
7691          V1767= base0[1];          V1808= base0[1];
7692          goto T3100;          goto T3123;
7693          goto T3102;          goto T3125;
7694  T3102:;  T3125:;
7695          base[1]= (V1765);          base[1]= (V1806);
7696          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7697          (void) (*Lnk296)(Lclptr296);          (void) (*Lnk290)(Lclptr290);
7698          vs_top=sup;          vs_top=sup;
7699          V1767= vs_base[0];          V1808= vs_base[0];
7700          goto T3100;          goto T3123;
7701  T3100:;  T3123:;
7702          base[1]= (V1764);          base[1]= (V1805);
7703          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7704          L80(base0);          L80(base0);
7705          vs_top=sup;          vs_top=sup;
7706          V1768= vs_base[0];          V1809= vs_base[0];
7707          base[1]= append(V1767,V1768);          base[1]= append(V1808,V1809);
7708          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7709          return;}          return;}
7710          }          }
# Line 7601  register object *base0; Line 7716  register object *base0;
7716  {       register object *base=vs_base;  {       register object *base=vs_base;
7717          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
7718          vs_check;          vs_check;
7719          {object V1769;          {object V1810;
7720          object V1770;          object V1811;
7721          check_arg(2);          check_arg(2);
7722          V1769=(base[0]);          V1810=(base[0]);
7723          V1770=(base[1]);          V1811=(base[1]);
7724          vs_top=sup;          vs_top=sup;
7725          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7726          base[3]= (V1769);          base[3]= (V1810);
7727          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7728          (void) (*Lnk335)(Lclptr335);          (void) (*Lnk328)(Lclptr328);
7729          return;          return;
7730          }          }
7731  }  }
# Line 7621  register object *base0; Line 7736  register object *base0;
7736  {       register object *base=vs_base;  {       register object *base=vs_base;
7737          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
7738          vs_check;          vs_check;
7739          {object V1771;          {object V1812;
7740          check_arg(1);          check_arg(1);
7741          V1771=(base[0]);          V1812=(base[0]);
7742          vs_top=sup;          vs_top=sup;
7743          goto TTL;          goto TTL;
7744  TTL:;  TTL:;
7745          {register object V1772;          {register object V1813;
7746          register object V1773;          register object V1814;
7747          base[3]= (V1771);          base[3]= (V1812);
7748          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7749          (void) (*Lnk336)(Lclptr336);          (void) (*Lnk329)(Lclptr329);
7750          vs_top=sup;          vs_top=sup;
7751          V1772= vs_base[0];          V1813= vs_base[0];
7752          V1773= CMPcar((V1772));          V1814= CMPcar((V1813));
7753          goto T3114;          goto T3137;
7754  T3114:;  T3137:;
7755          if(!(((V1772))==Cnil)){          if(!(((V1813))==Cnil)){
7756          goto T3115;}          goto T3138;}
7757          goto T3109;          goto T3132;
7758          goto T3115;          goto T3138;
7759  T3115:;  T3138:;
7760          {register object V1774;          {register object V1815;
7761          register object V1775;          register object V1816;
7762          register object V1776;          register object V1817;
7763          V1774= (V1773);          V1815= (V1814);
7764          V1775= base0[1];          V1816= base0[1];
7765          V1776= Ct;          V1817= Ct;
7766          base[3]= (V1774);          base[3]= (V1815);
7767          base[4]= (V1775);          base[4]= (V1816);
7768          base[5]= (V1776);          base[5]= (V1817);
7769          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7770          siLhash_set();          siLhash_set();
7771          vs_top=sup;}          vs_top=sup;}
7772          V1772= CMPcdr((V1772));          V1813= CMPcdr((V1813));
7773          V1773= CMPcar((V1772));          V1814= CMPcar((V1813));
7774          goto T3114;}          goto T3137;}
7775          goto T3109;          goto T3132;
7776  T3109:;  T3132:;
7777          base[1]= (V1771);          base[1]= (V1812);
7778          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7779          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk243)(Lclptr243);
7780          vs_top=sup;          vs_top=sup;
7781          V1778= vs_base[0];          V1819= vs_base[0];
7782          {          {
7783          object V1777= V1778;          object V1818= V1819;
7784          if(V1777==Cnil){          if(V1818==Cnil){
7785          base[1]= Cnil;          base[1]= Cnil;
7786          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7787          return;}          return;}
7788          goto T3131;          goto T3154;
7789  T3131:;  T3154:;
7790          base[1]= (V1777->c.c_car);          base[1]= (V1818->c.c_car);
7791          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7792          L75(base0);          L75(base0);
7793          vs_top=sup;          vs_top=sup;
7794          if((V1777=MMcdr(V1777))==Cnil){          if((V1818=MMcdr(V1818))==Cnil){
7795          base[1]= V1778;          base[1]= V1819;
7796          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7797          return;}          return;}
7798          goto T3131;}          goto T3154;}
7799          }          }
7800  }  }
7801  /*      local function RWALK    */  /*      local function RWALK    */
# Line 7690  register object *base0; Line 7805  register object *base0;
7805  {       register object *base=vs_base;  {       register object *base=vs_base;
7806          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
7807          vs_check;          vs_check;
7808          {object V1779;          {object V1820;
7809          check_arg(1);          check_arg(1);
7810          V1779=(base[0]);          V1820=(base[0]);
7811          vs_top=sup;          vs_top=sup;
7812          goto TTL;          goto TTL;
7813  TTL:;  TTL:;
7814          if(((V1779))==Cnil){          if(((V1820))==Cnil){
7815          goto T3137;}          goto T3160;}
7816          base[1]= CMPcdr((V1779));          base[1]= CMPcdr((V1820));
7817          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7818          L71(base0);          L71(base0);
7819          vs_top=sup;          vs_top=sup;
7820          {register object V1780;          {register object V1821;
7821          object V1781;          object V1822;
7822          base[3]= CMPcar((V1779));          base[3]= CMPcar((V1820));
7823          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7824          (void) (*Lnk337)(Lclptr337);          (void) (*Lnk330)(Lclptr330);
7825          vs_top=sup;          vs_top=sup;
7826          V1780= vs_base[0];          V1821= vs_base[0];
7827          V1781= CMPcar((V1780));          V1822= CMPcar((V1821));
7828          goto T3145;          goto T3168;
7829  T3145:;  T3168:;
7830          if(!(((V1780))==Cnil)){          if(!(((V1821))==Cnil)){
7831          goto T3146;}          goto T3169;}
7832          base[3]= Cnil;          base[3]= Cnil;
7833          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7834          return;          return;
7835          goto T3146;          goto T3169;
7836  T3146:;  T3169:;
7837          {register object V1782;          {register object V1823;
7838          base[3]= (V1781);          base[3]= (V1822);
7839          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7840          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk230)(Lclptr230);
7841          vs_top=sup;          vs_top=sup;
7842          V1782= vs_base[0];          V1823= vs_base[0];
7843          {register object x= (V1782),V1783= base0[0];          {register object x= (V1823),V1824= base0[0];
7844          while(V1783!=Cnil)          while(V1824!=Cnil)
7845          if(eql(x,V1783->c.c_car)){          if(eql(x,V1824->c.c_car)){
7846          goto T3154;          goto T3177;
7847          }else V1783=V1783->c.c_cdr;          }else V1824=V1824->c.c_cdr;
7848          goto T3150;}          goto T3173;}
7849          goto T3154;          goto T3177;
7850  T3154:;  T3177:;
7851          base0[1]= make_cons((V1782),base0[1]);          base0[1]= make_cons((V1823),base0[1]);
7852          base[3]= (V1782);          base[3]= (V1823);
7853          base[4]= base0[0];          base[4]= base0[0];
7854          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7855          (void) (*Lnk95)();          (void) (*Lnk95)();
7856          vs_top=sup;          vs_top=sup;
7857          base0[0]= vs_base[0];}          base0[0]= vs_base[0];}
7858          goto T3150;          goto T3173;
7859  T3150:;  T3173:;
7860          V1780= CMPcdr((V1780));          V1821= CMPcdr((V1821));
7861          V1781= CMPcar((V1780));          V1822= CMPcar((V1821));
7862          goto T3145;}          goto T3168;}
7863          goto T3137;          goto T3160;
7864  T3137:;  T3160:;
7865          base[1]= Cnil;          base[1]= Cnil;
7866          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7867          return;          return;
# Line 7759  register object *base0; Line 7874  register object *base0;
7874  {       register object *base=vs_base;  {       register object *base=vs_base;
7875          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
7876          vs_check;          vs_check;
7877          {object V1784;          {object V1825;
7878          object V1785;          object V1826;
7879          object V1786;          object V1827;
7880          check_arg(3);          check_arg(3);
7881          V1784=(base[0]);          V1825=(base[0]);
7882          V1785=(base[1]);          V1826=(base[1]);
7883          V1786=(base[2]);          V1827=(base[2]);
7884          vs_top=sup;          vs_top=sup;
7885          goto TTL;          goto TTL;
7886  TTL:;  TTL:;
7887          {object V1787;          {object V1828;
7888          base[3]= (V1784);          base[3]= (V1825);
7889          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7890          (void) (*Lnk338)();          (void) (*Lnk331)();
7891          vs_top=sup;          vs_top=sup;
7892          V1787= vs_base[0];          V1828= vs_base[0];
7893          {object V1788= (V1786);          {object V1829= (V1827);
7894          if((V1788!= VV[96]))goto T3167;          if((V1829!= VV[96]))goto T3190;
7895          if(!((base0[0])==(VV[94]))){          if(!((base0[0])==(VV[94]))){
7896          goto T3169;}          goto T3192;}
7897          base[3]= base0[1];          base[3]= base0[1];
7898          base[4]= (V1787);          base[4]= (V1828);
7899          base[5]= (V1785);          base[5]= (V1826);
7900          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7901          (void) (*Lnk339)(Lclptr339);          (void) (*Lnk332)(Lclptr332);
7902          return;          return;
7903          goto T3169;          goto T3192;
7904  T3169:;  T3192:;
7905          base[3]= base0[1];          base[3]= base0[1];
7906          base[4]= (V1787);          base[4]= (V1828);
7907          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7908          (void) (*Lnk340)(Lclptr340);          (void) (*Lnk333)(Lclptr333);
7909          return;          return;
7910          goto T3167;          goto T3190;
7911  T3167:;  T3190:;
7912          if((V1788!= VV[97]))goto T3176;          if((V1829!= VV[97]))goto T3199;
7913          if(!((base0[0])==(VV[94]))){          if(!((base0[0])==(VV[94]))){
7914          goto T3178;}          goto T3201;}
7915          base[3]= base0[1];          base[3]= base0[1];
7916          base[4]= (V1787);          base[4]= (V1828);
7917          base[5]= (V1785);          base[5]= (V1826);
7918          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7919          (void) (*Lnk341)(Lclptr341);          (void) (*Lnk334)(Lclptr334);
7920          return;          return;
7921          goto T3178;          goto T3201;
7922  T3178:;  T3201:;
7923          base[3]= base0[1];          base[3]= base0[1];
7924          base[4]= (V1787);          base[4]= (V1828);
7925          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7926          (void) (*Lnk342)(Lclptr342);          (void) (*Lnk335)(Lclptr335);
7927          return;          return;
7928          goto T3176;          goto T3199;
7929  T3176:;  T3199:;
7930          base[3]= Cnil;          base[3]= Cnil;
7931          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7932          return;}}          return;}}
# Line 7824  register object *base0; Line 7939  register object *base0;
7939  {       register object *base=vs_base;  {       register object *base=vs_base;
7940          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
7941          vs_check;          vs_check;
7942          {object V1789;          {object V1830;
7943          check_arg(1);          check_arg(1);
7944          V1789=(base[0]);          V1830=(base[0]);
7945          vs_top=sup;          vs_top=sup;
7946          base[1]=VV[343]->s.s_gfdef;          base[1]=VV[336]->s.s_gfdef;
7947          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
7948          base[3]= (V1789);          base[3]= (V1830);
7949          {object V1790;          {object V1831;
7950          V1790= (base0[0]->c.c_car);          V1831= (base0[0]->c.c_car);
7951           vs_top=base+4;           vs_top=base+4;
7952           while(V1790!=Cnil)           while(V1831!=Cnil)
7953           {vs_push((V1790)->c.c_car);V1790=(V1790)->c.c_cdr;}           {vs_push((V1831)->c.c_car);V1831=(V1831)->c.c_cdr;}
7954          vs_base=base+2;}          vs_base=base+2;}
7955          (void) (*Lnk343)(Lclptr343);          (void) (*Lnk336)(Lclptr336);
7956          return;          return;
7957          }          }
7958  }  }
# Line 7848  register object *base0; Line 7963  register object *base0;
7963  {       register object *base=vs_base;  {       register object *base=vs_base;
7964          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
7965          vs_check;          vs_check;
7966          {object V1791;          {object V1832;
7967          check_arg(1);          check_arg(1);
7968          V1791=(base[0]);          V1832=(base[0]);
7969          vs_top=sup;          vs_top=sup;
7970          goto TTL;          goto TTL;
7971  TTL:;  TTL:;
7972          base[1]= (V1791);          base[1]= (V1832);
7973          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7974          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk282)(Lclptr282);
7975          vs_top=sup;          vs_top=sup;
7976          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7977          goto T3189;}          goto T3212;}
7978          base[1]= (V1791);          base[1]= (V1832);
7979          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7980          return;          return;
7981          goto T3189;          goto T3212;
7982  T3189:;  T3212:;
7983          if(((*(LnkLI344))((V1791)))!=Cnil){          if(((*(LnkLI337))((V1832)))!=Cnil){
7984          goto T3193;}          goto T3216;}
7985          base[1]= VV[53];          base[1]= VV[53];
7986          base[2]= (V1791);          base[2]= (V1832);
7987          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7988          Lerror();          Lerror();
7989          return;          return;
7990          goto T3193;          goto T3216;
7991  T3193:;{object V1792;  T3216:;{object V1833;
7992          V1792= (VFUN_NARGS=2,(*(LnkLI219))((V1791),Cnil));          V1833= (VFUN_NARGS=2,(*(LnkLI214))((V1832),Cnil));
7993          if(V1792==Cnil)goto T3197;          if(V1833==Cnil)goto T3220;
7994          base[1]= V1792;          base[1]= V1833;
7995          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7996          return;          return;
7997          goto T3197;          goto T3220;
7998  T3197:;}  T3220:;}
7999          {object V1794;          {object V1835;
8000          base[2]= VV[54];          base[2]= VV[54];
8001          base[3]= VV[50];          base[3]= VV[50];
8002          base[4]= (V1791);          base[4]= (V1832);
8003          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
8004          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk218)(Lclptr218);
8005          vs_top=sup;          vs_top=sup;
8006          V1794= vs_base[0];          V1835= vs_base[0];
8007          base[2]= (*(LnkLI224))((V1794),V1791);          base[2]= ({object _tmp=get(VV[214],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[214])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[214])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
8008          vs_top=(vs_base=base+2)+1;          base[3]= (V1835);
8009            base[4]= V1832;
8010            vs_top=(vs_base=base+3)+2;
8011            {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8012                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8013                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8014                   else super_funcall_no_event(_funobj);}
8015          return;}          return;}
8016          }          }
8017  }  }
# Line 7901  register object *base0; Line 8022  register object *base0;
8022  {       register object *base=vs_base;  {       register object *base=vs_base;
8023          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
8024          vs_check;          vs_check;
8025          {object V1795;          {object V1836;
8026          check_arg(1);          check_arg(1);
8027          V1795=(base[0]);          V1836=(base[0]);
8028          vs_top=sup;          vs_top=sup;
8029          {register object V1796;          {register object V1837;
8030          register object V1797;          register object V1838;
8031          base[3]= (V1795);          base[3]= (V1836);
8032          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8033          (void) (*Lnk336)(Lclptr336);          (void) (*Lnk329)(Lclptr329);
8034          vs_top=sup;          vs_top=sup;
8035          V1796= vs_base[0];          V1837= vs_base[0];
8036          V1797= CMPcar((V1796));          V1838= CMPcar((V1837));
8037          goto T3207;          goto T3233;
8038  T3207:;  T3233:;
8039          if(!(((V1796))==Cnil)){          if(!(((V1837))==Cnil)){
8040          goto T3208;}          goto T3234;}
8041          base[3]= Cnil;          base[3]= Cnil;
8042          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8043          return;          return;
8044          goto T3208;          goto T3234;
8045  T3208:;  T3234:;
8046          base[3]= (V1797);          base[3]= (V1838);
8047          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
8048          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8049          Lgethash();          Lgethash();
8050          vs_top=sup;          vs_top=sup;
8051          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
8052          goto T3212;}          goto T3238;}
8053          {register object V1798;          {register object V1839;
8054          register object V1799;          register object V1840;
8055          register object V1800;          register object V1841;
8056          V1798= (V1797);          V1839= (V1838);
8057          V1799= (base0[0]->c.c_car);          V1840= (base0[0]->c.c_car);
8058          V1800= Ct;          V1841= Ct;
8059          base[3]= (V1798);          base[3]= (V1839);
8060          base[4]= (V1799);          base[4]= (V1840);
8061          base[5]= (V1800);          base[5]= (V1841);
8062          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
8063          siLhash_set();          siLhash_set();
8064          vs_top=sup;}          vs_top=sup;}
# Line 7945  T3208:; Line 8066  T3208:;
8066          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):
8067          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?
8068          (*(((base0[1]->c.c_car))->sfn.sfn_self)):          (*(((base0[1]->c.c_car))->sfn.sfn_self)):
8069          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V1797))));          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V1838))));
8070          goto T3212;          goto T3238;
8071  T3212:;  T3238:;
8072          V1796= CMPcdr((V1796));          V1837= CMPcdr((V1837));
8073          V1797= CMPcar((V1796));          V1838= CMPcar((V1837));
8074          goto T3207;}          goto T3233;}
8075          }          }
8076  }  }
8077  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 7960  register object *base0; Line 8081  register object *base0;
8081  {       register object *base=vs_base;  {       register object *base=vs_base;
8082          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
8083          vs_check;          vs_check;
8084          {object V1801;          {object V1842;
8085          object V1802;          object V1843;
8086          check_arg(2);          check_arg(2);
8087          V1801=(base[0]);          V1842=(base[0]);
8088          V1802=(base[1]);          V1843=(base[1]);
8089          vs_top=sup;          vs_top=sup;
8090          base[2]= (V1802);          base[2]= (V1843);
8091          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8092          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8093                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7982  register object *base0; Line 8103  register object *base0;
8103  {       register object *base=vs_base;  {       register object *base=vs_base;
8104          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
8105          vs_check;          vs_check;
8106          {object V1803;          {object V1844;
8107          object V1804;          object V1845;
8108          check_arg(2);          check_arg(2);
8109          V1803=(base[0]);          V1844=(base[0]);
8110          V1804=(base[1]);          V1845=(base[1]);
8111          vs_top=sup;          vs_top=sup;
8112          base[2]= (*(LnkLI345))((V1803));          base[2]= (*(LnkLI338))((V1844));
8113          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8114          return;          return;
8115          }          }
# Line 8000  register object *base0; Line 8121  register object *base0;
8121  {       register object *base=vs_base;  {       register object *base=vs_base;
8122          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
8123          vs_check;          vs_check;
8124          {object V1805;          {object V1846;
8125          check_arg(1);          check_arg(1);
8126          V1805=(base[0]);          V1846=(base[0]);
8127          vs_top=sup;          vs_top=sup;
8128          V1806 = (base0[0]->c.c_car);          V1847 = (base0[0]->c.c_car);
8129          base[1]= (V1805);          base[1]= (V1846);
8130          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8131          (void) (*Lnk64)(Lclptr64);          (void) (*Lnk64)(Lclptr64);
8132          vs_top=sup;          vs_top=sup;
8133          V1807= vs_base[0];          V1848= vs_base[0];
8134          (void)((          (void)((
8135          V1808 = V1806,          V1849 = V1847,
8136          (type_of(V1808) == t_sfun ?(*((V1808)->sfn.sfn_self)):          (type_of(V1849) == t_sfun ?(*((V1849)->sfn.sfn_self)):
8137          (fcall.argd=1,type_of(V1808)==t_vfun) ?          (fcall.argd=1,type_of(V1849)==t_vfun) ?
8138          (*((V1808)->sfn.sfn_self)):          (*((V1849)->sfn.sfn_self)):
8139          (fcall.fun=(V1808),fcalln))(V1807)));          (fcall.fun=(V1849),fcalln))(V1848)));
8140          base[1]= (V1805);          base[1]= (V1846);
8141          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8142          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8143                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8026  register object *base0; Line 8147  register object *base0;
8147          }          }
8148  }  }
8149  static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-EQ-SPECIALIZER */  static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-EQ-SPECIALIZER */
8150  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)(void *)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */
8151  static object  LnkTLI344(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[344],(void **)(void *)&LnkLI344,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)(void *)&LnkLI337,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */
8152  static void LnkT343(ptr) object *ptr;{ call_or_link_closure(VV[343],(void **)(void *)&Lnk343,(void **)(void *)&Lclptr343);} /* UPDATE-DEPENDENT */  static void LnkT336(ptr) object *ptr;{ call_or_link_closure(VV[336],(void **)(void *)&Lnk336,(void **)(void *)&Lclptr336);} /* UPDATE-DEPENDENT */
8153  static void LnkT342(ptr) object *ptr;{ call_or_link_closure(VV[342],(void **)(void *)&Lnk342,(void **)(void *)&Lclptr342);} /* REMOVE-WRITER-METHOD */  static void LnkT335(ptr) object *ptr;{ call_or_link_closure(VV[335],(void **)(void *)&Lnk335,(void **)(void *)&Lclptr335);} /* REMOVE-WRITER-METHOD */
8154  static void LnkT341(ptr) object *ptr;{ call_or_link_closure(VV[341],(void **)(void *)&Lnk341,(void **)(void *)&Lclptr341);} /* ADD-WRITER-METHOD */  static void LnkT334(ptr) object *ptr;{ call_or_link_closure(VV[334],(void **)(void *)&Lnk334,(void **)(void *)&Lclptr334);} /* ADD-WRITER-METHOD */
8155  static void LnkT340(ptr) object *ptr;{ call_or_link_closure(VV[340],(void **)(void *)&Lnk340,(void **)(void *)&Lclptr340);} /* REMOVE-READER-METHOD */  static void LnkT333(ptr) object *ptr;{ call_or_link_closure(VV[333],(void **)(void *)&Lnk333,(void **)(void *)&Lclptr333);} /* REMOVE-READER-METHOD */
8156  static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* ADD-READER-METHOD */  static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* ADD-READER-METHOD */
8157  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* ENSURE-GENERIC-FUNCTION */  static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* ENSURE-GENERIC-FUNCTION */
8158  static void LnkT337(ptr) object *ptr;{ call_or_link_closure(VV[337],(void **)(void *)&Lnk337,(void **)(void *)&Lclptr337);} /* CLASS-SLOTS */  static void LnkT330(ptr) object *ptr;{ call_or_link_closure(VV[330],(void **)(void *)&Lnk330,(void **)(void *)&Lclptr330);} /* CLASS-SLOTS */
8159  static void LnkT336(ptr) object *ptr;{ call_or_link_closure(VV[336],(void **)(void *)&Lnk336,(void **)(void *)&Lclptr336);} /* SPECIALIZER-DIRECT-GENERIC-FUNCTIONS */  static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* SPECIALIZER-DIRECT-GENERIC-FUNCTIONS */
8160  static void LnkT335(ptr) object *ptr;{ call_or_link_closure(VV[335],(void **)(void *)&Lnk335,(void **)(void *)&Lclptr335);} /* UPDATE-GF-DFUN */  static void LnkT328(ptr) object *ptr;{ call_or_link_closure(VV[328],(void **)(void *)&Lnk328,(void **)(void *)&Lclptr328);} /* UPDATE-GF-DFUN */
8161  static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* DELETE */  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* DELETE */
8162  static object  LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,2,first,ap);va_end(ap);return V1;} /* CHANGE-CLASS-INTERNAL */  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* CHANGE-CLASS-INTERNAL */
8163  static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* UPDATE-INSTANCE-FOR-DIFFERENT-CLASS */  static void LnkT325(ptr) object *ptr;{ call_or_link_closure(VV[325],(void **)(void *)&Lnk325,(void **)(void *)&Lclptr325);} /* UPDATE-INSTANCE-FOR-DIFFERENT-CLASS */
8164  static void LnkT331(ptr) object *ptr;{ call_or_link_closure(VV[331],(void **)(void *)&Lnk331,(void **)(void *)&Lclptr331);} /* UPDATE-INSTANCE-FOR-REDEFINED-CLASS */  static void LnkT324(ptr) object *ptr;{ call_or_link_closure(VV[324],(void **)(void *)&Lnk324,(void **)(void *)&Lclptr324);} /* UPDATE-INSTANCE-FOR-REDEFINED-CLASS */
8165  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,2,first,ap);va_end(ap);return V1;} /* SWAP-WRAPPERS-AND-SLOTS */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,2,first,ap);va_end(ap);return V1;} /* SWAP-WRAPPERS-AND-SLOTS */
8166  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,2,first,ap);va_end(ap);return V1;} /* SET-WRAPPER */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* SET-WRAPPER */
8167  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,3,first,ap);va_end(ap);return V1;} /* INVALIDATE-WRAPPER */  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,3,first,ap);va_end(ap);return V1;} /* INVALIDATE-WRAPPER */
8168  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */
8169  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-BOUNDP-METHOD-FUNCTION */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-BOUNDP-METHOD-FUNCTION */
8170  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-WRITER-METHOD-FUNCTION */  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-WRITER-METHOD-FUNCTION */
8171  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-READER-METHOD-FUNCTION */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-READER-METHOD-FUNCTION */
8172  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)(void *)&LnkLI322,first,ap);va_end(ap);return V1;} /* GET-METHOD */  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)(void *)&LnkLI315,first,ap);va_end(ap);return V1;} /* GET-METHOD */
8173  static void LnkT321(ptr) object *ptr;{ call_or_link_closure(VV[321],(void **)(void *)&Lnk321,(void **)(void *)&Lclptr321);} /* MAKE-BOUNDP-METHOD-FUNCTION */  static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* MAKE-BOUNDP-METHOD-FUNCTION */
8174  static void LnkT320(ptr) object *ptr;{ call_or_link_closure(VV[320],(void **)(void *)&Lnk320,(void **)(void *)&Lclptr320);} /* MAKE-WRITER-METHOD-FUNCTION */  static void LnkT313(ptr) object *ptr;{ call_or_link_closure(VV[313],(void **)(void *)&Lnk313,(void **)(void *)&Lclptr313);} /* MAKE-WRITER-METHOD-FUNCTION */
8175  static void LnkT319(ptr) object *ptr;{ call_or_link_closure(VV[319],(void **)(void *)&Lnk319,(void **)(void *)&Lclptr319);} /* MAKE-READER-METHOD-FUNCTION */  static void LnkT312(ptr) object *ptr;{ call_or_link_closure(VV[312],(void **)(void *)&Lnk312,(void **)(void *)&Lclptr312);} /* MAKE-READER-METHOD-FUNCTION */
8176  static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */  static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */
8177  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */  static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */
8178  static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* *SUBTYPEP */  static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* *SUBTYPEP */
8179  static void LnkT313(ptr) object *ptr;{ call_or_link_closure(VV[313],(void **)(void *)&Lnk313,(void **)(void *)&Lclptr313);} /* SLOT-DEFINITION-TYPE */  static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* SLOT-DEFINITION-TYPE */
8180  static void LnkT312(ptr) object *ptr;{ call_or_link_closure(VV[312],(void **)(void *)&Lnk312,(void **)(void *)&Lclptr312);} /* SLOT-DEFINITION-INITARGS */  static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* SLOT-DEFINITION-INITARGS */
8181  static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* SLOT-DEFINITION-INITFORM */  static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* SLOT-DEFINITION-INITFORM */
8182  static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* EFFECTIVE-SLOT-DEFINITION-CLASS */  static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* EFFECTIVE-SLOT-DEFINITION-CLASS */
8183  static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS */  static void LnkT302(ptr) object *ptr;{ call_or_link_closure(VV[302],(void **)(void *)&Lnk302,(void **)(void *)&Lclptr302);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS */
8184  static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* PCL CLASS-PRECEDENCE-LIST slot READER */  static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* PCL CLASS-PRECEDENCE-LIST slot READER */
8185  static void LnkT307(ptr) object *ptr;{ call_or_link_closure(VV[307],(void **)(void *)&Lnk307,(void **)(void *)&Lclptr307);} /* INITIALIZE-INTERNAL-SLOT-FUNCTIONS */  static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* INITIALIZE-INTERNAL-SLOT-FUNCTIONS */
8186  static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* SETF PCL SLOT-DEFINITION-LOCATION */  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* POSITION */
8187  static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* POSITION */  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)(void *)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* COMPUTE-LAYOUT */
8188  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* COMPUTE-LAYOUT */  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* TYPECASE-ERROR-STRING */
8189  static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* TYPECASE-ERROR-STRING */  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* SLOT-UNBOUND-INTERNAL */
8190  static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* SLOT-UNBOUND-INTERNAL */  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* STRUCTURE-SUBTYPE-P */
8191  static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* STRUCTURE-SUBTYPE-P */  static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION */
8192  static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION */  static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* DIRECT-SLOT-DEFINITION-CLASS */
8193  static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* DIRECT-SLOT-DEFINITION-CLASS */  static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* DELETE-DUPLICATES */
8194  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* DELETE-DUPLICATES */  static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* CLASS-DIRECT-DEFAULT-INITARGS */
8195  static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* CLASS-DIRECT-DEFAULT-INITARGS */  static void LnkT289(){ call_or_link(VV[289],(void **)(void *)&Lnk289);} /* SLOT-BOUNDP-NORMAL */
 static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* SLOT-BOUNDP-NORMAL */  
8196  static void LnkT31(ptr) object *ptr;{ call_or_link_closure(VV[31],(void **)(void *)&Lnk31,(void **)(void *)&Lclptr31);} /* CLASS-SLOT-CELLS */  static void LnkT31(ptr) object *ptr;{ call_or_link_closure(VV[31],(void **)(void *)&Lnk31,(void **)(void *)&Lclptr31);} /* CLASS-SLOT-CELLS */
8197  static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* MAKE-INSTANCES-OBSOLETE */  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* MAKE-INSTANCES-OBSOLETE */
8198  static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* CLASS-WRAPPER */  static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CLASS-WRAPPER */
8199  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* COMPUTE-CLASS-SLOTS */  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* COMPUTE-CLASS-SLOTS */
8200  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* SORT */  static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* SORT */
8201  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CLASSP */  static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* CLASSP */
8202  static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CLASS-CAN-PRECEDE-LIST */  static void LnkT281(ptr) object *ptr;{ call_or_link_closure(VV[281],(void **)(void *)&Lnk281,(void **)(void *)&Lclptr281);} /* CLASS-CAN-PRECEDE-LIST */
8203  static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* SET-SLOT-VALUE-NORMAL */  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* SET-SLOT-VALUE-NORMAL */
8204  static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* SLOT-VALUE-NORMAL */  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* SLOT-VALUE-NORMAL */
8205  static object  LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,1,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS-CAN-PRECEDE-P */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS-CAN-PRECEDE-P */
8206  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */
8207  static object  LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */
8208  static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* FORCE-CACHE-FLUSHES */  static object  LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[275],(void **)(void *)&LnkLI275,1,first,ap);va_end(ap);return V1;} /* FORCE-CACHE-FLUSHES */
8209  static void LnkT99(ptr) object *ptr;{ call_or_link_closure(VV[99],(void **)(void *)&Lnk99,(void **)(void *)&Lclptr99);} /* CLASS-PRECEDENCE-LIST */  static void LnkT99(ptr) object *ptr;{ call_or_link_closure(VV[99],(void **)(void *)&Lnk99,(void **)(void *)&Lclptr99);} /* CLASS-PRECEDENCE-LIST */
8210  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */  static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */
8211  static void LnkT279(ptr) object *ptr;{ call_or_link_closure(VV[279],(void **)(void *)&Lnk279,(void **)(void *)&Lclptr279);} /* COMPUTE-DEFAULT-INITARGS */  static void LnkT273(ptr) object *ptr;{ call_or_link_closure(VV[273],(void **)(void *)&Lnk273,(void **)(void *)&Lclptr273);} /* COMPUTE-DEFAULT-INITARGS */
8212  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITS */  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITS */
8213  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* UPDATE-GFS-OF-CLASS */  static object  LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,1,first,ap);va_end(ap);return V1;} /* UPDATE-GFS-OF-CLASS */
8214  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,2,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS */  static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,2,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS */
8215  static object  LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[275],(void **)(void *)&LnkLI275,2,first,ap);va_end(ap);return V1;} /* UPDATE-CPL */  static object  LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,2,first,ap);va_end(ap);return V1;} /* UPDATE-CPL */
8216  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P */  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[266],(void **)(void *)&LnkLI266,1,first,ap);va_end(ap);return V1;} /* CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P */
8217  static void LnkT274(ptr) object *ptr;{ call_or_link_closure(VV[274],(void **)(void *)&Lnk274,(void **)(void *)&Lclptr274);} /* CLASS-FINALIZED-P */  static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* CLASS-FINALIZED-P */
8218  static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* SOME */  static void LnkT267(){ call_or_link(VV[267],(void **)(void *)&Lnk267);} /* SOME */
8219  static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* REMOVE-DIRECT-SUBCLASS */  static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* REMOVE-DIRECT-SUBCLASS */
8220  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* SET-DIFFERENCE */  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* SET-DIFFERENCE */
8221  static void LnkT269(ptr) object *ptr;{ call_or_link_closure(VV[269],(void **)(void *)&Lnk269,(void **)(void *)&Lclptr269);} /* ADD-DIRECT-SUBCLASS */  static void LnkT263(ptr) object *ptr;{ call_or_link_closure(VV[263],(void **)(void *)&Lnk263,(void **)(void *)&Lclptr263);} /* ADD-DIRECT-SUBCLASS */
8222  static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* CLASS-DIRECT-SUBCLASSES */  static void LnkT262(ptr) object *ptr;{ call_or_link_closure(VV[262],(void **)(void *)&Lnk262,(void **)(void *)&Lclptr262);} /* CLASS-DIRECT-SUBCLASSES */
8223  static void LnkT267(ptr) object *ptr;{ call_or_link_closure(VV[267],(void **)(void *)&Lnk267,(void **)(void *)&Lclptr267);} /* SLOT-DEFINITION-WRITERS */  static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* SLOT-DEFINITION-WRITERS */
8224  static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SLOT-DEFINITION-READERS */  static void LnkT260(ptr) object *ptr;{ call_or_link_closure(VV[260],(void **)(void *)&Lnk260,(void **)(void *)&Lclptr260);} /* SLOT-DEFINITION-READERS */
8225  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,3,first,ap);va_end(ap);return V1;} /* FIX-SLOT-ACCESSORS */  static object  LnkTLI259(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[259],(void **)(void *)&LnkLI259,3,first,ap);va_end(ap);return V1;} /* FIX-SLOT-ACCESSORS */
8226  static object  LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[264],(void **)(void *)&LnkLI264,1,first,ap);va_end(ap);return V1;} /* UPDATE-PV-TABLE-CACHE-INFO */  static object  LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,1,first,ap);va_end(ap);return V1;} /* UPDATE-PV-TABLE-CACHE-INFO */
8227  static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* PCL WRAPPER slot WRITER */  static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* PCL WRAPPER slot WRITER */
8228  static object  LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[263],(void **)(void *)&LnkLI263,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */  static object  LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[257],(void **)(void *)&LnkLI257,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */
8229  static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* PCL SLOTS slot WRITER */  static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* PCL SLOTS slot WRITER */
8230  static void LnkT262(ptr) object *ptr;{ call_or_link_closure(VV[262],(void **)(void *)&Lnk262,(void **)(void *)&Lclptr262);} /* COMPUTE-SLOTS */  static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* COMPUTE-SLOTS */
8231  static void LnkT98(ptr) object *ptr;{ call_or_link_closure(VV[98],(void **)(void *)&Lnk98,(void **)(void *)&Lclptr98);} /* PCL CLASS-PRECEDENCE-LIST slot WRITER */  static void LnkT98(ptr) object *ptr;{ call_or_link_closure(VV[98],(void **)(void *)&Lnk98,(void **)(void *)&Lclptr98);} /* PCL CLASS-PRECEDENCE-LIST slot WRITER */
8232  static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* COMPUTE-CLASS-PRECEDENCE-LIST */  static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* COMPUTE-CLASS-PRECEDENCE-LIST */
8233  static void LnkT260(ptr) object *ptr;{ call_or_link_closure(VV[260],(void **)(void *)&Lnk260,(void **)(void *)&Lclptr260);} /* PCL DEFSTRUCT-CONSTRUCTOR slot WRITER */  static void LnkT254(ptr) object *ptr;{ call_or_link_closure(VV[254],(void **)(void *)&Lnk254,(void **)(void *)&Lclptr254);} /* PCL DEFSTRUCT-CONSTRUCTOR slot WRITER */
8234  static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* PCL DEFSTRUCT-FORM slot WRITER */  static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* PCL DEFSTRUCT-FORM slot WRITER */
8235  static void LnkT258(ptr) object *ptr;{ call_or_link_closure(VV[258],(void **)(void *)&Lnk258,(void **)(void *)&Lclptr258);} /* PCL INTERNAL-WRITER-FUNCTION slot WRITER */  static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* PCL INTERNAL-WRITER-FUNCTION slot WRITER */
8236  static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* PCL INTERNAL-READER-FUNCTION slot WRITER */  static void LnkT251(ptr) object *ptr;{ call_or_link_closure(VV[251],(void **)(void *)&Lnk251,(void **)(void *)&Lclptr251);} /* PCL INTERNAL-READER-FUNCTION slot WRITER */
8237  static object  LnkTLI256(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[256],(void **)(void *)&LnkLI256,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */
8238  static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */  static void LnkT249(ptr) object *ptr;{ call_or_link_closure(VV[249],(void **)(void *)&Lnk249,(void **)(void *)&Lclptr249);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */
8239  static object  LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[254],(void **)(void *)&LnkLI254,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */  static object  LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */
8240  static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* PCL FROM-DEFCLASS-P slot READER */  static void LnkT247(ptr) object *ptr;{ call_or_link_closure(VV[247],(void **)(void *)&Lnk247,(void **)(void *)&Lclptr247);} /* PCL FROM-DEFCLASS-P slot READER */
8241  static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* MAP-DEPENDENTS */  static void LnkT246(ptr) object *ptr;{ call_or_link_closure(VV[246],(void **)(void *)&Lnk246,(void **)(void *)&Lclptr246);} /* MAP-DEPENDENTS */
8242  static void LnkT251(ptr) object *ptr;{ call_or_link_closure(VV[251],(void **)(void *)&Lnk251,(void **)(void *)&Lclptr251);} /* CLASS-DIRECT-SLOTS */  static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* CLASS-DIRECT-SLOTS */
8243  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,2,first,ap);va_end(ap);return V1;} /* REMOVE-SLOT-ACCESSORS */  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,2,first,ap);va_end(ap);return V1;} /* REMOVE-SLOT-ACCESSORS */
8244  static void LnkT249(ptr) object *ptr;{ call_or_link_closure(VV[249],(void **)(void *)&Lnk249,(void **)(void *)&Lclptr249);} /* CLASS-DIRECT-SUPERCLASSES */  static void LnkT243(ptr) object *ptr;{ call_or_link_closure(VV[243],(void **)(void *)&Lnk243,(void **)(void *)&Lclptr243);} /* CLASS-DIRECT-SUPERCLASSES */
8245  static object  LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,2,first,ap);va_end(ap);return V1;} /* REMOVE-DIRECT-SUBCLASSES */  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,2,first,ap);va_end(ap);return V1;} /* REMOVE-DIRECT-SUBCLASSES */
8246  static void LnkT247(ptr) object *ptr;{ call_or_link_closure(VV[247],(void **)(void *)&Lnk247,(void **)(void *)&Lclptr247);} /* PCL CLASS-EQ-SPECIALIZER slot WRITER */  static void LnkT241(ptr) object *ptr;{ call_or_link_closure(VV[241],(void **)(void *)&Lnk241,(void **)(void *)&Lclptr241);} /* PCL CLASS-EQ-SPECIALIZER slot WRITER */
8247  static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL */  static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL */
8248  static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* GET-KEY-ARG */  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,2,first,ap);va_end(ap);return V1;} /* GET-KEY-ARG */
8249  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,2,first,ap);va_end(ap);return V1;} /* ADD-SLOT-ACCESSORS */  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,2,first,ap);va_end(ap);return V1;} /* ADD-SLOT-ACCESSORS */
8250  static object  LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[243],(void **)(void *)&LnkLI243,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */
8251  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,2,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS */  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,2,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS */
8252  static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,2,first,ap);va_end(ap);return V1;} /* ADD-DIRECT-SUBCLASSES */  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,2,first,ap);va_end(ap);return V1;} /* ADD-DIRECT-SUBCLASSES */
8253  static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* MAKE-CLASS-PREDICATE-NAME */  static void LnkT234(){ call_or_link(VV[234],(void **)(void *)&Lnk234);} /* MAKE-CLASS-PREDICATE-NAME */
8254  static void LnkT239(ptr) object *ptr;{ call_or_link_closure(VV[239],(void **)(void *)&Lnk239,(void **)(void *)&Lclptr239);} /* CLASS-NAME */  static void LnkT233(ptr) object *ptr;{ call_or_link_closure(VV[233],(void **)(void *)&Lnk233,(void **)(void *)&Lclptr233);} /* CLASS-NAME */
8255  static void LnkT238(ptr) object *ptr;{ call_or_link_closure(VV[238],(void **)(void *)&Lnk238,(void **)(void *)&Lclptr238);} /* PCL PREDICATE-NAME slot READER */  static void LnkT232(ptr) object *ptr;{ call_or_link_closure(VV[232],(void **)(void *)&Lnk232,(void **)(void *)&Lclptr232);} /* PCL PREDICATE-NAME slot READER */
8256  static void LnkT237(ptr) object *ptr;{ call_or_link_closure(VV[237],(void **)(void *)&Lnk237,(void **)(void *)&Lclptr237);} /* PCL PREDICATE-NAME slot WRITER */  static void LnkT231(ptr) object *ptr;{ call_or_link_closure(VV[231],(void **)(void *)&Lnk231,(void **)(void *)&Lclptr231);} /* PCL PREDICATE-NAME slot WRITER */
8257  static void LnkT236(ptr) object *ptr;{ call_or_link_closure(VV[236],(void **)(void *)&Lnk236,(void **)(void *)&Lclptr236);} /* SLOT-DEFINITION-NAME */  static void LnkT230(ptr) object *ptr;{ call_or_link_closure(VV[230],(void **)(void *)&Lnk230,(void **)(void *)&Lclptr230);} /* SLOT-DEFINITION-NAME */
8258  static void LnkT235(ptr) object *ptr;{ call_or_link_closure(VV[235],(void **)(void *)&Lnk235,(void **)(void *)&Lclptr235);} /* SLOT-DEFINITION-INITFUNCTION */  static void LnkT229(ptr) object *ptr;{ call_or_link_closure(VV[229],(void **)(void *)&Lnk229,(void **)(void *)&Lclptr229);} /* SLOT-DEFINITION-INITFUNCTION */
8259  static void LnkT234(ptr) object *ptr;{ call_or_link_closure(VV[234],(void **)(void *)&Lnk234,(void **)(void *)&Lclptr234);} /* SLOT-DEFINITION-ALLOCATION */  static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* SLOT-DEFINITION-ALLOCATION */
8260  static void LnkT233(ptr) object *ptr;{ call_or_link_closure(VV[233],(void **)(void *)&Lnk233,(void **)(void *)&Lclptr233);} /* PCL DIRECT-SLOTS slot READER */  static void LnkT227(ptr) object *ptr;{ call_or_link_closure(VV[227],(void **)(void *)&Lnk227,(void **)(void *)&Lclptr227);} /* PCL DIRECT-SLOTS slot READER */
8261  static void LnkT232(ptr) object *ptr;{ call_or_link_closure(VV[232],(void **)(void *)&Lnk232,(void **)(void *)&Lclptr232);} /* PCL DIRECT-SLOTS slot WRITER */  static void LnkT226(ptr) object *ptr;{ call_or_link_closure(VV[226],(void **)(void *)&Lnk226,(void **)(void *)&Lclptr226);} /* PCL DIRECT-SLOTS slot WRITER */
8262  static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* MAKE-DIRECT-SLOTD */  static void LnkT225(){ call_or_link(VV[225],(void **)(void *)&Lnk225);} /* MAKE-DIRECT-SLOTD */
8263  static void LnkT230(ptr) object *ptr;{ call_or_link_closure(VV[230],(void **)(void *)&Lnk230,(void **)(void *)&Lclptr230);} /* PCL DIRECT-SUPERCLASSES slot READER */  static void LnkT224(ptr) object *ptr;{ call_or_link_closure(VV[224],(void **)(void *)&Lnk224,(void **)(void *)&Lclptr224);} /* PCL DIRECT-SUPERCLASSES slot READER */
8264  static void LnkT229(ptr) object *ptr;{ call_or_link_closure(VV[229],(void **)(void *)&Lnk229,(void **)(void *)&Lclptr229);} /* PCL DIRECT-SUPERCLASSES slot WRITER */  static void LnkT223(ptr) object *ptr;{ call_or_link_closure(VV[223],(void **)(void *)&Lnk223,(void **)(void *)&Lclptr223);} /* PCL DIRECT-SUPERCLASSES slot WRITER */
8265  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* VALIDATE-SUPERCLASS */  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* VALIDATE-SUPERCLASS */
8266  static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* FORWARD-REFERENCED-CLASS-P */  static void LnkT222(ptr) object *ptr;{ call_or_link_closure(VV[222],(void **)(void *)&Lnk222,(void **)(void *)&Lclptr222);} /* FORWARD-REFERENCED-CLASS-P */
8267  static void LnkT227(ptr) object *ptr;{ call_or_link_closure(VV[227],(void **)(void *)&Lnk227,(void **)(void *)&Lclptr227);} /* REINITIALIZE-INSTANCE */  static void LnkT221(ptr) object *ptr;{ call_or_link_closure(VV[221],(void **)(void *)&Lnk221,(void **)(void *)&Lclptr221);} /* REINITIALIZE-INSTANCE */
8268  static void LnkT226(ptr) object *ptr;{ call_or_link_closure(VV[226],(void **)(void *)&Lnk226,(void **)(void *)&Lclptr226);} /* CHANGE-CLASS */  static void LnkT220(ptr) object *ptr;{ call_or_link_closure(VV[220],(void **)(void *)&Lnk220,(void **)(void *)&Lclptr220);} /* CHANGE-CLASS */
8269  static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
8270  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,2,first,ap);va_end(ap);return V1;} /* SETF PCL FIND-CLASS */  static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* MAKE-INSTANCE */
8271  static void LnkT223(ptr) object *ptr;{ call_or_link_closure(VV[223],(void **)(void *)&Lnk223,(void **)(void *)&Lclptr223);} /* MAKE-INSTANCE */  static void LnkT217(ptr) object *ptr;{ call_or_link_closure(VV[217],(void **)(void *)&Lnk217,(void **)(void *)&Lclptr217);} /* INFORM-TYPE-SYSTEM-ABOUT-CLASS */
8272  static void LnkT222(ptr) object *ptr;{ call_or_link_closure(VV[222],(void **)(void *)&Lnk222,(void **)(void *)&Lclptr222);} /* INFORM-TYPE-SYSTEM-ABOUT-CLASS */  static void LnkT216(ptr) object *ptr;{ call_or_link_closure(VV[216],(void **)(void *)&Lnk216,(void **)(void *)&Lclptr216);} /* CLASS-PROTOTYPE */
8273  static void LnkT221(ptr) object *ptr;{ call_or_link_closure(VV[221],(void **)(void *)&Lnk221,(void **)(void *)&Lclptr221);} /* CLASS-PROTOTYPE */  static void LnkT215(){ call_or_link(VV[215],(void **)(void *)&Lnk215);} /* ENSURE-CLASS-VALUES */
8274  static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* ENSURE-CLASS-VALUES */  static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* ENSURE-CLASS-USING-CLASS */
8275  static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* ENSURE-CLASS-USING-CLASS */  static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[214],(void **)(void *)&LnkLI214,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
8276  static object  LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[219],(void **)(void *)&LnkLI219,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* ENSURE-CLASS */
8277  static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* ENSURE-CLASS */  static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* LOAD-TRUENAME */
8278  static void LnkT216(){ call_or_link(VV[216],(void **)(void *)&Lnk216);} /* LOAD-TRUENAME */  static object  LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */
8279  static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */  static void LnkT209(ptr) object *ptr;{ call_or_link_closure(VV[209],(void **)(void *)&Lnk209,(void **)(void *)&Lclptr209);} /* LISP TYPE slot WRITER */
8280  static void LnkT214(ptr) object *ptr;{ call_or_link_closure(VV[214],(void **)(void *)&Lnk214,(void **)(void *)&Lclptr214);} /* LISP TYPE slot WRITER */  static void LnkT208(ptr) object *ptr;{ call_or_link_closure(VV[208],(void **)(void *)&Lnk208,(void **)(void *)&Lclptr208);} /* SPECIALIZER-CLASS */
8281  static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* SPECIALIZER-CLASS */  static object  LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,1,first,ap);va_end(ap);return V1;} /* MAP-SPECIALIZERS */
8282  static object  LnkTLI212(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[212],(void **)(void *)&LnkLI212,1,first,ap);va_end(ap);return V1;} /* MAP-SPECIALIZERS */  static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* MAP-ALL-CLASSES */
8283  static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* MAP-ALL-CLASSES */  static void LnkT205(ptr) object *ptr;{ call_or_link_closure(VV[205],(void **)(void *)&Lnk205,(void **)(void *)&Lclptr205);} /* SPECIALIZER-METHOD-TABLE */
8284  static void LnkT210(ptr) object *ptr;{ call_or_link_closure(VV[210],(void **)(void *)&Lnk210,(void **)(void *)&Lclptr210);} /* SPECIALIZER-METHOD-TABLE */  static void LnkT204(ptr) object *ptr;{ call_or_link_closure(VV[204],(void **)(void *)&Lnk204,(void **)(void *)&Lclptr204);} /* SPECIALIZER-OBJECT */
8285  static void LnkT209(ptr) object *ptr;{ call_or_link_closure(VV[209],(void **)(void *)&Lnk209,(void **)(void *)&Lclptr209);} /* SPECIALIZER-OBJECT */  static void LnkT203(ptr) object *ptr;{ call_or_link_closure(VV[203],(void **)(void *)&Lnk203,(void **)(void *)&Lclptr203);} /* METHOD-GENERIC-FUNCTION */
8286  static void LnkT208(ptr) object *ptr;{ call_or_link_closure(VV[208],(void **)(void *)&Lnk208,(void **)(void *)&Lclptr208);} /* METHOD-GENERIC-FUNCTION */  static void LnkT202(ptr) object *ptr;{ call_or_link_closure(VV[202],(void **)(void *)&Lnk202,(void **)(void *)&Lclptr202);} /* PCL DIRECT-METHODS slot READER */
 static void LnkT207(ptr) object *ptr;{ call_or_link_closure(VV[207],(void **)(void *)&Lnk207,(void **)(void *)&Lclptr207);} /* PCL DIRECT-METHODS slot READER */  
8287  static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* REMOVE */  static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* REMOVE */
8288  static void LnkT206(ptr) object *ptr;{ call_or_link_closure(VV[206],(void **)(void *)&Lnk206,(void **)(void *)&Lclptr206);} /* PCL DIRECT-SUBCLASSES slot WRITER */  static void LnkT201(ptr) object *ptr;{ call_or_link_closure(VV[201],(void **)(void *)&Lnk201,(void **)(void *)&Lclptr201);} /* PCL DIRECT-SUBCLASSES slot WRITER */
8289  static void LnkT205(ptr) object *ptr;{ call_or_link_closure(VV[205],(void **)(void *)&Lnk205,(void **)(void *)&Lclptr205);} /* PCL DIRECT-SUBCLASSES slot READER */  static void LnkT200(ptr) object *ptr;{ call_or_link_closure(VV[200],(void **)(void *)&Lnk200,(void **)(void *)&Lclptr200);} /* PCL DIRECT-SUBCLASSES slot READER */
8290  static object  LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[204],(void **)(void *)&LnkLI204,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */  static object  LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[199],(void **)(void *)&LnkLI199,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */
8291  static void LnkT203(ptr) object *ptr;{ call_or_link_closure(VV[203],(void **)(void *)&Lnk203,(void **)(void *)&Lclptr203);} /* PCL DEFSTRUCT-CONSTRUCTOR slot READER */  static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* PCL DEFSTRUCT-CONSTRUCTOR slot READER */
8292  static void LnkT202(ptr) object *ptr;{ call_or_link_closure(VV[202],(void **)(void *)&Lnk202,(void **)(void *)&Lclptr202);} /* PCL PROTOTYPE slot WRITER */  static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* PCL PROTOTYPE slot WRITER */
8293  static void LnkT201(ptr) object *ptr;{ call_or_link_closure(VV[201],(void **)(void *)&Lnk201,(void **)(void *)&Lclptr201);} /* ALLOCATE-INSTANCE */  static void LnkT196(ptr) object *ptr;{ call_or_link_closure(VV[196],(void **)(void *)&Lnk196,(void **)(void *)&Lclptr196);} /* ALLOCATE-INSTANCE */
8294  static void LnkT200(ptr) object *ptr;{ call_or_link_closure(VV[200],(void **)(void *)&Lnk200,(void **)(void *)&Lclptr200);} /* PCL PROTOTYPE slot READER */  static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* PCL PROTOTYPE slot READER */
8295  static void LnkT199(ptr) object *ptr;{ call_or_link_closure(VV[199],(void **)(void *)&Lnk199,(void **)(void *)&Lclptr199);} /* PCL WRAPPER slot READER */  static void LnkT194(ptr) object *ptr;{ call_or_link_closure(VV[194],(void **)(void *)&Lnk194,(void **)(void *)&Lclptr194);} /* PCL WRAPPER slot READER */
8296  static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* PCL DOCUMENTATION slot WRITER */  static void LnkT193(ptr) object *ptr;{ call_or_link_closure(VV[193],(void **)(void *)&Lnk193,(void **)(void *)&Lclptr193);} /* PCL DOCUMENTATION slot WRITER */
8297  static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* PCL DOCUMENTATION slot READER */  static void LnkT192(ptr) object *ptr;{ call_or_link_closure(VV[192],(void **)(void *)&Lnk192,(void **)(void *)&Lclptr192);} /* PCL DOCUMENTATION slot READER */
8298  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,2,first,ap);va_end(ap);return V1;} /* PLIST-VALUE */  static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* PLIST-VALUE */
8299  static void LnkT195(){ call_or_link(VV[195],(void **)(void *)&Lnk195);} /* DOCUMENTATION */  static void LnkT191(){ call_or_link(VV[191],(void **)(void *)&Lnk191);} /* DOCUMENTATION */
8300  static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,3,first,ap);va_end(ap);return V1;} /* SETF PCL PLIST-VALUE */  static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)(void *)&LnkLI189,2,first,ap);va_end(ap);return V1;} /* GET-KEY-ARG1 */
8301  static object  LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[193],(void **)(void *)&LnkLI193,2,first,ap);va_end(ap);return V1;} /* GET-KEY-ARG1 */  static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* TURBO-CLOSURE */
8302  static void LnkT192(ptr) object *ptr;{ call_or_link_closure(VV[192],(void **)(void *)&Lnk192,(void **)(void *)&Lclptr192);} /* SETF PCL SLOT-ACCESSOR-FUNCTION */  static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION */
8303  static void LnkT191(ptr) object *ptr;{ call_or_link_closure(VV[191],(void **)(void *)&Lnk191,(void **)(void *)&Lclptr191);} /* SETF PCL SLOT-ACCESSOR-STD-P */  static void LnkT185(){ call_or_link(VV[185],(void **)(void *)&Lnk185);} /* GET-ACCESSOR-METHOD-FUNCTION */
8304  static void LnkT190(){ call_or_link(VV[190],(void **)(void *)&Lnk190);} /* TURBO-CLOSURE */  static void LnkT184(ptr) object *ptr;{ call_or_link_closure(VV[184],(void **)(void *)&Lnk184,(void **)(void *)&Lclptr184);} /* SLOT-ACCESSOR-STD-P */
8305  static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION */  static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
8306  static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* GET-ACCESSOR-METHOD-FUNCTION */  static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[182],(void **)(void *)&LnkLI182,first,ap);va_end(ap);return V1;} /* INITIALIZE-INTERNAL-SLOT-GFS */
8307  static void LnkT187(ptr) object *ptr;{ call_or_link_closure(VV[187],(void **)(void *)&Lnk187,(void **)(void *)&Lclptr187);} /* SLOT-ACCESSOR-STD-P */  static void LnkT181(ptr) object *ptr;{ call_or_link_closure(VV[181],(void **)(void *)&Lnk181,(void **)(void *)&Lclptr181);} /* COMPUTE-SLOT-ACCESSOR-INFO */
8308  static object  LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */  static object  LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
8309  static object  LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[185],(void **)(void *)&LnkLI185,first,ap);va_end(ap);return V1;} /* INITIALIZE-INTERNAL-SLOT-GFS */  static void LnkT179(ptr) object *ptr;{ call_or_link_closure(VV[179],(void **)(void *)&Lnk179,(void **)(void *)&Lclptr179);} /* LISP CLASS slot READER */
8310  static void LnkT184(ptr) object *ptr;{ call_or_link_closure(VV[184],(void **)(void *)&Lnk184,(void **)(void *)&Lclptr184);} /* COMPUTE-SLOT-ACCESSOR-INFO */  static void LnkT178(ptr) object *ptr;{ call_or_link_closure(VV[178],(void **)(void *)&Lnk178,(void **)(void *)&Lclptr178);} /* PCL NAME slot READER */
8311  static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* PCL ACCESSOR-FLAGS slot WRITER */
8312  static void LnkT182(ptr) object *ptr;{ call_or_link_closure(VV[182],(void **)(void *)&Lnk182,(void **)(void *)&Lclptr182);} /* LISP CLASS slot READER */  static void LnkT176(ptr) object *ptr;{ call_or_link_closure(VV[176],(void **)(void *)&Lnk176,(void **)(void *)&Lclptr176);} /* PCL ACCESSOR-FLAGS slot READER */
8313  static void LnkT181(ptr) object *ptr;{ call_or_link_closure(VV[181],(void **)(void *)&Lnk181,(void **)(void *)&Lclptr181);} /* PCL NAME slot READER */  static object  LnkTLI175(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[175],(void **)(void *)&LnkLI175,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
8314  static void LnkT180(ptr) object *ptr;{ call_or_link_closure(VV[180],(void **)(void *)&Lnk180,(void **)(void *)&Lclptr180);} /* PCL ACCESSOR-FLAGS slot WRITER */  static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* CCLOSURE-ENV-NTHCDR */
 static void LnkT179(ptr) object *ptr;{ call_or_link_closure(VV[179],(void **)(void *)&Lnk179,(void **)(void *)&Lclptr179);} /* PCL ACCESSOR-FLAGS slot READER */  
 static object  LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[178],(void **)(void *)&LnkLI178,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  
 static void LnkT177(){ call_or_link(VV[177],(void **)(void *)&Lnk177);} /* CCLOSURE-ENV-NTHCDR */  
 static void LnkT176(ptr) object *ptr;{ call_or_link_closure(VV[176],(void **)(void *)&Lnk176,(void **)(void *)&Lclptr176);} /* SETF PCL SLOT-DEFINITION-BOUNDP-FUNCTION */  
 static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* SETF PCL SLOT-DEFINITION-WRITER-FUNCTION */  
 static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* SETF PCL SLOT-DEFINITION-READER-FUNCTION */  
8315  static void LnkT173(ptr) object *ptr;{ call_or_link_closure(VV[173],(void **)(void *)&Lnk173,(void **)(void *)&Lclptr173);} /* SLOT-DEFINITION-BOUNDP-FUNCTION */  static void LnkT173(ptr) object *ptr;{ call_or_link_closure(VV[173],(void **)(void *)&Lnk173,(void **)(void *)&Lclptr173);} /* SLOT-DEFINITION-BOUNDP-FUNCTION */
8316  static void LnkT171(ptr) object *ptr;{ call_or_link_closure(VV[171],(void **)(void *)&Lnk171,(void **)(void *)&Lclptr171);} /* SLOT-DEFINITION-WRITER-FUNCTION */  static void LnkT171(ptr) object *ptr;{ call_or_link_closure(VV[171],(void **)(void *)&Lnk171,(void **)(void *)&Lclptr171);} /* SLOT-DEFINITION-WRITER-FUNCTION */
8317  static void LnkT169(ptr) object *ptr;{ call_or_link_closure(VV[169],(void **)(void *)&Lnk169,(void **)(void *)&Lclptr169);} /* SLOT-DEFINITION-READER-FUNCTION */  static void LnkT169(ptr) object *ptr;{ call_or_link_closure(VV[169],(void **)(void *)&Lnk169,(void **)(void *)&Lclptr169);} /* SLOT-DEFINITION-READER-FUNCTION */

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

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