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

Diff of /gcl/pcl/pcl_slots.c

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

revision 1.4 by camm, Tue Oct 7 21:07:39 2003 UTC revision 1.5 by camm, Thu Oct 23 15:30:23 2003 UTC
# Line 47  register object V27;object V28; Line 47  register object V27;object V28;
47          goto TTL;          goto TTL;
48  TTL:;  TTL:;
49          if(type_of(V27)==t_structure){          if(type_of(V27)==t_structure){
50          goto T13;}          goto T10;}
51          goto T11;          goto T8;
52          goto T13;          goto T10;
53  T13:;  T10:;
54          if(!(((V27)->str.str_def)==(VV[3]))){          if(!(((V27)->str.str_def)==(VV[3]))){
55          goto T11;}          goto T8;}
56          V30 = (V27);          V30= Ct;
57          V31 = (V28);          STSET(object,(V27),0, (V28));
58          V32= Ct;          {object V31 = (V28);
59          STSET(object,V30,0, V31);          VMR4(V31)}
60          {object V33 = V31;          goto T8;
61          VMR4(V33)}  T8:;{object V32;
62          goto T11;          V32= (VV[5]->s.s_dbind);
 T11:;{object V34;  
         V34= (VV[5]->s.s_dbind);  
63          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
64          base[1]= (V27);          base[1]= (V27);
65          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
66          (void) (*Lnk41)();          (void) (*Lnk56)();
67          vs_top=sup;          vs_top=sup;
68          V35= vs_base[0];          V33= vs_base[0];
69          if(!((V34)==(CMPcar(V35)))){          if(!((V32)==(CMPcar(V33)))){
70          goto T16;}}          goto T13;}}
71          {object V36;          {object V34;
72          V36= ((V27))->cc.cc_turbo[13];          V34= ((V27))->cc.cc_turbo[13];
73          ((V36))->c.c_car = V28;          ((V34))->c.c_car = V28;
74          {object V38 = V28;          {object V36 = V28;
75          VMR4(V38)}}          VMR4(V36)}}
76          goto T16;          goto T13;
77  T16:;  T13:;
78          base[0]= VV[6];          base[0]= VV[6];
79          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
80          Lerror();          Lerror();
81          vs_top=sup;          vs_top=sup;
82          {object V39 = vs_base[0];          {object V37 = vs_base[0];
83          VMR4(V39)}          VMR4(V37)}
84          base[0]=base[0];          base[0]=base[0];
85          return Cnil;          return Cnil;
86  }  }
87  /*      local entry for function SWAP-WRAPPERS-AND-SLOTS        */  /*      local entry for function SWAP-WRAPPERS-AND-SLOTS        */
88    
89  static object LI5(V42,V43)  static object LI5(V40,V41)
90    
91  register object V42;register object V43;  register object V40;register object V41;
92  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
93          goto TTL;          goto TTL;
94  TTL:;  TTL:;
95          if(type_of(V42)==t_structure){          if(type_of(V40)==t_structure){
96          goto T27;}          goto T24;}
97          goto T25;          goto T22;
98          goto T27;          goto T24;
99  T27:;  T24:;
100          if(!(((V42)->str.str_def)==(VV[7]))){          if(!(((V40)->str.str_def)==(VV[7]))){
101          goto T25;}          goto T22;}
102          {object V45;          {object V43;
103          object V46;          object V44;
104          V45= STREF(object,(V42),0);          V43= STREF(object,(V40),0);
105          V46= STREF(object,(V42),4);          V44= STREF(object,(V40),4);
106          V47 = (V42);          V45= Ct;
107            STSET(object,(V40),0, STREF(object,(V41),0));
108            (void)(STREF(object,(V41),0));
109            V46= Ct;
110            STSET(object,(V40),4, STREF(object,(V41),4));
111            (void)(STREF(object,(V41),4));
112            V47= Ct;
113            STSET(object,(V41),0, (V43));
114            (void)((V43));
115          V48= Ct;          V48= Ct;
116          STSET(object,V47,0, STREF(object,(V43),0));          STSET(object,(V41),4, (V44));
117          (void)(STREF(object,(V43),0));          {object V49 = (V44);
118          V49 = (V42);          VMR5(V49)}}
119          V50= Ct;          goto T22;
120          STSET(object,V49,4, STREF(object,(V43),4));  T22:;{object V50;
121          (void)(STREF(object,(V43),4));          V50= (VV[5]->s.s_dbind);
         V51 = (V43);  
         V52 = (V45);  
         V53= Ct;  
         STSET(object,V51,0, V52);  
         (void)(V52);  
         V54 = (V43);  
         V55 = (V46);  
         V56= Ct;  
         STSET(object,V54,4, V55);  
         {object V57 = V55;  
         VMR5(V57)}}  
         goto T25;  
 T25:;{object V58;  
         V58= (VV[5]->s.s_dbind);  
122          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
123          base[1]= (V42);          base[1]= (V40);
124          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
125          (void) (*Lnk41)();          (void) (*Lnk56)();
126          vs_top=sup;          vs_top=sup;
127          V59= vs_base[0];          V51= vs_base[0];
128          if(!((V58)==(CMPcar(V59)))){          if(!((V50)==(CMPcar(V51)))){
129          goto T35;}}          goto T32;}}
130            {object V52;
131            object V53;
132            V52= CMPcar(((V40))->cc.cc_turbo[13]);
133            V53= CMPcar(((V40))->cc.cc_turbo[12]);
134            {object V54;
135            object V55;
136            V54= ((V40))->cc.cc_turbo[13];
137            V55= CMPcar(((V41))->cc.cc_turbo[13]);
138            ((V54))->c.c_car = (V55);}
139            {object V56;
140            object V57;
141            V56= ((V40))->cc.cc_turbo[12];
142            V57= CMPcar(((V41))->cc.cc_turbo[12]);
143            ((V56))->c.c_car = (V57);}
144            {object V58;
145            V58= ((V41))->cc.cc_turbo[13];
146            ((V58))->c.c_car = V52;}
147          {object V60;          {object V60;
148          object V61;          V60= ((V41))->cc.cc_turbo[12];
149          V60= CMPcar(((V42))->cc.cc_turbo[13]);          ((V60))->c.c_car = V53;
150          V61= CMPcar(((V42))->cc.cc_turbo[12]);          {object V62 = V53;
151          {object V62;          VMR5(V62)}}}
152          object V63;          goto T32;
153          V62= ((V42))->cc.cc_turbo[13];  T32:;
         V63= CMPcar(((V43))->cc.cc_turbo[13]);  
         ((V62))->c.c_car = (V63);}  
         {object V64;  
         object V65;  
         V64= ((V42))->cc.cc_turbo[12];  
         V65= CMPcar(((V43))->cc.cc_turbo[12]);  
         ((V64))->c.c_car = (V65);}  
         {object V66;  
         V66= ((V43))->cc.cc_turbo[13];  
         ((V66))->c.c_car = V60;}  
         {object V68;  
         V68= ((V43))->cc.cc_turbo[12];  
         ((V68))->c.c_car = V61;  
         {object V70 = V61;  
         VMR5(V70)}}}  
         goto T35;  
 T35:;  
154          base[0]= VV[8];          base[0]= VV[8];
155          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
156          Lerror();          Lerror();
157          vs_top=sup;          vs_top=sup;
158          {object V71 = vs_base[0];          {object V63 = vs_base[0];
159          VMR5(V71)}          VMR5(V63)}
160          base[0]=base[0];          base[0]=base[0];
161          return Cnil;          return Cnil;
162  }  }
# Line 174  static void L6() Line 166  static void L6()
166  {register object *base=vs_base;  {register object *base=vs_base;
167          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
168          vs_check;          vs_check;
169          {object V72;          {object V64;
170          object V73;          object V65;
171          object V74;          object V66;
172          check_arg(3);          check_arg(3);
173          V72=(base[0]);          V64=(base[0]);
174          V73=(base[1]);          V65=(base[1]);
175          V74=(base[2]);          V66=(base[2]);
176          vs_top=sup;          vs_top=sup;
177          goto TTL;          goto TTL;
178  TTL:;  TTL:;
179          {object V75;          {object V67;
180          {register object x= (V74),V76= ((V73))->v.v_self[10];          {register object x= (V66),V68= ((V65))->v.v_self[10];
181          while(V76!=Cnil)          while(V68!=Cnil)
182          if(eql(x,V76->c.c_car->c.c_car) &&V76->c.c_car != Cnil){          if(eql(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){
183          V75= (V76->c.c_car);          V67= (V68->c.c_car);
184          goto T56;          goto T53;
185          }else V76=V76->c.c_cdr;          }else V68=V68->c.c_cdr;
186          V75= Cnil;}          V67= Cnil;}
187          goto T56;          goto T53;
188  T56:;  T53:;
189          if(((V75))!=Cnil){          if(((V67))!=Cnil){
190          goto T58;}          goto T55;}
191          base[3]= ((V73))->v.v_self[11];          base[3]= ((V65))->v.v_self[11];
192          base[4]= (V72);          base[4]= (V64);
193          base[5]= (V74);          base[5]= (V66);
194          base[6]= VV[9];          base[6]= VV[9];
195          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
196          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
197          return;          return;
198          goto T58;          goto T55;
199  T58:;  T55:;
200          if(!((CMPcdr((V75)))==((VV[10]->s.s_dbind)))){          if(!((CMPcdr((V67)))==((VV[10]->s.s_dbind)))){
201          goto T65;}          goto T62;}
202          base[3]= ((V73))->v.v_self[11];          base[3]= ((V65))->v.v_self[11];
203          base[4]= (V72);          base[4]= (V64);
204          base[5]= (V74);          base[5]= (V66);
205          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
206          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk59)(Lclptr59);
207          return;          return;
208          goto T65;          goto T62;
209  T65:;  T62:;
210          base[3]= CMPcdr((V75));          base[3]= CMPcdr((V67));
211          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
212          return;}          return;}
213          }          }
# Line 226  static void L7() Line 218  static void L7()
218  {register object *base=vs_base;  {register object *base=vs_base;
219          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
220          vs_check;          vs_check;
221          {object V77;          {object V69;
222          object V78;          object V70;
223          object V79;          object V71;
224          object V80;          object V72;
225          check_arg(4);          check_arg(4);
226          V77=(base[0]);          V69=(base[0]);
227          V78=(base[1]);          V70=(base[1]);
228          V79=(base[2]);          V71=(base[2]);
229          V80=(base[3]);          V72=(base[3]);
230          vs_top=sup;          vs_top=sup;
231          goto TTL;          goto TTL;
232  TTL:;  TTL:;
233          {object V81;          {object V73;
234          {register object x= (V80),V82= ((V79))->v.v_self[10];          {register object x= (V72),V74= ((V71))->v.v_self[10];
235          while(V82!=Cnil)          while(V74!=Cnil)
236          if(eql(x,V82->c.c_car->c.c_car) &&V82->c.c_car != Cnil){          if(eql(x,V74->c.c_car->c.c_car) &&V74->c.c_car != Cnil){
237          V81= (V82->c.c_car);          V73= (V74->c.c_car);
238          goto T70;          goto T67;
239          }else V82=V82->c.c_cdr;          }else V74=V74->c.c_cdr;
240          V81= Cnil;}          V73= Cnil;}
241          goto T70;          goto T67;
242  T70:;  T67:;
243          if(((V81))!=Cnil){          if(((V73))!=Cnil){
244          goto T72;}          goto T69;}
245          base[4]= ((V79))->v.v_self[11];          base[4]= ((V71))->v.v_self[11];
246          base[5]= (V78);          base[5]= (V70);
247          base[6]= (V80);          base[6]= (V72);
248          base[7]= VV[11];          base[7]= VV[11];
249          base[8]= (V77);          base[8]= (V69);
250          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
251          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
252          return;          return;
253          goto T72;          goto T69;
254  T72:;  T69:;
255          (V81)->c.c_cdr = V77;          (V73)->c.c_cdr = V69;
256          base[4]= V77;          base[4]= V69;
257          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
258          return;}          return;}
259          }          }
# Line 272  static void L8() Line 264  static void L8()
264  {register object *base=vs_base;  {register object *base=vs_base;
265          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
266          vs_check;          vs_check;
267          {object V85;          {object V77;
268          object V86;          object V78;
269          object V87;          register object V79;
270          object V88;          object V80;
271          check_arg(4);          check_arg(4);
272          V85=(base[0]);          V77=(base[0]);
273          V86=(base[1]);          V78=(base[1]);
274          V87=(base[2]);          V79=(base[2]);
275          V88=(base[3]);          V80=(base[3]);
276          vs_top=sup;          vs_top=sup;
277          goto TTL;          goto TTL;
278  TTL:;  TTL:;
279          {object V90;          {object V82;
280          object V91;          object V83;
281          base[4]= (V87);          base[4]= (V79);
282          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
283          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk60)(Lclptr60);
284          vs_top=sup;          vs_top=sup;
285          V90= vs_base[0];          V82= vs_base[0];
286          base[4]= (V87);          base[4]= (V79);
287          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
288          (void) (*Lnk46)(Lclptr46);          (void) (*Lnk61)(Lclptr61);
289          vs_top=sup;          vs_top=sup;
290          V91= vs_base[0];          V83= vs_base[0];
291          base[4]= (V91);          base[4]= (V83);
292          base[5]= (V90);          base[5]= (V82);
293          base[6]= (V88);          base[6]= (V80);
294          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
295          (void) (*Lnk47)();          (void) (*Lnk62)();
296          return;}          return;}
297          }          }
298  }  }
# Line 310  static void L9() Line 302  static void L9()
302  {register object *base=vs_base;  {register object *base=vs_base;
303          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
304          vs_check;          vs_check;
305          {object V92;          {object V84;
306          object V93;          object V85;
307          object V94;          object V86;
308          object V95;          register object V87;
309          object V96;          object V88;
310          check_arg(5);          check_arg(5);
311          V92=(base[0]);          V84=(base[0]);
312          V93=(base[1]);          V85=(base[1]);
313          V94=(base[2]);          V86=(base[2]);
314          V95=(base[3]);          V87=(base[3]);
315          V96=(base[4]);          V88=(base[4]);
316          vs_top=sup;          vs_top=sup;
317          goto TTL;          goto TTL;
318  TTL:;  TTL:;
319          {object V98;          {object V90;
320          object V99;          object V91;
321          base[5]= (V95);          base[5]= (V87);
322          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
323          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk60)(Lclptr60);
324          vs_top=sup;          vs_top=sup;
325          V98= vs_base[0];          V90= vs_base[0];
326          base[5]= (V95);          base[5]= (V87);
327          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
328          (void) (*Lnk46)(Lclptr46);          (void) (*Lnk61)(Lclptr61);
329          vs_top=sup;          vs_top=sup;
330          V99= vs_base[0];          V91= vs_base[0];
331          base[5]= (V94);          base[5]= (V86);
332          base[6]= (V99);          base[6]= (V91);
333          base[7]= (V98);          base[7]= (V90);
334          base[8]= (V96);          base[8]= (V88);
335          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
336          (void) (*Lnk48)();          (void) (*Lnk63)();
337          return;}          return;}
338          }          }
339  }  }
340  /*      local entry for function FIND-SLOT-DEFINITION   */  /*      local entry for function FIND-SLOT-DEFINITION   */
341    
342  static object LI10(V102,V103)  static object LI10(V94,V95)
343    
344  object V102;register object V103;  object V94;register object V95;
345  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
346          goto TTL;          goto TTL;
347  TTL:;  TTL:;
348          {register object V104;          {register object V96;
349          register object V105;          register object V97;
350          base[2]= (V102);          base[2]= (V94);
351          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
352          (void) (*Lnk49)(Lclptr49);          (void) (*Lnk64)(Lclptr64);
353          vs_top=sup;          vs_top=sup;
354          V104= vs_base[0];          V96= vs_base[0];
355          V105= CMPcar((V104));          V97= CMPcar((V96));
356          goto T105;          goto T100;
357  T105:;  T100:;
358          if(!(((V104))==Cnil)){          if(!(((V96))==Cnil)){
359          goto T106;}          goto T101;}
360          {object V106 = Cnil;          {object V98 = Cnil;
361          VMR10(V106)}          VMR10(V98)}
362          goto T106;          goto T101;
363  T106:;  T101:;
364          V107 = (V103);          base[2]= (V97);
         base[2]= (V105);  
365          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
366          (void) (*Lnk50)(Lclptr50);          (void) (*Lnk65)(Lclptr65);
367          vs_top=sup;          vs_top=sup;
368          V108= vs_base[0];          V99= vs_base[0];
369          if(!(eql(V107,V108))){          if(!(eql((V95),V99))){
         goto T110;}  
         {object V109 = (V105);  
         VMR10(V109)}  
         goto T110;  
 T110:;  
         V104= CMPcdr((V104));  
         V105= CMPcar((V104));  
370          goto T105;}          goto T105;}
371            {object V100 = (V97);
372            VMR10(V100)}
373            goto T105;
374    T105:;
375            V96= CMPcdr((V96));
376            V97= CMPcar((V96));
377            goto T100;}
378          base[0]=base[0];          base[0]=base[0];
379          return Cnil;          return Cnil;
380  }  }
# Line 393  static void L11() Line 384  static void L11()
384  {register object *base=vs_base;  {register object *base=vs_base;
385          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
386          vs_check;          vs_check;
387          {object V110;          {object V101;
388          object V111;          object V102;
389          check_arg(2);          check_arg(2);
390          V110=(base[0]);          V101=(base[0]);
391          V111=(base[1]);          V102=(base[1]);
392          vs_top=sup;          vs_top=sup;
393          goto TTL;          goto TTL;
394  TTL:;  TTL:;
395          {object V112;          {object V103;
396          object V113;          object V104;
397          V112= (*(LnkLI51))((V110));          V103= (*(LnkLI66))((V101));
398          V113= (*(LnkLI52))((V112),(V111));          V104= (*(LnkLI67))((V103),(V102));
399          if(((V113))!=Cnil){          if(((V104))!=Cnil){
400          goto T123;}          goto T118;}
401          base[4]= (V112);          base[4]= (V103);
402          base[5]= (V110);          base[5]= (V101);
403          base[6]= (V111);          base[6]= (V102);
404          base[7]= VV[9];          base[7]= VV[9];
405          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
406          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
407          return;          return;
408          goto T123;          goto T118;
409  T123:;  T118:;
410          base[4]= (V112);          base[4]= (V103);
411          base[5]= (V110);          base[5]= (V101);
412          base[6]= (V113);          base[6]= (V104);
413          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
414          (void) (*Lnk18)(Lclptr18);          (void) (*Lnk18)(Lclptr18);
415          return;}          return;}
# Line 430  static void L12() Line 421  static void L12()
421  {register object *base=vs_base;  {register object *base=vs_base;
422          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
423          vs_check;          vs_check;
424          {object V114;          {object V105;
425          object V115;          object V106;
426          object V116;          object V107;
427          check_arg(3);          check_arg(3);
428          V114=(base[0]);          V105=(base[0]);
429          V115=(base[1]);          V106=(base[1]);
430          V116=(base[2]);          V107=(base[2]);
431          vs_top=sup;          vs_top=sup;
432          goto TTL;          goto TTL;
433  TTL:;  TTL:;
434          {object V117;          {object V108;
435          object V118;          object V109;
436          V117= (*(LnkLI51))((V114));          V108= (*(LnkLI66))((V105));
437          V118= (*(LnkLI52))((V117),(V115));          V109= (*(LnkLI67))((V108),(V106));
438          if(((V118))!=Cnil){          if(((V109))!=Cnil){
439          goto T135;}          goto T130;}
440          base[5]= (V117);          base[5]= (V108);
441          base[6]= (V114);          base[6]= (V105);
442          base[7]= (V115);          base[7]= (V106);
443          base[8]= VV[11];          base[8]= VV[11];
444          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
445          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
446          return;          return;
447          goto T135;          goto T130;
448  T135:;  T130:;
449          base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
450          base[6]= V116;          base[6]= V107;
451          base[7]= V117;          base[7]= V108;
452          base[8]= V114;          base[8]= V105;
453          base[9]= V118;          base[9]= V109;
454          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
455          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
456                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 474  static void L13() Line 465  static void L13()
465  {register object *base=vs_base;  {register object *base=vs_base;
466          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
467          vs_check;          vs_check;
468          {object V123;          {object V114;
469          object V124;          object V115;
470          check_arg(2);          check_arg(2);
471          V123=(base[0]);          V114=(base[0]);
472          V124=(base[1]);          V115=(base[1]);
473          vs_top=sup;          vs_top=sup;
474          goto TTL;          goto TTL;
475  TTL:;  TTL:;
476          {object V125;          {object V116;
477          object V126;          object V117;
478          V125= (*(LnkLI51))((V123));          V116= (*(LnkLI66))((V114));
479          V126= (*(LnkLI52))((V125),(V124));          V117= (*(LnkLI67))((V116),(V115));
480          if(((V126))!=Cnil){          if(((V117))!=Cnil){
481          goto T149;}          goto T144;}
482          base[4]= (V125);          base[4]= (V116);
483          base[5]= (V123);          base[5]= (V114);
484          base[6]= (V124);          base[6]= (V115);
485          base[7]= VV[12];          base[7]= VV[12];
486          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
487          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
488          return;          return;
489          goto T149;          goto T144;
490  T149:;  T144:;
491          base[4]= (V125);          base[4]= (V116);
492          base[5]= (V123);          base[5]= (V114);
493          base[6]= (V126);          base[6]= (V117);
494          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
495          (void) (*Lnk26)(Lclptr26);          (void) (*Lnk28)(Lclptr28);
496          return;}          return;}
497          }          }
498  }  }
# Line 511  static void L14() Line 502  static void L14()
502  {register object *base=vs_base;  {register object *base=vs_base;
503          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
504          vs_check;          vs_check;
505          {object V127;          {object V118;
506          object V128;          object V119;
507          check_arg(2);          check_arg(2);
508          V127=(base[0]);          V118=(base[0]);
509          V128=(base[1]);          V119=(base[1]);
510          vs_top=sup;          vs_top=sup;
511          goto TTL;          goto TTL;
512  TTL:;  TTL:;
513          {object V129;          {object V120;
514          object V130;          object V121;
515          V129= (*(LnkLI51))((V127));          V120= (*(LnkLI66))((V118));
516          V130= (*(LnkLI52))((V129),(V128));          V121= (*(LnkLI67))((V120),(V119));
517          if(((V130))!=Cnil){          if(((V121))!=Cnil){
518          goto T161;}          goto T156;}
519          base[4]= (V129);          base[4]= (V120);
520          base[5]= (V127);          base[5]= (V118);
521          base[6]= (V128);          base[6]= (V119);
522          base[7]= VV[13];          base[7]= VV[13];
523          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
524          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk58)(Lclptr58);
525          return;          return;
526          goto T161;          goto T156;
527  T161:;  T156:;
528          base[4]= (V129);          base[4]= (V120);
529          base[5]= (V127);          base[5]= (V118);
530          base[6]= (V130);          base[6]= (V121);
531          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
532          (void) (*Lnk30)(Lclptr30);          (void) (*Lnk33)(Lclptr33);
533          return;}          return;}
534          }          }
535  }  }
536  /*      local entry for function SLOT-EXISTS-P  */  /*      local entry for function SLOT-EXISTS-P  */
537    
538  static object LI15(V133,V134)  static object LI15(V124,V125)
539    
540  object V133;object V134;  object V124;object V125;
541  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
542          goto TTL;          goto TTL;
543  TTL:;  TTL:;
544          {object V135;          {object V126;
545          V135= (*(LnkLI51))((V133));          V126= (*(LnkLI66))((V124));
546          V136= (*(LnkLI52))((V135),(V134));          V127= (*(LnkLI67))((V126),(V125));
547          {object V137 = ((((/* INLINE-ARGS */V136)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V128 = ((((/* INLINE-ARGS */V127)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
548          VMR15(V137)}}          VMR15(V128)}}
549          return Cnil;          return Cnil;
550  }  }
551  /*      function definition for SLOT-VALUE-OR-DEFAULT   */  /*      function definition for SLOT-VALUE-OR-DEFAULT   */
# Line 563  static void L16() Line 554  static void L16()
554  {register object *base=vs_base;  {register object *base=vs_base;
555          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
556          vs_check;          vs_check;
557          {object V138;          {object V129;
558          object V139;          object V130;
559          object V140;          object V131;
560          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
561          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
562          V138=(base[0]);          V129=(base[0]);
563          V139=(base[1]);          V130=(base[1]);
564          vs_base=vs_base+2;          vs_base=vs_base+2;
565          if(vs_base>=vs_top){vs_top=sup;goto T171;}          if(vs_base>=vs_top){vs_top=sup;goto T166;}
566          V140=(base[2]);          V131=(base[2]);
567          vs_top=sup;          vs_top=sup;
568          goto T172;          goto T167;
569          goto T171;          goto T166;
570  T171:;  T166:;
571          V140= VV[14];          V131= VV[14];
572          goto T172;          goto T167;
573  T172:;  T167:;
574          base[3]= (V138);          base[3]= (V129);
575          base[4]= (V139);          base[4]= (V130);
576          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
577          (void) (*Lnk12)();          (void) (*Lnk12)();
578          vs_top=sup;          vs_top=sup;
579          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
580          goto T175;}          goto T170;}
581          base[3]= (V138);          base[3]= (V129);
582          base[4]= (V139);          base[4]= (V130);
583          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
584          (void) (*Lnk9)();          (void) (*Lnk9)();
585          return;          return;
586          goto T175;          goto T170;
587  T175:;  T170:;
588          base[3]= (V140);          base[3]= (V131);
589          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
590          return;          return;
591          }          }
592  }  }
593  /*      local entry for function STANDARD-INSTANCE-ACCESS       */  /*      local entry for function STANDARD-INSTANCE-ACCESS       */
594    
595  static object LI17(V143,V144)  static object LI17(V134,V135)
596    
597  object V143;object V144;  object V134;object V135;
598  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
599          goto TTL;          goto TTL;
600  TTL:;  TTL:;
601          {object V145 = (STREF(object,(V143),4))->v.v_self[fix((V144))];          {object V136 = (STREF(object,(V134),4))->v.v_self[fix((V135))];
602          VMR17(V145)}          VMR17(V136)}
603          return Cnil;          return Cnil;
604  }  }
605  /*      local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS   */  /*      local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS   */
606    
607  static object LI18(V148,V149)  static object LI18(V139,V140)
608    
609  object V148;object V149;  object V139;object V140;
610  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
611          goto TTL;          goto TTL;
612  TTL:;  TTL:;
613          {object V150 = (CMPcar(((V148))->cc.cc_turbo[12]))->v.v_self[fix((V149))];          {object V141 = (CMPcar(((V139))->cc.cc_turbo[12]))->v.v_self[fix((V140))];
614          VMR18(V150)}          VMR18(V141)}
615          return Cnil;          return Cnil;
616  }  }
617  /*      function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))     */  /*      function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))     */
# Line 629  static void L19() Line 620  static void L19()
620  {register object *base=vs_base;  {register object *base=vs_base;
621          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
622          vs_check;          vs_check;
623          {object V151;          {object V142;
624          object V152;          object V143;
625          object V153;          object V144;
626          register object V154;          register object V145;
627          register object V155;          register object V146;
628          check_arg(5);          check_arg(5);
629          V151=(base[0]);          V142=(base[0]);
630          V152=(base[1]);          V143=(base[1]);
631          V153=(base[2]);          V144=(base[2]);
632          V154=(base[3]);          V145=(base[3]);
633          V155=(base[4]);          V146=(base[4]);
634          vs_top=sup;          vs_top=sup;
635          goto TTL;          goto TTL;
636  TTL:;  TTL:;
637          {register object V157;          {register object V148;
638          object V158;          object V149;
639          base[7]= (V155);          base[7]= (V146);
640          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
641          (void) (*Lnk53)(Lclptr53);          (void) (*Lnk68)(Lclptr68);
642          vs_top=sup;          vs_top=sup;
643          V157= vs_base[0];          V148= vs_base[0];
644          {register object V159;          {register object V150;
645          V159= (V157);          V150= (V148);
646          if(!(type_of((V159))==t_fixnum)){          if(!(type_of((V150))==t_fixnum)){
647          goto T190;}          goto T182;}
648          if(type_of(V154)==t_structure){          if(type_of(V145)==t_structure){
649          goto T195;}          goto T187;}
650          goto T193;          goto T185;
651          goto T195;          goto T187;
652  T195:;  T187:;
653          if(!(((V154)->str.str_def)==(VV[15]))){          if(!(((V145)->str.str_def)==(VV[19]))){
654          goto T193;}          goto T185;}
655          if((Ct)==((STREF(object,(V154),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V145),0))->v.v_self[8])){
656          goto T197;}          goto T189;}
657          (void)((*(LnkLI54))((V154)));          (void)((*(LnkLI69))((V145)));
658          goto T197;          goto T189;
659  T197:;  T189:;
660          V158= (STREF(object,(V154),4))->v.v_self[fix((V157))];          V149= (STREF(object,(V145),4))->v.v_self[fix((V148))];
661          goto T188;          goto T180;
662          goto T193;          goto T185;
663  T193:;{object V161;  T185:;{object V152;
664          V161= (VV[5]->s.s_dbind);          V152= (VV[5]->s.s_dbind);
665          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
666          base[8]= (V154);          base[8]= (V145);
667          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
668          (void) (*Lnk41)();          (void) (*Lnk56)();
669          vs_top=sup;          vs_top=sup;
670          V162= vs_base[0];          V153= vs_base[0];
671          if(!((V161)==(CMPcar(V162)))){          if(!((V152)==(CMPcar(V153)))){
672          goto T201;}}          goto T193;}}
673          if((Ct)==((CMPcar(((V154))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V145))->cc.cc_turbo[13]))->v.v_self[8])){
674          goto T206;}          goto T198;}
675          (void)((*(LnkLI54))((V154)));          (void)((*(LnkLI69))((V145)));
676          goto T206;          goto T198;
677  T206:;  T198:;
678          V158= (CMPcar(((V154))->cc.cc_turbo[12]))->v.v_self[fix((V157))];          V149= (CMPcar(((V145))->cc.cc_turbo[12]))->v.v_self[fix((V148))];
679          goto T188;          goto T180;
680          goto T201;          goto T193;
681  T201:;  T193:;
682          base[7]= VV[16];          base[7]= VV[16];
683          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
684          Lerror();          Lerror();
685          vs_top=sup;          vs_top=sup;
686          V158= vs_base[0];          V149= vs_base[0];
687          goto T188;          goto T180;
688          goto T190;          goto T182;
689  T190:;  T182:;
690          if(!(type_of((V159))==t_cons)){          if(!(type_of((V150))==t_cons)){
691          goto T211;}          goto T203;}
692          V158= CMPcdr((V157));          V149= CMPcdr((V148));
693          goto T188;          goto T180;
694          goto T211;          goto T203;
695  T211:;  T203:;
696          base[7]= VV[17];          base[7]= VV[17];
697          base[8]= (V155);          base[8]= (V146);
698          base[9]= VV[18];          base[9]= VV[18];
699          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
700          Lerror();          Lerror();
701          vs_top=sup;          vs_top=sup;
702          V158= vs_base[0];}          V149= vs_base[0];}
703          goto T188;          goto T180;
704  T188:;  T180:;
705          if(!(((V158))==((VV[10]->s.s_dbind)))){          if(!(((V149))==((VV[10]->s.s_dbind)))){
706          goto T217;}          goto T209;}
707          base[7]= (V153);          base[7]= (V144);
708          base[8]= (V154);          base[8]= (V145);
709          base[10]= (V155);          base[10]= (V146);
710          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
711          (void) (*Lnk50)(Lclptr50);          (void) (*Lnk65)(Lclptr65);
712          vs_top=sup;          vs_top=sup;
713          base[9]= vs_base[0];          base[9]= vs_base[0];
714          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
715          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk59)(Lclptr59);
716          return;          return;
717          goto T217;          goto T209;
718  T217:;  T209:;
719          base[7]= (V158);          base[7]= (V149);
720          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
721          return;}          return;}
722          }          }
723  }  }
724  /*      local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */
725    
726  static object LI20(V169,V170,V171,V172,V173,V174)  static object LI20(V160,V161,V162,V163,V164,V165)
727    
728  object V169;object V170;object V171;object V172;register object V173;object V174;  object V160;object V161;register object V162;object V163;register object V164;register object V165;
729  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
730          goto TTL;          goto TTL;
731  TTL:;  TTL:;
732          {register object V176;          {register object V167;
733          base[0]= (V174);          base[0]= (V165);
734          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
735          (void) (*Lnk53)(Lclptr53);          (void) (*Lnk68)(Lclptr68);
736          vs_top=sup;          vs_top=sup;
737          V176= vs_base[0];          V167= vs_base[0];
738          {register object V177;          {register object V168;
739          V177= (V176);          V168= (V167);
740          if(!(type_of((V177))==t_fixnum)){          if(!(type_of((V168))==t_fixnum)){
741          goto T231;}          goto T220;}
742          if(type_of(V173)==t_structure){          if(type_of(V164)==t_structure){
743          goto T236;}          goto T225;}
744          goto T234;          goto T223;
745          goto T236;          goto T225;
746  T236:;  T225:;
747          if(!(((V173)->str.str_def)==(VV[19]))){          if(!(((V164)->str.str_def)==(VV[24]))){
748          goto T234;}          goto T223;}
749          if((Ct)==((STREF(object,(V173),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V164),0))->v.v_self[8])){
750          goto T238;}          goto T227;}
751          (void)((*(LnkLI54))((V173)));          (void)((*(LnkLI69))((V164)));
752          goto T238;          goto T227;
753  T238:;  T227:;
754          {object V179 = (STREF(object,(V173),4))->v.v_self[fix((V176))]= ((V171));          {object V170 = (STREF(object,(V164),4))->v.v_self[fix((V167))]= ((V162));
755          VMR20(V179)}          VMR20(V170)}
756          goto T234;          goto T223;
757  T234:;{object V180;  T223:;{object V171;
758          V180= (VV[5]->s.s_dbind);          V171= (VV[5]->s.s_dbind);
759          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
760          base[1]= (V173);          base[1]= (V164);
761          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
762          (void) (*Lnk41)();          (void) (*Lnk56)();
         vs_top=sup;  
         V181= vs_base[0];  
         if(!((V180)==(CMPcar(V181)))){  
         goto T242;}}  
         if((Ct)==((CMPcar(((V173))->cc.cc_turbo[13]))->v.v_self[8])){  
         goto T247;}  
         (void)((*(LnkLI54))((V173)));  
         goto T247;  
 T247:;  
         {object V182 = (CMPcar(((V173))->cc.cc_turbo[12]))->v.v_self[fix((V176))]= ((V171));  
         VMR20(V182)}  
         goto T242;  
 T242:;  
         base[0]= VV[20];  
         vs_top=(vs_base=base+0)+1;  
         Lerror();  
763          vs_top=sup;          vs_top=sup;
764          {object V183 = vs_base[0];          V172= vs_base[0];
765          VMR20(V183)}          if(!((V171)==(CMPcar(V172)))){
766            goto T231;}}
767            if((Ct)==((CMPcar(((V164))->cc.cc_turbo[13]))->v.v_self[8])){
768            goto T236;}
769            (void)((*(LnkLI69))((V164)));
770            goto T236;
771    T236:;
772            {object V173 = (CMPcar(((V164))->cc.cc_turbo[12]))->v.v_self[fix((V167))]= ((V162));
773            VMR20(V173)}
774          goto T231;          goto T231;
775  T231:;  T231:;
         if(!(type_of((V177))==t_cons)){  
         goto T252;}  
         (V176)->c.c_cdr = V171;  
         {object V186 = V171;  
         VMR20(V186)}  
         goto T252;  
 T252:;  
776          base[0]= VV[21];          base[0]= VV[21];
777          base[1]= (V174);          vs_top=(vs_base=base+0)+1;
778          base[2]= VV[22];          Lerror();
779            vs_top=sup;
780            {object V174 = vs_base[0];
781            VMR20(V174)}
782            goto T220;
783    T220:;
784            if(!(type_of((V168))==t_cons)){
785            goto T241;}
786            (V167)->c.c_cdr = V162;
787            {object V177 = V162;
788            VMR20(V177)}
789            goto T241;
790    T241:;
791            base[0]= VV[22];
792            base[1]= (V165);
793            base[2]= VV[23];
794          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
795          Lerror();          Lerror();
796          vs_top=sup;          vs_top=sup;
797          {object V187 = vs_base[0];          {object V178 = vs_base[0];
798          VMR20(V187)}}}          VMR20(V178)}}}
799          base[0]=base[0];          base[0]=base[0];
800          return Cnil;          return Cnil;
801  }  }
802  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */
803    
804  static object LI21(V193,V194,V195,V196,V197)  static object LI21(V184,V185,V186,V187,V188)
805    
806  object V193;object V194;object V195;register object V196;object V197;  object V184;object V185;object V186;register object V187;register object V188;
807  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
808          goto TTL;          goto TTL;
809  TTL:;  TTL:;
810          {register object V199;          {register object V190;
811          object V200;          object V191;
812          base[2]= (V197);          base[2]= (V188);
813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
814          (void) (*Lnk53)(Lclptr53);          (void) (*Lnk68)(Lclptr68);
815          vs_top=sup;          vs_top=sup;
816          V199= vs_base[0];          V190= vs_base[0];
817          {register object V201;          {register object V192;
818          V201= (V199);          V192= (V190);
819          if(!(type_of((V201))==t_fixnum)){          if(!(type_of((V192))==t_fixnum)){
820          goto T267;}          goto T253;}
821          if(type_of(V196)==t_structure){          if(type_of(V187)==t_structure){
822          goto T272;}          goto T258;}
823          goto T270;          goto T256;
824          goto T272;          goto T258;
825  T272:;  T258:;
826          if(!(((V196)->str.str_def)==(VV[23]))){          if(!(((V187)->str.str_def)==(VV[29]))){
827          goto T270;}          goto T256;}
828          if((Ct)==((STREF(object,(V196),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V187),0))->v.v_self[8])){
829          goto T274;}          goto T260;}
830          (void)((*(LnkLI54))((V196)));          (void)((*(LnkLI69))((V187)));
831          goto T274;          goto T260;
832  T274:;  T260:;
833          V200= (STREF(object,(V196),4))->v.v_self[fix((V199))];          V191= (STREF(object,(V187),4))->v.v_self[fix((V190))];
834          goto T265;          goto T251;
835          goto T270;          goto T256;
836  T270:;{object V203;  T256:;{object V194;
837          V203= (VV[5]->s.s_dbind);          V194= (VV[5]->s.s_dbind);
838          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
839          base[3]= (V196);          base[3]= (V187);
840          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
841          (void) (*Lnk41)();          (void) (*Lnk56)();
842          vs_top=sup;          vs_top=sup;
843          V204= vs_base[0];          V195= vs_base[0];
844          if(!((V203)==(CMPcar(V204)))){          if(!((V194)==(CMPcar(V195)))){
845          goto T278;}}          goto T264;}}
846          if((Ct)==((CMPcar(((V196))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V187))->cc.cc_turbo[13]))->v.v_self[8])){
847          goto T283;}          goto T269;}
848          (void)((*(LnkLI54))((V196)));          (void)((*(LnkLI69))((V187)));
849          goto T283;          goto T269;
850  T283:;  T269:;
851          V200= (CMPcar(((V196))->cc.cc_turbo[12]))->v.v_self[fix((V199))];          V191= (CMPcar(((V187))->cc.cc_turbo[12]))->v.v_self[fix((V190))];
852          goto T265;          goto T251;
853          goto T278;          goto T264;
854  T278:;  T264:;
855          base[2]= VV[24];          base[2]= VV[26];
856          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
857          Lerror();          Lerror();
858          vs_top=sup;          vs_top=sup;
859          V200= vs_base[0];          V191= vs_base[0];
860          goto T265;          goto T251;
861          goto T267;          goto T253;
862  T267:;  T253:;
863          if(!(type_of((V201))==t_cons)){          if(!(type_of((V192))==t_cons)){
864          goto T288;}          goto T274;}
865          V200= CMPcdr((V199));          V191= CMPcdr((V190));
866          goto T265;          goto T251;
867          goto T288;          goto T274;
868  T288:;  T274:;
869          base[2]= VV[25];          base[2]= VV[27];
870          base[3]= (V197);          base[3]= (V188);
871          base[4]= VV[26];          base[4]= VV[28];
872          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
873          Lerror();          Lerror();
874          vs_top=sup;          vs_top=sup;
875          V200= vs_base[0];}          V191= vs_base[0];}
876          goto T265;          goto T251;
877  T265:;  T251:;
878          {object V205 = (((((V200))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V196 = (((((V191))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);
879          VMR21(V205)}}          VMR21(V196)}}
880          base[0]=base[0];          base[0]=base[0];
881          return Cnil;          return Cnil;
882  }  }
883  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))       */  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))       */
884    
885  static object LI22(V211,V212,V213,V214,V215)  static object LI22(V202,V203,V204,V205,V206)
886    
887  object V211;object V212;object V213;register object V214;object V215;  object V202;object V203;object V204;register object V205;register object V206;
888  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
889          goto TTL;          goto TTL;
890  TTL:;  TTL:;
891          {register object V217;          {register object V208;
892          base[0]= (V215);          base[0]= (V206);
893          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
894          (void) (*Lnk53)(Lclptr53);          (void) (*Lnk68)(Lclptr68);
895          vs_top=sup;          vs_top=sup;
896          V217= vs_base[0];          V208= vs_base[0];
897          {register object V218;          {register object V209;
898          V218= (V217);          V209= (V208);
899          if(!(type_of((V218))==t_fixnum)){          if(!(type_of((V209))==t_fixnum)){
900          goto T302;}          goto T285;}
901          if(type_of(V214)==t_structure){          if(type_of(V205)==t_structure){
902          goto T307;}          goto T290;}
903          goto T305;          goto T288;
904          goto T307;          goto T290;
905  T307:;  T290:;
906          if(!(((V214)->str.str_def)==(VV[27]))){          if(!(((V205)->str.str_def)==(VV[34]))){
907          goto T305;}          goto T288;}
908          if((Ct)==((STREF(object,(V214),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V205),0))->v.v_self[8])){
909          goto T309;}          goto T292;}
910          (void)((*(LnkLI54))((V214)));          (void)((*(LnkLI69))((V205)));
911          goto T309;          goto T292;
912  T309:;  T292:;
913          (void)((STREF(object,(V214),4))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind)));          (void)((STREF(object,(V205),4))->v.v_self[fix((V208))]= ((VV[10]->s.s_dbind)));
914          goto T298;          goto T281;
915          goto T305;          goto T288;
916  T305:;{object V220;  T288:;{object V211;
917          V220= (VV[5]->s.s_dbind);          V211= (VV[5]->s.s_dbind);
918          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
919          base[1]= (V214);          base[1]= (V205);
920          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
921          (void) (*Lnk41)();          (void) (*Lnk56)();
922          vs_top=sup;          vs_top=sup;
923          V221= vs_base[0];          V212= vs_base[0];
924          if(!((V220)==(CMPcar(V221)))){          if(!((V211)==(CMPcar(V212)))){
925          goto T313;}}          goto T296;}}
926          if((Ct)==((CMPcar(((V214))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V205))->cc.cc_turbo[13]))->v.v_self[8])){
927          goto T318;}          goto T301;}
928          (void)((*(LnkLI54))((V214)));          (void)((*(LnkLI69))((V205)));
929          goto T318;          goto T301;
930  T318:;  T301:;
931          (void)((CMPcar(((V214))->cc.cc_turbo[12]))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind)));          (void)((CMPcar(((V205))->cc.cc_turbo[12]))->v.v_self[fix((V208))]= ((VV[10]->s.s_dbind)));
932          goto T298;          goto T281;
933          goto T313;          goto T296;
934  T313:;  T296:;
935          base[0]= VV[28];          base[0]= VV[31];
936          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
937          Lerror();          Lerror();
938          vs_top=sup;          vs_top=sup;
939          goto T298;          goto T281;
940          goto T302;          goto T285;
941  T302:;  T285:;
942          if(!(type_of((V218))==t_cons)){          if(!(type_of((V209))==t_cons)){
943          goto T323;}          goto T306;}
944          {object V223;          {object V214;
945          V223= (VV[10]->s.s_dbind);          V214= (VV[10]->s.s_dbind);
946          (V217)->c.c_cdr = (V223);          (V208)->c.c_cdr = (V214);
947          goto T298;}          goto T281;}
948          goto T323;          goto T306;
949  T323:;  T306:;
950          base[0]= VV[29];          base[0]= VV[32];
951          base[1]= (V215);          base[1]= (V206);
952          base[2]= VV[30];          base[2]= VV[33];
953          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
954          Lerror();          Lerror();
955          vs_top=sup;}}          vs_top=sup;}}
956          goto T298;          goto T281;
957  T298:;  T281:;
958          {object V224 = Cnil;          {object V215 = Cnil;
959          VMR22(V224)}          VMR22(V215)}
960          base[0]=base[0];          base[0]=base[0];
961          return Cnil;          return Cnil;
962  }  }
# Line 975  static void L23() Line 966  static void L23()
966  {register object *base=vs_base;  {register object *base=vs_base;
967          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
968          vs_check;          vs_check;
969          {object V225;          {object V216;
970          object V226;          object V217;
971          object V227;          object V218;
972          object V228;          register object V219;
973          object V229;          register object V220;
974          check_arg(5);          check_arg(5);
975          V225=(base[0]);          V216=(base[0]);
976          V226=(base[1]);          V217=(base[1]);
977          V227=(base[2]);          V218=(base[2]);
978          V228=(base[3]);          V219=(base[3]);
979          V229=(base[4]);          V220=(base[4]);
980          vs_top=sup;          vs_top=sup;
981          goto TTL;          goto TTL;
982  TTL:;  TTL:;
983          {object V231;          {object V222;
984          object V232;          object V223;
985          base[7]= (V229);          base[7]= (V220);
986          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
987          (void) (*Lnk55)(Lclptr55);          (void) (*Lnk70)(Lclptr70);
988          vs_top=sup;          vs_top=sup;
989          V231= vs_base[0];          V222= vs_base[0];
990          V232= (          V223= (
991          (type_of((V231)) == t_sfun ?(*(((V231))->sfn.sfn_self)):          (type_of((V222)) == t_sfun ?(*(((V222))->sfn.sfn_self)):
992          (fcall.argd=1,type_of((V231))==t_vfun) ?          (fcall.argd=1,type_of((V222))==t_vfun) ?
993          (*(((V231))->sfn.sfn_self)):          (*(((V222))->sfn.sfn_self)):
994          (fcall.fun=((V231)),fcalln))((V228)));          (fcall.fun=((V222)),fcalln))((V219)));
995          if(!(((V232))==((VV[10]->s.s_dbind)))){          if(!(((V223))==((VV[10]->s.s_dbind)))){
996          goto T339;}          goto T319;}
997          base[7]= (V227);          base[7]= (V218);
998          base[8]= (V228);          base[8]= (V219);
999          base[10]= (V229);          base[10]= (V220);
1000          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1001          (void) (*Lnk50)(Lclptr50);          (void) (*Lnk65)(Lclptr65);
1002          vs_top=sup;          vs_top=sup;
1003          base[9]= vs_base[0];          base[9]= vs_base[0];
1004          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1005          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk59)(Lclptr59);
1006          return;          return;
1007          goto T339;          goto T319;
1008  T339:;  T319:;
1009          base[7]= (V232);          base[7]= (V223);
1010          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1011          return;}          return;}
1012          }          }
# Line 1026  static void L24() Line 1017  static void L24()
1017  {register object *base=vs_base;  {register object *base=vs_base;
1018          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1019          vs_check;          vs_check;
1020          {object V233;          {object V224;
1021          object V234;          object V225;
1022          object V235;          object V226;
1023          object V236;          object V227;
1024          object V237;          object V228;
1025          object V238;          object V229;
1026          check_arg(6);          check_arg(6);
1027          V233=(base[0]);          V224=(base[0]);
1028          V234=(base[1]);          V225=(base[1]);
1029          V235=(base[2]);          V226=(base[2]);
1030          V236=(base[3]);          V227=(base[3]);
1031          V237=(base[4]);          V228=(base[4]);
1032          V238=(base[5]);          V229=(base[5]);
1033          vs_top=sup;          vs_top=sup;
1034          goto TTL;          goto TTL;
1035  TTL:;  TTL:;
1036          {object V240;          {object V231;
1037          base[6]= (V238);          base[6]= (V229);
1038          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1039          (void) (*Lnk56)(Lclptr56);          (void) (*Lnk71)(Lclptr71);
1040          vs_top=sup;          vs_top=sup;
1041          V240= vs_base[0];          V231= vs_base[0];
1042          base[6]= (V235);          base[6]= (V226);
1043          base[7]= (V237);          base[7]= (V228);
1044          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1045          {object _funobj = (V240);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1046                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1047                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1048                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 1060  TTL:; Line 1051  TTL:;
1051  }  }
1052  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))   */
1053    
1054  static object LI25(V246,V247,V248,V249,V250)  static object LI25(V237,V238,V239,V240,V241)
1055    
1056  object V246;object V247;object V248;object V249;object V250;  object V237;object V238;object V239;object V240;object V241;
1057  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1058          goto TTL;          goto TTL;
1059  TTL:;  TTL:;
1060          {object V252 = Ct;          {object V243 = Ct;
1061          VMR25(V252)}          VMR25(V243)}
1062          return Cnil;          return Cnil;
1063  }  }
1064  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))       */  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))       */
1065    
1066  static object LI26(V258,V259,V260,V261,V262)  static object LI26(V249,V250,V251,V252,V253)
1067    
1068  object V258;object V259;object V260;object V261;object V262;  object V249;object V250;object V251;object V252;object V253;
1069  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1070          goto TTL;          goto TTL;
1071  TTL:;  TTL:;
1072          base[0]= VV[31];          base[0]= VV[35];
1073          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1074          Lerror();          Lerror();
1075          vs_top=sup;          vs_top=sup;
1076          {object V264 = vs_base[0];          {object V255 = vs_base[0];
1077          VMR26(V264)}          VMR26(V255)}
1078          base[0]=base[0];          base[0]=base[0];
1079          return Cnil;          return Cnil;
1080  }  }
1081  /*      local entry for function (FAST-METHOD SLOT-MISSING (T T T T))   */  /*      local entry for function (FAST-METHOD SLOT-MISSING (T T T T))   */
1082    
1083  static object LI27(V272,V273,V274,V275,V276,V277,V278)  static object LI27(V263,V264,V265,V266,V267,V268,V269)
1084    
1085  object V272;object V273;object V274;object V275;object V276;object V277;object V278;  object V263;object V264;object V265;object V266;object V267;object V268;object V269;
1086  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1087          goto TTL;          goto TTL;
1088  TTL:;  TTL:;
1089          {register object V279;          {register object V270;
1090          object V280;          object V271;
1091          V279= (V278);          V270= (V269);
1092          if(((V279))==Cnil){          if(((V270))==Cnil){
1093          goto T370;}          goto T341;}
1094          {object V281;          {object V272;
1095          V281= CMPcar((V279));          V272= CMPcar((V270));
1096          V279= CMPcdr((V279));          V270= CMPcdr((V270));
1097          V280= (V281);          V271= (V272);
1098          goto T368;}          goto T339;}
1099          goto T370;          goto T341;
1100  T370:;  T341:;
1101          V280= Cnil;          V271= Cnil;
1102          goto T368;          goto T339;
1103  T368:;  T339:;
1104          base[1]= VV[32];          base[1]= VV[36];
1105          {object V282= (V277);          {object V274= V268;
1106          if((V282!= VV[9]))goto T378;          if((V274!= VV[9]))goto T348;
1107          base[2]= VV[33];          base[2]= VV[37];
1108          goto T377;          goto T347;
1109          goto T378;          goto T348;
1110  T378:;  T348:;
1111          if((V282!= VV[11]))goto T379;          if((V274!= VV[11]))goto T349;
1112          base[3]= Cnil;          base[3]= Cnil;
1113          base[4]= VV[34];          base[4]= VV[38];
1114          base[5]= (V280);          base[5]= (V271);
1115          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1116          Lformat();          Lformat();
1117          vs_top=sup;          vs_top=sup;
1118          base[2]= vs_base[0];          base[2]= vs_base[0];
1119          goto T377;          goto T347;
1120          goto T379;          goto T349;
1121  T379:;  T349:;
1122          if((V282!= VV[12]))goto T383;          if((V274!= VV[12]))goto T353;
1123          base[2]= VV[35];          base[2]= VV[39];
1124          goto T377;          goto T347;
1125          goto T383;          goto T353;
1126  T383:;  T353:;
1127          if((V282!= VV[13]))goto T384;          if((V274!= VV[13]))goto T354;
1128          base[2]= VV[36];          base[2]= VV[40];
1129          goto T377;          goto T347;
1130          goto T384;          goto T354;
1131  T384:;  T354:;
1132          FEerror("The ECASE key value ~s is illegal.",1,V282);          base[3]= VV[41];
1133          base[2]= Cnil;          base[4]= VV[42];
1134          goto T377;}          base[5]= VV[43];
1135          goto T377;          base[6]= VV[44];
1136  T377:;          base[7]= V268;
1137          base[3]= (V276);          base[8]= VV[45];
1138          base[4]= (V275);          base[9]= VV[49];
1139            base[10]= VV[47];
1140            base[11]= VV[50];
1141            vs_top=(vs_base=base+3)+9;
1142            (void) (*Lnk72)();
1143            vs_top=sup;
1144            base[2]= vs_base[0];}
1145            goto T347;
1146    T347:;
1147            base[3]= (V267);
1148            base[4]= (V266);
1149          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1150          Lerror();          Lerror();
1151          vs_top=sup;          vs_top=sup;
1152          {object V283 = vs_base[0];          {object V275 = vs_base[0];
1153          VMR27(V283)}}          VMR27(V275)}}
1154          base[0]=base[0];          base[0]=base[0];
1155          return Cnil;          return Cnil;
1156  }  }
1157  /*      local entry for function (FAST-METHOD SLOT-UNBOUND (T T T))     */  /*      local entry for function (FAST-METHOD SLOT-UNBOUND (T T T))     */
1158    
1159  static object LI28(V289,V290,V291,V292,V293)  static object LI28(V281,V282,V283,V284,V285)
1160    
1161  object V289;object V290;object V291;object V292;object V293;  object V281;object V282;object V283;object V284;object V285;
1162  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1163          goto TTL;          goto TTL;
1164  TTL:;  TTL:;
1165          base[0]= VV[37];          base[0]= VV[51];
1166          base[1]= (V293);          base[1]= (V285);
1167          base[2]= (V292);          base[2]= (V284);
1168          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1169          Lerror();          Lerror();
1170          vs_top=sup;          vs_top=sup;
1171          {object V295 = vs_base[0];          {object V287 = vs_base[0];
1172          VMR28(V295)}          VMR28(V287)}
1173          base[0]=base[0];          base[0]=base[0];
1174          return Cnil;          return Cnil;
1175  }  }
# Line 1178  static void L29() Line 1179  static void L29()
1179  {register object *base=vs_base;  {register object *base=vs_base;
1180          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1181          vs_check;          vs_check;
1182          {object V296;          {object V288;
1183          object V297;          object V289;
1184          check_arg(2);          check_arg(2);
1185          V296=(base[0]);          V288=(base[0]);
1186          V297=(base[1]);          V289=(base[1]);
1187          vs_top=sup;          vs_top=sup;
1188          goto TTL;          goto TTL;
1189  TTL:;  TTL:;
1190          base[2]= (*(LnkLI51))((V296));          base[2]= (*(LnkLI66))((V288));
1191          base[3]= (V296);          base[3]= (V288);
1192          {register object V298;          {register object V291;
1193          V298= (V297);          V291= V289;
1194          if(!(type_of((V298))==t_fixnum)){          if(!(type_of((V291))==t_fixnum)){
1195          goto T397;}          goto T375;}
1196          V299= (*(LnkLI57))((V296));          V292= (*(LnkLI73))((V288));
1197          base[4]= nth(fix((V297)),(/* INLINE-ARGS */V299)->v.v_self[9]);          base[4]= nth(fix((V289)),(/* INLINE-ARGS */V292)->v.v_self[9]);
1198          goto T395;          goto T373;
1199          goto T397;          goto T375;
1200  T397:;  T375:;
1201          if(!(type_of((V298))==t_cons)){          if(!(type_of((V291))==t_cons)){
1202          goto T400;}          goto T378;}
1203          base[4]= CMPcar((V297));          base[4]= CMPcar((V289));
1204          goto T395;          goto T373;
1205          goto T400;          goto T378;
1206  T400:;  T378:;
1207          base[6]= VV[38];          base[5]= VV[41];
1208          base[7]= (V298);          base[6]= VV[42];
1209          base[8]= VV[39];          base[7]= VV[52];
1210          vs_top=(vs_base=base+6)+3;          base[8]= VV[44];
1211          (void) (*Lnk58)();          base[9]= V289;
1212          vs_top=sup;          base[10]= VV[45];
1213          base[5]= vs_base[0];          base[11]= VV[53];
1214          vs_top=(vs_base=base+5)+1;          base[12]= VV[47];
1215          Lerror();          base[13]= VV[54];
1216            vs_top=(vs_base=base+5)+9;
1217            (void) (*Lnk72)();
1218          vs_top=sup;          vs_top=sup;
1219          base[4]= vs_base[0];}          base[4]= vs_base[0];}
1220          goto T395;          goto T373;
1221  T395:;  T373:;
1222          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1223          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk59)(Lclptr59);
1224          return;          return;
1225          }          }
1226  }  }
1227  /*      local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))       */  /*      local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))       */
1228    
1229  static object LI30(V304,V305,V306,V307)  static object LI30(V297,V298,V299,V300)
1230    
1231  object V304;object V305;register object V306;object V307;  object V297;object V298;register object V299;object V300;
1232  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1233          goto TTL;          goto TTL;
1234  TTL:;  TTL:;
1235          base[0]= (V306);          base[0]= (V299);
1236          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1237          (void) (*Lnk59)(Lclptr59);          (void) (*Lnk74)(Lclptr74);
1238          vs_top=sup;          vs_top=sup;
1239          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1240          goto T409;}          goto T391;}
1241          base[0]= (V306);          base[0]= (V299);
1242          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1243          (void) (*Lnk60)(Lclptr60);          (void) (*Lnk75)(Lclptr75);
1244          vs_top=sup;          vs_top=sup;
1245          goto T409;          goto T391;
1246  T409:;  T391:;
1247          base[0]= (V306);          base[0]= (V299);
1248          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1249          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk60)(Lclptr60);
1250          vs_top=sup;          vs_top=sup;
1251          V310= vs_base[0];          V303= vs_base[0];
1252          {object V311 = (VFUN_NARGS=1,(*(LnkLI2))(V310));          {object V304 = (VFUN_NARGS=1,(*(LnkLI2))(V303));
1253          VMR30(V311)}          VMR30(V304)}
1254          base[0]=base[0];          base[0]=base[0];
1255          return Cnil;          return Cnil;
1256  }  }
# Line 1257  static void L31() Line 1260  static void L31()
1260  {register object *base=vs_base;  {register object *base=vs_base;
1261          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1262          vs_check;          vs_check;
1263          {object V312;          {object V305;
1264          object V313;          object V306;
1265          object V314;          register object V307;
1266          object V315;          object V308;
1267          check_arg(4);          check_arg(4);
1268          V312=(base[0]);          V305=(base[0]);
1269          V313=(base[1]);          V306=(base[1]);
1270          V314=(base[2]);          V307=(base[2]);
1271          V315=(base[3]);          V308=(base[3]);
1272          vs_top=sup;          vs_top=sup;
1273          goto TTL;          goto TTL;
1274  TTL:;  TTL:;
1275          {object V318;          {object V311;
1276          base[4]= (V314);          base[4]= (V307);
1277          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1278          (void) (*Lnk61)(Lclptr61);          (void) (*Lnk76)(Lclptr76);
1279          vs_top=sup;          vs_top=sup;
1280          V318= vs_base[0];          V311= vs_base[0];
1281          if(((V318))==Cnil){          if(((V311))==Cnil){
1282          goto T422;}          goto T403;}
1283          vs_base=vs_top;          vs_base=vs_top;
1284          {object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V311);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1285                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1286                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1287                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1288          return;          return;
1289          goto T422;          goto T403;
1290  T422:;  T403:;
1291          base[4]= VV[40];          base[4]= VV[55];
1292          base[6]= (V314);          base[6]= (V307);
1293          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1294          (void) (*Lnk62)(Lclptr62);          (void) (*Lnk77)(Lclptr77);
1295          vs_top=sup;          vs_top=sup;
1296          base[5]= vs_base[0];          base[5]= vs_base[0];
1297          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 1296  T422:; Line 1299  T422:;
1299          return;}          return;}
1300          }          }
1301  }  }
1302  static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-NAME */  static void LnkT77(ptr) object *ptr;{ call_or_link_closure(VV[77],(void **)(void *)&Lnk77,(void **)(void *)&Lclptr77);} /* CLASS-NAME */
1303  static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */  static void LnkT76(ptr) object *ptr;{ call_or_link_closure(VV[76],(void **)(void *)&Lnk76,(void **)(void *)&Lclptr76);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */
1304  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */
1305  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* FINALIZE-INHERITANCE */  static void LnkT75(ptr) object *ptr;{ call_or_link_closure(VV[75],(void **)(void *)&Lnk75,(void **)(void *)&Lclptr75);} /* FINALIZE-INHERITANCE */
1306  static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-FINALIZED-P */  static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* CLASS-FINALIZED-P */
1307  static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* TYPECASE-ERROR-STRING */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
1308  static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* ERROR */
1309  static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */  static void LnkT71(ptr) object *ptr;{ call_or_link_closure(VV[71],(void **)(void *)&Lnk71,(void **)(void *)&Lclptr71);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */
1310  static void LnkT55(ptr) object *ptr;{ call_or_link_closure(VV[55],(void **)(void *)&Lnk55,(void **)(void *)&Lclptr55);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */  static void LnkT70(ptr) object *ptr;{ call_or_link_closure(VV[70],(void **)(void *)&Lnk70,(void **)(void *)&Lclptr70);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */
1311  static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
1312  static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SLOT-DEFINITION-LOCATION */  static void LnkT68(ptr) object *ptr;{ call_or_link_closure(VV[68],(void **)(void *)&Lnk68,(void **)(void *)&Lclptr68);} /* SLOT-DEFINITION-LOCATION */
1313  static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */  static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */
1314  static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */  static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */
1315  static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */  static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* SLOT-MAKUNBOUND-USING-CLASS */
1316  static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */  static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* SLOT-BOUNDP-USING-CLASS */
1317  static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */  static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */
1318  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
1319  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
1320  static void LnkT50(ptr) object *ptr;{ call_or_link_closure(VV[50],(void **)(void *)&Lnk50,(void **)(void *)&Lclptr50);} /* SLOT-DEFINITION-NAME */  static void LnkT65(ptr) object *ptr;{ call_or_link_closure(VV[65],(void **)(void *)&Lnk65,(void **)(void *)&Lclptr65);} /* SLOT-DEFINITION-NAME */
1321  static void LnkT49(ptr) object *ptr;{ call_or_link_closure(VV[49],(void **)(void *)&Lnk49,(void **)(void *)&Lclptr49);} /* CLASS-SLOTS */  static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-SLOTS */
1322  static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* SET-CLASS-SLOT-VALUE-1 */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* SET-CLASS-SLOT-VALUE-1 */
1323  static void LnkT47(){ call_or_link(VV[47],(void **)(void *)&Lnk47);} /* GET-CLASS-SLOT-VALUE-1 */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* GET-CLASS-SLOT-VALUE-1 */
1324  static void LnkT46(ptr) object *ptr;{ call_or_link_closure(VV[46],(void **)(void *)&Lnk46,(void **)(void *)&Lclptr46);} /* CLASS-PROTOTYPE */  static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-PROTOTYPE */
1325  static void LnkT45(ptr) object *ptr;{ call_or_link_closure(VV[45],(void **)(void *)&Lnk45,(void **)(void *)&Lclptr45);} /* CLASS-WRAPPER */  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-WRAPPER */
1326  static void LnkT44(ptr) object *ptr;{ call_or_link_closure(VV[44],(void **)(void *)&Lnk44,(void **)(void *)&Lclptr44);} /* SLOT-UNBOUND */  static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* SLOT-UNBOUND */
1327  static void LnkT43(ptr) object *ptr;{ call_or_link_closure(VV[43],(void **)(void *)&Lnk43,(void **)(void *)&Lclptr43);} /* SLOT-MISSING */  static void LnkT58(ptr) object *ptr;{ call_or_link_closure(VV[58],(void **)(void *)&Lnk58,(void **)(void *)&Lclptr58);} /* SLOT-MISSING */
1328  static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
1329  static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* CCLOSURE-ENV-NTHCDR */
1330    
1331  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1332  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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