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

Diff of /gcl/pcl/pcl_vector.c

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

revision 1.5 by camm, Tue Oct 7 21:07:39 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:24 2003 UTC
# Line 31  object V4; Line 31  object V4;
31  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
32          goto TTL;          goto TTL;
33  TTL:;  TTL:;
34          {long V5 = (long)(*(LnkLI152))((V4));          {long V5 = (long)(*(LnkLI167))((V4));
35          VMR2((object)V5)}          VMR2((object)V5)}
36  }  }
37  /*      local entry for function __si::MAKE-PV-TABLE    */  /*      local entry for function __si::MAKE-PV-TABLE    */
# Line 102  static object LI5(object first,...) Line 102  static object LI5(object first,...)
102          V18=(Vcs[0]);          V18=(Vcs[0]);
103          V19=(Vcs[1]);          V19=(Vcs[1]);
104          {object V20;          {object V20;
105          V20= (*(LnkLI156))((V18),(V19));          V20= (*(LnkLI171))((V18),(V19));
106          (VV[13]->s.s_dbind)= make_cons(V20,(VV[13]->s.s_dbind));          (VV[13]->s.s_dbind)= make_cons(V20,(VV[13]->s.s_dbind));
107          {object V22 = (V20);          {object V22 = (V20);
108          VMR5(V22)}}          VMR5(V22)}}
# Line 136  static object LI7(object first,...) Line 136  static object LI7(object first,...)
136          V26=(Vcs[0]);          V26=(Vcs[0]);
137          V27=(Vcs[1]);          V27=(Vcs[1]);
138          base[0]= Cnil;          base[0]= Cnil;
139          {register object V28;          {object V28;
140          V31= make_cons((V27),(V26));          V31= make_cons((V27),(V26));
141          {object V29;          {object V29;
142          object V30= /* INLINE-ARGS */V31;          object V30= /* INLINE-ARGS */V31;
# Line 166  T15:; Line 166  T15:;
166          goto T19;}          goto T19;}
167          {register long V32;          {register long V32;
168          V32= 1;          V32= 1;
169          {register object V33;          {object V33;
170          object V34;          object V34;
171          V33= (V26);          V33= (V26);
172          V34= CMPcar((V33));          V34= CMPcar((V33));
# Line 189  T36:; Line 189  T36:;
189          goto T37;          goto T37;
190  T37:;  T37:;
191          V37 = CMPmake_fixnum(V32);          V37 = CMPmake_fixnum(V32);
192          (void)((*(LnkLI157))((V36),V37,(V28)));          (void)((*(LnkLI172))((V36),V37,(V28)));
193          V32= (long)(V32)+(1);          V32= (long)(V32)+(1);
194          V35= CMPcdr((V35));          V35= CMPcdr((V35));
195          V36= CMPcar((V35));          V36= CMPcar((V35));
# Line 201  T32:; Line 201  T32:;
201          goto T27;}          goto T27;}
202          goto T23;          goto T23;
203  T23:;  T23:;
204          {register object V38;          {object V38;
205          object V39;          object V39;
206          V38= (V27);          V38= (V27);
207          V39= CMPcar((V38));          V39= CMPcar((V38));
# Line 213  T58:; Line 213  T58:;
213          goto T59;          goto T59;
214  T59:;  T59:;
215          V40 = CMPmake_fixnum(V32);          V40 = CMPmake_fixnum(V32);
216          (void)((*(LnkLI157))((V39),V40,(V28)));          (void)((*(LnkLI172))((V39),V40,(V28)));
217          V32= (long)(V32)+(1);          V32= (long)(V32)+(1);
218          V38= CMPcdr((V38));          V38= CMPcdr((V38));
219          V39= CMPcar((V38));          V39= CMPcar((V38));
220          goto T58;}          goto T58;}
221          goto T54;          goto T54;
222  T54:;  T54:;
223          V41 = (V28);          V41= Ct;
224          V42 = V32;          STSET(fixnum,(V28),4, V32);
225          V43= Ct;          (void)(V32);}
         STSET(fixnum,V41,4, V42);  
         (void)(V42);}  
226          goto T19;          goto T19;
227  T19:;  T19:;
228          {object V44 = (V28);          {object V42 = (V28);
229          VMR7(V44)}}          VMR7(V42)}}
230          va_end(ap);          va_end(ap);
231          base[0]=base[0];          base[0]=base[0];
232          return Cnil;}          return Cnil;}
233          }}          }}
234  /*      local entry for function NOTE-PV-TABLE-REFERENCE        */  /*      local entry for function NOTE-PV-TABLE-REFERENCE        */
235    
236  static object LI10(V48,V49,V50)  static object LI10(V46,V47,V48)
237    
238  object V48;object V49;object V50;  object V46;object V47;object V48;
239  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
240          goto TTL;          goto TTL;
241  TTL:;  TTL:;
242          {object V51;          {object V49;
243          base[0]= (V48);          base[0]= (V46);
244          base[1]= (VV[19]->s.s_dbind);          base[1]= (VV[19]->s.s_dbind);
245          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
246          Lgethash();          Lgethash();
247          vs_top=sup;          vs_top=sup;
248          V51= vs_base[0];          V49= vs_base[0];
249          if(!(type_of((V51))==t_cons||((V51))==Cnil)){          if(!(type_of((V49))==t_cons||((V49))==Cnil)){
250          goto T75;}          goto T75;}
251          {object V52;          {object V50;
252          {register object x= (V50),V53= (V51);          {register object x= (V48),V51= (V49);
253          while(V53!=Cnil)          while(V51!=Cnil)
254          if(EQ(x,V53->c.c_car->c.c_car) &&V53->c.c_car != Cnil){          if(EQ(x,V51->c.c_car->c.c_car) &&V51->c.c_car != Cnil){
255          V52= (V53->c.c_car);          V50= (V51->c.c_car);
256          goto T78;          goto T78;
257          }else V53=V53->c.c_cdr;          }else V51=V51->c.c_cdr;
258          V52= Cnil;}          V50= Cnil;}
259          goto T78;          goto T78;
260  T78:;  T78:;
261          if(((V52))!=Cnil){          if(((V50))!=Cnil){
262          goto T79;}          goto T79;}
263          if(!(((long)length((V51)))>(8))){          if(!(((long)length((V49)))>(8))){
264          goto T79;}          goto T79;}
265          {register object V54;          {register object V52;
266          base[0]= VV[20];          base[0]= VV[20];
267          base[1]= small_fixnum(16);          base[1]= small_fixnum(16);
268          base[2]= VV[21];          base[2]= VV[21];
# Line 272  T78:; Line 270  T78:;
270          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
271          Lmake_hash_table();          Lmake_hash_table();
272          vs_top=sup;          vs_top=sup;
273          V54= vs_base[0];          V52= vs_base[0];
274          {register object V55;          {register object V53;
275          register object V56;          register object V54;
276          V55= (V51);          V53= (V49);
277          V56= CMPcar((V55));          V54= CMPcar((V53));
278          goto T93;          goto T93;
279  T93:;  T93:;
280          if(!(((V55))==Cnil)){          if(!(((V53))==Cnil)){
281          goto T94;}          goto T94;}
282          goto T89;          goto T89;
283          goto T94;          goto T94;
284  T94:;  T94:;
285          {register object V57;          {register object V55;
286          register object V58;          register object V56;
287          register object V59;          register object V57;
288          V57= CMPcar((V56));          V55= CMPcar((V54));
289          V58= (V54);          V56= (V52);
290          V59= CMPcdr((V56));          V57= CMPcdr((V54));
291          base[3]= (V57);          base[3]= (V55);
292          base[4]= (V58);          base[4]= (V56);
293          base[5]= (V59);          base[5]= (V57);
294          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
295          siLhash_set();          siLhash_set();
296          vs_top=sup;}          vs_top=sup;}
297          V55= CMPcdr((V55));          V53= CMPcdr((V53));
298          V56= CMPcar((V55));          V54= CMPcar((V53));
299          goto T93;}          goto T93;}
300          goto T89;          goto T89;
301  T89:;  T89:;
302          {object V61;          {object V59;
303          V61= (VV[19]->s.s_dbind);          V59= (VV[19]->s.s_dbind);
304          base[0]= V48;          base[0]= V46;
305          base[1]= (V61);          base[1]= (V59);
306          base[2]= V54;          base[2]= V52;
307          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
308          siLhash_set();          siLhash_set();
309          vs_top=sup;}}          vs_top=sup;}}
310          goto T79;          goto T79;
311  T79:;  T79:;
312          if(!(type_of((V51))==t_cons||((V51))==Cnil)){          if(!(type_of((V49))==t_cons||((V49))==Cnil)){
313          goto T75;}          goto T75;}
314          if(((V52))!=Cnil){          if(((V50))!=Cnil){
315          goto T118;}          goto T118;}
316          {object V63;          {object V61;
317          V63= make_cons((V50),(V49));          V61= make_cons((V48),(V47));
318          if(!(type_of((V51))==t_cons)){          if(!(type_of((V49))==t_cons)){
319          goto T122;}          goto T122;}
320          {object V66;          {object V64;
321          V66= make_cons(V63,CMPcdr(V51));          V64= make_cons(V61,CMPcdr(V49));
322          (V51)->c.c_cdr = (V66);          (V49)->c.c_cdr = (V64);
323          goto T116;}          goto T116;}
324          goto T122;          goto T122;
325  T122:;  T122:;
326          {object V68;          {object V66;
327          object V69;          object V67;
328          V68= (VV[19]->s.s_dbind);          V66= (VV[19]->s.s_dbind);
329          V69= make_cons((V63),Cnil);          V67= make_cons((V61),Cnil);
330          base[1]= V48;          base[1]= V46;
331          base[2]= (V68);          base[2]= (V66);
332          base[3]= (V69);          base[3]= (V67);
333          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
334          siLhash_set();          siLhash_set();
335          vs_top=sup;          vs_top=sup;
336          goto T116;}}          goto T116;}}
337          goto T118;          goto T118;
338  T118:;  T118:;
339          {object V72;          {object V70;
340          V72= make_cons(V49,CMPcdr(V52));          V70= make_cons(V47,CMPcdr(V50));
341          (V52)->c.c_cdr = (V72);}          (V50)->c.c_cdr = (V70);}
342          goto T116;          goto T116;
343  T116:;  T116:;
344          {object V73 = Cnil;          {object V71 = Cnil;
345          VMR8(V73)}}          VMR8(V71)}}
346          goto T75;          goto T75;
347  T75:;  T75:;
348          {object V74;          {object V72;
349          base[0]= (V50);          base[0]= (V48);
350          base[1]= (V51);          base[1]= (V49);
351          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
352          Lgethash();          Lgethash();
353          vs_top=sup;          vs_top=sup;
354          V74= vs_base[0];          V72= vs_base[0];
355          if(!(type_of((V74))==t_cons)){          if(!(type_of((V72))==t_cons)){
356          goto T137;}          goto T137;}
357          {object V77;          {object V75;
358          V77= make_cons(V49,CMPcdr(V74));          V75= make_cons(V47,CMPcdr(V72));
359          (V74)->c.c_cdr = (V77);          (V72)->c.c_cdr = (V75);
360          goto T71;}          goto T71;}
361          goto T137;          goto T137;
362  T137:;  T137:;
363          {object V80;          {object V78;
364          V80= make_cons((V49),Cnil);          V78= make_cons((V47),Cnil);
365          base[1]= V50;          base[1]= V48;
366          base[2]= V51;          base[2]= V49;
367          base[3]= (V80);          base[3]= (V78);
368          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
369          siLhash_set();          siLhash_set();
370          vs_top=sup;}}}          vs_top=sup;}}}
371          goto T71;          goto T71;
372  T71:;  T71:;
373          {object V81 = Cnil;          {object V79 = Cnil;
374          VMR8(V81)}          VMR8(V79)}
375          base[0]=base[0];          base[0]=base[0];
376          return Cnil;          return Cnil;
377  }  }
378  /*      local entry for function MAP-PV-TABLE-REFERENCES-OF     */  /*      local entry for function MAP-PV-TABLE-REFERENCES-OF     */
379    
380  static object LI11(V84,V85)  static object LI11(V82,V83)
381    
382  object V84;register object V85;  object V82;register object V83;
383  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
384          goto TTL;          goto TTL;
385  TTL:;  TTL:;
386          {object V86;          {object V84;
387          base[0]= (V84);          base[0]= (V82);
388          base[1]= (VV[19]->s.s_dbind);          base[1]= (VV[19]->s.s_dbind);
389          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
390          Lgethash();          Lgethash();
391          vs_top=sup;          vs_top=sup;
392          V86= vs_base[0];          V84= vs_base[0];
393          if(!(type_of((V86))==t_cons||((V86))==Cnil)){          if(!(type_of((V84))==t_cons||((V84))==Cnil)){
394          goto T150;}          goto T150;}
395          {register object V87;          {register object V85;
396          register object V88;          register object V86;
397          V87= (V86);          V85= (V84);
398          V88= CMPcar((V87));          V86= CMPcar((V85));
399          goto T155;          goto T155;
400  T155:;  T155:;
401          if(!(((V87))==Cnil)){          if(!(((V85))==Cnil)){
402          goto T156;}          goto T156;}
403          goto T145;          goto T145;
404          goto T156;          goto T156;
405  T156:;  T156:;
406          (void)((          (void)((
407          (type_of((V85)) == t_sfun ?(*(((V85))->sfn.sfn_self)):          (type_of((V83)) == t_sfun ?(*(((V83))->sfn.sfn_self)):
408          (fcall.argd=2,type_of((V85))==t_vfun) ?          (fcall.argd=2,type_of((V83))==t_vfun) ?
409          (*(((V85))->sfn.sfn_self)):          (*(((V83))->sfn.sfn_self)):
410          (fcall.fun=((V85)),fcalln))(CMPcar((V88)),CMPcdr((V88)))));          (fcall.fun=((V83)),fcalln))(CMPcar((V86)),CMPcdr((V86)))));
411          V87= CMPcdr((V87));          V85= CMPcdr((V85));
412          V88= CMPcar((V87));          V86= CMPcar((V85));
413          goto T155;}          goto T155;}
414          goto T150;          goto T150;
415  T150:;  T150:;
416          base[0]= (V85);          base[0]= (V83);
417          base[1]= (V86);          base[1]= (V84);
418          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
419          Lmaphash();          Lmaphash();
420          vs_top=sup;}          vs_top=sup;}
421          goto T145;          goto T145;
422  T145:;  T145:;
423          {object V89 = (V84);          {object V87 = (V82);
424          VMR9(V89)}          VMR9(V87)}
425          base[0]=base[0];          base[0]=base[0];
426          return Cnil;          return Cnil;
427  }  }
# Line 433  static void L12() Line 431  static void L12()
431  {register object *base=vs_base;  {register object *base=vs_base;
432          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
433          vs_check;          vs_check;
434          {object V90;          {object V88;
435          object V91;          object V89;
436          object V92;          object V90;
437          check_arg(3);          check_arg(3);
438          V90=(base[0]);          V88=(base[0]);
439          V91=(base[1]);          V89=(base[1]);
440          V92=(base[2]);          V90=(base[2]);
441          vs_top=sup;          vs_top=sup;
442          goto TTL;          goto TTL;
443  TTL:;  TTL:;
# Line 450  TTL:; Line 448  TTL:;
448          return;          return;
449          goto T168;          goto T168;
450  T168:;  T168:;
451          {object V93;          {object V91;
452          V93= (*(LnkLI158))((V90),(V91));          V91= (*(LnkLI173))((V88),(V89));
453          if((V93)==Cnil){          if((V91)==Cnil){
454          base[3]= Cnil;          base[3]= Cnil;
455          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
456          return;}          return;}
457          base[3]= (V93);          base[3]= (V91);
458          base[4]= (V92);          base[4]= (V90);
459          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
460          (void) (*Lnk159)(Lclptr159);          (void) (*Lnk174)(Lclptr174);
461          return;}          return;}
462          }          }
463  }  }
464  /*      local entry for function COMPUTE-PV-SLOT        */  /*      local entry for function COMPUTE-PV-SLOT        */
465    
466  static object LI13(V99,V100,V101,V102,V103)  static object LI13(V97,V98,V99,V100,V101)
467    
468  register object V99;object V100;object V101;object V102;object V103;  register object V97;object V98;object V99;object V100;object V101;
469  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
470          goto TTL;          goto TTL;
471  TTL:;  TTL:;
472          if(!(type_of((V99))==t_symbol)){          if(!(type_of((V97))==t_symbol)){
473          goto T174;}          goto T174;}
474          base[0]= (V101);          base[0]= (V99);
475          base[1]= (V99);          base[1]= (V97);
476          base[2]= VV[24];          base[2]= VV[24];
477          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
478          (void) (*Lnk160)();          (void) (*Lnk175)();
479          vs_top=sup;          vs_top=sup;
480          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
481          goto T177;}{object V104;          goto T177;}{object V102;
482          {register long V105;          {register long V103;
483          V105= 0;          V103= 0;
484          {register object V106;          {register object V104;
485          object V107;          object V105;
486          V106= ((V100))->v.v_self[9];          V104= ((V98))->v.v_self[9];
487          V107= CMPcar((V106));          V105= CMPcar((V104));
488          goto T188;          goto T188;
489  T188:;  T188:;
490          if(!(((V106))==Cnil)){          if(!(((V104))==Cnil)){
491          goto T189;}          goto T189;}
492          V104= Cnil;          V102= Cnil;
493          goto T183;          goto T183;
494          goto T189;          goto T189;
495  T189:;  T189:;
496          if(!(((V99))==((V107)))){          if(!(((V97))==((V105)))){
497          goto T193;}          goto T193;}
498          V104= CMPmake_fixnum(V105);          V102= CMPmake_fixnum(V103);
499          goto T183;          goto T183;
500          goto T193;          goto T193;
501  T193:;  T193:;
502          V105= (long)(V105)+(1);          V103= (long)(V103)+(1);
503          V106= CMPcdr((V106));          V104= CMPcdr((V104));
504          V107= CMPcar((V106));          V105= CMPcar((V104));
505          goto T188;}}          goto T188;}}
506          goto T183;          goto T183;
507  T183:;  T183:;
508          if(V104==Cnil)goto T182;          if(V102==Cnil)goto T182;
509          {object V108 = V104;          {object V106 = V102;
510          VMR11(V108)}          VMR11(V106)}
511          goto T182;          goto T182;
512  T182:;}  T182:;}
513          {object V109;          {object V107;
514          {register object x= (V99),V110= (V102);          {register object x= (V97),V108= (V100);
515          while(V110!=Cnil)          while(V108!=Cnil)
516          if(EQ(x,V110->c.c_car->c.c_car) &&V110->c.c_car != Cnil){          if(EQ(x,V108->c.c_car->c.c_car) &&V108->c.c_car != Cnil){
517          V109= (V110->c.c_car);          V107= (V108->c.c_car);
518          goto T203;          goto T203;
519          }else V110=V110->c.c_cdr;          }else V108=V108->c.c_cdr;
520          V109= Cnil;}          V107= Cnil;}
521          goto T203;          goto T203;
522  T203:;  T203:;
523          if(((V109))==Cnil){          if(((V107))==Cnil){
524          goto T205;}          goto T205;}
525          (V103)->c.c_car = Ct;          (V101)->c.c_car = Ct;
526          {object V113 = (V109);          {object V111 = (V107);
527          VMR11(V113)}          VMR11(V111)}
528          goto T205;          goto T205;
529  T205:;  T205:;
530          {object V114 = Cnil;          {object V112 = Cnil;
531          VMR11(V114)}}          VMR11(V112)}}
532          goto T177;          goto T177;
533  T177:;  T177:;
534          {object V115 = Cnil;          {object V113 = Cnil;
535          VMR11(V115)}          VMR11(V113)}
536          goto T174;          goto T174;
537  T174:;  T174:;
538          if(!(type_of((V99))==t_cons)){          if(!(type_of((V97))==t_cons)){
539          goto T210;}          goto T210;}
540          {register object V116;          {register object V114;
541          register object V117;          register object V115;
542          V116= VV[25];          V114= VV[25];
543          V117= CMPcar((V116));          V115= CMPcar((V114));
544          goto T215;          goto T215;
545  T215:;  T215:;
546          if(!(((V116))==Cnil)){          if(!(((V114))==Cnil)){
547          goto T216;}          goto T216;}
548          {object V118 = Cnil;          {object V116 = Cnil;
549          VMR11(V118)}          VMR11(V116)}
550          goto T216;          goto T216;
551  T216:;  T216:;
552          if(!((CMPcar((V99)))==((V117)))){          if(!((CMPcar((V97)))==((V115)))){
553          goto T220;}          goto T220;}
554          {object V119;          {object V117;
555          object V120;          object V118;
556          register object V121;          register object V119;
557          V119= CMPcadr((V99));          V117= CMPcadr((V97));
558          V120= (*(LnkLI161))((V119));          V118= (*(LnkLI176))((V117));
559          if(!(((VV[22]->s.s_dbind))==(VV[23]))){          if(!(((VV[22]->s.s_dbind))==(VV[23]))){
560          goto T227;}          goto T227;}
561          base[4]= (V120);          base[4]= (V118);
562          base[5]= (V117);          base[5]= (V115);
563          base[6]= (V101);          base[6]= (V99);
564          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
565          (void) (*Lnk162)();          (void) (*Lnk177)();
566          vs_top=sup;          vs_top=sup;
567          V121= vs_base[0];          V119= vs_base[0];
568          goto T225;          goto T225;
569          goto T227;          goto T227;
570  T227:;  T227:;
571          V121= Cnil;          V119= Cnil;
572          goto T225;          goto T225;
573  T225:;  T225:;
574          if(!(type_of((V121))==t_cons)){          if(!(type_of((V119))==t_cons)){
575          goto T232;}          goto T232;}
576          {register object V123;          {register object V121;
577          V123= Ct;          V121= Ct;
578          (V103)->c.c_car = (V123);}          (V101)->c.c_car = (V121);}
579          goto T232;          goto T232;
580  T232:;  T232:;
581          {object V124 = (V121);          {object V122 = (V119);
582          VMR11(V124)}}          VMR11(V122)}}
583          goto T220;          goto T220;
584  T220:;  T220:;
585          V116= CMPcdr((V116));          V114= CMPcdr((V114));
586          V117= CMPcar((V116));          V115= CMPcar((V114));
587          goto T215;}          goto T215;}
588          goto T210;          goto T210;
589  T210:;  T210:;
590          {object V125 = Cnil;          {object V123 = Cnil;
591          VMR11(V125)}          VMR11(V123)}
592          base[0]=base[0];          base[0]=base[0];
593          return Cnil;          return Cnil;
594  }  }
595  /*      local entry for function COMPUTE-PV     */  /*      local entry for function COMPUTE-PV     */
596    
597  static object LI14(V128,V129)  static object LI14(V126,V127)
598    
599  object V128;object V129;  object V126;object V127;
600  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
601          goto TTL;          goto TTL;
602  TTL:;  TTL:;
603          if(type_of((V129))==t_cons||((V129))==Cnil){          if(type_of((V127))==t_cons||((V127))==Cnil){
604          goto T242;}          goto T242;}
605          V129= make_cons((V129),Cnil);          V127= make_cons((V127),Cnil);
606          goto T242;          goto T242;
607  T242:;  T242:;
608            {object V128;
609            object V129;
610            V128= make_cons(Cnil,Cnil);
611          {object V130;          {object V130;
612          object V131;          register object V131;
613          V130= make_cons(Cnil,Cnil);          V130= Cnil;
614          {object V132;          V131= Cnil;
615          register object V133;          {register object V132;
616          V132= Cnil;          object V133;
617            V132= (V126);
618          V133= Cnil;          V133= Cnil;
         {register object V134;  
         object V135;  
         V134= (V128);  
         V135= Cnil;  
619          goto T254;          goto T254;
620  T254:;  T254:;
621          {object V136;          {object V134;
622          if(!(((V134))==Cnil)){          if(!(((V132))==Cnil)){
623          goto T260;}          goto T260;}
624          goto T250;          goto T250;
625          goto T260;          goto T260;
626  T260:;  T260:;
627          V136= CMPcar((V134));          V134= CMPcar((V132));
628          V134= CMPcdr((V134));          V132= CMPcdr((V132));
629          V135= (V136);}          V133= (V134);}
630          if(((V135))==Cnil){          if(((V133))==Cnil){
631          goto T255;}          goto T255;}
632          {register object V137;          {register object V135;
633          object V139;          object V137;
634          object V140;          object V138;
635          {object V141;          {object V139;
636          V141= CMPcar((V129));          V139= CMPcar((V127));
637          V129= CMPcdr((V129));          V127= CMPcdr((V127));
638          V137= (V141);}          V135= (V139);}
639          V139= ((V137))->v.v_self[11];          V137= ((V135))->v.v_self[11];
640          if(Ct==Cnil){          if(Ct==Cnil){
641          V140= Cnil;          V138= Cnil;
642          goto T271;}          goto T271;}
643          V140= ((V137))->v.v_self[10];          V138= ((V135))->v.v_self[10];
644          goto T271;          goto T271;
645  T271:;  T271:;
646          {register object V142;          {register object V140;
647          register object V143;          register object V141;
648          V142= CMPcdr((V135));          V140= CMPcdr((V133));
649          V143= CMPcar((V142));          V141= CMPcar((V140));
650          goto T275;          goto T275;
651  T275:;  T275:;
652          if(!(((V142))==Cnil)){          if(!(((V140))==Cnil)){
653          goto T276;}          goto T276;}
654          goto T255;          goto T255;
655          goto T276;          goto T276;
656  T276:;  T276:;
657          {register object V144;          {register object V142;
658          if((Ct)==Cnil){          if((Ct)==Cnil){
659          goto T283;}          goto T283;}
660          V144= (*(LnkLI163))((V143),(V137),(V139),(V140),(V130));          V142= (*(LnkLI178))((V141),(V135),(V137),(V138),(V128));
661          goto T281;          goto T281;
662          goto T283;          goto T283;
663  T283:;  T283:;
664          V144= Cnil;          V142= Cnil;
665          goto T281;          goto T281;
666  T281:;  T281:;
667          if(((V132))!=Cnil){          if(((V130))!=Cnil){
668          goto T286;}          goto T286;}
669          V133= make_cons((V144),Cnil);          V131= make_cons((V142),Cnil);
670          V132= (V133);          V130= (V131);
671          goto T280;          goto T280;
672          goto T286;          goto T286;
673  T286:;  T286:;
674          V146= make_cons((V144),Cnil);          V144= make_cons((V142),Cnil);
675          ((V133))->c.c_cdr = /* INLINE-ARGS */V146;          ((V131))->c.c_cdr = /* INLINE-ARGS */V144;
676          V145= (V133);          V143= (V131);
677          V133= CMPcdr(V145);}          V131= CMPcdr(V143);}
678          goto T280;          goto T280;
679  T280:;  T280:;
680          V142= CMPcdr((V142));          V140= CMPcdr((V140));
681          V143= CMPcar((V142));          V141= CMPcar((V140));
682          goto T275;}}          goto T275;}}
683          goto T255;          goto T255;
684  T255:;  T255:;
685          goto T254;}          goto T254;}
686          goto T250;          goto T250;
687  T250:;  T250:;
688          V131= (V132);}          V129= (V130);}
689          if((CMPcar((V130)))==Cnil){          if((CMPcar((V128)))==Cnil){
690          goto T299;}          goto T299;}
691          V147= make_cons(Ct,(V131));          V145= make_cons(Ct,(V129));
692          {object V148 = (*(LnkLI164))(/* INLINE-ARGS */V147);          {object V146 = (*(LnkLI179))(/* INLINE-ARGS */V145);
693          VMR12(V148)}          VMR12(V146)}
694          goto T299;          goto T299;
695  T299:;{object V149;  T299:;{object V147;
696          base[2]= (V131);          base[2]= (V129);
697          base[3]= (VV[26]->s.s_dbind);          base[3]= (VV[26]->s.s_dbind);
698          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
699          Lgethash();          Lgethash();
700          vs_top=sup;          vs_top=sup;
701          V149= vs_base[0];          V147= vs_base[0];
702          if(V149==Cnil)goto T301;          if(V147==Cnil)goto T301;
703          {object V150 = V149;          {object V148 = V147;
704          VMR12(V150)}          VMR12(V148)}
705          goto T301;          goto T301;
706  T301:;}  T301:;}
707          {object V152;          {object V150;
708          object V153;          object V151;
709          V152= (VV[26]->s.s_dbind);          V150= (VV[26]->s.s_dbind);
710          V154= make_cons(Cnil,(V131));          V152= make_cons(Cnil,(V129));
711          V153= (*(LnkLI164))(/* INLINE-ARGS */V154);          V151= (*(LnkLI179))(/* INLINE-ARGS */V152);
712          base[3]= V131;          base[3]= V129;
713          base[4]= (V152);          base[4]= (V150);
714          base[5]= (V153);          base[5]= (V151);
715          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
716          siLhash_set();          siLhash_set();
717          vs_top=sup;          vs_top=sup;
718          {object V155 = vs_base[0];          {object V153 = vs_base[0];
719          VMR12(V155)}}}          VMR12(V153)}}}
720          base[0]=base[0];          base[0]=base[0];
721          return Cnil;          return Cnil;
722  }  }
723  /*      local entry for function COMPUTE-CALLS  */  /*      local entry for function COMPUTE-CALLS  */
724    
725  static object LI15(V158,V159)  static object LI15(V156,V157)
726    
727  object V158;object V159;  object V156;object V157;
728  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
729          goto TTL;          goto TTL;
730  TTL:;  TTL:;
731          {object V160 = VV[27];          {object V158 = VV[27];
732          VMR13(V160)}          VMR13(V158)}
733          return Cnil;          return Cnil;
734  }  }
735  /*      local entry for function MAKE-PERMUTATION-VECTOR        */  /*      local entry for function MAKE-PERMUTATION-VECTOR        */
736    
737  static object LI16(V162)  static object LI16(V160)
738    
739  object V162;  object V160;
740  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
741          goto TTL;          goto TTL;
742  TTL:;  TTL:;
743          base[0]= CMPmake_fixnum((long)length((V162)));          base[0]= CMPmake_fixnum((long)length((V160)));
744          base[1]= VV[28];          base[1]= VV[28];
745          base[2]= (V162);          base[2]= (V160);
746          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
747          (void) (*Lnk165)();          (void) (*Lnk180)();
748          vs_top=sup;          vs_top=sup;
749          {object V163 = vs_base[0];          {object V161 = vs_base[0];
750          VMR14(V163)}          VMR14(V161)}
751          base[0]=base[0];          base[0]=base[0];
752          return Cnil;          return Cnil;
753  }  }
754  /*      local entry for function PV-TABLE-LOOKUP        */  /*      local entry for function PV-TABLE-LOOKUP        */
755    
756  static object LI17(V166,V167)  static object LI17(V164,V165)
757    
758  register object V166;register object V167;  register object V164;register object V165;
759  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
760          goto TTL;          goto TTL;
761  TTL:;  TTL:;
762          {object V168;          {object V166;
763          object V169;          object V167;
764          register object V170;          register object V168;
765          V168= STREF(object,(V166),8);          V166= STREF(object,(V164),8);
766          V169= STREF(object,(V166),12);{object V171;          V167= STREF(object,(V164),12);{object V169;
767          V171= STREF(object,(V166),0);          V169= STREF(object,(V164),0);
768          if(V171==Cnil)goto T316;          if(V169==Cnil)goto T316;
769          V170= V171;          V168= V169;
770          goto T315;          goto T315;
771          goto T316;          goto T316;
772  T316:;}  T316:;}
773          V172 = (V166);          V170 = CMPmake_fixnum((long)length((V166)));
         V173 = CMPmake_fixnum((long)length((V168)));  
774          base[3]= Cnil;          base[3]= Cnil;
775          base[4]= (V168);          base[4]= (V166);
776          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
777          (void) (*Lnk167)();          (void) (*Lnk182)();
778          vs_top=sup;          vs_top=sup;
779          V174= vs_base[0];          V171= vs_base[0];
780          V175= number_minus(V173,V174);          V172= number_minus(V170,V171);
781          V176= (VV[168]->s.s_gfdef);          V173= (VV[183]->s.s_gfdef);
782          V177= (*(LnkLI166))(/* INLINE-ARGS */V175,Ct,V176,2);          V174= (*(LnkLI181))(/* INLINE-ARGS */V172,Ct,V173,2);
783          V178= Ct;          V175= Ct;
784          STSET(object,V172,0, /* INLINE-ARGS */V177);          STSET(object,(V164),0, /* INLINE-ARGS */V174);
785          V170= /* INLINE-ARGS */V177;          V168= /* INLINE-ARGS */V174;
786          goto T315;          goto T315;
787  T315:;{object V179;  T315:;{object V176;
788          V179= (VFUN_NARGS=2,(*(LnkLI169))((V170),(V167)));          V176= (VFUN_NARGS=2,(*(LnkLI184))((V168),(V165)));
789          if(V179==Cnil)goto T322;          if(V176==Cnil)goto T322;
790          {object V180 = V179;          {object V177 = V176;
791          VMR15(V180)}          VMR15(V177)}
792          goto T322;          goto T322;
793  T322:;}  T322:;}
794          {object V181;          {object V178;
795          object V182;          object V179;
796          object V183;          object V180;
797          object V184;          object V181;
798          V181= (*(LnkLI170))((V168),(V167));          V178= (*(LnkLI185))((V166),(V165));
799          V182= (*(LnkLI171))((V169),(V167));          V179= (*(LnkLI186))((V167),(V165));
800          V183= make_cons((V181),(V182));          V180= make_cons((V178),(V179));
801          V184= (VFUN_NARGS=3,(*(LnkLI172))((V170),(V167),(V183)));          V181= (VFUN_NARGS=3,(*(LnkLI187))((V168),(V165),(V180)));
802          if(((V184))==((V170))){          if(((V181))==((V168))){
803          goto T328;}          goto T328;}
804          V185 = (V166);          V182= Ct;
805          V186 = (V184);          STSET(object,(V164),0, (V181));
806          V187= Ct;          (void)((V181));
807          STSET(object,V185,0, V186);          (void)((*(LnkLI188))((V168)));
         (void)(V186);  
         (void)((*(LnkLI173))((V170)));  
808          goto T328;          goto T328;
809  T328:;  T328:;
810          {object V188 = (V183);          {object V183 = (V180);
811          VMR15(V188)}}}          VMR15(V183)}}}
812          base[0]=base[0];          base[0]=base[0];
813          return Cnil;          return Cnil;
814  }  }
815  /*      local entry for function MAKE-PV-TYPE-DECLARATION       */  /*      local entry for function MAKE-PV-TYPE-DECLARATION       */
816    
817  static object LI18(V190)  static object LI18(V185)
818    
819  object V190;  object V185;
820  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
821          goto TTL;          goto TTL;
822  TTL:;  TTL:;
823          {object V191 = list(3,VV[14],VV[29],(V190));          {object V186 = list(3,VV[14],VV[29],(V185));
824          VMR16(V191)}          VMR16(V186)}
825          return Cnil;          return Cnil;
826  }  }
827  /*      macro definition for PVREF      */  /*      macro definition for PVREF      */
# Line 837  static void L19() Line 832  static void L19()
832          vs_check;          vs_check;
833          check_arg(2);          check_arg(2);
834          vs_top=sup;          vs_top=sup;
835          {object V192=base[0]->c.c_cdr;          {object V187=base[0]->c.c_cdr;
836          if(endp(V192))invalid_macro_call();          if(endp(V187))invalid_macro_call();
837          base[2]= (V192->c.c_car);          base[2]= (V187->c.c_car);
838          V192=V192->c.c_cdr;          V187=V187->c.c_cdr;
839          if(endp(V192))invalid_macro_call();          if(endp(V187))invalid_macro_call();
840          base[3]= (V192->c.c_car);          base[3]= (V187->c.c_car);
841          V192=V192->c.c_cdr;          V187=V187->c.c_cdr;
842          if(!endp(V192))invalid_macro_call();}          if(!endp(V187))invalid_macro_call();}
843          base[4]= list(3,VV[30],base[2],base[3]);          base[4]= list(3,VV[30],base[2],base[3]);
844          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
845          return;          return;
# Line 857  static void L20() Line 852  static void L20()
852          vs_check;          vs_check;
853          check_arg(2);          check_arg(2);
854          vs_top=sup;          vs_top=sup;
855          {object V193=base[0]->c.c_cdr;          {object V188=base[0]->c.c_cdr;
856          if(endp(V193))invalid_macro_call();          if(endp(V188))invalid_macro_call();
857          base[2]= (V193->c.c_car);          base[2]= (V188->c.c_car);
858          V193=V193->c.c_cdr;          V188=V188->c.c_cdr;
859          if(!endp(V193))invalid_macro_call();}          if(!endp(V188))invalid_macro_call();}
860          base[3]= list(2,VV[31],base[2]);          base[3]= list(2,VV[31],base[2]);
861          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
862          return;          return;
863  }  }
864  /*      local entry for function MAKE-CALLS-TYPE-DECLARATION    */  /*      local entry for function MAKE-CALLS-TYPE-DECLARATION    */
865    
866  static object LI21(V195)  static object LI21(V190)
867    
868  object V195;  object V190;
869  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
870          goto TTL;          goto TTL;
871  TTL:;  TTL:;
872          {object V196 = list(3,VV[14],VV[29],(V195));          {object V191 = list(3,VV[14],VV[29],(V190));
873          VMR19(V196)}          VMR19(V191)}
874          return Cnil;          return Cnil;
875  }  }
876  /*      macro definition for CALLSREF   */  /*      macro definition for CALLSREF   */
# Line 886  static void L22() Line 881  static void L22()
881          vs_check;          vs_check;
882          check_arg(2);          check_arg(2);
883          vs_top=sup;          vs_top=sup;
884          {object V197=base[0]->c.c_cdr;          {object V192=base[0]->c.c_cdr;
885          if(endp(V197))invalid_macro_call();          if(endp(V192))invalid_macro_call();
886          base[2]= (V197->c.c_car);          base[2]= (V192->c.c_car);
887          V197=V197->c.c_cdr;          V192=V192->c.c_cdr;
888          if(endp(V197))invalid_macro_call();          if(endp(V192))invalid_macro_call();
889          base[3]= (V197->c.c_car);          base[3]= (V192->c.c_car);
890          V197=V197->c.c_cdr;          V192=V192->c.c_cdr;
891          if(!endp(V197))invalid_macro_call();}          if(!endp(V192))invalid_macro_call();}
892          base[4]= list(3,VV[30],base[2],base[3]);          base[4]= list(3,VV[30],base[2],base[3]);
893          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
894          return;          return;
895  }  }
896  /*      local entry for function UPDATE-PV-TABLE-CACHE-INFO     */  /*      local entry for function UPDATE-PV-TABLE-CACHE-INFO     */
897    
898  static object LI23(V199)  static object LI23(V194)
899    
900  object V199;  object V194;
901  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
902          goto TTL;          goto TTL;
903  TTL:;  TTL:;
904          {register object V200;          {register object V195;
905          register object V201;          register object V196;
906          V200= Cnil;          V195= Cnil;
907          V201= Cnil;          V196= Cnil;
908          {register object V202;          {register object V197;
909          register object V203;          register object V198;
910          V202= (VV[32]->s.s_dbind);          V197= (VV[32]->s.s_dbind);
911          V203= CMPcar((V202));          V198= CMPcar((V197));
912          goto T336;          goto T336;
913  T336:;  T336:;
914          if(!(((V202))==Cnil)){          if(!(((V197))==Cnil)){
915          goto T337;}          goto T337;}
916          goto T332;          goto T332;
917          goto T337;          goto T337;
918  T337:;  T337:;
919          if(!((CMPcar((V203)))==((V199)))){          if(!((CMPcar((V198)))==((V194)))){
920          goto T343;}          goto T343;}
921          {register object V204;          {register object V199;
922          V204= CMPcdr((V203));          V199= CMPcdr((V198));
923          base[2]= (V204);          base[2]= (V199);
924          base[3]= (V200);          base[3]= (V195);
925          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
926          Ladjoin();          Ladjoin();
927          vs_top=sup;          vs_top=sup;
928          V200= vs_base[0];          V195= vs_base[0];
929          goto T341;}          goto T341;}
930          goto T343;          goto T343;
931  T343:;  T343:;
932          {register object V205;          {register object V200;
933          V205= (V203);          V200= (V198);
934          V201= make_cons((V205),(V201));}          V196= make_cons((V200),(V196));}
935          goto T341;          goto T341;
936  T341:;  T341:;
937          V202= CMPcdr((V202));          V197= CMPcdr((V197));
938          V203= CMPcar((V202));          V198= CMPcar((V197));
939          goto T336;}          goto T336;}
940          goto T332;          goto T332;
941  T332:;  T332:;
942          (VV[32]->s.s_dbind)= (V201);          (VV[32]->s.s_dbind)= (V196);
943          if(((V200))==Cnil){          if(((V195))==Cnil){
944          goto T359;}          goto T359;}
945          {object V206 = (*(LnkLI174))((V199),(V200));          {object V201 = (*(LnkLI189))((V194),(V195));
946          VMR21(V206)}          VMR21(V201)}
947          goto T359;          goto T359;
948  T359:;  T359:;
949          {object V207 = Cnil;          {object V202 = Cnil;
950          VMR21(V207)}}          VMR21(V202)}}
951          base[0]=base[0];          base[0]=base[0];
952          return Cnil;          return Cnil;
953  }  }
954  /*      local entry for function UPDATE-ALL-PV-TABLE-CACHES     */  /*      local entry for function UPDATE-ALL-PV-TABLE-CACHES     */
955    
956  static object LI24(V210,V211)  static object LI24(V205,V206)
957    
958  object V210;object V211;  object V205;object V206;
959  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
960          goto TTL;          goto TTL;
961  TTL:;  TTL:;
962          {object V213;          {object V208;
963          object V214;          object V209;
964          object V215;          object V210;
965          base[5]= (V210);          base[5]= (V205);
966          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
967          (void) (*Lnk175)(Lclptr175);          (void) (*Lnk190)(Lclptr190);
968          vs_top=sup;          vs_top=sup;
969          base[0]= vs_base[0];          base[0]= vs_base[0];
970          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
971          if(Ct==Cnil){          if(Ct==Cnil){
972          V213= Cnil;          V208= Cnil;
973          goto T363;}          goto T363;}
974          V213= ((base[0]->c.c_car))->v.v_self[10];          V208= ((base[0]->c.c_car))->v.v_self[10];
975          goto T363;          goto T363;
976  T363:;  T363:;
977          V214= make_cons(Cnil,Cnil);          V209= make_cons(Cnil,Cnil);
978          {object V216;          {object V211;
979          object V217= (V211);          object V212= (V206);
980          if(V217==Cnil){          if(V212==Cnil){
981          V215= Cnil;          V210= Cnil;
982          goto T365;}          goto T365;}
983          base[5]=V216=MMcons(Cnil,Cnil);          base[5]=V211=MMcons(Cnil,Cnil);
984          goto T366;          goto T366;
985  T366:;  T366:;
         V219 = (V217->c.c_car);  
986          if((Ct)==Cnil){          if((Ct)==Cnil){
987          goto T370;}          goto T370;}
988          V220= (*(LnkLI163))((V217->c.c_car),(base[0]->c.c_car),(V210),(V213),(V214));          V214= (*(LnkLI178))((V212->c.c_car),(base[0]->c.c_car),(V205),(V208),(V209));
989          goto T368;          goto T368;
990          goto T370;          goto T370;
991  T370:;  T370:;
992          V220= Cnil;          V214= Cnil;
993          goto T368;          goto T368;
994  T368:;  T368:;
995          (V216->c.c_car)= make_cons(V219,V220);          (V211->c.c_car)= make_cons((V212->c.c_car),V214);
996          if((V217=MMcdr(V217))==Cnil){          if((V212=MMcdr(V212))==Cnil){
997          V215= base[5];          V210= base[5];
998          goto T365;}          goto T365;}
999          V216=MMcdr(V216)=MMcons(Cnil,Cnil);          V211=MMcdr(V211)=MMcons(Cnil,Cnil);
1000          goto T366;}          goto T366;}
1001          goto T365;          goto T365;
1002  T365:;  T365:;
1003          base[4]=MMcons(Cnil,base[0]);          base[4]=MMcons(Cnil,base[0]);
1004          {object V221;          {object V215;
1005          object V222;          object V216;
1006          V221= (V211);          V215= (V206);
1007          V222= CMPcar((V221));          V216= CMPcar((V215));
1008          goto T376;          goto T376;
1009  T376:;  T376:;
1010          if(!(((V221))==Cnil)){          if(!(((V215))==Cnil)){
1011          goto T377;}          goto T377;}
1012          goto T372;          goto T372;
1013          goto T377;          goto T377;
1014  T377:;  T377:;
1015          V223 = (V222);          V217=
         V224=  
1016          make_cclosure_new(LC72,Cnil,base[4],Cdata);          make_cclosure_new(LC72,Cnil,base[4],Cdata);
1017          (void)((*(LnkLI176))(V223,V224));          (void)((*(LnkLI191))((V216),V217));
1018          V221= CMPcdr((V221));          V215= CMPcdr((V215));
1019          V222= CMPcar((V221));          V216= CMPcar((V215));
1020          goto T376;}          goto T376;}
1021          goto T372;          goto T372;
1022  T372:;  T372:;
1023          {object V225;          {object V218;
1024          object V226;          object V219;
1025          V225= (base[4]->c.c_car);          V218= (base[4]->c.c_car);
1026          V226= CMPcar((V225));          V219= CMPcar((V218));
1027          goto T391;          goto T391;
1028  T391:;  T391:;
1029          if(!(((V225))==Cnil)){          if(!(((V218))==Cnil)){
1030          goto T392;}          goto T392;}
1031          {object V227 = Cnil;          {object V220 = Cnil;
1032          VMR22(V227)}          VMR22(V220)}
1033          goto T392;          goto T392;
1034  T392:;  T392:;
1035          {object V228;          {object V221;
1036          object V229;          object V222;
1037          V228= STREF(object,(V226),0);          V221= STREF(object,(V219),0);
1038          V229= STREF(object,(V226),8);          V222= STREF(object,(V219),8);
1039          base[8]= CMPmake_fixnum((long)STREF(fixnum,(V226),4));          base[8]= CMPmake_fixnum((long)STREF(fixnum,(V219),4));
1040          base[8]=MMcons(base[8],base[4]);          base[8]=MMcons(base[8],base[4]);
1041          base[10]= (base[8]->c.c_car);          base[10]= (base[8]->c.c_car);
1042          base[11]= VV[33];          base[11]= VV[33];
1043          base[12]= Cnil;          base[12]= Cnil;
1044          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
1045          (void) (*Lnk165)();          (void) (*Lnk180)();
1046          vs_top=sup;          vs_top=sup;
1047          base[9]= vs_base[0];          base[9]= vs_base[0];
1048          base[9]=MMcons(base[9],base[8]);          base[9]=MMcons(base[9],base[8]);
1049          {register long V230;          {register long V223;
1050          register long V231;          register long V224;
1051          V230= 1;          V223= 1;
1052          V231= 0;          V224= 0;
1053          {register object V232;          {register object V225;
1054          object V233;          object V226;
1055          V232= (V229);          V225= (V222);
1056          V233= CMPcar((V232));          V226= CMPcar((V225));
1057          goto T410;          goto T410;
1058  T410:;  T410:;
1059          if(!(((V232))==Cnil)){          if(!(((V225))==Cnil)){
1060          goto T411;}          goto T411;}
1061          goto T404;          goto T404;
1062          goto T411;          goto T411;
1063  T411:;  T411:;
1064          {register object V234;          {register object V227;
1065          register object V235;          register object V228;
1066          V234= CMPcdr((V233));          V227= CMPcdr((V226));
1067          V235= CMPcar((V234));          V228= CMPcar((V227));
1068          goto T419;          goto T419;
1069  T419:;  T419:;
1070          if(!(((V234))==Cnil)){          if(!(((V227))==Cnil)){
1071          goto T420;}          goto T420;}
1072          goto T415;          goto T415;
1073          goto T420;          goto T420;
1074  T420:;  T420:;
1075          {register object V236;          {register object V229;
1076          {register object x= (V235),V237= (V215);          {register object x= (V228),V230= (V210);
1077          while(V237!=Cnil)          while(V230!=Cnil)
1078          if(eql(x,V237->c.c_car->c.c_car) &&V237->c.c_car != Cnil){          if(eql(x,V230->c.c_car->c.c_car) &&V230->c.c_car != Cnil){
1079          V236= (V237->c.c_car);          V229= (V230->c.c_car);
1080          goto T425;          goto T425;
1081          }else V237=V237->c.c_cdr;          }else V230=V230->c.c_cdr;
1082          V236= Cnil;}          V229= Cnil;}
1083          goto T425;          goto T425;
1084  T425:;  T425:;
1085          V238 = (base[9]->c.c_car);          if((V229)==Cnil){
1086          V239 = V230;          V231= Cnil;
         if((V236)==Cnil){  
         V240= Cnil;  
1087          goto T426;}          goto T426;}
1088          V241 = CMPmake_fixnum(V231);          V232 = CMPmake_fixnum(V224);
1089          V240= make_cons(V241,CMPcdr((V236)));          V231= make_cons(V232,CMPcdr((V229)));
1090          goto T426;          goto T426;
1091  T426:;  T426:;
1092          (void)((V238)->v.v_self[V239]= (V240));}          (void)(((base[9]->c.c_car))->v.v_self[V223]= (V231));}
1093          V230= (long)(V230)+(1);          V223= (long)(V223)+(1);
1094          V234= CMPcdr((V234));          V227= CMPcdr((V227));
1095          V235= CMPcar((V234));          V228= CMPcar((V227));
1096          goto T419;}          goto T419;}
1097          goto T415;          goto T415;
1098  T415:;  T415:;
1099          V231= (long)(V231)+(1);          V224= (long)(V224)+(1);
1100          V232= CMPcdr((V232));          V225= CMPcdr((V225));
1101          V233= CMPcar((V232));          V226= CMPcar((V225));
1102          goto T410;}}          goto T410;}}
1103          goto T404;          goto T404;
1104  T404:;  T404:;
1105          if(((V228))==Cnil){          if(((V221))==Cnil){
1106          goto T396;}          goto T396;}
1107          V242=          V233=
1108          make_cclosure_new(LC73,Cnil,base[9],Cdata);          make_cclosure_new(LC73,Cnil,base[9],Cdata);
1109          V243 = (V228);          (void)((VFUN_NARGS=2,(*(LnkLI192))(V233,(V221))));}
         (void)((VFUN_NARGS=2,(*(LnkLI177))(V242,V243)));}  
1110          goto T396;          goto T396;
1111  T396:;  T396:;
1112          V225= CMPcdr((V225));          V218= CMPcdr((V218));
1113          V226= CMPcar((V225));          V219= CMPcar((V218));
1114          goto T391;}}          goto T391;}}
1115          base[0]=base[0];          base[0]=base[0];
1116          return Cnil;          return Cnil;
1117  }  }
1118  /*      local entry for function UPDATE-SLOTS-IN-PV     */  /*      local entry for function UPDATE-SLOTS-IN-PV     */
1119    
1120  static object LI25(V249,V250,V251,V252,V253)  static object LI25(V239,V240,V241,V242,V243)
1121    
1122  object V249;object V250;object V251;object V252;object V253;  object V239;object V240;object V241;object V242;object V243;
1123  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1124          goto TTL;          goto TTL;
1125  TTL:;  TTL:;
1126          if(!(type_of((V249))!=t_cons)){          if(!(type_of((V239))!=t_cons)){
1127          goto T453;}          goto T453;}
1128          if(((V251))==((V249))){          if(((V241))==((V239))){
1129          goto T450;}          goto T450;}
1130          goto T451;          goto T451;
1131          goto T453;          goto T453;
1132  T453:;  T453:;
1133          {register object V254;          {register object V244;
1134          object V255;          object V245;
1135          V254= (V249);          V244= (V239);
1136          V255= CMPcar((V254));          V245= CMPcar((V244));
1137          goto T458;          goto T458;
1138  T458:;  T458:;
1139          if(!(((V254))==Cnil)){          if(!(((V244))==Cnil)){
1140          goto T459;}          goto T459;}
1141          goto T451;          goto T451;
1142          goto T459;          goto T459;
1143  T459:;  T459:;
1144          if(!(((V255))==((V251)))){          if(!(((V245))==((V241)))){
1145          goto T463;}          goto T463;}
1146          goto T450;          goto T450;
1147          goto T463;          goto T463;
1148  T463:;  T463:;
1149          V254= CMPcdr((V254));          V244= CMPcdr((V244));
1150          V255= CMPcar((V254));          V245= CMPcar((V244));
1151          goto T458;}          goto T458;}
1152          goto T451;          goto T451;
1153  T451:;  T451:;
1154          {object V256 = (V250);          {object V246 = (V240);
1155          VMR23(V256)}          VMR23(V246)}
1156          goto T450;          goto T450;
1157  T450:;  T450:;
1158          {object V257;          {object V247;
1159          register object V258;          register object V248;
1160          object V259;          object V249;
1161          {object V260= ((V250))->v.v_self[0];          {object V250= ((V240))->v.v_self[0];
1162          V257= (type_of(V260)==t_cons||(V260)==Cnil?Ct:Cnil);}          V247= (type_of(V250)==t_cons||(V250)==Cnil?Ct:Cnil);}
1163          if(((V257))==Cnil){          if(((V247))==Cnil){
1164          goto T474;}          goto T474;}
1165          base[2]= (V250);          base[2]= (V240);
1166          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1167          Lcopy_seq();          Lcopy_seq();
1168          vs_top=sup;          vs_top=sup;
1169          V258= vs_base[0];          V248= vs_base[0];
1170          goto T472;          goto T472;
1171          goto T474;          goto T474;
1172  T474:;  T474:;
1173          V258= (V250);          V248= (V240);
1174          goto T472;          goto T472;
1175  T472:;  T472:;
1176          V259= Ct;          V249= Ct;
1177          if(!(type_of((V249))!=t_cons)){          if(!(type_of((V239))!=t_cons)){
1178          goto T480;}          goto T480;}
1179          {long V261;          {long V251;
1180          register long V262;          register long V252;
1181          V261= fix((V252));          V251= fix((V242));
1182          V262= 0;          V252= 0;
1183          goto T485;          goto T485;
1184  T485:;  T485:;
1185          if(!((V262)>=(V261))){          if(!((V252)>=(V251))){
1186          goto T486;}          goto T486;}
1187          goto T478;          goto T478;
1188          goto T486;          goto T486;
1189  T486:;  T486:;
1190          {object V264;          {object V254;
1191          V264= ((V253))->v.v_self[V262];          V254= ((V243))->v.v_self[V252];
1192          if(((V264))==Cnil){          if(((V254))==Cnil){
1193          goto T495;}          goto T495;}
1194          V263= ((V258))->v.v_self[V262]= (CMPcdr((V264)));          V253= ((V248))->v.v_self[V252]= (CMPcdr((V254)));
1195          goto T492;          goto T492;
1196          goto T495;          goto T495;
1197  T495:;  T495:;
1198          V263= ((V258))->v.v_self[V262];}          V253= ((V248))->v.v_self[V252];}
1199          goto T492;          goto T492;
1200  T492:;  T492:;
1201          if(!(type_of(V263)==t_cons)){          if(!(type_of(V253)==t_cons)){
1202          goto T489;}          goto T489;}
1203          V259= Cnil;          V249= Cnil;
1204          goto T489;          goto T489;
1205  T489:;  T489:;
1206          V262= (long)(V262)+1;          V252= (long)(V252)+1;
1207          goto T485;}          goto T485;}
1208          goto T480;          goto T480;
1209  T480:;  T480:;
1210          {long V265;          {long V255;
1211          V265= 0;          V255= 0;
1212          {register object V266;          {register object V256;
1213          object V267;          object V257;
1214          V266= (V249);          V256= (V239);
1215          V267= CMPcar((V266));          V257= CMPcar((V256));
1216          goto T505;          goto T505;
1217  T505:;  T505:;
1218          if(!(((V266))==Cnil)){          if(!(((V256))==Cnil)){
1219          goto T506;}          goto T506;}
1220          goto T478;          goto T478;
1221          goto T506;          goto T506;
1222  T506:;  T506:;
1223          if(!(((V267))==((V251)))){          if(!(((V257))==((V241)))){
1224          goto T510;}          goto T510;}
1225          {long V268;          {long V258;
1226          register long V269;          register long V259;
1227          V268= fix((V252));          V258= fix((V242));
1228          V269= 0;          V259= 0;
1229          goto T516;          goto T516;
1230  T516:;  T516:;
1231          if(!((V269)>=(V268))){          if(!((V259)>=(V258))){
1232          goto T517;}          goto T517;}
1233          goto T510;          goto T510;
1234          goto T517;          goto T517;
1235  T517:;  T517:;
1236          {register object V271;          {register object V261;
1237          V271= ((V253))->v.v_self[V269];          V261= ((V243))->v.v_self[V259];
1238          if(((V271))==Cnil){          if(((V261))==Cnil){
1239          goto T526;}          goto T526;}
1240          V272= CMPcar((V271));          V262= CMPcar((V261));
1241          V273 = CMPmake_fixnum(V265);          V263 = CMPmake_fixnum(V255);
1242          if(!(number_compare(/* INLINE-ARGS */V272,V273)==0)){          if(!(number_compare(/* INLINE-ARGS */V262,V263)==0)){
1243          goto T526;}          goto T526;}
1244          V270= ((V258))->v.v_self[V269]= (CMPcdr((V271)));          V260= ((V248))->v.v_self[V259]= (CMPcdr((V261)));
1245          goto T523;          goto T523;
1246          goto T526;          goto T526;
1247  T526:;  T526:;
1248          V270= ((V258))->v.v_self[V269];}          V260= ((V248))->v.v_self[V259];}
1249          goto T523;          goto T523;
1250  T523:;  T523:;
1251          if(!(type_of(V270)==t_cons)){          if(!(type_of(V260)==t_cons)){
1252          goto T520;}          goto T520;}
1253          V259= Cnil;          V249= Cnil;
1254          goto T520;          goto T520;
1255  T520:;  T520:;
1256          V269= (long)(V269)+1;          V259= (long)(V259)+1;
1257          goto T516;}          goto T516;}
1258          goto T510;          goto T510;
1259  T510:;  T510:;
1260          V265= (long)(V265)+(1);          V255= (long)(V255)+(1);
1261          V266= CMPcdr((V266));          V256= CMPcdr((V256));
1262          V267= CMPcar((V266));          V257= CMPcar((V256));
1263          goto T505;}}          goto T505;}}
1264          goto T478;          goto T478;
1265  T478:;  T478:;
1266          if(((V259))==Cnil){          if(((V249))==Cnil){
1267          goto T541;}          goto T541;}
1268          {object V274;          {object V264;
1269          base[2]= (V250);          base[2]= (V240);
1270          base[3]= VV[34];          base[3]= VV[34];
1271          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1272          (void) (*Lnk178)();          (void) (*Lnk193)();
1273          vs_top=sup;          vs_top=sup;
1274          V274= vs_base[0];{object V275;          V264= vs_base[0];{object V265;
1275          base[2]= CMPcdr((V274));          base[2]= CMPcdr((V264));
1276          base[3]= (VV[26]->s.s_dbind);          base[3]= (VV[26]->s.s_dbind);
1277          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1278          Lgethash();          Lgethash();
1279          vs_top=sup;          vs_top=sup;
1280          V275= vs_base[0];          V265= vs_base[0];
1281          if(V275==Cnil)goto T548;          if(V265==Cnil)goto T548;
1282          V258= V275;          V248= V265;
1283          goto T544;          goto T544;
1284          goto T548;          goto T548;
1285  T548:;}  T548:;}
1286          {object V276;          {object V266;
1287          object V277;          object V267;
1288          object V278;          object V268;
1289          V276= CMPcdr((V274));          V266= CMPcdr((V264));
1290          V277= (VV[26]->s.s_dbind);          V267= (VV[26]->s.s_dbind);
1291          if(((V257))==Cnil){          if(((V247))==Cnil){
1292          goto T556;}          goto T556;}
1293          V278= (V258);          V268= (V248);
1294          goto T554;          goto T554;
1295          goto T556;          goto T556;
1296  T556:;  T556:;
1297          V278= (*(LnkLI164))((V274));          V268= (*(LnkLI179))((V264));
1298          goto T554;          goto T554;
1299  T554:;  T554:;
1300          base[4]= (V276);          base[4]= (V266);
1301          base[5]= (V277);          base[5]= (V267);
1302          base[6]= (V278);          base[6]= (V268);
1303          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1304          siLhash_set();          siLhash_set();
1305          vs_top=sup;          vs_top=sup;
1306          V258= vs_base[0];}}          V248= vs_base[0];}}
1307          goto T544;          goto T544;
1308  T544:;  T544:;
1309          goto T541;          goto T541;
1310  T541:;  T541:;
1311          {object V279 = (V258);          {object V269 = (V248);
1312          VMR23(V279)}}          VMR23(V269)}}
1313          base[0]=base[0];          base[0]=base[0];
1314          return Cnil;          return Cnil;
1315  }  }
1316  /*      local entry for function MAYBE-EXPAND-ACCESSOR-FORM     */  /*      local entry for function MAYBE-EXPAND-ACCESSOR-FORM     */
1317    
1318  static object LI26(V284,V285,V286,V287)  static object LI26(V274,V275,V276,V277)
1319    
1320  register object V284;object V285;object V286;object V287;  register object V274;object V275;object V276;object V277;
1321  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1322          goto TTL;          goto TTL;
1323  TTL:;  TTL:;
1324          {object V288;          {object V278;
1325          register object V289;          register object V279;
1326          V288= CMPcar((V284));          V278= CMPcar((V274));
1327          if(!(type_of((V288))==t_symbol)){          if(!(type_of((V278))==t_symbol)){
1328          goto T564;}          goto T564;}
1329          V289= (*(LnkLI179))((V288));          V279= (*(LnkLI194))((V278));
1330          goto T562;          goto T562;
1331          goto T564;          goto T564;
1332  T564:;  T564:;
1333          V289= (*(LnkLI161))((V288));          V279= (*(LnkLI176))((V278));
1334          goto T562;          goto T562;
1335  T562:;  T562:;
1336          if(!(type_of(CMPcadr((V284)))==t_cons)){          if(!(type_of(CMPcadr((V274)))==t_cons)){
1337          goto T566;}          goto T566;}
1338          if((VV[35])==(CMPcaadr((V284)))){          if((VV[35])==(CMPcaadr((V274)))){
1339          goto T567;}          goto T567;}
1340          goto T566;          goto T566;
1341  T566:;  T566:;
1342          if(!(((VV[22]->s.s_dbind))==(VV[23]))){          if(!(((VV[22]->s.s_dbind))==(VV[23]))){
1343          goto T572;}          goto T572;}
1344          base[2]= (V289);          base[2]= (V279);
1345          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1346          (void) (*Lnk180)(Lclptr180);          (void) (*Lnk195)(Lclptr195);
1347          vs_top=sup;          vs_top=sup;
1348          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1349          goto T572;}          goto T572;}
1350          {object V290;          {object V280;
1351          base[2]= (V289);          base[2]= (V279);
1352          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1353          (void) (*Lnk181)(Lclptr181);          (void) (*Lnk196)(Lclptr196);
1354          vs_top=sup;          vs_top=sup;
1355          V290= vs_base[0];          V280= vs_base[0];
1356          if(((V290))==Cnil){          if(((V280))==Cnil){
1357          goto T580;}          goto T580;}
1358          {register object V291;          {register object V281;
1359          object V292;          object V282;
1360          object V293;          object V283;
1361          object V294;          object V284;
1362          object V295;          object V285;
1363          base[7]= (V289);          base[7]= (V279);
1364          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1365          (void) (*Lnk182)(Lclptr182);          (void) (*Lnk197)(Lclptr197);
1366          vs_top=sup;          vs_top=sup;
1367          V291= vs_base[0];          V281= vs_base[0];
1368          base[7]= (V289);          base[7]= (V279);
1369          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1370          (void) (*Lnk183)(Lclptr183);          (void) (*Lnk198)(Lclptr198);
1371          vs_top=sup;          vs_top=sup;
1372          V292= vs_base[0];          V282= vs_base[0];
1373          V293= STREF(object,(V292),8);          V283= STREF(object,(V282),8);
1374          V294= CMPmake_fixnum((long)length((V293)));          V284= CMPmake_fixnum((long)length((V283)));
1375          V295= (*(LnkLI184))((V292));          V285= (*(LnkLI199))((V282));
1376          if(((V295))!=Cnil){          if(((V285))!=Cnil){
1377          goto T590;}          goto T590;}
1378          if(!(number_compare((V294),small_fixnum(1))==0)){          if(!(number_compare((V284),small_fixnum(1))==0)){
1379          goto T593;}          goto T593;}
1380          base[7]= (VV[185]->s.s_gfdef);          base[7]= (VV[200]->s.s_gfdef);
1381          base[8]= (V290);          base[8]= (V280);
1382          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1383          (void) (*Lnk186)();          (void) (*Lnk201)();
1384          vs_top=sup;          vs_top=sup;
1385          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1386          goto T596;}          goto T596;}
1387          {object V296;          {object V286;
1388          V296= (VFUN_NARGS=3,(*(LnkLI187))(CMPcadr((V284)),(V285),(V287)));          V286= (VFUN_NARGS=3,(*(LnkLI202))(CMPcadr((V274)),(V275),(V277)));
1389          if(((V296))==Cnil){          if(((V286))==Cnil){
1390          goto T602;}          goto T602;}
1391          {object V297 = (*(LnkLI188))((V286),(V296),(V291),(V284));          {object V287 = (*(LnkLI203))((V276),(V286),(V281),(V274));
1392          VMR24(V297)}          VMR24(V287)}
1393          goto T602;          goto T602;
1394  T602:;  T602:;
1395          {object V298 = Cnil;          {object V288 = Cnil;
1396          VMR24(V298)}}          VMR24(V288)}}
1397          goto T596;          goto T596;
1398  T596:;  T596:;
1399          {object V299 = Cnil;          {object V289 = Cnil;
1400          VMR24(V299)}          VMR24(V289)}
1401          goto T593;          goto T593;
1402  T593:;  T593:;
1403          if(!(number_compare((V294),small_fixnum(2))==0)){          if(!(number_compare((V284),small_fixnum(2))==0)){
1404          goto T605;}          goto T605;}
1405          if(!(type_of((V291))==t_cons)){          if(!(type_of((V281))==t_cons)){
1406          goto T605;}          goto T605;}
1407          if(!((CMPcar((V291)))==(VV[37]))){          if(!((CMPcar((V281)))==(VV[37]))){
1408          goto T605;}          goto T605;}
1409          base[7]= (VV[189]->s.s_gfdef);          base[7]= (VV[204]->s.s_gfdef);
1410          base[8]= (V290);          base[8]= (V280);
1411          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1412          (void) (*Lnk186)();          (void) (*Lnk201)();
1413          vs_top=sup;          vs_top=sup;
1414          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1415          goto T612;}          goto T612;}
1416          {object V300;          {object V290;
1417          V300= (VFUN_NARGS=3,(*(LnkLI187))(CMPcaddr((V284)),(V285),(V287)));          V290= (VFUN_NARGS=3,(*(LnkLI202))(CMPcaddr((V274)),(V275),(V277)));
1418          if(((V300))==Cnil){          if(((V290))==Cnil){
1419          goto T618;}          goto T618;}
1420          {object V301 = (*(LnkLI190))((V286),(V300),(V291),(V284));          {object V291 = (*(LnkLI205))((V276),(V290),(V281),(V274));
1421          VMR24(V301)}          VMR24(V291)}
1422          goto T618;          goto T618;
1423  T618:;  T618:;
1424          {object V302 = Cnil;          {object V292 = Cnil;
1425          VMR24(V302)}}          VMR24(V292)}}
1426          goto T612;          goto T612;
1427  T612:;  T612:;
1428          {object V303 = Cnil;          {object V293 = Cnil;
1429          VMR24(V303)}          VMR24(V293)}
1430          goto T605;          goto T605;
1431  T605:;  T605:;
1432          {object V304 = Cnil;          {object V294 = Cnil;
1433          VMR24(V304)}          VMR24(V294)}
1434          goto T590;          goto T590;
1435  T590:;  T590:;
1436          {object V305 = Cnil;          {object V295 = Cnil;
1437          VMR24(V305)}}          VMR24(V295)}}
1438          goto T580;          goto T580;
1439  T580:;  T580:;
1440          {object V306 = Cnil;          {object V296 = Cnil;
1441          VMR24(V306)}}          VMR24(V296)}}
1442          goto T572;          goto T572;
1443  T572:;  T572:;
1444          {object V307 = Cnil;          {object V297 = Cnil;
1445          VMR24(V307)}          VMR24(V297)}
1446          goto T567;          goto T567;
1447  T567:;  T567:;
1448          {object V308 = Cnil;          {object V298 = Cnil;
1449          VMR24(V308)}}          VMR24(V298)}}
1450          base[0]=base[0];          base[0]=base[0];
1451          return Cnil;          return Cnil;
1452  }  }
1453  /*      local entry for function OPTIMIZE-GENERIC-FUNCTION-CALL */  /*      local entry for function OPTIMIZE-GENERIC-FUNCTION-CALL */
1454    
1455  static object LI27(V314,V315,V316,V317,V318)  static object LI27(V304,V305,V306,V307,V308)
1456    
1457  object V314;object V315;object V316;object V317;object V318;  object V304;object V305;object V306;object V307;object V308;
1458  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1459          goto TTL;          goto TTL;
1460  TTL:;{object V319;  TTL:;{object V309;
1461          if((CMPcar((V314)))==(VV[38])){          if((CMPcar((V304)))==(VV[38])){
1462          goto T622;}          goto T622;}
1463          V319= Cnil;          V309= Cnil;
1464          goto T621;          goto T621;
1465          goto T622;          goto T622;
1466  T622:;  T622:;
1467          V319= (*(LnkLI191))((V314));          V309= (*(LnkLI206))((V304));
1468          goto T621;          goto T621;
1469  T621:;  T621:;
1470          if(V319==Cnil)goto T620;          if(V309==Cnil)goto T620;
1471          {object V320 = V319;          {object V310 = V309;
1472          VMR25(V320)}          VMR25(V310)}
1473          goto T620;          goto T620;
1474  T620:;}  T620:;}
1475          {object V321 = (V314);          {object V311 = (V304);
1476          VMR25(V321)}          VMR25(V311)}
1477          return Cnil;          return Cnil;
1478  }  }
1479  /*      local entry for function CAN-OPTIMIZE-ACCESS    */  /*      local entry for function CAN-OPTIMIZE-ACCESS    */
1480    
1481  static object LI28(V325,V326,V327)  static object LI28(V315,V316,V317)
1482    
1483  object V325;object V326;object V327;  object V315;object V316;object V317;
1484  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1485          goto TTL;          goto TTL;
1486  TTL:;  TTL:;
1487          {object V328;          {object V318;
1488          object V329;          object V319;
1489          object V330;          object V320;
1490          {object V331= CMPcar((V325));          {object V321;
1491          if((V331!= VV[192]))goto T625;          V321= CMPcar((V315));
1492          V328= VV[39];          {object V322= (V321);
1493          goto T624;          if((V322!= VV[207]))goto T626;
1494          goto T625;          V318= VV[39];
 T625:;  
         if((V331!= VV[193]))goto T626;  
         V328= VV[40];  
1495          goto T624;          goto T624;
1496          goto T626;          goto T626;
1497  T626:;  T626:;
1498          if((V331!= VV[194]))goto T627;          if((V322!= VV[208]))goto T627;
1499          V328= VV[41];          V318= VV[40];
1500          goto T624;          goto T624;
1501          goto T627;          goto T627;
1502  T627:;  T627:;
1503          FEerror("The ECASE key value ~s is illegal.",1,V331);          if((V322!= VV[209]))goto T628;
1504          V328= Cnil;          V318= VV[41];
1505          goto T624;}          goto T624;
1506            goto T628;
1507    T628:;
1508            base[0]= VV[42];
1509            base[1]= VV[43];
1510            base[2]= VV[44];
1511            base[3]= VV[45];
1512            base[4]= (V321);
1513            base[5]= VV[46];
1514            base[6]= VV[47];
1515            base[7]= VV[48];
1516            base[8]= VV[49];
1517            vs_top=(vs_base=base+0)+9;
1518            (void) (*Lnk210)();
1519            vs_top=sup;
1520            V318= vs_base[0];}}
1521          goto T624;          goto T624;
1522  T624:;  T624:;
1523          V329= CMPcadr((V325));          V319= CMPcadr((V315));
1524          base[0]= CMPcaddr((V325));          base[0]= CMPcaddr((V315));
1525          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1526          Leval();          Leval();
1527          vs_top=sup;          vs_top=sup;
1528          V330= vs_base[0];          V320= vs_base[0];
1529          {object V332 = (VFUN_NARGS=5,(*(LnkLI187))((V329),(V326),(V327),(V328),(V330)));          {object V323 = (VFUN_NARGS=5,(*(LnkLI202))((V319),(V316),(V317),(V318),(V320)));
1530          VMR26(V332)}}          VMR26(V323)}}
1531          base[0]=base[0];          base[0]=base[0];
1532          return Cnil;          return Cnil;
1533  }  }
1534  /*      local entry for function CAN-OPTIMIZE-ACCESS1   */  /*      local entry for function CAN-OPTIMIZE-ACCESS1   */
1535    
1536  static object LI29(object V335,object V334,object V333,object first,...)  static object LI29(object V326,object V325,object V324,object first,...)
1537  {        {      
1538          va_list ap;          va_list ap;
1539          int narg = VFUN_NARGS; VMB27 VMS27 VMV27          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
1540          {register object V336;          {register object V327;
1541          object V337;          object V328;
1542          object V338;          object V329;
1543          object V339;          object V330;
1544          object V340;          object V331;
1545          va_start(ap,first);          va_start(ap,first);
1546          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1547          V336= V335;          V327= V326;
1548          V337= V334;          V328= V325;
1549          V338= V333;          V329= V324;
1550          narg = narg - 3;          narg = narg - 3;
1551          if (narg <= 0) goto T631;          if (narg <= 0) goto T641;
1552          else {          else {
1553          V339= first;}          V330= first;}
1554          if (--narg <= 0) goto T632;          if (--narg <= 0) goto T642;
1555          else {          else {
1556          V340= va_arg(ap,object);}          V331= va_arg(ap,object);}
1557          --narg; goto T633;          --narg; goto T643;
1558          goto T631;          goto T641;
1559  T631:;  T641:;
1560          V339= Cnil;          V330= Cnil;
1561          goto T632;          goto T642;
1562  T632:;  T642:;
1563          V340= Cnil;          V331= Cnil;
1564          goto T633;          goto T643;
1565  T633:;  T643:;
1566          if(!(type_of((V336))==t_cons)){          if(!(type_of((V327))==t_cons)){
1567          goto T636;}          goto T646;}
1568          if(!((VV[42])==(CMPcar((V336))))){          if(!((VV[50])==(CMPcar((V327))))){
1569          goto T636;}          goto T646;}
1570          V336= CMPcaddr((V336));          V327= CMPcaddr((V327));
1571          goto T636;          goto T646;
1572  T636:;  T646:;
1573          if(!(type_of((V336))==t_symbol)){          if(!(type_of((V327))==t_symbol)){
1574          goto T643;}          goto T653;}
1575          {object V341;          {object V332;
1576          object V342;          object V333;
1577          V343= (*(LnkLI195))(VV[43],(V336),(V338));          V334= (*(LnkLI211))(VV[51],(V327),(V329));
1578          V341= CMPcaddr(/* INLINE-ARGS */V343);          V332= CMPcaddr(/* INLINE-ARGS */V334);
1579          if((V341)!=Cnil){          if((V332)!=Cnil){
1580          V346= (V341);          V337= (V332);
1581          goto T648;}          goto T658;}
1582          V346= (V336);          V337= (V327);
1583          goto T648;          goto T658;
1584  T648:;  T658:;
1585          V347 = (V337);          {register object x= V337,V336= (V328);
1586          {register object x= V346,V345= V347;          while(V336!=Cnil)
1587          while(V345!=Cnil)          if(x==(V336->c.c_car)){
1588          if(x==(V345->c.c_car)){          V335= V336;
1589          V344= V345;          goto T657;
1590          goto T647;          }else V336=V336->c.c_cdr;
1591          }else V345=V345->c.c_cdr;          V335= Cnil;}
1592          V344= Cnil;}          goto T657;
1593          goto T647;  T657:;
1594  T647:;          V333= CMPcar(V335);
1595          V342= CMPcar(V344);          if(((V333))==Cnil){
1596          if(((V342))==Cnil){          goto T660;}
1597          goto T650;}          {register object V338;
1598          {register object V348;          register object V339;
1599          register object V349;          V340= (*(LnkLI211))(VV[52],(V333),(V329));
1600          V350= (*(LnkLI195))(VV[44],(V342),(V338));          V338= CMPcaddr(/* INLINE-ARGS */V340);
1601          V348= CMPcaddr(/* INLINE-ARGS */V350);          V339= (VFUN_NARGS=2,(*(LnkLI212))((V338),Cnil));
         V349= (VFUN_NARGS=2,(*(LnkLI196))((V348),Cnil));  
1602          if(!(((VV[22]->s.s_dbind))==(VV[23]))){          if(!(((VV[22]->s.s_dbind))==(VV[23]))){
1603          goto T655;}          goto T665;}
1604          if(((V349))==Cnil){          if(((V339))==Cnil){
1605          goto T654;}          goto T664;}
1606          base[4]= (V349);          base[4]= (V339);
1607          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1608          (void) (*Lnk197)(Lclptr197);          (void) (*Lnk213)(Lclptr213);
1609          vs_top=sup;          vs_top=sup;
1610          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
         goto T654;}  
         goto T655;  
 T655:;  
         V349= Cnil;  
         goto T654;  
 T654:;  
         if(((V348))==Cnil){  
         goto T664;}  
         if(((V348))==(Ct)){  
1611          goto T664;}          goto T664;}
1612            goto T665;
1613    T665:;
1614            V339= Cnil;
1615            goto T664;
1616    T664:;
1617            if(((V338))==Cnil){
1618            goto T674;}
1619            if(((V338))==(Ct)){
1620            goto T674;}
1621            if(((V330))==Cnil){
1622            goto T678;}
1623          if(((V339))==Cnil){          if(((V339))==Cnil){
1624          goto T668;}          goto T678;}{object V342;
1625          if(((V349))==Cnil){          V342= (VV[53]->s.s_dbind);
1626          goto T668;}{object V352;          base[4]= (V339);
         V352= (VV[45]->s.s_dbind);  
         base[4]= (V349);  
1627          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1628          (void) (*Lnk198)(Lclptr198);          (void) (*Lnk214)(Lclptr214);
1629          vs_top=sup;          vs_top=sup;
1630          V353= vs_base[0];          V343= vs_base[0];
1631          {register object x= V352,V351= V353;          {register object x= V342,V341= V343;
1632          while(V351!=Cnil)          while(V341!=Cnil)
1633          if(x==(V351->c.c_car)){          if(x==(V341->c.c_car)){
1634          goto T675;          goto T685;
1635          }else V351=V351->c.c_cdr;          }else V341=V341->c.c_cdr;
1636          goto T668;}}          goto T678;}}
1637          goto T675;          goto T685;
1638  T675:;  T685:;
1639          base[4]= (V349);          base[4]= (V339);
1640          base[5]= (V340);          base[5]= (V331);
1641          base[6]= (V339);          base[6]= (V330);
1642          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1643          (void) (*Lnk160)();          (void) (*Lnk175)();
1644          vs_top=sup;          vs_top=sup;
1645          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1646          goto T669;}          goto T679;}
1647          goto T668;          goto T678;
1648  T668:;  T678:;
1649          V354 = (V342);          if((V339)!=Cnil){
1650          if((V349)!=Cnil){          V344= (V339);
1651          V355= (V349);          goto T692;}
1652          goto T682;}          V344= (V338);
1653          V355= (V348);          goto T692;
1654          goto T682;  T692:;
1655  T682:;          {object V345 = make_cons((V333),V344);
1656          {object V356 = make_cons(V354,V355);          VMR27(V345)}
1657          VMR27(V356)}          goto T679;
1658          goto T669;  T679:;
1659  T669:;          {object V346 = Cnil;
1660          {object V357 = Cnil;          VMR27(V346)}
1661          VMR27(V357)}          goto T674;
1662          goto T664;  T674:;
1663  T664:;          {object V347 = Cnil;
1664          {object V358 = Cnil;          VMR27(V347)}}
1665          VMR27(V358)}}          goto T660;
1666          goto T650;  T660:;
1667  T650:;          {object V348 = Cnil;
1668          {object V359 = Cnil;          VMR27(V348)}}
1669          VMR27(V359)}}          goto T653;
1670          goto T643;  T653:;
1671  T643:;          {object V349 = Cnil;
1672          {object V360 = Cnil;          VMR27(V349)}
         VMR27(V360)}  
1673          va_end(ap);          va_end(ap);
1674          base[0]=base[0];          base[0]=base[0];
1675          return Cnil;}          return Cnil;}
1676          }          }
1677  /*      local entry for function OPTIMIZE-SLOT-VALUE    */  /*      local entry for function OPTIMIZE-SLOT-VALUE    */
1678    
1679  static object LI30(V364,V365,V366)  static object LI30(V353,V354,V355)
1680    
1681  object V364;object V365;object V366;  object V353;object V354;object V355;
1682  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1683          goto TTL;          goto TTL;
1684  TTL:;  TTL:;
1685          if(((V365))==Cnil){          if(((V354))==Cnil){
1686          goto T684;}          goto T694;}
1687          {object V367;          {object V356;
1688          object V368;          object V357;
1689          V367= Cnil;          V356= Cnil;
1690          V368= Cnil;          V357= Cnil;
1691          V368= (V366);          V357= (V355);
1692          V367= CMPcaddr((V368));          V356= CMPcaddr((V357));
1693          {object V369;          {object V358;
1694          base[0]= (V367);          base[0]= (V356);
1695          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1696          Leval();          Leval();
1697          vs_top=sup;          vs_top=sup;
1698          V369= vs_base[0];          V358= vs_base[0];
1699          {object V370 = (*(LnkLI199))((V364),VV[46],(V365),(V369),Cnil);          {object V359 = (*(LnkLI215))((V353),VV[54],(V354),(V358),Cnil);
1700          VMR28(V370)}}}          VMR28(V359)}}}
1701          goto T684;          goto T694;
1702  T684:;  T694:;
1703          {object V371 = make_cons(VV[47],CMPcdr((V366)));          {object V360 = make_cons(VV[55],CMPcdr((V355)));
1704          VMR28(V371)}          VMR28(V360)}
1705          base[0]=base[0];          base[0]=base[0];
1706          return Cnil;          return Cnil;
1707  }  }
1708  /*      local entry for function OPTIMIZE-SET-SLOT-VALUE        */  /*      local entry for function OPTIMIZE-SET-SLOT-VALUE        */
1709    
1710  static object LI31(V375,V376,V377)  static object LI31(V364,V365,V366)
1711    
1712  object V375;object V376;object V377;  object V364;object V365;object V366;
1713  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1714          goto TTL;          goto TTL;
1715  TTL:;  TTL:;
1716          if(((V376))==Cnil){          if(((V365))==Cnil){
1717          goto T694;}          goto T704;}
1718          {object V378;          {object V367;
1719          object V379;          object V368;
1720          register object V380;          register object V369;
1721          V378= Cnil;          V367= Cnil;
1722          V379= Cnil;          V368= Cnil;
1723          V380= Cnil;          V369= Cnil;
1724          V380= (V377);          V369= (V366);
1725          V380= CMPcddr((V380));          V369= CMPcddr((V369));
1726          {object V381;          {object V370;
1727          V381= CMPcar((V380));          V370= CMPcar((V369));
1728          V380= CMPcdr((V380));          V369= CMPcdr((V369));
1729          V379= (V381);}          V368= (V370);}
1730          V378= CMPcar((V380));          V367= CMPcar((V369));
1731          {object V382;          {object V371;
1732          base[0]= (V379);          base[0]= (V368);
1733          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1734          Leval();          Leval();
1735          vs_top=sup;          vs_top=sup;
1736          V382= vs_base[0];          V371= vs_base[0];
1737          {object V383 = (*(LnkLI199))((V375),VV[48],(V376),(V382),(V378));          {object V372 = (*(LnkLI215))((V364),VV[56],(V365),(V371),(V367));
1738          VMR29(V383)}}}          VMR29(V372)}}}
1739          goto T694;          goto T704;
1740  T694:;  T704:;
1741          {object V384 = make_cons(VV[49],CMPcdr((V377)));          {object V373 = make_cons(VV[57],CMPcdr((V366)));
1742          VMR29(V384)}          VMR29(V373)}
1743          base[0]=base[0];          base[0]=base[0];
1744          return Cnil;          return Cnil;
1745  }  }
1746  /*      local entry for function OPTIMIZE-SLOT-BOUNDP   */  /*      local entry for function OPTIMIZE-SLOT-BOUNDP   */
1747    
1748  static object LI32(V388,V389,V390)  static object LI32(V377,V378,V379)
1749    
1750  object V388;object V389;object V390;  object V377;object V378;object V379;
1751  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1752          goto TTL;          goto TTL;
1753  TTL:;  TTL:;
1754          if(((V389))==Cnil){          if(((V378))==Cnil){
1755          goto T712;}          goto T722;}
1756          {object V391;          {object V380;
1757          object V392;          object V381;
1758          register object V393;          register object V382;
1759          V391= Cnil;          V380= Cnil;
1760          V392= Cnil;          V381= Cnil;
1761          V393= Cnil;          V382= Cnil;
1762          V393= (V390);          V382= (V379);
1763          V393= CMPcddr((V393));          V382= CMPcddr((V382));
1764          {object V394;          {object V383;
1765          V394= CMPcar((V393));          V383= CMPcar((V382));
1766          V393= CMPcdr((V393));          V382= CMPcdr((V382));
1767          V392= (V394);}          V381= (V383);}
1768          V391= CMPcar((V393));          V380= CMPcar((V382));
1769          {object V395;          {object V384;
1770          base[0]= (V392);          base[0]= (V381);
1771          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1772          Leval();          Leval();
1773          vs_top=sup;          vs_top=sup;
1774          V395= vs_base[0];          V384= vs_base[0];
1775          {object V396 = (*(LnkLI199))((V388),VV[50],(V389),(V395),(V391));          {object V385 = (*(LnkLI215))((V377),VV[58],(V378),(V384),(V380));
1776          VMR30(V396)}}}          VMR30(V385)}}}
1777          goto T712;          goto T722;
1778  T712:;  T722:;
1779          {object V397 = make_cons(VV[51],CMPcdr((V390)));          {object V386 = make_cons(VV[59],CMPcdr((V379)));
1780          VMR30(V397)}          VMR30(V386)}
1781          base[0]=base[0];          base[0]=base[0];
1782          return Cnil;          return Cnil;
1783  }  }
1784  /*      local entry for function OPTIMIZE-READER        */  /*      local entry for function OPTIMIZE-READER        */
1785    
1786  static object LI33(V402,V403,V404,V405)  static object LI33(V391,V392,V393,V394)
1787    
1788  object V402;object V403;object V404;object V405;  object V391;object V392;object V393;object V394;
1789  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1790          goto TTL;          goto TTL;
1791  TTL:;  TTL:;
1792          if(((V403))==Cnil){          if(((V392))==Cnil){
1793          goto T730;}          goto T740;}
1794          {object V406 = (*(LnkLI200))((V402),VV[46],(V403),(V404),Cnil);          {object V395 = (*(LnkLI216))((V391),VV[54],(V392),(V393),Cnil);
1795          VMR31(V406)}          VMR31(V395)}
1796          goto T730;          goto T740;
1797  T730:;  T740:;
1798          {object V407 = (V405);          {object V396 = (V394);
1799          VMR31(V407)}          VMR31(V396)}
1800          return Cnil;          return Cnil;
1801  }  }
1802  /*      local entry for function OPTIMIZE-WRITER        */  /*      local entry for function OPTIMIZE-WRITER        */
1803    
1804  static object LI34(V412,V413,V414,V415)  static object LI34(V401,V402,V403,V404)
1805    
1806  object V412;object V413;object V414;object V415;  object V401;object V402;object V403;object V404;
1807  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1808          goto TTL;          goto TTL;
1809  TTL:;  TTL:;
1810          if(((V413))==Cnil){          if(((V402))==Cnil){
1811          goto T733;}          goto T743;}
1812          {object V416;          {object V405;
1813          object V417;          object V406;
1814          V416= Cnil;          V405= Cnil;
1815          V417= Cnil;          V406= Cnil;
1816          V417= (V415);          V406= (V404);
1817          V416= CMPcaddr((V417));          V405= CMPcaddr((V406));
1818          {object V418 = (*(LnkLI200))((V412),VV[48],(V413),(V414),(V416));          {object V407 = (*(LnkLI216))((V401),VV[56],(V402),(V403),(V405));
1819          VMR32(V418)}}          VMR32(V407)}}
1820          goto T733;          goto T743;
1821  T733:;  T743:;
1822          {object V419 = (V415);          {object V408 = (V404);
1823          VMR32(V419)}          VMR32(V408)}
1824          return Cnil;          return Cnil;
1825  }  }
1826  /*      local entry for function OPTIMIZE-INSTANCE-ACCESS       */  /*      local entry for function OPTIMIZE-INSTANCE-ACCESS       */
1827    
1828  static object LI35(V425,V426,V427,V428,V429)  static object LI35(V414,V415,V416,V417,V418)
1829    
1830  object V425;object V426;register object V427;register object V428;object V429;  object V414;object V415;register object V416;register object V417;object V418;
1831  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1832          goto TTL;          goto TTL;
1833  TTL:;  TTL:;
1834          {register object V430;          {register object V419;
1835          register object V431;          register object V420;
1836          if(!(type_of((V427))==t_cons)){          if(!(type_of((V416))==t_cons)){
1837          goto T742;}          goto T752;}
1838          V430= CMPcdr((V427));          V419= CMPcdr((V416));
1839          goto T740;          goto T750;
1840          goto T742;          goto T752;
1841  T742:;  T752:;
1842          V430= (VV[52]->s.s_dbind);          V419= (VV[60]->s.s_dbind);
1843          goto T740;          goto T750;
1844  T740:;  T750:;
1845          if(!(type_of((V427))==t_cons)){          if(!(type_of((V416))==t_cons)){
1846          goto T746;}          goto T756;}
1847          V431= CMPcar((V427));          V420= CMPcar((V416));
1848          goto T744;          goto T754;
1849          goto T746;          goto T756;
1850  T746:;  T756:;
1851          V431= (V427);          V420= (V416);
1852          goto T744;          goto T754;
1853  T744:;  T754:;
1854          if(!(((VV[22]->s.s_dbind))==(VV[23]))){          if(!(((VV[22]->s.s_dbind))==(VV[23]))){
1855          goto T749;}          goto T759;}
1856          base[0]= (V430);          base[0]= (V419);
1857          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1858          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk217)(Lclptr217);
1859          vs_top=sup;          vs_top=sup;
1860          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1861          goto T749;}{object V433;          goto T759;}{object V422;
1862          V433= (VV[45]->s.s_dbind);          V422= (VV[53]->s.s_dbind);
1863          base[0]= (V430);          base[0]= (V419);
1864          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1865          (void) (*Lnk198)(Lclptr198);          (void) (*Lnk214)(Lclptr214);
1866          vs_top=sup;          vs_top=sup;
1867          V434= vs_base[0];          V423= vs_base[0];
1868          {register object x= V433,V432= V434;          {register object x= V422,V421= V423;
1869          while(V432!=Cnil)          while(V421!=Cnil)
1870          if(x==(V432->c.c_car)){          if(x==(V421->c.c_car)){
1871          goto T755;          goto T765;
1872          }else V432=V432->c.c_cdr;          }else V421=V421->c.c_cdr;
1873          goto T749;}}          goto T759;}}
1874          goto T755;          goto T765;
1875  T755:;  T765:;
1876          {object V435;          {object V424;
1877          V435= (*(LnkLI158))((V430),(V428));          V424= (*(LnkLI173))((V419),(V417));
1878          {object V436= (V426);          {object V426= V415;
1879          if((V436!= VV[46]))goto T759;          if((V426!= VV[54]))goto T769;
1880          base[0]= (V435);          base[0]= (V424);
1881          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1882          (void) (*Lnk202)(Lclptr202);          (void) (*Lnk218)(Lclptr218);
1883          vs_top=sup;          vs_top=sup;
1884          V437= vs_base[0];          V427= vs_base[0];
1885          V438 = (V431);          {object V428 = list(2,V427,(V420));
1886          {object V439 = list(2,V437,V438);          VMR33(V428)}
1887          VMR33(V439)}          goto T769;
1888          goto T759;  T769:;
1889  T759:;          if((V426!= VV[56]))goto T772;
1890          if((V436!= VV[48]))goto T762;          base[0]= (V424);
         base[0]= (V435);  
1891          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1892          (void) (*Lnk202)(Lclptr202);          (void) (*Lnk218)(Lclptr218);
1893          vs_top=sup;          vs_top=sup;
1894          V440= vs_base[0];          V429= vs_base[0];
1895          V441 = (V431);          {object V430 = list(3,VV[37],list(2,V429,(V420)),(V418));
1896          {object V442 = list(3,VV[37],list(2,V440,V441),(V429));          VMR33(V430)}
1897          VMR33(V442)}          goto T772;
1898          goto T762;  T772:;
1899  T762:;          if((V426!= VV[58]))goto T775;
1900          if((V436!= VV[50]))goto T765;          {object V431 = Ct;
1901          {object V443 = Ct;          VMR33(V431)}
1902          VMR33(V443)}          goto T775;
1903          goto T765;  T775:;
1904  T765:;          base[0]= VV[42];
1905          FEerror("The ECASE key value ~s is illegal.",1,V436);          base[1]= VV[43];
1906          {object V444 = Cnil;          base[2]= VV[44];
1907          VMR33(V444)}}}          base[3]= VV[45];
1908          goto T749;          base[4]= V415;
1909  T749:;          base[5]= VV[46];
1910          {register object V445;          base[6]= VV[61];
1911          register object V446;          base[7]= VV[48];
1912          object V447;          base[8]= VV[62];
1913          register object V448;          vs_top=(vs_base=base+0)+9;
1914          {register object x= (V431),V449= (V425);          (void) (*Lnk210)();
1915          while(V449!=Cnil)          vs_top=sup;
1916          if(EQ(x,V449->c.c_car->c.c_car) &&V449->c.c_car != Cnil){          {object V432 = vs_base[0];
1917          V445= (V449->c.c_car);          VMR33(V432)}}}
1918          goto T766;          goto T759;
1919          }else V449=V449->c.c_cdr;  T759:;
1920          V445= Cnil;}          {register object V433;
1921          goto T766;          register object V434;
1922  T766:;          object V435;
1923          {register object x= (V428),V450= CMPcdr((V445));          register object V436;
1924          while(V450!=Cnil)          {register object x= (V420),V437= (V414);
1925          if(EQ(x,V450->c.c_car->c.c_car) &&V450->c.c_car != Cnil){          while(V437!=Cnil)
1926          V446= (V450->c.c_car);          if(EQ(x,V437->c.c_car->c.c_car) &&V437->c.c_car != Cnil){
1927          goto T767;          V433= (V437->c.c_car);
1928          }else V450=V450->c.c_cdr;          goto T785;
1929          V446= Cnil;}          }else V437=V437->c.c_cdr;
1930          goto T767;          V433= Cnil;}
1931  T767:;          goto T785;
1932          base[4]= (V445);  T785:;
1933          base[5]= (V425);          {register object x= (V417),V438= CMPcdr((V433));
1934            while(V438!=Cnil)
1935            if(EQ(x,V438->c.c_car->c.c_car) &&V438->c.c_car != Cnil){
1936            V434= (V438->c.c_car);
1937            goto T786;
1938            }else V438=V438->c.c_cdr;
1939            V434= Cnil;}
1940            goto T786;
1941    T786:;
1942            base[4]= (V433);
1943            base[5]= (V414);
1944          base[6]= VV[21];          base[6]= VV[21];
1945          base[7]= (VV[9]->s.s_gfdef);          base[7]= (VV[9]->s.s_gfdef);
1946          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1947          (void) (*Lnk203)();          (void) (*Lnk219)();
1948          vs_top=sup;          vs_top=sup;
1949          V447= vs_base[0];          V435= vs_base[0];
1950          V448= list(2,VV[53],VV[54]);          V436= list(2,VV[63],VV[64]);
1951          if(((V445))!=Cnil){          if(((V433))!=Cnil){
1952          goto T774;}          goto T793;}
1953          base[4]= VV[55];          base[4]= VV[65];
1954          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1955          Lerror();          Lerror();
1956          vs_top=sup;          vs_top=sup;
1957          goto T774;          goto T793;
1958  T774:;  T793:;
1959          if(((V446))!=Cnil){          if(((V434))!=Cnil){
1960          goto T778;}          goto T797;}
1961          V446= make_cons((V428),Cnil);          V434= make_cons((V417),Cnil);
1962          {object V453;          {object V441;
1963          V453= make_cons(V446,CMPcdr(V445));          V441= make_cons(V434,CMPcdr(V433));
1964          (V445)->c.c_cdr = (V453);}          (V433)->c.c_cdr = (V441);}
1965          goto T778;          goto T797;
1966  T778:;  T797:;
1967          {object V456;          {object V444;
1968          V456= make_cons(V448,CMPcdr(V446));          V444= make_cons(V436,CMPcdr(V434));
1969          (V446)->c.c_cdr = (V456);}          (V434)->c.c_cdr = (V444);}
1970          {object V457= (V426);          {object V446= V415;
1971          if((V457!= VV[46]))goto T788;          if((V446!= VV[54]))goto T807;
1972          V458= list(2,VV[57],(V428));          V447= list(2,VV[67],(V417));
1973          {object V459 = list(6,VV[56],(V448),(V431),(V447),/* INLINE-ARGS */V458,list(2,VV[57],(V430)));          {object V448 = list(6,VV[66],(V436),(V420),(V435),/* INLINE-ARGS */V447,list(2,VV[67],(V419)));
1974          VMR33(V459)}          VMR33(V448)}
1975          goto T788;          goto T807;
1976  T788:;  T807:;
1977          if((V457!= VV[48]))goto T789;          if((V446!= VV[56]))goto T808;
1978          V460= list(2,VV[58],(V429));          V449= list(2,VV[68],(V418));
1979          V461= make_cons(/* INLINE-ARGS */V460,Cnil);          V450= make_cons(/* INLINE-ARGS */V449,Cnil);
1980          V462= list(2,VV[57],(V428));          V451= list(2,VV[67],(V417));
1981          {object V463 = list(3,VV[0],/* INLINE-ARGS */V461,list(7,VV[59],(V448),(V431),(V447),/* INLINE-ARGS */V462,list(2,VV[57],(V430)),VV[58]));          {object V452 = list(3,VV[0],/* INLINE-ARGS */V450,list(7,VV[69],(V436),(V420),(V435),/* INLINE-ARGS */V451,list(2,VV[67],(V419)),VV[68]));
1982          VMR33(V463)}          VMR33(V452)}
1983          goto T789;          goto T808;
1984  T789:;  T808:;
1985          if((V457!= VV[50]))goto T790;          if((V446!= VV[58]))goto T809;
1986          V464= list(2,VV[57],(V428));          V453= list(2,VV[67],(V417));
1987          {object V465 = list(6,VV[60],(V448),(V431),(V447),/* INLINE-ARGS */V464,list(2,VV[57],(V430)));          {object V454 = list(6,VV[70],(V436),(V420),(V435),/* INLINE-ARGS */V453,list(2,VV[67],(V419)));
1988          VMR33(V465)}          VMR33(V454)}
1989          goto T790;          goto T809;
1990  T790:;  T809:;
1991          FEerror("The ECASE key value ~s is illegal.",1,V457);          base[4]= VV[42];
1992          {object V466 = Cnil;          base[5]= VV[43];
1993          VMR33(V466)}}}}          base[6]= VV[44];
1994            base[7]= VV[45];
1995            base[8]= V415;
1996            base[9]= VV[46];
1997            base[10]= VV[71];
1998            base[11]= VV[48];
1999            base[12]= VV[72];
2000            vs_top=(vs_base=base+4)+9;
2001            (void) (*Lnk210)();
2002            vs_top=sup;
2003            {object V455 = vs_base[0];
2004            VMR33(V455)}}}}
2005          base[0]=base[0];          base[0]=base[0];
2006          return Cnil;          return Cnil;
2007  }  }
2008  /*      local entry for function OPTIMIZE-ACCESSOR-CALL */  /*      local entry for function OPTIMIZE-ACCESSOR-CALL */
2009    
2010  static object LI36(V472,V473,V474,V475,V476)  static object LI36(V461,V462,V463,V464,V465)
2011    
2012  object V472;object V473;register object V474;register object V475;object V476;  object V461;object V462;register object V463;register object V464;object V465;
2013  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2014          goto TTL;          goto TTL;
2015  TTL:;  TTL:;
2016          {object V477;          {object V466;
2017          object V478;          object V467;
2018          register object V479;          register object V468;
2019          object V480;          object V469;
2020          register object V481;          register object V470;
2021          object V482;          object V471;
2022          object V483;          object V472;
2023          if(!(type_of((V474))==t_cons)){          if(!(type_of((V463))==t_cons)){
2024          goto T793;}          goto T821;}
2025          V477= CMPcdr((V474));          V466= CMPcdr((V463));
2026          goto T791;          goto T819;
2027          goto T793;          goto T821;
2028  T793:;  T821:;
2029          V477= (VV[52]->s.s_dbind);          V466= (VV[60]->s.s_dbind);
2030          goto T791;          goto T819;
2031  T791:;  T819:;
2032          if(!(type_of((V474))==t_cons)){          if(!(type_of((V463))==t_cons)){
2033          goto T797;}          goto T825;}
2034          V478= CMPcar((V474));          V467= CMPcar((V463));
2035          goto T795;          goto T823;
2036          goto T797;          goto T825;
2037  T797:;  T825:;
2038          V478= (V474);          V467= (V463);
2039          goto T795;          goto T823;
2040  T795:;  T823:;
2041          {register object x= (V478),V484= (V472);          {register object x= (V467),V473= (V461);
2042          while(V484!=Cnil)          while(V473!=Cnil)
2043          if(EQ(x,V484->c.c_car->c.c_car) &&V484->c.c_car != Cnil){          if(EQ(x,V473->c.c_car->c.c_car) &&V473->c.c_car != Cnil){
2044          V479= (V484->c.c_car);          V468= (V473->c.c_car);
2045          goto T799;          goto T827;
2046          }else V484=V484->c.c_cdr;          }else V473=V473->c.c_cdr;
2047          V479= Cnil;}          V468= Cnil;}
2048          goto T799;          goto T827;
2049  T799:;  T827:;
2050          {object V485= (V473);          {object V474= (V462);
2051          if((V485!= VV[46]))goto T801;          if((V474!= VV[54]))goto T829;
2052          V480= list(2,VV[39],(V475));          V469= list(2,VV[39],(V464));
2053          goto T800;          goto T828;
2054          goto T801;          goto T829;
2055  T801:;  T829:;
2056          if((V485!= VV[48]))goto T802;          if((V474!= VV[56]))goto T830;
2057          V480= list(2,VV[40],(V475));          V469= list(2,VV[40],(V464));
2058          goto T800;          goto T828;
2059          goto T802;          goto T830;
2060  T802:;  T830:;
2061          V480= Cnil;}          V469= Cnil;}
2062          goto T800;          goto T828;
2063  T800:;  T828:;
2064          {register object x= (V480),V486= CMPcdr((V479));          {register object x= (V469),V475= CMPcdr((V468));
2065          while(V486!=Cnil)          while(V475!=Cnil)
2066          if(equal(x,V486->c.c_car->c.c_car) &&V486->c.c_car != Cnil){          if(equal(x,V475->c.c_car->c.c_car) &&V475->c.c_car != Cnil){
2067          V481= (V486->c.c_car);          V470= (V475->c.c_car);
2068          goto T803;          goto T831;
2069          }else V486=V486->c.c_cdr;          }else V475=V475->c.c_cdr;
2070          V481= Cnil;}          V470= Cnil;}
2071          goto T803;          goto T831;
2072  T803:;  T831:;
2073          base[7]= (V479);          base[7]= (V468);
2074          base[8]= (V472);          base[8]= (V461);
2075          base[9]= VV[21];          base[9]= VV[21];
2076          base[10]= (VV[9]->s.s_gfdef);          base[10]= (VV[9]->s.s_gfdef);
2077          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
2078          (void) (*Lnk203)();          (void) (*Lnk219)();
2079          vs_top=sup;          vs_top=sup;
2080          V482= vs_base[0];          V471= vs_base[0];
2081          V483= list(2,VV[53],VV[61]);          V472= list(2,VV[63],VV[73]);
2082          if(((V479))!=Cnil){          if(((V468))!=Cnil){
2083          goto T810;}          goto T838;}
2084          base[7]= VV[62];          base[7]= VV[74];
2085          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2086          Lerror();          Lerror();
2087          vs_top=sup;          vs_top=sup;
2088          goto T810;          goto T838;
2089  T810:;  T838:;
2090          if(((V481))!=Cnil){          if(((V470))!=Cnil){
2091          goto T814;}          goto T842;}
2092          V481= make_cons((V480),Cnil);          V470= make_cons((V469),Cnil);
2093          {object V489;          {object V478;
2094          V489= make_cons(V481,CMPcdr(V479));          V478= make_cons(V470,CMPcdr(V468));
2095          (V479)->c.c_cdr = (V489);}          (V468)->c.c_cdr = (V478);}
2096          goto T814;          goto T842;
2097  T814:;  T842:;
2098          {object V492;          {object V481;
2099          V492= make_cons(V483,CMPcdr(V481));          V481= make_cons(V472,CMPcdr(V470));
2100          (V481)->c.c_cdr = (V492);}          (V470)->c.c_cdr = (V481);}
2101          {object V493= (V473);          {object V483= V462;
2102          if((V493!= VV[46]))goto T824;          if((V483!= VV[54]))goto T852;
2103          {object V494 = list(6,VV[63],(V483),(V478),(V482),(V475),list(2,VV[57],(V477)));          {object V484 = list(6,VV[75],(V472),(V467),(V471),(V464),list(2,VV[67],(V466)));
2104          VMR34(V494)}          VMR34(V484)}
2105          goto T824;          goto T852;
2106  T824:;  T852:;
2107          if((V493!= VV[48]))goto T825;          if((V483!= VV[56]))goto T853;
2108          V495= list(2,VV[58],(V476));          V485= list(2,VV[68],(V465));
2109          V496= make_cons(/* INLINE-ARGS */V495,Cnil);          V486= make_cons(/* INLINE-ARGS */V485,Cnil);
2110          {object V497 = list(3,VV[0],/* INLINE-ARGS */V496,list(7,VV[64],(V483),(V478),(V482),(V475),list(2,VV[57],(V477)),VV[58]));          {object V487 = list(3,VV[0],/* INLINE-ARGS */V486,list(7,VV[76],(V472),(V467),(V471),(V464),list(2,VV[67],(V466)),VV[68]));
2111          VMR34(V497)}          VMR34(V487)}
2112          goto T825;          goto T853;
2113  T825:;  T853:;
2114          FEerror("The ECASE key value ~s is illegal.",1,V493);          base[7]= VV[42];
2115          {object V498 = Cnil;          base[8]= VV[43];
2116          VMR34(V498)}}}          base[9]= VV[44];
2117            base[10]= VV[45];
2118            base[11]= V462;
2119            base[12]= VV[46];
2120            base[13]= VV[77];
2121            base[14]= VV[48];
2122            base[15]= VV[78];
2123            vs_top=(vs_base=base+7)+9;
2124            (void) (*Lnk210)();
2125            vs_top=sup;
2126            {object V488 = vs_base[0];
2127            VMR34(V488)}}}
2128          base[0]=base[0];          base[0]=base[0];
2129          return Cnil;          return Cnil;
2130  }  }
2131  /*      local entry for function OPTIMIZE-GF-CALL-INTERNAL      */  /*      local entry for function OPTIMIZE-GF-CALL-INTERNAL      */
2132    
2133  static object LI37(V502,V503,V504)  static object LI37(V492,V493,V494)
2134    
2135  register object V502;object V503;object V504;  register object V492;object V493;object V494;
2136  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2137          goto TTL;          goto TTL;
2138  TTL:;  TTL:;
2139          if(!(type_of((V502))==t_cons)){          if(!(type_of((V492))==t_cons)){
2140          goto T826;}          goto T863;}
2141          if(!((CMPcar((V502)))==(VV[42]))){          if(!((CMPcar((V492)))==(VV[50]))){
2142          goto T826;}          goto T863;}
2143          V502= CMPcaddr((V502));          V492= CMPcaddr((V492));
2144          goto T826;          goto T863;
2145  T826:;{object V505;  T863:;{object V495;
2146          if(type_of((V502))==t_symbol){          if(type_of((V492))==t_symbol){
2147          goto T834;}          goto T871;}
2148          V505= Cnil;          V495= Cnil;
2149          goto T833;          goto T870;
2150          goto T834;          goto T871;
2151  T834:;  T871:;
2152          {object V506;          {object V496;
2153          object V507;          object V497;
2154          V508= (*(LnkLI195))(VV[43],(V502),(V504));          V498= (*(LnkLI211))(VV[51],(V492),(V494));
2155          V506= CMPcaddr(/* INLINE-ARGS */V508);          V496= CMPcaddr(/* INLINE-ARGS */V498);
2156          if((V506)!=Cnil){          if((V496)!=Cnil){
2157          V511= (V506);          V501= (V496);
2158          goto T839;}          goto T876;}
2159          V511= (V502);          V501= (V492);
2160          goto T839;          goto T876;
2161  T839:;  T876:;
2162          V512 = (V503);          {register object x= V501,V500= (V493);
2163          {register object x= V511,V510= V512;          while(V500!=Cnil)
2164          while(V510!=Cnil)          if(EQ(x,V500->c.c_car->c.c_car) &&V500->c.c_car != Cnil){
2165          if(EQ(x,V510->c.c_car->c.c_car) &&V510->c.c_car != Cnil){          V499= (V500->c.c_car);
2166          V509= (V510->c.c_car);          goto T875;
2167          goto T838;          }else V500=V500->c.c_cdr;
2168          }else V510=V510->c.c_cdr;          V499= Cnil;}
2169          V509= Cnil;}          goto T875;
2170          goto T838;  T875:;
2171  T838:;          V497= CMPcar(V499);
2172          V507= CMPcar(V509);          if(((V497))==Cnil){
2173          if(((V507))==Cnil){          goto T878;}
2174          goto T841;}          {object V502;
2175          {object V513;          V503= (*(LnkLI211))(VV[52],(V497),(V494));
2176          V514= (*(LnkLI195))(VV[44],(V507),(V504));          V502= CMPcaddr(/* INLINE-ARGS */V503);
2177          V513= CMPcaddr(/* INLINE-ARGS */V514);          if(((V502))==Cnil){
2178          if(((V513))==Cnil){          goto T882;}
2179          goto T845;}          if(((V502))==(Ct)){
2180          if(((V513))==(Ct)){          goto T882;}
2181          goto T845;}          base[3]= (V497);
2182          base[3]= (V507);          base[4]= (V493);
2183          base[4]= (V503);          base[5]= VV[79];
2184          base[5]= VV[65];          base[6]= (VV[220]->s.s_gfdef);
         base[6]= (VV[204]->s.s_gfdef);  
2185          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2186          (void) (*Lnk203)();          (void) (*Lnk219)();
2187          vs_top=sup;          vs_top=sup;
2188          V505= vs_base[0];          V495= vs_base[0];
2189          goto T833;          goto T870;
2190          goto T845;          goto T882;
2191  T845:;  T882:;
2192          V505= Cnil;          V495= Cnil;
2193          goto T833;}          goto T870;}
2194          goto T841;          goto T878;
2195  T841:;  T878:;
2196          V505= Cnil;}          V495= Cnil;}
2197          goto T833;          goto T870;
2198  T833:;  T870:;
2199          if(V505==Cnil)goto T832;          if(V495==Cnil)goto T869;
2200          {object V515 = V505;          {object V504 = V495;
2201          VMR35(V515)}          VMR35(V504)}
2202          goto T832;          goto T869;
2203  T832:;}  T869:;}
2204          base[0]= (V502);          base[0]= (V492);
2205          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2206          Lconstantp();          Lconstantp();
2207          vs_top=sup;          vs_top=sup;
2208          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2209          goto T854;}          goto T891;}
2210          {object V516;          {object V505;
2211          base[0]= (V502);          base[0]= (V492);
2212          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2213          Leval();          Leval();
2214          vs_top=sup;          vs_top=sup;
2215          V516= vs_base[0];          V505= vs_base[0];
2216          if(!(type_of((V516))==t_symbol)){          if(!(type_of((V505))==t_symbol)){
2217          goto T860;}          goto T897;}
2218          {object V517 = (V516);          {object V506 = (V505);
2219          VMR35(V517)}          VMR35(V506)}
2220          goto T860;          goto T897;
2221  T860:;  T897:;
2222          {object V518 = (VV[66]->s.s_dbind);          {object V507 = (VV[80]->s.s_dbind);
2223          VMR35(V518)}}          VMR35(V507)}}
2224          goto T854;          goto T891;
2225  T854:;  T891:;
2226          {object V519 = (VV[66]->s.s_dbind);          {object V508 = (VV[80]->s.s_dbind);
2227          VMR35(V519)}          VMR35(V508)}
2228          base[0]=base[0];          base[0]=base[0];
2229          return Cnil;          return Cnil;
2230  }  }
2231  /*      local entry for function OPTIMIZE-GF-CALL       */  /*      local entry for function OPTIMIZE-GF-CALL       */
2232    
2233  static object LI38(V526,V527,V528,V529,V530,V531)  static object LI38(V515,V516,V517,V518,V519,V520)
2234    
2235  object V526;object V527;register object V528;object V529;object V530;object V531;  object V515;object V516;register object V517;object V518;object V519;object V520;
2236  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2237          goto TTL;          goto TTL;
2238  TTL:;  TTL:;
2239          if((CMPcar((V528)))==(VV[38])){          if((CMPcar((V517)))==(VV[38])){
2240          goto T863;}          goto T900;}
2241          {object V532;          {object V521;
2242          object V533;          object V522;
2243          object V534;          object V523;
2244          object V535;          object V524;
2245          register object V536;          register object V525;
2246          register object V537;          register object V526;
2247          object V538;          object V527;
2248          V532= CMPcdr((V528));          V521= CMPcdr((V517));
2249          V533= ((CMPcar((V528)))==(VV[38])?Ct:Cnil);          V522= ((CMPcar((V517)))==(VV[38])?Ct:Cnil);
2250          V534= nthcdr(fix((V529)),(V532));          V523= nthcdr(fix((V518)),(V521));
2251          base[7]= (V532);          base[7]= (V521);
2252          base[8]= (V534);          base[8]= (V523);
2253          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2254          Lldiff();          Lldiff();
2255          vs_top=sup;          vs_top=sup;
2256          V535= vs_base[0];          V524= vs_base[0];
2257          V539= CMPcar((V528));          V528= CMPcar((V517));
2258          V540 = (V529);          if(((V522))==Cnil){
2259          V541 = (V530);          goto T913;}
2260          if(((V533))==Cnil){          V532= (V521);
2261          goto T876;}          goto T911;
2262          V545= (V532);          goto T913;
2263          goto T874;  T913:;
2264          goto T876;          V532= (V524);
2265  T876:;          goto T911;
2266          V545= (V535);  T911:;
2267          goto T874;          {object V530;
2268  T874:;          object V531= V532;
2269          {object V543;          if(V531==Cnil){
2270          object V544= V545;          V529= Cnil;
2271          if(V544==Cnil){          goto T909;}
2272          V542= Cnil;          base[7]=V530=MMcons(Cnil,Cnil);
2273          goto T872;}          goto T910;
2274          base[7]=V543=MMcons(Cnil,Cnil);  T910:;
2275          goto T873;          (V530->c.c_car)= (*(LnkLI221))((V531->c.c_car),(V515),(V520));
2276  T873:;          if((V531=MMcdr(V531))==Cnil){
2277          (V543->c.c_car)= (*(LnkLI205))((V544->c.c_car),(V526),(V531));          V529= base[7];
2278          if((V544=MMcdr(V544))==Cnil){          goto T909;}
2279          V542= base[7];          V530=MMcdr(V530)=MMcons(Cnil,Cnil);
2280          goto T872;}          goto T910;}
2281          V543=MMcdr(V543)=MMcons(Cnil,Cnil);          goto T909;
2282          goto T873;}  T909:;
2283          goto T872;          V525= list(4,/* INLINE-ARGS */V528,(V518),(V519),V529);
2284  T872:;          {register object x= (V525),V534= (V516);
2285          V536= list(4,/* INLINE-ARGS */V539,V540,V541,V542);          while(V534!=Cnil)
2286          {register object x= (V536),V547= (V527);          if(equal(x,V534->c.c_car->c.c_car) &&V534->c.c_car != Cnil){
2287          while(V547!=Cnil)          V526= (V534->c.c_car);
2288          if(equal(x,V547->c.c_car->c.c_car) &&V547->c.c_car != Cnil){          goto T916;
2289          V537= (V547->c.c_car);          }else V534=V534->c.c_cdr;
2290          goto T879;          V526= Cnil;}
2291          }else V547=V547->c.c_cdr;          goto T916;
2292          V537= Cnil;}  T916:;
2293          goto T879;          V527= list(2,VV[63],VV[81]);
2294  T879:;          base[7]= (VV[222]->s.s_gfdef);
2295          V538= list(2,VV[53],VV[67]);          {object V535;
2296          base[7]= (VV[206]->s.s_gfdef);          V535= CMPcdr((V525));
2297          {object V548;          if(((V522))==Cnil){
2298          V548= CMPcdr((V536));          goto T925;}
2299          if(((V533))==Cnil){          base[9]= (V535);
2300          goto T888;}          base[10]= nthcdr(fix((V518)),(V535));
         base[9]= (V548);  
         base[10]= nthcdr(fix((V529)),(V548));  
2301          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
2302          Lldiff();          Lldiff();
2303          vs_top=sup;          vs_top=sup;
2304          base[8]= vs_base[0];          base[8]= vs_base[0];
2305          goto T885;          goto T922;
2306          goto T888;          goto T925;
2307  T888:;  T925:;
2308          base[8]= (V548);}          base[8]= (V535);}
2309          goto T885;          goto T922;
2310  T885:;  T922:;
2311          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2312          (void) (*Lnk186)();          (void) (*Lnk201)();
2313          vs_top=sup;          vs_top=sup;
2314          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2315          goto T881;}          goto T918;}
2316            {object V536 = Cnil;
2317            VMR36(V536)}
2318            goto T918;
2319    T918:;
2320            if(((V526))!=Cnil){
2321            goto T929;}
2322            V526= make_cons((V525),Cnil);
2323            {object V539;
2324            V539= make_cons(V526,CMPcdr(V516));
2325            (V516)->c.c_cdr = (V539);}
2326            goto T929;
2327    T929:;
2328            {object V542;
2329            V542= make_cons(V527,CMPcdr(V526));
2330            (V526)->c.c_cdr = (V542);}
2331            if(!((CMPcar((V525)))==(VV[38]))){
2332            goto T940;}
2333            {object V543 = listA(3,VV[82],list(3,VV[83],VV[84],(V527)),CMPcdr((V517)));
2334            VMR36(V543)}
2335            goto T940;
2336    T940:;
2337            V544= list(2,VV[85],list(3,VV[83],VV[84],(V527)));
2338            V545= make_cons(/* INLINE-ARGS */V544,Cnil);
2339            if(((V519))==Cnil){
2340            goto T944;}
2341            V547= make_cons(VV[34],(V523));
2342            V546= make_cons(/* INLINE-ARGS */V547,Cnil);
2343            goto T942;
2344            goto T944;
2345    T944:;
2346            V546= Cnil;
2347            goto T942;
2348    T942:;
2349            {object V548 = list(3,VV[0],/* INLINE-ARGS */V545,listA(4,VV[86],VV[85],(V519),append((V524),V546)));
2350            VMR36(V548)}}
2351            goto T900;
2352    T900:;
2353          {object V549 = Cnil;          {object V549 = Cnil;
2354          VMR36(V549)}          VMR36(V549)}
         goto T881;  
 T881:;  
         if(((V537))!=Cnil){  
         goto T892;}  
         V537= make_cons((V536),Cnil);  
         {object V552;  
         V552= make_cons(V537,CMPcdr(V527));  
         (V527)->c.c_cdr = (V552);}  
         goto T892;  
 T892:;  
         {object V555;  
         V555= make_cons(V538,CMPcdr(V537));  
         (V537)->c.c_cdr = (V555);}  
         if(!((CMPcar((V536)))==(VV[38]))){  
         goto T903;}  
         {object V556 = listA(3,VV[68],list(3,VV[69],VV[70],(V538)),CMPcdr((V528)));  
         VMR36(V556)}  
         goto T903;  
 T903:;  
         V557= list(2,VV[71],list(3,VV[69],VV[70],(V538)));  
         V558= make_cons(/* INLINE-ARGS */V557,Cnil);  
         V559 = (V535);  
         if(((V530))==Cnil){  
         goto T907;}  
         V561= make_cons(VV[34],(V534));  
         V560= make_cons(/* INLINE-ARGS */V561,Cnil);  
         goto T905;  
         goto T907;  
 T907:;  
         V560= Cnil;  
         goto T905;  
 T905:;  
         {object V562 = list(3,VV[0],/* INLINE-ARGS */V558,listA(4,VV[72],VV[71],(V530),append(V559,V560)));  
         VMR36(V562)}}  
         goto T863;  
 T863:;  
         {object V563 = Cnil;  
         VMR36(V563)}  
2355          base[0]=base[0];          base[0]=base[0];
2356          return Cnil;          return Cnil;
2357  }  }
# Line 2336  static void L39() Line 2363  static void L39()
2363          vs_check;          vs_check;
2364          check_arg(2);          check_arg(2);
2365          vs_top=sup;          vs_top=sup;
2366          {object V564=base[0]->c.c_cdr;          {object V550=base[0]->c.c_cdr;
2367          if(endp(V564))invalid_macro_call();          if(endp(V550))invalid_macro_call();
2368          base[2]= (V564->c.c_car);          base[2]= (V550->c.c_car);
2369          V564=V564->c.c_cdr;          V550=V550->c.c_cdr;
2370          if(!endp(V564))invalid_macro_call();}          if(!endp(V550))invalid_macro_call();}
2371          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2372          return;          return;
2373  }  }
# Line 2352  static void L40() Line 2379  static void L40()
2379          vs_check;          vs_check;
2380          check_arg(2);          check_arg(2);
2381          vs_top=sup;          vs_top=sup;
2382          {object V565=base[0]->c.c_cdr;          {object V551=base[0]->c.c_cdr;
2383          if(endp(V565))invalid_macro_call();          if(endp(V551))invalid_macro_call();
2384          base[2]= (V565->c.c_car);          base[2]= (V551->c.c_car);
2385          V565=V565->c.c_cdr;          V551=V551->c.c_cdr;
2386          if(!endp(V565))invalid_macro_call();}          if(!endp(V551))invalid_macro_call();}
2387          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2388          return;          return;
2389  }  }
# Line 2366  static void L41() Line 2393  static void L41()
2393  {register object *base=vs_base;  {register object *base=vs_base;
2394          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2395          vs_check;          vs_check;
2396          {object V566;          {object V552;
2397          object V567;          object V553;
2398          check_arg(2);          check_arg(2);
2399          V566=(base[0]);          V552=(base[0]);
2400          V567=(base[1]);          V553=(base[1]);
2401          vs_top=sup;          vs_top=sup;
2402          goto TTL;          goto TTL;
2403  TTL:;  TTL:;
2404          {object V568;          {object V554;
2405          object V569;          object V555;
2406          base[2]= (V566);          base[2]= (V552);
2407          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2408          Lconstantp();          Lconstantp();
2409          vs_top=sup;          vs_top=sup;
2410          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2411          goto T910;}          goto T947;}
2412          V568= Cnil;          V554= Cnil;
2413          goto T909;          goto T946;
2414          goto T910;          goto T947;
2415  T910:;  T947:;
2416          base[2]= (V566);          base[2]= (V552);
2417          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2418          Leval();          Leval();
2419          vs_top=sup;          vs_top=sup;
2420          V568= vs_base[0];          V554= vs_base[0];
2421          goto T909;          goto T946;
2422  T909:;  T946:;
2423          base[2]= (V567);          base[2]= (V553);
2424          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2425          Lconstantp();          Lconstantp();
2426          vs_top=sup;          vs_top=sup;
2427          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2428          goto T915;}          goto T952;}
2429          V569= Cnil;          V555= Cnil;
2430          goto T914;          goto T951;
2431          goto T915;          goto T952;
2432  T915:;  T952:;
2433          base[2]= (V567);          base[2]= (V553);
2434          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2435          Leval();          Leval();
2436          vs_top=sup;          vs_top=sup;
2437          V569= vs_base[0];          V555= vs_base[0];
2438          goto T914;          goto T951;
2439  T914:;  T951:;
2440          if(((VV[22]->s.s_dbind))==(VV[23])){          if(((VV[22]->s.s_dbind))==(VV[23])){
2441          goto T919;}          goto T956;}
2442          base[2]= Cnil;          base[2]= Cnil;
2443          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2444          return;          return;
2445          goto T919;          goto T956;
2446  T919:;  T956:;
2447          base[2]= (V568);          base[2]= (V554);
2448          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2449          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk223)(Lclptr223);
2450          vs_top=sup;          vs_top=sup;
2451          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2452          goto T921;}          goto T958;}
2453          base[2]= Cnil;          base[2]= Cnil;
2454          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2455          return;          return;
2456          goto T921;          goto T958;
2457  T921:;  T958:;
2458          if(((((V568))==((VV[52]->s.s_dbind))?Ct:Cnil))==Cnil){          if(((((V554))==((VV[60]->s.s_dbind))?Ct:Cnil))==Cnil){
2459          goto T924;}          goto T961;}
2460          base[2]= Cnil;          base[2]= Cnil;
2461          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2462          return;          return;
2463          goto T924;          goto T961;
2464  T924:;  T961:;
2465          {object V570;          {object V556;
2466          V570= (*(LnkLI158))((V568),(V569));          V556= (*(LnkLI173))((V554),(V555));
2467          if((V570)==Cnil){          if((V556)==Cnil){
2468          base[2]= Cnil;          base[2]= Cnil;
2469          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2470          return;}          return;}
2471          base[3]= (V570);          base[3]= (V556);
2472          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2473          (void) (*Lnk208)(Lclptr208);          (void) (*Lnk224)(Lclptr224);
2474          vs_top=sup;          vs_top=sup;
2475          base[2]= vs_base[0];          base[2]= vs_base[0];
2476          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2477          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk217)(Lclptr217);
2478          return;}}          return;}}
2479          }          }
2480  }  }
2481  /*      local entry for function SKIP-FAST-SLOT-ACCESS-P        */  /*      local entry for function SKIP-FAST-SLOT-ACCESS-P        */
2482    
2483  static object LI42(V574,V575,V576)  static object LI42(V560,V561,V562)
2484    
2485  object V574;object V575;object V576;  object V560;object V561;object V562;
2486  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2487          goto TTL;          goto TTL;
2488  TTL:;  TTL:;
2489          {register object V577;          {register object V563;
2490          object V578;          object V564;
2491          base[0]= (V574);          base[0]= (V560);
2492          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2493          Lconstantp();          Lconstantp();
2494          vs_top=sup;          vs_top=sup;
2495          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2496          goto T930;}          goto T967;}
2497          V577= Cnil;          V563= Cnil;
2498          goto T929;          goto T966;
2499          goto T930;          goto T967;
2500  T930:;  T967:;
2501          base[0]= (V574);          base[0]= (V560);
2502          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2503          Leval();          Leval();
2504          vs_top=sup;          vs_top=sup;
2505          V577= vs_base[0];          V563= vs_base[0];
2506          goto T929;          goto T966;
2507  T929:;  T966:;
2508          base[0]= (V575);          base[0]= (V561);
2509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2510          Lconstantp();          Lconstantp();
2511          vs_top=sup;          vs_top=sup;
2512          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2513          goto T935;}          goto T972;}
2514          V578= Cnil;          V564= Cnil;
2515          goto T934;          goto T971;
2516          goto T935;          goto T972;
2517  T935:;  T972:;
2518          base[0]= (V575);          base[0]= (V561);
2519          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2520          Leval();          Leval();
2521          vs_top=sup;          vs_top=sup;
2522          V578= vs_base[0];          V564= vs_base[0];
2523          goto T934;          goto T971;
2524  T934:;  T971:;
2525          if(((VV[22]->s.s_dbind))==(VV[23])){          if(((VV[22]->s.s_dbind))==(VV[23])){
2526          goto T939;}          goto T976;}
2527          {object V579 = Cnil;          {object V565 = Cnil;
2528          VMR40(V579)}          VMR40(V565)}
2529          goto T939;          goto T976;
2530  T939:;  T976:;
2531          base[0]= (V577);          base[0]= (V563);
2532          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2533          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk223)(Lclptr223);
2534          vs_top=sup;          vs_top=sup;
2535          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2536          goto T941;}          goto T978;}
2537          {object V580 = Cnil;          {object V566 = Cnil;
2538          VMR40(V580)}          VMR40(V566)}
2539          goto T941;          goto T978;
2540  T941:;  T978:;
2541          if(((((V577))==((VV[52]->s.s_dbind))?Ct:Cnil))==Cnil){          if(((((V563))==((VV[60]->s.s_dbind))?Ct:Cnil))==Cnil){
2542          goto T944;}          goto T981;}
2543          {object V581 = Cnil;          {object V567 = Cnil;
2544          VMR40(V581)}          VMR40(V567)}
2545          goto T944;          goto T981;
2546  T944:;  T981:;
2547          {object V582;          {object V568;
2548          V582= (*(LnkLI158))((V577),(V578));          V568= (*(LnkLI173))((V563),(V564));
2549          if((V582)==Cnil){          if((V568)==Cnil){
2550          {object V583 = Cnil;          {object V569 = Cnil;
2551          VMR40(V583)}}          VMR40(V569)}}
2552          {object V584 = (*(LnkLI209))((V577),(V578),(V576));          {object V570 = (*(LnkLI225))((V563),(V564),(V562));
2553          VMR40(V584)}}}          VMR40(V570)}}}
2554          base[0]=base[0];          base[0]=base[0];
2555          return Cnil;          return Cnil;
2556  }  }
2557  /*      local entry for function SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P    */  /*      local entry for function SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P    */
2558    
2559  static object LI43(V588,V589,V590)  static object LI43(V574,V575,V576)
2560    
2561  object V588;object V589;object V590;  object V574;object V575;object V576;
2562  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2563          goto TTL;          goto TTL;
2564  TTL:;  TTL:;
2565          {object V591;          {object V577;
2566          V591= (*(LnkLI158))((V588),(V589));          V577= (*(LnkLI173))((V574),(V575));
2567          if((V591)==Cnil){          if((V577)==Cnil){
2568          {object V592 = Cnil;          {object V578 = Cnil;
2569          VMR41(V592)}}          VMR41(V578)}}
2570          if(((VV[22]->s.s_dbind))==(VV[23])){          if(((VV[22]->s.s_dbind))==(VV[23])){
2571          goto T948;}          goto T985;}
2572          {object V593 = Cnil;          {object V579 = Cnil;
2573          VMR41(V593)}          VMR41(V579)}
2574          goto T948;          goto T985;
2575  T948:;  T985:;
2576          base[0]= (V591);          base[0]= (V577);
2577          base[1]= (V590);          base[1]= (V576);
2578          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2579          (void) (*Lnk159)(Lclptr159);          (void) (*Lnk174)(Lclptr174);
2580          vs_top=sup;          vs_top=sup;
2581          V594= vs_base[0];          V580= vs_base[0];
2582          {object V595 = ((V594)==Cnil?Ct:Cnil);          {object V581 = ((V580)==Cnil?Ct:Cnil);
2583          VMR41(V595)}}          VMR41(V581)}}
2584          base[0]=base[0];          base[0]=base[0];
2585          return Cnil;          return Cnil;
2586  }  }
# Line 2565  static void L44() Line 2592  static void L44()
2592          vs_check;          vs_check;
2593          check_arg(2);          check_arg(2);
2594          vs_top=sup;          vs_top=sup;
2595          {object V596=base[0]->c.c_cdr;          {object V582=base[0]->c.c_cdr;
2596          if(endp(V596))invalid_macro_call();          if(endp(V582))invalid_macro_call();
2597          base[2]= (V596->c.c_car);          base[2]= (V582->c.c_car);
2598          V596=V596->c.c_cdr;          V582=V582->c.c_cdr;
2599          if(endp(V596))invalid_macro_call();          if(endp(V582))invalid_macro_call();
2600          base[3]= (V596->c.c_car);          base[3]= (V582->c.c_car);
2601          V596=V596->c.c_cdr;          V582=V582->c.c_cdr;
2602          if(endp(V596))invalid_macro_call();          if(endp(V582))invalid_macro_call();
2603          base[4]= (V596->c.c_car);          base[4]= (V582->c.c_car);
2604          V596=V596->c.c_cdr;          V582=V582->c.c_cdr;
2605          if(endp(V596))invalid_macro_call();          if(endp(V582))invalid_macro_call();
2606          base[5]= (V596->c.c_car);          base[5]= (V582->c.c_car);
2607          V596=V596->c.c_cdr;          V582=V582->c.c_cdr;
2608          if(endp(V596)){          if(endp(V582)){
2609          base[6]= Cnil;          base[6]= Cnil;
2610          } else {          } else {
2611          base[6]= (V596->c.c_car);          base[6]= (V582->c.c_car);
2612          V596=V596->c.c_cdr;}          V582=V582->c.c_cdr;}
2613          if(!endp(V596))invalid_macro_call();}          if(!endp(V582))invalid_macro_call();}
2614          {register object x= base[6],V597= VV[73];          {register object x= base[6],V583= VV[87];
2615          while(V597!=Cnil)          while(V583!=Cnil)
2616          if(eql(x,V597->c.c_car)){          if(eql(x,V583->c.c_car)){
2617          goto T954;          goto T991;
2618          }else V597=V597->c.c_cdr;}          }else V583=V583->c.c_cdr;}
2619          base[7]= VV[74];          base[7]= VV[88];
2620          base[8]= VV[75];          base[8]= VV[89];
2621          base[9]= base[6];          base[9]= base[6];
2622          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
2623          Lerror();          Lerror();
2624          vs_top=sup;          vs_top=sup;
2625          goto T954;          goto T991;
2626  T954:;  T991:;
2627          if(!((base[6])==(VV[76]))){          if(!((base[6])==(VV[90]))){
2628          goto T961;}          goto T998;}
2629          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2630          return;          return;
2631          goto T961;          goto T998;
2632  T961:;  T998:;
2633          {register object V598;          {register object V584;
2634          vs_base=vs_top;          vs_base=vs_top;
2635          Lgensym();          Lgensym();
2636          vs_top=sup;          vs_top=sup;
2637          V598= vs_base[0];          V584= vs_base[0];
2638          V600= list(2,(V598),list(3,VV[79],base[2],base[4]));          V586= list(2,(V584),list(3,VV[93],base[2],base[4]));
2639          V601= make_cons(/* INLINE-ARGS */V600,Cnil);          V587= make_cons(/* INLINE-ARGS */V586,Cnil);
         V602 = (V598);  
2640          if((base[6])==Cnil){          if((base[6])==Cnil){
2641          goto T966;}          goto T1003;}
2642          if(!((base[6])==(VV[82]))){          if(!((base[6])==(VV[96]))){
2643          goto T967;}          goto T1004;}
2644          goto T966;          goto T1003;
2645  T966:;  T1003:;
2646          V604= list(2,VV[83],list(3,VV[84],base[3],(V598)));          V589= list(2,VV[97],list(3,VV[98],base[3],(V584)));
2647          base[8]= make_cons(/* INLINE-ARGS */V604,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V589,Cnil);
2648          goto T965;          goto T1002;
2649          goto T967;          goto T1004;
2650  T967:;  T1004:;
2651          base[8]= Cnil;          base[8]= Cnil;
2652          goto T965;          goto T1002;
2653  T965:;  T1002:;
2654          if((base[6])==Cnil){          if((base[6])==Cnil){
2655          goto T972;}          goto T1009;}
2656          if(!((base[6])==(VV[85]))){          if(!((base[6])==(VV[99]))){
2657          goto T973;}          goto T1010;}
2658          goto T972;          goto T1009;
2659  T972:;  T1009:;
2660          V605= list(2,VV[86],list(2,VV[87],(V598)));          V590= list(2,VV[100],list(2,VV[101],(V584)));
2661          base[9]= make_cons(/* INLINE-ARGS */V605,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V590,Cnil);
2662          goto T971;          goto T1008;
2663          goto T973;          goto T1010;
2664  T973:;  T1010:;
2665          base[9]= Cnil;          base[9]= Cnil;
2666          goto T971;          goto T1008;
2667  T971:;  T1008:;
2668          V606= list(2,Ct,list(2,VV[57],(VV[88]->s.s_dbind)));          V591= list(2,Ct,list(2,VV[67],(VV[102]->s.s_dbind)));
2669          base[10]= make_cons(/* INLINE-ARGS */V606,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V591,Cnil);
2670          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2671          Lappend();          Lappend();
2672          vs_top=sup;          vs_top=sup;
2673          V603= vs_base[0];          V588= vs_base[0];
2674          V607= list(3,VV[80],V598,listA(3,VV[81],V602,V603));          V592= list(3,VV[94],V584,listA(3,VV[95],(V584),V588));
2675          base[8]= list(3,VV[77],VV[78],list(4,VV[0],/* INLINE-ARGS */V601,/* INLINE-ARGS */V607,list(4,VV[89],list(3,VV[9],V598,list(2,VV[57],(VV[88]->s.s_dbind))),base[5],V598)));          base[8]= list(3,VV[91],VV[92],list(4,VV[0],/* INLINE-ARGS */V587,/* INLINE-ARGS */V592,list(4,VV[103],list(3,VV[9],V584,list(2,VV[67],(VV[102]->s.s_dbind))),base[5],V584)));
2676          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2677          return;}          return;}
2678  }  }
# Line 2658  static void L45() Line 2684  static void L45()
2684          vs_check;          vs_check;
2685          check_arg(2);          check_arg(2);
2686          vs_top=sup;          vs_top=sup;
2687          {object V608=base[0]->c.c_cdr;          {object V593=base[0]->c.c_cdr;
2688          if(endp(V608))invalid_macro_call();          if(endp(V593))invalid_macro_call();
2689          base[2]= (V608->c.c_car);          base[2]= (V593->c.c_car);
2690          V608=V608->c.c_cdr;          V593=V593->c.c_cdr;
2691          if(endp(V608))invalid_macro_call();          if(endp(V593))invalid_macro_call();
2692          base[3]= (V608->c.c_car);          base[3]= (V593->c.c_car);
2693          V608=V608->c.c_cdr;          V593=V593->c.c_cdr;
2694          if(endp(V608))invalid_macro_call();          if(endp(V593))invalid_macro_call();
2695          base[4]= (V608->c.c_car);          base[4]= (V593->c.c_car);
2696          V608=V608->c.c_cdr;          V593=V593->c.c_cdr;
2697          if(endp(V608))invalid_macro_call();          if(endp(V593))invalid_macro_call();
2698          base[5]= (V608->c.c_car);          base[5]= (V593->c.c_car);
2699          V608=V608->c.c_cdr;          V593=V593->c.c_cdr;
2700          if(endp(V608))invalid_macro_call();          if(endp(V593))invalid_macro_call();
2701          base[6]= (V608->c.c_car);          base[6]= (V593->c.c_car);
2702          V608=V608->c.c_cdr;          V593=V593->c.c_cdr;
2703          if(!endp(V608))invalid_macro_call();}          if(!endp(V593))invalid_macro_call();}
2704          if(((*(LnkLI210))(base[6],base[5],VV[39]))==Cnil){          if(((*(LnkLI226))(base[6],base[5],VV[39]))==Cnil){
2705          goto T979;}          goto T1016;}
2706          base[7]= list(3,VV[47],base[3],base[5]);          base[7]= list(3,VV[55],base[3],base[5]);
2707          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2708          return;          return;
2709          goto T979;          goto T1016;
2710  T979:;  T1016:;
2711          V609= (*(LnkLI211))(base[4]);          V594= (*(LnkLI227))(base[4]);
2712          V610 = base[2];          V595= list(3,VV[55],base[3],base[5]);
         V611= list(3,VV[47],base[3],base[5]);  
2713          base[7]= base[6];          base[7]= base[6];
2714          base[8]= base[5];          base[8]= base[5];
2715          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2716          (void) (*Lnk212)();          (void) (*Lnk228)();
2717          vs_top=sup;          vs_top=sup;
2718          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2719          goto T983;}          goto T1020;}
2720          V612= VV[85];          V596= VV[99];
2721          goto T981;          goto T1018;
2722          goto T983;          goto T1020;
2723  T983:;  T1020:;
2724          V612= VV[82];          V596= VV[96];
2725          goto T981;          goto T1018;
2726  T981:;  T1018:;
2727          base[7]= list(6,VV[75],VV[70],/* INLINE-ARGS */V609,V610,/* INLINE-ARGS */V611,V612);          base[7]= list(6,VV[89],VV[84],/* INLINE-ARGS */V594,base[2],/* INLINE-ARGS */V595,V596);
2728          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2729          return;          return;
2730  }  }
# Line 2711  static void L46() Line 2736  static void L46()
2736          vs_check;          vs_check;
2737          check_arg(2);          check_arg(2);
2738          vs_top=sup;          vs_top=sup;
2739          {object V613=base[0]->c.c_cdr;          {object V597=base[0]->c.c_cdr;
2740          if(endp(V613))invalid_macro_call();          if(endp(V597))invalid_macro_call();
2741          base[2]= (V613->c.c_car);          base[2]= (V597->c.c_car);
2742          V613=V613->c.c_cdr;          V597=V597->c.c_cdr;
2743          if(endp(V613))invalid_macro_call();          if(endp(V597))invalid_macro_call();
2744          base[3]= (V613->c.c_car);          base[3]= (V597->c.c_car);
2745          V613=V613->c.c_cdr;          V597=V597->c.c_cdr;
2746          if(endp(V613))invalid_macro_call();          if(endp(V597))invalid_macro_call();
2747          base[4]= (V613->c.c_car);          base[4]= (V597->c.c_car);
2748          V613=V613->c.c_cdr;          V597=V597->c.c_cdr;
2749          if(endp(V613))invalid_macro_call();          if(endp(V597))invalid_macro_call();
2750          base[5]= (V613->c.c_car);          base[5]= (V597->c.c_car);
2751          V613=V613->c.c_cdr;          V597=V597->c.c_cdr;
2752          if(endp(V613))invalid_macro_call();          if(endp(V597))invalid_macro_call();
2753          base[6]= (V613->c.c_car);          base[6]= (V597->c.c_car);
2754          V613=V613->c.c_cdr;          V597=V597->c.c_cdr;
2755          if(!endp(V613))invalid_macro_call();}          if(!endp(V597))invalid_macro_call();}
2756          V614= (*(LnkLI211))(base[4]);          V598= (*(LnkLI227))(base[4]);
2757          V615 = base[2];          base[7]= list(6,VV[89],VV[84],/* INLINE-ARGS */V598,base[2],list(2,base[5],list(2,VV[35],base[3])),VV[96]);
         base[7]= list(6,VV[75],VV[70],/* INLINE-ARGS */V614,V615,list(2,base[5],list(2,VV[35],base[3])),VV[82]);  
2758          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2759          return;          return;
2760  }  }
# Line 2742  static void L47() Line 2766  static void L47()
2766          vs_check;          vs_check;
2767          check_arg(2);          check_arg(2);
2768          vs_top=sup;          vs_top=sup;
2769          {object V616=base[0]->c.c_cdr;          {object V599=base[0]->c.c_cdr;
2770          if(endp(V616))invalid_macro_call();          if(endp(V599))invalid_macro_call();
2771          base[2]= (V616->c.c_car);          base[2]= (V599->c.c_car);
2772          V616=V616->c.c_cdr;          V599=V599->c.c_cdr;
2773          if(endp(V616))invalid_macro_call();          if(endp(V599))invalid_macro_call();
2774          base[3]= (V616->c.c_car);          base[3]= (V599->c.c_car);
2775          V616=V616->c.c_cdr;          V599=V599->c.c_cdr;
2776          if(endp(V616))invalid_macro_call();          if(endp(V599))invalid_macro_call();
2777          base[4]= (V616->c.c_car);          base[4]= (V599->c.c_car);
2778          V616=V616->c.c_cdr;          V599=V599->c.c_cdr;
2779          if(endp(V616))invalid_macro_call();          if(endp(V599))invalid_macro_call();
2780          base[5]= (V616->c.c_car);          base[5]= (V599->c.c_car);
2781          V616=V616->c.c_cdr;          V599=V599->c.c_cdr;
2782          if(endp(V616))invalid_macro_call();          if(endp(V599))invalid_macro_call();
2783          base[6]= (V616->c.c_car);          base[6]= (V599->c.c_car);
2784          V616=V616->c.c_cdr;          V599=V599->c.c_cdr;
2785          if(endp(V616)){          if(endp(V599)){
2786          base[7]= Cnil;          base[7]= Cnil;
2787          } else {          } else {
2788          base[7]= (V616->c.c_car);          base[7]= (V599->c.c_car);
2789          V616=V616->c.c_cdr;}          V599=V599->c.c_cdr;}
2790          if(!endp(V616))invalid_macro_call();}          if(!endp(V599))invalid_macro_call();}
2791          {register object x= base[7],V617= VV[90];          {register object x= base[7],V600= VV[104];
2792          while(V617!=Cnil)          while(V600!=Cnil)
2793          if(eql(x,V617->c.c_car)){          if(eql(x,V600->c.c_car)){
2794          goto T988;          goto T1025;
2795          }else V617=V617->c.c_cdr;}          }else V600=V600->c.c_cdr;}
2796          base[8]= VV[91];          base[8]= VV[105];
2797          base[9]= VV[92];          base[9]= VV[106];
2798          base[10]= base[7];          base[10]= base[7];
2799          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2800          Lerror();          Lerror();
2801          vs_top=sup;          vs_top=sup;
2802          goto T988;          goto T1025;
2803  T988:;  T1025:;
2804          if(!((base[7])==(VV[76]))){          if(!((base[7])==(VV[90]))){
2805          goto T995;}          goto T1032;}
2806          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2807          return;          return;
2808          goto T995;          goto T1032;
2809  T995:;  T1032:;
2810          {register object V618;          {register object V601;
2811          vs_base=vs_top;          vs_base=vs_top;
2812          Lgensym();          Lgensym();
2813          vs_top=sup;          vs_top=sup;
2814          V618= vs_base[0];          V601= vs_base[0];
2815          V619= list(2,(V618),list(3,VV[79],base[2],base[4]));          V602= list(2,(V601),list(3,VV[93],base[2],base[4]));
2816          V620= make_cons(/* INLINE-ARGS */V619,Cnil);          V603= make_cons(/* INLINE-ARGS */V602,Cnil);
         V621 = (V618);  
2817          if((base[7])==Cnil){          if((base[7])==Cnil){
2818          goto T1000;}          goto T1037;}
2819          if(!((base[7])==(VV[82]))){          if(!((base[7])==(VV[96]))){
2820          goto T1001;}          goto T1038;}
2821          goto T1000;          goto T1037;
2822  T1000:;  T1037:;
2823          V623= list(2,VV[83],list(3,VV[37],list(3,VV[84],base[3],(V618)),base[5]));          V605= list(2,VV[97],list(3,VV[37],list(3,VV[98],base[3],(V601)),base[5]));
2824          base[9]= make_cons(/* INLINE-ARGS */V623,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V605,Cnil);
2825          goto T999;          goto T1036;
2826          goto T1001;          goto T1038;
2827  T1001:;  T1038:;
2828          base[9]= Cnil;          base[9]= Cnil;
2829          goto T999;          goto T1036;
2830  T999:;  T1036:;
2831          if((base[7])==Cnil){          if((base[7])==Cnil){
2832          goto T1006;}          goto T1043;}
2833          if(!((base[7])==(VV[85]))){          if(!((base[7])==(VV[99]))){
2834          goto T1007;}          goto T1044;}
2835          goto T1006;          goto T1043;
2836  T1006:;  T1043:;
2837          V624= list(2,VV[86],list(3,VV[37],list(2,VV[87],(V618)),base[5]));          V606= list(2,VV[100],list(3,VV[37],list(2,VV[101],(V601)),base[5]));
2838          base[10]= make_cons(/* INLINE-ARGS */V624,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V606,Cnil);
2839          goto T1005;          goto T1042;
2840          goto T1007;          goto T1044;
2841  T1007:;  T1044:;
2842          base[10]= Cnil;          base[10]= Cnil;
2843          goto T1005;          goto T1042;
2844  T1005:;  T1042:;
2845          V625= list(2,Ct,base[6]);          V607= list(2,Ct,base[6]);
2846          base[11]= make_cons(/* INLINE-ARGS */V625,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V607,Cnil);
2847          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
2848          Lappend();          Lappend();
2849          vs_top=sup;          vs_top=sup;
2850          V622= vs_base[0];          V604= vs_base[0];
2851          base[9]= list(3,VV[77],VV[93],list(3,VV[0],/* INLINE-ARGS */V620,listA(3,VV[81],V621,V622)));          base[9]= list(3,VV[91],VV[107],list(3,VV[0],/* INLINE-ARGS */V603,listA(3,VV[95],(V601),V604)));
2852          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2853          return;}          return;}
2854  }  }
# Line 2837  static void L48() Line 2860  static void L48()
2860          vs_check;          vs_check;
2861          check_arg(2);          check_arg(2);
2862          vs_top=sup;          vs_top=sup;
2863          {object V626=base[0]->c.c_cdr;          {object V608=base[0]->c.c_cdr;
2864          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2865          base[2]= (V626->c.c_car);          base[2]= (V608->c.c_car);
2866          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2867          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2868          base[3]= (V626->c.c_car);          base[3]= (V608->c.c_car);
2869          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2870          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2871          base[4]= (V626->c.c_car);          base[4]= (V608->c.c_car);
2872          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2873          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2874          base[5]= (V626->c.c_car);          base[5]= (V608->c.c_car);
2875          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2876          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2877          base[6]= (V626->c.c_car);          base[6]= (V608->c.c_car);
2878          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2879          if(endp(V626))invalid_macro_call();          if(endp(V608))invalid_macro_call();
2880          base[7]= (V626->c.c_car);          base[7]= (V608->c.c_car);
2881          V626=V626->c.c_cdr;          V608=V608->c.c_cdr;
2882          if(!endp(V626))invalid_macro_call();}          if(!endp(V608))invalid_macro_call();}
2883          if(((*(LnkLI210))(base[6],base[5],VV[40]))==Cnil){          if(((*(LnkLI226))(base[6],base[5],VV[40]))==Cnil){
2884          goto T1013;}          goto T1050;}
2885          base[8]= list(4,VV[49],base[3],base[5],base[7]);          base[8]= list(4,VV[57],base[3],base[5],base[7]);
2886          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2887          return;          return;
2888          goto T1013;          goto T1050;
2889  T1013:;  T1050:;
2890          V627= (*(LnkLI211))(base[4]);          V609= (*(LnkLI227))(base[4]);
2891          V628 = base[2];          V610= list(4,VV[57],base[3],base[5],base[7]);
         V629 = base[7];  
         V630= list(4,VV[49],base[3],base[5],base[7]);  
2892          base[8]= base[6];          base[8]= base[6];
2893          base[9]= base[5];          base[9]= base[5];
2894          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2895          (void) (*Lnk212)();          (void) (*Lnk228)();
2896          vs_top=sup;          vs_top=sup;
2897          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2898          goto T1017;}          goto T1054;}
2899          V631= VV[85];          V611= VV[99];
2900          goto T1015;          goto T1052;
2901          goto T1017;          goto T1054;
2902  T1017:;  T1054:;
2903          V631= VV[82];          V611= VV[96];
2904          goto T1015;          goto T1052;
2905  T1015:;  T1052:;
2906          base[8]= list(7,VV[92],VV[70],/* INLINE-ARGS */V627,V628,V629,/* INLINE-ARGS */V630,V631);          base[8]= list(7,VV[106],VV[84],/* INLINE-ARGS */V609,base[2],base[7],/* INLINE-ARGS */V610,V611);
2907          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2908          return;          return;
2909  }  }
# Line 2894  static void L49() Line 2915  static void L49()
2915          vs_check;          vs_check;
2916          check_arg(2);          check_arg(2);
2917          vs_top=sup;          vs_top=sup;
2918          {object V632=base[0]->c.c_cdr;          {object V612=base[0]->c.c_cdr;
2919          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2920          base[2]= (V632->c.c_car);          base[2]= (V612->c.c_car);
2921          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2922          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2923          base[3]= (V632->c.c_car);          base[3]= (V612->c.c_car);
2924          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2925          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2926          base[4]= (V632->c.c_car);          base[4]= (V612->c.c_car);
2927          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2928          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2929          base[5]= (V632->c.c_car);          base[5]= (V612->c.c_car);
2930          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2931          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2932          base[6]= (V632->c.c_car);          base[6]= (V612->c.c_car);
2933          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2934          if(endp(V632))invalid_macro_call();          if(endp(V612))invalid_macro_call();
2935          base[7]= (V632->c.c_car);          base[7]= (V612->c.c_car);
2936          V632=V632->c.c_cdr;          V612=V612->c.c_cdr;
2937          if(!endp(V632))invalid_macro_call();}          if(!endp(V612))invalid_macro_call();}
2938          V633= (*(LnkLI211))(base[4]);          V613= (*(LnkLI227))(base[4]);
         V634 = base[2];  
         V635 = base[7];  
2939          if(!(type_of(base[5])==t_cons)){          if(!(type_of(base[5])==t_cons)){
2940          goto T1023;}          goto T1060;}
2941          V636= (*(LnkLI213))(base[5]);          V614= (*(LnkLI229))(base[5]);
2942          goto T1021;          goto T1058;
2943          goto T1023;          goto T1060;
2944  T1023:;  T1060:;
2945          V636= base[5];          V614= base[5];
2946          goto T1021;          goto T1058;
2947  T1021:;  T1058:;
2948          V637 = base[7];          base[8]= list(7,VV[106],VV[84],/* INLINE-ARGS */V613,base[2],base[7],list(3,V614,list(2,VV[35],base[3]),base[7]),VV[96]);
         base[8]= list(7,VV[92],VV[70],/* INLINE-ARGS */V633,V634,V635,list(3,V636,list(2,VV[35],base[3]),V637),VV[82]);  
2949          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2950          return;          return;
2951  }  }
# Line 2939  static void L50() Line 2957  static void L50()
2957          vs_check;          vs_check;
2958          check_arg(2);          check_arg(2);
2959          vs_top=sup;          vs_top=sup;
2960          {object V638=base[0]->c.c_cdr;          {object V615=base[0]->c.c_cdr;
2961          if(endp(V638))invalid_macro_call();          if(endp(V615))invalid_macro_call();
2962          base[2]= (V638->c.c_car);          base[2]= (V615->c.c_car);
2963          V638=V638->c.c_cdr;          V615=V615->c.c_cdr;
2964          if(endp(V638))invalid_macro_call();          if(endp(V615))invalid_macro_call();
2965          base[3]= (V638->c.c_car);          base[3]= (V615->c.c_car);
2966          V638=V638->c.c_cdr;          V615=V615->c.c_cdr;
2967          if(endp(V638))invalid_macro_call();          if(endp(V615))invalid_macro_call();
2968          base[4]= (V638->c.c_car);          base[4]= (V615->c.c_car);
2969          V638=V638->c.c_cdr;          V615=V615->c.c_cdr;
2970          if(endp(V638))invalid_macro_call();          if(endp(V615))invalid_macro_call();
2971          base[5]= (V638->c.c_car);          base[5]= (V615->c.c_car);
2972          V638=V638->c.c_cdr;          V615=V615->c.c_cdr;
2973          if(endp(V638)){          if(endp(V615)){
2974          base[6]= Cnil;          base[6]= Cnil;
2975          } else {          } else {
2976          base[6]= (V638->c.c_car);          base[6]= (V615->c.c_car);
2977          V638=V638->c.c_cdr;}          V615=V615->c.c_cdr;}
2978          if(!endp(V638))invalid_macro_call();}          if(!endp(V615))invalid_macro_call();}
2979          {register object x= base[6],V639= VV[94];          {register object x= base[6],V616= VV[108];
2980          while(V639!=Cnil)          while(V616!=Cnil)
2981          if(eql(x,V639->c.c_car)){          if(eql(x,V616->c.c_car)){
2982          goto T1026;          goto T1063;
2983          }else V639=V639->c.c_cdr;}          }else V616=V616->c.c_cdr;}
2984          base[7]= VV[95];          base[7]= VV[109];
2985          base[8]= VV[96];          base[8]= VV[110];
2986          base[9]= base[6];          base[9]= base[6];
2987          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
2988          Lerror();          Lerror();
2989          vs_top=sup;          vs_top=sup;
2990          goto T1026;          goto T1063;
2991  T1026:;  T1063:;
2992          if(!((base[6])==(VV[76]))){          if(!((base[6])==(VV[90]))){
2993          goto T1033;}          goto T1070;}
2994          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2995          return;          return;
2996          goto T1033;          goto T1070;
2997  T1033:;  T1070:;
2998          {register object V640;          {register object V617;
2999          vs_base=vs_top;          vs_base=vs_top;
3000          Lgensym();          Lgensym();
3001          vs_top=sup;          vs_top=sup;
3002          V640= vs_base[0];          V617= vs_base[0];
3003          V641= list(2,(V640),list(3,VV[79],base[2],base[4]));          V618= list(2,(V617),list(3,VV[93],base[2],base[4]));
3004          V642= make_cons(/* INLINE-ARGS */V641,Cnil);          V619= make_cons(/* INLINE-ARGS */V618,Cnil);
         V643 = (V640);  
3005          if((base[6])==Cnil){          if((base[6])==Cnil){
3006          goto T1038;}          goto T1075;}
3007          if(!((base[6])==(VV[82]))){          if(!((base[6])==(VV[96]))){
3008          goto T1039;}          goto T1076;}
3009          goto T1038;          goto T1075;
3010  T1038:;  T1075:;
3011          V645= list(3,VV[84],base[3],(V640));          V621= list(3,VV[98],base[3],(V617));
3012          V646= list(2,VV[83],list(2,VV[98],list(3,VV[9],/* INLINE-ARGS */V645,list(2,VV[57],(VV[88]->s.s_dbind)))));          V622= list(2,VV[97],list(2,VV[112],list(3,VV[9],/* INLINE-ARGS */V621,list(2,VV[67],(VV[102]->s.s_dbind)))));
3013          base[8]= make_cons(/* INLINE-ARGS */V646,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V622,Cnil);
3014          goto T1037;          goto T1074;
3015          goto T1039;          goto T1076;
3016  T1039:;  T1076:;
3017          base[8]= Cnil;          base[8]= Cnil;
3018          goto T1037;          goto T1074;
3019  T1037:;  T1074:;
3020          if((base[6])==Cnil){          if((base[6])==Cnil){
3021          goto T1044;}          goto T1081;}
3022          if(!((base[6])==(VV[85]))){          if(!((base[6])==(VV[99]))){
3023          goto T1045;}          goto T1082;}
3024          goto T1044;          goto T1081;
3025  T1044:;  T1081:;
3026          V647= list(2,VV[87],(V640));          V623= list(2,VV[101],(V617));
3027          V648= list(2,VV[86],list(2,VV[98],list(3,VV[9],/* INLINE-ARGS */V647,list(2,VV[57],(VV[88]->s.s_dbind)))));          V624= list(2,VV[100],list(2,VV[112],list(3,VV[9],/* INLINE-ARGS */V623,list(2,VV[67],(VV[102]->s.s_dbind)))));
3028          base[9]= make_cons(/* INLINE-ARGS */V648,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V624,Cnil);
3029          goto T1043;          goto T1080;
3030          goto T1045;          goto T1082;
3031  T1045:;  T1082:;
3032          base[9]= Cnil;          base[9]= Cnil;
3033          goto T1043;          goto T1080;
3034  T1043:;  T1080:;
3035          V649= list(2,Ct,base[5]);          V625= list(2,Ct,base[5]);
3036          base[10]= make_cons(/* INLINE-ARGS */V649,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V625,Cnil);
3037          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
3038          Lappend();          Lappend();
3039          vs_top=sup;          vs_top=sup;
3040          V644= vs_base[0];          V620= vs_base[0];
3041          base[8]= list(3,VV[77],VV[97],list(3,VV[0],/* INLINE-ARGS */V642,listA(3,VV[81],V643,V644)));          base[8]= list(3,VV[91],VV[111],list(3,VV[0],/* INLINE-ARGS */V619,listA(3,VV[95],(V617),V620)));
3042          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3043          return;}          return;}
3044  }  }
# Line 3033  static void L51() Line 3050  static void L51()
3050          vs_check;          vs_check;
3051          check_arg(2);          check_arg(2);
3052          vs_top=sup;          vs_top=sup;
3053          {object V650=base[0]->c.c_cdr;          {object V626=base[0]->c.c_cdr;
3054          if(endp(V650))invalid_macro_call();          if(endp(V626))invalid_macro_call();
3055          base[2]= (V650->c.c_car);          base[2]= (V626->c.c_car);
3056          V650=V650->c.c_cdr;          V626=V626->c.c_cdr;
3057          if(endp(V650))invalid_macro_call();          if(endp(V626))invalid_macro_call();
3058          base[3]= (V650->c.c_car);          base[3]= (V626->c.c_car);
3059          V650=V650->c.c_cdr;          V626=V626->c.c_cdr;
3060          if(endp(V650))invalid_macro_call();          if(endp(V626))invalid_macro_call();
3061          base[4]= (V650->c.c_car);          base[4]= (V626->c.c_car);
3062          V650=V650->c.c_cdr;          V626=V626->c.c_cdr;
3063          if(endp(V650))invalid_macro_call();          if(endp(V626))invalid_macro_call();
3064          base[5]= (V650->c.c_car);          base[5]= (V626->c.c_car);
3065          V650=V650->c.c_cdr;          V626=V626->c.c_cdr;
3066          if(endp(V650))invalid_macro_call();          if(endp(V626))invalid_macro_call();
3067          base[6]= (V650->c.c_car);          base[6]= (V626->c.c_car);
3068          V650=V650->c.c_cdr;          V626=V626->c.c_cdr;
3069          if(!endp(V650))invalid_macro_call();}          if(!endp(V626))invalid_macro_call();}
3070          if(((*(LnkLI210))(base[6],base[5],VV[41]))==Cnil){          if(((*(LnkLI226))(base[6],base[5],VV[41]))==Cnil){
3071          goto T1051;}          goto T1088;}
3072          base[7]= list(3,VV[51],base[3],base[5]);          base[7]= list(3,VV[59],base[3],base[5]);
3073          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3074          return;          return;
3075          goto T1051;          goto T1088;
3076  T1051:;  T1088:;
3077          V651= (*(LnkLI211))(base[4]);          V627= (*(LnkLI227))(base[4]);
3078          V652 = base[2];          V628= list(3,VV[59],base[3],base[5]);
         V653= list(3,VV[51],base[3],base[5]);  
3079          base[7]= base[6];          base[7]= base[6];
3080          base[8]= base[5];          base[8]= base[5];
3081          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3082          (void) (*Lnk212)();          (void) (*Lnk228)();
3083          vs_top=sup;          vs_top=sup;
3084          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3085          goto T1055;}          goto T1092;}
3086          V654= VV[85];          V629= VV[99];
3087          goto T1053;          goto T1090;
3088          goto T1055;          goto T1092;
3089  T1055:;  T1092:;
3090          V654= VV[82];          V629= VV[96];
3091          goto T1053;          goto T1090;
3092  T1053:;  T1090:;
3093          base[7]= list(6,VV[96],VV[70],/* INLINE-ARGS */V651,V652,/* INLINE-ARGS */V653,V654);          base[7]= list(6,VV[110],VV[84],/* INLINE-ARGS */V627,base[2],/* INLINE-ARGS */V628,V629);
3094          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3095          return;          return;
3096  }  }
# Line 3084  static void L52() Line 3100  static void L52()
3100  {register object *base=vs_base;  {register object *base=vs_base;
3101          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
3102          vs_check;          vs_check;
3103          {object V655;          {object V630;
3104          object V656;          object V631;
3105          check_arg(2);          check_arg(2);
3106          V655=(base[0]);          V630=(base[0]);
3107          V656=(base[1]);          V631=(base[1]);
3108          vs_top=sup;          vs_top=sup;
3109          goto TTL;          goto TTL;
3110  TTL:;  TTL:;
3111          {object V657;          {object V632;
3112          object V658;          object V633;
3113          base[2]= (V655);          base[2]= (V630);
3114          base[3]= (V656);          base[3]= (V631);
3115          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3116          (void) (*Lnk214)();          (void) (*Lnk230)();
3117          if(vs_base>=vs_top){vs_top=sup;goto T1062;}          if(vs_base>=vs_top){vs_top=sup;goto T1099;}
3118          V657= vs_base[0];          V632= vs_base[0];
3119          vs_base++;          vs_base++;
3120          if(vs_base>=vs_top){vs_top=sup;goto T1063;}          if(vs_base>=vs_top){vs_top=sup;goto T1100;}
3121          V658= vs_base[0];          V633= vs_base[0];
3122          vs_top=sup;          vs_top=sup;
3123          goto T1064;          goto T1101;
3124          goto T1062;          goto T1099;
3125  T1062:;  T1099:;
3126          V657= Cnil;          V632= Cnil;
3127          goto T1063;          goto T1100;
3128  T1063:;  T1100:;
3129          V658= Cnil;          V633= Cnil;
3130          goto T1064;          goto T1101;
3131  T1064:;  T1101:;
3132          {register object V659;          {register object V634;
3133          object V660;          object V635;
3134          {object V661;          {object V636;
3135          object V662= (V657);          object V637= (V632);
3136          if(V662==Cnil){          if(V637==Cnil){
3137          V659= Cnil;          V634= Cnil;
3138          goto T1065;}          goto T1102;}
3139          base[4]=V661=MMcons(Cnil,Cnil);          base[4]=V636=MMcons(Cnil,Cnil);
3140          goto T1066;          goto T1103;
3141  T1066:;  T1103:;
3142          {object V665;          {object V640;
3143          object V666= CMPcdr((V662->c.c_car));          object V641= CMPcdr((V637->c.c_car));
3144          if(V666==Cnil){          if(V641==Cnil){
3145          V664= Cnil;          V639= Cnil;
3146          goto T1068;}          goto T1105;}
3147          base[5]=V665=MMcons(Cnil,Cnil);          base[5]=V640=MMcons(Cnil,Cnil);
3148          goto T1069;          goto T1106;
3149  T1069:;  T1106:;
3150          (V665->c.c_car)= CMPcar((V666->c.c_car));          (V640->c.c_car)= CMPcar((V641->c.c_car));
3151          if((V666=MMcdr(V666))==Cnil){          if((V641=MMcdr(V641))==Cnil){
3152          V664= base[5];          V639= base[5];
3153          goto T1068;}          goto T1105;}
3154          V665=MMcdr(V665)=MMcons(Cnil,Cnil);          V640=MMcdr(V640)=MMcons(Cnil,Cnil);
3155          goto T1069;}          goto T1106;}
3156          goto T1068;          goto T1105;
3157  T1068:;  T1105:;
3158          (V661->c.c_car)= make_cons(Cnil,V664);          (V636->c.c_car)= make_cons(Cnil,V639);
3159          if((V662=MMcdr(V662))==Cnil){          if((V637=MMcdr(V637))==Cnil){
3160          V659= base[4];          V634= base[4];
3161          goto T1065;}          goto T1102;}
3162          V661=MMcdr(V661)=MMcons(Cnil,Cnil);          V636=MMcdr(V636)=MMcons(Cnil,Cnil);
3163          goto T1066;}          goto T1103;}
3164          goto T1065;          goto T1102;
3165  T1065:;  T1102:;
3166          {object V667;          {object V642;
3167          object V668= (V658);          object V643= (V633);
3168          if(V668==Cnil){          if(V643==Cnil){
3169          V660= Cnil;          V635= Cnil;
3170          goto T1071;}          goto T1108;}
3171          base[4]=V667=MMcons(Cnil,Cnil);          base[4]=V642=MMcons(Cnil,Cnil);
         goto T1072;  
 T1072:;  
         (V667->c.c_car)= CMPcar((V668->c.c_car));  
         if((V668=MMcdr(V668))==Cnil){  
         V660= base[4];  
         goto T1071;}  
         V667=MMcdr(V667)=MMcons(Cnil,Cnil);  
         goto T1072;}  
         goto T1071;  
 T1071:;  
         {register object V669;  
         object V670;  
         V669= (V660);  
         V670= CMPcar((V669));  
         goto T1078;  
 T1078:;  
         if(!(((V669))==Cnil)){  
         goto T1079;}  
         goto T1074;  
         goto T1079;  
 T1079:;  
         {register object V671;  
         register object V672;  
         V671= CMPcdr((V670));  
         V672= CMPcar((V671));  
         goto T1087;  
 T1087:;  
         if(!(((V671))==Cnil)){  
         goto T1088;}  
         goto T1083;  
         goto T1088;  
 T1088:;  
         if(!(type_of((V672))==t_fixnum||type_of((V672))==t_bignum)){  
         goto T1092;}  
         {register object V673;  
         register object V674;  
         V673= nth(fix((V672)),(V659));  
         V674= Ct;  
         ((V673))->c.c_car = (V674);}  
         goto T1092;  
 T1092:;  
         V671= CMPcdr((V671));  
         V672= CMPcar((V671));  
         goto T1087;}  
         goto T1083;  
 T1083:;  
         V669= CMPcdr((V669));  
         V670= CMPcar((V669));  
         goto T1078;}  
         goto T1074;  
 T1074:;  
         {object V675;  
         object V676= (V659);  
         if(V676==Cnil){  
         V659= Cnil;  
         goto T1109;}  
         base[4]=V675=MMcons(Cnil,Cnil);  
         goto T1110;  
 T1110:;  
         if((CMPcar((V676->c.c_car)))!=Cnil){  
         goto T1112;}  
         if((CMPcdr((V676->c.c_car)))==Cnil){  
         goto T1113;}  
         goto T1112;  
 T1112:;  
         (V675->c.c_car)= (V676->c.c_car);  
         goto T1111;  
         goto T1113;  
 T1113:;  
         (V675->c.c_car)= Cnil;  
         goto T1111;  
 T1111:;  
         if((V676=MMcdr(V676))==Cnil){  
         V659= base[4];  
         goto T1109;}  
         V675=MMcdr(V675)=MMcons(Cnil,Cnil);  
         goto T1110;}  
3172          goto T1109;          goto T1109;
3173  T1109:;  T1109:;
3174          {object V678;          (V642->c.c_car)= CMPcar((V643->c.c_car));
3175          base[4]=VV[215]->s.s_gfdef;          if((V643=MMcdr(V643))==Cnil){
3176          {object V679;          V635= base[4];
3177          {long V680;          goto T1108;}
3178          V680= -1;          V642=MMcdr(V642)=MMcons(Cnil,Cnil);
3179          {object V681;          goto T1109;}
3180          object V682= (V659);          goto T1108;
3181          if(V682==Cnil){  T1108:;
3182          V679= Cnil;          {register object V644;
3183          goto T1119;}          object V645;
3184          base[5]=V681=MMcons(Cnil,Cnil);          V644= (V635);
3185          goto T1121;          V645= CMPcar((V644));
3186  T1121:;          goto T1115;
3187          if(((V682->c.c_car))==Cnil){  T1115:;
3188          goto T1124;}          if(!(((V644))==Cnil)){
3189          V680= (long)(V680)+(1);          goto T1116;}
3190          (V681->c.c_car)= CMPmake_fixnum(V680);          goto T1111;
3191          goto T1122;          goto T1116;
3192    T1116:;
3193            {register object V646;
3194            register object V647;
3195            V646= CMPcdr((V645));
3196            V647= CMPcar((V646));
3197          goto T1124;          goto T1124;
3198  T1124:;  T1124:;
3199          (V681->c.c_car)= Cnil;          if(!(((V646))==Cnil)){
3200          goto T1122;          goto T1125;}
3201  T1122:;          goto T1120;
3202          if((V682=MMcdr(V682))==Cnil){          goto T1125;
3203          V679= base[5];  T1125:;
3204          goto T1119;}          if(!(type_of((V647))==t_fixnum||type_of((V647))==t_bignum)){
3205          V681=MMcdr(V681)=MMcons(Cnil,Cnil);          goto T1129;}
3206          goto T1121;}}          {register object V648;
3207          goto T1119;          register object V649;
3208  T1119:;          V648= nth(fix((V647)),(V634));
3209            V649= Ct;
3210            ((V648))->c.c_car = (V649);}
3211            goto T1129;
3212    T1129:;
3213            V646= CMPcdr((V646));
3214            V647= CMPcar((V646));
3215            goto T1124;}
3216            goto T1120;
3217    T1120:;
3218            V644= CMPcdr((V644));
3219            V645= CMPcar((V644));
3220            goto T1115;}
3221            goto T1111;
3222    T1111:;
3223            {object V650;
3224            object V651= (V634);
3225            if(V651==Cnil){
3226            V634= Cnil;
3227            goto T1146;}
3228            base[4]=V650=MMcons(Cnil,Cnil);
3229            goto T1147;
3230    T1147:;
3231            if((CMPcar((V651->c.c_car)))!=Cnil){
3232            goto T1149;}
3233            if((CMPcdr((V651->c.c_car)))==Cnil){
3234            goto T1150;}
3235            goto T1149;
3236    T1149:;
3237            (V650->c.c_car)= (V651->c.c_car);
3238            goto T1148;
3239            goto T1150;
3240    T1150:;
3241            (V650->c.c_car)= Cnil;
3242            goto T1148;
3243    T1148:;
3244            if((V651=MMcdr(V651))==Cnil){
3245            V634= base[4];
3246            goto T1146;}
3247            V650=MMcdr(V650)=MMcons(Cnil,Cnil);
3248            goto T1147;}
3249            goto T1146;
3250    T1146:;
3251            {object V653;
3252            base[4]=VV[231]->s.s_gfdef;
3253            {object V654;
3254            {long V655;
3255            V655= -1;
3256            {object V656;
3257            object V657= (V634);
3258            if(V657==Cnil){
3259            V654= Cnil;
3260            goto T1156;}
3261            base[5]=V656=MMcons(Cnil,Cnil);
3262            goto T1158;
3263    T1158:;
3264            if(((V657->c.c_car))==Cnil){
3265            goto T1161;}
3266            V655= (long)(V655)+(1);
3267            (V656->c.c_car)= CMPmake_fixnum(V655);
3268            goto T1159;
3269            goto T1161;
3270    T1161:;
3271            (V656->c.c_car)= Cnil;
3272            goto T1159;
3273    T1159:;
3274            if((V657=MMcdr(V657))==Cnil){
3275            V654= base[5];
3276            goto T1156;}
3277            V656=MMcdr(V656)=MMcons(Cnil,Cnil);
3278            goto T1158;}}
3279            goto T1156;
3280    T1156:;
3281           vs_top=base+5;           vs_top=base+5;
3282           while(V679!=Cnil)           while(V654!=Cnil)
3283           {vs_push((V679)->c.c_car);V679=(V679)->c.c_cdr;}           {vs_push((V654)->c.c_car);V654=(V654)->c.c_cdr;}
3284          vs_base=base+5;}          vs_base=base+5;}
3285          (void) (*Lnk215)();          (void) (*Lnk231)();
3286          vs_top=sup;          vs_top=sup;
3287          V678= vs_base[0];          V653= vs_base[0];
3288          {object V684;          {object V659;
3289          object V685= (V660);          object V660= (V635);
3290          if(V685==Cnil){          if(V660==Cnil){
3291          V660= Cnil;          V635= Cnil;
3292          goto T1127;}          goto T1164;}
3293          base[4]=V684=MMcons(Cnil,Cnil);          base[4]=V659=MMcons(Cnil,Cnil);
3294          goto T1128;          goto T1165;
3295  T1128:;  T1165:;
3296          V687= CMPcar((V685->c.c_car));          V662= CMPcar((V660->c.c_car));
3297          {object V689;          {object V664;
3298          object V690= CMPcdr((V685->c.c_car));          object V665= CMPcdr((V660->c.c_car));
3299          if(V690==Cnil){          if(V665==Cnil){
3300          V688= Cnil;          V663= Cnil;
3301          goto T1130;}          goto T1167;}
3302          base[5]=V689=MMcons(Cnil,Cnil);          base[5]=V664=MMcons(Cnil,Cnil);
3303          goto T1131;          goto T1168;
3304  T1131:;  T1168:;
3305          if(!(type_of((V690->c.c_car))==t_fixnum||type_of((V690->c.c_car))==t_bignum)){          if(!(type_of((V665->c.c_car))==t_fixnum||type_of((V665->c.c_car))==t_bignum)){
3306          goto T1134;}          goto T1171;}
3307          (V689->c.c_car)= ((V678))->v.v_self[fix((V690->c.c_car))];          (V664->c.c_car)= ((V653))->v.v_self[fix((V665->c.c_car))];
3308          goto T1132;          goto T1169;
3309          goto T1134;          goto T1171;
3310  T1134:;  T1171:;
3311          (V689->c.c_car)= (V690->c.c_car);          (V664->c.c_car)= (V665->c.c_car);
3312          goto T1132;          goto T1169;
3313  T1132:;  T1169:;
3314          if((V690=MMcdr(V690))==Cnil){          if((V665=MMcdr(V665))==Cnil){
3315          V688= base[5];          V663= base[5];
3316          goto T1130;}          goto T1167;}
3317          V689=MMcdr(V689)=MMcons(Cnil,Cnil);          V664=MMcdr(V664)=MMcons(Cnil,Cnil);
3318          goto T1131;}          goto T1168;}
3319          goto T1130;          goto T1167;
3320  T1130:;  T1167:;
3321          (V684->c.c_car)= make_cons(/* INLINE-ARGS */V687,V688);          (V659->c.c_car)= make_cons(/* INLINE-ARGS */V662,V663);
3322          if((V685=MMcdr(V685))==Cnil){          if((V660=MMcdr(V660))==Cnil){
3323          V660= base[4];          V635= base[4];
3324          goto T1127;}          goto T1164;}
3325          V684=MMcdr(V684)=MMcons(Cnil,Cnil);          V659=MMcdr(V659)=MMcons(Cnil,Cnil);
3326          goto T1128;}          goto T1165;}
3327          goto T1127;          goto T1164;
3328  T1127:;}  T1164:;}
3329          base[4]= (V659);          base[4]= (V634);
3330          base[5]= (V660);          base[5]= (V635);
3331          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3332          return;}}          return;}}
3333          }          }
# Line 3322  static void L53() Line 3338  static void L53()
3338  {register object *base=vs_base;  {register object *base=vs_base;
3339          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
3340          vs_check;          vs_check;
3341          {object V692;          {object V667;
3342          object V693;          object V668;
3343          check_arg(2);          check_arg(2);
3344          V692=(base[0]);          V667=(base[0]);
3345          V693=(base[1]);          V668=(base[1]);
3346          vs_top=sup;          vs_top=sup;
3347          goto TTL;          goto TTL;
3348  TTL:;  TTL:;
3349          {object V694;          {object V669;
3350          object V695;          object V670;
3351          register long V696;          register long V671;
3352          V694= (*(LnkLI216))((V692));          V669= (*(LnkLI232))((V667));
3353          V695= (*(LnkLI217))(CMPcdr((V693)));          V670= (*(LnkLI233))(CMPcdr((V668)));
3354          V696= 0;          V671= 0;
3355          {object V697;          {object V672;
3356          object V698;          object V673;
3357          V697= (V694);          V672= (V669);
3358          V698= CMPcar((V697));          V673= CMPcar((V672));
3359          goto T1145;          goto T1182;
3360  T1145:;  T1182:;
3361          if(!(((V697))==Cnil)){          if(!(((V672))==Cnil)){
3362          goto T1146;}          goto T1183;}
3363          goto T1141;          goto T1178;
3364          goto T1146;          goto T1183;
3365  T1146:;  T1183:;
3366          {register object V699;          {register object V674;
3367          object V700;          object V675;
3368          V699= CMPcdr((V698));          V674= CMPcdr((V673));
3369          V700= CMPcar((V699));          V675= CMPcar((V674));
3370          goto T1154;          goto T1191;
3371  T1154:;  T1191:;
3372          if(!(((V699))==Cnil)){          if(!(((V674))==Cnil)){
3373          goto T1155;}          goto T1192;}
3374          goto T1150;          goto T1187;
         goto T1155;  
 T1155:;  
         V696= (long)(V696)+(1);  
         {register object V701;  
         register object V702;  
         V701= CMPcdr((V700));  
         V702= CMPcar((V701));  
         goto T1165;  
 T1165:;  
         if(!(((V701))==Cnil)){  
         goto T1166;}  
         goto T1161;  
         goto T1166;  
 T1166:;  
         {register object V704;  
         V704= CMPmake_fixnum(V696);  
         (CMPcdr(V702))->c.c_car = (V704);  
         (void)(CMPcdr(V702));}  
         V701= CMPcdr((V701));  
         V702= CMPcar((V701));  
         goto T1165;}  
         goto T1161;  
 T1161:;  
         V699= CMPcdr((V699));  
         V700= CMPcar((V699));  
         goto T1154;}  
         goto T1150;  
 T1150:;  
         V697= CMPcdr((V697));  
         V698= CMPcar((V697));  
         goto T1145;}  
         goto T1141;  
 T1141:;  
         {object V705;  
         object V706;  
         V705= (V695);  
         V706= CMPcar((V705));  
3375          goto T1192;          goto T1192;
3376  T1192:;  T1192:;
3377          if(!(((V705))==Cnil)){          V671= (long)(V671)+(1);
3378          goto T1193;}          {register object V676;
3379          goto T1188;          register object V677;
3380          goto T1193;          V676= CMPcdr((V675));
3381  T1193:;          V677= CMPcar((V676));
3382          V696= (long)(V696)+(1);          goto T1202;
3383          {register object V707;  T1202:;
3384          object V708;          if(!(((V676))==Cnil)){
3385          V707= CMPcdr((V706));          goto T1203;}
3386          V708= CMPcar((V707));          goto T1198;
3387          goto T1203;          goto T1203;
3388  T1203:;  T1203:;
3389          if(!(((V707))==Cnil)){          {register object V679;
3390          goto T1204;}          V679= CMPmake_fixnum(V671);
3391          goto T1199;          (CMPcdr(V677))->c.c_car = (V679);
3392          goto T1204;          (void)(CMPcdr(V677));}
3393  T1204:;          V676= CMPcdr((V676));
3394          {object V710;          V677= CMPcar((V676));
3395          V710= CMPmake_fixnum(V696);          goto T1202;}
3396          (CMPcdr(V708))->c.c_car = (V710);          goto T1198;
3397          (void)(CMPcdr(V708));}  T1198:;
3398          V707= CMPcdr((V707));          V674= CMPcdr((V674));
3399          V708= CMPcar((V707));          V675= CMPcar((V674));
3400          goto T1203;}          goto T1191;}
3401          goto T1199;          goto T1187;
3402  T1199:;  T1187:;
3403          V705= CMPcdr((V705));          V672= CMPcdr((V672));
3404          V706= CMPcar((V705));          V673= CMPcar((V672));
3405          goto T1192;}          goto T1182;}
3406          goto T1188;          goto T1178;
3407  T1188:;  T1178:;
3408          base[2]= (V694);          {object V680;
3409          base[3]= (V695);          object V681;
3410            V680= (V670);
3411            V681= CMPcar((V680));
3412            goto T1229;
3413    T1229:;
3414            if(!(((V680))==Cnil)){
3415            goto T1230;}
3416            goto T1225;
3417            goto T1230;
3418    T1230:;
3419            V671= (long)(V671)+(1);
3420            {register object V682;
3421            object V683;
3422            V682= CMPcdr((V681));
3423            V683= CMPcar((V682));
3424            goto T1240;
3425    T1240:;
3426            if(!(((V682))==Cnil)){
3427            goto T1241;}
3428            goto T1236;
3429            goto T1241;
3430    T1241:;
3431            {object V685;
3432            V685= CMPmake_fixnum(V671);
3433            (CMPcdr(V683))->c.c_car = (V685);
3434            (void)(CMPcdr(V683));}
3435            V682= CMPcdr((V682));
3436            V683= CMPcar((V682));
3437            goto T1240;}
3438            goto T1236;
3439    T1236:;
3440            V680= CMPcdr((V680));
3441            V681= CMPcar((V680));
3442            goto T1229;}
3443            goto T1225;
3444    T1225:;
3445            base[2]= (V669);
3446            base[3]= (V670);
3447          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3448          return;}          return;}
3449          }          }
3450  }  }
3451  /*      local entry for function SYMBOL-PKG-NAME        */  /*      local entry for function SYMBOL-PKG-NAME        */
3452    
3453  static object LI54(V712)  static object LI54(V687)
3454    
3455  object V712;  object V687;
3456  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3457          goto TTL;          goto TTL;
3458  TTL:;  TTL:;
3459          {object V713;          {object V688;
3460          base[0]= (V712);          base[0]= (V687);
3461          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3462          Lsymbol_package();          Lsymbol_package();
3463          vs_top=sup;          vs_top=sup;
3464          V713= vs_base[0];          V688= vs_base[0];
3465          if(((V713))==Cnil){          if(((V688))==Cnil){
3466          goto T1226;}          goto T1263;}
3467          base[0]= (V713);          base[0]= (V688);
3468          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3469          Lpackage_name();          Lpackage_name();
3470          vs_top=sup;          vs_top=sup;
3471          {object V714 = vs_base[0];          {object V689 = vs_base[0];
3472          VMR52(V714)}          VMR52(V689)}
3473          goto T1226;          goto T1263;
3474  T1226:;  T1263:;
3475          {object V715 = VV[99];          {object V690 = VV[113];
3476          VMR52(V715)}}          VMR52(V690)}}
3477          base[0]=base[0];          base[0]=base[0];
3478          return Cnil;          return Cnil;
3479  }  }
3480  /*      local entry for function SYMBOL-LESSP   */  /*      local entry for function SYMBOL-LESSP   */
3481    
3482  static object LI55(V718,V719)  static object LI55(V693,V694)
3483    
3484  object V718;object V719;  object V693;object V694;
3485  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3486          goto TTL;          goto TTL;
3487  TTL:;  TTL:;
3488          base[0]= (V718);          base[0]= (V693);
3489          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3490          Lsymbol_package();          Lsymbol_package();
3491          vs_top=sup;          vs_top=sup;
3492          V720= vs_base[0];          V695= vs_base[0];
3493          base[0]= (V719);          base[0]= (V694);
3494          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3495          Lsymbol_package();          Lsymbol_package();
3496          vs_top=sup;          vs_top=sup;
3497          V721= vs_base[0];          V696= vs_base[0];
3498          if(!((V720)==(V721))){          if(!((V695)==(V696))){
3499          goto T1230;}          goto T1267;}
3500          base[0]= symbol_name((V718));          base[0]= symbol_name((V693));
3501          base[1]= symbol_name((V719));          base[1]= symbol_name((V694));
3502          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3503          Lstring_lessp();          Lstring_lessp();
3504          vs_top=sup;          vs_top=sup;
3505          {object V722 = vs_base[0];          {object V697 = vs_base[0];
3506          VMR53(V722)}          VMR53(V697)}
3507          goto T1230;          goto T1267;
3508  T1230:;  T1267:;
3509          base[0]= (*(LnkLI218))((V718));          base[0]= (*(LnkLI234))((V693));
3510          base[1]= (*(LnkLI218))((V719));          base[1]= (*(LnkLI234))((V694));
3511          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3512          Lstring_lessp();          Lstring_lessp();
3513          vs_top=sup;          vs_top=sup;
3514          {object V723 = vs_base[0];          {object V698 = vs_base[0];
3515          VMR53(V723)}          VMR53(V698)}
3516          base[0]=base[0];          base[0]=base[0];
3517          return Cnil;          return Cnil;
3518  }  }
3519  /*      local entry for function SYMBOL-OR-CONS-LESSP   */  /*      local entry for function SYMBOL-OR-CONS-LESSP   */
3520    
3521  static object LI56(V726,V727)  static object LI56(V701,V702)
3522    
3523  register object V726;register object V727;  register object V701;register object V702;
3524  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3525          goto TTL;          goto TTL;
3526  TTL:;  TTL:;
3527          {register object V728;          {register object V704;
3528          V728= (V726);          V704= V701;
3529          if(!(type_of((V728))==t_symbol)){          if(!(type_of((V704))==t_symbol)){
3530          goto T1241;}          goto T1278;}
3531          {register object V729;          {register object V706;
3532          V729= (V727);          V706= V702;
3533          if(!(type_of((V729))==t_symbol)){          if(!(type_of((V706))==t_symbol)){
3534          goto T1244;}          goto T1281;}
3535          {object V730 = (*(LnkLI219))((V726),(V727));          {object V707 = (*(LnkLI235))((V701),(V702));
3536          VMR54(V730)}          VMR54(V707)}
3537          goto T1244;          goto T1281;
3538  T1244:;  T1281:;
3539          if(!(type_of((V729))==t_cons)){          if(!(type_of((V706))==t_cons)){
3540          goto T1247;}          goto T1284;}
3541          {object V731 = Ct;          {object V708 = Ct;
3542          VMR54(V731)}          VMR54(V708)}
3543          goto T1247;          goto T1284;
3544  T1247:;  T1284:;
3545          base[1]= VV[100];          base[0]= VV[42];
3546          base[2]= (V729);          base[1]= VV[43];
3547          base[3]= VV[101];          base[2]= VV[114];
3548          vs_top=(vs_base=base+1)+3;          base[3]= VV[45];
3549          (void) (*Lnk220)();          base[4]= V702;
3550          vs_top=sup;          base[5]= VV[46];
3551          base[0]= vs_base[0];          base[6]= VV[115];
3552          vs_top=(vs_base=base+0)+1;          base[7]= VV[48];
3553          Lerror();          base[8]= VV[116];
3554          vs_top=sup;          vs_top=(vs_base=base+0)+9;
3555          {object V732 = vs_base[0];          (void) (*Lnk210)();
3556          VMR54(V732)}}          vs_top=sup;
3557          goto T1241;          {object V709 = vs_base[0];
3558  T1241:;          VMR54(V709)}}
3559          if(!(type_of((V728))==t_cons)){          goto T1278;
3560          goto T1254;}  T1278:;
3561          {register object V733;          if(!(type_of((V704))==t_cons)){
3562          V733= (V727);          goto T1296;}
3563          if(!(type_of((V733))==t_symbol)){          {register object V711;
3564          goto T1257;}          V711= V702;
3565          {object V734 = Cnil;          if(!(type_of((V711))==t_symbol)){
3566          VMR54(V734)}          goto T1299;}
3567          goto T1257;          {object V712 = Cnil;
3568  T1257:;          VMR54(V712)}
3569          if(!(type_of((V733))==t_cons)){          goto T1299;
3570          goto T1260;}  T1299:;
3571          if(!((CMPcar((V726)))==(CMPcar((V727))))){          if(!(type_of((V711))==t_cons)){
3572          goto T1263;}          goto T1302;}
3573          V726= CMPcdr((V726));          if(!((CMPcar((V701)))==(CMPcar((V702))))){
3574          V727= CMPcdr((V727));          goto T1305;}
3575          goto TTL;          V701= CMPcdr((V701));
3576          goto T1263;          V702= CMPcdr((V702));
 T1263:;  
         V726= CMPcar((V726));  
         V727= CMPcar((V727));  
3577          goto TTL;          goto TTL;
3578          goto T1260;          goto T1305;
3579  T1260:;  T1305:;
3580          base[1]= VV[100];          V701= CMPcar((V701));
3581          base[2]= (V733);          V702= CMPcar((V702));
3582          base[3]= VV[102];          goto TTL;
3583          vs_top=(vs_base=base+1)+3;          goto T1302;
3584          (void) (*Lnk220)();  T1302:;
3585          vs_top=sup;          base[0]= VV[42];
3586          base[0]= vs_base[0];          base[1]= VV[43];
3587          vs_top=(vs_base=base+0)+1;          base[2]= VV[114];
3588          Lerror();          base[3]= VV[45];
3589            base[4]= V702;
3590            base[5]= VV[46];
3591            base[6]= VV[117];
3592            base[7]= VV[48];
3593            base[8]= VV[118];
3594            vs_top=(vs_base=base+0)+9;
3595            (void) (*Lnk210)();
3596            vs_top=sup;
3597            {object V713 = vs_base[0];
3598            VMR54(V713)}}
3599            goto T1296;
3600    T1296:;
3601            base[0]= VV[42];
3602            base[1]= VV[43];
3603            base[2]= VV[114];
3604            base[3]= VV[45];
3605            base[4]= V701;
3606            base[5]= VV[46];
3607            base[6]= VV[119];
3608            base[7]= VV[48];
3609            base[8]= VV[120];
3610            vs_top=(vs_base=base+0)+9;
3611            (void) (*Lnk210)();
3612          vs_top=sup;          vs_top=sup;
3613          {object V735 = vs_base[0];          {object V714 = vs_base[0];
3614          VMR54(V735)}}          VMR54(V714)}}
         goto T1254;  
 T1254:;  
         base[1]= VV[103];  
         base[2]= (V728);  
         base[3]= VV[104];  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk220)();  
         vs_top=sup;  
         base[0]= vs_base[0];  
         vs_top=(vs_base=base+0)+1;  
         Lerror();  
         vs_top=sup;  
         {object V736 = vs_base[0];  
         VMR54(V736)}}  
3615          base[0]=base[0];          base[0]=base[0];
3616          return Cnil;          return Cnil;
3617  }  }
3618  /*      local entry for function SORT-SLOTS     */  /*      local entry for function SORT-SLOTS     */
3619    
3620  static object LI57(V738)  static object LI57(V716)
3621    
3622  object V738;  object V716;
3623  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3624          goto TTL;          goto TTL;
3625  TTL:;  TTL:;
3626          {object V739;          {object V717;
3627          object V740= (V738);          object V718= (V716);
3628          if(V740==Cnil){          if(V718==Cnil){
3629          {object V741 = Cnil;          {object V719 = Cnil;
3630          VMR55(V741)}}          VMR55(V719)}}
3631          base[0]=V739=MMcons(Cnil,Cnil);          base[0]=V717=MMcons(Cnil,Cnil);
3632          goto T1279;          goto T1331;
3633  T1279:;  T1331:;
3634          V743= CMPcar((V740->c.c_car));          V721= CMPcar((V718->c.c_car));
3635          base[1]= CMPcdr((V740->c.c_car));          base[1]= CMPcdr((V718->c.c_car));
3636          base[2]= (VV[221]->s.s_gfdef);          base[2]= (VV[236]->s.s_gfdef);
3637          base[3]= VV[65];          base[3]= VV[79];
3638          base[4]= (VV[204]->s.s_gfdef);          base[4]= (VV[220]->s.s_gfdef);
3639          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3640          (void) (*Lnk222)();          (void) (*Lnk237)();
3641          vs_top=sup;          vs_top=sup;
3642          V744= vs_base[0];          V722= vs_base[0];
3643          (V739->c.c_car)= make_cons(/* INLINE-ARGS */V743,V744);          (V717->c.c_car)= make_cons(/* INLINE-ARGS */V721,V722);
3644          if((V740=MMcdr(V740))==Cnil){          if((V718=MMcdr(V718))==Cnil){
3645          {object V745 = base[0];          {object V723 = base[0];
3646          VMR55(V745)}}          VMR55(V723)}}
3647          V739=MMcdr(V739)=MMcons(Cnil,Cnil);          V717=MMcdr(V717)=MMcons(Cnil,Cnil);
3648          goto T1279;}          goto T1331;}
3649          base[0]=base[0];          base[0]=base[0];
3650          return Cnil;          return Cnil;
3651  }  }
3652  /*      local entry for function SORT-CALLS     */  /*      local entry for function SORT-CALLS     */
3653    
3654  static object LI58(V747)  static object LI58(V725)
3655    
3656  object V747;  object V725;
3657  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3658          goto TTL;          goto TTL;
3659  TTL:;  TTL:;
3660          base[0]= (V747);          base[0]= (V725);
3661          base[1]= (VV[221]->s.s_gfdef);          base[1]= (VV[236]->s.s_gfdef);
3662          base[2]= VV[65];          base[2]= VV[79];
3663          base[3]= (VV[204]->s.s_gfdef);          base[3]= (VV[220]->s.s_gfdef);
3664          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
3665          (void) (*Lnk222)();          (void) (*Lnk237)();
3666          vs_top=sup;          vs_top=sup;
3667          {object V748 = vs_base[0];          {object V726 = vs_base[0];
3668          VMR56(V748)}          VMR56(V726)}
3669          base[0]=base[0];          base[0]=base[0];
3670          return Cnil;          return Cnil;
3671  }  }
# Line 3655  static void L59() Line 3677  static void L59()
3677          vs_check;          vs_check;
3678          check_arg(2);          check_arg(2);
3679          vs_top=sup;          vs_top=sup;
3680          {object V749=base[0]->c.c_cdr;          {object V727=base[0]->c.c_cdr;
3681          if(endp(V749))invalid_macro_call();          if(endp(V727))invalid_macro_call();
3682          {object V750= (V749->c.c_car);          {object V728= (V727->c.c_car);
3683          if(endp(V750))invalid_macro_call();          if(endp(V728))invalid_macro_call();
3684          base[2]= (V750->c.c_car);          base[2]= (V728->c.c_car);
3685          V750=V750->c.c_cdr;          V728=V728->c.c_cdr;
3686          if(endp(V750))invalid_macro_call();          if(endp(V728))invalid_macro_call();
3687          base[3]= (V750->c.c_car);          base[3]= (V728->c.c_car);
3688          V750=V750->c.c_cdr;          V728=V728->c.c_cdr;
3689          if(endp(V750))invalid_macro_call();          if(endp(V728))invalid_macro_call();
3690          base[4]= (V750->c.c_car);          base[4]= (V728->c.c_car);
3691          V750=V750->c.c_cdr;          V728=V728->c.c_cdr;
3692          if(!endp(V750))invalid_macro_call();}          if(!endp(V728))invalid_macro_call();}
3693          V749=V749->c.c_cdr;          V727=V727->c.c_cdr;
3694          base[5]= V749;}          base[5]= V727;}
3695          {object V751;          {object V729;
3696          object V752;          object V730;
3697          {register object V753;          {register object V731;
3698          register object V754;          register object V732;
3699          register object V755;          register object V733;
3700          register object V756;          register object V734;
3701          V753= Cnil;          V731= Cnil;
3702          V754= Cnil;          V732= Cnil;
3703          V755= Cnil;          V733= Cnil;
3704          V756= Cnil;          V734= Cnil;
3705          {register object V757;          {register object V735;
3706          register object V758;          register object V736;
3707          register object V759;          register object V737;
3708          register object V760;          register object V738;
3709          register object V761;          register object V739;
3710          register object V762;          register object V740;
3711          V757= base[3];          V735= base[3];
3712          V758= Cnil;          V736= Cnil;
3713          V759= base[2];          V737= base[2];
3714          V760= Cnil;          V738= Cnil;
3715          V761= small_fixnum(0);          V739= small_fixnum(0);
3716          V762= Cnil;          V740= Cnil;
3717          goto T1303;          goto T1355;
3718  T1303:;  T1355:;
3719          {register object V763;          {register object V741;
3720          if(!(((V757))==Cnil)){          if(!(((V735))==Cnil)){
3721          goto T1309;}          goto T1361;}
3722          goto T1295;          goto T1347;
3723          goto T1309;          goto T1361;
3724  T1309:;  T1361:;
3725          V763= CMPcar((V757));          V741= CMPcar((V735));
3726          V757= CMPcdr((V757));          V735= CMPcdr((V735));
3727          V758= (V763);}          V736= (V741);}
3728          {register object V764;          {register object V742;
3729          if(!(((V759))==Cnil)){          if(!(((V737))==Cnil)){
3730          goto T1317;}          goto T1369;}
3731          goto T1295;          goto T1347;
3732          goto T1317;          goto T1369;
3733  T1317:;  T1369:;
3734          V764= CMPcar((V759));          V742= CMPcar((V737));
3735          V759= CMPcdr((V759));          V737= CMPcdr((V737));
3736          V760= (V764);}          V738= (V742);}
3737          {register object V765;          {register object V743;
3738          V765= (V761);          V743= (V739);
3739          V761= number_plus((V761),small_fixnum(1));          V739= number_plus((V739),small_fixnum(1));
3740          V762= (V765);}          V740= (V743);}
3741          if(((V758))==Cnil){          if(((V736))==Cnil){
3742          goto T1304;}          goto T1356;}
3743          {register object V766;          {register object V744;
3744          V766= (V760);          V744= (V738);
3745          if(((V755))!=Cnil){          if(((V733))!=Cnil){
3746          goto T1329;}          goto T1381;}
3747          V756= make_cons((V766),Cnil);          V734= make_cons((V744),Cnil);
3748          V755= (V756);          V733= (V734);
3749          goto T1327;          goto T1379;
3750          goto T1329;          goto T1381;
3751  T1329:;  T1381:;
3752          V768= make_cons((V766),Cnil);          V746= make_cons((V744),Cnil);
3753          ((V756))->c.c_cdr = /* INLINE-ARGS */V768;          ((V734))->c.c_cdr = /* INLINE-ARGS */V746;
3754          V767= (V756);          V745= (V734);
3755          V756= CMPcdr(V767);}          V734= CMPcdr(V745);}
3756          goto T1327;          goto T1379;
3757  T1327:;  T1379:;
3758          {register object V769;          {register object V747;
3759          V769= (*(LnkLI211))((V762));          V747= (*(LnkLI227))((V740));
3760          if(((V753))!=Cnil){          if(((V731))!=Cnil){
3761          goto T1337;}          goto T1389;}
3762          V754= make_cons((V769),Cnil);          V732= make_cons((V747),Cnil);
3763          V753= (V754);          V731= (V732);
3764          goto T1304;          goto T1356;
3765          goto T1337;          goto T1389;
3766  T1337:;  T1389:;
3767          V771= make_cons((V769),Cnil);          V749= make_cons((V747),Cnil);
3768          ((V754))->c.c_cdr = /* INLINE-ARGS */V771;          ((V732))->c.c_cdr = /* INLINE-ARGS */V749;
3769          V770= (V754);          V748= (V732);
3770          V754= CMPcdr(V770);}          V732= CMPcdr(V748);}
3771          goto T1304;          goto T1356;
3772  T1304:;  T1356:;
3773          goto T1303;}          goto T1355;}
3774          goto T1295;          goto T1347;
3775  T1295:;  T1347:;
3776          base[6]= (V753);          base[6]= (V731);
3777          base[7]= (V755);          base[7]= (V733);
3778          vs_top=(vs_base=base+6)+2;}          vs_top=(vs_base=base+6)+2;}
3779          if(vs_base>=vs_top){vs_top=sup;goto T1346;}          if(vs_base>=vs_top){vs_top=sup;goto T1398;}
3780          V751= vs_base[0];          V729= vs_base[0];
3781          vs_base++;          vs_base++;
3782          if(vs_base>=vs_top){vs_top=sup;goto T1347;}          if(vs_base>=vs_top){vs_top=sup;goto T1399;}
3783          V752= vs_base[0];          V730= vs_base[0];
3784          vs_top=sup;          vs_top=sup;
3785          goto T1348;          goto T1400;
3786          goto T1346;          goto T1398;
3787  T1346:;  T1398:;
3788          V751= Cnil;          V729= Cnil;
3789          goto T1347;          goto T1399;
3790  T1347:;  T1399:;
3791          V752= Cnil;          V730= Cnil;
3792          goto T1348;          goto T1400;
3793  T1348:;  T1400:;
3794          base[6]= listA(3,VV[105],list(5,VV[70],VV[106],base[4],(V752),(V751)),base[5]);          base[6]= listA(3,VV[121],list(5,VV[84],VV[122],base[4],(V730),(V729)),base[5]);
3795          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3796          return;}          return;}
3797  }  }
# Line 3781  static void L60() Line 3803  static void L60()
3803          vs_check;          vs_check;
3804          check_arg(2);          check_arg(2);
3805          vs_top=sup;          vs_top=sup;
3806          {object V772=base[0]->c.c_cdr;          {object V750=base[0]->c.c_cdr;
3807          if(endp(V772))invalid_macro_call();          if(endp(V750))invalid_macro_call();
3808          {object V773= (V772->c.c_car);          {object V751= (V750->c.c_car);
3809          if(endp(V773))invalid_macro_call();          if(endp(V751))invalid_macro_call();
3810          base[2]= (V773->c.c_car);          base[2]= (V751->c.c_car);
3811          V773=V773->c.c_cdr;          V751=V751->c.c_cdr;
3812          if(endp(V773))invalid_macro_call();          if(endp(V751))invalid_macro_call();
3813          base[3]= (V773->c.c_car);          base[3]= (V751->c.c_car);
3814          V773=V773->c.c_cdr;          V751=V751->c.c_cdr;
3815          if(endp(V773))invalid_macro_call();          if(endp(V751))invalid_macro_call();
3816          base[4]= (V773->c.c_car);          base[4]= (V751->c.c_car);
3817          V773=V773->c.c_cdr;          V751=V751->c.c_cdr;
3818          if(endp(V773))invalid_macro_call();          if(endp(V751))invalid_macro_call();
3819          base[5]= (V773->c.c_car);          base[5]= (V751->c.c_car);
3820          V773=V773->c.c_cdr;          V751=V751->c.c_cdr;
3821          if(endp(V773))invalid_macro_call();          if(endp(V751))invalid_macro_call();
3822          base[6]= (V773->c.c_car);          base[6]= (V751->c.c_car);
3823          V773=V773->c.c_cdr;          V751=V751->c.c_cdr;
3824          if(!endp(V773))invalid_macro_call();}          if(!endp(V751))invalid_macro_call();}
3825          V772=V772->c.c_cdr;          V750=V750->c.c_cdr;
3826          base[7]= V772;}          base[7]= V750;}
3827          V774= list(4,base[2],base[3],base[4],base[5]);          V752= list(4,base[2],base[3],base[4],base[5]);
3828          {object V776;          {object V754;
3829          object V777= base[6];          object V755= base[6];
3830          object V778= base[5];          object V756= base[5];
3831          if(V777==Cnil||V778==Cnil){          if(V755==Cnil||V756==Cnil){
3832          V775= Cnil;          V753= Cnil;
3833          goto T1349;}          goto T1401;}
3834          base[8]=V776=MMcons(Cnil,Cnil);          base[8]=V754=MMcons(Cnil,Cnil);
3835          goto T1350;          goto T1402;
3836  T1350:;  T1402:;
3837          (V776->c.c_car)= list(2,(V777->c.c_car),list(2,VV[108],(V778->c.c_car)));          (V754->c.c_car)= list(2,(V755->c.c_car),list(2,VV[124],(V756->c.c_car)));
3838          if((V777=MMcdr(V777))==Cnil||(V778=MMcdr(V778))==Cnil){          if((V755=MMcdr(V755))==Cnil||(V756=MMcdr(V756))==Cnil){
3839          V775= base[8];          V753= base[8];
3840          goto T1349;}          goto T1401;}
3841          V776=MMcdr(V776)=MMcons(Cnil,Cnil);          V754=MMcdr(V754)=MMcons(Cnil,Cnil);
3842          goto T1350;}          goto T1402;}
3843          goto T1349;          goto T1401;
3844  T1349:;  T1401:;
3845          V781 = base[7];          base[8]= list(3,VV[123],/* INLINE-ARGS */V752,listA(3,VV[0],V753,base[7]));
         base[8]= list(3,VV[107],/* INLINE-ARGS */V774,listA(3,VV[0],V775,V781));  
3846          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3847          return;          return;
3848  }  }
# Line 3833  static void L61() Line 3854  static void L61()
3854          vs_check;          vs_check;
3855          check_arg(2);          check_arg(2);
3856          vs_top=sup;          vs_top=sup;
3857          {object V782=base[0]->c.c_cdr;          {object V759=base[0]->c.c_cdr;
3858          if(endp(V782))invalid_macro_call();          if(endp(V759))invalid_macro_call();
3859          {object V783= (V782->c.c_car);          {object V760= (V759->c.c_car);
3860          if(endp(V783))invalid_macro_call();          if(endp(V760))invalid_macro_call();
3861          base[2]= (V783->c.c_car);          base[2]= (V760->c.c_car);
3862          V783=V783->c.c_cdr;          V760=V760->c.c_cdr;
3863          if(endp(V783))invalid_macro_call();          if(endp(V760))invalid_macro_call();
3864          base[3]= (V783->c.c_car);          base[3]= (V760->c.c_car);
3865          V783=V783->c.c_cdr;          V760=V760->c.c_cdr;
3866          if(endp(V783))invalid_macro_call();          if(endp(V760))invalid_macro_call();
3867          base[4]= (V783->c.c_car);          base[4]= (V760->c.c_car);
3868          V783=V783->c.c_cdr;          V760=V760->c.c_cdr;
3869          if(endp(V783))invalid_macro_call();          if(endp(V760))invalid_macro_call();
3870          base[5]= (V783->c.c_car);          base[5]= (V760->c.c_car);
3871          V783=V783->c.c_cdr;          V760=V760->c.c_cdr;
3872          if(!endp(V783))invalid_macro_call();}          if(!endp(V760))invalid_macro_call();}
3873          V782=V782->c.c_cdr;          V759=V759->c.c_cdr;
3874          base[6]= V782;}          base[6]= V759;}
3875          V784= list(2,VV[110],base[4]);          V761= list(2,VV[126],base[4]);
3876          V785= list(2,VV[111],listA(3,VV[112],VV[110],base[5]));          V762= list(2,VV[127],listA(3,VV[128],VV[126],base[5]));
3877          V786= list(2,base[2],VV[113]);          V763= list(2,base[2],VV[129]);
3878          V787= list(4,/* INLINE-ARGS */V784,/* INLINE-ARGS */V785,/* INLINE-ARGS */V786,list(2,base[3],VV[114]));          V764= list(4,/* INLINE-ARGS */V761,/* INLINE-ARGS */V762,/* INLINE-ARGS */V763,list(2,base[3],VV[130]));
3879          V788= list(2,VV[115],(*(LnkLI223))(base[2]));          V765= list(2,VV[131],(*(LnkLI238))(base[2]));
3880          V789= list(2,VV[115],(*(LnkLI224))(base[3]));          V766= list(2,VV[131],(*(LnkLI239))(base[3]));
3881          if(!(type_of(base[4])==t_symbol)){          if(!(type_of(base[4])==t_symbol)){
3882          goto T1355;}          goto T1407;}
3883          V791= list(2,VV[115],list(2,VV[116],base[4]));          V768= list(2,VV[131],list(2,VV[132],base[4]));
3884          base[7]= make_cons(/* INLINE-ARGS */V791,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V768,Cnil);
3885          goto T1353;          goto T1405;
3886          goto T1355;          goto T1407;
3887  T1355:;  T1407:;
3888          base[7]= Cnil;          base[7]= Cnil;
3889          goto T1353;          goto T1405;
3890  T1353:;  T1405:;
3891          base[8]= list(2,base[2],base[3]);          base[8]= list(2,base[2],base[3]);
3892          base[9]= base[6];          base[9]= base[6];
3893          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
3894          Lappend();          Lappend();
3895          vs_top=sup;          vs_top=sup;
3896          V790= vs_base[0];          V767= vs_base[0];
3897          base[7]= listA(5,VV[109],/* INLINE-ARGS */V787,/* INLINE-ARGS */V788,/* INLINE-ARGS */V789,V790);          base[7]= listA(5,VV[125],/* INLINE-ARGS */V764,/* INLINE-ARGS */V765,/* INLINE-ARGS */V766,V767);
3898          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3899          return;          return;
3900  }  }
# Line 3883  static void L62() Line 3904  static void L62()
3904  {register object *base=vs_base;  {register object *base=vs_base;
3905          register object *sup=base+VM60; VC60          register object *sup=base+VM60; VC60
3906          vs_check;          vs_check;
3907          {object V792;          {object V769;
3908          object V793;          object V770;
3909          check_arg(2);          check_arg(2);
3910          V792=(base[0]);          V769=(base[0]);
3911          V793=(base[1]);          V770=(base[1]);
3912          vs_top=sup;          vs_top=sup;
3913          goto TTL;          goto TTL;
3914  TTL:;  TTL:;
3915          {object V794;          {object V771;
3916          object V795;          object V772;
3917          object V796;          object V773;
3918          V794= Cnil;          V771= Cnil;
3919          V795= Cnil;          V772= Cnil;
3920          V796= Cnil;          V773= Cnil;
3921          goto T1361;          goto T1413;
3922  T1361:;  T1413:;
3923          if(((V792))!=Cnil){          if(((V769))!=Cnil){
3924          goto T1363;}          goto T1415;}
3925          goto T1359;          goto T1411;
3926          goto T1363;          goto T1415;
3927  T1363:;  T1415:;
3928          V796= CMPcar((V792));          V773= CMPcar((V769));
3929          if(!(type_of((V796))==t_cons)){          if(!(type_of((V773))==t_cons)){
3930          goto T1369;}          goto T1421;}
3931          if((CMPcar((V796)))==(VV[115])){          if((CMPcar((V773)))==(VV[131])){
3932          goto T1368;}          goto T1420;}
3933          goto T1369;          goto T1421;
3934  T1369:;  T1421:;
3935          goto T1359;          goto T1411;
         goto T1368;  
 T1368:;  
         {object V797;  
         register object V798;  
         V797= CMPcdr((V796));  
         V798= CMPcar((V797));  
         goto T1377;  
 T1377:;  
         if(!(((V797))==Cnil)){  
         goto T1378;}  
         goto T1373;  
         goto T1378;  
 T1378:;  
         if(!(type_of((V798))==t_cons)){  
         goto T1382;}  
         {register object V799;  
         V799= CMPcar((V798));  
         {register object x= (V799),V800= (VV[117]->s.s_dbind);  
         while(V800!=Cnil)  
         if(eql(x,V800->c.c_car)){  
         goto T1388;  
         }else V800=V800->c.c_cdr;  
         goto T1387;}  
         goto T1388;  
 T1388:;  
         {object V801;  
         V801= list(2,VV[115],(V798));  
         V795= make_cons((V801),(V795));  
         goto T1382;}  
         goto T1387;  
 T1387:;  
         {object V802;  
         object V803;  
         object V804;  
         register object V805;  
         register object V806;  
         {register object x= (V799),V807= (VV[118]->s.s_dbind);  
         while(V807!=Cnil)  
         if(eql(x,V807->c.c_car)){  
         V802= V807;  
         goto T1391;  
         }else V807=V807->c.c_cdr;  
         V802= Cnil;}  
         goto T1391;  
 T1391:;  
         {register object x= (V799),V808= (VV[119]->s.s_dbind);  
         while(V808!=Cnil)  
         if(eql(x,V808->c.c_car)){  
         V803= V808;  
         goto T1392;  
         }else V808=V808->c.c_cdr;  
         V803= Cnil;}  
         goto T1392;  
 T1392:;  
         {object V810;  
         V810= CMPcar((V798));  
         V798= CMPcdr((V798));  
         V809= (V810);}  
         V804= make_cons(V809,Cnil);  
         V805= Cnil;  
         V806= Cnil;  
         if(((V802))!=Cnil){  
         goto T1398;}  
         if(((V803))!=Cnil){  
         goto T1398;}  
         base[4]= VV[120];  
         base[5]= (V799);  
         base[6]= VV[121];  
         base[7]= (V799);  
         base[8]= VV[117];  
         base[9]= VV[118];  
         base[10]= VV[119];  
         vs_top=(vs_base=base+4)+7;  
         (void) (*Lnk225)();  
         vs_top=sup;  
         (VV[119]->s.s_dbind)= make_cons(V799,(VV[119]->s.s_dbind));  
         goto T1398;  
 T1398:;  
         if(((V802))==Cnil){  
         goto T1412;}  
         {object V813;  
         V813= CMPcar((V798));  
         V798= CMPcdr((V798));  
         V812= (V813);}  
         V814= make_cons(V812,Cnil);  
         V804= append((V804),/* INLINE-ARGS */V814);  
         goto T1412;  
 T1412:;  
         {register object V815;  
         register object V816;  
         V815= (V798);  
         V816= CMPcar((V815));  
         goto T1424;  
 T1424:;  
         if(!(((V815))==Cnil)){  
         goto T1425;}  
3936          goto T1420;          goto T1420;
3937          goto T1425;  T1420:;
3938  T1425:;          {object V774;
3939          {register object x= (V816),V817= (V793);          register object V775;
3940          while(V817!=Cnil)          V774= CMPcdr((V773));
3941          if(eql(x,V817->c.c_car)){          V775= CMPcar((V774));
         goto T1432;  
         }else V817=V817->c.c_cdr;  
         goto T1431;}  
         goto T1432;  
 T1432:;  
         V806= make_cons(V816,(V806));  
         goto T1429;  
         goto T1431;  
 T1431:;  
         V805= make_cons(V816,(V805));  
3942          goto T1429;          goto T1429;
3943  T1429:;  T1429:;
3944          V815= CMPcdr((V815));          if(!(((V774))==Cnil)){
3945          V816= CMPcar((V815));          goto T1430;}
3946          goto T1424;}          goto T1425;
3947          goto T1420;          goto T1430;
3948  T1420:;  T1430:;
3949          if(((V806))==Cnil){          if(!(type_of((V775))==t_cons)){
3950          goto T1440;}          goto T1434;}
3951          {object V820;          {register object V776;
3952          V820= list(2,VV[115],append((V804),(V806)));          V776= CMPcar((V775));
3953          V795= make_cons((V820),(V795));}          {register object x= (V776),V777= (VV[133]->s.s_dbind);
3954            while(V777!=Cnil)
3955            if(eql(x,V777->c.c_car)){
3956            goto T1440;
3957            }else V777=V777->c.c_cdr;
3958            goto T1439;}
3959          goto T1440;          goto T1440;
3960  T1440:;  T1440:;
3961          if(((V805))==Cnil){          {object V778;
3962          goto T1382;}          V778= list(2,VV[131],(V775));
3963          {object V821;          V772= make_cons((V778),(V772));
3964          V821= list(2,VV[115],append((V804),(V805)));          goto T1434;}
3965          V794= make_cons((V821),(V794));}}}          goto T1439;
3966          goto T1382;  T1439:;
3967  T1382:;          {object V779;
3968          V797= CMPcdr((V797));          object V780;
3969          V798= CMPcar((V797));          object V781;
3970          goto T1377;}          register object V782;
3971          goto T1373;          register object V783;
3972  T1373:;          {register object x= (V776),V784= (VV[134]->s.s_dbind);
3973            while(V784!=Cnil)
3974            if(eql(x,V784->c.c_car)){
3975            V779= V784;
3976            goto T1443;
3977            }else V784=V784->c.c_cdr;
3978            V779= Cnil;}
3979            goto T1443;
3980    T1443:;
3981            {register object x= (V776),V785= (VV[135]->s.s_dbind);
3982            while(V785!=Cnil)
3983            if(eql(x,V785->c.c_car)){
3984            V780= V785;
3985            goto T1444;
3986            }else V785=V785->c.c_cdr;
3987            V780= Cnil;}
3988            goto T1444;
3989    T1444:;
3990            {object V787;
3991            V787= CMPcar((V775));
3992            V775= CMPcdr((V775));
3993            V786= (V787);}
3994            V781= make_cons(V786,Cnil);
3995            V782= Cnil;
3996            V783= Cnil;
3997            if(((V779))!=Cnil){
3998            goto T1450;}
3999            if(((V780))!=Cnil){
4000            goto T1450;}
4001            base[4]= VV[136];
4002            base[5]= (V776);
4003            base[6]= VV[137];
4004            base[7]= (V776);
4005            base[8]= VV[133];
4006            base[9]= VV[134];
4007            base[10]= VV[135];
4008            vs_top=(vs_base=base+4)+7;
4009            (void) (*Lnk240)();
4010            vs_top=sup;
4011            (VV[135]->s.s_dbind)= make_cons(V776,(VV[135]->s.s_dbind));
4012            goto T1450;
4013    T1450:;
4014            if(((V779))==Cnil){
4015            goto T1464;}
4016            {object V790;
4017            V790= CMPcar((V775));
4018            V775= CMPcdr((V775));
4019            V789= (V790);}
4020            V791= make_cons(V789,Cnil);
4021            V781= append((V781),/* INLINE-ARGS */V791);
4022            goto T1464;
4023    T1464:;
4024            {register object V792;
4025            register object V793;
4026            V792= (V775);
4027            V793= CMPcar((V792));
4028            goto T1476;
4029    T1476:;
4030            if(!(((V792))==Cnil)){
4031            goto T1477;}
4032            goto T1472;
4033            goto T1477;
4034    T1477:;
4035            {register object x= (V793),V794= (V770);
4036            while(V794!=Cnil)
4037            if(eql(x,V794->c.c_car)){
4038            goto T1484;
4039            }else V794=V794->c.c_cdr;
4040            goto T1483;}
4041            goto T1484;
4042    T1484:;
4043            V783= make_cons(V793,(V783));
4044            goto T1481;
4045            goto T1483;
4046    T1483:;
4047            V782= make_cons(V793,(V782));
4048            goto T1481;
4049    T1481:;
4050          V792= CMPcdr((V792));          V792= CMPcdr((V792));
4051          goto T1361;          V793= CMPcar((V792));
4052          goto T1359;          goto T1476;}
4053  T1359:;          goto T1472;
4054          base[2]= (V795);  T1472:;
4055          base[3]= (V794);          if(((V783))==Cnil){
4056          base[4]= (V792);          goto T1492;}
4057            {object V797;
4058            V797= list(2,VV[131],append((V781),(V783)));
4059            V772= make_cons((V797),(V772));}
4060            goto T1492;
4061    T1492:;
4062            if(((V782))==Cnil){
4063            goto T1434;}
4064            {object V798;
4065            V798= list(2,VV[131],append((V781),(V782)));
4066            V771= make_cons((V798),(V771));}}}
4067            goto T1434;
4068    T1434:;
4069            V774= CMPcdr((V774));
4070            V775= CMPcar((V774));
4071            goto T1429;}
4072            goto T1425;
4073    T1425:;
4074            V769= CMPcdr((V769));
4075            goto T1413;
4076            goto T1411;
4077    T1411:;
4078            base[2]= (V772);
4079            base[3]= (V771);
4080            base[4]= (V769);
4081          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4082          return;}          return;}
4083          }          }
4084  }  }
4085  /*      local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL     */  /*      local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL     */
4086    
4087  static object LI63(V825,V826,V827)  static object LI63(V802,V803,V804)
4088    
4089  object V825;object V826;object V827;  object V802;object V803;object V804;
4090  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
4091          goto TTL;          goto TTL;
4092  TTL:;  TTL:;
4093          {object V828;          {object V805;
4094          object V829;          object V806;
4095          object V830;          object V807;
4096          V828= Cnil;          V805= Cnil;
4097          V829= Cnil;          V806= Cnil;
4098          V830= Cnil;          V807= Cnil;
4099          if(!((3)==((long)length((V825))))){          if(!((3)==((long)length((V802))))){
4100          goto T1459;}          goto T1511;}
4101          V828= CMPcadr((V825));          V805= CMPcadr((V802));
4102          V831 = (V828);          if(!((2)==((long)length((V805))))){
4103          if(!((2)==((long)length(V831)))){          goto T1511;}
4104          goto T1459;}          V806= CMPcaddr((V802));
4105          V829= CMPcaddr((V825));          if(!(type_of((V806))==t_cons)){
4106          V832 = (V829);          goto T1511;}
4107          if(!(type_of(V832)==t_cons)){          if(!((VV[138])==(CMPcar((V806))))){
4108          goto T1459;}          goto T1511;}
4109          if(!((VV[122])==(CMPcar((V829))))){          V808= CMPcar((V805));
4110          goto T1459;}          V807= CMPcadr((V806));
4111          V833= CMPcar((V828));          if(!((/* INLINE-ARGS */V808)==(CMPcadr((V807))))){
4112          V830= CMPcadr((V829));          goto T1511;}
4113          V834 = (V830);          if((CMPcadr((V805)))==(CMPcaddr((V807)))){
4114          if(!((/* INLINE-ARGS */V833)==(CMPcadr(V834)))){          goto T1512;}
4115          goto T1459;}          goto T1511;
4116          if((CMPcadr((V828)))==(CMPcaddr((V830)))){  T1511:;
4117          goto T1460;}          V809= list(2,VV[141],(V802));
4118          goto T1459;          {object V810 = list(4,VV[139],VV[140],/* INLINE-ARGS */V809,list(2,VV[67],(V803)));
4119  T1459:;          VMR61(V810)}
4120          V835= list(2,VV[125],(V825));          goto T1512;
4121          {object V836 = list(4,VV[123],VV[124],/* INLINE-ARGS */V835,list(2,VV[57],(V826)));  T1512:;
4122          VMR61(V836)}          {object V811;
4123          goto T1460;          register object V812;
4124  T1460:;          register object V813;
4125          {object V837;          register object V814;
4126          register object V838;          V811= CMPcar((V807));
4127          register object V839;          V812= small_fixnum(0);
4128          register object V840;          V813= Cnil;
4129          V837= CMPcar((V830));          V814= Cnil;
4130          V838= small_fixnum(0);          {register object V815;
4131          V839= Cnil;          register object V816;
4132          V840= Cnil;          V815= (V811);
4133          {register object V841;          V816= CMPcar((V815));
4134          register object V842;          goto T1535;
4135          V841= (V837);  T1535:;
4136          V842= CMPcar((V841));          if(!(((V815))==Cnil)){
4137          goto T1483;          goto T1536;}
4138  T1483:;          goto T1531;
4139          if(!(((V841))==Cnil)){          goto T1536;
4140          goto T1484;}  T1536:;
4141          goto T1479;          {register object x= (V816),V817= VV[142];
4142          goto T1484;          while(V817!=Cnil)
4143  T1484:;          if(eql(x,V817->c.c_car)){
4144          {register object x= (V842),V843= VV[126];          goto T1542;
4145          while(V843!=Cnil)          }else V817=V817->c.c_cdr;
4146          if(eql(x,V843->c.c_car)){          goto T1540;}
4147          goto T1490;          goto T1542;
4148          }else V843=V843->c.c_cdr;  T1542:;
4149          goto T1488;}          V813= Ct;
4150          goto T1490;          goto T1531;
4151  T1490:;          goto T1540;
4152          V839= Ct;  T1540:;
4153          goto T1479;          if(!(((V816))==(VV[143]))){
4154          goto T1488;          goto T1545;}
4155  T1488:;          goto T1531;
4156          if(!(((V842))==(VV[127]))){          goto T1545;
4157          goto T1493;}  T1545:;
4158          goto T1479;          V812= number_plus((V812),small_fixnum(1));
4159          goto T1493;          {register object V818;
4160  T1493:;          V818= (V816);
4161          V838= number_plus((V838),small_fixnum(1));          V814= make_cons((V818),(V814));}
4162          {register object V844;          V815= CMPcdr((V815));
4163          V844= (V842);          V816= CMPcar((V815));
4164          V840= make_cons((V844),(V840));}          goto T1535;}
4165          V841= CMPcdr((V841));          goto T1531;
4166          V842= CMPcar((V841));  T1531:;
4167          goto T1483;}          V814= nreverse((V814));
4168          goto T1479;          {object V821;
4169  T1479:;          V821= make_cons((V812),(V813));
4170          V840= nreverse((V840));          {object V822;
4171          {object V847;          base[3]= (V803);
4172          V847= make_cons((V838),(V839));          base[4]= VV[144];
         {object V848;  
         base[3]= (V826);  
         base[4]= VV[128];  
4173          base[5]= Cnil;          base[5]= Cnil;
4174          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4175          Lgetf();          Lgetf();
4176          vs_top=sup;          vs_top=sup;
4177          base[2]= vs_base[0];          base[2]= vs_base[0];
4178          base[3]= (V847);          base[3]= (V821);
4179          base[4]= VV[129];          base[4]= VV[145];
4180          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4181          siLput_f();          siLput_f();
4182          vs_top=sup;          vs_top=sup;
4183          V848= vs_base[0];          V822= vs_base[0];
4184          {object V849;          {object V823;
4185          base[2]= (V826);          base[2]= (V803);
4186          base[3]= (V848);          base[3]= (V822);
4187          base[4]= VV[128];          base[4]= VV[144];
4188          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4189          siLput_f();          siLput_f();
4190          vs_top=sup;          vs_top=sup;
4191          V849= vs_base[0];          V823= vs_base[0];
4192          V826= (V849);}}}          V803= (V823);}}}
4193          {object V850 = (*(LnkLI226))((V826),CMPcddr((V829)),(V840),(V830),(V839));          {object V824 = (*(LnkLI241))((V803),CMPcddr((V806)),(V814),(V807),(V813));
4194          VMR61(V850)}}}          VMR61(V824)}}}
4195          base[0]=base[0];          base[0]=base[0];
4196          return Cnil;          return Cnil;
4197  }  }
4198  /*      local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL1    */  /*      local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL1    */
4199    
4200  static object LI64(V856,V857,V858,V859,V860)  static object LI64(V830,V831,V832,V833,V834)
4201    
4202  object V856;object V857;register object V858;object V859;object V860;  object V830;object V831;register object V832;object V833;object V834;
4203  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
4204          goto TTL;          goto TTL;
4205  TTL:;  TTL:;
4206          {object V861;          {object V835;
4207          object V862;          object V836;
4208          object V863;          object V837;
4209          base[0]= (V857);          base[0]= (V831);
4210          base[1]= (V858);          base[1]= (V832);
4211          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4212          (void) (*Lnk121)();          (void) (*Lnk137)();
4213          if(vs_base>=vs_top){vs_top=sup;goto T1527;}          if(vs_base>=vs_top){vs_top=sup;goto T1579;}
4214          V861= vs_base[0];          V835= vs_base[0];
4215          vs_base++;          vs_base++;
4216          if(vs_base>=vs_top){vs_top=sup;goto T1528;}          if(vs_base>=vs_top){vs_top=sup;goto T1580;}
4217          V862= vs_base[0];          V836= vs_base[0];
4218          vs_base++;          vs_base++;
4219          if(vs_base>=vs_top){vs_top=sup;goto T1529;}          if(vs_base>=vs_top){vs_top=sup;goto T1581;}
4220          V863= vs_base[0];          V837= vs_base[0];
4221          vs_top=sup;          vs_top=sup;
4222          goto T1530;          goto T1582;
4223          goto T1527;          goto T1579;
4224  T1527:;  T1579:;
4225          V861= Cnil;          V835= Cnil;
4226          goto T1528;          goto T1580;
4227  T1528:;  T1580:;
4228          V862= Cnil;          V836= Cnil;
4229          goto T1529;          goto T1581;
4230  T1529:;  T1581:;
4231          V863= Cnil;          V837= Cnil;
4232          goto T1530;          goto T1582;
4233  T1530:;  T1582:;
4234          {object V864;          {object V838;
4235          object V865;          object V839;
4236          if(((V860))==Cnil){          if(((V834))==Cnil){
4237          goto T1533;}          goto T1585;}
4238          V864= VV[130];          V838= VV[146];
4239          goto T1531;          goto T1583;
4240          goto T1533;          goto T1585;
4241  T1533:;  T1585:;
4242          V864= Cnil;          V838= Cnil;
4243          goto T1531;          goto T1583;
4244  T1531:;  T1583:;
4245          if(((V860))==Cnil){          if(((V834))==Cnil){
4246          goto T1537;}          goto T1589;}
4247          V866= make_cons((V864),Cnil);          V840= make_cons((V838),Cnil);
4248          V865= append((V858),/* INLINE-ARGS */V866);          V839= append((V832),/* INLINE-ARGS */V840);
4249          goto T1535;          goto T1587;
4250          goto T1537;          goto T1589;
4251  T1537:;  T1589:;
4252          V865= (V858);          V839= (V832);
4253          goto T1535;          goto T1587;
4254  T1535:;  T1587:;
4255          V867= listA(3,VV[111],VV[133],(V865));          V841= listA(3,VV[127],VV[149],(V839));
4256          V868= listA(5,CMPcar((V859)),VV[133],(V858),(V864),CMPcdddr((V859)));          V842= listA(5,CMPcar((V833)),VV[149],(V832),(V838),CMPcdddr((V833)));
4257          V869= list(3,VV[111],VV[133],list(3,VV[134],VV[135],listA(3,VV[136],/* INLINE-ARGS */V868,append((V862),(V863)))));          V843= list(3,VV[127],VV[149],list(3,VV[150],VV[151],listA(3,VV[152],/* INLINE-ARGS */V842,append((V836),(V837)))));
4258          V870= list(2,VV[125],listA(3,VV[132],/* INLINE-ARGS */V867,append((V861),/* INLINE-ARGS */V869)));          V844= list(2,VV[141],listA(3,VV[148],/* INLINE-ARGS */V841,append((V835),/* INLINE-ARGS */V843)));
4259          {object V871 = list(4,VV[123],VV[131],/* INLINE-ARGS */V870,list(2,VV[57],(V856)));          {object V845 = list(4,VV[139],VV[147],/* INLINE-ARGS */V844,list(2,VV[67],(V830)));
4260          VMR62(V871)}}}          VMR62(V845)}}}
4261          base[0]=base[0];          base[0]=base[0];
4262          return Cnil;          return Cnil;
4263  }  }
4264  /*      local entry for function METHOD-FUNCTION-FROM-FAST-FUNCTION     */  /*      local entry for function METHOD-FUNCTION-FROM-FAST-FUNCTION     */
4265    
4266  static object LI66(V873)  static object LI66(V847)
4267    
4268  object V873;  object V847;
4269  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
4270          goto TTL;          goto TTL;
4271  TTL:;  TTL:;
4272          base[0]=MMcons((V873),Cnil);          base[0]=MMcons((V847),Cnil);
4273          {object V874;          {object V848;
4274          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
4275          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
4276          V874= (VFUN_NARGS=2,(*(LnkLI227))((base[0]->c.c_car),VV[129]));          V848= (VFUN_NARGS=2,(*(LnkLI242))((base[0]->c.c_car),VV[145]));
4277          base[4]= CMPcar((V874));          base[4]= CMPcar((V848));
4278          base[4]=MMcons(base[4],base[2]);          base[4]=MMcons(base[4],base[2]);
4279          base[5]= CMPcdr((V874));          base[5]= CMPcdr((V848));
4280          base[5]=MMcons(base[5],base[4]);          base[5]=MMcons(base[5],base[4]);
4281          (base[1]->c.c_car)=          (base[1]->c.c_car)=
4282          make_cclosure_new(LC74,Cnil,base[5],Cdata);          make_cclosure_new(LC74,Cnil,base[5],Cdata);
4283          {register object V875;          {register object V849;
4284          object V876;          object V850;
4285          V875= (VFUN_NARGS=2,(*(LnkLI227))((base[0]->c.c_car),VV[139]));{object V878;          V849= (VFUN_NARGS=2,(*(LnkLI242))((base[0]->c.c_car),VV[43]));{object V852;
4286          {object V879 =(CMPcar((V875)))->s.s_plist;          {object V853 =(CMPcar((V849)))->s.s_plist;
4287           object ind= VV[140];           object ind= VV[155];
4288          while(V879!=Cnil){          while(V853!=Cnil){
4289          if(V879->c.c_car==ind){          if(V853->c.c_car==ind){
4290          V878= (V879->c.c_cdr->c.c_car);          V852= (V853->c.c_cdr->c.c_car);
4291          goto T1549;          goto T1601;
4292          }else V879=V879->c.c_cdr->c.c_cdr;}          }else V853=V853->c.c_cdr->c.c_cdr;}
4293          V878= Cnil;}          V852= Cnil;}
4294          goto T1549;          goto T1601;
4295  T1549:;  T1601:;
4296          if(V878==Cnil)goto T1548;          if(V852==Cnil)goto T1600;
4297          V877= V878;          V851= V852;
4298          goto T1547;          goto T1599;
4299          goto T1548;          goto T1600;
4300  T1548:;}  T1600:;}
4301          V880= CMPcar((V875));          V854= CMPcar((V849));
4302          {object V882;          {object V856;
4303          V882= symbol_name(CMPcar((V875)));          V856= symbol_name(CMPcar((V849)));
4304          base[8]= VV[141];          base[8]= VV[156];
4305          base[9]= (V882);          base[9]= (V856);
4306          base[10]= VV[142];          base[10]= VV[157];
4307          base[11]= small_fixnum(5);          base[11]= small_fixnum(5);
4308          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
4309          Lstring_eq();          Lstring_eq();
4310          vs_top=sup;          vs_top=sup;
4311          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4312          goto T1553;}          goto T1605;}
4313          base[9]= (V882);          base[9]= (V856);
4314          base[10]= small_fixnum(5);          base[10]= small_fixnum(5);
4315          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
4316          Lsubseq();          Lsubseq();
4317          vs_top=sup;          vs_top=sup;
4318          base[8]= vs_base[0];          base[8]= vs_base[0];
4319          base[9]= (VV[143]->s.s_dbind);          base[9]= (VV[158]->s.s_dbind);
4320          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4321          Lintern();          Lintern();
4322          vs_top=sup;          vs_top=sup;
4323          V881= vs_base[0];          V855= vs_base[0];
4324          goto T1550;          goto T1602;
4325          goto T1553;          goto T1605;
4326  T1553:;  T1605:;
4327          V881= CMPcar((V875));}          V855= CMPcar((V849));}
4328          goto T1550;          goto T1602;
4329  T1550:;  T1602:;
4330          V877= sputprop(/* INLINE-ARGS */V880,VV[140],V881);          V851= sputprop(/* INLINE-ARGS */V854,VV[155],V855);
4331          goto T1547;          goto T1599;
4332  T1547:;  T1599:;
4333          V876= make_cons(V877,CMPcdr((V875)));          V850= make_cons(V851,CMPcdr((V849)));
4334          base[8]= (base[1]->c.c_car);          base[8]= (base[1]->c.c_car);
4335          base[9]= (V876);          base[9]= (V850);
4336          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4337          (void) (*Lnk228)();          (void) (*Lnk243)();
4338          vs_top=sup;}          vs_top=sup;}
4339          {object V883;          {object V857;
4340          object V885;          object V859;
4341          V883= (base[1]->c.c_car);          V857= (base[1]->c.c_car);
4342          V885= (base[0]->c.c_car);          V859= (base[0]->c.c_car);
4343          V886= ({object _tmp=get(VV[227],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[227])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[227])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V860= ({object _tmp=get(VV[242],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[242])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[242])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V887 = (V885);  
         V888 = (V883);  
         V889 = VV[131];  
4344          (void)((          (void)((
4345          V890 = V886,          V861 = V860,
4346          (type_of(V890) == t_sfun ?(*((V890)->sfn.sfn_self)):          (type_of(V861) == t_sfun ?(*((V861)->sfn.sfn_self)):
4347          (fcall.argd=3,type_of(V890)==t_vfun) ?          (fcall.argd=3,type_of(V861)==t_vfun) ?
4348          (*((V890)->sfn.sfn_self)):          (*((V861)->sfn.sfn_self)):
4349          (fcall.fun=(V890),fcalln))(V887,V888,V889)));}          (fcall.fun=(V861),fcalln))((V859),(V857),VV[147])));}
4350          {object V891 = (base[1]->c.c_car);          {object V862 = (base[1]->c.c_car);
4351          VMR63(V891)}}          VMR63(V862)}}
4352          base[0]=base[0];          base[0]=base[0];
4353          return Cnil;          return Cnil;
4354  }  }
4355  /*      local entry for function GET-METHOD-FUNCTION-PV-CELL    */  /*      local entry for function GET-METHOD-FUNCTION-PV-CELL    */
4356    
4357  static object LI67(object V893,object V892,object first,...)  static object LI67(object V864,object V863,object first,...)
4358  {        {      
4359          va_list ap;          va_list ap;
4360          int narg = VFUN_NARGS; VMB64 VMS64 VMV64          int narg = VFUN_NARGS; VMB64 VMS64 VMV64
4361          {object V894;          {object V865;
4362          object V895;          object V866;
4363          object V896;          object V867;
4364          va_start(ap,first);          va_start(ap,first);
4365          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
4366          V894= V893;          V865= V864;
4367          V895= V892;          V866= V863;
4368          narg = narg - 2;          narg = narg - 2;
4369          if (narg <= 0) goto T1569;          if (narg <= 0) goto T1621;
4370          else {          else {
4371          V896= first;}          V867= first;}
4372          --narg; goto T1570;          --narg; goto T1622;
4373          goto T1569;          goto T1621;
4374  T1569:;  T1621:;
4375          V896= Cnil;          V867= Cnil;
4376          goto T1570;          goto T1622;
4377  T1570:;  T1622:;
4378          {object V897;          {object V868;
4379          if((V896)!=Cnil){          if((V867)!=Cnil){
4380          V897= (V896);          V868= (V867);
4381          goto T1572;}          goto T1624;}
4382          V897= (*(LnkLI229))((V894));          V868= (*(LnkLI244))((V865));
4383          goto T1572;          goto T1624;
4384  T1572:;  T1624:;
4385          if(((V897))==Cnil){          if(((V868))==Cnil){
4386          goto T1574;}          goto T1626;}
4387          {object V898;          {object V869;
4388          V898= (*(LnkLI230))((V897),(V895));          V869= (*(LnkLI245))((V868),(V866));
4389          if(((V898))==Cnil){          if(((V869))==Cnil){
4390          goto T1578;}          goto T1630;}
4391          {object V899 = (*(LnkLI231))((V897),(V898));          {object V870 = (*(LnkLI246))((V868),(V869));
4392          VMR64(V899)}          VMR64(V870)}
4393          goto T1578;          goto T1630;
4394  T1578:;  T1630:;
4395          {object V900 = Cnil;          {object V871 = Cnil;
4396          VMR64(V900)}}          VMR64(V871)}}
4397          goto T1574;          goto T1626;
4398  T1574:;  T1626:;
4399          {object V901 = Cnil;          {object V872 = Cnil;
4400          VMR64(V901)}}          VMR64(V872)}}
4401          va_end(ap);          va_end(ap);
4402          return Cnil;}          return Cnil;}
4403          }          }
4404  /*      local entry for function PV-TABLE-LOOKUP-PV-ARGS        */  /*      local entry for function PV-TABLE-LOOKUP-PV-ARGS        */
4405    
4406  static object LI68(object V902,object first,...)  static object LI68(object V873,object first,...)
4407  {        {      
4408          va_list ap;          va_list ap;
4409          int narg = VFUN_NARGS; VMB65 VMS65 VMV65          int narg = VFUN_NARGS; VMB65 VMS65 VMV65
4410          {object V903;          {object V874;
4411          object V904;          object V875;
4412          va_start(ap,first);          va_start(ap,first);
4413          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
4414          V903= V902;          V874= V873;
4415          narg= narg - 1;          narg= narg - 1;
4416          V905 = list_vector_new(narg,first,ap);          V876 = list_vector_new(narg,first,ap);
4417          V904= V905;          V875= V876;
4418          V906 = (V903);          V877= (VFUN_NARGS=1,(*(LnkLI247))((V875)));
4419          V907= (VFUN_NARGS=1,(*(LnkLI232))((V904)));          {object V878 = (*(LnkLI246))((V874),/* INLINE-ARGS */V877);
4420          {object V908 = (*(LnkLI231))(V906,/* INLINE-ARGS */V907);          VMR65(V878)}
         VMR65(V908)}  
4421          va_end(ap);          va_end(ap);
4422          return Cnil;}          return Cnil;}
4423          }          }
# Line 4413  static object LI69(object first,...) Line 4427  static object LI69(object first,...)
4427  {        {      
4428          va_list ap;          va_list ap;
4429          int narg = VFUN_NARGS; VMB66 VMS66 VMV66          int narg = VFUN_NARGS; VMB66 VMS66 VMV66
4430          {object V909;          {object V879;
4431          va_start(ap,first);          va_start(ap,first);
4432          narg= narg - 0;          narg= narg - 0;
4433          V910 = list_vector_new(narg,first,ap);          V880 = list_vector_new(narg,first,ap);
4434          V909= V910;          V879= V880;
4435          {long V911;          {long V881;
4436          object V912;          object V882;
4437          register object V913;          register object V883;
4438          object V914;          object V884;
4439          V911= (long)length((V909));          V881= (long)length((V879));
4440          base[1]= CMPmake_fixnum(V911);          base[1]= CMPmake_fixnum(V881);
4441          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4442          Lmake_list();          Lmake_list();
4443          vs_top=sup;          vs_top=sup;
4444          V912= vs_base[0];          V882= vs_base[0];
4445          V913= Cnil;          V883= Cnil;
4446          V914= (V912);          V884= (V882);
4447          {register object V915;          {register object V885;
4448          register object V916;          register object V886;
4449          V915= (V909);          V885= (V879);
4450          V916= CMPcar((V915));          V886= CMPcar((V885));
4451          goto T1589;          goto T1641;
4452  T1589:;  T1641:;
4453          if(!(((V915))==Cnil)){          if(!(((V885))==Cnil)){
4454          goto T1590;}          goto T1642;}
4455          goto T1585;          goto T1637;
4456          goto T1590;          goto T1642;
4457  T1590:;  T1642:;
4458          {register object V917;          {register object V887;
4459          V917= (V916);          V887= (V886);
4460          if(type_of((V917))==t_structure){          if(type_of((V887))==t_structure){
4461          goto T1599;}          goto T1651;}
4462          goto T1597;          goto T1649;
4463          goto T1599;          goto T1651;
4464  T1599:;  T1651:;
4465          if(!((((V917))->str.str_def)==(VV[145]))){          if(!((((V887))->str.str_def)==(VV[160]))){
4466          goto T1597;}}          goto T1649;}}
4467          V913= STREF(object,(V916),0);          V883= STREF(object,(V886),0);
4468          goto T1595;          goto T1647;
4469          goto T1597;          goto T1649;
4470  T1597:;{object V918;  T1649:;{object V888;
4471          V918= (VV[147]->s.s_dbind);          V888= (VV[162]->s.s_dbind);
4472          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4473          base[3]= (V916);          base[3]= (V886);
4474          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4475          (void) (*Lnk233)();          (void) (*Lnk248)();
4476          vs_top=sup;          vs_top=sup;
4477          V919= vs_base[0];          V889= vs_base[0];
4478          if(!((V918)==(CMPcar(V919)))){          if(!((V888)==(CMPcar(V889)))){
4479          goto T1602;}}          goto T1654;}}
4480          V913= CMPcar(((V916))->cc.cc_turbo[13]);          V883= CMPcar(((V886))->cc.cc_turbo[13]);
4481          goto T1595;          goto T1647;
4482          goto T1602;          goto T1654;
4483  T1602:;  T1654:;
4484          if(!(type_of((V916))==t_structure)){          if(!(type_of((V886))==t_structure)){
4485          goto T1608;}          goto T1660;}
4486          V913= (*(LnkLI235))((V916));          V883= (*(LnkLI250))((V886));
4487          goto T1595;          goto T1647;
4488          goto T1608;          goto T1660;
4489  T1608:;  T1660:;
4490          if(!(type_of((V916))==t_symbol)){          if(!(type_of((V886))==t_symbol)){
4491          goto T1611;}          goto T1663;}
4492          if(((V916))==Cnil){          if(((V886))==Cnil){
4493          goto T1614;}          goto T1666;}
4494          V913= (VV[148]->s.s_dbind);          V883= (VV[163]->s.s_dbind);
4495          goto T1595;          goto T1647;
4496          goto T1614;          goto T1666;
4497  T1614:;  T1666:;
4498          V913= (VV[149]->s.s_dbind);          V883= (VV[164]->s.s_dbind);
4499          goto T1595;          goto T1647;
4500          goto T1611;          goto T1663;
4501  T1611:;  T1663:;
4502          V913= (*(LnkLI236))((V916));          V883= (*(LnkLI251))((V886));
4503          goto T1595;          goto T1647;
4504  T1595:;  T1647:;
4505          if((Ct)==(((V913))->v.v_self[8])){          if((Ct)==(((V883))->v.v_self[8])){
4506          goto T1616;}          goto T1668;}
4507          V913= (*(LnkLI237))((V916));          V883= (*(LnkLI252))((V886));
4508          goto T1616;          goto T1668;
4509  T1616:;  T1668:;
4510          {register object V920;          {register object V890;
4511          register object V921;          register object V891;
4512          V920= (V914);          V890= (V884);
4513          V921= (V913);          V891= (V883);
4514          ((V920))->c.c_car = (V921);}          ((V890))->c.c_car = (V891);}
4515          V915= CMPcdr((V915));          V885= CMPcdr((V885));
4516          V916= CMPcar((V915));          V886= CMPcar((V885));
4517          goto T1589;}          goto T1641;}
4518          goto T1585;          goto T1637;
4519  T1585:;  T1637:;
4520          V914= CMPcdr((V914));          V884= CMPcdr((V884));
4521          if(!((V911)==(1))){          if(!((V881)==(1))){
4522          goto T1631;}          goto T1683;}
4523          V912= CMPcar((V912));          V882= CMPcar((V882));
4524          goto T1631;          goto T1683;
4525  T1631:;  T1683:;
4526          {object V922 = (V912);          {object V892 = (V882);
4527          VMR66(V922)}}          VMR66(V892)}}
4528          va_end(ap);          va_end(ap);
4529          base[0]=base[0];          base[0]=base[0];
4530          return Cnil;}          return Cnil;}
4531          }          }
4532  /*      local entry for function PV-WRAPPERS-FROM-ALL-ARGS      */  /*      local entry for function PV-WRAPPERS-FROM-ALL-ARGS      */
4533    
4534  static object LI70(V925,V926)  static object LI70(V895,V896)
4535    
4536  object V925;register object V926;  object V895;register object V896;
4537  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
4538          goto TTL;          goto TTL;
4539  TTL:;  TTL:;
4540          {long V927;          {long V897;
4541          object V928;          object V898;
4542          V927= 0;          V897= 0;
4543          V928= STREF(object,(V925),8);          V898= STREF(object,(V895),8);
4544          {register object V929;          {register object V899;
4545          object V930;          object V900;
4546          V929= (V928);          V899= (V898);
4547          V930= CMPcar((V929));          V900= CMPcar((V899));
4548          goto T1641;          goto T1693;
4549  T1641:;  T1693:;
4550          if(!(((V929))==Cnil)){          if(!(((V899))==Cnil)){
4551          goto T1642;}          goto T1694;}
4552          goto T1637;          goto T1689;
4553          goto T1642;          goto T1694;
4554  T1642:;  T1694:;
4555          if(((V930))==Cnil){          if(((V900))==Cnil){
4556          goto T1646;}          goto T1698;}
4557          V927= (long)(V927)+(1);          V897= (long)(V897)+(1);
4558          goto T1646;          goto T1698;
4559  T1646:;  T1698:;
4560          V929= CMPcdr((V929));          V899= CMPcdr((V899));
4561          V930= CMPcar((V929));          V900= CMPcar((V899));
4562          goto T1641;}          goto T1693;}
4563          goto T1637;          goto T1689;
4564  T1637:;  T1689:;
4565          {object V931;          {object V901;
4566          register object V932;          register object V902;
4567          base[1]= CMPmake_fixnum(V927);          base[1]= CMPmake_fixnum(V897);
4568          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4569          Lmake_list();          Lmake_list();
4570          vs_top=sup;          vs_top=sup;
4571          V931= vs_base[0];          V901= vs_base[0];
4572          V932= (V931);          V902= (V901);
4573          {register object V933;          {register object V903;
4574          object V934;          object V904;
4575          V933= (V928);          V903= (V898);
4576          V934= CMPcar((V933));          V904= CMPcar((V903));
4577          goto T1662;          goto T1714;
4578  T1662:;  T1714:;
4579          if(!(((V933))==Cnil)){          if(!(((V903))==Cnil)){
4580          goto T1663;}          goto T1715;}
4581          goto T1658;          goto T1710;
4582          goto T1663;          goto T1715;
4583  T1663:;  T1715:;
4584          if(((V934))==Cnil){          if(((V904))==Cnil){
4585          goto T1667;}          goto T1719;}
4586          {object V935;          {object V905;
4587          register object V936;          register object V906;
4588          V935= CMPcar((V926));          V905= CMPcar((V896));
4589          V936= (*(LnkLI238))((V935));          V906= (*(LnkLI253))((V905));
4590          if(((V936))!=Cnil){          if(((V906))!=Cnil){
4591          goto T1672;}          goto T1724;}
4592          base[4]= VV[150];          base[4]= VV[165];
4593          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4594          Lerror();          Lerror();
4595          vs_top=sup;          vs_top=sup;
4596          goto T1672;          goto T1724;
4597  T1672:;  T1724:;
4598          {register object V938;          {register object V908;
4599          V938= (V936);          V908= (V906);
4600          (V932)->c.c_car = (V938);}          (V902)->c.c_car = (V908);}
4601          V932= CMPcdr((V932));}          V902= CMPcdr((V902));}
4602          goto T1667;          goto T1719;
4603  T1667:;  T1719:;
4604          V926= CMPcdr((V926));          V896= CMPcdr((V896));
4605          V933= CMPcdr((V933));          V903= CMPcdr((V903));
4606          V934= CMPcar((V933));          V904= CMPcar((V903));
4607          goto T1662;}          goto T1714;}
4608          goto T1658;          goto T1710;
4609  T1658:;  T1710:;
4610          if(!((V927)==(1))){          if(!((V897)==(1))){
4611          goto T1687;}          goto T1739;}
4612          V931= CMPcar((V931));          V901= CMPcar((V901));
4613          goto T1687;          goto T1739;
4614  T1687:;  T1739:;
4615          {object V939 = (V931);          {object V909 = (V901);
4616          VMR67(V939)}}}          VMR67(V909)}}}
4617          base[0]=base[0];          base[0]=base[0];
4618          return Cnil;          return Cnil;
4619  }  }
4620  /*      local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS  */  /*      local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS  */
4621    
4622  static object LI71(V942,V943)  static object LI71(V912,V913)
4623    
4624  object V942;register object V943;  object V912;register object V913;
4625  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
4626          goto TTL;          goto TTL;
4627  TTL:;  TTL:;
4628          {long V944;          {long V914;
4629          object V945;          object V915;
4630          V944= 0;          V914= 0;
4631          V945= STREF(object,(V942),8);          V915= STREF(object,(V912),8);
4632          {register object V946;          {register object V916;
4633          object V947;          object V917;
4634          V946= (V945);          V916= (V915);
4635          V947= CMPcar((V946));          V917= CMPcar((V916));
4636          goto T1697;          goto T1749;
4637  T1697:;  T1749:;
4638          if(!(((V946))==Cnil)){          if(!(((V916))==Cnil)){
4639          goto T1698;}          goto T1750;}
4640          goto T1693;          goto T1745;
4641          goto T1698;          goto T1750;
4642  T1698:;  T1750:;
4643          if(((V947))==Cnil){          if(((V917))==Cnil){
4644          goto T1702;}          goto T1754;}
4645          V944= (long)(V944)+(1);          V914= (long)(V914)+(1);
4646          goto T1702;          goto T1754;
4647  T1702:;  T1754:;
4648          V946= CMPcdr((V946));          V916= CMPcdr((V916));
4649          V947= CMPcar((V946));          V917= CMPcar((V916));
4650          goto T1697;}          goto T1749;}
4651          goto T1693;          goto T1745;
4652  T1693:;  T1745:;
4653          {object V948;          {object V918;
4654          register object V949;          register object V919;
4655          base[1]= CMPmake_fixnum(V944);          base[1]= CMPmake_fixnum(V914);
4656          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4657          Lmake_list();          Lmake_list();
4658          vs_top=sup;          vs_top=sup;
4659          V948= vs_base[0];          V918= vs_base[0];
4660          V949= (V948);          V919= (V918);
4661          {register object V950;          {register object V920;
4662          object V951;          object V921;
4663          V950= (V945);          V920= (V915);
4664          V951= CMPcar((V950));          V921= CMPcar((V920));
4665          goto T1718;          goto T1770;
4666  T1718:;  T1770:;
4667          if(!(((V950))==Cnil)){          if(!(((V920))==Cnil)){
4668          goto T1719;}          goto T1771;}
4669          goto T1714;          goto T1766;
4670          goto T1719;          goto T1771;
4671  T1719:;  T1771:;
4672          if(((V951))==Cnil){          if(((V921))==Cnil){
4673          goto T1723;}          goto T1775;}
4674          {register object V952;          {register object V922;
4675          V952= CMPcar((V943));          V922= CMPcar((V913));
4676          if(((V952))!=Cnil){          if(((V922))!=Cnil){
4677          goto T1727;}          goto T1779;}
4678          base[2]= VV[151];          base[2]= VV[166];
4679          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4680          Lerror();          Lerror();
4681          vs_top=sup;          vs_top=sup;
4682          goto T1727;          goto T1779;
4683  T1727:;  T1779:;
4684          {register object V954;          {register object V924;
4685          V954= (V952);          V924= (V922);
4686          (V949)->c.c_car = (V954);}          (V919)->c.c_car = (V924);}
4687          V949= CMPcdr((V949));}          V919= CMPcdr((V919));}
4688          goto T1723;          goto T1775;
4689  T1723:;  T1775:;
4690          V943= CMPcdr((V943));          V913= CMPcdr((V913));
4691          V950= CMPcdr((V950));          V920= CMPcdr((V920));
4692          V951= CMPcar((V950));          V921= CMPcar((V920));
4693          goto T1718;}          goto T1770;}
4694          goto T1714;          goto T1766;
4695  T1714:;  T1766:;
4696          if(!((V944)==(1))){          if(!((V914)==(1))){
4697          goto T1742;}          goto T1794;}
4698          V948= CMPcar((V948));          V918= CMPcar((V918));
4699          goto T1742;          goto T1794;
4700  T1742:;  T1794:;
4701          {object V955 = (V948);          {object V925 = (V918);
4702          VMR68(V955)}}}          VMR68(V925)}}}
4703          base[0]=base[0];          base[0]=base[0];
4704          return Cnil;          return Cnil;
4705  }  }
# Line 4696  register object *base0; Line 4710  register object *base0;
4710  {       register object *base=vs_base;  {       register object *base=vs_base;
4711          register object *sup=base+VM69; VC69          register object *sup=base+VM69; VC69
4712          vs_check;          vs_check;
4713          {register object V956;          {register object V926;
4714          object V957;          object V927;
4715          check_arg(2);          check_arg(2);
4716          V956=(base[0]);          V926=(base[0]);
4717          V957=(base[1]);          V927=(base[1]);
4718          vs_top=sup;          vs_top=sup;
4719          if(((base0[2]->c.c_car))!=Cnil){          if(((base0[2]->c.c_car))!=Cnil){
4720          goto T1746;}          goto T1798;}
4721          (base0[2]->c.c_car)= (*(LnkLI229))((base0[4]->c.c_car));          (base0[2]->c.c_car)= (*(LnkLI244))((base0[4]->c.c_car));
4722          goto T1746;          goto T1798;
4723  T1746:;  T1798:;
4724          {object V958;          {object V928;
4725          register object V959;          register object V929;
4726          object V960;          object V930;
4727          object V961;          object V931;
4728          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
4729          goto T1752;}          goto T1804;}
4730          V958= (VFUN_NARGS=3,(*(LnkLI239))((base0[3]->c.c_car),(V956),(base0[2]->c.c_car)));          V928= (VFUN_NARGS=3,(*(LnkLI254))((base0[3]->c.c_car),(V926),(base0[2]->c.c_car)));
4731          goto T1750;          goto T1802;
4732          goto T1752;          goto T1804;
4733  T1752:;  T1804:;
4734          V958= Cnil;          V928= Cnil;
4735          goto T1750;          goto T1802;
4736  T1750:;  T1802:;
4737          V959= CMPcar((V957));          V929= CMPcar((V927));
4738          V960= CMPcdr((V957));          V930= CMPcdr((V927));
4739          if(((V959))==Cnil){          if(((V929))==Cnil){
4740          goto T1758;}          goto T1810;}
4741          if(type_of(V959)==t_structure){          if(type_of(V929)==t_structure){
4742          goto T1764;}          goto T1816;}
4743          goto T1762;          goto T1814;
4744          goto T1764;          goto T1816;
4745  T1764:;  T1816:;
4746          if(!(((V959)->str.str_def)==(VV[144]))){          if(!(((V929)->str.str_def)==(VV[159]))){
4747          goto T1762;}          goto T1814;}
4748          base[6]= (V959);          base[6]= (V929);
4749          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
4750          (void) (*Lnk241)(Lclptr241);          (void) (*Lnk256)(Lclptr256);
4751          vs_top=sup;          vs_top=sup;
4752          V962= vs_base[0];          V932= vs_base[0];
4753          goto T1760;          goto T1812;
4754          goto T1762;          goto T1814;
4755  T1762:;  T1814:;
4756          V962= (V959);          V932= (V929);
4757          goto T1760;          goto T1812;
4758  T1760:;  T1812:;
4759          V964= make_cons((V960),Cnil);          V934= make_cons((V930),Cnil);
4760          V961= (VFUN_NARGS=4,(*(LnkLI240))(VV[124],V962,VV[138],/* INLINE-ARGS */V964));          V931= (VFUN_NARGS=4,(*(LnkLI255))(VV[140],V932,VV[154],/* INLINE-ARGS */V934));
4761          goto T1756;          goto T1808;
4762          goto T1758;          goto T1810;
4763  T1758:;  T1810:;
4764          V961= Cnil;          V931= Cnil;
4765          goto T1756;          goto T1808;
4766  T1756:;  T1808:;
4767          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
4768          goto T1768;}          goto T1820;}
4769          {object V965;          {object V935;
4770          object V966;          object V936;
4771          V965= nthcdr(fix((base0[1]->c.c_car)),(V956));          V935= nthcdr(fix((base0[1]->c.c_car)),(V926));
4772          base[8]= (V956);          base[8]= (V926);
4773          base[9]= (V965);          base[9]= (V935);
4774          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4775          Lldiff();          Lldiff();
4776          vs_top=sup;          vs_top=sup;
4777          V966= vs_base[0];          V936= vs_base[0];
4778          base[8]= (base0[4]->c.c_car);          base[8]= (base0[4]->c.c_car);
4779          base[9]= (V958);          base[9]= (V928);
4780          base[10]= (V961);          base[10]= (V931);
4781          {object V967;          {object V937;
4782          V968= make_cons((V965),Cnil);          V938= make_cons((V935),Cnil);
4783          V967= nconc((V966),/* INLINE-ARGS */V968);          V937= nconc((V936),/* INLINE-ARGS */V938);
4784           vs_top=base+11;           vs_top=base+11;
4785           while(V967!=Cnil)           while(V937!=Cnil)
4786           {vs_push((V967)->c.c_car);V967=(V967)->c.c_cdr;}           {vs_push((V937)->c.c_car);V937=(V937)->c.c_cdr;}
4787          vs_base=base+9;}          vs_base=base+9;}
4788          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4789                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4790                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4791                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4792          return;}          return;}
4793          goto T1768;          goto T1820;
4794  T1768:;  T1820:;
4795          base[6]= (base0[4]->c.c_car);          base[6]= (base0[4]->c.c_car);
4796          base[7]= (V958);          base[7]= (V928);
4797          base[8]= (V961);          base[8]= (V931);
4798          {object V969;          {object V939;
4799          V969= (V956);          V939= (V926);
4800           vs_top=base+9;           vs_top=base+9;
4801           while(V969!=Cnil)           while(V939!=Cnil)
4802           {vs_push((V969)->c.c_car);V969=(V969)->c.c_cdr;}           {vs_push((V939)->c.c_car);V939=(V939)->c.c_cdr;}
4803          vs_base=base+7;}          vs_base=base+7;}
4804          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4805                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4801  register object *base0; Line 4815  register object *base0;
4815  {       register object *base=vs_base;  {       register object *base=vs_base;
4816          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
4817          vs_check;          vs_check;
4818          {object V970;          {object V940;
4819          object V971;          object V941;
4820          check_arg(2);          check_arg(2);
4821          V970=(base[0]);          V940=(base[0]);
4822          V971=(base[1]);          V941=(base[1]);
4823          vs_top=sup;          vs_top=sup;
4824          {object V973;          {object V943;
4825          V973= (*(LnkLI242))((V970),CMPcar((V971)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car));          V943= (*(LnkLI257))((V940),CMPcar((V941)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car));
4826          (V971)->c.c_car = (V973);          (V941)->c.c_car = (V943);
4827          base[3]= (V973);          base[3]= (V943);
4828          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4829          return;}          return;}
4830          }          }
# Line 4822  register object *base0; Line 4836  register object *base0;
4836  {       register object *base=vs_base;  {       register object *base=vs_base;
4837          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
4838          vs_check;          vs_check;
4839          {object V974;          {object V944;
4840          register object V975;          register object V945;
4841          check_arg(2);          check_arg(2);
4842          V974=(base[0]);          V944=(base[0]);
4843          V975=(base[1]);          V945=(base[1]);
4844          vs_top=sup;          vs_top=sup;
4845          base[2]= V974;          base[2]= V944;
4846          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
4847          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4848          Ladjoin();          Ladjoin();
# Line 4846  register object *base0; Line 4860  register object *base0;
4860  {       register object *base=vs_base;  {       register object *base=vs_base;
4861          register object *sup=base+VM72; VC72          register object *sup=base+VM72; VC72
4862          vs_check;          vs_check;
4863          {object V977;          {object V947;
4864          check_arg(1);          check_arg(1);
4865          V977=(base[0]);          V947=(base[0]);
4866          vs_top=sup;          vs_top=sup;
4867          goto TTL;          goto TTL;
4868  TTL:;{object V978;  TTL:;{object V948;
4869          base[1]= (V977);          base[1]= (V947);
4870          base[2]= (VV[16]->s.s_dbind);          base[2]= (VV[16]->s.s_dbind);
4871          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4872          Lgethash();          Lgethash();
4873          vs_top=sup;          vs_top=sup;
4874          V978= vs_base[0];          V948= vs_base[0];
4875          if(V978==Cnil)goto T1787;          if(V948==Cnil)goto T1839;
4876          base[1]= V978;          base[1]= V948;
4877          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4878          return;          return;
4879          goto T1787;          goto T1839;
4880  T1787:;}  T1839:;}
4881          {object V980;          {object V950;
4882          object V981;          object V951;
4883          V980= (VV[16]->s.s_dbind);          V950= (VV[16]->s.s_dbind);
4884          {object V982;          {object V952;
4885          object V983;          object V953;
4886          base[2]= CMPcdr((V977));          base[2]= CMPcdr((V947));
4887          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4888          Lcopy_list();          Lcopy_list();
4889          vs_top=sup;          vs_top=sup;
4890          V982= vs_base[0];          V952= vs_base[0];
4891          V983= CMPcar((V977));          V953= CMPcar((V947));
4892          base0[0]= Ct;          base0[0]= Ct;
4893          V981= (VFUN_NARGS=4,(*(LnkLI243))(VV[17],(V982),VV[18],(V983)));}          V951= (VFUN_NARGS=4,(*(LnkLI258))(VV[17],(V952),VV[18],(V953)));}
4894          base[2]= V977;          base[2]= V947;
4895          base[3]= (V980);          base[3]= (V950);
4896          base[4]= (V981);          base[4]= (V951);
4897          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4898          siLhash_set();          siLhash_set();
4899          return;}          return;}
# Line 4892  register object *base0; Line 4906  register object *base0;
4906  {       register object *base=vs_base;  {       register object *base=vs_base;
4907          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
4908          vs_check;          vs_check;
4909          {object V984;          {object V954;
4910          check_arg(1);          check_arg(1);
4911          V984=(base[0]);          V954=(base[0]);
4912          vs_top=sup;          vs_top=sup;
4913          goto TTL;          goto TTL;
4914  TTL:;{object V985;  TTL:;{object V955;
4915          base[1]= (V984);          base[1]= (V954);
4916          base[2]= (VV[15]->s.s_dbind);          base[2]= (VV[15]->s.s_dbind);
4917          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4918          Lgethash();          Lgethash();
4919          vs_top=sup;          vs_top=sup;
4920          V985= vs_base[0];          V955= vs_base[0];
4921          if(V985==Cnil)goto T1801;          if(V955==Cnil)goto T1853;
4922          base[1]= V985;          base[1]= V955;
4923          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4924          return;          return;
4925          goto T1801;          goto T1853;
4926  T1801:;}  T1853:;}
4927          {object V987;          {object V957;
4928          object V988;          object V958;
4929          V987= (VV[15]->s.s_dbind);          V957= (VV[15]->s.s_dbind);
4930          base[2]= (V984);          base[2]= (V954);
4931          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4932          Lcopy_list();          Lcopy_list();
4933          vs_top=sup;          vs_top=sup;
4934          V988= vs_base[0];          V958= vs_base[0];
4935          base[2]= V984;          base[2]= V954;
4936          base[3]= (V987);          base[3]= (V957);
4937          base[4]= (V988);          base[4]= (V958);
4938          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4939          siLhash_set();          siLhash_set();
4940          return;}          return;}
4941          }          }
4942  }  }
4943  static object  LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */  static object  LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[258],(void **)(void *)&LnkLI258,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */
4944  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */  static object  LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[257],(void **)(void *)&LnkLI257,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */
4945  static void LnkT241(ptr) object *ptr;{ call_or_link_closure(VV[241],(void **)(void *)&Lnk241,(void **)(void *)&Lclptr241);} /* METHOD-FUNCTION */  static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* METHOD-FUNCTION */
4946  static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[240],(void **)(void *)&LnkLI240,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */  static object  LnkTLI255(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[255],(void **)(void *)&LnkLI255,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */
4947  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */  static object  LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[254],(void **)(void *)&LnkLI254,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */
4948  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI253(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[253],(void **)(void *)&LnkLI253,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
4949  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
4950  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */  static object  LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */
4951  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */
4952  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[249],(void **)(void *)&LnkLI249,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
4953  static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* CCLOSURE-ENV-NTHCDR */
4954  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[232],(void **)(void *)&LnkLI232,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */  static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */
4955  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */  static object  LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */
4956  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */  static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */
4957  static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */
4958  static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* SET-FUNCTION-NAME */  static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* SET-FUNCTION-NAME */
4959  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[227],(void **)(void *)&LnkLI227,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[242],(void **)(void *)&LnkLI242,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
4960  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* SPLIT-DECLARATIONS */  static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* SPLIT-DECLARATIONS */
4961  static object  LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,5,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL1 */  static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,5,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL1 */
4962  static void LnkT225(){ call_or_link(VV[225],(void **)(void *)&Lnk225);} /* WARN */  static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* WARN */
4963  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,1,first,ap);va_end(ap);return V1;} /* MAKE-CALLS-TYPE-DECLARATION */  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* MAKE-CALLS-TYPE-DECLARATION */
4964  static object  LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[223],(void **)(void *)&LnkLI223,1,first,ap);va_end(ap);return V1;} /* MAKE-PV-TYPE-DECLARATION */  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* MAKE-PV-TYPE-DECLARATION */
4965  static void LnkT222(){ call_or_link(VV[222],(void **)(void *)&Lnk222);} /* SORT */  static void LnkT237(){ call_or_link(VV[237],(void **)(void *)&Lnk237);} /* SORT */
4966  static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* TYPECASE-ERROR-STRING */  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,2,first,ap);va_end(ap);return V1;} /* SYMBOL-LESSP */
4967  static object  LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,2,first,ap);va_end(ap);return V1;} /* SYMBOL-LESSP */  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* SYMBOL-PKG-NAME */
4968  static object  LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[218],(void **)(void *)&LnkLI218,1,first,ap);va_end(ap);return V1;} /* SYMBOL-PKG-NAME */  static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* SORT-CALLS */
4969  static object  LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,1,first,ap);va_end(ap);return V1;} /* SORT-CALLS */  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* SORT-SLOTS */
4970  static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* SORT-SLOTS */  static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* VECTOR */
4971  static void LnkT215(){ call_or_link(VV[215],(void **)(void *)&Lnk215);} /* VECTOR */  static void LnkT230(){ call_or_link(VV[230],(void **)(void *)&Lnk230);} /* MUTATE-SLOTS-AND-CALLS */
4972  static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* MUTATE-SLOTS-AND-CALLS */  static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
4973  static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* GENERATE-FAST-CLASS-SLOT-ACCESS-P */
4974  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* GENERATE-FAST-CLASS-SLOT-ACCESS-P */  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* SLOT-VECTOR-SYMBOL */
4975  static object  LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[211],(void **)(void *)&LnkLI211,1,first,ap);va_end(ap);return V1;} /* SLOT-VECTOR-SYMBOL */  static object  LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,3,first,ap);va_end(ap);return V1;} /* SKIP-FAST-SLOT-ACCESS-P */
4976  static object  LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,3,first,ap);va_end(ap);return V1;} /* SKIP-FAST-SLOT-ACCESS-P */  static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,3,first,ap);va_end(ap);return V1;} /* SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */
4977  static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,3,first,ap);va_end(ap);return V1;} /* SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */  static void LnkT224(ptr) object *ptr;{ call_or_link_closure(VV[224],(void **)(void *)&Lnk224,(void **)(void *)&Lclptr224);} /* SLOT-DEFINITION-ALLOCATION */
4978  static void LnkT208(ptr) object *ptr;{ call_or_link_closure(VV[208],(void **)(void *)&Lnk208,(void **)(void *)&Lclptr208);} /* SLOT-DEFINITION-ALLOCATION */  static void LnkT223(ptr) object *ptr;{ call_or_link_closure(VV[223],(void **)(void *)&Lnk223,(void **)(void *)&Lclptr223);} /* STANDARD-CLASS-P */
4979  static void LnkT207(ptr) object *ptr;{ call_or_link_closure(VV[207],(void **)(void *)&Lnk207,(void **)(void *)&Lclptr207);} /* STANDARD-CLASS-P */  static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GF-CALL-INTERNAL */
4980  static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GF-CALL-INTERNAL */  static void LnkT219(){ call_or_link(VV[219],(void **)(void *)&Lnk219);} /* POSITION */
4981  static void LnkT203(){ call_or_link(VV[203],(void **)(void *)&Lnk203);} /* POSITION */  static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */
4982  static void LnkT202(ptr) object *ptr;{ call_or_link_closure(VV[202],(void **)(void *)&Lnk202,(void **)(void *)&Lclptr202);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */  static void LnkT217(ptr) object *ptr;{ call_or_link_closure(VV[217],(void **)(void *)&Lnk217,(void **)(void *)&Lclptr217);} /* CLASSP */
4983  static void LnkT201(ptr) object *ptr;{ call_or_link_closure(VV[201],(void **)(void *)&Lnk201,(void **)(void *)&Lclptr201);} /* CLASSP */  static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-ACCESSOR-CALL */
4984  static object  LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-ACCESSOR-CALL */  static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-INSTANCE-ACCESS */
4985  static object  LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-INSTANCE-ACCESS */  static void LnkT214(ptr) object *ptr;{ call_or_link_closure(VV[214],(void **)(void *)&Lnk214,(void **)(void *)&Lclptr214);} /* CLASS-PRECEDENCE-LIST */
4986  static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* CLASS-PRECEDENCE-LIST */  static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* CLASS-FINALIZED-P */
4987  static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* CLASS-FINALIZED-P */  static object  LnkTLI212(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[212],(void **)(void *)&LnkLI212,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
4988  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[196],(void **)(void *)&LnkLI196,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[211],(void **)(void *)&LnkLI211,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */
4989  static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* ERROR */
4990  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */  static object  LnkTLI206(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[206],(void **)(void *)&LnkLI206,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */
4991  static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-WRITER */  static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-WRITER */
4992  static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-READER */  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-READER */
4993  static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS1 */  static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)(void *)&LnkLI202,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS1 */
4994  static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* SOME */  static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* SOME */
4995  static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */  static object  LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */
4996  static void LnkT183(ptr) object *ptr;{ call_or_link_closure(VV[183],(void **)(void *)&Lnk183,(void **)(void *)&Lclptr183);} /* GF-ARG-INFO */  static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* GF-ARG-INFO */
4997  static void LnkT182(ptr) object *ptr;{ call_or_link_closure(VV[182],(void **)(void *)&Lnk182,(void **)(void *)&Lclptr182);} /* GENERIC-FUNCTION-NAME */  static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* GENERIC-FUNCTION-NAME */
4998  static void LnkT181(ptr) object *ptr;{ call_or_link_closure(VV[181],(void **)(void *)&Lnk181,(void **)(void *)&Lclptr181);} /* GENERIC-FUNCTION-METHODS */  static void LnkT196(ptr) object *ptr;{ call_or_link_closure(VV[196],(void **)(void *)&Lnk196,(void **)(void *)&Lclptr196);} /* GENERIC-FUNCTION-METHODS */
4999  static void LnkT180(ptr) object *ptr;{ call_or_link_closure(VV[180],(void **)(void *)&Lnk180,(void **)(void *)&Lclptr180);} /* GENERIC-FUNCTION-P */  static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* GENERIC-FUNCTION-P */
5000  static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */  static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */
5001  static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* COERCE */  static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* COERCE */
5002  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[177],(void **)(void *)&LnkLI177,first,ap);va_end(ap);return V1;} /* MAP-CACHE */  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[192],(void **)(void *)&LnkLI192,first,ap);va_end(ap);return V1;} /* MAP-CACHE */
5003  static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,2,first,ap);va_end(ap);return V1;} /* MAP-PV-TABLE-REFERENCES-OF */  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,2,first,ap);va_end(ap);return V1;} /* MAP-PV-TABLE-REFERENCES-OF */
5004  static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-WRAPPER */  static void LnkT190(ptr) object *ptr;{ call_or_link_closure(VV[190],(void **)(void *)&Lnk190,(void **)(void *)&Lclptr190);} /* CLASS-WRAPPER */
5005  static object  LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,2,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-PV-TABLE-CACHES */  static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)(void *)&LnkLI189,2,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-PV-TABLE-CACHES */
5006  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */  static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */
5007  static object  LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[172],(void **)(void *)&LnkLI172,first,ap);va_end(ap);return V1;} /* FILL-CACHE */  static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* FILL-CACHE */
5008  static object  LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,2,first,ap);va_end(ap);return V1;} /* COMPUTE-CALLS */  static object  LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,2,first,ap);va_end(ap);return V1;} /* COMPUTE-CALLS */
5009  static object  LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,2,first,ap);va_end(ap);return V1;} /* COMPUTE-PV */  static object  LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,2,first,ap);va_end(ap);return V1;} /* COMPUTE-PV */
5010  static object  LnkTLI169(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[169],(void **)(void *)&LnkLI169,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */  static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)(void *)&LnkLI184,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */
5011  static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* COUNT */  static void LnkT182(){ call_or_link(VV[182],(void **)(void *)&Lnk182);} /* COUNT */
5012  static object  LnkTLI166(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[166],(void **)(void *)&LnkLI166,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */
5013  static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* MAKE-ARRAY */  static void LnkT180(){ call_or_link(VV[180],(void **)(void *)&Lnk180);} /* MAKE-ARRAY */
5014  static object  LnkTLI164(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[164],(void **)(void *)&LnkLI164,1,first,ap);va_end(ap);return V1;} /* MAKE-PERMUTATION-VECTOR */  static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* MAKE-PERMUTATION-VECTOR */
5015  static object  LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,5,first,ap);va_end(ap);return V1;} /* COMPUTE-PV-SLOT */  static object  LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[178],(void **)(void *)&LnkLI178,5,first,ap);va_end(ap);return V1;} /* COMPUTE-PV-SLOT */
5016  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* ACCESSOR-VALUES1 */  static void LnkT177(){ call_or_link(VV[177],(void **)(void *)&Lnk177);} /* ACCESSOR-VALUES1 */
5017  static object  LnkTLI161(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[161],(void **)(void *)&LnkLI161,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
5018  static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* OPTIMIZE-SLOT-VALUE-BY-CLASS-P */  static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* OPTIMIZE-SLOT-VALUE-BY-CLASS-P */
5019  static void LnkT159(ptr) object *ptr;{ call_or_link_closure(VV[159],(void **)(void *)&Lnk159,(void **)(void *)&Lclptr159);} /* SLOT-ACCESSOR-STD-P */  static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* SLOT-ACCESSOR-STD-P */
5020  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
5021  static object  LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[157],(void **)(void *)&LnkLI157,3,first,ap);va_end(ap);return V1;} /* NOTE-PV-TABLE-REFERENCE */  static object  LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)(void *)&LnkLI172,3,first,ap);va_end(ap);return V1;} /* NOTE-PV-TABLE-REFERENCE */
5022  static object  LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,2,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE-INTERNAL */  static object  LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,2,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE-INTERNAL */
5023  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */  static object  LnkTLI167(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[167],(void **)(void *)&LnkLI167,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */
5024    
5025  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5026  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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