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

Diff of /gcl/pcl/pcl_defs.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 34  static void L1() Line 34  static void L1()
34          object V6;          object V6;
35          V4= Cnil;          V4= Cnil;
36          V5= Cnil;          V5= Cnil;
37          {register object V7;          {object V7;
38          if(type_of(base[2])==t_symbol){          if(type_of(base[2])==t_symbol){
39          goto T5;}          goto T5;}
40          if(type_of(base[2])==t_fixnum||          if(type_of(base[2])==t_fixnum||
# Line 70  T6:; Line 70  T6:;
70          V7= (V9);}          V7= (V9);}
71          goto T4;          goto T4;
72  T4:;  T4:;
73          V12= list(2,VV[2],(V7));          V12= list(2,base[3],(V7));
74          V13= list(2,base[3],(V7));          V6= list(2,VV[1],list(2,Ct,listA(3,VV[2],make_cons(/* INLINE-ARGS */V12,Cnil),base[4])));}
75          V14= list(2,/* INLINE-ARGS */V12,listA(3,VV[3],make_cons(/* INLINE-ARGS */V13,Cnil),base[4]));          V17= reverse((V4));
76          V15= list(2,VV[5],(V7));          V18= reverse((V5));
77          V16= list(3,VV[6],list(2,VV[7],(V7)),VV[8]);          {object V14;
78          V17= list(4,VV[4],/* INLINE-ARGS */V15,/* INLINE-ARGS */V16,list(2,VV[2],list(2,VV[9],(V7))));          object V15= /* INLINE-ARGS */V17;
79          V18= list(2,base[5],list(2,VV[9],(V7)));          object V16= /* INLINE-ARGS */V18;
80          V19= list(2,/* INLINE-ARGS */V17,listA(3,VV[3],make_cons(/* INLINE-ARGS */V18,Cnil),base[6]));          if(V15==Cnil||V16==Cnil){
81          V6= list(4,VV[1],/* INLINE-ARGS */V14,/* INLINE-ARGS */V19,list(2,Ct,listA(4,VV[10],VV[11],(V7),VV[12])));}          V13= Cnil;
         V24= reverse((V4));  
         V25= reverse((V5));  
         {object V21;  
         object V22= /* INLINE-ARGS */V24;  
         object V23= /* INLINE-ARGS */V25;  
         if(V22==Cnil||V23==Cnil){  
         V20= Cnil;  
82          goto T19;}          goto T19;}
83          base[8]=V21=MMcons(Cnil,Cnil);          base[8]=V14=MMcons(Cnil,Cnil);
84          goto T20;          goto T20;
85  T20:;  T20:;
86          (V21->c.c_car)= list(2,(V22->c.c_car),(V23->c.c_car));          (V14->c.c_car)= list(2,(V15->c.c_car),(V16->c.c_car));
87          if((V22=MMcdr(V22))==Cnil||(V23=MMcdr(V23))==Cnil){          if((V15=MMcdr(V15))==Cnil||(V16=MMcdr(V16))==Cnil){
88          V20= base[8];          V13= base[8];
89          goto T19;}          goto T19;}
90          V21=MMcdr(V21)=MMcons(Cnil,Cnil);          V14=MMcdr(V14)=MMcons(Cnil,Cnil);
91          goto T20;}          goto T20;}
92          goto T19;          goto T19;
93  T19:;  T19:;
94          V26 = (V6);          V19 = (V6);
95          base[8]= list(3,VV[3],V20,V26);          base[8]= list(3,VV[2],V13,V19);
96          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
97          return;}          return;}
98  }  }
99  /*      local entry for function UNENCAPSULATED-FDEFINITION     */  /*      local entry for function UNENCAPSULATED-FDEFINITION     */
100    
101  static object LI2(V28)  static object LI2(V21)
102    
103  register object V28;  object V21;
104  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
105          goto TTL;          goto TTL;
106  TTL:;  TTL:;
107          {object V29;          base[0]= (V21);
         object V30;  
         {object V31 =((V28))->s.s_plist;  
          object ind= VV[13];  
         while(V31!=Cnil){  
         if(V31->c.c_car==ind){  
         V29= (V31->c.c_cdr->c.c_car);  
         goto T23;  
         }else V31=V31->c.c_cdr->c.c_cdr;}  
         V29= Cnil;}  
         goto T23;  
 T23:;  
         V30= Cnil;  
         if(((V29))==Cnil){  
         goto T25;}  
         base[1]= (V28);  
         vs_top=(vs_base=base+1)+1;  
         Lsymbol_function();  
         vs_top=sup;  
         V32= vs_base[0];  
         if(!(type_of(V32)==t_cons)){  
         goto T25;}  
         base[1]= (V28);  
         vs_top=(vs_base=base+1)+1;  
         Lsymbol_function();  
         vs_top=sup;  
         V33= vs_base[0];  
         V30= CMPcadddr(V33);  
         V34 = (V30);  
         if(!(type_of(V34)==t_cons)){  
         goto T25;}  
         if(!((CMPcar((V30)))==(VV[14]))){  
         goto T25;}  
         base[0]= (V29);  
         goto T22;  
         goto T25;  
 T25:;  
         base[0]= (V28);}  
         goto T22;  
 T22:;  
108          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
109          Lsymbol_function();          (void) (*Lnk349)();
110          vs_top=sup;          vs_top=sup;
111          {object V35 = vs_base[0];          {object V22 = vs_base[0];
112          VMR2(V35)}          VMR2(V22)}
113          base[0]=base[0];          base[0]=base[0];
114          return Cnil;          return Cnil;
115  }  }
116  /*      local entry for function FDEFINE-CAREFULLY      */  /*      local entry for function FDEFINE-CAREFULLY      */
117    
118  static object LI3(V38,V39)  static object LI3(V25,V26)
119    
120  register object V38;object V39;  register object V25;object V26;
121  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
122          goto TTL;          goto TTL;
123  TTL:;  TTL:;
124          {object V40;          {object V27;
125          object V41;          object V28;
126          {object V42 =((V38))->s.s_plist;          if(!(type_of((V25))==t_symbol)){
127           object ind= VV[13];          goto T26;}
128          while(V42!=Cnil){          {object V29 =((V25))->s.s_plist;
129          if(V42->c.c_car==ind){           object ind= VV[3];
130          V40= (V42->c.c_cdr->c.c_car);          while(V29!=Cnil){
131          goto T39;          if(V29->c.c_car==ind){
132          }else V42=V42->c.c_cdr->c.c_cdr;}          V27= (V29->c.c_cdr->c.c_car);
133          V40= Cnil;}          goto T24;
134          goto T39;          }else V29=V29->c.c_cdr->c.c_cdr;}
135  T39:;          V27= Cnil;
136          V41= Cnil;          goto T24;}
137          if(((V40))==Cnil){          goto T26;
138          goto T41;}  T26:;
139          base[1]= (V38);          V27= Cnil;
140            goto T24;
141    T24:;
142            V28= Cnil;
143            if(((V27))==Cnil){
144            goto T29;}
145            base[1]= (V25);
146          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
147          Lsymbol_function();          Lsymbol_function();
148          vs_top=sup;          vs_top=sup;
149          V43= vs_base[0];          V30= vs_base[0];
150          if(!(type_of(V43)==t_cons)){          if(!(type_of(V30)==t_cons)){
151          goto T41;}          goto T29;}
152          base[1]= (V38);          base[1]= (V25);
153          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
154          Lsymbol_function();          Lsymbol_function();
155          vs_top=sup;          vs_top=sup;
156          V44= vs_base[0];          V31= vs_base[0];
157          V41= CMPcadddr(V44);          V28= CMPcadddr(V31);
158          V45 = (V41);          V32 = (V28);
159          if(!(type_of(V45)==t_cons)){          if(!(type_of(V32)==t_cons)){
160          goto T41;}          goto T29;}
161          if(!((CMPcar((V41)))==(VV[14]))){          if(!((CMPcar((V28)))==(VV[4]))){
162          goto T41;}          goto T29;}
163          base[0]= (V40);          base[0]= (V27);
164          goto T38;          goto T23;
165          goto T41;          goto T29;
166  T41:;  T29:;
167          base[0]= (V38);}          base[0]= (V25);}
168          goto T38;          goto T23;
169  T38:;  T23:;
170          base[1]= (V39);          base[1]= (V26);
171          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
172          siLfset();          siLfset();
173          vs_top=sup;          vs_top=sup;
174          {object V46 = vs_base[0];          {object V33 = vs_base[0];
175          VMR3(V46)}          VMR3(V33)}
176          base[0]=base[0];          base[0]=base[0];
177          return Cnil;          return Cnil;
178  }  }
179  /*      local entry for function GBOUNDP        */  /*      local entry for function GBOUNDP        */
180    
181  static object LI4(V48)  static object LI4(V35)
182    
183  register object V48;  object V35;
184  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
185          goto TTL;          goto TTL;
186  TTL:;  TTL:;
187          if(!(type_of((V48))==t_symbol)){          base[0]= V35;
         goto T56;}  
         base[0]= V48;  
         vs_top=(vs_base=base+0)+1;  
         Lfboundp();  
         vs_top=sup;  
         {object V50 = vs_base[0];  
         VMR4(V50)}  
         goto T56;  
 T56:;  
         if(!(type_of((V48))==t_cons||((V48))==Cnil)){  
         goto T60;}  
         if(!((CMPcar((V48)))==(VV[15]))){  
         goto T60;}  
         if(!(type_of(CMPcadr((V48)))==t_symbol)){  
         goto T60;}  
         {object V51;  
         V51= CMPcadr((V48));  
         base[0]= (*(LnkLI361))((V51));  
188          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
189          Lfboundp();          Lfboundp();
190          vs_top=sup;          vs_top=sup;
191          {object V52 = vs_base[0];          {object V37 = vs_base[0];
192          VMR4(V52)}}          VMR4(V37)}
         goto T60;  
 T60:;  
         base[0]= VV[11];  
         base[1]= (V48);  
         base[2]= VV[16];  
         base[3]= VV[15];  
         vs_top=(vs_base=base+0)+4;  
         Lerror();  
         vs_top=sup;  
         {object V53 = vs_base[0];  
         VMR4(V53)}  
193          base[0]=base[0];          base[0]=base[0];
194          return Cnil;          return Cnil;
195  }  }
196  /*      local entry for function GMAKUNBOUND    */  /*      local entry for function GMAKUNBOUND    */
197    
198  static object LI5(V55)  static object LI5(V39)
199    
200  register object V55;  object V39;
201  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
202          goto TTL;          goto TTL;
203  TTL:;  TTL:;
204          if(!(type_of((V55))==t_symbol)){          base[0]= V39;
         goto T73;}  
         base[0]= V55;  
         vs_top=(vs_base=base+0)+1;  
         Lfmakunbound();  
         vs_top=sup;  
         {object V57 = vs_base[0];  
         VMR5(V57)}  
         goto T73;  
 T73:;  
         if(!(type_of((V55))==t_cons||((V55))==Cnil)){  
         goto T77;}  
         if(!((CMPcar((V55)))==(VV[15]))){  
         goto T77;}  
         if(!(type_of(CMPcadr((V55)))==t_symbol)){  
         goto T77;}  
         {object V58;  
         V58= CMPcadr((V55));  
         base[0]= (*(LnkLI361))((V58));  
205          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
206          Lfmakunbound();          Lfmakunbound();
207          vs_top=sup;          vs_top=sup;
208          {object V59 = vs_base[0];          {object V41 = vs_base[0];
209          VMR5(V59)}}          VMR5(V41)}
         goto T77;  
 T77:;  
         base[0]= VV[11];  
         base[1]= (V55);  
         base[2]= VV[16];  
         base[3]= VV[15];  
         vs_top=(vs_base=base+0)+4;  
         Lerror();  
         vs_top=sup;  
         {object V60 = vs_base[0];  
         VMR5(V60)}  
210          base[0]=base[0];          base[0]=base[0];
211          return Cnil;          return Cnil;
212  }  }
213  /*      local entry for function GDEFINITION    */  /*      local entry for function GDEFINITION    */
214    
215  static object LI6(V62)  static object LI6(V43)
216    
217  register object V62;  object V43;
218  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
219          goto TTL;          goto TTL;
220  TTL:;  TTL:;
221          if(!(type_of((V62))==t_symbol)){          {object V45 = (*(LnkLI350))(V43);
222          goto T90;}{object V64;          VMR6(V45)}
         base[0]= V62;  
         vs_top=(vs_base=base+0)+1;  
         Lmacro_function();  
         vs_top=sup;  
         V64= vs_base[0];  
         if(V64==Cnil)goto T92;  
         {object V65 = V64;  
         VMR6(V65)}  
         goto T92;  
 T92:;}  
         {object V66 = (*(LnkLI362))(V62);  
         VMR6(V66)}  
         goto T90;  
 T90:;  
         if(!(type_of((V62))==t_cons||((V62))==Cnil)){  
         goto T96;}  
         if(!((CMPcar((V62)))==(VV[15]))){  
         goto T96;}  
         if(!(type_of(CMPcadr((V62)))==t_symbol)){  
         goto T96;}  
         {object V67;  
         V67= CMPcadr((V62));  
         V68= (*(LnkLI361))((V67));  
         {object V69 = (*(LnkLI362))(/* INLINE-ARGS */V68);  
         VMR6(V69)}}  
         goto T96;  
 T96:;  
         base[0]= VV[11];  
         base[1]= (V62);  
         base[2]= VV[16];  
         base[3]= VV[15];  
         vs_top=(vs_base=base+0)+4;  
         Lerror();  
         vs_top=sup;  
         {object V70 = vs_base[0];  
         VMR6(V70)}  
         base[0]=base[0];  
223          return Cnil;          return Cnil;
224  }  }
225  /*      local entry for function SETF PCL GDEFINITION   */  /*      function definition for G2402   */
   
 static object LI7(V73,V74)  
226    
227  object V73;register object V74;  static void L7()
228  {        VMB7 VMS7 VMV7  {register object *base=vs_base;
229            register object *sup=base+VM7; VC7
230            vs_check;
231            {object V46;
232            object V47;
233            check_arg(2);
234            V46=(base[0]);
235            V47=(base[1]);
236            vs_top=sup;
237          goto TTL;          goto TTL;
238  TTL:;  TTL:;
239          if(!(type_of((V74))==t_symbol)){          base[2]= (*(LnkLI351))(V47,(V46));
240          goto T108;}          vs_top=(vs_base=base+2)+1;
241          {object V76 = (*(LnkLI363))(V74,(V73));          return;
242          VMR7(V76)}          }
         goto T108;  
 T108:;  
         if(!(type_of((V74))==t_cons||((V74))==Cnil)){  
         goto T111;}  
         if(!((CMPcar((V74)))==(VV[15]))){  
         goto T111;}  
         if(!(type_of(CMPcadr((V74)))==t_symbol)){  
         goto T111;}  
         {object V77;  
         V77= CMPcadr((V74));  
         V78= (*(LnkLI361))((V77));  
         V79 = (V73);  
         {object V80 = (*(LnkLI363))(/* INLINE-ARGS */V78,V79);  
         VMR7(V80)}}  
         goto T111;  
 T111:;  
         base[0]= VV[11];  
         base[1]= (V74);  
         base[2]= VV[16];  
         base[3]= VV[15];  
         vs_top=(vs_base=base+0)+4;  
         Lerror();  
         vs_top=sup;  
         {object V81 = vs_base[0];  
         VMR7(V81)}  
         base[0]=base[0];  
         return Cnil;  
243  }  }
244  /*      function definition for COERCE-TO-CLASS */  /*      function definition for COERCE-TO-CLASS */
245    
# Line 403  static void L8() Line 247  static void L8()
247  {register object *base=vs_base;  {register object *base=vs_base;
248          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
249          vs_check;          vs_check;
250          {register object V82;          {register object V49;
251          object V83;          object V50;
252          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
253          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
254          V82=(base[0]);          V49=(base[0]);
255          vs_base=vs_base+1;          vs_base=vs_base+1;
256          if(vs_base>=vs_top){vs_top=sup;goto T122;}          if(vs_base>=vs_top){vs_top=sup;goto T45;}
257          V83=(base[1]);          V50=(base[1]);
258          vs_top=sup;          vs_top=sup;
259          goto T123;          goto T46;
260          goto T122;          goto T45;
261  T122:;  T45:;
262          V83= Cnil;          V50= Cnil;
263          goto T123;          goto T46;
264  T123:;  T46:;
265          if(!(type_of((V82))==t_symbol)){          if(!(type_of((V49))==t_symbol)){
266          goto T126;}{object V84;          goto T49;}{object V51;
267          V84= (VFUN_NARGS=2,(*(LnkLI364))((V82),(((V83))==Cnil?Ct:Cnil)));          V51= (VFUN_NARGS=2,(*(LnkLI352))((V49),(((V50))==Cnil?Ct:Cnil)));
268          if(V84==Cnil)goto T128;          if(V51==Cnil)goto T51;
269          base[2]= V84;          base[2]= V51;
270          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
271          return;          return;
272          goto T128;          goto T51;
273  T128:;}  T51:;}
274          base[2]= (V82);          base[2]= (V49);
275          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
276          (void) (*Lnk365)();          (void) (*Lnk353)();
277          return;          return;
278          goto T126;          goto T49;
279  T126:;  T49:;
280          base[2]= (V82);          base[2]= (V49);
281          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
282          return;          return;
283          }          }
# Line 444  static void L9() Line 288  static void L9()
288  {register object *base=vs_base;  {register object *base=vs_base;
289          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
290          vs_check;          vs_check;
291          {register object V85;          {register object V52;
292          check_arg(1);          check_arg(1);
293          V85=(base[0]);          V52=(base[0]);
294          vs_top=sup;          vs_top=sup;
295          goto TTL;          goto TTL;
296  TTL:;  TTL:;
297          {register object V86;          {register object V53;
298          V86= Cnil;          V53= Cnil;
299          if(!(type_of((V85))==t_cons)){          if(!(type_of((V52))==t_cons)){
300          goto T132;}          goto T55;}
301          V86= CMPcdr((V85));          V53= CMPcdr((V52));
302          V85= CMPcar((V85));          V52= CMPcar((V52));
303          goto T132;          goto T55;
304  T132:;  T55:;
305          if(!(type_of((V85))==t_symbol)){          if(!(type_of((V52))==t_symbol)){
306          goto T139;}{object V87;          goto T62;}{object V54;
307          if(((V86))==Cnil){          if(((V53))==Cnil){
308          goto T143;}          goto T66;}
309          V87= Cnil;          V54= Cnil;
310          goto T142;          goto T65;
311          goto T143;          goto T66;
312  T143:;  T66:;
313          V87= (VFUN_NARGS=1,(*(LnkLI364))((V85)));          V54= (VFUN_NARGS=1,(*(LnkLI352))((V52)));
314          goto T142;          goto T65;
315  T142:;  T65:;
316          if(V87==Cnil)goto T141;          if(V54==Cnil)goto T64;
317          base[1]= V87;          base[1]= V54;
318          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
319          return;          return;
320          goto T141;          goto T64;
321  T141:;}  T64:;}
322          {object V88= (V85);          {object V55= (V52);
323          if((V88!= VV[41]))goto T145;          if((V55!= VV[29]))goto T68;
324          base[1]= CMPcar((V86));          base[1]= CMPcar((V53));
325          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
326          (void) (*Lnk366)();          (void) (*Lnk354)();
327          return;          return;
328          goto T145;          goto T68;
329  T145:;  T68:;
330          if((V88!= VV[121]))goto T147;          if((V55!= VV[109]))goto T70;
331          base[1]= VV[17];          base[1]= VV[5];
332          base[2]= VV[18];          base[2]= VV[6];
333          base[4]= CMPcar((V86));          base[4]= CMPcar((V53));
334          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
335          (void) (*Lnk366)();          (void) (*Lnk354)();
336          vs_top=sup;          vs_top=sup;
337          base[3]= vs_base[0];          base[3]= vs_base[0];
338          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
339          (void) (*Lnk367)(Lclptr367);          (void) (*Lnk355)(Lclptr355);
340          return;          return;
341          goto T147;          goto T70;
342  T147:;  T70:;
343          if((V88!= VV[368]))goto T152;          if((V55!= VV[356]))goto T75;
344          base[2]= CMPcar((V86));          base[2]= CMPcar((V53));
345          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
346          (void) (*Lnk366)();          (void) (*Lnk354)();
347          vs_top=sup;          vs_top=sup;
348          base[1]= vs_base[0];          base[1]= vs_base[0];
349          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
350          (void) (*Lnk92)(Lclptr92);          (void) (*Lnk80)(Lclptr80);
351          return;          return;
352          goto T152;          goto T75;
353  T152:;  T75:;
354          if((V88!= VV[369]))goto T155;          if((V55!= VV[357]))goto T78;
355          base[1]= (*(LnkLI370))(CMPcar((V86)));          base[1]= (*(LnkLI358))(CMPcar((V53)));
356          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
357          return;          return;
358          goto T155;          goto T78;
359  T155:;  T78:;
360          FEerror("The ECASE key value ~s is illegal.",1,V88);          FEerror("The ECASE key value ~s is illegal.",1,V55);
361          base[1]= Cnil;          base[1]= Cnil;
362          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
363          return;}          return;}
364          goto T139;          goto T62;
365  T139:;  T62:;
366          base[1]= (V85);          base[1]= (V52);
367          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
368          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk359)(Lclptr359);
369          vs_top=sup;          vs_top=sup;
370          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
371          goto T157;}          goto T80;}
372          base[1]= (V85);          base[1]= (V52);
373          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
374          return;          return;
375          goto T157;          goto T80;
376  T157:;  T80:;
377          base[1]= Cnil;          base[1]= Cnil;
378          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
379          return;}          return;}
# Line 541  static void L10() Line 385  static void L10()
385  {register object *base=vs_base;  {register object *base=vs_base;
386          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
387          vs_check;          vs_check;
388          {register object V89;          {register object V56;
389          check_arg(1);          check_arg(1);
390          V89=(base[0]);          V56=(base[0]);
391          vs_top=sup;          vs_top=sup;
392          goto TTL;          goto TTL;
393  TTL:;  TTL:;
394          if(!(((V89))==(Ct))){          if(!(((V56))==(Ct))){
395          goto T161;}          goto T84;}
396          base[1]= Ct;          base[1]= Ct;
397          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
398          return;          return;
399          goto T161;          goto T84;
400  T161:;  T84:;
401          if(!(type_of((V89))==t_cons)){          if(!(type_of((V56))==t_cons)){
402          goto T164;}          goto T87;}
403          {register object x= CMPcar((V89)),V90= VV[19];          {register object x= CMPcar((V56)),V57= VV[7];
404          while(V90!=Cnil)          while(V57!=Cnil)
405          if(eql(x,V90->c.c_car)){          if(eql(x,V57->c.c_car)){
406          goto T166;          goto T89;
407          }else V90=V90->c.c_cdr;}          }else V57=V57->c.c_cdr;}
408          base[1]= VV[20];          base[1]= VV[8];
409          base[2]= (V89);          base[2]= (V56);
410          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
411          Lerror();          Lerror();
412          vs_top=sup;          vs_top=sup;
413          goto T166;          goto T89;
414  T166:;  T89:;
415          base[1]= (V89);          base[1]= (V56);
416          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
417          return;          return;
418          goto T164;          goto T87;
419  T164:;  T87:;
420          if(!(type_of((V89))==t_symbol)){          if(!(type_of((V56))==t_symbol)){
421          goto T174;}          goto T97;}
422          V89= (VFUN_NARGS=1,(*(LnkLI364))((V89)));          V56= (VFUN_NARGS=1,(*(LnkLI352))((V56)));
423          goto T174;          goto T97;
424  T174:;  T97:;
425          if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){          if(!(((((VV[9]->s.s_dbind))==(VV[10])?Ct:Cnil))==Cnil)){
426          goto T178;}          goto T101;}
427          goto T173;          goto T96;
428          goto T178;          goto T101;
429  T178:;  T101:;
430          base[1]= (V89);          base[1]= (V56);
431          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
432          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk359)(Lclptr359);
433          vs_top=sup;          vs_top=sup;
434          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
435          goto T172;}          goto T95;}
436          goto T173;          goto T96;
437  T173:;  T96:;
438          base[1]= (V89);          base[1]= (V56);
439          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
440          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk360)(Lclptr360);
441          return;          return;
442          goto T172;          goto T95;
443  T172:;  T95:;
444          base[1]= VV[23];          base[1]= VV[11];
445          base[2]= (V89);          base[2]= (V56);
446          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
447          Lerror();          Lerror();
448          return;          return;
# Line 606  T172:; Line 450  T172:;
450  }  }
451  /*      local entry for function TYPE-CLASS     */  /*      local entry for function TYPE-CLASS     */
452    
453  static object LI11(V92)  static object LI11(V59)
454    
455  register object V92;  register object V59;
456  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
457          goto TTL;          goto TTL;
458  TTL:;  TTL:;
459          base[0]= (V92);          base[0]= (V59);
460          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
461          (void) (*Lnk373)();          (void) (*Lnk361)();
462          vs_top=sup;          vs_top=sup;
463          V92= vs_base[0];          V59= vs_base[0];
464          if(!(type_of((V92))!=t_cons)){          if(!(type_of((V59))!=t_cons)){
465          goto T188;}          goto T111;}
466          if(!(((V92))==(Ct))){          if(!(((V59))==(Ct))){
467          goto T191;}          goto T114;}
468          {object V93 = (VV[24]->s.s_dbind);          {object V60 = (VV[12]->s.s_dbind);
469          VMR11(V93)}          VMR11(V60)}
470          goto T191;          goto T114;
471  T191:;  T114:;
472          base[0]= VV[25];          base[0]= VV[13];
473          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
474          Lerror();          Lerror();
475          vs_top=sup;          vs_top=sup;
476          {object V94 = vs_base[0];          {object V61 = vs_base[0];
477          VMR11(V94)}          VMR11(V61)}
478          goto T188;          goto T111;
479  T188:;  T111:;
480          {object V95= CMPcar((V92));          {object V62= CMPcar((V59));
481          if((V95!= VV[369]))goto T194;          if((V62!= VV[357]))goto T117;
482          {object V96 = (*(LnkLI374))(CMPcadr((V92)));          {object V63 = (*(LnkLI362))(CMPcadr((V59)));
483          VMR11(V96)}          VMR11(V63)}
484          goto T194;          goto T117;
485  T194:;  T117:;
486          if((V95!= VV[121]))goto T195;          if((V62!= VV[109]))goto T118;
487          {object V97 = (*(LnkLI374))(CMPcadr((V92)));          {object V64 = (*(LnkLI362))(CMPcadr((V59)));
488          VMR11(V97)}          VMR11(V64)}
489          goto T195;          goto T118;
490  T195:;  T118:;
491          if((V95!= VV[368]))goto T196;          if((V62!= VV[356]))goto T119;
492          {object V98 = CMPcadr((V92));          {object V65 = CMPcadr((V59));
493          VMR11(V98)}          VMR11(V65)}
494          goto T196;          goto T119;
495  T196:;  T119:;
496          if((V95!= VV[41]))goto T197;          if((V62!= VV[29]))goto T120;
497          {object V99 = CMPcadr((V92));          {object V66 = CMPcadr((V59));
498          VMR11(V99)}          VMR11(V66)}
499          goto T197;          goto T120;
500  T197:;  T120:;
501          {object V100 = Cnil;          {object V67 = Cnil;
502          VMR11(V100)}}          VMR11(V67)}}
503          base[0]=base[0];          base[0]=base[0];
504          return Cnil;          return Cnil;
505  }  }
# Line 665  static void L12() Line 509  static void L12()
509  {register object *base=vs_base;  {register object *base=vs_base;
510          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
511          vs_check;          vs_check;
512          {object V101;          {object V68;
513          check_arg(1);          check_arg(1);
514          V101=(base[0]);          V68=(base[0]);
515          vs_top=sup;          vs_top=sup;
516          goto TTL;          goto TTL;
517  TTL:;  TTL:;
518          base[2]= (V101);          base[2]= (V68);
519          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
520          (void) (*Lnk92)(Lclptr92);          (void) (*Lnk80)(Lclptr80);
521          vs_top=sup;          vs_top=sup;
522          base[1]= vs_base[0];          base[1]= vs_base[0];
523          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
524          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk360)(Lclptr360);
525          return;          return;
526          }          }
527  }  }
528  /*      local entry for function INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS     */  /*      local entry for function INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS     */
529    
530  static object LI13(V103)  static object LI13(V70)
531    
532  object V103;  object V70;
533  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
534          goto TTL;          goto TTL;
535  TTL:;  TTL:;
536          {object V104;          {object V71;
537          V104= (VFUN_NARGS=1,(*(LnkLI375))((V103)));          V71= (VFUN_NARGS=1,(*(LnkLI363))((V70)));
538          V106= (*(LnkLI377))((V103));          {object V73;
539          V107 = V104;          V73= (*(LnkLI364))((V70));
540          (void)((*(LnkLI376))(/* INLINE-ARGS */V106,V107));          V74= ({object _tmp=get(VV[365],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[365])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[365])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
541          {object V108 = (*(LnkLI378))((V103),(V104));          V75 = (V73);
542          VMR13(V108)}}          V76 = V71;
543            (void)((
544            V77 = V74,
545            (type_of(V77) == t_sfun ?(*((V77)->sfn.sfn_self)):
546            (fcall.argd=2,type_of(V77)==t_vfun) ?
547            (*((V77)->sfn.sfn_self)):
548            (fcall.fun=(V77),fcalln))(V75,V76)));}
549            {object V78 = (*(LnkLI366))((V70),(V71));
550            VMR13(V78)}}
551            base[0]=base[0];
552          return Cnil;          return Cnil;
553  }  }
554  /*      local entry for function MAKE-TYPE-PREDICATE    */  /*      local entry for function MAKE-TYPE-PREDICATE    */
555    
556  static object LI14(V110)  static object LI14(V80)
557    
558  object V110;  object V80;
559  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
560          goto TTL;          goto TTL;
561  TTL:;  TTL:;
562          base[0]= (VFUN_NARGS=1,(*(LnkLI379))((V110)));          base[0]= (VFUN_NARGS=1,(*(LnkLI367))((V80)));
563          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
564          {object V111 =          {object V81 =
565          make_cclosure_new(LC79,Cnil,base[0],Cdata);          make_cclosure_new(LC79,Cnil,base[0],Cdata);
566          VMR14(V111)}          VMR14(V81)}
567          base[0]=base[0];          base[0]=base[0];
568          return Cnil;          return Cnil;
569  }  }
570  /*      local entry for function CLASS-PREDICATE        */  /*      local entry for function CLASS-PREDICATE        */
571    
572  static object LI16(V113)  static object LI16(V83)
573    
574  object V113;  object V83;
575  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
576          goto TTL;          goto TTL;
577  TTL:;  TTL:;
578          base[0]=MMcons((V113),Cnil);          base[0]=MMcons((V83),Cnil);
579          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
580          goto T203;}          goto T128;}
581          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI352))((base[0]->c.c_car)));
582          goto T203;          goto T128;
583  T203:;  T128:;
584          {object V114 =          {object V84 =
585          make_cclosure_new(LC80,Cnil,base[0],Cdata);          make_cclosure_new(LC80,Cnil,base[0],Cdata);
586          VMR15(V114)}          VMR15(V84)}
587          base[0]=base[0];          base[0]=base[0];
588          return Cnil;          return Cnil;
589  }  }
590  /*      local entry for function MAKE-CLASS-EQ-PREDICATE        */  /*      local entry for function MAKE-CLASS-EQ-PREDICATE        */
591    
592  static object LI18(V116)  static object LI18(V86)
593    
594  object V116;  object V86;
595  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
596          goto TTL;          goto TTL;
597  TTL:;  TTL:;
598          base[0]=MMcons((V116),Cnil);          base[0]=MMcons((V86),Cnil);
599          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
600          goto T207;}          goto T132;}
601          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI352))((base[0]->c.c_car)));
602          goto T207;          goto T132;
603  T207:;  T132:;
604          {object V117 =          {object V87 =
605          make_cclosure_new(LC81,Cnil,base[0],Cdata);          make_cclosure_new(LC81,Cnil,base[0],Cdata);
606          VMR16(V117)}          VMR16(V87)}
607          base[0]=base[0];          base[0]=base[0];
608          return Cnil;          return Cnil;
609  }  }
610  /*      local entry for function MAKE-EQL-PREDICATE     */  /*      local entry for function MAKE-EQL-PREDICATE     */
611    
612  static object LI20(V119)  static object LI20(V89)
613    
614  object V119;  object V89;
615  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
616          goto TTL;          goto TTL;
617  TTL:;  TTL:;
618          base[0]=MMcons((V119),Cnil);          base[0]=MMcons((V89),Cnil);
619          {object V120 =          {object V90 =
620          make_cclosure_new(LC82,Cnil,base[0],Cdata);          make_cclosure_new(LC82,Cnil,base[0],Cdata);
621          VMR17(V120)}          VMR17(V90)}
622          base[0]=base[0];          base[0]=base[0];
623          return Cnil;          return Cnil;
624  }  }
625  /*      function definition for G2438   */  /*      function definition for G2410   */
626    
627  static void L21()  static void L21()
628  {register object *base=vs_base;  {register object *base=vs_base;
629          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
630          vs_check;          vs_check;
631          {object V121;          {object V91;
632          check_arg(1);          check_arg(1);
633          V121=(base[0]);          V91=(base[0]);
634          vs_top=sup;          vs_top=sup;
635          goto TTL;          goto TTL;
636  TTL:;  TTL:;
637          base[1]= list(2,VV[26],(V121));          base[1]= list(2,VV[14],(V91));
638          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
639          return;          return;
640          }          }
# Line 792  static void L22() Line 645  static void L22()
645  {register object *base=vs_base;  {register object *base=vs_base;
646          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
647          vs_check;          vs_check;
648          {register object V122;          {register object V92;
649          check_arg(1);          check_arg(1);
650          V122=(base[0]);          V92=(base[0]);
651          vs_top=sup;          vs_top=sup;
652          goto TTL;          goto TTL;
653  TTL:;  TTL:;
654          if(!(type_of((V122))==t_cons)){          if(!(type_of((V92))==t_cons)){
655          goto T212;}          goto T137;}
656          {register object x= CMPcar((V122)),V123= VV[27];          {register object x= CMPcar((V92)),V93= VV[15];
657          while(V123!=Cnil)          while(V93!=Cnil)
658          if(eql(x,V123->c.c_car)){          if(eql(x,V93->c.c_car)){
659          goto T216;          goto T141;
660          }else V123=V123->c.c_cdr;          }else V93=V93->c.c_cdr;
661          goto T215;}          goto T140;}
662          goto T216;          goto T141;
663  T216:;  T141:;
664          V124= CMPcar((V122));          V94= CMPcar((V92));
665          {object V126;          {object V96;
666          object V127= CMPcdr((V122));          object V97= CMPcdr((V92));
667          if(V127==Cnil){          if(V97==Cnil){
668          V125= Cnil;          V95= Cnil;
669          goto T217;}          goto T142;}
670          base[1]=V126=MMcons(Cnil,Cnil);          base[1]=V96=MMcons(Cnil,Cnil);
671          goto T218;          goto T143;
672  T218:;  T143:;
673          base[2]= (V127->c.c_car);          base[2]= (V97->c.c_car);
674          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
675          (void) (*Lnk380)();          (void) (*Lnk368)();
676          vs_top=sup;          vs_top=sup;
677          (V126->c.c_car)= vs_base[0];          (V96->c.c_car)= vs_base[0];
678          if((V127=MMcdr(V127))==Cnil){          if((V97=MMcdr(V97))==Cnil){
679          V125= base[1];          V95= base[1];
680          goto T217;}          goto T142;}
681          V126=MMcdr(V126)=MMcons(Cnil,Cnil);          V96=MMcdr(V96)=MMcons(Cnil,Cnil);
682          goto T218;}          goto T143;}
683          goto T217;          goto T142;
684  T217:;  T142:;
685          base[1]= make_cons(/* INLINE-ARGS */V124,V125);          base[1]= make_cons(/* INLINE-ARGS */V94,V95);
686          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
687          return;          return;
688          goto T215;          goto T140;
689  T215:;  T140:;
690          if((CMPcdr((V122)))!=Cnil){          if((CMPcdr((V92)))!=Cnil){
691          goto T222;}          goto T147;}
692          V122= CMPcar((V122));          V92= CMPcar((V92));
693          goto TTL;          goto TTL;
694          goto T222;          goto T147;
695  T222:;  T147:;
696          base[1]= (V122);          base[1]= (V92);
697          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
698          return;          return;
699          goto T212;          goto T137;
700  T212:;  T137:;
701          if(!(type_of((V122))==t_symbol)){          if(!(type_of((V92))==t_symbol)){
702          goto T227;}          goto T152;}
703          {object V128;          {object V98;
704          V128= (VFUN_NARGS=2,(*(LnkLI364))((V122),Cnil));          V98= (VFUN_NARGS=2,(*(LnkLI352))((V92),Cnil));
705          if(((V128))==Cnil){          if(((V98))==Cnil){
706          goto T231;}          goto T156;}
707          {object V129;          {object V99;
708          base[1]= (V128);          base[1]= (V98);
709          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
710          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk360)(Lclptr360);
711          vs_top=sup;          vs_top=sup;
712          V129= vs_base[0];          V99= vs_base[0];
713          if(!(type_of((V129))==t_cons||((V129))==Cnil)){          if(!(type_of((V99))==t_cons||((V99))==Cnil)){
714          goto T236;}          goto T161;}
715          base[1]= (V129);          base[1]= (V99);
716          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
717          return;          return;
718          goto T236;          goto T161;
719  T236:;  T161:;
720          base[1]= make_cons((V129),Cnil);          base[1]= make_cons((V99),Cnil);
721          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
722          return;}          return;}
723          goto T231;          goto T156;
724  T231:;  T156:;
725          base[1]= make_cons((V122),Cnil);          base[1]= make_cons((V92),Cnil);
726          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
727          return;}          return;}
728          goto T227;          goto T152;
729  T227:;  T152:;
730          if(!(((VV[21]->s.s_dbind))==(VV[22]))){          if(!(((VV[9]->s.s_dbind))==(VV[10]))){
731          goto T238;}          goto T163;}
732          base[1]= (V122);          base[1]= (V92);
733          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
734          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk359)(Lclptr359);
735          vs_top=sup;          vs_top=sup;
736          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
737          goto T239;}          goto T164;}
738          goto T238;          goto T163;
739  T238:;  T163:;
740          base[1]= (V122);          base[1]= (V92);
741          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
742          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk360)(Lclptr360);
743          return;          return;
744          goto T239;          goto T164;
745  T239:;  T164:;
746          base[1]= VV[28];          base[1]= VV[16];
747          base[2]= (V122);          base[2]= (V92);
748          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
749          Lerror();          Lerror();
750          return;          return;
# Line 903  static void L23() Line 756  static void L23()
756  {register object *base=vs_base;  {register object *base=vs_base;
757          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
758          vs_check;          vs_check;
759          {register object V130;          {register object V100;
760          check_arg(1);          check_arg(1);
761          V130=(base[0]);          V100=(base[0]);
762          vs_top=sup;          vs_top=sup;
763          goto TTL;          goto TTL;
764  TTL:;  TTL:;
765          {object V131= CMPcar((V130));          {object V101= CMPcar((V100));
766          if((V131!= VV[381])          if((V101!= VV[369])
767          && (V131!= VV[4])          && (V101!= VV[370])
768          && (V131!= VV[382]))goto T247;          && (V101!= VV[371]))goto T172;
769          V132= CMPcar((V130));          V102= CMPcar((V100));
770          {object V134;          {object V104;
771          object V135= CMPcdr((V130));          object V105= CMPcdr((V100));
772          if(V135==Cnil){          if(V105==Cnil){
773          V133= Cnil;          V103= Cnil;
774          goto T248;}          goto T173;}
775          base[1]=V134=MMcons(Cnil,Cnil);          base[1]=V104=MMcons(Cnil,Cnil);
776          goto T249;          goto T174;
777  T249:;  T174:;
778          base[2]= (V135->c.c_car);          base[2]= (V105->c.c_car);
779          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
780          (void) (*Lnk383)();          (void) (*Lnk372)();
781          vs_top=sup;          vs_top=sup;
782          (V134->c.c_car)= vs_base[0];          (V104->c.c_car)= vs_base[0];
783          if((V135=MMcdr(V135))==Cnil){          if((V105=MMcdr(V105))==Cnil){
784          V133= base[1];          V103= base[1];
785          goto T248;}          goto T173;}
786          V134=MMcdr(V134)=MMcons(Cnil,Cnil);          V104=MMcdr(V104)=MMcons(Cnil,Cnil);
787          goto T249;}          goto T174;}
788          goto T248;          goto T173;
789  T248:;  T173:;
790          base[1]= make_cons(/* INLINE-ARGS */V132,V133);          base[1]= make_cons(/* INLINE-ARGS */V102,V103);
         vs_top=(vs_base=base+1)+1;  
         return;  
         goto T247;  
 T247:;  
         if((V131!= VV[41])  
         && (V131!= VV[368]))goto T252;  
         base[1]= CMPcadr((V130));  
791          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
         (void) (*Lnk384)(Lclptr384);  
792          return;          return;
793          goto T252;          goto T172;
794  T252:;  T172:;
795          if((V131!= VV[369]))goto T254;          if((V101!= VV[29])
796          base[1]= (V130);          && (V101!= VV[356]))goto T177;
797            base[1]= CMPcadr((V100));
798          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
799            (void) (*Lnk373)(Lclptr373);
800          return;          return;
801          goto T254;          goto T177;
802  T254:;  T177:;
803          if((CMPcdr((V130)))!=Cnil){          if((V101!= VV[357]))goto T179;
804          goto T256;}          base[1]= (V100);
805          base[1]= CMPcar((V130));          vs_top=(vs_base=base+1)+1;
806            return;
807            goto T179;
808    T179:;
809            if((CMPcdr((V100)))!=Cnil){
810            goto T181;}
811            base[1]= CMPcar((V100));
812          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
813          return;          return;
814          goto T256;          goto T181;
815  T256:;  T181:;
816          base[1]= (V130);          base[1]= (V100);
817          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
818          return;}          return;}
819          }          }
# Line 972  static void L24() Line 825  static void L24()
825          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
826          vs_check;          vs_check;
827          bds_check;          bds_check;
828          {register object V136;          {register object V106;
829          register object V137;          register object V107;
830          check_arg(2);          check_arg(2);
831          V136=(base[0]);          V106=(base[0]);
832          V137=(base[1]);          V107=(base[1]);
833          vs_top=sup;          vs_top=sup;
834          goto TTL;          goto TTL;
835  TTL:;  TTL:;
836          if(!(equal((V136),(V137)))){          if(!(equal((V106),(V107)))){
837          goto T259;}          goto T184;}
838          base[2]= Ct;          base[2]= Ct;
839          base[3]= Ct;          base[3]= Ct;
840          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
841          return;          return;
842          goto T259;          goto T184;
843  T259:;  T184:;
844          if(!(((VV[21]->s.s_dbind))==(VV[29]))){          if(!(((VV[9]->s.s_dbind))==(VV[17]))){
845          goto T264;}          goto T189;}
846          base[2]= (((V136))==((V137))?Ct:Cnil);          base[2]= (((V106))==((V107))?Ct:Cnil);
847          base[3]= Ct;          base[3]= Ct;
848          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
849          return;          return;
850          goto T264;          goto T189;
851  T264:;  T189:;
852          bds_bind(VV[30],Ct);          bds_bind(VV[18],Ct);
853          base[3]= (V136);          base[3]= (V106);
854          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
855          (void) (*Lnk380)();          (void) (*Lnk368)();
856          vs_top=sup;          vs_top=sup;
857          V136= vs_base[0];          V106= vs_base[0];
858          base[3]= (V137);          base[3]= (V107);
859          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
860          (void) (*Lnk380)();          (void) (*Lnk368)();
861          vs_top=sup;          vs_top=sup;
862          V137= vs_base[0];          V107= vs_base[0];
863          {object V138= CMPcar((V137));          {object V108= CMPcar((V107));
864          if((V138!= VV[381]))goto T274;          if((V108!= VV[369]))goto T199;
865          base[3]= Cnil;          base[3]= Cnil;
866          base[4]= Cnil;          base[4]= Cnil;
867          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
868          bds_unwind1;          bds_unwind1;
869          return;          return;
870          goto T274;          goto T199;
871  T274:;  T199:;
872          if((V138!= VV[4]))goto T277;          if((V108!= VV[370]))goto T202;
873          base[3]= Cnil;          base[3]= Cnil;
874          base[4]= Cnil;          base[4]= Cnil;
875          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
876          bds_unwind1;          bds_unwind1;
877          return;          return;
878          goto T277;          goto T202;
879  T277:;  T202:;
880          if((V138!= VV[369])          if((V108!= VV[357])
881          && (V138!= VV[385])          && (V108!= VV[374])
882          && (V138!= VV[368])          && (V108!= VV[356])
883          && (V138!= VV[41]))goto T280;          && (V108!= VV[29]))goto T205;
884          {object V139;          {object V109;
885          object V140;          object V110;
886          base[3]= (V137);          base[3]= (V107);
887          base[4]= (V136);          base[4]= (V106);
888          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
889          (void) (*Lnk386)();          (void) (*Lnk375)();
890          if(vs_base>=vs_top){vs_top=sup;goto T284;}          if(vs_base>=vs_top){vs_top=sup;goto T209;}
891          V139= vs_base[0];          V109= vs_base[0];
892          vs_base++;          vs_base++;
893          if(vs_base>=vs_top){vs_top=sup;goto T285;}          if(vs_base>=vs_top){vs_top=sup;goto T210;}
894          V140= vs_base[0];          V110= vs_base[0];
895          vs_top=sup;          vs_top=sup;
896          goto T286;          goto T211;
897          goto T284;          goto T209;
898  T284:;  T209:;
899          V139= Cnil;          V109= Cnil;
900          goto T285;          goto T210;
901  T285:;  T210:;
902          V140= Cnil;          V110= Cnil;
903          goto T286;          goto T211;
904  T286:;  T211:;
905          base[3]= (V139);          base[3]= (V109);
906          if((V139)!=Cnil){          if((V109)!=Cnil){
907          base[4]= (V139);          base[4]= (V109);
908          goto T288;}          goto T213;}
909          base[4]= (((V140))==Cnil?Ct:Cnil);          base[4]= (((V110))==Cnil?Ct:Cnil);
910          goto T288;          goto T213;
911  T288:;  T213:;
912          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
913          bds_unwind1;          bds_unwind1;
914          return;}          return;}
915          goto T280;          goto T205;
916  T280:;  T205:;
917          base[4]= (V136);          base[4]= (V106);
918          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
919          (void) (*Lnk383)();          (void) (*Lnk372)();
920          vs_top=sup;          vs_top=sup;
921          base[3]= vs_base[0];          base[3]= vs_base[0];
922          base[5]= (V137);          base[5]= (V107);
923          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
924          (void) (*Lnk383)();          (void) (*Lnk372)();
925          vs_top=sup;          vs_top=sup;
926          base[4]= vs_base[0];          base[4]= vs_base[0];
927          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
928          (void) (*Lnk387)();          (void) (*Lnk376)();
929          bds_unwind1;          bds_unwind1;
930          return;}          return;}
931          }          }
932  }  }
933  /*      local entry for function DO-SATISFIES-DEFTYPE   */  /*      local entry for function DO-SATISFIES-DEFTYPE   */
934    
935  static object LI25(V143,V144)  static object LI25(V113,V114)
936    
937  object V143;object V144;  object V113;object V114;
938  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
939          goto TTL;          goto TTL;
940  TTL:;  TTL:;
941          base[0]= list(4,VV[31],(V143),Cnil,list(2,VV[32],list(2,VV[33],(V144))));          base[0]= list(4,VV[19],(V113),Cnil,list(2,VV[20],list(2,VV[21],(V114))));
942          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
943          Leval();          Leval();
944          vs_top=sup;          vs_top=sup;
945          {object V145 = vs_base[0];          {object V115 = vs_base[0];
946          VMR22(V145)}          VMR22(V115)}
947          base[0]=base[0];          base[0]=base[0];
948          return Cnil;          return Cnil;
949  }  }
950  /*      local entry for function MAKE-TYPE-PREDICATE-NAME       */  /*      local entry for function MAKE-TYPE-PREDICATE-NAME       */
951    
952  static object LI26(object V146,object first,...)  static object LI26(object V116,object first,...)
953  {        {      
954          va_list ap;          va_list ap;
955          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
956          {register object V147;          {register object V117;
957          object V148;          object V118;
958          va_start(ap,first);          va_start(ap,first);
959          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
960          V147= V146;          V117= V116;
961          narg = narg - 1;          narg = narg - 1;
962          if (narg <= 0) goto T294;          if (narg <= 0) goto T219;
963          else {          else {
964          V148= first;}          V118= first;}
965          --narg; goto T295;          --narg; goto T220;
966          goto T294;          goto T219;
967  T294:;  T219:;
968          V148= Cnil;          V118= Cnil;
969          goto T295;          goto T220;
970  T295:;  T220:;
971          base[0]= (V147);          base[0]= (V117);
972          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
973          Lsymbol_package();          Lsymbol_package();
974          vs_top=sup;          vs_top=sup;
975          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
976          goto T298;}          goto T223;}
977          base[1]= Cnil;          base[1]= Cnil;
978          base[2]= VV[34];          base[2]= VV[22];
979          base[3]= (V148);          base[3]= (V118);
980          base[6]= (V147);          base[6]= (V117);
981          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
982          Lsymbol_package();          Lsymbol_package();
983          vs_top=sup;          vs_top=sup;
# Line 1133  T295:; Line 986  T295:;
986          Lpackage_name();          Lpackage_name();
987          vs_top=sup;          vs_top=sup;
988          base[4]= vs_base[0];          base[4]= vs_base[0];
989          base[5]= symbol_name((V147));          base[5]= symbol_name((V117));
990          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
991          Lformat();          Lformat();
992          vs_top=sup;          vs_top=sup;
993          base[0]= vs_base[0];          base[0]= vs_base[0];
994          base[1]= (VV[35]->s.s_dbind);          base[1]= (VV[23]->s.s_dbind);
995          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
996          Lintern();          Lintern();
997          vs_top=sup;          vs_top=sup;
998          {object V149 = vs_base[0];          {object V119 = vs_base[0];
999          VMR23(V149)}          VMR23(V119)}
1000          goto T298;          goto T223;
1001  T298:;  T223:;
1002          base[1]= Cnil;          base[1]= Cnil;
1003          base[2]= VV[36];          base[2]= VV[24];
1004          base[3]= (V148);          base[3]= (V118);
1005          base[4]= symbol_name((V147));          base[4]= symbol_name((V117));
1006          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1007          Lformat();          Lformat();
1008          vs_top=sup;          vs_top=sup;
# Line 1157  T298:; Line 1010  T298:;
1010          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1011          Lmake_symbol();          Lmake_symbol();
1012          vs_top=sup;          vs_top=sup;
1013          {object V150 = vs_base[0];          {object V120 = vs_base[0];
1014          VMR23(V150)}          VMR23(V120)}
1015          va_end(ap);          va_end(ap);
1016          base[0]=base[0];          base[0]=base[0];
1017          return Cnil;}          return Cnil;}
1018          }          }
1019  /*      local entry for function GET-BUILT-IN-CLASS-SYMBOL      */  /*      local entry for function GET-BUILT-IN-CLASS-SYMBOL      */
1020    
1021  static object LI27(V152)  static object LI27(V122)
1022    
1023  object V152;  object V122;
1024  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1025          goto TTL;          goto TTL;
1026  TTL:;{object V153;  TTL:;{object V123;
1027          {register object x= (V152),V155= (VV[37]->s.s_dbind);          {register object x= (V122),V125= (VV[25]->s.s_dbind);
1028          while(V155!=Cnil)          while(V125!=Cnil)
1029          if(EQ(x,V155->c.c_car->c.c_car) &&V155->c.c_car != Cnil){          if(EQ(x,V125->c.c_car->c.c_car) &&V125->c.c_car != Cnil){
1030          V154= (V155->c.c_car);          V124= (V125->c.c_car);
1031          goto T317;          goto T242;
1032          }else V155=V155->c.c_cdr;          }else V125=V125->c.c_cdr;
1033          V154= Cnil;}          V124= Cnil;}
1034          goto T317;          goto T242;
1035  T317:;  T242:;
1036          V153= CMPcadr(V154);          V123= CMPcadr(V124);
1037          if(V153==Cnil)goto T315;          if(V123==Cnil)goto T240;
1038          {object V156 = V153;          {object V126 = V123;
1039          VMR24(V156)}          VMR24(V126)}
1040          goto T315;          goto T240;
1041  T315:;}  T240:;}
1042          {object V157;          {object V127;
1043          base[1]= Cnil;          base[1]= Cnil;
1044          base[2]= VV[38];          base[2]= VV[26];
1045          base[3]= symbol_name((V152));          base[3]= symbol_name((V122));
1046          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1047          Lformat();          Lformat();
1048          vs_top=sup;          vs_top=sup;
1049          base[0]= vs_base[0];          base[0]= vs_base[0];
1050          base[1]= (VV[35]->s.s_dbind);          base[1]= (VV[23]->s.s_dbind);
1051          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1052          Lintern();          Lintern();
1053          vs_top=sup;          vs_top=sup;
1054          V157= vs_base[0];          V127= vs_base[0];
1055          {object V158;          {object V128;
1056          V158= list(2,(V152),(V157));          V128= list(2,(V122),(V127));
1057          (VV[37]->s.s_dbind)= make_cons((V158),(VV[37]->s.s_dbind));}          (VV[25]->s.s_dbind)= make_cons((V128),(VV[25]->s.s_dbind));}
1058          {object V159 = (V157);          {object V129 = (V127);
1059          VMR24(V159)}}          VMR24(V129)}}
1060          base[0]=base[0];          base[0]=base[0];
1061          return Cnil;          return Cnil;
1062  }  }
1063  /*      local entry for function GET-BUILT-IN-WRAPPER-SYMBOL    */  /*      local entry for function GET-BUILT-IN-WRAPPER-SYMBOL    */
1064    
1065  static object LI28(V161)  static object LI28(V131)
1066    
1067  object V161;  object V131;
1068  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1069          goto TTL;          goto TTL;
1070  TTL:;{object V162;  TTL:;{object V132;
1071          {register object x= (V161),V164= (VV[39]->s.s_dbind);          {register object x= (V131),V134= (VV[27]->s.s_dbind);
1072          while(V164!=Cnil)          while(V134!=Cnil)
1073          if(EQ(x,V164->c.c_car->c.c_car) &&V164->c.c_car != Cnil){          if(EQ(x,V134->c.c_car->c.c_car) &&V134->c.c_car != Cnil){
1074          V163= (V164->c.c_car);          V133= (V134->c.c_car);
1075          goto T329;          goto T254;
1076          }else V164=V164->c.c_cdr;          }else V134=V134->c.c_cdr;
1077          V163= Cnil;}          V133= Cnil;}
1078          goto T329;          goto T254;
1079  T329:;  T254:;
1080          V162= CMPcadr(V163);          V132= CMPcadr(V133);
1081          if(V162==Cnil)goto T327;          if(V132==Cnil)goto T252;
1082          {object V165 = V162;          {object V135 = V132;
1083          VMR25(V165)}          VMR25(V135)}
1084          goto T327;          goto T252;
1085  T327:;}  T252:;}
1086          {object V166;          {object V136;
1087          base[1]= Cnil;          base[1]= Cnil;
1088          base[2]= VV[40];          base[2]= VV[28];
1089          base[3]= symbol_name((V161));          base[3]= symbol_name((V131));
1090          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1091          Lformat();          Lformat();
1092          vs_top=sup;          vs_top=sup;
1093          base[0]= vs_base[0];          base[0]= vs_base[0];
1094          base[1]= (VV[35]->s.s_dbind);          base[1]= (VV[23]->s.s_dbind);
1095          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1096          Lintern();          Lintern();
1097          vs_top=sup;          vs_top=sup;
1098          V166= vs_base[0];          V136= vs_base[0];
1099          {object V167;          {object V137;
1100          V167= list(2,(V161),(V166));          V137= list(2,(V131),(V136));
1101          (VV[39]->s.s_dbind)= make_cons((V167),(VV[39]->s.s_dbind));}          (VV[27]->s.s_dbind)= make_cons((V137),(VV[27]->s.s_dbind));}
1102          {object V168 = (V166);          {object V138 = (V136);
1103          VMR25(V168)}}          VMR25(V138)}}
1104          base[0]=base[0];          base[0]=base[0];
1105          return Cnil;          return Cnil;
1106  }  }
1107  /*      local entry for function VARIABLE-CLASS */  /*      local entry for function VARIABLE-CLASS */
1108    
1109  static object LI29(V171,V172)  static object LI29(V141,V142)
1110    
1111  object V171;object V172;  object V141;object V142;
1112  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1113          goto TTL;          goto TTL;
1114  TTL:;  TTL:;
1115          V173= (*(LnkLI388))(VV[41],(V171),(V172));          V143= (*(LnkLI377))(VV[29],(V141),(V142));
1116          {object V174 = CMPcaddr(/* INLINE-ARGS */V173);          {object V144 = CMPcaddr(/* INLINE-ARGS */V143);
1117          VMR26(V174)}          VMR26(V144)}
1118          return Cnil;          return Cnil;
1119  }  }
1120  /*      macro definition for DEFINE-GF-PREDICATE        */  /*      macro definition for DEFINE-GF-PREDICATE        */
# Line 1272  static void L30() Line 1125  static void L30()
1125          vs_check;          vs_check;
1126          check_arg(2);          check_arg(2);
1127          vs_top=sup;          vs_top=sup;
1128          {object V175=base[0]->c.c_cdr;          {object V145=base[0]->c.c_cdr;
1129          if(endp(V175))invalid_macro_call();          if(endp(V145))invalid_macro_call();
1130          base[2]= (V175->c.c_car);          base[2]= (V145->c.c_car);
1131          V175=V175->c.c_cdr;          V145=V145->c.c_cdr;
1132          base[3]= V175;}          base[3]= V145;}
1133          V176= listA(3,VV[43],base[2],VV[44]);          V146= listA(3,VV[31],base[2],VV[32]);
1134          {object V178;          {object V148;
1135          object V179= base[3];          object V149= base[3];
1136          if(V179==Cnil){          if(V149==Cnil){
1137          V177= Cnil;          V147= Cnil;
1138          goto T339;}          goto T264;}
1139          base[4]=V178=MMcons(Cnil,Cnil);          base[4]=V148=MMcons(Cnil,Cnil);
1140          goto T340;          goto T265;
1141  T340:;  T265:;
1142          V181= list(2,VV[45],(V179->c.c_car));          V151= list(2,VV[33],(V149->c.c_car));
1143          (V178->c.c_car)= list(4,VV[43],base[2],make_cons(/* INLINE-ARGS */V181,Cnil),Ct);          (V148->c.c_car)= list(4,VV[31],base[2],make_cons(/* INLINE-ARGS */V151,Cnil),Ct);
1144          if((V179=MMcdr(V179))==Cnil){          if((V149=MMcdr(V149))==Cnil){
1145          V177= base[4];          V147= base[4];
1146          goto T339;}          goto T264;}
1147          V178=MMcdr(V178)=MMcons(Cnil,Cnil);          V148=MMcdr(V148)=MMcons(Cnil,Cnil);
1148          goto T340;}          goto T265;}
1149          goto T339;          goto T264;
1150  T339:;  T264:;
1151          base[4]= listA(3,VV[42],/* INLINE-ARGS */V176,V177);          base[4]= listA(3,VV[30],/* INLINE-ARGS */V146,V147);
1152          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1153          return;          return;
1154  }  }
# Line 1305  static void L31() Line 1158  static void L31()
1158  {register object *base=vs_base;  {register object *base=vs_base;
1159          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1160          vs_check;          vs_check;
1161          {object V182;          {object V152;
1162          check_arg(1);          check_arg(1);
1163          V182=(base[0]);          V152=(base[0]);
1164          vs_top=sup;          vs_top=sup;
1165          goto TTL;          goto TTL;
1166  TTL:;  TTL:;
1167          base[2]= Cnil;          base[2]= Cnil;
1168          base[3]= VV[46];          base[3]= VV[34];
1169          base[6]= (V182);          base[6]= (V152);
1170          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1171          Lsymbol_package();          Lsymbol_package();
1172          vs_top=sup;          vs_top=sup;
# Line 1322  TTL:; Line 1175  TTL:;
1175          Lpackage_name();          Lpackage_name();
1176          vs_top=sup;          vs_top=sup;
1177          base[4]= vs_base[0];          base[4]= vs_base[0];
1178          base[5]= (V182);          base[5]= (V152);
1179          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1180          Lformat();          Lformat();
1181          vs_top=sup;          vs_top=sup;
1182          base[1]= vs_base[0];          base[1]= vs_base[0];
1183          base[2]= (VV[35]->s.s_dbind);          base[2]= (VV[23]->s.s_dbind);
1184          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1185          Lintern();          Lintern();
1186          return;          return;
# Line 1335  TTL:; Line 1188  TTL:;
1188  }  }
1189  /*      local entry for function PLIST-VALUE    */  /*      local entry for function PLIST-VALUE    */
1190    
1191  static object LI32(V185,V186)  static object LI32(V155,V156)
1192    
1193  object V185;object V186;  object V155;object V156;
1194  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1195          goto TTL;          goto TTL;
1196  TTL:;  TTL:;
1197          base[1]= (V185);          base[1]= (V155);
1198          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1199          (void) (*Lnk389)(Lclptr389);          (void) (*Lnk378)(Lclptr378);
1200          vs_top=sup;          vs_top=sup;
1201          base[0]= vs_base[0];          base[0]= vs_base[0];
1202          base[1]= (V186);          base[1]= (V156);
1203          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1204          Lgetf();          Lgetf();
1205          vs_top=sup;          vs_top=sup;
1206          {object V187 = vs_base[0];          {object V157 = vs_base[0];
1207          VMR29(V187)}          VMR29(V157)}
1208          base[0]=base[0];          base[0]=base[0];
1209          return Cnil;          return Cnil;
1210  }  }
1211  /*      local entry for function SETF PCL PLIST-VALUE   */  /*      function definition for G2422   */
1212    
1213  static object LI33(V191,V192,V193)  static void L33()
1214    {register object *base=vs_base;
1215  object V191;object V192;object V193;          register object *sup=base+VM30; VC30
1216  {        VMB30 VMS30 VMV30          vs_check;
1217            {object V158;
1218            object V159;
1219            object V160;
1220            check_arg(3);
1221            V158=(base[0]);
1222            V159=(base[1]);
1223            V160=(base[2]);
1224            vs_top=sup;
1225          goto TTL;          goto TTL;
1226  TTL:;  TTL:;
1227          if(((V191))==Cnil){          if(((V158))==Cnil){
1228          goto T354;}          goto T279;}
1229          {object V197;          {object V164;
1230          base[1]= V192;          base[4]= V159;
1231          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+4)+1;
1232          (void) (*Lnk389)(Lclptr389);          (void) (*Lnk378)(Lclptr378);
1233          vs_top=sup;          vs_top=sup;
1234          base[0]= vs_base[0];          base[3]= vs_base[0];
1235          base[1]= V191;          base[4]= V158;
1236          base[2]= V193;          base[5]= V160;
1237          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+3)+3;
1238          siLput_f();          siLput_f();
1239          vs_top=sup;          vs_top=sup;
1240          V197= vs_base[0];          V164= vs_base[0];
1241          base[0]= (V197);          V165= ({object _tmp=get(VV[378],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[378])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[378])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
1242          base[1]= V192;          V166 = (V164);
1243          vs_top=(vs_base=base+0)+2;          V167 = V159;
1244          (void) (*Lnk390)(Lclptr390);          (void)((
1245          vs_top=sup;          V168 = V165,
1246          {object V199 = V191;          (type_of(V168) == t_sfun ?(*((V168)->sfn.sfn_self)):
1247          VMR30(V199)}}          (fcall.argd=2,type_of(V168)==t_vfun) ?
1248          goto T354;          (*((V168)->sfn.sfn_self)):
1249  T354:;          (fcall.fun=(V168),fcalln))(V166,V167)));
1250          {object V201;          base[3]= V158;
1251          object V202;          vs_top=(vs_base=base+3)+1;
1252          base[1]= V192;          return;}
1253          vs_top=(vs_base=base+1)+1;          goto T279;
1254          (void) (*Lnk389)(Lclptr389);  T279:;
1255            {object V170;
1256            object V171;
1257            base[4]= V159;
1258            vs_top=(vs_base=base+4)+1;
1259            (void) (*Lnk378)(Lclptr378);
1260          vs_top=sup;          vs_top=sup;
1261          base[0]= vs_base[0];          base[3]= vs_base[0];
1262          base[1]= (V193);          base[4]= (V160);
1263          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+3)+2;
1264          siLrem_f();          siLrem_f();
1265          if(vs_base>=vs_top){vs_top=sup;goto T369;}          if(vs_base>=vs_top){vs_top=sup;goto T293;}
1266          V201= vs_base[0];          V170= vs_base[0];
1267          vs_base++;          vs_base++;
1268          if(vs_base>=vs_top){vs_top=sup;goto T370;}          if(vs_base>=vs_top){vs_top=sup;goto T294;}
1269          V202= vs_base[0];          V171= vs_base[0];
1270          vs_top=sup;          vs_top=sup;
1271          goto T371;          goto T295;
1272          goto T369;          goto T293;
1273  T369:;  T293:;
1274          V201= Cnil;          V170= Cnil;
1275          goto T370;          goto T294;
1276  T370:;  T294:;
1277          V202= Cnil;          V171= Cnil;
1278          goto T371;          goto T295;
1279  T371:;  T295:;
1280          base[0]= (V201);          V172= ({object _tmp=get(VV[378],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[378])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[378])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
1281          base[1]= V192;          V173 = (V170);
1282          vs_top=(vs_base=base+0)+2;          V174 = V159;
1283          (void) (*Lnk390)(Lclptr390);          (void)((
1284          vs_top=sup;}          V175 = V172,
1285          {object V204 = Cnil;          (type_of(V175) == t_sfun ?(*((V175)->sfn.sfn_self)):
1286          VMR30(V204)}          (fcall.argd=2,type_of(V175)==t_vfun) ?
1287          base[0]=base[0];          (*((V175)->sfn.sfn_self)):
1288          return Cnil;          (fcall.fun=(V175),fcalln))(V173,V174)));}
1289            base[3]= Cnil;
1290            vs_top=(vs_base=base+3)+1;
1291            return;
1292            }
1293  }  }
1294  /*      function definition for Defclass T2461  */  /*      function definition for Defclass T2430  */
1295    
1296  static void L34()  static void L34()
1297  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1432  static void L34() Line 1302  static void L34()
1302          goto TTL;          goto TTL;
1303  TTL:;  TTL:;
1304          base[0]= Ct;          base[0]= Ct;
1305          base[1]= VV[47];          base[1]= VV[35];
1306          base[2]= Cnil;          base[2]= Cnil;
1307          base[3]= Cnil;          base[3]= Cnil;
1308          base[4]= Cnil;          base[4]= Cnil;
1309          base[5]= Cnil;          base[5]= Cnil;
1310          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1311          return;          return;
1312  }  }
1313  /*      function definition for Defclass SLOT-OBJECT2461        */  /*      function definition for Defclass SLOT-OBJECT2430        */
1314    
1315  static void L35()  static void L35()
1316  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1450  static void L35() Line 1320  static void L35()
1320          vs_top=sup;          vs_top=sup;
1321          goto TTL;          goto TTL;
1322  TTL:;  TTL:;
1323          base[0]= VV[48];          base[0]= VV[36];
1324          base[1]= VV[49];          base[1]= VV[37];
1325          base[2]= VV[50];          base[2]= VV[38];
1326          base[3]= Cnil;          base[3]= Cnil;
1327          base[4]= Cnil;          base[4]= Cnil;
1328          base[5]= Cnil;          base[5]= Cnil;
1329          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1330          return;          return;
1331  }  }
1332  /*      function definition for Defclass STRUCTURE-OBJECT2461   */  /*      function definition for Defclass STRUCTURE-OBJECT2430   */
1333    
1334  static void L36()  static void L36()
1335  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1469  static void L36() Line 1339  static void L36()
1339          vs_top=sup;          vs_top=sup;
1340          goto TTL;          goto TTL;
1341  TTL:;  TTL:;
1342          base[0]= VV[51];          base[0]= VV[39];
1343          base[1]= VV[52];          base[1]= VV[40];
1344          base[2]= VV[53];          base[2]= VV[41];
1345          base[3]= Cnil;          base[3]= Cnil;
1346          base[4]= Cnil;          base[4]= Cnil;
1347          base[5]= Cnil;          base[5]= Cnil;
1348          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1349          return;          return;
1350  }  }
1351  /*      local entry for function STRUCTURE-OBJECT class constructor     */  /*      local entry for function STRUCTURE-OBJECT class constructor     */
# Line 1490  static object LI37(object first,...) Line 1360  static object LI37(object first,...)
1360          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI37key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI37key,first,ap);
1361          goto TTL;          goto TTL;
1362  TTL:;  TTL:;
1363          base[0]= VV[51];          base[0]= VV[39];
1364          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1365          siLmake_structure();          siLmake_structure();
1366          vs_top=sup;          vs_top=sup;
1367          {object V205 = vs_base[0];          {object V176 = vs_base[0];
1368          VMR34(V205)}          VMR34(V176)}
1369          va_end(ap);          va_end(ap);
1370          base[0]=base[0];          base[0]=base[0];
1371          return Cnil;}}          return Cnil;}}
1372  /*      function definition for Defclass STANDARD-OBJECT2461    */  /*      function definition for Defclass STANDARD-OBJECT2430    */
1373    
1374  static void L38()  static void L38()
1375  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1509  static void L38() Line 1379  static void L38()
1379          vs_top=sup;          vs_top=sup;
1380          goto TTL;          goto TTL;
1381  TTL:;  TTL:;
1382          base[0]= VV[54];          base[0]= VV[42];
1383          base[1]= VV[55];          base[1]= VV[43];
1384          base[2]= VV[56];          base[2]= VV[44];
1385          base[3]= Cnil;          base[3]= Cnil;
1386          base[4]= Cnil;          base[4]= Cnil;
1387          base[5]= Cnil;          base[5]= Cnil;
1388          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1389          return;          return;
1390  }  }
1391  /*      function definition for Defclass METAOBJECT2461 */  /*      function definition for Defclass METAOBJECT2430 */
1392    
1393  static void L39()  static void L39()
1394  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1528  static void L39() Line 1398  static void L39()
1398          vs_top=sup;          vs_top=sup;
1399          goto TTL;          goto TTL;
1400  TTL:;  TTL:;
1401          base[0]= VV[57];          base[0]= VV[45];
1402          base[1]= VV[55];          base[1]= VV[43];
1403          base[2]= VV[58];          base[2]= VV[46];
1404          base[3]= Cnil;          base[3]= Cnil;
1405          base[4]= Cnil;          base[4]= Cnil;
1406          base[5]= Cnil;          base[5]= Cnil;
1407          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1408          return;          return;
1409  }  }
1410  /*      function definition for Defclass SPECIALIZER2461        */  /*      function definition for Defclass SPECIALIZER2430        */
1411    
1412  static void L40()  static void L40()
1413  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1547  static void L40() Line 1417  static void L40()
1417          vs_top=sup;          vs_top=sup;
1418          goto TTL;          goto TTL;
1419  TTL:;  TTL:;
1420          base[0]= VV[59];          base[0]= VV[47];
1421          base[1]= VV[55];          base[1]= VV[43];
1422          base[2]= VV[60];          base[2]= VV[48];
1423          base[4]= VV[61];          base[4]= VV[49];
1424          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1425          base[6]= VV[62];          base[6]= VV[50];
1426          base[7]= VV[63];          base[7]= VV[51];
1427          base[8]= VV[64];          base[8]= VV[52];
1428          base[9]= VV[65];          base[9]= VV[53];
1429          base[10]= VV[66];          base[10]= VV[54];
1430          base[11]= Cnil;          base[11]= Cnil;
1431          base[12]= VV[67];          base[12]= VV[55];
1432          base[13]= Cnil;          base[13]= Cnil;
1433          base[14]= VV[68];          base[14]= VV[56];
1434          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1435          LlistA();          LlistA();
1436          vs_top=sup;          vs_top=sup;
1437          V206= vs_base[0];          V177= vs_base[0];
1438          base[3]= make_cons(V206,Cnil);          base[3]= make_cons(V177,Cnil);
1439          base[4]= Cnil;          base[4]= Cnil;
1440          base[5]= Cnil;          base[5]= Cnil;
1441          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1442          return;          return;
1443  }  }
1444  /*      function definition for Defclass DEFINITION-SOURCE-MIXIN2462    */  /*      function definition for Defclass DEFINITION-SOURCE-MIXIN2431    */
1445    
1446  static void L41()  static void L41()
1447  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1581  static void L41() Line 1451  static void L41()
1451          vs_top=sup;          vs_top=sup;
1452          goto TTL;          goto TTL;
1453  TTL:;  TTL:;
1454          {object V207;          {object V178;
1455          V207= VV[393];          V178= VV[381];
1456          base[0]= VV[69];          base[0]= VV[57];
1457          base[1]= VV[55];          base[1]= VV[43];
1458          base[2]= VV[70];          base[2]= VV[58];
1459          base[4]= VV[61];          base[4]= VV[49];
1460          base[5]= (V207);          base[5]= (V178);
1461          base[6]= VV[62];          base[6]= VV[50];
1462          base[7]= VV[71];          base[7]= VV[59];
1463          base[8]= VV[64];          base[8]= VV[52];
1464          base[9]= VV[72];          base[9]= VV[60];
1465          base[10]= VV[66];          base[10]= VV[54];
1466          base[11]= Cnil;          base[11]= Cnil;
1467          base[12]= VV[67];          base[12]= VV[55];
1468          base[13]= VV[73];          base[13]= VV[61];
1469          base[14]= VV[74];          base[14]= VV[62];
1470          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1471          LlistA();          LlistA();
1472          vs_top=sup;          vs_top=sup;
1473          V208= vs_base[0];          V179= vs_base[0];
1474          base[3]= make_cons(V208,Cnil);          base[3]= make_cons(V179,Cnil);
1475          base[4]= Cnil;          base[4]= Cnil;
1476          base[5]= Cnil;          base[5]= Cnil;
1477          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1478          return;}          return;}
1479  }  }
1480  /*      function definition for Defclass PLIST-MIXIN2462        */  /*      function definition for Defclass PLIST-MIXIN2431        */
1481    
1482  static void L42()  static void L42()
1483  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1617  static void L42() Line 1487  static void L42()
1487          vs_top=sup;          vs_top=sup;
1488          goto TTL;          goto TTL;
1489  TTL:;  TTL:;
1490          base[0]= VV[75];          base[0]= VV[63];
1491          base[1]= VV[55];          base[1]= VV[43];
1492          base[2]= VV[76];          base[2]= VV[64];
1493          base[4]= VV[61];          base[4]= VV[49];
1494          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1495          base[6]= VV[62];          base[6]= VV[50];
1496          base[7]= VV[77];          base[7]= VV[65];
1497          base[8]= VV[64];          base[8]= VV[52];
1498          base[9]= VV[78];          base[9]= VV[66];
1499          base[10]= VV[66];          base[10]= VV[54];
1500          base[11]= VV[79];          base[11]= VV[67];
1501          base[12]= VV[67];          base[12]= VV[55];
1502          base[13]= Cnil;          base[13]= Cnil;
1503          base[14]= VV[80];          base[14]= VV[68];
1504          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1505          LlistA();          LlistA();
1506          vs_top=sup;          vs_top=sup;
1507          V209= vs_base[0];          V180= vs_base[0];
1508          base[3]= make_cons(V209,Cnil);          base[3]= make_cons(V180,Cnil);
1509          base[4]= Cnil;          base[4]= Cnil;
1510          base[5]= VV[81];          base[5]= VV[69];
1511          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1512          return;          return;
1513  }  }
1514  /*      function definition for Defclass DOCUMENTATION-MIXIN2462        */  /*      function definition for Defclass DOCUMENTATION-MIXIN2431        */
1515    
1516  static void L43()  static void L43()
1517  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1651  static void L43() Line 1521  static void L43()
1521          vs_top=sup;          vs_top=sup;
1522          goto TTL;          goto TTL;
1523  TTL:;  TTL:;
1524          base[0]= VV[82];          base[0]= VV[70];
1525          base[1]= VV[55];          base[1]= VV[43];
1526          base[2]= VV[83];          base[2]= VV[71];
1527          base[3]= Cnil;          base[3]= Cnil;
1528          base[4]= Cnil;          base[4]= Cnil;
1529          base[5]= Cnil;          base[5]= Cnil;
1530          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1531          return;          return;
1532  }  }
1533  /*      function definition for Defclass DEPENDENT-UPDATE-MIXIN2462     */  /*      function definition for Defclass DEPENDENT-UPDATE-MIXIN2431     */
1534    
1535  static void L44()  static void L44()
1536  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1670  static void L44() Line 1540  static void L44()
1540          vs_top=sup;          vs_top=sup;
1541          goto TTL;          goto TTL;
1542  TTL:;  TTL:;
1543          base[0]= VV[84];          base[0]= VV[72];
1544          base[1]= VV[55];          base[1]= VV[43];
1545          base[2]= VV[85];          base[2]= VV[73];
1546          base[3]= Cnil;          base[3]= Cnil;
1547          base[4]= Cnil;          base[4]= Cnil;
1548          base[5]= Cnil;          base[5]= Cnil;
1549          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1550          return;          return;
1551  }  }
1552  /*      function definition for Defclass CLASS2464      */  /*      function definition for Defclass CLASS2432      */
1553    
1554  static void L45()  static void L45()
1555  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1689  static void L45() Line 1559  static void L45()
1559          vs_top=sup;          vs_top=sup;
1560          goto TTL;          goto TTL;
1561  TTL:;  TTL:;
1562          {object V210;          {object V181;
1563          V210= VV[394];          V181= VV[382];
1564          base[0]= VV[41];          base[0]= VV[29];
1565          base[1]= VV[55];          base[1]= VV[43];
1566          base[2]= VV[86];          base[2]= VV[74];
1567          base[4]= VV[61];          base[4]= VV[49];
1568          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1569          base[6]= VV[62];          base[6]= VV[50];
1570          base[7]= VV[87];          base[7]= VV[75];
1571          base[8]= VV[64];          base[8]= VV[52];
1572          base[9]= VV[88];          base[9]= VV[76];
1573          base[10]= VV[66];          base[10]= VV[54];
1574          base[11]= VV[89];          base[11]= VV[77];
1575          base[12]= VV[67];          base[12]= VV[55];
1576          base[13]= VV[90];          base[13]= VV[78];
1577          base[14]= VV[91];          base[14]= VV[79];
1578          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1579          LlistA();          LlistA();
1580          vs_top=sup;          vs_top=sup;
1581          V211= vs_base[0];          V182= vs_base[0];
1582          base[4]= VV[61];          base[4]= VV[49];
1583          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1584          base[6]= VV[62];          base[6]= VV[50];
1585          base[7]= VV[92];          base[7]= VV[80];
1586          base[8]= VV[64];          base[8]= VV[52];
1587          base[9]= VV[93];          base[9]= VV[81];
1588          base[10]= VV[66];          base[10]= VV[54];
1589          base[11]= Cnil;          base[11]= Cnil;
1590          base[12]= VV[67];          base[12]= VV[55];
1591          base[13]= Cnil;          base[13]= Cnil;
1592          base[14]= VV[94];          base[14]= VV[82];
1593          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1594          LlistA();          LlistA();
1595          vs_top=sup;          vs_top=sup;
1596          V212= vs_base[0];          V183= vs_base[0];
1597          base[4]= VV[61];          base[4]= VV[49];
1598          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1599          base[6]= VV[62];          base[6]= VV[50];
1600          base[7]= VV[95];          base[7]= VV[83];
1601          base[8]= VV[64];          base[8]= VV[52];
1602          base[9]= VV[96];          base[9]= VV[84];
1603          base[10]= VV[66];          base[10]= VV[54];
1604          base[11]= Cnil;          base[11]= Cnil;
1605          base[12]= VV[67];          base[12]= VV[55];
1606          base[13]= Cnil;          base[13]= Cnil;
1607          base[14]= VV[97];          base[14]= VV[85];
1608          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1609          LlistA();          LlistA();
1610          vs_top=sup;          vs_top=sup;
1611          V213= vs_base[0];          V184= vs_base[0];
1612          base[4]= VV[61];          base[4]= VV[49];
1613          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1614          base[6]= VV[62];          base[6]= VV[50];
1615          base[7]= VV[98];          base[7]= VV[86];
1616          base[8]= VV[64];          base[8]= VV[52];
1617          base[9]= VV[99];          base[9]= VV[87];
1618          base[10]= VV[66];          base[10]= VV[54];
1619          base[11]= Cnil;          base[11]= Cnil;
1620          base[12]= VV[67];          base[12]= VV[55];
1621          base[13]= Cnil;          base[13]= Cnil;
1622          base[14]= VV[100];          base[14]= VV[88];
1623          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1624          LlistA();          LlistA();
1625          vs_top=sup;          vs_top=sup;
1626          V214= vs_base[0];          V185= vs_base[0];
1627          base[4]= VV[61];          base[4]= VV[49];
1628          base[5]= (V210);          base[5]= (V181);
1629          base[6]= VV[62];          base[6]= VV[50];
1630          base[7]= VV[101];          base[7]= VV[89];
1631          base[8]= VV[64];          base[8]= VV[52];
1632          base[9]= Cnil;          base[9]= Cnil;
1633          base[10]= VV[66];          base[10]= VV[54];
1634          base[11]= Cnil;          base[11]= Cnil;
1635          base[12]= VV[67];          base[12]= VV[55];
1636          base[13]= Cnil;          base[13]= Cnil;
1637          base[14]= VV[102];          base[14]= VV[90];
1638          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1639          LlistA();          LlistA();
1640          vs_top=sup;          vs_top=sup;
1641          V215= vs_base[0];          V186= vs_base[0];
1642          base[4]= VV[61];          base[4]= VV[49];
1643          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1644          base[6]= VV[62];          base[6]= VV[50];
1645          base[7]= VV[103];          base[7]= VV[91];
1646          base[8]= VV[64];          base[8]= VV[52];
1647          base[9]= VV[104];          base[9]= VV[92];
1648          base[10]= VV[66];          base[10]= VV[54];
1649          base[11]= Cnil;          base[11]= Cnil;
1650          base[12]= VV[67];          base[12]= VV[55];
1651          base[13]= Cnil;          base[13]= Cnil;
1652          base[14]= VV[105];          base[14]= VV[93];
1653          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1654          LlistA();          LlistA();
1655          vs_top=sup;          vs_top=sup;
1656          V216= vs_base[0];          V187= vs_base[0];
1657          base[3]= list(6,V211,V212,V213,V214,V215,V216);          base[3]= list(6,V182,V183,V184,V185,V186,V187);
1658          base[4]= Cnil;          base[4]= Cnil;
1659          base[5]= VV[106];          base[5]= VV[94];
1660          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1661          return;}          return;}
1662  }  }
1663  /*      function definition for Defclass PCL-CLASS2465  */  /*      function definition for Defclass PCL-CLASS2432  */
1664    
1665  static void L46()  static void L46()
1666  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1800  static void L46() Line 1670  static void L46()
1670          vs_top=sup;          vs_top=sup;
1671          goto TTL;          goto TTL;
1672  TTL:;  TTL:;
1673          base[0]= VV[107];          base[0]= VV[95];
1674          base[1]= VV[55];          base[1]= VV[43];
1675          base[2]= VV[108];          base[2]= VV[96];
1676          V217= listA(9,VV[62],VV[109],VV[64],VV[110],VV[66],Cnil,VV[67],Cnil,Cnil);          V188= listA(9,VV[50],VV[97],VV[52],VV[98],VV[54],Cnil,VV[55],Cnil,Cnil);
1677          base[4]= VV[61];          base[4]= VV[49];
1678          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1679          base[6]= VV[62];          base[6]= VV[50];
1680          base[7]= VV[111];          base[7]= VV[99];
1681          base[8]= VV[64];          base[8]= VV[52];
1682          base[9]= VV[112];          base[9]= VV[100];
1683          base[10]= VV[66];          base[10]= VV[54];
1684          base[11]= Cnil;          base[11]= Cnil;
1685          base[12]= VV[67];          base[12]= VV[55];
1686          base[13]= Cnil;          base[13]= Cnil;
1687          base[14]= VV[113];          base[14]= VV[101];
1688          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1689          LlistA();          LlistA();
1690          vs_top=sup;          vs_top=sup;
1691          V218= vs_base[0];          V189= vs_base[0];
1692          base[4]= VV[61];          base[4]= VV[49];
1693          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1694          base[6]= VV[62];          base[6]= VV[50];
1695          base[7]= VV[114];          base[7]= VV[102];
1696          base[8]= VV[64];          base[8]= VV[52];
1697          base[9]= VV[115];          base[9]= VV[103];
1698          base[10]= VV[66];          base[10]= VV[54];
1699          base[11]= VV[116];          base[11]= VV[104];
1700          base[12]= VV[67];          base[12]= VV[55];
1701          base[13]= Cnil;          base[13]= Cnil;
1702          base[14]= VV[117];          base[14]= VV[105];
1703          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1704          LlistA();          LlistA();
1705          vs_top=sup;          vs_top=sup;
1706          V219= vs_base[0];          V190= vs_base[0];
1707          base[4]= VV[61];          base[4]= VV[49];
1708          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1709          base[6]= VV[62];          base[6]= VV[50];
1710          base[7]= VV[118];          base[7]= VV[106];
1711          base[8]= VV[64];          base[8]= VV[52];
1712          base[9]= VV[119];          base[9]= VV[107];
1713          base[10]= VV[66];          base[10]= VV[54];
1714          base[11]= Cnil;          base[11]= Cnil;
1715          base[12]= VV[67];          base[12]= VV[55];
1716          base[13]= Cnil;          base[13]= Cnil;
1717          base[14]= VV[120];          base[14]= VV[108];
1718          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1719          LlistA();          LlistA();
1720          vs_top=sup;          vs_top=sup;
1721          V220= vs_base[0];          V191= vs_base[0];
1722          base[4]= VV[61];          base[4]= VV[49];
1723          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1724          base[6]= VV[62];          base[6]= VV[50];
1725          base[7]= VV[121];          base[7]= VV[109];
1726          base[8]= VV[64];          base[8]= VV[52];
1727          base[9]= VV[122];          base[9]= VV[110];
1728          base[10]= VV[66];          base[10]= VV[54];
1729          base[11]= Cnil;          base[11]= Cnil;
1730          base[12]= VV[67];          base[12]= VV[55];
1731          base[13]= Cnil;          base[13]= Cnil;
1732          base[14]= VV[123];          base[14]= VV[111];
1733          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1734          LlistA();          LlistA();
1735          vs_top=sup;          vs_top=sup;
1736          V221= vs_base[0];          V192= vs_base[0];
1737          base[3]= list(5,/* INLINE-ARGS */V217,V218,V219,V220,V221);          base[3]= list(5,/* INLINE-ARGS */V188,V189,V190,V191,V192);
1738          base[4]= Cnil;          base[4]= Cnil;
1739          base[5]= VV[124];          base[5]= VV[112];
1740          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1741          return;          return;
1742  }  }
1743  /*      function definition for Defclass SLOT-CLASS2468 */  /*      function definition for Defclass SLOT-CLASS2432 */
1744    
1745  static void L47()  static void L47()
1746  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1880  static void L47() Line 1750  static void L47()
1750          vs_top=sup;          vs_top=sup;
1751          goto TTL;          goto TTL;
1752  TTL:;  TTL:;
1753          base[0]= VV[49];          base[0]= VV[37];
1754          base[1]= VV[55];          base[1]= VV[43];
1755          base[2]= VV[125];          base[2]= VV[113];
1756          base[4]= VV[61];          base[4]= VV[49];
1757          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1758          base[6]= VV[62];          base[6]= VV[50];
1759          base[7]= VV[126];          base[7]= VV[114];
1760          base[8]= VV[64];          base[8]= VV[52];
1761          base[9]= VV[127];          base[9]= VV[115];
1762          base[10]= VV[66];          base[10]= VV[54];
1763          base[11]= VV[128];          base[11]= VV[116];
1764          base[12]= VV[67];          base[12]= VV[55];
1765          base[13]= Cnil;          base[13]= Cnil;
1766          base[14]= VV[129];          base[14]= VV[117];
1767          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1768          LlistA();          LlistA();
1769          vs_top=sup;          vs_top=sup;
1770          V222= vs_base[0];          V193= vs_base[0];
1771          base[4]= VV[61];          base[4]= VV[49];
1772          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1773          base[6]= VV[62];          base[6]= VV[50];
1774          base[7]= VV[130];          base[7]= VV[118];
1775          base[8]= VV[64];          base[8]= VV[52];
1776          base[9]= VV[131];          base[9]= VV[119];
1777          base[10]= VV[66];          base[10]= VV[54];
1778          base[11]= VV[132];          base[11]= VV[120];
1779          base[12]= VV[67];          base[12]= VV[55];
1780          base[13]= Cnil;          base[13]= Cnil;
1781          base[14]= VV[133];          base[14]= VV[121];
1782          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1783          LlistA();          LlistA();
1784          vs_top=sup;          vs_top=sup;
1785          V223= vs_base[0];          V194= vs_base[0];
1786          base[4]= VV[61];          base[4]= VV[49];
1787          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1788          base[6]= VV[62];          base[6]= VV[50];
1789          base[7]= VV[134];          base[7]= VV[122];
1790          base[8]= VV[64];          base[8]= VV[52];
1791          base[9]= VV[135];          base[9]= VV[123];
1792          base[10]= VV[66];          base[10]= VV[54];
1793          base[11]= VV[136];          base[11]= VV[124];
1794          base[12]= VV[67];          base[12]= VV[55];
1795          base[13]= Cnil;          base[13]= Cnil;
1796          base[14]= VV[137];          base[14]= VV[125];
1797          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1798          LlistA();          LlistA();
1799          vs_top=sup;          vs_top=sup;
1800          V224= vs_base[0];          V195= vs_base[0];
1801          base[3]= list(3,V222,V223,V224);          base[3]= list(3,V193,V194,V195);
1802          base[4]= Cnil;          base[4]= Cnil;
1803          base[5]= VV[138];          base[5]= VV[126];
1804          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1805          return;          return;
1806  }  }
1807  /*      function definition for Defclass STD-CLASS2468  */  /*      function definition for Defclass STD-CLASS2432  */
1808    
1809  static void L48()  static void L48()
1810  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1944  static void L48() Line 1814  static void L48()
1814          vs_top=sup;          vs_top=sup;
1815          goto TTL;          goto TTL;
1816  TTL:;  TTL:;
1817          base[0]= VV[139];          base[0]= VV[127];
1818          base[1]= VV[55];          base[1]= VV[43];
1819          base[2]= VV[140];          base[2]= VV[128];
1820          base[3]= Cnil;          base[3]= Cnil;
1821          base[4]= Cnil;          base[4]= Cnil;
1822          base[5]= Cnil;          base[5]= Cnil;
1823          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1824          return;          return;
1825  }  }
1826  /*      function definition for Defclass STANDARD-CLASS2468     */  /*      function definition for Defclass STANDARD-CLASS2432     */
1827    
1828  static void L49()  static void L49()
1829  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1963  static void L49() Line 1833  static void L49()
1833          vs_top=sup;          vs_top=sup;
1834          goto TTL;          goto TTL;
1835  TTL:;  TTL:;
1836          base[0]= VV[55];          base[0]= VV[43];
1837          base[1]= VV[55];          base[1]= VV[43];
1838          base[2]= VV[141];          base[2]= VV[129];
1839          base[3]= Cnil;          base[3]= Cnil;
1840          base[4]= Cnil;          base[4]= Cnil;
1841          base[5]= Cnil;          base[5]= Cnil;
1842          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1843          return;          return;
1844  }  }
1845  /*      function definition for Defclass FUNCALLABLE-STANDARD-CLASS2468 */  /*      function definition for Defclass FUNCALLABLE-STANDARD-CLASS2432 */
1846    
1847  static void L50()  static void L50()
1848  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1982  static void L50() Line 1852  static void L50()
1852          vs_top=sup;          vs_top=sup;
1853          goto TTL;          goto TTL;
1854  TTL:;  TTL:;
1855          base[0]= VV[142];          base[0]= VV[130];
1856          base[1]= VV[55];          base[1]= VV[43];
1857          base[2]= VV[143];          base[2]= VV[131];
1858          base[3]= Cnil;          base[3]= Cnil;
1859          base[4]= Cnil;          base[4]= Cnil;
1860          base[5]= Cnil;          base[5]= Cnil;
1861          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1862          return;          return;
1863  }  }
1864  /*      function definition for Defclass FORWARD-REFERENCED-CLASS2468   */  /*      function definition for Defclass FORWARD-REFERENCED-CLASS2432   */
1865    
1866  static void L51()  static void L51()
1867  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2001  static void L51() Line 1871  static void L51()
1871          vs_top=sup;          vs_top=sup;
1872          goto TTL;          goto TTL;
1873  TTL:;  TTL:;
1874          base[0]= VV[144];          base[0]= VV[132];
1875          base[1]= VV[55];          base[1]= VV[43];
1876          base[2]= VV[145];          base[2]= VV[133];
1877          base[3]= Cnil;          base[3]= Cnil;
1878          base[4]= Cnil;          base[4]= Cnil;
1879          base[5]= Cnil;          base[5]= Cnil;
1880          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1881          return;          return;
1882  }  }
1883  /*      function definition for Defclass BUILT-IN-CLASS2468     */  /*      function definition for Defclass BUILT-IN-CLASS2432     */
1884    
1885  static void L52()  static void L52()
1886  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2020  static void L52() Line 1890  static void L52()
1890          vs_top=sup;          vs_top=sup;
1891          goto TTL;          goto TTL;
1892  TTL:;  TTL:;
1893          base[0]= VV[47];          base[0]= VV[35];
1894          base[1]= VV[55];          base[1]= VV[43];
1895          base[2]= VV[146];          base[2]= VV[134];
1896          base[3]= Cnil;          base[3]= Cnil;
1897          base[4]= Cnil;          base[4]= Cnil;
1898          base[5]= Cnil;          base[5]= Cnil;
1899          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1900          return;          return;
1901  }  }
1902  /*      function definition for Defclass STRUCTURE-CLASS2470    */  /*      function definition for Defclass STRUCTURE-CLASS2432    */
1903    
1904  static void L53()  static void L53()
1905  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2039  static void L53() Line 1909  static void L53()
1909          vs_top=sup;          vs_top=sup;
1910          goto TTL;          goto TTL;
1911  TTL:;  TTL:;
1912          base[0]= VV[52];          base[0]= VV[40];
1913          base[1]= VV[55];          base[1]= VV[43];
1914          base[2]= VV[147];          base[2]= VV[135];
1915          base[4]= VV[61];          base[4]= VV[49];
1916          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1917          base[6]= VV[62];          base[6]= VV[50];
1918          base[7]= VV[148];          base[7]= VV[136];
1919          base[8]= VV[64];          base[8]= VV[52];
1920          base[9]= VV[149];          base[9]= VV[137];
1921          base[10]= VV[66];          base[10]= VV[54];
1922          base[11]= VV[150];          base[11]= VV[138];
1923          base[12]= VV[67];          base[12]= VV[55];
1924          base[13]= Cnil;          base[13]= Cnil;
1925          base[14]= VV[151];          base[14]= VV[139];
1926          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1927          LlistA();          LlistA();
1928          vs_top=sup;          vs_top=sup;
1929          V225= vs_base[0];          V196= vs_base[0];
1930          base[4]= VV[61];          base[4]= VV[49];
1931          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1932          base[6]= VV[62];          base[6]= VV[50];
1933          base[7]= VV[152];          base[7]= VV[140];
1934          base[8]= VV[64];          base[8]= VV[52];
1935          base[9]= VV[153];          base[9]= VV[141];
1936          base[10]= VV[66];          base[10]= VV[54];
1937          base[11]= VV[154];          base[11]= VV[142];
1938          base[12]= VV[67];          base[12]= VV[55];
1939          base[13]= Cnil;          base[13]= Cnil;
1940          base[14]= VV[155];          base[14]= VV[143];
1941          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1942          LlistA();          LlistA();
1943          vs_top=sup;          vs_top=sup;
1944          V226= vs_base[0];          V197= vs_base[0];
1945          base[4]= VV[61];          base[4]= VV[49];
1946          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
1947          base[6]= VV[62];          base[6]= VV[50];
1948          base[7]= VV[156];          base[7]= VV[144];
1949          base[8]= VV[64];          base[8]= VV[52];
1950          base[9]= Cnil;          base[9]= Cnil;
1951          base[10]= VV[66];          base[10]= VV[54];
1952          base[11]= Cnil;          base[11]= Cnil;
1953          base[12]= VV[67];          base[12]= VV[55];
1954          base[13]= VV[157];          base[13]= VV[145];
1955          base[14]= VV[158];          base[14]= VV[146];
1956          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1957          LlistA();          LlistA();
1958          vs_top=sup;          vs_top=sup;
1959          V227= vs_base[0];          V198= vs_base[0];
1960          base[3]= list(3,V225,V226,V227);          base[3]= list(3,V196,V197,V198);
1961          base[4]= Cnil;          base[4]= Cnil;
1962          base[5]= VV[159];          base[5]= VV[147];
1963          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1964          return;          return;
1965  }  }
1966  /*      function definition for Defclass SPECIALIZER-WITH-OBJECT2470    */  /*      function definition for Defclass SPECIALIZER-WITH-OBJECT2432    */
1967    
1968  static void L54()  static void L54()
1969  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2103  static void L54() Line 1973  static void L54()
1973          vs_top=sup;          vs_top=sup;
1974          goto TTL;          goto TTL;
1975  TTL:;  TTL:;
1976          base[0]= VV[160];          base[0]= VV[148];
1977          base[1]= VV[55];          base[1]= VV[43];
1978          base[2]= VV[161];          base[2]= VV[149];
1979          base[3]= Cnil;          base[3]= Cnil;
1980          base[4]= Cnil;          base[4]= Cnil;
1981          base[5]= Cnil;          base[5]= Cnil;
1982          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
1983          return;          return;
1984  }  }
1985  /*      function definition for Defclass EXACT-CLASS-SPECIALIZER2470    */  /*      function definition for Defclass EXACT-CLASS-SPECIALIZER2432    */
1986    
1987  static void L55()  static void L55()
1988  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2122  static void L55() Line 1992  static void L55()
1992          vs_top=sup;          vs_top=sup;
1993          goto TTL;          goto TTL;
1994  TTL:;  TTL:;
1995          base[0]= VV[162];          base[0]= VV[150];
1996          base[1]= VV[55];          base[1]= VV[43];
1997          base[2]= VV[163];          base[2]= VV[151];
1998          base[3]= Cnil;          base[3]= Cnil;
1999          base[4]= Cnil;          base[4]= Cnil;
2000          base[5]= Cnil;          base[5]= Cnil;
2001          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2002          return;          return;
2003  }  }
2004  /*      function definition for Defclass CLASS-EQ-SPECIALIZER2470       */  /*      function definition for Defclass CLASS-EQ-SPECIALIZER2432       */
2005    
2006  static void L56()  static void L56()
2007  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2141  static void L56() Line 2011  static void L56()
2011          vs_top=sup;          vs_top=sup;
2012          goto TTL;          goto TTL;
2013  TTL:;  TTL:;
2014          base[0]= VV[92];          base[0]= VV[80];
2015          base[1]= VV[55];          base[1]= VV[43];
2016          base[2]= VV[164];          base[2]= VV[152];
2017          V228= listA(9,VV[62],VV[165],VV[64],VV[166],VV[66],Cnil,VV[67],VV[167],Cnil);          V199= listA(9,VV[50],VV[153],VV[52],VV[154],VV[54],Cnil,VV[55],VV[155],Cnil);
2018          base[3]= make_cons(/* INLINE-ARGS */V228,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V199,Cnil);
2019          base[4]= Cnil;          base[4]= Cnil;
2020          base[5]= Cnil;          base[5]= Cnil;
2021          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2022          return;          return;
2023  }  }
2024  /*      function definition for Defclass CLASS-PROTOTYPE-SPECIALIZER2470        */  /*      function definition for Defclass CLASS-PROTOTYPE-SPECIALIZER2432        */
2025    
2026  static void L57()  static void L57()
2027  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2161  static void L57() Line 2031  static void L57()
2031          vs_top=sup;          vs_top=sup;
2032          goto TTL;          goto TTL;
2033  TTL:;  TTL:;
2034          base[0]= VV[17];          base[0]= VV[5];
2035          base[1]= VV[55];          base[1]= VV[43];
2036          base[2]= VV[168];          base[2]= VV[156];
2037          V229= listA(9,VV[62],VV[165],VV[64],VV[169],VV[66],Cnil,VV[67],VV[170],Cnil);          V200= listA(9,VV[50],VV[153],VV[52],VV[157],VV[54],Cnil,VV[55],VV[158],Cnil);
2038          base[3]= make_cons(/* INLINE-ARGS */V229,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V200,Cnil);
2039          base[4]= Cnil;          base[4]= Cnil;
2040          base[5]= Cnil;          base[5]= Cnil;
2041          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2042          return;          return;
2043  }  }
2044  /*      function definition for Defclass EQL-SPECIALIZER2470    */  /*      function definition for Defclass EQL-SPECIALIZER2432    */
2045    
2046  static void L58()  static void L58()
2047  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2181  static void L58() Line 2051  static void L58()
2051          vs_top=sup;          vs_top=sup;
2052          goto TTL;          goto TTL;
2053  TTL:;  TTL:;
2054          base[0]= VV[171];          base[0]= VV[159];
2055          base[1]= VV[55];          base[1]= VV[43];
2056          base[2]= VV[172];          base[2]= VV[160];
2057          V230= listA(9,VV[62],VV[165],VV[64],VV[173],VV[66],Cnil,VV[67],VV[174],Cnil);          V201= listA(9,VV[50],VV[153],VV[52],VV[161],VV[54],Cnil,VV[55],VV[162],Cnil);
2058          base[3]= make_cons(/* INLINE-ARGS */V230,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V201,Cnil);
2059          base[4]= Cnil;          base[4]= Cnil;
2060          base[5]= Cnil;          base[5]= Cnil;
2061          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2062          return;          return;
2063  }  }
2064  /*      local entry for function INTERN-EQL-SPECIALIZER */  /*      local entry for function INTERN-EQL-SPECIALIZER */
2065    
2066  static object LI59(V232)  static object LI59(V203)
2067    
2068  object V232;  object V203;
2069  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2070          goto TTL;          goto TTL;
2071  TTL:;{object V233;  TTL:;{object V204;
2072          base[0]= (V232);          base[0]= (V203);
2073          base[1]= (VV[175]->s.s_dbind);          base[1]= (VV[163]->s.s_dbind);
2074          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2075          Lgethash();          Lgethash();
2076          vs_top=sup;          vs_top=sup;
2077          V233= vs_base[0];          V204= vs_base[0];
2078          if(V233==Cnil)goto T750;          if(V204==Cnil)goto T673;
2079          {object V234 = V233;          {object V205 = V204;
2080          VMR56(V234)}          VMR56(V205)}
2081          goto T750;          goto T673;
2082  T750:;}  T673:;}
2083          {object V236;          {object V207;
2084          object V237;          object V208;
2085          V236= (VV[175]->s.s_dbind);          V207= (VV[163]->s.s_dbind);
2086          base[1]= VV[171];          base[1]= VV[159];
2087          base[2]= VV[18];          base[2]= VV[6];
2088          base[3]= (V232);          base[3]= (V203);
2089          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2090          (void) (*Lnk367)(Lclptr367);          (void) (*Lnk355)(Lclptr355);
2091          vs_top=sup;          vs_top=sup;
2092          V237= vs_base[0];          V208= vs_base[0];
2093          base[1]= V232;          base[1]= V203;
2094          base[2]= (V236);          base[2]= (V207);
2095          base[3]= (V237);          base[3]= (V208);
2096          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2097          siLhash_set();          siLhash_set();
2098          vs_top=sup;          vs_top=sup;
2099          {object V238 = vs_base[0];          {object V209 = vs_base[0];
2100          VMR56(V238)}}          VMR56(V209)}}
2101          base[0]=base[0];          base[0]=base[0];
2102          return Cnil;          return Cnil;
2103  }  }
2104  /*      function definition for Defclass SLOT-DEFINITION2483    */  /*      function definition for Defclass SLOT-DEFINITION2437    */
2105    
2106  static void L60()  static void L60()
2107  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2241  static void L60() Line 2111  static void L60()
2111          vs_top=sup;          vs_top=sup;
2112          goto TTL;          goto TTL;
2113  TTL:;  TTL:;
2114          {object V239;          {object V210;
2115          V239= VV[395];          V210= VV[383];
2116          base[0]= VV[177];          base[0]= VV[165];
2117          base[1]= VV[55];          base[1]= VV[43];
2118          base[2]= VV[178];          base[2]= VV[166];
2119          base[4]= VV[61];          base[4]= VV[49];
2120          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2121          base[6]= VV[62];          base[6]= VV[50];
2122          base[7]= VV[87];          base[7]= VV[75];
2123          base[8]= VV[64];          base[8]= VV[52];
2124          base[9]= VV[179];          base[9]= VV[167];
2125          base[10]= VV[66];          base[10]= VV[54];
2126          base[11]= VV[180];          base[11]= VV[168];
2127          base[12]= VV[67];          base[12]= VV[55];
2128          base[13]= VV[181];          base[13]= VV[169];
2129          base[14]= VV[182];          base[14]= VV[170];
2130          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2131          LlistA();          LlistA();
2132          vs_top=sup;          vs_top=sup;
2133          V240= vs_base[0];          V211= vs_base[0];
2134          base[4]= VV[61];          base[4]= VV[49];
2135          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2136          base[6]= VV[62];          base[6]= VV[50];
2137          base[7]= VV[183];          base[7]= VV[171];
2138          base[8]= VV[64];          base[8]= VV[52];
2139          base[9]= VV[184];          base[9]= VV[172];
2140          base[10]= VV[66];          base[10]= VV[54];
2141          base[11]= VV[185];          base[11]= VV[173];
2142          base[12]= VV[67];          base[12]= VV[55];
2143          base[13]= VV[186];          base[13]= VV[174];
2144          base[14]= VV[187];          base[14]= VV[175];
2145          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2146          LlistA();          LlistA();
2147          vs_top=sup;          vs_top=sup;
2148          V241= vs_base[0];          V212= vs_base[0];
2149          base[4]= VV[61];          base[4]= VV[49];
2150          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2151          base[6]= VV[62];          base[6]= VV[50];
2152          base[7]= VV[188];          base[7]= VV[176];
2153          base[8]= VV[64];          base[8]= VV[52];
2154          base[9]= VV[189];          base[9]= VV[177];
2155          base[10]= VV[66];          base[10]= VV[54];
2156          base[11]= VV[190];          base[11]= VV[178];
2157          base[12]= VV[67];          base[12]= VV[55];
2158          base[13]= VV[191];          base[13]= VV[179];
2159          base[14]= VV[192];          base[14]= VV[180];
2160          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2161          LlistA();          LlistA();
2162          vs_top=sup;          vs_top=sup;
2163          V242= vs_base[0];          V213= vs_base[0];
2164          base[4]= VV[61];          base[4]= VV[49];
2165          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2166          base[6]= VV[62];          base[6]= VV[50];
2167          base[7]= VV[193];          base[7]= VV[181];
2168          base[8]= VV[64];          base[8]= VV[52];
2169          base[9]= VV[194];          base[9]= VV[182];
2170          base[10]= VV[66];          base[10]= VV[54];
2171          base[11]= VV[195];          base[11]= VV[183];
2172          base[12]= VV[67];          base[12]= VV[55];
2173          base[13]= VV[196];          base[13]= VV[184];
2174          base[14]= VV[197];          base[14]= VV[185];
2175          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2176          LlistA();          LlistA();
2177          vs_top=sup;          vs_top=sup;
2178          V243= vs_base[0];          V214= vs_base[0];
2179          base[4]= VV[61];          base[4]= VV[49];
2180          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2181          base[6]= VV[62];          base[6]= VV[50];
2182          base[7]= VV[198];          base[7]= VV[186];
2183          base[8]= VV[64];          base[8]= VV[52];
2184          base[9]= VV[199];          base[9]= VV[187];
2185          base[10]= VV[66];          base[10]= VV[54];
2186          base[11]= VV[200];          base[11]= VV[188];
2187          base[12]= VV[67];          base[12]= VV[55];
2188          base[13]= VV[201];          base[13]= VV[189];
2189          base[14]= VV[202];          base[14]= VV[190];
2190          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2191          LlistA();          LlistA();
2192          vs_top=sup;          vs_top=sup;
2193          V244= vs_base[0];          V215= vs_base[0];
2194          base[4]= VV[61];          base[4]= VV[49];
2195          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2196          base[6]= VV[62];          base[6]= VV[50];
2197          base[7]= VV[203];          base[7]= VV[191];
2198          base[8]= VV[64];          base[8]= VV[52];
2199          base[9]= VV[204];          base[9]= VV[192];
2200          base[10]= VV[66];          base[10]= VV[54];
2201          base[11]= VV[205];          base[11]= VV[193];
2202          base[12]= VV[67];          base[12]= VV[55];
2203          base[13]= VV[206];          base[13]= VV[194];
2204          base[14]= VV[207];          base[14]= VV[195];
2205          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2206          LlistA();          LlistA();
2207          vs_top=sup;          vs_top=sup;
2208          V245= vs_base[0];          V216= vs_base[0];
2209          base[4]= VV[61];          base[4]= VV[49];
2210          base[5]= (VV[396]->s.s_gfdef);          base[5]= (VV[384]->s.s_gfdef);
2211          base[6]= VV[62];          base[6]= VV[50];
2212          base[7]= VV[63];          base[7]= VV[51];
2213          base[8]= VV[64];          base[8]= VV[52];
2214          base[9]= VV[208];          base[9]= VV[196];
2215          base[10]= VV[66];          base[10]= VV[54];
2216          base[11]= VV[209];          base[11]= VV[197];
2217          base[12]= VV[67];          base[12]= VV[55];
2218          base[13]= VV[210];          base[13]= VV[198];
2219          base[14]= VV[211];          base[14]= VV[199];
2220          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2221          LlistA();          LlistA();
2222          vs_top=sup;          vs_top=sup;
2223          V246= vs_base[0];          V217= vs_base[0];
2224          base[4]= VV[61];          base[4]= VV[49];
2225          base[5]= (V239);          base[5]= (V210);
2226          base[6]= VV[62];          base[6]= VV[50];
2227          base[7]= VV[212];          base[7]= VV[200];
2228          base[8]= VV[64];          base[8]= VV[52];
2229          base[9]= Cnil;          base[9]= Cnil;
2230          base[10]= VV[66];          base[10]= VV[54];
2231          base[11]= Cnil;          base[11]= Cnil;
2232          base[12]= VV[67];          base[12]= VV[55];
2233          base[13]= VV[213];          base[13]= VV[201];
2234          base[14]= VV[214];          base[14]= VV[202];
2235          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2236          LlistA();          LlistA();
2237          vs_top=sup;          vs_top=sup;
2238          V247= vs_base[0];          V218= vs_base[0];
2239          base[4]= VV[61];          base[4]= VV[49];
2240          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2241          base[6]= VV[62];          base[6]= VV[50];
2242          base[7]= VV[41];          base[7]= VV[29];
2243          base[8]= VV[64];          base[8]= VV[52];
2244          base[9]= VV[215];          base[9]= VV[203];
2245          base[10]= VV[66];          base[10]= VV[54];
2246          base[11]= VV[216];          base[11]= VV[204];
2247          base[12]= VV[67];          base[12]= VV[55];
2248          base[13]= VV[217];          base[13]= VV[205];
2249          base[14]= VV[218];          base[14]= VV[206];
2250          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2251          LlistA();          LlistA();
2252          vs_top=sup;          vs_top=sup;
2253          V248= vs_base[0];          V219= vs_base[0];
2254          base[3]= list(9,V240,V241,V242,V243,V244,V245,V246,V247,V248);          base[3]= list(9,V211,V212,V213,V214,V215,V216,V217,V218,V219);
2255          base[4]= Cnil;          base[4]= Cnil;
2256          base[5]= VV[219];          base[5]= VV[207];
2257          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2258          return;}          return;}
2259  }  }
2260  /*      function definition for Defclass STANDARD-SLOT-DEFINITION2485   */  /*      function definition for Defclass STANDARD-SLOT-DEFINITION2438   */
2261    
2262  static void L61()  static void L61()
2263  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2397  static void L61() Line 2267  static void L61()
2267          vs_top=sup;          vs_top=sup;
2268          goto TTL;          goto TTL;
2269  TTL:;  TTL:;
2270          {object V249;          {object V220;
2271          V249= VV[397];          V220= VV[385];
2272          base[0]= VV[221];          base[0]= VV[209];
2273          base[1]= VV[55];          base[1]= VV[43];
2274          base[2]= VV[222];          base[2]= VV[210];
2275          base[4]= VV[61];          base[4]= VV[49];
2276          base[5]= (V249);          base[5]= (V220);
2277          base[6]= VV[62];          base[6]= VV[50];
2278          base[7]= VV[223];          base[7]= VV[211];
2279          base[8]= VV[64];          base[8]= VV[52];
2280          base[9]= VV[224];          base[9]= VV[212];
2281          base[10]= VV[66];          base[10]= VV[54];
2282          base[11]= VV[225];          base[11]= VV[213];
2283          base[12]= VV[67];          base[12]= VV[55];
2284          base[13]= VV[226];          base[13]= VV[214];
2285          base[14]= VV[227];          base[14]= VV[215];
2286          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2287          LlistA();          LlistA();
2288          vs_top=sup;          vs_top=sup;
2289          V250= vs_base[0];          V221= vs_base[0];
2290          base[3]= make_cons(V250,Cnil);          base[3]= make_cons(V221,Cnil);
2291          base[4]= Cnil;          base[4]= Cnil;
2292          base[5]= VV[228];          base[5]= VV[216];
2293          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2294          return;}          return;}
2295  }  }
2296  /*      function definition for Defclass STRUCTURE-SLOT-DEFINITION2488  */  /*      function definition for Defclass STRUCTURE-SLOT-DEFINITION2438  */
2297    
2298  static void L62()  static void L62()
2299  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2433  static void L62() Line 2303  static void L62()
2303          vs_top=sup;          vs_top=sup;
2304          goto TTL;          goto TTL;
2305  TTL:;  TTL:;
2306          base[0]= VV[229];          base[0]= VV[217];
2307          base[1]= VV[55];          base[1]= VV[43];
2308          base[2]= VV[230];          base[2]= VV[218];
2309          base[4]= VV[61];          base[4]= VV[49];
2310          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2311          base[6]= VV[62];          base[6]= VV[50];
2312          base[7]= VV[231];          base[7]= VV[219];
2313          base[8]= VV[64];          base[8]= VV[52];
2314          base[9]= VV[232];          base[9]= VV[220];
2315          base[10]= VV[66];          base[10]= VV[54];
2316          base[11]= VV[233];          base[11]= VV[221];
2317          base[12]= VV[67];          base[12]= VV[55];
2318          base[13]= VV[234];          base[13]= VV[222];
2319          base[14]= VV[235];          base[14]= VV[223];
2320          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2321          LlistA();          LlistA();
2322          vs_top=sup;          vs_top=sup;
2323          V251= vs_base[0];          V222= vs_base[0];
2324          base[4]= VV[61];          base[4]= VV[49];
2325          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2326          base[6]= VV[62];          base[6]= VV[50];
2327          base[7]= VV[236];          base[7]= VV[224];
2328          base[8]= VV[64];          base[8]= VV[52];
2329          base[9]= VV[237];          base[9]= VV[225];
2330          base[10]= VV[66];          base[10]= VV[54];
2331          base[11]= VV[238];          base[11]= VV[226];
2332          base[12]= VV[67];          base[12]= VV[55];
2333          base[13]= VV[239];          base[13]= VV[227];
2334          base[14]= VV[240];          base[14]= VV[228];
2335          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2336          LlistA();          LlistA();
2337          vs_top=sup;          vs_top=sup;
2338          V252= vs_base[0];          V223= vs_base[0];
2339          base[4]= VV[61];          base[4]= VV[49];
2340          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2341          base[6]= VV[62];          base[6]= VV[50];
2342          base[7]= VV[241];          base[7]= VV[229];
2343          base[8]= VV[64];          base[8]= VV[52];
2344          base[9]= VV[242];          base[9]= VV[230];
2345          base[10]= VV[66];          base[10]= VV[54];
2346          base[11]= VV[243];          base[11]= VV[231];
2347          base[12]= VV[67];          base[12]= VV[55];
2348          base[13]= VV[244];          base[13]= VV[232];
2349          base[14]= VV[245];          base[14]= VV[233];
2350          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2351          LlistA();          LlistA();
2352          vs_top=sup;          vs_top=sup;
2353          V253= vs_base[0];          V224= vs_base[0];
2354          base[3]= list(3,V251,V252,V253);          base[3]= list(3,V222,V223,V224);
2355          base[4]= Cnil;          base[4]= Cnil;
2356          base[5]= VV[246];          base[5]= VV[234];
2357          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2358          return;          return;
2359  }  }
2360  /*      function definition for Defclass DIRECT-SLOT-DEFINITION2488     */  /*      function definition for Defclass DIRECT-SLOT-DEFINITION2438     */
2361    
2362  static void L63()  static void L63()
2363  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2497  static void L63() Line 2367  static void L63()
2367          vs_top=sup;          vs_top=sup;
2368          goto TTL;          goto TTL;
2369  TTL:;  TTL:;
2370          base[0]= VV[247];          base[0]= VV[235];
2371          base[1]= VV[55];          base[1]= VV[43];
2372          base[2]= VV[248];          base[2]= VV[236];
2373          base[3]= Cnil;          base[3]= Cnil;
2374          base[4]= Cnil;          base[4]= Cnil;
2375          base[5]= Cnil;          base[5]= Cnil;
2376          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2377          return;          return;
2378  }  }
2379  /*      function definition for Defclass EFFECTIVE-SLOT-DEFINITION2491  */  /*      function definition for Defclass EFFECTIVE-SLOT-DEFINITION2438  */
2380    
2381  static void L64()  static void L64()
2382  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2516  static void L64() Line 2386  static void L64()
2386          vs_top=sup;          vs_top=sup;
2387          goto TTL;          goto TTL;
2388  TTL:;  TTL:;
2389          base[0]= VV[249];          base[0]= VV[237];
2390          base[1]= VV[55];          base[1]= VV[43];
2391          base[2]= VV[250];          base[2]= VV[238];
2392          V254= listA(9,VV[62],VV[251],VV[64],VV[252],VV[66],VV[253],VV[67],Cnil,Cnil);          V225= listA(9,VV[50],VV[239],VV[52],VV[240],VV[54],VV[241],VV[55],Cnil,Cnil);
2393          V255= listA(9,VV[62],VV[254],VV[64],VV[255],VV[66],VV[256],VV[67],Cnil,Cnil);          V226= listA(9,VV[50],VV[242],VV[52],VV[243],VV[54],VV[244],VV[55],Cnil,Cnil);
2394          V256= listA(9,VV[62],VV[257],VV[64],VV[258],VV[66],VV[259],VV[67],Cnil,Cnil);          V227= listA(9,VV[50],VV[245],VV[52],VV[246],VV[54],VV[247],VV[55],Cnil,Cnil);
2395          base[4]= VV[61];          base[4]= VV[49];
2396          base[5]= (VV[398]->s.s_gfdef);          base[5]= (VV[386]->s.s_gfdef);
2397          base[6]= VV[62];          base[6]= VV[50];
2398          base[7]= VV[260];          base[7]= VV[248];
2399          base[8]= VV[64];          base[8]= VV[52];
2400          base[9]= Cnil;          base[9]= Cnil;
2401          base[10]= VV[66];          base[10]= VV[54];
2402          base[11]= Cnil;          base[11]= Cnil;
2403          base[12]= VV[67];          base[12]= VV[55];
2404          base[13]= Cnil;          base[13]= Cnil;
2405          base[14]= VV[261];          base[14]= VV[249];
2406          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2407          LlistA();          LlistA();
2408          vs_top=sup;          vs_top=sup;
2409          V257= vs_base[0];          V228= vs_base[0];
2410          base[3]= list(4,/* INLINE-ARGS */V254,/* INLINE-ARGS */V255,/* INLINE-ARGS */V256,V257);          base[3]= list(4,/* INLINE-ARGS */V225,/* INLINE-ARGS */V226,/* INLINE-ARGS */V227,V228);
2411          base[4]= Cnil;          base[4]= Cnil;
2412          base[5]= VV[262];          base[5]= VV[250];
2413          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2414          return;          return;
2415  }  }
2416  /*      function definition for Defclass STANDARD-DIRECT-SLOT-DEFINITION2491    */  /*      function definition for Defclass STANDARD-DIRECT-SLOT-DEFINITION2438    */
2417    
2418  static void L65()  static void L65()
2419  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2553  static void L65() Line 2423  static void L65()
2423          vs_top=sup;          vs_top=sup;
2424          goto TTL;          goto TTL;
2425  TTL:;  TTL:;
2426          base[0]= VV[263];          base[0]= VV[251];
2427          base[1]= VV[55];          base[1]= VV[43];
2428          base[2]= VV[264];          base[2]= VV[252];
2429          base[3]= Cnil;          base[3]= Cnil;
2430          base[4]= Cnil;          base[4]= Cnil;
2431          base[5]= Cnil;          base[5]= Cnil;
2432          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2433          return;          return;
2434  }  }
2435  /*      function definition for Defclass STANDARD-EFFECTIVE-SLOT-DEFINITION2492 */  /*      function definition for Defclass STANDARD-EFFECTIVE-SLOT-DEFINITION2438 */
2436    
2437  static void L66()  static void L66()
2438  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2572  static void L66() Line 2442  static void L66()
2442          vs_top=sup;          vs_top=sup;
2443          goto TTL;          goto TTL;
2444  TTL:;  TTL:;
2445          base[0]= VV[265];          base[0]= VV[253];
2446          base[1]= VV[55];          base[1]= VV[43];
2447          base[2]= VV[266];          base[2]= VV[254];
2448          base[4]= VV[61];          base[4]= VV[49];
2449          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2450          base[6]= VV[62];          base[6]= VV[50];
2451          base[7]= VV[267];          base[7]= VV[255];
2452          base[8]= VV[64];          base[8]= VV[52];
2453          base[9]= VV[268];          base[9]= VV[256];
2454          base[10]= VV[66];          base[10]= VV[54];
2455          base[11]= VV[269];          base[11]= VV[257];
2456          base[12]= VV[67];          base[12]= VV[55];
2457          base[13]= Cnil;          base[13]= Cnil;
2458          base[14]= VV[270];          base[14]= VV[258];
2459          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2460          LlistA();          LlistA();
2461          vs_top=sup;          vs_top=sup;
2462          V258= vs_base[0];          V229= vs_base[0];
2463          base[3]= make_cons(V258,Cnil);          base[3]= make_cons(V229,Cnil);
2464          base[4]= Cnil;          base[4]= Cnil;
2465          base[5]= VV[271];          base[5]= VV[259];
2466          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2467          return;          return;
2468  }  }
2469  /*      function definition for Defclass STRUCTURE-DIRECT-SLOT-DEFINITION2492   */  /*      function definition for Defclass STRUCTURE-DIRECT-SLOT-DEFINITION2438   */
2470    
2471  static void L67()  static void L67()
2472  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2606  static void L67() Line 2476  static void L67()
2476          vs_top=sup;          vs_top=sup;
2477          goto TTL;          goto TTL;
2478  TTL:;  TTL:;
2479          base[0]= VV[272];          base[0]= VV[260];
2480          base[1]= VV[55];          base[1]= VV[43];
2481          base[2]= VV[273];          base[2]= VV[261];
2482          base[3]= Cnil;          base[3]= Cnil;
2483          base[4]= Cnil;          base[4]= Cnil;
2484          base[5]= Cnil;          base[5]= Cnil;
2485          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2486          return;          return;
2487  }  }
2488  /*      function definition for Defclass STRUCTURE-EFFECTIVE-SLOT-DEFINITION2492        */  /*      function definition for Defclass STRUCTURE-EFFECTIVE-SLOT-DEFINITION2438        */
2489    
2490  static void L68()  static void L68()
2491  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2625  static void L68() Line 2495  static void L68()
2495          vs_top=sup;          vs_top=sup;
2496          goto TTL;          goto TTL;
2497  TTL:;  TTL:;
2498          base[0]= VV[274];          base[0]= VV[262];
2499          base[1]= VV[55];          base[1]= VV[43];
2500          base[2]= VV[275];          base[2]= VV[263];
2501          base[3]= Cnil;          base[3]= Cnil;
2502          base[4]= Cnil;          base[4]= Cnil;
2503          base[5]= Cnil;          base[5]= Cnil;
2504          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2505          return;          return;
2506  }  }
2507  /*      function definition for Defclass METHOD2492     */  /*      function definition for Defclass METHOD2438     */
2508    
2509  static void L69()  static void L69()
2510  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2644  static void L69() Line 2514  static void L69()
2514          vs_top=sup;          vs_top=sup;
2515          goto TTL;          goto TTL;
2516  TTL:;  TTL:;
2517          base[0]= VV[276];          base[0]= VV[264];
2518          base[1]= VV[55];          base[1]= VV[43];
2519          base[2]= VV[277];          base[2]= VV[265];
2520          base[3]= Cnil;          base[3]= Cnil;
2521          base[4]= Cnil;          base[4]= Cnil;
2522          base[5]= Cnil;          base[5]= Cnil;
2523          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2524          return;          return;
2525  }  }
2526  /*      function definition for Defclass STANDARD-METHOD2493    */  /*      function definition for Defclass STANDARD-METHOD2438    */
2527    
2528  static void L70()  static void L70()
2529  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2663  static void L70() Line 2533  static void L70()
2533          vs_top=sup;          vs_top=sup;
2534          goto TTL;          goto TTL;
2535  TTL:;  TTL:;
2536          base[0]= VV[278];          base[0]= VV[266];
2537          base[1]= VV[55];          base[1]= VV[43];
2538          base[2]= VV[279];          base[2]= VV[267];
2539          base[4]= VV[61];          base[4]= VV[49];
2540          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2541          base[6]= VV[62];          base[6]= VV[50];
2542          base[7]= VV[280];          base[7]= VV[268];
2543          base[8]= VV[64];          base[8]= VV[52];
2544          base[9]= VV[281];          base[9]= VV[269];
2545          base[10]= VV[66];          base[10]= VV[54];
2546          base[11]= VV[282];          base[11]= VV[270];
2547          base[12]= VV[67];          base[12]= VV[55];
2548          base[13]= Cnil;          base[13]= Cnil;
2549          base[14]= VV[283];          base[14]= VV[271];
2550          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2551          LlistA();          LlistA();
2552          vs_top=sup;          vs_top=sup;
2553          V259= vs_base[0];          V230= vs_base[0];
2554          base[4]= VV[61];          base[4]= VV[49];
2555          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2556          base[6]= VV[62];          base[6]= VV[50];
2557          base[7]= VV[284];          base[7]= VV[272];
2558          base[8]= VV[64];          base[8]= VV[52];
2559          base[9]= VV[285];          base[9]= VV[273];
2560          base[10]= VV[66];          base[10]= VV[54];
2561          base[11]= Cnil;          base[11]= Cnil;
2562          base[12]= VV[67];          base[12]= VV[55];
2563          base[13]= VV[286];          base[13]= VV[274];
2564          base[14]= VV[287];          base[14]= VV[275];
2565          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2566          LlistA();          LlistA();
2567          vs_top=sup;          vs_top=sup;
2568          V260= vs_base[0];          V231= vs_base[0];
2569          base[4]= VV[61];          base[4]= VV[49];
2570          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2571          base[6]= VV[62];          base[6]= VV[50];
2572          base[7]= VV[288];          base[7]= VV[276];
2573          base[8]= VV[64];          base[8]= VV[52];
2574          base[9]= VV[289];          base[9]= VV[277];
2575          base[10]= VV[66];          base[10]= VV[54];
2576          base[11]= Cnil;          base[11]= Cnil;
2577          base[12]= VV[67];          base[12]= VV[55];
2578          base[13]= VV[290];          base[13]= VV[278];
2579          base[14]= VV[291];          base[14]= VV[279];
2580          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2581          LlistA();          LlistA();
2582          vs_top=sup;          vs_top=sup;
2583          V261= vs_base[0];          V232= vs_base[0];
2584          base[4]= VV[61];          base[4]= VV[49];
2585          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2586          base[6]= VV[62];          base[6]= VV[50];
2587          base[7]= VV[292];          base[7]= VV[280];
2588          base[8]= VV[64];          base[8]= VV[52];
2589          base[9]= Cnil;          base[9]= Cnil;
2590          base[10]= VV[66];          base[10]= VV[54];
2591          base[11]= Cnil;          base[11]= Cnil;
2592          base[12]= VV[67];          base[12]= VV[55];
2593          base[13]= VV[293];          base[13]= VV[281];
2594          base[14]= VV[294];          base[14]= VV[282];
2595          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2596          LlistA();          LlistA();
2597          vs_top=sup;          vs_top=sup;
2598          V262= vs_base[0];          V233= vs_base[0];
2599          base[4]= VV[61];          base[4]= VV[49];
2600          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2601          base[6]= VV[62];          base[6]= VV[50];
2602          base[7]= VV[295];          base[7]= VV[283];
2603          base[8]= VV[64];          base[8]= VV[52];
2604          base[9]= VV[296];          base[9]= VV[284];
2605          base[10]= VV[66];          base[10]= VV[54];
2606          base[11]= Cnil;          base[11]= Cnil;
2607          base[12]= VV[67];          base[12]= VV[55];
2608          base[13]= VV[297];          base[13]= VV[285];
2609          base[14]= VV[298];          base[14]= VV[286];
2610          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2611          LlistA();          LlistA();
2612          vs_top=sup;          vs_top=sup;
2613          V263= vs_base[0];          V234= vs_base[0];
2614          base[3]= list(5,V259,V260,V261,V262,V263);          base[3]= list(5,V230,V231,V232,V233,V234);
2615          base[4]= Cnil;          base[4]= Cnil;
2616          base[5]= VV[299];          base[5]= VV[287];
2617          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2618          return;          return;
2619  }  }
2620  /*      function definition for Defclass STANDARD-ACCESSOR-METHOD2493   */  /*      function definition for Defclass STANDARD-ACCESSOR-METHOD2438   */
2621    
2622  static void L71()  static void L71()
2623  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2757  static void L71() Line 2627  static void L71()
2627          vs_top=sup;          vs_top=sup;
2628          goto TTL;          goto TTL;
2629  TTL:;  TTL:;
2630          base[0]= VV[300];          base[0]= VV[288];
2631          base[1]= VV[55];          base[1]= VV[43];
2632          base[2]= VV[301];          base[2]= VV[289];
2633          base[4]= VV[61];          base[4]= VV[49];
2634          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2635          base[6]= VV[62];          base[6]= VV[50];
2636          base[7]= VV[302];          base[7]= VV[290];
2637          base[8]= VV[64];          base[8]= VV[52];
2638          base[9]= VV[303];          base[9]= VV[291];
2639          base[10]= VV[66];          base[10]= VV[54];
2640          base[11]= Cnil;          base[11]= Cnil;
2641          base[12]= VV[67];          base[12]= VV[55];
2642          base[13]= VV[304];          base[13]= VV[292];
2643          base[14]= VV[305];          base[14]= VV[293];
2644          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2645          LlistA();          LlistA();
2646          vs_top=sup;          vs_top=sup;
2647          V264= vs_base[0];          V235= vs_base[0];
2648          base[4]= VV[61];          base[4]= VV[49];
2649          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2650          base[6]= VV[62];          base[6]= VV[50];
2651          base[7]= VV[177];          base[7]= VV[165];
2652          base[8]= VV[64];          base[8]= VV[52];
2653          base[9]= VV[306];          base[9]= VV[294];
2654          base[10]= VV[66];          base[10]= VV[54];
2655          base[11]= Cnil;          base[11]= Cnil;
2656          base[12]= VV[67];          base[12]= VV[55];
2657          base[13]= VV[307];          base[13]= VV[295];
2658          base[14]= VV[308];          base[14]= VV[296];
2659          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2660          LlistA();          LlistA();
2661          vs_top=sup;          vs_top=sup;
2662          V265= vs_base[0];          V236= vs_base[0];
2663          base[3]= list(2,V264,V265);          base[3]= list(2,V235,V236);
2664          base[4]= Cnil;          base[4]= Cnil;
2665          base[5]= Cnil;          base[5]= Cnil;
2666          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2667          return;          return;
2668  }  }
2669  /*      function definition for Defclass STANDARD-READER-METHOD2493     */  /*      function definition for Defclass STANDARD-READER-METHOD2438     */
2670    
2671  static void L72()  static void L72()
2672  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2806  static void L72() Line 2676  static void L72()
2676          vs_top=sup;          vs_top=sup;
2677          goto TTL;          goto TTL;
2678  TTL:;  TTL:;
2679          base[0]= VV[309];          base[0]= VV[297];
2680          base[1]= VV[55];          base[1]= VV[43];
2681          base[2]= VV[310];          base[2]= VV[298];
2682          base[3]= Cnil;          base[3]= Cnil;
2683          base[4]= Cnil;          base[4]= Cnil;
2684          base[5]= Cnil;          base[5]= Cnil;
2685          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2686          return;          return;
2687  }  }
2688  /*      function definition for Defclass STANDARD-WRITER-METHOD2493     */  /*      function definition for Defclass STANDARD-WRITER-METHOD2438     */
2689    
2690  static void L73()  static void L73()
2691  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2825  static void L73() Line 2695  static void L73()
2695          vs_top=sup;          vs_top=sup;
2696          goto TTL;          goto TTL;
2697  TTL:;  TTL:;
2698          base[0]= VV[311];          base[0]= VV[299];
2699          base[1]= VV[55];          base[1]= VV[43];
2700          base[2]= VV[312];          base[2]= VV[300];
2701          base[3]= Cnil;          base[3]= Cnil;
2702          base[4]= Cnil;          base[4]= Cnil;
2703          base[5]= Cnil;          base[5]= Cnil;
2704          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2705          return;          return;
2706  }  }
2707  /*      function definition for Defclass STANDARD-BOUNDP-METHOD2493     */  /*      function definition for Defclass STANDARD-BOUNDP-METHOD2438     */
2708    
2709  static void L74()  static void L74()
2710  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2844  static void L74() Line 2714  static void L74()
2714          vs_top=sup;          vs_top=sup;
2715          goto TTL;          goto TTL;
2716  TTL:;  TTL:;
2717          base[0]= VV[313];          base[0]= VV[301];
2718          base[1]= VV[55];          base[1]= VV[43];
2719          base[2]= VV[314];          base[2]= VV[302];
2720          base[3]= Cnil;          base[3]= Cnil;
2721          base[4]= Cnil;          base[4]= Cnil;
2722          base[5]= Cnil;          base[5]= Cnil;
2723          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2724          return;          return;
2725  }  }
2726  /*      function definition for Defclass GENERIC-FUNCTION2493   */  /*      function definition for Defclass GENERIC-FUNCTION2438   */
2727    
2728  static void L75()  static void L75()
2729  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2863  static void L75() Line 2733  static void L75()
2733          vs_top=sup;          vs_top=sup;
2734          goto TTL;          goto TTL;
2735  TTL:;  TTL:;
2736          base[0]= VV[280];          base[0]= VV[268];
2737          base[1]= VV[142];          base[1]= VV[130];
2738          base[2]= VV[315];          base[2]= VV[303];
2739          base[3]= Cnil;          base[3]= Cnil;
2740          base[4]= Cnil;          base[4]= Cnil;
2741          base[5]= Cnil;          base[5]= Cnil;
2742          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2743          return;          return;
2744  }  }
2745  /*      function definition for Defclass STANDARD-GENERIC-FUNCTION2501  */  /*      function definition for Defclass STANDARD-GENERIC-FUNCTION2441  */
2746    
2747  static void L76()  static void L76()
2748  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2882  static void L76() Line 2752  static void L76()
2752          vs_top=sup;          vs_top=sup;
2753          goto TTL;          goto TTL;
2754  TTL:;  TTL:;
2755          {object V266;          {object V237;
2756          object V267;          object V238;
2757          object V268;          object V239;
2758          V266= VV[399];          V237= VV[387];
2759          V267= VV[400];          V238= VV[388];
2760          V268= VV[401];          V239= VV[389];
2761          base[0]= VV[318];          base[0]= VV[306];
2762          base[1]= VV[142];          base[1]= VV[130];
2763          base[2]= VV[319];          base[2]= VV[307];
2764          base[4]= VV[61];          base[4]= VV[49];
2765          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2766          base[6]= VV[62];          base[6]= VV[50];
2767          base[7]= VV[87];          base[7]= VV[75];
2768          base[8]= VV[64];          base[8]= VV[52];
2769          base[9]= VV[320];          base[9]= VV[308];
2770          base[10]= VV[66];          base[10]= VV[54];
2771          base[11]= VV[321];          base[11]= VV[309];
2772          base[12]= VV[67];          base[12]= VV[55];
2773          base[13]= VV[322];          base[13]= VV[310];
2774          base[14]= VV[323];          base[14]= VV[311];
2775          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2776          LlistA();          LlistA();
2777          vs_top=sup;          vs_top=sup;
2778          V269= vs_base[0];          V240= vs_base[0];
2779          base[4]= VV[61];          base[4]= VV[49];
2780          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2781          base[6]= VV[62];          base[6]= VV[50];
2782          base[7]= VV[324];          base[7]= VV[312];
2783          base[8]= VV[64];          base[8]= VV[52];
2784          base[9]= VV[325];          base[9]= VV[313];
2785          base[10]= VV[66];          base[10]= VV[54];
2786          base[11]= VV[326];          base[11]= VV[314];
2787          base[12]= VV[67];          base[12]= VV[55];
2788          base[13]= Cnil;          base[13]= Cnil;
2789          base[14]= VV[327];          base[14]= VV[315];
2790          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2791          LlistA();          LlistA();
2792          vs_top=sup;          vs_top=sup;
2793          V270= vs_base[0];          V241= vs_base[0];
2794          V271= listA(9,VV[62],VV[328],VV[64],VV[329],VV[66],VV[330],VV[67],VV[331],Cnil);          V242= listA(9,VV[50],VV[316],VV[52],VV[317],VV[54],VV[318],VV[55],VV[319],Cnil);
2795          V272= listA(9,VV[62],VV[332],VV[64],VV[333],VV[66],VV[334],VV[67],VV[335],Cnil);          V243= listA(9,VV[50],VV[320],VV[52],VV[321],VV[54],VV[322],VV[55],VV[323],Cnil);
2796          base[4]= VV[61];          base[4]= VV[49];
2797          base[5]= (V268);          base[5]= (V239);
2798          base[6]= VV[62];          base[6]= VV[50];
2799          base[7]= VV[336];          base[7]= VV[324];
2800          base[8]= VV[64];          base[8]= VV[52];
2801          base[9]= VV[337];          base[9]= VV[325];
2802          base[10]= VV[66];          base[10]= VV[54];
2803          base[11]= Cnil;          base[11]= Cnil;
2804          base[12]= VV[67];          base[12]= VV[55];
2805          base[13]= Cnil;          base[13]= Cnil;
2806          base[14]= VV[338];          base[14]= VV[326];
2807          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2808          LlistA();          LlistA();
2809          vs_top=sup;          vs_top=sup;
2810          V273= vs_base[0];          V244= vs_base[0];
2811          base[4]= VV[61];          base[4]= VV[49];
2812          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2813          base[6]= VV[62];          base[6]= VV[50];
2814          base[7]= VV[339];          base[7]= VV[327];
2815          base[8]= VV[64];          base[8]= VV[52];
2816          base[9]= VV[340];          base[9]= VV[328];
2817          base[10]= VV[66];          base[10]= VV[54];
2818          base[11]= VV[341];          base[11]= VV[329];
2819          base[12]= VV[67];          base[12]= VV[55];
2820          base[13]= Cnil;          base[13]= Cnil;
2821          base[14]= VV[342];          base[14]= VV[330];
2822          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2823          LlistA();          LlistA();
2824          vs_top=sup;          vs_top=sup;
2825          V274= vs_base[0];          V245= vs_base[0];
2826          base[4]= VV[61];          base[4]= VV[49];
2827          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[380]->s.s_gfdef);
2828          base[6]= VV[62];          base[6]= VV[50];
2829          base[7]= VV[343];          base[7]= VV[331];
2830          base[8]= VV[64];          base[8]= VV[52];
2831          base[9]= VV[344];          base[9]= VV[332];
2832          base[10]= VV[66];          base[10]= VV[54];
2833          base[11]= VV[345];          base[11]= VV[333];
2834          base[12]= VV[67];          base[12]= VV[55];
2835          base[13]= Cnil;          base[13]= Cnil;
2836          base[14]= VV[346];          base[14]= VV[334];
2837          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2838          LlistA();          LlistA();
2839          vs_top=sup;          vs_top=sup;
2840          V275= vs_base[0];          V246= vs_base[0];
2841          base[3]= list(7,V269,V270,/* INLINE-ARGS */V271,/* INLINE-ARGS */V272,V273,V274,V275);          base[3]= list(7,V240,V241,/* INLINE-ARGS */V242,/* INLINE-ARGS */V243,V244,V245,V246);
2842          V276= list(3,VV[348],(V267),VV[317]);          V247= list(3,VV[336],(V238),VV[305]);
2843          base[4]= list(2,VV[347],list(2,/* INLINE-ARGS */V276,list(3,VV[349],(V266),VV[316])));          base[4]= list(2,VV[335],list(2,/* INLINE-ARGS */V247,list(3,VV[337],(V237),VV[304])));
2844          base[5]= VV[350];          base[5]= VV[338];
2845          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2846          return;}          return;}
2847  }  }
2848  /*      function definition for Defclass METHOD-COMBINATION2501 */  /*      function definition for Defclass METHOD-COMBINATION2441 */
2849    
2850  static void L77()  static void L77()
2851  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2985  static void L77() Line 2855  static void L77()
2855          vs_top=sup;          vs_top=sup;
2856          goto TTL;          goto TTL;
2857  TTL:;  TTL:;
2858          base[0]= VV[332];          base[0]= VV[320];
2859          base[1]= VV[55];          base[1]= VV[43];
2860          base[2]= VV[351];          base[2]= VV[339];
2861          base[3]= Cnil;          base[3]= Cnil;
2862          base[4]= Cnil;          base[4]= Cnil;
2863          base[5]= Cnil;          base[5]= Cnil;
2864          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2865          return;          return;
2866  }  }
2867  /*      function definition for Defclass STANDARD-METHOD-COMBINATION2501        */  /*      function definition for Defclass STANDARD-METHOD-COMBINATION2441        */
2868    
2869  static void L78()  static void L78()
2870  {register object *base=vs_base;  {register object *base=vs_base;
# Line 3004  static void L78() Line 2874  static void L78()
2874          vs_top=sup;          vs_top=sup;
2875          goto TTL;          goto TTL;
2876  TTL:;  TTL:;
2877          base[0]= VV[352];          base[0]= VV[340];
2878          base[1]= VV[55];          base[1]= VV[43];
2879          base[2]= VV[353];          base[2]= VV[341];
2880          V277= listA(9,VV[62],VV[63],VV[64],VV[354],VV[66],Cnil,VV[67],VV[355],Cnil);          V248= listA(9,VV[50],VV[51],VV[52],VV[342],VV[54],Cnil,VV[55],VV[343],Cnil);
2881          V278= listA(9,VV[62],VV[212],VV[64],VV[356],VV[66],Cnil,VV[67],VV[357],Cnil);          V249= listA(9,VV[50],VV[200],VV[52],VV[344],VV[54],Cnil,VV[55],VV[345],Cnil);
2882          base[3]= list(3,/* INLINE-ARGS */V277,/* INLINE-ARGS */V278,listA(9,VV[62],VV[358],VV[64],VV[359],VV[66],Cnil,VV[67],VV[360],Cnil));          base[3]= list(3,/* INLINE-ARGS */V248,/* INLINE-ARGS */V249,listA(9,VV[50],VV[346],VV[52],VV[347],VV[54],Cnil,VV[55],VV[348],Cnil));
2883          base[4]= Cnil;          base[4]= Cnil;
2884          base[5]= Cnil;          base[5]= Cnil;
2885          symlispcall(VV[391],base+0,6);          symlispcall(VV[379],base+0,6);
2886          return;          return;
2887  }  }
2888  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 3024  register object *base0; Line 2894  register object *base0;
2894          vs_check;          vs_check;
2895          check_arg(0);          check_arg(0);
2896          vs_top=sup;          vs_top=sup;
2897          base[0]= (*(LnkLI402))();          base[0]= (*(LnkLI390))();
2898          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2899          return;          return;
2900  }  }
# Line 3037  register object *base0; Line 2907  register object *base0;
2907          vs_check;          vs_check;
2908          check_arg(0);          check_arg(0);
2909          vs_top=sup;          vs_top=sup;
2910          base[0]= (VV[317]->s.s_dbind);          base[0]= (VV[305]->s.s_dbind);
2911          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2912          return;          return;
2913  }  }
# Line 3050  register object *base0; Line 2920  register object *base0;
2920          vs_check;          vs_check;
2921          check_arg(0);          check_arg(0);
2922          vs_top=sup;          vs_top=sup;
2923          base[0]= (VV[316]->s.s_dbind);          base[0]= (VV[304]->s.s_dbind);
2924          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2925          return;          return;
2926  }  }
# Line 3063  register object *base0; Line 2933  register object *base0;
2933          vs_check;          vs_check;
2934          check_arg(0);          check_arg(0);
2935          vs_top=sup;          vs_top=sup;
2936          base[0]= VV[220];          base[0]= VV[208];
2937          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2938          return;          return;
2939  }  }
# Line 3076  register object *base0; Line 2946  register object *base0;
2946          vs_check;          vs_check;
2947          check_arg(0);          check_arg(0);
2948          vs_top=sup;          vs_top=sup;
2949          base[0]= VV[176];          base[0]= VV[164];
2950          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2951          return;          return;
2952  }  }
# Line 3103  register object *base0; Line 2973  register object *base0;
2973          check_arg(0);          check_arg(0);
2974          vs_top=sup;          vs_top=sup;
2975          vs_base=vs_top;          vs_base=vs_top;
2976          (void) (*Lnk403)();          (void) (*Lnk391)();
2977          return;          return;
2978  }  }
2979  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 3113  register object *base0; Line 2983  register object *base0;
2983  {       register object *base=vs_base;  {       register object *base=vs_base;
2984          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
2985          vs_check;          vs_check;
2986          {object V279;          {object V250;
2987          check_arg(1);          check_arg(1);
2988          V279=(base[0]);          V250=(base[0]);
2989          vs_top=sup;          vs_top=sup;
2990          base[1]= (eql((base0[0]->c.c_car),(V279))?Ct:Cnil);          base[1]= (eql((base0[0]->c.c_car),(V250))?Ct:Cnil);
2991          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2992          return;          return;
2993          }          }
# Line 3129  register object *base0; Line 2999  register object *base0;
2999  {       register object *base=vs_base;  {       register object *base=vs_base;
3000          register object *sup=base+VM84; VC84          register object *sup=base+VM84; VC84
3001          vs_check;          vs_check;
3002          {object V280;          {object V251;
3003          check_arg(1);          check_arg(1);
3004          V280=(base[0]);          V251=(base[0]);
3005          vs_top=sup;          vs_top=sup;
3006          V281 = (base0[0]->c.c_car);          V252 = (base0[0]->c.c_car);
3007          V282= (*(LnkLI374))((V280));          V253= (*(LnkLI362))((V251));
3008          base[1]= ((V281)==(/* INLINE-ARGS */V282)?Ct:Cnil);          base[1]= ((V252)==(/* INLINE-ARGS */V253)?Ct:Cnil);
3009          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3010          return;          return;
3011          }          }
# Line 3147  register object *base0; Line 3017  register object *base0;
3017  {       register object *base=vs_base;  {       register object *base=vs_base;
3018          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
3019          vs_check;          vs_check;
3020          {object V283;          {object V254;
3021          check_arg(1);          check_arg(1);
3022          V283=(base[0]);          V254=(base[0]);
3023          vs_top=sup;          vs_top=sup;
3024          V285 = (base0[0]->c.c_car);          V256 = (base0[0]->c.c_car);
3025          base[1]= (*(LnkLI374))((V283));          base[1]= (*(LnkLI362))((V254));
3026          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3027          (void) (*Lnk109)(Lclptr109);          (void) (*Lnk97)(Lclptr97);
3028          vs_top=sup;          vs_top=sup;
3029          V286= vs_base[0];          V257= vs_base[0];
3030          {register object x= V285,V284= V286;          {register object x= V256,V255= V257;
3031          while(V284!=Cnil)          while(V255!=Cnil)
3032          if(x==(V284->c.c_car)){          if(x==(V255->c.c_car)){
3033          base[1]= V284;          base[1]= V255;
3034          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3035          return;          return;
3036          }else V284=V284->c.c_cdr;          }else V255=V255->c.c_cdr;
3037          base[1]= Cnil;          base[1]= Cnil;
3038          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3039          return;}          return;}
# Line 3176  register object *base0; Line 3046  register object *base0;
3046  {       register object *base=vs_base;  {       register object *base=vs_base;
3047          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
3048          vs_check;          vs_check;
3049          {object V287;          {object V258;
3050          check_arg(1);          check_arg(1);
3051          V287=(base[0]);          V258=(base[0]);
3052          vs_top=sup;          vs_top=sup;
3053          base[1]= CMPcadr((base0[0]->c.c_car));          base[1]= CMPcadr((base0[0]->c.c_car));
3054          base[2]= (V287);          base[2]= (V258);
3055          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3056          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3057                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 3190  register object *base0; Line 3060  register object *base0;
3060          return;          return;
3061          }          }
3062  }  }
3063  static void LnkT109(ptr) object *ptr;{ call_or_link_closure(VV[109],(void **)(void *)&Lnk109,(void **)(void *)&Lclptr109);} /* CLASS-PRECEDENCE-LIST */  static void LnkT97(ptr) object *ptr;{ call_or_link_closure(VV[97],(void **)(void *)&Lnk97,(void **)(void *)&Lclptr97);} /* CLASS-PRECEDENCE-LIST */
3064  static void LnkT403(){ call_or_link(VV[403],(void **)(void *)&Lnk403);} /* LOAD-TRUENAME */  static void LnkT391(){ call_or_link(VV[391],(void **)(void *)&Lnk391);} /* LOAD-TRUENAME */
3065  static object  LnkTLI402(){return call_proc0(VV[402],(void **)(void *)&LnkLI402);} /* MAKE-ARG-INFO */  static object  LnkTLI390(){return call_proc0(VV[390],(void **)(void *)&LnkLI390);} /* MAKE-ARG-INFO */
3066  static void LnkT390(ptr) object *ptr;{ call_or_link_closure(VV[390],(void **)(void *)&Lnk390,(void **)(void *)&Lclptr390);} /* SETF PCL OBJECT-PLIST */  static void LnkT378(ptr) object *ptr;{ call_or_link_closure(VV[378],(void **)(void *)&Lnk378,(void **)(void *)&Lclptr378);} /* OBJECT-PLIST */
3067  static void LnkT389(ptr) object *ptr;{ call_or_link_closure(VV[389],(void **)(void *)&Lnk389,(void **)(void *)&Lclptr389);} /* OBJECT-PLIST */  static object  LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)(void *)&LnkLI377,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */
3068  static object  LnkTLI388(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[388],(void **)(void *)&LnkLI388,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */  static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* SUBTYPEP */
3069  static void LnkT387(){ call_or_link(VV[387],(void **)(void *)&Lnk387);} /* SUBTYPEP */  static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */
3070  static void LnkT386(){ call_or_link(VV[386],(void **)(void *)&Lnk386);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */  static void LnkT373(ptr) object *ptr;{ call_or_link_closure(VV[373],(void **)(void *)&Lnk373,(void **)(void *)&Lclptr373);} /* CLASS-NAME */
3071  static void LnkT384(ptr) object *ptr;{ call_or_link_closure(VV[384],(void **)(void *)&Lnk384,(void **)(void *)&Lclptr384);} /* CLASS-NAME */  static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* CONVERT-TO-SYSTEM-TYPE */
3072  static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* CONVERT-TO-SYSTEM-TYPE */  static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* *NORMALIZE-TYPE */
3073  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* *NORMALIZE-TYPE */  static object  LnkTLI367(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[367],(void **)(void *)&LnkLI367,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
3074  static object  LnkTLI379(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[379],(void **)(void *)&LnkLI379,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */  static object  LnkTLI366(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[366],(void **)(void *)&LnkLI366,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */
3075  static object  LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)(void *)&LnkLI378,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */  static object  LnkTLI364(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[364],(void **)(void *)&LnkLI364,1,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE */
3076  static object  LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)(void *)&LnkLI377,1,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE */  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[363],(void **)(void *)&LnkLI363,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */
3077  static object  LnkTLI376(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[376],(void **)(void *)&LnkLI376,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)(void *)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
3078  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[375],(void **)(void *)&LnkLI375,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */  static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* TYPE-FROM-SPECIALIZER */
3079  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[374],(void **)(void *)&LnkLI374,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)(void *)&Lnk360,(void **)(void *)&Lclptr360);} /* SPECIALIZER-TYPE */
3080  static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* TYPE-FROM-SPECIALIZER */  static void LnkT359(ptr) object *ptr;{ call_or_link_closure(VV[359],(void **)(void *)&Lnk359,(void **)(void *)&Lclptr359);} /* SPECIALIZERP */
3081  static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)(void *)&Lnk372,(void **)(void *)&Lclptr372);} /* SPECIALIZER-TYPE */  static object  LnkTLI358(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[358],(void **)(void *)&LnkLI358,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */
3082  static void LnkT371(ptr) object *ptr;{ call_or_link_closure(VV[371],(void **)(void *)&Lnk371,(void **)(void *)&Lclptr371);} /* SPECIALIZERP */  static void LnkT80(ptr) object *ptr;{ call_or_link_closure(VV[80],(void **)(void *)&Lnk80,(void **)(void *)&Lclptr80);} /* CLASS-EQ-SPECIALIZER */
3083  static object  LnkTLI370(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[370],(void **)(void *)&LnkLI370,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */  static void LnkT355(ptr) object *ptr;{ call_or_link_closure(VV[355],(void **)(void *)&Lnk355,(void **)(void *)&Lclptr355);} /* MAKE-INSTANCE */
3084  static void LnkT92(ptr) object *ptr;{ call_or_link_closure(VV[92],(void **)(void *)&Lnk92,(void **)(void *)&Lclptr92);} /* CLASS-EQ-SPECIALIZER */  static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* COERCE-TO-CLASS */
3085  static void LnkT367(ptr) object *ptr;{ call_or_link_closure(VV[367],(void **)(void *)&Lnk367,(void **)(void *)&Lclptr367);} /* MAKE-INSTANCE */  static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* ENSURE-CLASS */
3086  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* COERCE-TO-CLASS */  static object  LnkTLI352(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[352],(void **)(void *)&LnkLI352,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
3087  static void LnkT365(){ call_or_link(VV[365],(void **)(void *)&Lnk365);} /* ENSURE-CLASS */  static object  LnkTLI351(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[351],(void **)(void *)&LnkLI351,2,first,ap);va_end(ap);return V1;} /* FDEFINE-CAREFULLY */
3088  static object  LnkTLI364(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[364],(void **)(void *)&LnkLI364,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[350],(void **)(void *)&LnkLI350,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */
3089  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,2,first,ap);va_end(ap);return V1;} /* FDEFINE-CAREFULLY */  static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* FDEFINITION */
 static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)(void *)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */  
 static object  LnkTLI361(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[361],(void **)(void *)&LnkLI361,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  
3090    
3091  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3092  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