/[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.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 98  T20:; Line 98  T20:;
98          goto T20;}          goto T20;}
99          goto T19;          goto T19;
100  T19:;  T19:;
101          base[8]= list(3,VV[3],V20,(V6));          V26 = (V6);
102            base[8]= list(3,VV[3],V20,V26);
103          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
104          return;}          return;}
105  }  }
106  /*      local entry for function UNENCAPSULATED-FDEFINITION     */  /*      local entry for function UNENCAPSULATED-FDEFINITION     */
107    
108  static object LI2(V27)  static object LI2(V28)
109    
110  register object V27;  register object V28;
111  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
112          goto TTL;          goto TTL;
113  TTL:;  TTL:;
114          {object V28;          {object V29;
115          object V29;          object V30;
116          {object V30 =((V27))->s.s_plist;          {object V31 =((V28))->s.s_plist;
117           object ind= VV[13];           object ind= VV[13];
118          while(V30!=Cnil){          while(V31!=Cnil){
119          if(V30->c.c_car==ind){          if(V31->c.c_car==ind){
120          V28= (V30->c.c_cdr->c.c_car);          V29= (V31->c.c_cdr->c.c_car);
121          goto T23;          goto T23;
122          }else V30=V30->c.c_cdr->c.c_cdr;}          }else V31=V31->c.c_cdr->c.c_cdr;}
123          V28= Cnil;}          V29= Cnil;}
124          goto T23;          goto T23;
125  T23:;  T23:;
126          V29= Cnil;          V30= Cnil;
127          if(((V28))==Cnil){          if(((V29))==Cnil){
128          goto T25;}          goto T25;}
129          base[1]= (V27);          base[1]= (V28);
130          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
131          Lsymbol_function();          Lsymbol_function();
132          vs_top=sup;          vs_top=sup;
133          V31= vs_base[0];          V32= vs_base[0];
134          if(!(type_of(V31)==t_cons)){          if(!(type_of(V32)==t_cons)){
135          goto T25;}          goto T25;}
136          base[1]= (V27);          base[1]= (V28);
137          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
138          Lsymbol_function();          Lsymbol_function();
139          vs_top=sup;          vs_top=sup;
140          V32= vs_base[0];          V33= vs_base[0];
141          V29= CMPcadddr(V32);          V30= CMPcadddr(V33);
142          if(!(type_of((V29))==t_cons)){          V34 = (V30);
143            if(!(type_of(V34)==t_cons)){
144          goto T25;}          goto T25;}
145          if(!((CMPcar((V29)))==(VV[14]))){          if(!((CMPcar((V30)))==(VV[14]))){
146          goto T25;}          goto T25;}
147          base[0]= (V28);          base[0]= (V29);
148          goto T22;          goto T22;
149          goto T25;          goto T25;
150  T25:;  T25:;
151          base[0]= (V27);}          base[0]= (V28);}
152          goto T22;          goto T22;
153  T22:;  T22:;
154          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
155          Lsymbol_function();          Lsymbol_function();
156          vs_top=sup;          vs_top=sup;
157          {object V33 = vs_base[0];          {object V35 = vs_base[0];
158          VMR2(V33)}          VMR2(V35)}
159          base[0]=base[0];          base[0]=base[0];
160          return Cnil;          return Cnil;
161  }  }
162  /*      local entry for function FDEFINE-CAREFULLY      */  /*      local entry for function FDEFINE-CAREFULLY      */
163    
164  static object LI3(V36,V37)  static object LI3(V38,V39)
165    
166  register object V36;object V37;  register object V38;object V39;
167  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
168          goto TTL;          goto TTL;
169  TTL:;  TTL:;
170          {object V38;          {object V40;
171          object V39;          object V41;
172          {object V40 =((V36))->s.s_plist;          {object V42 =((V38))->s.s_plist;
173           object ind= VV[13];           object ind= VV[13];
174          while(V40!=Cnil){          while(V42!=Cnil){
175          if(V40->c.c_car==ind){          if(V42->c.c_car==ind){
176          V38= (V40->c.c_cdr->c.c_car);          V40= (V42->c.c_cdr->c.c_car);
177          goto T39;          goto T39;
178          }else V40=V40->c.c_cdr->c.c_cdr;}          }else V42=V42->c.c_cdr->c.c_cdr;}
179          V38= Cnil;}          V40= Cnil;}
180          goto T39;          goto T39;
181  T39:;  T39:;
182          V39= Cnil;          V41= Cnil;
183          if(((V38))==Cnil){          if(((V40))==Cnil){
184          goto T41;}          goto T41;}
185          base[1]= (V36);          base[1]= (V38);
186          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
187          Lsymbol_function();          Lsymbol_function();
188          vs_top=sup;          vs_top=sup;
189          V41= vs_base[0];          V43= vs_base[0];
190          if(!(type_of(V41)==t_cons)){          if(!(type_of(V43)==t_cons)){
191          goto T41;}          goto T41;}
192          base[1]= (V36);          base[1]= (V38);
193          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
194          Lsymbol_function();          Lsymbol_function();
195          vs_top=sup;          vs_top=sup;
196          V42= vs_base[0];          V44= vs_base[0];
197          V39= CMPcadddr(V42);          V41= CMPcadddr(V44);
198          if(!(type_of((V39))==t_cons)){          V45 = (V41);
199            if(!(type_of(V45)==t_cons)){
200          goto T41;}          goto T41;}
201          if(!((CMPcar((V39)))==(VV[14]))){          if(!((CMPcar((V41)))==(VV[14]))){
202          goto T41;}          goto T41;}
203          base[0]= (V38);          base[0]= (V40);
204          goto T38;          goto T38;
205          goto T41;          goto T41;
206  T41:;  T41:;
207          base[0]= (V36);}          base[0]= (V38);}
208          goto T38;          goto T38;
209  T38:;  T38:;
210          base[1]= (V37);          base[1]= (V39);
211          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
212          siLfset();          siLfset();
213          vs_top=sup;          vs_top=sup;
214          {object V43 = vs_base[0];          {object V46 = vs_base[0];
215          VMR3(V43)}          VMR3(V46)}
216          base[0]=base[0];          base[0]=base[0];
217          return Cnil;          return Cnil;
218  }  }
219  /*      local entry for function GBOUNDP        */  /*      local entry for function GBOUNDP        */
220    
221  static object LI4(V45)  static object LI4(V48)
222    
223  register object V45;  register object V48;
224  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
225          goto TTL;          goto TTL;
226  TTL:;  TTL:;
227          if(!(type_of((V45))==t_symbol)){          if(!(type_of((V48))==t_symbol)){
228          goto T56;}          goto T56;}
229          base[0]= V45;          base[0]= V48;
230          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
231          Lfboundp();          Lfboundp();
232          vs_top=sup;          vs_top=sup;
233          {object V47 = vs_base[0];          {object V50 = vs_base[0];
234          VMR4(V47)}          VMR4(V50)}
235          goto T56;          goto T56;
236  T56:;  T56:;
237          if(!(type_of((V45))==t_cons||((V45))==Cnil)){          if(!(type_of((V48))==t_cons||((V48))==Cnil)){
238          goto T60;}          goto T60;}
239          if(!((CMPcar((V45)))==(VV[15]))){          if(!((CMPcar((V48)))==(VV[15]))){
240          goto T60;}          goto T60;}
241          if(!(type_of(CMPcadr((V45)))==t_symbol)){          if(!(type_of(CMPcadr((V48)))==t_symbol)){
242          goto T60;}          goto T60;}
243          {object V48;          {object V51;
244          V48= CMPcadr((V45));          V51= CMPcadr((V48));
245          base[0]= (*(LnkLI361))((V48));          base[0]= (*(LnkLI361))((V51));
246          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
247          Lfboundp();          Lfboundp();
248          vs_top=sup;          vs_top=sup;
249          {object V49 = vs_base[0];          {object V52 = vs_base[0];
250          VMR4(V49)}}          VMR4(V52)}}
251          goto T60;          goto T60;
252  T60:;  T60:;
253          base[0]= VV[11];          base[0]= VV[11];
254          base[1]= (V45);          base[1]= (V48);
255          base[2]= VV[16];          base[2]= VV[16];
256          base[3]= VV[15];          base[3]= VV[15];
257          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
258          Lerror();          Lerror();
259          vs_top=sup;          vs_top=sup;
260          {object V50 = vs_base[0];          {object V53 = vs_base[0];
261          VMR4(V50)}          VMR4(V53)}
262          base[0]=base[0];          base[0]=base[0];
263          return Cnil;          return Cnil;
264  }  }
265  /*      local entry for function GMAKUNBOUND    */  /*      local entry for function GMAKUNBOUND    */
266    
267  static object LI5(V52)  static object LI5(V55)
268    
269  register object V52;  register object V55;
270  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
271          goto TTL;          goto TTL;
272  TTL:;  TTL:;
273          if(!(type_of((V52))==t_symbol)){          if(!(type_of((V55))==t_symbol)){
274          goto T73;}          goto T73;}
275          base[0]= V52;          base[0]= V55;
276          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
277          Lfmakunbound();          Lfmakunbound();
278          vs_top=sup;          vs_top=sup;
279          {object V54 = vs_base[0];          {object V57 = vs_base[0];
280          VMR5(V54)}          VMR5(V57)}
281          goto T73;          goto T73;
282  T73:;  T73:;
283          if(!(type_of((V52))==t_cons||((V52))==Cnil)){          if(!(type_of((V55))==t_cons||((V55))==Cnil)){
284          goto T77;}          goto T77;}
285          if(!((CMPcar((V52)))==(VV[15]))){          if(!((CMPcar((V55)))==(VV[15]))){
286          goto T77;}          goto T77;}
287          if(!(type_of(CMPcadr((V52)))==t_symbol)){          if(!(type_of(CMPcadr((V55)))==t_symbol)){
288          goto T77;}          goto T77;}
289          {object V55;          {object V58;
290          V55= CMPcadr((V52));          V58= CMPcadr((V55));
291          base[0]= (*(LnkLI361))((V55));          base[0]= (*(LnkLI361))((V58));
292          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
293          Lfmakunbound();          Lfmakunbound();
294          vs_top=sup;          vs_top=sup;
295          {object V56 = vs_base[0];          {object V59 = vs_base[0];
296          VMR5(V56)}}          VMR5(V59)}}
297          goto T77;          goto T77;
298  T77:;  T77:;
299          base[0]= VV[11];          base[0]= VV[11];
300          base[1]= (V52);          base[1]= (V55);
301          base[2]= VV[16];          base[2]= VV[16];
302          base[3]= VV[15];          base[3]= VV[15];
303          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
304          Lerror();          Lerror();
305          vs_top=sup;          vs_top=sup;
306          {object V57 = vs_base[0];          {object V60 = vs_base[0];
307          VMR5(V57)}          VMR5(V60)}
308          base[0]=base[0];          base[0]=base[0];
309          return Cnil;          return Cnil;
310  }  }
311  /*      local entry for function GDEFINITION    */  /*      local entry for function GDEFINITION    */
312    
313  static object LI6(V59)  static object LI6(V62)
314    
315  register object V59;  register object V62;
316  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
317          goto TTL;          goto TTL;
318  TTL:;  TTL:;
319          if(!(type_of((V59))==t_symbol)){          if(!(type_of((V62))==t_symbol)){
320          goto T90;}{object V61;          goto T90;}{object V64;
321          base[0]= V59;          base[0]= V62;
322          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
323          Lmacro_function();          Lmacro_function();
324          vs_top=sup;          vs_top=sup;
325          V61= vs_base[0];          V64= vs_base[0];
326          if(V61==Cnil)goto T92;          if(V64==Cnil)goto T92;
327          {object V62 = V61;          {object V65 = V64;
328          VMR6(V62)}          VMR6(V65)}
329          goto T92;          goto T92;
330  T92:;}  T92:;}
331          {object V63 = (*(LnkLI362))(V59);          {object V66 = (*(LnkLI362))(V62);
332          VMR6(V63)}          VMR6(V66)}
333          goto T90;          goto T90;
334  T90:;  T90:;
335          if(!(type_of((V59))==t_cons||((V59))==Cnil)){          if(!(type_of((V62))==t_cons||((V62))==Cnil)){
336          goto T96;}          goto T96;}
337          if(!((CMPcar((V59)))==(VV[15]))){          if(!((CMPcar((V62)))==(VV[15]))){
338          goto T96;}          goto T96;}
339          if(!(type_of(CMPcadr((V59)))==t_symbol)){          if(!(type_of(CMPcadr((V62)))==t_symbol)){
340          goto T96;}          goto T96;}
341          {object V64;          {object V67;
342          V64= CMPcadr((V59));          V67= CMPcadr((V62));
343          V65= (*(LnkLI361))((V64));          V68= (*(LnkLI361))((V67));
344          {object V66 = (*(LnkLI362))(/* INLINE-ARGS */V65);          {object V69 = (*(LnkLI362))(/* INLINE-ARGS */V68);
345          VMR6(V66)}}          VMR6(V69)}}
346          goto T96;          goto T96;
347  T96:;  T96:;
348          base[0]= VV[11];          base[0]= VV[11];
349          base[1]= (V59);          base[1]= (V62);
350          base[2]= VV[16];          base[2]= VV[16];
351          base[3]= VV[15];          base[3]= VV[15];
352          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
353          Lerror();          Lerror();
354          vs_top=sup;          vs_top=sup;
355          {object V67 = vs_base[0];          {object V70 = vs_base[0];
356          VMR6(V67)}          VMR6(V70)}
357          base[0]=base[0];          base[0]=base[0];
358          return Cnil;          return Cnil;
359  }  }
360  /*      local entry for function SETF PCL GDEFINITION   */  /*      local entry for function SETF PCL GDEFINITION   */
361    
362  static object LI7(V70,V71)  static object LI7(V73,V74)
363    
364  object V70;register object V71;  object V73;register object V74;
365  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
366          goto TTL;          goto TTL;
367  TTL:;  TTL:;
368          if(!(type_of((V71))==t_symbol)){          if(!(type_of((V74))==t_symbol)){
369          goto T108;}          goto T108;}
370          {object V73 = (*(LnkLI363))(V71,(V70));          {object V76 = (*(LnkLI363))(V74,(V73));
371          VMR7(V73)}          VMR7(V76)}
372          goto T108;          goto T108;
373  T108:;  T108:;
374          if(!(type_of((V71))==t_cons||((V71))==Cnil)){          if(!(type_of((V74))==t_cons||((V74))==Cnil)){
375          goto T111;}          goto T111;}
376          if(!((CMPcar((V71)))==(VV[15]))){          if(!((CMPcar((V74)))==(VV[15]))){
377          goto T111;}          goto T111;}
378          if(!(type_of(CMPcadr((V71)))==t_symbol)){          if(!(type_of(CMPcadr((V74)))==t_symbol)){
379          goto T111;}          goto T111;}
380          {object V74;          {object V77;
381          V74= CMPcadr((V71));          V77= CMPcadr((V74));
382          V75= (*(LnkLI361))((V74));          V78= (*(LnkLI361))((V77));
383          {object V76 = (*(LnkLI363))(/* INLINE-ARGS */V75,(V70));          V79 = (V73);
384          VMR7(V76)}}          {object V80 = (*(LnkLI363))(/* INLINE-ARGS */V78,V79);
385            VMR7(V80)}}
386          goto T111;          goto T111;
387  T111:;  T111:;
388          base[0]= VV[11];          base[0]= VV[11];
389          base[1]= (V71);          base[1]= (V74);
390          base[2]= VV[16];          base[2]= VV[16];
391          base[3]= VV[15];          base[3]= VV[15];
392          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
393          Lerror();          Lerror();
394          vs_top=sup;          vs_top=sup;
395          {object V77 = vs_base[0];          {object V81 = vs_base[0];
396          VMR7(V77)}          VMR7(V81)}
397          base[0]=base[0];          base[0]=base[0];
398          return Cnil;          return Cnil;
399  }  }
# Line 399  static void L8() Line 403  static void L8()
403  {register object *base=vs_base;  {register object *base=vs_base;
404          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
405          vs_check;          vs_check;
406          {register object V78;          {register object V82;
407          object V79;          object V83;
408          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
409          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
410          V78=(base[0]);          V82=(base[0]);
411          vs_base=vs_base+1;          vs_base=vs_base+1;
412          if(vs_base>=vs_top){vs_top=sup;goto T122;}          if(vs_base>=vs_top){vs_top=sup;goto T122;}
413          V79=(base[1]);          V83=(base[1]);
414          vs_top=sup;          vs_top=sup;
415          goto T123;          goto T123;
416          goto T122;          goto T122;
417  T122:;  T122:;
418          V79= Cnil;          V83= Cnil;
419          goto T123;          goto T123;
420  T123:;  T123:;
421          if(!(type_of((V78))==t_symbol)){          if(!(type_of((V82))==t_symbol)){
422          goto T126;}{object V80;          goto T126;}{object V84;
423          V80= (VFUN_NARGS=2,(*(LnkLI364))((V78),(((V79))==Cnil?Ct:Cnil)));          V84= (VFUN_NARGS=2,(*(LnkLI364))((V82),(((V83))==Cnil?Ct:Cnil)));
424          if(V80==Cnil)goto T128;          if(V84==Cnil)goto T128;
425          base[2]= V80;          base[2]= V84;
426          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
427          return;          return;
428          goto T128;          goto T128;
429  T128:;}  T128:;}
430          base[2]= (V78);          base[2]= (V82);
431          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
432          (void) (*Lnk365)();          (void) (*Lnk365)();
433          return;          return;
434          goto T126;          goto T126;
435  T126:;  T126:;
436          base[2]= (V78);          base[2]= (V82);
437          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
438          return;          return;
439          }          }
# Line 440  static void L9() Line 444  static void L9()
444  {register object *base=vs_base;  {register object *base=vs_base;
445          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
446          vs_check;          vs_check;
447          {register object V81;          {register object V85;
448          check_arg(1);          check_arg(1);
449          V81=(base[0]);          V85=(base[0]);
450          vs_top=sup;          vs_top=sup;
451          goto TTL;          goto TTL;
452  TTL:;  TTL:;
453          {register object V82;          {register object V86;
454          V82= Cnil;          V86= Cnil;
455          if(!(type_of((V81))==t_cons)){          if(!(type_of((V85))==t_cons)){
456          goto T132;}          goto T132;}
457          V82= CMPcdr((V81));          V86= CMPcdr((V85));
458          V81= CMPcar((V81));          V85= CMPcar((V85));
459          goto T132;          goto T132;
460  T132:;  T132:;
461          if(!(type_of((V81))==t_symbol)){          if(!(type_of((V85))==t_symbol)){
462          goto T139;}{object V83;          goto T139;}{object V87;
463          if(((V82))==Cnil){          if(((V86))==Cnil){
464          goto T143;}          goto T143;}
465          V83= Cnil;          V87= Cnil;
466          goto T142;          goto T142;
467          goto T143;          goto T143;
468  T143:;  T143:;
469          V83= (VFUN_NARGS=1,(*(LnkLI364))((V81)));          V87= (VFUN_NARGS=1,(*(LnkLI364))((V85)));
470          goto T142;          goto T142;
471  T142:;  T142:;
472          if(V83==Cnil)goto T141;          if(V87==Cnil)goto T141;
473          base[1]= V83;          base[1]= V87;
474          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
475          return;          return;
476          goto T141;          goto T141;
477  T141:;}  T141:;}
478          {object V84= (V81);          {object V88= (V85);
479          if((V84!= VV[41]))goto T145;          if((V88!= VV[41]))goto T145;
480          base[1]= CMPcar((V82));          base[1]= CMPcar((V86));
481          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
482          (void) (*Lnk366)();          (void) (*Lnk366)();
483          return;          return;
484          goto T145;          goto T145;
485  T145:;  T145:;
486          if((V84!= VV[121]))goto T147;          if((V88!= VV[121]))goto T147;
487          base[1]= VV[17];          base[1]= VV[17];
488          base[2]= VV[18];          base[2]= VV[18];
489          base[4]= CMPcar((V82));          base[4]= CMPcar((V86));
490          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
491          (void) (*Lnk366)();          (void) (*Lnk366)();
492          vs_top=sup;          vs_top=sup;
# Line 492  T145:; Line 496  T145:;
496          return;          return;
497          goto T147;          goto T147;
498  T147:;  T147:;
499          if((V84!= VV[368]))goto T152;          if((V88!= VV[368]))goto T152;
500          base[2]= CMPcar((V82));          base[2]= CMPcar((V86));
501          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
502          (void) (*Lnk366)();          (void) (*Lnk366)();
503          vs_top=sup;          vs_top=sup;
# Line 503  T147:; Line 507  T147:;
507          return;          return;
508          goto T152;          goto T152;
509  T152:;  T152:;
510          if((V84!= VV[369]))goto T155;          if((V88!= VV[369]))goto T155;
511          base[1]= (*(LnkLI370))(CMPcar((V82)));          base[1]= (*(LnkLI370))(CMPcar((V86)));
512          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
513          return;          return;
514          goto T155;          goto T155;
515  T155:;  T155:;
516          FEerror("The ECASE key value ~s is illegal.",1,V84);          FEerror("The ECASE key value ~s is illegal.",1,V88);
517          base[1]= Cnil;          base[1]= Cnil;
518          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
519          return;}          return;}
520          goto T139;          goto T139;
521  T139:;  T139:;
522          base[1]= (V81);          base[1]= (V85);
523          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
524          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk371)(Lclptr371);
525          vs_top=sup;          vs_top=sup;
526          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
527          goto T157;}          goto T157;}
528          base[1]= (V81);          base[1]= (V85);
529          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
530          return;          return;
531          goto T157;          goto T157;
# Line 537  static void L10() Line 541  static void L10()
541  {register object *base=vs_base;  {register object *base=vs_base;
542          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
543          vs_check;          vs_check;
544          {register object V85;          {register object V89;
545          check_arg(1);          check_arg(1);
546          V85=(base[0]);          V89=(base[0]);
547          vs_top=sup;          vs_top=sup;
548          goto TTL;          goto TTL;
549  TTL:;  TTL:;
550          if(!(((V85))==(Ct))){          if(!(((V89))==(Ct))){
551          goto T161;}          goto T161;}
552          base[1]= Ct;          base[1]= Ct;
553          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
554          return;          return;
555          goto T161;          goto T161;
556  T161:;  T161:;
557          if(!(type_of((V85))==t_cons)){          if(!(type_of((V89))==t_cons)){
558          goto T164;}          goto T164;}
559          {register object x= CMPcar((V85)),V86= VV[19];          {register object x= CMPcar((V89)),V90= VV[19];
560          while(V86!=Cnil)          while(V90!=Cnil)
561          if(eql(x,V86->c.c_car)){          if(eql(x,V90->c.c_car)){
562          goto T166;          goto T166;
563          }else V86=V86->c.c_cdr;}          }else V90=V90->c.c_cdr;}
564          base[1]= VV[20];          base[1]= VV[20];
565          base[2]= (V85);          base[2]= (V89);
566          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
567          Lerror();          Lerror();
568          vs_top=sup;          vs_top=sup;
569          goto T166;          goto T166;
570  T166:;  T166:;
571          base[1]= (V85);          base[1]= (V89);
572          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
573          return;          return;
574          goto T164;          goto T164;
575  T164:;  T164:;
576          if(!(type_of((V85))==t_symbol)){          if(!(type_of((V89))==t_symbol)){
577          goto T174;}          goto T174;}
578          V85= (VFUN_NARGS=1,(*(LnkLI364))((V85)));          V89= (VFUN_NARGS=1,(*(LnkLI364))((V89)));
579          goto T174;          goto T174;
580  T174:;  T174:;
581          if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){          if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){
# Line 579  T174:; Line 583  T174:;
583          goto T173;          goto T173;
584          goto T178;          goto T178;
585  T178:;  T178:;
586          base[1]= (V85);          base[1]= (V89);
587          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
588          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk371)(Lclptr371);
589          vs_top=sup;          vs_top=sup;
# Line 587  T178:; Line 591  T178:;
591          goto T172;}          goto T172;}
592          goto T173;          goto T173;
593  T173:;  T173:;
594          base[1]= (V85);          base[1]= (V89);
595          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
596          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk372)(Lclptr372);
597          return;          return;
598          goto T172;          goto T172;
599  T172:;  T172:;
600          base[1]= VV[23];          base[1]= VV[23];
601          base[2]= (V85);          base[2]= (V89);
602          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
603          Lerror();          Lerror();
604          return;          return;
# Line 602  T172:; Line 606  T172:;
606  }  }
607  /*      local entry for function TYPE-CLASS     */  /*      local entry for function TYPE-CLASS     */
608    
609  static object LI11(V88)  static object LI11(V92)
610    
611  register object V88;  register object V92;
612  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
613          goto TTL;          goto TTL;
614  TTL:;  TTL:;
615          base[0]= (V88);          base[0]= (V92);
616          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
617          (void) (*Lnk373)();          (void) (*Lnk373)();
618          vs_top=sup;          vs_top=sup;
619          V88= vs_base[0];          V92= vs_base[0];
620          if(!(type_of((V88))!=t_cons)){          if(!(type_of((V92))!=t_cons)){
621          goto T188;}          goto T188;}
622          if(!(((V88))==(Ct))){          if(!(((V92))==(Ct))){
623          goto T191;}          goto T191;}
624          {object V89 = (VV[24]->s.s_dbind);          {object V93 = (VV[24]->s.s_dbind);
625          VMR11(V89)}          VMR11(V93)}
626          goto T191;          goto T191;
627  T191:;  T191:;
628          base[0]= VV[25];          base[0]= VV[25];
629          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
630          Lerror();          Lerror();
631          vs_top=sup;          vs_top=sup;
632          {object V90 = vs_base[0];          {object V94 = vs_base[0];
633          VMR11(V90)}          VMR11(V94)}
634          goto T188;          goto T188;
635  T188:;  T188:;
636          {object V91= CMPcar((V88));          {object V95= CMPcar((V92));
637          if((V91!= VV[369]))goto T194;          if((V95!= VV[369]))goto T194;
638          {object V92 = (*(LnkLI374))(CMPcadr((V88)));          {object V96 = (*(LnkLI374))(CMPcadr((V92)));
639          VMR11(V92)}          VMR11(V96)}
640          goto T194;          goto T194;
641  T194:;  T194:;
642          if((V91!= VV[121]))goto T195;          if((V95!= VV[121]))goto T195;
643          {object V93 = (*(LnkLI374))(CMPcadr((V88)));          {object V97 = (*(LnkLI374))(CMPcadr((V92)));
644          VMR11(V93)}          VMR11(V97)}
645          goto T195;          goto T195;
646  T195:;  T195:;
647          if((V91!= VV[368]))goto T196;          if((V95!= VV[368]))goto T196;
648          {object V94 = CMPcadr((V88));          {object V98 = CMPcadr((V92));
649          VMR11(V94)}          VMR11(V98)}
650          goto T196;          goto T196;
651  T196:;  T196:;
652          if((V91!= VV[41]))goto T197;          if((V95!= VV[41]))goto T197;
653          {object V95 = CMPcadr((V88));          {object V99 = CMPcadr((V92));
654          VMR11(V95)}          VMR11(V99)}
655          goto T197;          goto T197;
656  T197:;  T197:;
657          {object V96 = Cnil;          {object V100 = Cnil;
658          VMR11(V96)}}          VMR11(V100)}}
659          base[0]=base[0];          base[0]=base[0];
660          return Cnil;          return Cnil;
661  }  }
# Line 661  static void L12() Line 665  static void L12()
665  {register object *base=vs_base;  {register object *base=vs_base;
666          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
667          vs_check;          vs_check;
668          {object V97;          {object V101;
669          check_arg(1);          check_arg(1);
670          V97=(base[0]);          V101=(base[0]);
671          vs_top=sup;          vs_top=sup;
672          goto TTL;          goto TTL;
673  TTL:;  TTL:;
674          base[2]= (V97);          base[2]= (V101);
675          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
676          (void) (*Lnk92)(Lclptr92);          (void) (*Lnk92)(Lclptr92);
677          vs_top=sup;          vs_top=sup;
# Line 679  TTL:; Line 683  TTL:;
683  }  }
684  /*      local entry for function INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS     */  /*      local entry for function INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS     */
685    
686  static object LI13(V99)  static object LI13(V103)
687    
688  object V99;  object V103;
689  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
690          goto TTL;          goto TTL;
691  TTL:;  TTL:;
692          {object V100;          {object V104;
693          V100= (VFUN_NARGS=1,(*(LnkLI375))((V99)));          V104= (VFUN_NARGS=1,(*(LnkLI375))((V103)));
694          V102= (*(LnkLI377))((V99));          V106= (*(LnkLI377))((V103));
695          (void)((*(LnkLI376))(/* INLINE-ARGS */V102,V100));          V107 = V104;
696          {object V103 = (*(LnkLI378))((V99),(V100));          (void)((*(LnkLI376))(/* INLINE-ARGS */V106,V107));
697          VMR13(V103)}}          {object V108 = (*(LnkLI378))((V103),(V104));
698            VMR13(V108)}}
699          return Cnil;          return Cnil;
700  }  }
701  /*      local entry for function MAKE-TYPE-PREDICATE    */  /*      local entry for function MAKE-TYPE-PREDICATE    */
702    
703  static object LI14(V105)  static object LI14(V110)
704    
705  object V105;  object V110;
706  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
707          goto TTL;          goto TTL;
708  TTL:;  TTL:;
709          base[0]= (VFUN_NARGS=1,(*(LnkLI379))((V105)));          base[0]= (VFUN_NARGS=1,(*(LnkLI379))((V110)));
710          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
711          {object V106 =          {object V111 =
712          make_cclosure_new(LC79,Cnil,base[0],Cdata);          make_cclosure_new(LC79,Cnil,base[0],Cdata);
713          VMR14(V106)}          VMR14(V111)}
714          base[0]=base[0];          base[0]=base[0];
715          return Cnil;          return Cnil;
716  }  }
717  /*      local entry for function CLASS-PREDICATE        */  /*      local entry for function CLASS-PREDICATE        */
718    
719  static object LI16(V108)  static object LI16(V113)
720    
721  object V108;  object V113;
722  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
723          goto TTL;          goto TTL;
724  TTL:;  TTL:;
725          base[0]=MMcons((V108),Cnil);          base[0]=MMcons((V113),Cnil);
726          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
727          goto T203;}          goto T203;}
728          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));
729          goto T203;          goto T203;
730  T203:;  T203:;
731          {object V109 =          {object V114 =
732          make_cclosure_new(LC80,Cnil,base[0],Cdata);          make_cclosure_new(LC80,Cnil,base[0],Cdata);
733          VMR15(V109)}          VMR15(V114)}
734          base[0]=base[0];          base[0]=base[0];
735          return Cnil;          return Cnil;
736  }  }
737  /*      local entry for function MAKE-CLASS-EQ-PREDICATE        */  /*      local entry for function MAKE-CLASS-EQ-PREDICATE        */
738    
739  static object LI18(V111)  static object LI18(V116)
740    
741  object V111;  object V116;
742  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
743          goto TTL;          goto TTL;
744  TTL:;  TTL:;
745          base[0]=MMcons((V111),Cnil);          base[0]=MMcons((V116),Cnil);
746          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
747          goto T207;}          goto T207;}
748          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));          (base[0]->c.c_car)= (VFUN_NARGS=1,(*(LnkLI364))((base[0]->c.c_car)));
749          goto T207;          goto T207;
750  T207:;  T207:;
751          {object V112 =          {object V117 =
752          make_cclosure_new(LC81,Cnil,base[0],Cdata);          make_cclosure_new(LC81,Cnil,base[0],Cdata);
753          VMR16(V112)}          VMR16(V117)}
754          base[0]=base[0];          base[0]=base[0];
755          return Cnil;          return Cnil;
756  }  }
757  /*      local entry for function MAKE-EQL-PREDICATE     */  /*      local entry for function MAKE-EQL-PREDICATE     */
758    
759  static object LI20(V114)  static object LI20(V119)
760    
761  object V114;  object V119;
762  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
763          goto TTL;          goto TTL;
764  TTL:;  TTL:;
765          base[0]=MMcons((V114),Cnil);          base[0]=MMcons((V119),Cnil);
766          {object V115 =          {object V120 =
767          make_cclosure_new(LC82,Cnil,base[0],Cdata);          make_cclosure_new(LC82,Cnil,base[0],Cdata);
768          VMR17(V115)}          VMR17(V120)}
769          base[0]=base[0];          base[0]=base[0];
770          return Cnil;          return Cnil;
771  }  }
# Line 770  static void L21() Line 775  static void L21()
775  {register object *base=vs_base;  {register object *base=vs_base;
776          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
777          vs_check;          vs_check;
778          {object V116;          {object V121;
779          check_arg(1);          check_arg(1);
780          V116=(base[0]);          V121=(base[0]);
781          vs_top=sup;          vs_top=sup;
782          goto TTL;          goto TTL;
783  TTL:;  TTL:;
784          base[1]= list(2,VV[26],(V116));          base[1]= list(2,VV[26],(V121));
785          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
786          return;          return;
787          }          }
# Line 787  static void L22() Line 792  static void L22()
792  {register object *base=vs_base;  {register object *base=vs_base;
793          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
794          vs_check;          vs_check;
795          {register object V117;          {register object V122;
796          check_arg(1);          check_arg(1);
797          V117=(base[0]);          V122=(base[0]);
798          vs_top=sup;          vs_top=sup;
799          goto TTL;          goto TTL;
800  TTL:;  TTL:;
801          if(!(type_of((V117))==t_cons)){          if(!(type_of((V122))==t_cons)){
802          goto T212;}          goto T212;}
803          {register object x= CMPcar((V117)),V118= VV[27];          {register object x= CMPcar((V122)),V123= VV[27];
804          while(V118!=Cnil)          while(V123!=Cnil)
805          if(eql(x,V118->c.c_car)){          if(eql(x,V123->c.c_car)){
806          goto T216;          goto T216;
807          }else V118=V118->c.c_cdr;          }else V123=V123->c.c_cdr;
808          goto T215;}          goto T215;}
809          goto T216;          goto T216;
810  T216:;  T216:;
811          V119= CMPcar((V117));          V124= CMPcar((V122));
812          {object V121;          {object V126;
813          object V122= CMPcdr((V117));          object V127= CMPcdr((V122));
814          if(V122==Cnil){          if(V127==Cnil){
815          V120= Cnil;          V125= Cnil;
816          goto T217;}          goto T217;}
817          base[1]=V121=MMcons(Cnil,Cnil);          base[1]=V126=MMcons(Cnil,Cnil);
818          goto T218;          goto T218;
819  T218:;  T218:;
820          base[2]= (V122->c.c_car);          base[2]= (V127->c.c_car);
821          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
822          (void) (*Lnk380)();          (void) (*Lnk380)();
823          vs_top=sup;          vs_top=sup;
824          (V121->c.c_car)= vs_base[0];          (V126->c.c_car)= vs_base[0];
825          if((V122=MMcdr(V122))==Cnil){          if((V127=MMcdr(V127))==Cnil){
826          V120= base[1];          V125= base[1];
827          goto T217;}          goto T217;}
828          V121=MMcdr(V121)=MMcons(Cnil,Cnil);          V126=MMcdr(V126)=MMcons(Cnil,Cnil);
829          goto T218;}          goto T218;}
830          goto T217;          goto T217;
831  T217:;  T217:;
832          base[1]= make_cons(/* INLINE-ARGS */V119,V120);          base[1]= make_cons(/* INLINE-ARGS */V124,V125);
833          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
834          return;          return;
835          goto T215;          goto T215;
836  T215:;  T215:;
837          if((CMPcdr((V117)))!=Cnil){          if((CMPcdr((V122)))!=Cnil){
838          goto T222;}          goto T222;}
839          V117= CMPcar((V117));          V122= CMPcar((V122));
840          goto TTL;          goto TTL;
841          goto T222;          goto T222;
842  T222:;  T222:;
843          base[1]= (V117);          base[1]= (V122);
844          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
845          return;          return;
846          goto T212;          goto T212;
847  T212:;  T212:;
848          if(!(type_of((V117))==t_symbol)){          if(!(type_of((V122))==t_symbol)){
849          goto T227;}          goto T227;}
850          {object V123;          {object V128;
851          V123= (VFUN_NARGS=2,(*(LnkLI364))((V117),Cnil));          V128= (VFUN_NARGS=2,(*(LnkLI364))((V122),Cnil));
852          if(((V123))==Cnil){          if(((V128))==Cnil){
853          goto T231;}          goto T231;}
854          {object V124;          {object V129;
855          base[1]= (V123);          base[1]= (V128);
856          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
857          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk372)(Lclptr372);
858          vs_top=sup;          vs_top=sup;
859          V124= vs_base[0];          V129= vs_base[0];
860          if(!(type_of((V124))==t_cons||((V124))==Cnil)){          if(!(type_of((V129))==t_cons||((V129))==Cnil)){
861          goto T236;}          goto T236;}
862          base[1]= (V124);          base[1]= (V129);
863          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
864          return;          return;
865          goto T236;          goto T236;
866  T236:;  T236:;
867          base[1]= make_cons((V124),Cnil);          base[1]= make_cons((V129),Cnil);
868          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
869          return;}          return;}
870          goto T231;          goto T231;
871  T231:;  T231:;
872          base[1]= make_cons((V117),Cnil);          base[1]= make_cons((V122),Cnil);
873          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
874          return;}          return;}
875          goto T227;          goto T227;
876  T227:;  T227:;
877          if(!(((VV[21]->s.s_dbind))==(VV[22]))){          if(!(((VV[21]->s.s_dbind))==(VV[22]))){
878          goto T238;}          goto T238;}
879          base[1]= (V117);          base[1]= (V122);
880          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
881          (void) (*Lnk371)(Lclptr371);          (void) (*Lnk371)(Lclptr371);
882          vs_top=sup;          vs_top=sup;
# Line 879  T227:; Line 884  T227:;
884          goto T239;}          goto T239;}
885          goto T238;          goto T238;
886  T238:;  T238:;
887          base[1]= (V117);          base[1]= (V122);
888          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
889          (void) (*Lnk372)(Lclptr372);          (void) (*Lnk372)(Lclptr372);
890          return;          return;
891          goto T239;          goto T239;
892  T239:;  T239:;
893          base[1]= VV[28];          base[1]= VV[28];
894          base[2]= (V117);          base[2]= (V122);
895          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
896          Lerror();          Lerror();
897          return;          return;
# Line 898  static void L23() Line 903  static void L23()
903  {register object *base=vs_base;  {register object *base=vs_base;
904          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
905          vs_check;          vs_check;
906          {register object V125;          {register object V130;
907          check_arg(1);          check_arg(1);
908          V125=(base[0]);          V130=(base[0]);
909          vs_top=sup;          vs_top=sup;
910          goto TTL;          goto TTL;
911  TTL:;  TTL:;
912          {object V126= CMPcar((V125));          {object V131= CMPcar((V130));
913          if((V126!= VV[381])          if((V131!= VV[381])
914          && (V126!= VV[4])          && (V131!= VV[4])
915          && (V126!= VV[382]))goto T247;          && (V131!= VV[382]))goto T247;
916          V127= CMPcar((V125));          V132= CMPcar((V130));
917          {object V129;          {object V134;
918          object V130= CMPcdr((V125));          object V135= CMPcdr((V130));
919          if(V130==Cnil){          if(V135==Cnil){
920          V128= Cnil;          V133= Cnil;
921          goto T248;}          goto T248;}
922          base[1]=V129=MMcons(Cnil,Cnil);          base[1]=V134=MMcons(Cnil,Cnil);
923          goto T249;          goto T249;
924  T249:;  T249:;
925          base[2]= (V130->c.c_car);          base[2]= (V135->c.c_car);
926          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
927          (void) (*Lnk383)();          (void) (*Lnk383)();
928          vs_top=sup;          vs_top=sup;
929          (V129->c.c_car)= vs_base[0];          (V134->c.c_car)= vs_base[0];
930          if((V130=MMcdr(V130))==Cnil){          if((V135=MMcdr(V135))==Cnil){
931          V128= base[1];          V133= base[1];
932          goto T248;}          goto T248;}
933          V129=MMcdr(V129)=MMcons(Cnil,Cnil);          V134=MMcdr(V134)=MMcons(Cnil,Cnil);
934          goto T249;}          goto T249;}
935          goto T248;          goto T248;
936  T248:;  T248:;
937          base[1]= make_cons(/* INLINE-ARGS */V127,V128);          base[1]= make_cons(/* INLINE-ARGS */V132,V133);
938          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
939          return;          return;
940          goto T247;          goto T247;
941  T247:;  T247:;
942          if((V126!= VV[41])          if((V131!= VV[41])
943          && (V126!= VV[368]))goto T252;          && (V131!= VV[368]))goto T252;
944          base[1]= CMPcadr((V125));          base[1]= CMPcadr((V130));
945          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
946          (void) (*Lnk384)(Lclptr384);          (void) (*Lnk384)(Lclptr384);
947          return;          return;
948          goto T252;          goto T252;
949  T252:;  T252:;
950          if((V126!= VV[369]))goto T254;          if((V131!= VV[369]))goto T254;
951          base[1]= (V125);          base[1]= (V130);
952          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
953          return;          return;
954          goto T254;          goto T254;
955  T254:;  T254:;
956          if((CMPcdr((V125)))!=Cnil){          if((CMPcdr((V130)))!=Cnil){
957          goto T256;}          goto T256;}
958          base[1]= CMPcar((V125));          base[1]= CMPcar((V130));
959          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
960          return;          return;
961          goto T256;          goto T256;
962  T256:;  T256:;
963          base[1]= (V125);          base[1]= (V130);
964          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
965          return;}          return;}
966          }          }
# Line 967  static void L24() Line 972  static void L24()
972          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
973          vs_check;          vs_check;
974          bds_check;          bds_check;
975          {register object V131;          {register object V136;
976          register object V132;          register object V137;
977          check_arg(2);          check_arg(2);
978          V131=(base[0]);          V136=(base[0]);
979          V132=(base[1]);          V137=(base[1]);
980          vs_top=sup;          vs_top=sup;
981          goto TTL;          goto TTL;
982  TTL:;  TTL:;
983          if(!(equal((V131),(V132)))){          if(!(equal((V136),(V137)))){
984          goto T259;}          goto T259;}
985          base[2]= Ct;          base[2]= Ct;
986          base[3]= Ct;          base[3]= Ct;
# Line 985  TTL:; Line 990  TTL:;
990  T259:;  T259:;
991          if(!(((VV[21]->s.s_dbind))==(VV[29]))){          if(!(((VV[21]->s.s_dbind))==(VV[29]))){
992          goto T264;}          goto T264;}
993          base[2]= (((V131))==((V132))?Ct:Cnil);          base[2]= (((V136))==((V137))?Ct:Cnil);
994          base[3]= Ct;          base[3]= Ct;
995          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
996          return;          return;
997          goto T264;          goto T264;
998  T264:;  T264:;
999          bds_bind(VV[30],Ct);          bds_bind(VV[30],Ct);
1000          base[3]= (V131);          base[3]= (V136);
1001          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1002          (void) (*Lnk380)();          (void) (*Lnk380)();
1003          vs_top=sup;          vs_top=sup;
1004          V131= vs_base[0];          V136= vs_base[0];
1005          base[3]= (V132);          base[3]= (V137);
1006          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1007          (void) (*Lnk380)();          (void) (*Lnk380)();
1008          vs_top=sup;          vs_top=sup;
1009          V132= vs_base[0];          V137= vs_base[0];
1010          {object V133= CMPcar((V132));          {object V138= CMPcar((V137));
1011          if((V133!= VV[381]))goto T274;          if((V138!= VV[381]))goto T274;
1012          base[3]= Cnil;          base[3]= Cnil;
1013          base[4]= Cnil;          base[4]= Cnil;
1014          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 1011  T264:; Line 1016  T264:;
1016          return;          return;
1017          goto T274;          goto T274;
1018  T274:;  T274:;
1019          if((V133!= VV[4]))goto T277;          if((V138!= VV[4]))goto T277;
1020          base[3]= Cnil;          base[3]= Cnil;
1021          base[4]= Cnil;          base[4]= Cnil;
1022          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 1019  T274:; Line 1024  T274:;
1024          return;          return;
1025          goto T277;          goto T277;
1026  T277:;  T277:;
1027          if((V133!= VV[369])          if((V138!= VV[369])
1028          && (V133!= VV[385])          && (V138!= VV[385])
1029          && (V133!= VV[368])          && (V138!= VV[368])
1030          && (V133!= VV[41]))goto T280;          && (V138!= VV[41]))goto T280;
1031          {object V134;          {object V139;
1032          object V135;          object V140;
1033          base[3]= (V132);          base[3]= (V137);
1034          base[4]= (V131);          base[4]= (V136);
1035          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1036          (void) (*Lnk386)();          (void) (*Lnk386)();
1037          if(vs_base>=vs_top){vs_top=sup;goto T284;}          if(vs_base>=vs_top){vs_top=sup;goto T284;}
1038          V134= vs_base[0];          V139= vs_base[0];
1039          vs_base++;          vs_base++;
1040          if(vs_base>=vs_top){vs_top=sup;goto T285;}          if(vs_base>=vs_top){vs_top=sup;goto T285;}
1041          V135= vs_base[0];          V140= vs_base[0];
1042          vs_top=sup;          vs_top=sup;
1043          goto T286;          goto T286;
1044          goto T284;          goto T284;
1045  T284:;  T284:;
1046          V134= Cnil;          V139= Cnil;
1047          goto T285;          goto T285;
1048  T285:;  T285:;
1049          V135= Cnil;          V140= Cnil;
1050          goto T286;          goto T286;
1051  T286:;  T286:;
1052          base[3]= (V134);          base[3]= (V139);
1053          if((V134)!=Cnil){          if((V139)!=Cnil){
1054          base[4]= (V134);          base[4]= (V139);
1055          goto T288;}          goto T288;}
1056          base[4]= (((V135))==Cnil?Ct:Cnil);          base[4]= (((V140))==Cnil?Ct:Cnil);
1057          goto T288;          goto T288;
1058  T288:;  T288:;
1059          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 1056  T288:; Line 1061  T288:;
1061          return;}          return;}
1062          goto T280;          goto T280;
1063  T280:;  T280:;
1064          base[4]= (V131);          base[4]= (V136);
1065          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1066          (void) (*Lnk383)();          (void) (*Lnk383)();
1067          vs_top=sup;          vs_top=sup;
1068          base[3]= vs_base[0];          base[3]= vs_base[0];
1069          base[5]= (V132);          base[5]= (V137);
1070          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1071          (void) (*Lnk383)();          (void) (*Lnk383)();
1072          vs_top=sup;          vs_top=sup;
# Line 1074  T280:; Line 1079  T280:;
1079  }  }
1080  /*      local entry for function DO-SATISFIES-DEFTYPE   */  /*      local entry for function DO-SATISFIES-DEFTYPE   */
1081    
1082  static object LI25(V138,V139)  static object LI25(V143,V144)
1083    
1084  object V138;object V139;  object V143;object V144;
1085  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1086          goto TTL;          goto TTL;
1087  TTL:;  TTL:;
1088          base[0]= list(4,VV[31],(V138),Cnil,list(2,VV[32],list(2,VV[33],(V139))));          base[0]= list(4,VV[31],(V143),Cnil,list(2,VV[32],list(2,VV[33],(V144))));
1089          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1090          Leval();          Leval();
1091          vs_top=sup;          vs_top=sup;
1092          {object V140 = vs_base[0];          {object V145 = vs_base[0];
1093          VMR22(V140)}          VMR22(V145)}
1094          base[0]=base[0];          base[0]=base[0];
1095          return Cnil;          return Cnil;
1096  }  }
1097  /*      local entry for function MAKE-TYPE-PREDICATE-NAME       */  /*      local entry for function MAKE-TYPE-PREDICATE-NAME       */
1098    
1099  static object LI26(object V141,object first,...)  static object LI26(object V146,object first,...)
1100  {        {      
1101          va_list ap;          va_list ap;
1102          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
1103          {register object V142;          {register object V147;
1104          object V143;          object V148;
1105          va_start(ap,first);          va_start(ap,first);
1106          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1107          V142= V141;          V147= V146;
1108          narg = narg - 1;          narg = narg - 1;
1109          if (narg <= 0) goto T294;          if (narg <= 0) goto T294;
1110          else {          else {
1111          V143= first;}          V148= first;}
1112          --narg; goto T295;          --narg; goto T295;
1113          goto T294;          goto T294;
1114  T294:;  T294:;
1115          V143= Cnil;          V148= Cnil;
1116          goto T295;          goto T295;
1117  T295:;  T295:;
1118          base[0]= (V142);          base[0]= (V147);
1119          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1120          Lsymbol_package();          Lsymbol_package();
1121          vs_top=sup;          vs_top=sup;
# Line 1118  T295:; Line 1123  T295:;
1123          goto T298;}          goto T298;}
1124          base[1]= Cnil;          base[1]= Cnil;
1125          base[2]= VV[34];          base[2]= VV[34];
1126          base[3]= (V143);          base[3]= (V148);
1127          base[6]= (V142);          base[6]= (V147);
1128          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1129          Lsymbol_package();          Lsymbol_package();
1130          vs_top=sup;          vs_top=sup;
# Line 1128  T295:; Line 1133  T295:;
1133          Lpackage_name();          Lpackage_name();
1134          vs_top=sup;          vs_top=sup;
1135          base[4]= vs_base[0];          base[4]= vs_base[0];
1136          base[5]= symbol_name((V142));          base[5]= symbol_name((V147));
1137          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1138          Lformat();          Lformat();
1139          vs_top=sup;          vs_top=sup;
# Line 1137  T295:; Line 1142  T295:;
1142          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1143          Lintern();          Lintern();
1144          vs_top=sup;          vs_top=sup;
1145          {object V144 = vs_base[0];          {object V149 = vs_base[0];
1146          VMR23(V144)}          VMR23(V149)}
1147          goto T298;          goto T298;
1148  T298:;  T298:;
1149          base[1]= Cnil;          base[1]= Cnil;
1150          base[2]= VV[36];          base[2]= VV[36];
1151          base[3]= (V143);          base[3]= (V148);
1152          base[4]= symbol_name((V142));          base[4]= symbol_name((V147));
1153          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1154          Lformat();          Lformat();
1155          vs_top=sup;          vs_top=sup;
# Line 1152  T298:; Line 1157  T298:;
1157          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1158          Lmake_symbol();          Lmake_symbol();
1159          vs_top=sup;          vs_top=sup;
1160          {object V145 = vs_base[0];          {object V150 = vs_base[0];
1161          VMR23(V145)}          VMR23(V150)}
1162          va_end(ap);          va_end(ap);
1163          base[0]=base[0];          base[0]=base[0];
1164          return Cnil;}          return Cnil;}
1165          }          }
1166  /*      local entry for function GET-BUILT-IN-CLASS-SYMBOL      */  /*      local entry for function GET-BUILT-IN-CLASS-SYMBOL      */
1167    
1168  static object LI27(V147)  static object LI27(V152)
1169    
1170  object V147;  object V152;
1171  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1172          goto TTL;          goto TTL;
1173  TTL:;{object V148;  TTL:;{object V153;
1174          {register object x= (V147),V150= (VV[37]->s.s_dbind);          {register object x= (V152),V155= (VV[37]->s.s_dbind);
1175          while(V150!=Cnil)          while(V155!=Cnil)
1176          if(EQ(x,V150->c.c_car->c.c_car) &&V150->c.c_car != Cnil){          if(EQ(x,V155->c.c_car->c.c_car) &&V155->c.c_car != Cnil){
1177          V149= (V150->c.c_car);          V154= (V155->c.c_car);
1178          goto T317;          goto T317;
1179          }else V150=V150->c.c_cdr;          }else V155=V155->c.c_cdr;
1180          V149= Cnil;}          V154= Cnil;}
1181          goto T317;          goto T317;
1182  T317:;  T317:;
1183          V148= CMPcadr(V149);          V153= CMPcadr(V154);
1184          if(V148==Cnil)goto T315;          if(V153==Cnil)goto T315;
1185          {object V151 = V148;          {object V156 = V153;
1186          VMR24(V151)}          VMR24(V156)}
1187          goto T315;          goto T315;
1188  T315:;}  T315:;}
1189          {object V152;          {object V157;
1190          base[1]= Cnil;          base[1]= Cnil;
1191          base[2]= VV[38];          base[2]= VV[38];
1192          base[3]= symbol_name((V147));          base[3]= symbol_name((V152));
1193          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1194          Lformat();          Lformat();
1195          vs_top=sup;          vs_top=sup;
# Line 1193  T315:;} Line 1198  T315:;}
1198          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1199          Lintern();          Lintern();
1200          vs_top=sup;          vs_top=sup;
1201          V152= vs_base[0];          V157= vs_base[0];
1202          {object V153;          {object V158;
1203          V153= list(2,(V147),(V152));          V158= list(2,(V152),(V157));
1204          (VV[37]->s.s_dbind)= make_cons((V153),(VV[37]->s.s_dbind));}          (VV[37]->s.s_dbind)= make_cons((V158),(VV[37]->s.s_dbind));}
1205          {object V154 = (V152);          {object V159 = (V157);
1206          VMR24(V154)}}          VMR24(V159)}}
1207          base[0]=base[0];          base[0]=base[0];
1208          return Cnil;          return Cnil;
1209  }  }
1210  /*      local entry for function GET-BUILT-IN-WRAPPER-SYMBOL    */  /*      local entry for function GET-BUILT-IN-WRAPPER-SYMBOL    */
1211    
1212  static object LI28(V156)  static object LI28(V161)
1213    
1214  object V156;  object V161;
1215  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1216          goto TTL;          goto TTL;
1217  TTL:;{object V157;  TTL:;{object V162;
1218          {register object x= (V156),V159= (VV[39]->s.s_dbind);          {register object x= (V161),V164= (VV[39]->s.s_dbind);
1219          while(V159!=Cnil)          while(V164!=Cnil)
1220          if(EQ(x,V159->c.c_car->c.c_car) &&V159->c.c_car != Cnil){          if(EQ(x,V164->c.c_car->c.c_car) &&V164->c.c_car != Cnil){
1221          V158= (V159->c.c_car);          V163= (V164->c.c_car);
1222          goto T329;          goto T329;
1223          }else V159=V159->c.c_cdr;          }else V164=V164->c.c_cdr;
1224          V158= Cnil;}          V163= Cnil;}
1225          goto T329;          goto T329;
1226  T329:;  T329:;
1227          V157= CMPcadr(V158);          V162= CMPcadr(V163);
1228          if(V157==Cnil)goto T327;          if(V162==Cnil)goto T327;
1229          {object V160 = V157;          {object V165 = V162;
1230          VMR25(V160)}          VMR25(V165)}
1231          goto T327;          goto T327;
1232  T327:;}  T327:;}
1233          {object V161;          {object V166;
1234          base[1]= Cnil;          base[1]= Cnil;
1235          base[2]= VV[40];          base[2]= VV[40];
1236          base[3]= symbol_name((V156));          base[3]= symbol_name((V161));
1237          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1238          Lformat();          Lformat();
1239          vs_top=sup;          vs_top=sup;
# Line 1237  T327:;} Line 1242  T327:;}
1242          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1243          Lintern();          Lintern();
1244          vs_top=sup;          vs_top=sup;
1245          V161= vs_base[0];          V166= vs_base[0];
1246          {object V162;          {object V167;
1247          V162= list(2,(V156),(V161));          V167= list(2,(V161),(V166));
1248          (VV[39]->s.s_dbind)= make_cons((V162),(VV[39]->s.s_dbind));}          (VV[39]->s.s_dbind)= make_cons((V167),(VV[39]->s.s_dbind));}
1249          {object V163 = (V161);          {object V168 = (V166);
1250          VMR25(V163)}}          VMR25(V168)}}
1251          base[0]=base[0];          base[0]=base[0];
1252          return Cnil;          return Cnil;
1253  }  }
1254  /*      local entry for function VARIABLE-CLASS */  /*      local entry for function VARIABLE-CLASS */
1255    
1256  static object LI29(V166,V167)  static object LI29(V171,V172)
1257    
1258  object V166;object V167;  object V171;object V172;
1259  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1260          goto TTL;          goto TTL;
1261  TTL:;  TTL:;
1262          V168= (*(LnkLI388))(VV[41],(V166),(V167));          V173= (*(LnkLI388))(VV[41],(V171),(V172));
1263          {object V169 = CMPcaddr(/* INLINE-ARGS */V168);          {object V174 = CMPcaddr(/* INLINE-ARGS */V173);
1264          VMR26(V169)}          VMR26(V174)}
1265          return Cnil;          return Cnil;
1266  }  }
1267  /*      macro definition for DEFINE-GF-PREDICATE        */  /*      macro definition for DEFINE-GF-PREDICATE        */
# Line 1267  static void L30() Line 1272  static void L30()
1272          vs_check;          vs_check;
1273          check_arg(2);          check_arg(2);
1274          vs_top=sup;          vs_top=sup;
1275          {object V170=base[0]->c.c_cdr;          {object V175=base[0]->c.c_cdr;
1276          if(endp(V170))invalid_macro_call();          if(endp(V175))invalid_macro_call();
1277          base[2]= (V170->c.c_car);          base[2]= (V175->c.c_car);
1278          V170=V170->c.c_cdr;          V175=V175->c.c_cdr;
1279          base[3]= V170;}          base[3]= V175;}
1280          V171= listA(3,VV[43],base[2],VV[44]);          V176= listA(3,VV[43],base[2],VV[44]);
1281          {object V173;          {object V178;
1282          object V174= base[3];          object V179= base[3];
1283          if(V174==Cnil){          if(V179==Cnil){
1284          V172= Cnil;          V177= Cnil;
1285          goto T339;}          goto T339;}
1286          base[4]=V173=MMcons(Cnil,Cnil);          base[4]=V178=MMcons(Cnil,Cnil);
1287          goto T340;          goto T340;
1288  T340:;  T340:;
1289          V176= list(2,VV[45],(V174->c.c_car));          V181= list(2,VV[45],(V179->c.c_car));
1290          (V173->c.c_car)= list(4,VV[43],base[2],make_cons(/* INLINE-ARGS */V176,Cnil),Ct);          (V178->c.c_car)= list(4,VV[43],base[2],make_cons(/* INLINE-ARGS */V181,Cnil),Ct);
1291          if((V174=MMcdr(V174))==Cnil){          if((V179=MMcdr(V179))==Cnil){
1292          V172= base[4];          V177= base[4];
1293          goto T339;}          goto T339;}
1294          V173=MMcdr(V173)=MMcons(Cnil,Cnil);          V178=MMcdr(V178)=MMcons(Cnil,Cnil);
1295          goto T340;}          goto T340;}
1296          goto T339;          goto T339;
1297  T339:;  T339:;
1298          base[4]= listA(3,VV[42],/* INLINE-ARGS */V171,V172);          base[4]= listA(3,VV[42],/* INLINE-ARGS */V176,V177);
1299          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1300          return;          return;
1301  }  }
# Line 1300  static void L31() Line 1305  static void L31()
1305  {register object *base=vs_base;  {register object *base=vs_base;
1306          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1307          vs_check;          vs_check;
1308          {object V177;          {object V182;
1309          check_arg(1);          check_arg(1);
1310          V177=(base[0]);          V182=(base[0]);
1311          vs_top=sup;          vs_top=sup;
1312          goto TTL;          goto TTL;
1313  TTL:;  TTL:;
1314          base[2]= Cnil;          base[2]= Cnil;
1315          base[3]= VV[46];          base[3]= VV[46];
1316          base[6]= (V177);          base[6]= (V182);
1317          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1318          Lsymbol_package();          Lsymbol_package();
1319          vs_top=sup;          vs_top=sup;
# Line 1317  TTL:; Line 1322  TTL:;
1322          Lpackage_name();          Lpackage_name();
1323          vs_top=sup;          vs_top=sup;
1324          base[4]= vs_base[0];          base[4]= vs_base[0];
1325          base[5]= (V177);          base[5]= (V182);
1326          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1327          Lformat();          Lformat();
1328          vs_top=sup;          vs_top=sup;
# Line 1330  TTL:; Line 1335  TTL:;
1335  }  }
1336  /*      local entry for function PLIST-VALUE    */  /*      local entry for function PLIST-VALUE    */
1337    
1338  static object LI32(V180,V181)  static object LI32(V185,V186)
1339    
1340  object V180;object V181;  object V185;object V186;
1341  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1342          goto TTL;          goto TTL;
1343  TTL:;  TTL:;
1344          base[1]= (V180);          base[1]= (V185);
1345          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1346          (void) (*Lnk389)(Lclptr389);          (void) (*Lnk389)(Lclptr389);
1347          vs_top=sup;          vs_top=sup;
1348          base[0]= vs_base[0];          base[0]= vs_base[0];
1349          base[1]= (V181);          base[1]= (V186);
1350          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1351          Lgetf();          Lgetf();
1352          vs_top=sup;          vs_top=sup;
1353          {object V182 = vs_base[0];          {object V187 = vs_base[0];
1354          VMR29(V182)}          VMR29(V187)}
1355          base[0]=base[0];          base[0]=base[0];
1356          return Cnil;          return Cnil;
1357  }  }
1358  /*      local entry for function SETF PCL PLIST-VALUE   */  /*      local entry for function SETF PCL PLIST-VALUE   */
1359    
1360  static object LI33(V186,V187,V188)  static object LI33(V191,V192,V193)
1361    
1362  object V186;object V187;object V188;  object V191;object V192;object V193;
1363  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1364          goto TTL;          goto TTL;
1365  TTL:;  TTL:;
1366          if(((V186))==Cnil){          if(((V191))==Cnil){
1367          goto T354;}          goto T354;}
1368          {object V192;          {object V197;
1369          base[1]= V187;          base[1]= V192;
1370          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1371          (void) (*Lnk389)(Lclptr389);          (void) (*Lnk389)(Lclptr389);
1372          vs_top=sup;          vs_top=sup;
1373          base[0]= vs_base[0];          base[0]= vs_base[0];
1374          base[1]= V186;          base[1]= V191;
1375          base[2]= V188;          base[2]= V193;
1376          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1377          siLput_f();          siLput_f();
1378          vs_top=sup;          vs_top=sup;
1379          V192= vs_base[0];          V197= vs_base[0];
1380          base[0]= (V192);          base[0]= (V197);
1381          base[1]= V187;          base[1]= V192;
1382          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1383          (void) (*Lnk390)(Lclptr390);          (void) (*Lnk390)(Lclptr390);
1384          vs_top=sup;          vs_top=sup;
1385          {object V194 = V186;          {object V199 = V191;
1386          VMR30(V194)}}          VMR30(V199)}}
1387          goto T354;          goto T354;
1388  T354:;  T354:;
1389          {object V196;          {object V201;
1390          object V197;          object V202;
1391          base[1]= V187;          base[1]= V192;
1392          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1393          (void) (*Lnk389)(Lclptr389);          (void) (*Lnk389)(Lclptr389);
1394          vs_top=sup;          vs_top=sup;
1395          base[0]= vs_base[0];          base[0]= vs_base[0];
1396          base[1]= (V188);          base[1]= (V193);
1397          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1398          siLrem_f();          siLrem_f();
1399          if(vs_base>=vs_top){vs_top=sup;goto T369;}          if(vs_base>=vs_top){vs_top=sup;goto T369;}
1400          V196= vs_base[0];          V201= vs_base[0];
1401          vs_base++;          vs_base++;
1402          if(vs_base>=vs_top){vs_top=sup;goto T370;}          if(vs_base>=vs_top){vs_top=sup;goto T370;}
1403          V197= vs_base[0];          V202= vs_base[0];
1404          vs_top=sup;          vs_top=sup;
1405          goto T371;          goto T371;
1406          goto T369;          goto T369;
1407  T369:;  T369:;
1408          V196= Cnil;          V201= Cnil;
1409          goto T370;          goto T370;
1410  T370:;  T370:;
1411          V197= Cnil;          V202= Cnil;
1412          goto T371;          goto T371;
1413  T371:;  T371:;
1414          base[0]= (V196);          base[0]= (V201);
1415          base[1]= V187;          base[1]= V192;
1416          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1417          (void) (*Lnk390)(Lclptr390);          (void) (*Lnk390)(Lclptr390);
1418          vs_top=sup;}          vs_top=sup;}
1419          {object V199 = Cnil;          {object V204 = Cnil;
1420          VMR30(V199)}          VMR30(V204)}
1421          base[0]=base[0];          base[0]=base[0];
1422          return Cnil;          return Cnil;
1423  }  }
# Line 1489  TTL:; Line 1494  TTL:;
1494          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1495          siLmake_structure();          siLmake_structure();
1496          vs_top=sup;          vs_top=sup;
1497          {object V200 = vs_base[0];          {object V205 = vs_base[0];
1498          VMR34(V200)}          VMR34(V205)}
1499          va_end(ap);          va_end(ap);
1500          base[0]=base[0];          base[0]=base[0];
1501          return Cnil;}}          return Cnil;}}
# Line 1559  TTL:; Line 1564  TTL:;
1564          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1565          LlistA();          LlistA();
1566          vs_top=sup;          vs_top=sup;
1567          V201= vs_base[0];          V206= vs_base[0];
1568          base[3]= make_cons(V201,Cnil);          base[3]= make_cons(V206,Cnil);
1569          base[4]= Cnil;          base[4]= Cnil;
1570          base[5]= Cnil;          base[5]= Cnil;
1571          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 1576  static void L41() Line 1581  static void L41()
1581          vs_top=sup;          vs_top=sup;
1582          goto TTL;          goto TTL;
1583  TTL:;  TTL:;
1584          {object V202;          {object V207;
1585          V202= VV[393];          V207= VV[393];
1586          base[0]= VV[69];          base[0]= VV[69];
1587          base[1]= VV[55];          base[1]= VV[55];
1588          base[2]= VV[70];          base[2]= VV[70];
1589          base[4]= VV[61];          base[4]= VV[61];
1590          base[5]= (V202);          base[5]= (V207);
1591          base[6]= VV[62];          base[6]= VV[62];
1592          base[7]= VV[71];          base[7]= VV[71];
1593          base[8]= VV[64];          base[8]= VV[64];
# Line 1595  TTL:; Line 1600  TTL:;
1600          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1601          LlistA();          LlistA();
1602          vs_top=sup;          vs_top=sup;
1603          V203= vs_base[0];          V208= vs_base[0];
1604          base[3]= make_cons(V203,Cnil);          base[3]= make_cons(V208,Cnil);
1605          base[4]= Cnil;          base[4]= Cnil;
1606          base[5]= Cnil;          base[5]= Cnil;
1607          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 1629  TTL:; Line 1634  TTL:;
1634          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1635          LlistA();          LlistA();
1636          vs_top=sup;          vs_top=sup;
1637          V204= vs_base[0];          V209= vs_base[0];
1638          base[3]= make_cons(V204,Cnil);          base[3]= make_cons(V209,Cnil);
1639          base[4]= Cnil;          base[4]= Cnil;
1640          base[5]= VV[81];          base[5]= VV[81];
1641          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 1684  static void L45() Line 1689  static void L45()
1689          vs_top=sup;          vs_top=sup;
1690          goto TTL;          goto TTL;
1691  TTL:;  TTL:;
1692          {object V205;          {object V210;
1693          V205= VV[394];          V210= VV[394];
1694          base[0]= VV[41];          base[0]= VV[41];
1695          base[1]= VV[55];          base[1]= VV[55];
1696          base[2]= VV[86];          base[2]= VV[86];
# Line 1703  TTL:; Line 1708  TTL:;
1708          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1709          LlistA();          LlistA();
1710          vs_top=sup;          vs_top=sup;
1711          V206= vs_base[0];          V211= vs_base[0];
1712          base[4]= VV[61];          base[4]= VV[61];
1713          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1714          base[6]= VV[62];          base[6]= VV[62];
# Line 1718  TTL:; Line 1723  TTL:;
1723          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1724          LlistA();          LlistA();
1725          vs_top=sup;          vs_top=sup;
1726          V207= vs_base[0];          V212= vs_base[0];
1727          base[4]= VV[61];          base[4]= VV[61];
1728          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1729          base[6]= VV[62];          base[6]= VV[62];
# Line 1733  TTL:; Line 1738  TTL:;
1738          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1739          LlistA();          LlistA();
1740          vs_top=sup;          vs_top=sup;
1741          V208= vs_base[0];          V213= vs_base[0];
1742          base[4]= VV[61];          base[4]= VV[61];
1743          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1744          base[6]= VV[62];          base[6]= VV[62];
# Line 1748  TTL:; Line 1753  TTL:;
1753          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1754          LlistA();          LlistA();
1755          vs_top=sup;          vs_top=sup;
1756          V209= vs_base[0];          V214= vs_base[0];
1757          base[4]= VV[61];          base[4]= VV[61];
1758          base[5]= (V205);          base[5]= (V210);
1759          base[6]= VV[62];          base[6]= VV[62];
1760          base[7]= VV[101];          base[7]= VV[101];
1761          base[8]= VV[64];          base[8]= VV[64];
# Line 1763  TTL:; Line 1768  TTL:;
1768          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1769          LlistA();          LlistA();
1770          vs_top=sup;          vs_top=sup;
1771          V210= vs_base[0];          V215= vs_base[0];
1772          base[4]= VV[61];          base[4]= VV[61];
1773          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1774          base[6]= VV[62];          base[6]= VV[62];
# Line 1778  TTL:; Line 1783  TTL:;
1783          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1784          LlistA();          LlistA();
1785          vs_top=sup;          vs_top=sup;
1786          V211= vs_base[0];          V216= vs_base[0];
1787          base[3]= list(6,V206,V207,V208,V209,V210,V211);          base[3]= list(6,V211,V212,V213,V214,V215,V216);
1788          base[4]= Cnil;          base[4]= Cnil;
1789          base[5]= VV[106];          base[5]= VV[106];
1790          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 1798  TTL:; Line 1803  TTL:;
1803          base[0]= VV[107];          base[0]= VV[107];
1804          base[1]= VV[55];          base[1]= VV[55];
1805          base[2]= VV[108];          base[2]= VV[108];
1806          V212= listA(9,VV[62],VV[109],VV[64],VV[110],VV[66],Cnil,VV[67],Cnil,Cnil);          V217= listA(9,VV[62],VV[109],VV[64],VV[110],VV[66],Cnil,VV[67],Cnil,Cnil);
1807          base[4]= VV[61];          base[4]= VV[61];
1808          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1809          base[6]= VV[62];          base[6]= VV[62];
# Line 1813  TTL:; Line 1818  TTL:;
1818          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1819          LlistA();          LlistA();
1820          vs_top=sup;          vs_top=sup;
1821          V213= vs_base[0];          V218= vs_base[0];
1822          base[4]= VV[61];          base[4]= VV[61];
1823          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1824          base[6]= VV[62];          base[6]= VV[62];
# Line 1828  TTL:; Line 1833  TTL:;
1833          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1834          LlistA();          LlistA();
1835          vs_top=sup;          vs_top=sup;
1836          V214= vs_base[0];          V219= vs_base[0];
1837          base[4]= VV[61];          base[4]= VV[61];
1838          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1839          base[6]= VV[62];          base[6]= VV[62];
# Line 1843  TTL:; Line 1848  TTL:;
1848          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1849          LlistA();          LlistA();
1850          vs_top=sup;          vs_top=sup;
1851          V215= vs_base[0];          V220= vs_base[0];
1852          base[4]= VV[61];          base[4]= VV[61];
1853          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1854          base[6]= VV[62];          base[6]= VV[62];
# Line 1858  TTL:; Line 1863  TTL:;
1863          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1864          LlistA();          LlistA();
1865          vs_top=sup;          vs_top=sup;
1866          V216= vs_base[0];          V221= vs_base[0];
1867          base[3]= list(5,/* INLINE-ARGS */V212,V213,V214,V215,V216);          base[3]= list(5,/* INLINE-ARGS */V217,V218,V219,V220,V221);
1868          base[4]= Cnil;          base[4]= Cnil;
1869          base[5]= VV[124];          base[5]= VV[124];
1870          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 1892  TTL:; Line 1897  TTL:;
1897          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1898          LlistA();          LlistA();
1899          vs_top=sup;          vs_top=sup;
1900          V217= vs_base[0];          V222= vs_base[0];
1901          base[4]= VV[61];          base[4]= VV[61];
1902          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1903          base[6]= VV[62];          base[6]= VV[62];
# Line 1907  TTL:; Line 1912  TTL:;
1912          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1913          LlistA();          LlistA();
1914          vs_top=sup;          vs_top=sup;
1915          V218= vs_base[0];          V223= vs_base[0];
1916          base[4]= VV[61];          base[4]= VV[61];
1917          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
1918          base[6]= VV[62];          base[6]= VV[62];
# Line 1922  TTL:; Line 1927  TTL:;
1927          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1928          LlistA();          LlistA();
1929          vs_top=sup;          vs_top=sup;
1930          V219= vs_base[0];          V224= vs_base[0];
1931          base[3]= list(3,V217,V218,V219);          base[3]= list(3,V222,V223,V224);
1932          base[4]= Cnil;          base[4]= Cnil;
1933          base[5]= VV[138];          base[5]= VV[138];
1934          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2051  TTL:; Line 2056  TTL:;
2056          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2057          LlistA();          LlistA();
2058          vs_top=sup;          vs_top=sup;
2059          V220= vs_base[0];          V225= vs_base[0];
2060          base[4]= VV[61];          base[4]= VV[61];
2061          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2062          base[6]= VV[62];          base[6]= VV[62];
# Line 2066  TTL:; Line 2071  TTL:;
2071          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2072          LlistA();          LlistA();
2073          vs_top=sup;          vs_top=sup;
2074          V221= vs_base[0];          V226= vs_base[0];
2075          base[4]= VV[61];          base[4]= VV[61];
2076          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2077          base[6]= VV[62];          base[6]= VV[62];
# Line 2081  TTL:; Line 2086  TTL:;
2086          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2087          LlistA();          LlistA();
2088          vs_top=sup;          vs_top=sup;
2089          V222= vs_base[0];          V227= vs_base[0];
2090          base[3]= list(3,V220,V221,V222);          base[3]= list(3,V225,V226,V227);
2091          base[4]= Cnil;          base[4]= Cnil;
2092          base[5]= VV[159];          base[5]= VV[159];
2093          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2139  TTL:; Line 2144  TTL:;
2144          base[0]= VV[92];          base[0]= VV[92];
2145          base[1]= VV[55];          base[1]= VV[55];
2146          base[2]= VV[164];          base[2]= VV[164];
2147          V223= listA(9,VV[62],VV[165],VV[64],VV[166],VV[66],Cnil,VV[67],VV[167],Cnil);          V228= listA(9,VV[62],VV[165],VV[64],VV[166],VV[66],Cnil,VV[67],VV[167],Cnil);
2148          base[3]= make_cons(/* INLINE-ARGS */V223,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V228,Cnil);
2149          base[4]= Cnil;          base[4]= Cnil;
2150          base[5]= Cnil;          base[5]= Cnil;
2151          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2159  TTL:; Line 2164  TTL:;
2164          base[0]= VV[17];          base[0]= VV[17];
2165          base[1]= VV[55];          base[1]= VV[55];
2166          base[2]= VV[168];          base[2]= VV[168];
2167          V224= listA(9,VV[62],VV[165],VV[64],VV[169],VV[66],Cnil,VV[67],VV[170],Cnil);          V229= listA(9,VV[62],VV[165],VV[64],VV[169],VV[66],Cnil,VV[67],VV[170],Cnil);
2168          base[3]= make_cons(/* INLINE-ARGS */V224,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V229,Cnil);
2169          base[4]= Cnil;          base[4]= Cnil;
2170          base[5]= Cnil;          base[5]= Cnil;
2171          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2179  TTL:; Line 2184  TTL:;
2184          base[0]= VV[171];          base[0]= VV[171];
2185          base[1]= VV[55];          base[1]= VV[55];
2186          base[2]= VV[172];          base[2]= VV[172];
2187          V225= listA(9,VV[62],VV[165],VV[64],VV[173],VV[66],Cnil,VV[67],VV[174],Cnil);          V230= listA(9,VV[62],VV[165],VV[64],VV[173],VV[66],Cnil,VV[67],VV[174],Cnil);
2188          base[3]= make_cons(/* INLINE-ARGS */V225,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V230,Cnil);
2189          base[4]= Cnil;          base[4]= Cnil;
2190          base[5]= Cnil;          base[5]= Cnil;
2191          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2188  TTL:; Line 2193  TTL:;
2193  }  }
2194  /*      local entry for function INTERN-EQL-SPECIALIZER */  /*      local entry for function INTERN-EQL-SPECIALIZER */
2195    
2196  static object LI59(V227)  static object LI59(V232)
2197    
2198  object V227;  object V232;
2199  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2200          goto TTL;          goto TTL;
2201  TTL:;{object V228;  TTL:;{object V233;
2202          base[0]= (V227);          base[0]= (V232);
2203          base[1]= (VV[175]->s.s_dbind);          base[1]= (VV[175]->s.s_dbind);
2204          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2205          Lgethash();          Lgethash();
2206          vs_top=sup;          vs_top=sup;
2207          V228= vs_base[0];          V233= vs_base[0];
2208          if(V228==Cnil)goto T750;          if(V233==Cnil)goto T750;
2209          {object V229 = V228;          {object V234 = V233;
2210          VMR56(V229)}          VMR56(V234)}
2211          goto T750;          goto T750;
2212  T750:;}  T750:;}
2213          {object V231;          {object V236;
2214          object V232;          object V237;
2215          V231= (VV[175]->s.s_dbind);          V236= (VV[175]->s.s_dbind);
2216          base[1]= VV[171];          base[1]= VV[171];
2217          base[2]= VV[18];          base[2]= VV[18];
2218          base[3]= (V227);          base[3]= (V232);
2219          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2220          (void) (*Lnk367)(Lclptr367);          (void) (*Lnk367)(Lclptr367);
2221          vs_top=sup;          vs_top=sup;
2222          V232= vs_base[0];          V237= vs_base[0];
2223          base[1]= V227;          base[1]= V232;
2224          base[2]= (V231);          base[2]= (V236);
2225          base[3]= (V232);          base[3]= (V237);
2226          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2227          siLhash_set();          siLhash_set();
2228          vs_top=sup;          vs_top=sup;
2229          {object V233 = vs_base[0];          {object V238 = vs_base[0];
2230          VMR56(V233)}}          VMR56(V238)}}
2231          base[0]=base[0];          base[0]=base[0];
2232          return Cnil;          return Cnil;
2233  }  }
# Line 2236  static void L60() Line 2241  static void L60()
2241          vs_top=sup;          vs_top=sup;
2242          goto TTL;          goto TTL;
2243  TTL:;  TTL:;
2244          {object V234;          {object V239;
2245          V234= VV[395];          V239= VV[395];
2246          base[0]= VV[177];          base[0]= VV[177];
2247          base[1]= VV[55];          base[1]= VV[55];
2248          base[2]= VV[178];          base[2]= VV[178];
# Line 2255  TTL:; Line 2260  TTL:;
2260          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2261          LlistA();          LlistA();
2262          vs_top=sup;          vs_top=sup;
2263          V235= vs_base[0];          V240= vs_base[0];
2264          base[4]= VV[61];          base[4]= VV[61];
2265          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2266          base[6]= VV[62];          base[6]= VV[62];
# Line 2270  TTL:; Line 2275  TTL:;
2275          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2276          LlistA();          LlistA();
2277          vs_top=sup;          vs_top=sup;
2278          V236= vs_base[0];          V241= vs_base[0];
2279          base[4]= VV[61];          base[4]= VV[61];
2280          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2281          base[6]= VV[62];          base[6]= VV[62];
# Line 2285  TTL:; Line 2290  TTL:;
2290          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2291          LlistA();          LlistA();
2292          vs_top=sup;          vs_top=sup;
2293          V237= vs_base[0];          V242= vs_base[0];
2294          base[4]= VV[61];          base[4]= VV[61];
2295          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2296          base[6]= VV[62];          base[6]= VV[62];
# Line 2300  TTL:; Line 2305  TTL:;
2305          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2306          LlistA();          LlistA();
2307          vs_top=sup;          vs_top=sup;
2308          V238= vs_base[0];          V243= vs_base[0];
2309          base[4]= VV[61];          base[4]= VV[61];
2310          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2311          base[6]= VV[62];          base[6]= VV[62];
# Line 2315  TTL:; Line 2320  TTL:;
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          V239= vs_base[0];          V244= vs_base[0];
2324          base[4]= VV[61];          base[4]= VV[61];
2325          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2326          base[6]= VV[62];          base[6]= VV[62];
# Line 2330  TTL:; Line 2335  TTL:;
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          V240= vs_base[0];          V245= vs_base[0];
2339          base[4]= VV[61];          base[4]= VV[61];
2340          base[5]= (VV[396]->s.s_gfdef);          base[5]= (VV[396]->s.s_gfdef);
2341          base[6]= VV[62];          base[6]= VV[62];
# Line 2345  TTL:; Line 2350  TTL:;
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          V241= vs_base[0];          V246= vs_base[0];
2354          base[4]= VV[61];          base[4]= VV[61];
2355          base[5]= (V234);          base[5]= (V239);
2356          base[6]= VV[62];          base[6]= VV[62];
2357          base[7]= VV[212];          base[7]= VV[212];
2358          base[8]= VV[64];          base[8]= VV[64];
# Line 2360  TTL:; Line 2365  TTL:;
2365          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2366          LlistA();          LlistA();
2367          vs_top=sup;          vs_top=sup;
2368          V242= vs_base[0];          V247= vs_base[0];
2369          base[4]= VV[61];          base[4]= VV[61];
2370          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2371          base[6]= VV[62];          base[6]= VV[62];
# Line 2375  TTL:; Line 2380  TTL:;
2380          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2381          LlistA();          LlistA();
2382          vs_top=sup;          vs_top=sup;
2383          V243= vs_base[0];          V248= vs_base[0];
2384          base[3]= list(9,V235,V236,V237,V238,V239,V240,V241,V242,V243);          base[3]= list(9,V240,V241,V242,V243,V244,V245,V246,V247,V248);
2385          base[4]= Cnil;          base[4]= Cnil;
2386          base[5]= VV[219];          base[5]= VV[219];
2387          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2392  static void L61() Line 2397  static void L61()
2397          vs_top=sup;          vs_top=sup;
2398          goto TTL;          goto TTL;
2399  TTL:;  TTL:;
2400          {object V244;          {object V249;
2401          V244= VV[397];          V249= VV[397];
2402          base[0]= VV[221];          base[0]= VV[221];
2403          base[1]= VV[55];          base[1]= VV[55];
2404          base[2]= VV[222];          base[2]= VV[222];
2405          base[4]= VV[61];          base[4]= VV[61];
2406          base[5]= (V244);          base[5]= (V249);
2407          base[6]= VV[62];          base[6]= VV[62];
2408          base[7]= VV[223];          base[7]= VV[223];
2409          base[8]= VV[64];          base[8]= VV[64];
# Line 2411  TTL:; Line 2416  TTL:;
2416          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2417          LlistA();          LlistA();
2418          vs_top=sup;          vs_top=sup;
2419          V245= vs_base[0];          V250= vs_base[0];
2420          base[3]= make_cons(V245,Cnil);          base[3]= make_cons(V250,Cnil);
2421          base[4]= Cnil;          base[4]= Cnil;
2422          base[5]= VV[228];          base[5]= VV[228];
2423          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2445  TTL:; Line 2450  TTL:;
2450          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2451          LlistA();          LlistA();
2452          vs_top=sup;          vs_top=sup;
2453          V246= vs_base[0];          V251= vs_base[0];
2454          base[4]= VV[61];          base[4]= VV[61];
2455          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2456          base[6]= VV[62];          base[6]= VV[62];
# Line 2460  TTL:; Line 2465  TTL:;
2465          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2466          LlistA();          LlistA();
2467          vs_top=sup;          vs_top=sup;
2468          V247= vs_base[0];          V252= vs_base[0];
2469          base[4]= VV[61];          base[4]= VV[61];
2470          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2471          base[6]= VV[62];          base[6]= VV[62];
# Line 2475  TTL:; Line 2480  TTL:;
2480          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2481          LlistA();          LlistA();
2482          vs_top=sup;          vs_top=sup;
2483          V248= vs_base[0];          V253= vs_base[0];
2484          base[3]= list(3,V246,V247,V248);          base[3]= list(3,V251,V252,V253);
2485          base[4]= Cnil;          base[4]= Cnil;
2486          base[5]= VV[246];          base[5]= VV[246];
2487          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2514  TTL:; Line 2519  TTL:;
2519          base[0]= VV[249];          base[0]= VV[249];
2520          base[1]= VV[55];          base[1]= VV[55];
2521          base[2]= VV[250];          base[2]= VV[250];
2522          V249= listA(9,VV[62],VV[251],VV[64],VV[252],VV[66],VV[253],VV[67],Cnil,Cnil);          V254= listA(9,VV[62],VV[251],VV[64],VV[252],VV[66],VV[253],VV[67],Cnil,Cnil);
2523          V250= listA(9,VV[62],VV[254],VV[64],VV[255],VV[66],VV[256],VV[67],Cnil,Cnil);          V255= listA(9,VV[62],VV[254],VV[64],VV[255],VV[66],VV[256],VV[67],Cnil,Cnil);
2524          V251= listA(9,VV[62],VV[257],VV[64],VV[258],VV[66],VV[259],VV[67],Cnil,Cnil);          V256= listA(9,VV[62],VV[257],VV[64],VV[258],VV[66],VV[259],VV[67],Cnil,Cnil);
2525          base[4]= VV[61];          base[4]= VV[61];
2526          base[5]= (VV[398]->s.s_gfdef);          base[5]= (VV[398]->s.s_gfdef);
2527          base[6]= VV[62];          base[6]= VV[62];
# Line 2531  TTL:; Line 2536  TTL:;
2536          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2537          LlistA();          LlistA();
2538          vs_top=sup;          vs_top=sup;
2539          V252= vs_base[0];          V257= vs_base[0];
2540          base[3]= list(4,/* INLINE-ARGS */V249,/* INLINE-ARGS */V250,/* INLINE-ARGS */V251,V252);          base[3]= list(4,/* INLINE-ARGS */V254,/* INLINE-ARGS */V255,/* INLINE-ARGS */V256,V257);
2541          base[4]= Cnil;          base[4]= Cnil;
2542          base[5]= VV[262];          base[5]= VV[262];
2543          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2584  TTL:; Line 2589  TTL:;
2589          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2590          LlistA();          LlistA();
2591          vs_top=sup;          vs_top=sup;
2592          V253= vs_base[0];          V258= vs_base[0];
2593          base[3]= make_cons(V253,Cnil);          base[3]= make_cons(V258,Cnil);
2594          base[4]= Cnil;          base[4]= Cnil;
2595          base[5]= VV[271];          base[5]= VV[271];
2596          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2675  TTL:; Line 2680  TTL:;
2680          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2681          LlistA();          LlistA();
2682          vs_top=sup;          vs_top=sup;
2683          V254= vs_base[0];          V259= vs_base[0];
2684          base[4]= VV[61];          base[4]= VV[61];
2685          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2686          base[6]= VV[62];          base[6]= VV[62];
# Line 2690  TTL:; Line 2695  TTL:;
2695          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2696          LlistA();          LlistA();
2697          vs_top=sup;          vs_top=sup;
2698          V255= vs_base[0];          V260= vs_base[0];
2699          base[4]= VV[61];          base[4]= VV[61];
2700          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2701          base[6]= VV[62];          base[6]= VV[62];
# Line 2705  TTL:; Line 2710  TTL:;
2710          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2711          LlistA();          LlistA();
2712          vs_top=sup;          vs_top=sup;
2713          V256= vs_base[0];          V261= vs_base[0];
2714          base[4]= VV[61];          base[4]= VV[61];
2715          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2716          base[6]= VV[62];          base[6]= VV[62];
# Line 2720  TTL:; Line 2725  TTL:;
2725          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2726          LlistA();          LlistA();
2727          vs_top=sup;          vs_top=sup;
2728          V257= vs_base[0];          V262= vs_base[0];
2729          base[4]= VV[61];          base[4]= VV[61];
2730          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2731          base[6]= VV[62];          base[6]= VV[62];
# Line 2735  TTL:; Line 2740  TTL:;
2740          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2741          LlistA();          LlistA();
2742          vs_top=sup;          vs_top=sup;
2743          V258= vs_base[0];          V263= vs_base[0];
2744          base[3]= list(5,V254,V255,V256,V257,V258);          base[3]= list(5,V259,V260,V261,V262,V263);
2745          base[4]= Cnil;          base[4]= Cnil;
2746          base[5]= VV[299];          base[5]= VV[299];
2747          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2769  TTL:; Line 2774  TTL:;
2774          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2775          LlistA();          LlistA();
2776          vs_top=sup;          vs_top=sup;
2777          V259= vs_base[0];          V264= vs_base[0];
2778          base[4]= VV[61];          base[4]= VV[61];
2779          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2780          base[6]= VV[62];          base[6]= VV[62];
# Line 2784  TTL:; Line 2789  TTL:;
2789          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2790          LlistA();          LlistA();
2791          vs_top=sup;          vs_top=sup;
2792          V260= vs_base[0];          V265= vs_base[0];
2793          base[3]= list(2,V259,V260);          base[3]= list(2,V264,V265);
2794          base[4]= Cnil;          base[4]= Cnil;
2795          base[5]= Cnil;          base[5]= Cnil;
2796          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 2877  static void L76() Line 2882  static void L76()
2882          vs_top=sup;          vs_top=sup;
2883          goto TTL;          goto TTL;
2884  TTL:;  TTL:;
2885          {object V261;          {object V266;
2886          object V262;          object V267;
2887          object V263;          object V268;
2888          V261= VV[399];          V266= VV[399];
2889          V262= VV[400];          V267= VV[400];
2890          V263= VV[401];          V268= VV[401];
2891          base[0]= VV[318];          base[0]= VV[318];
2892          base[1]= VV[142];          base[1]= VV[142];
2893          base[2]= VV[319];          base[2]= VV[319];
# Line 2900  TTL:; Line 2905  TTL:;
2905          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2906          LlistA();          LlistA();
2907          vs_top=sup;          vs_top=sup;
2908          V264= vs_base[0];          V269= vs_base[0];
2909          base[4]= VV[61];          base[4]= VV[61];
2910          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2911          base[6]= VV[62];          base[6]= VV[62];
# Line 2915  TTL:; Line 2920  TTL:;
2920          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2921          LlistA();          LlistA();
2922          vs_top=sup;          vs_top=sup;
2923          V265= vs_base[0];          V270= vs_base[0];
2924          V266= listA(9,VV[62],VV[328],VV[64],VV[329],VV[66],VV[330],VV[67],VV[331],Cnil);          V271= listA(9,VV[62],VV[328],VV[64],VV[329],VV[66],VV[330],VV[67],VV[331],Cnil);
2925          V267= listA(9,VV[62],VV[332],VV[64],VV[333],VV[66],VV[334],VV[67],VV[335],Cnil);          V272= listA(9,VV[62],VV[332],VV[64],VV[333],VV[66],VV[334],VV[67],VV[335],Cnil);
2926          base[4]= VV[61];          base[4]= VV[61];
2927          base[5]= (V263);          base[5]= (V268);
2928          base[6]= VV[62];          base[6]= VV[62];
2929          base[7]= VV[336];          base[7]= VV[336];
2930          base[8]= VV[64];          base[8]= VV[64];
# Line 2932  TTL:; Line 2937  TTL:;
2937          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2938          LlistA();          LlistA();
2939          vs_top=sup;          vs_top=sup;
2940          V268= vs_base[0];          V273= vs_base[0];
2941          base[4]= VV[61];          base[4]= VV[61];
2942          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2943          base[6]= VV[62];          base[6]= VV[62];
# Line 2947  TTL:; Line 2952  TTL:;
2952          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2953          LlistA();          LlistA();
2954          vs_top=sup;          vs_top=sup;
2955          V269= vs_base[0];          V274= vs_base[0];
2956          base[4]= VV[61];          base[4]= VV[61];
2957          base[5]= (VV[392]->s.s_gfdef);          base[5]= (VV[392]->s.s_gfdef);
2958          base[6]= VV[62];          base[6]= VV[62];
# Line 2962  TTL:; Line 2967  TTL:;
2967          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
2968          LlistA();          LlistA();
2969          vs_top=sup;          vs_top=sup;
2970          V270= vs_base[0];          V275= vs_base[0];
2971          base[3]= list(7,V264,V265,/* INLINE-ARGS */V266,/* INLINE-ARGS */V267,V268,V269,V270);          base[3]= list(7,V269,V270,/* INLINE-ARGS */V271,/* INLINE-ARGS */V272,V273,V274,V275);
2972          V271= list(3,VV[348],(V262),VV[317]);          V276= list(3,VV[348],(V267),VV[317]);
2973          base[4]= list(2,VV[347],list(2,/* INLINE-ARGS */V271,list(3,VV[349],(V261),VV[316])));          base[4]= list(2,VV[347],list(2,/* INLINE-ARGS */V276,list(3,VV[349],(V266),VV[316])));
2974          base[5]= VV[350];          base[5]= VV[350];
2975          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
2976          return;}          return;}
# Line 3002  TTL:; Line 3007  TTL:;
3007          base[0]= VV[352];          base[0]= VV[352];
3008          base[1]= VV[55];          base[1]= VV[55];
3009          base[2]= VV[353];          base[2]= VV[353];
3010          V272= listA(9,VV[62],VV[63],VV[64],VV[354],VV[66],Cnil,VV[67],VV[355],Cnil);          V277= listA(9,VV[62],VV[63],VV[64],VV[354],VV[66],Cnil,VV[67],VV[355],Cnil);
3011          V273= listA(9,VV[62],VV[212],VV[64],VV[356],VV[66],Cnil,VV[67],VV[357],Cnil);          V278= listA(9,VV[62],VV[212],VV[64],VV[356],VV[66],Cnil,VV[67],VV[357],Cnil);
3012          base[3]= list(3,/* INLINE-ARGS */V272,/* INLINE-ARGS */V273,listA(9,VV[62],VV[358],VV[64],VV[359],VV[66],Cnil,VV[67],VV[360],Cnil));          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));
3013          base[4]= Cnil;          base[4]= Cnil;
3014          base[5]= Cnil;          base[5]= Cnil;
3015          symlispcall(VV[391],base+0,6);          symlispcall(VV[391],base+0,6);
# Line 3108  register object *base0; Line 3113  register object *base0;
3113  {       register object *base=vs_base;  {       register object *base=vs_base;
3114          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
3115          vs_check;          vs_check;
3116          {object V274;          {object V279;
3117          check_arg(1);          check_arg(1);
3118          V274=(base[0]);          V279=(base[0]);
3119          vs_top=sup;          vs_top=sup;
3120          base[1]= (eql((base0[0]->c.c_car),(V274))?Ct:Cnil);          base[1]= (eql((base0[0]->c.c_car),(V279))?Ct:Cnil);
3121          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3122          return;          return;
3123          }          }
# Line 3124  register object *base0; Line 3129  register object *base0;
3129  {       register object *base=vs_base;  {       register object *base=vs_base;
3130          register object *sup=base+VM84; VC84          register object *sup=base+VM84; VC84
3131          vs_check;          vs_check;
3132          {object V275;          {object V280;
3133          check_arg(1);          check_arg(1);
3134          V275=(base[0]);          V280=(base[0]);
3135          vs_top=sup;          vs_top=sup;
3136          V276= (*(LnkLI374))((V275));          V281 = (base0[0]->c.c_car);
3137          base[1]= (((base0[0]->c.c_car))==(/* INLINE-ARGS */V276)?Ct:Cnil);          V282= (*(LnkLI374))((V280));
3138            base[1]= ((V281)==(/* INLINE-ARGS */V282)?Ct:Cnil);
3139          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3140          return;          return;
3141          }          }
# Line 3141  register object *base0; Line 3147  register object *base0;
3147  {       register object *base=vs_base;  {       register object *base=vs_base;
3148          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
3149          vs_check;          vs_check;
3150          {object V277;          {object V283;
3151          check_arg(1);          check_arg(1);
3152          V277=(base[0]);          V283=(base[0]);
3153          vs_top=sup;          vs_top=sup;
3154          base[1]= (*(LnkLI374))((V277));          V285 = (base0[0]->c.c_car);
3155            base[1]= (*(LnkLI374))((V283));
3156          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3157          (void) (*Lnk109)(Lclptr109);          (void) (*Lnk109)(Lclptr109);
3158          vs_top=sup;          vs_top=sup;
3159          V279= vs_base[0];          V286= vs_base[0];
3160          {register object x= (base0[0]->c.c_car),V278= V279;          {register object x= V285,V284= V286;
3161          while(V278!=Cnil)          while(V284!=Cnil)
3162          if(x==(V278->c.c_car)){          if(x==(V284->c.c_car)){
3163          base[1]= V278;          base[1]= V284;
3164          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3165          return;          return;
3166          }else V278=V278->c.c_cdr;          }else V284=V284->c.c_cdr;
3167          base[1]= Cnil;          base[1]= Cnil;
3168          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3169          return;}          return;}
# Line 3169  register object *base0; Line 3176  register object *base0;
3176  {       register object *base=vs_base;  {       register object *base=vs_base;
3177          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
3178          vs_check;          vs_check;
3179          {object V280;          {object V287;
3180          check_arg(1);          check_arg(1);
3181          V280=(base[0]);          V287=(base[0]);
3182          vs_top=sup;          vs_top=sup;
3183          base[1]= CMPcadr((base0[0]->c.c_car));          base[1]= CMPcadr((base0[0]->c.c_car));
3184          base[2]= (V280);          base[2]= (V287);
3185          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3186          {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))
3187                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

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

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