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

Diff of /gcl/pcl/pcl_fast_init.c

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

revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:17 2003 UTC
# Line 21  T1:; Line 21  T1:;
21  T2:;  T2:;
22          if(!(type_of((V1))==t_symbol)){          if(!(type_of((V1))==t_symbol)){
23          goto T4;}          goto T4;}
24          V1= (VFUN_NARGS=1,(*(LnkLI217))((V1)));          V1= (VFUN_NARGS=1,(*(LnkLI243))((V1)));
25          goto T4;          goto T4;
26  T4:;  T4:;
27          if(!(((V1))==((VV[0]->s.s_dbind)))){          if(!(((V1))==((VV[0]->s.s_dbind)))){
# Line 32  T8:;{object V3; Line 32  T8:;{object V3;
32          V3= (VV[1]->s.s_dbind);          V3= (VV[1]->s.s_dbind);
33          base[1]= (V1);          base[1]= (V1);
34          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
35          (void) (*Lnk218)(Lclptr218);          (void) (*Lnk244)(Lclptr244);
36          vs_top=sup;          vs_top=sup;
37          V4= vs_base[0];          V4= vs_base[0];
38          {register object x= V3,V2= V4;          {register object x= V3,V2= V4;
# Line 43  T8:;{object V3; Line 43  T8:;{object V3;
43          goto T13;}}          goto T13;}}
44          goto T14;          goto T14;
45  T14:;  T14:;
46          base[1]= (VV[219]->s.s_gfdef);          base[1]= (VV[245]->s.s_gfdef);
47          base[2]= (V1);          base[2]= (V1);
48          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
49          (void) (*Lnk220)();          (void) (*Lnk246)();
50          return;          return;
51          goto T13;          goto T13;
52  T13:;  T13:;
# Line 114  TTL:; Line 114  TTL:;
114          V16= Cnil;          V16= Cnil;
115          V17= Cnil;          V17= Cnil;
116          V18= Cnil;          V18= Cnil;
117          if(((*(LnkLI221))((V13)))==Cnil){          if(((*(LnkLI247))((V13)))==Cnil){
118          goto T30;}          goto T30;}
119          {register object V19;          {register object V19;
120          V19= (V14);          V19= (V14);
# Line 125  T35:; Line 125  T35:;
125          goto T33;          goto T33;
126          goto T37;          goto T37;
127  T37:;  T37:;
128          if(((*(LnkLI221))(CMPcar((V19))))!=Cnil){          if(((*(LnkLI247))(CMPcar((V19))))!=Cnil){
129          goto T40;}          goto T40;}
130          goto T30;          goto T30;
131          goto T40;          goto T40;
# Line 237  static void L5() Line 237  static void L5()
237  T79:;  T79:;
238          base[4]= (V40->c.c_car);          base[4]= (V40->c.c_car);
239          base[5]= base[1];          base[5]= base[1];
240          base[6]= VV[222];          base[6]= VV[248];
241          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
242          (void) (*Lnk223)();          (void) (*Lnk249)();
243          vs_top=sup;          vs_top=sup;
244          (V39->c.c_car)= vs_base[0];          (V39->c.c_car)= vs_base[0];
245          if((V40=MMcdr(V40))==Cnil){          if((V40=MMcdr(V40))==Cnil){
# Line 299  T88:; Line 299  T88:;
299          {register object V48;          {register object V48;
300          object V49;          object V49;
301          register object V50;          register object V50;
302          V48= (VFUN_NARGS=1,(*(LnkLI224))(CMPcar((V46))));          V48= (VFUN_NARGS=1,(*(LnkLI250))(CMPcar((V46))));
303          V49= CMPcddr((V48));          V49= CMPcddr((V48));
304          V50= make_cons(CMPcadr((V46)),CMPcaddr((V46)));          V50= make_cons(CMPcadr((V46)),CMPcaddr((V46)));
305          base[4]= (V50);          base[4]= (V50);
306          base[5]= (V49);          base[5]= (V49);
307          base[6]= VV[12];          base[6]= VV[12];
308          base[7]= (VV[225]->s.s_gfdef);          base[7]= (VV[251]->s.s_gfdef);
309          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
310          (void) (*Lnk226)();          (void) (*Lnk252)();
311          vs_top=sup;          vs_top=sup;
312          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
313          goto T92;}          goto T92;}
# Line 323  T88:; Line 323  T88:;
323          goto T92;}          goto T92;}
324          base[4]= (V54);          base[4]= (V54);
325          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
326          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk253)(Lclptr253);
327          vs_top=sup;          vs_top=sup;
328          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
329          goto T92;}          goto T92;}
# Line 354  TTL:; Line 354  TTL:;
354          goto T119;}          goto T119;}
355          base[2]= (V58);          base[2]= (V58);
356          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
357          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk254)(Lclptr254);
358          vs_top=sup;          vs_top=sup;
359          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
360          goto T120;}          goto T120;}
# Line 371  T119:; Line 371  T119:;
371  T127:;  T127:;
372          base[5]= (V58);          base[5]= (V58);
373          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
374          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk255)(Lclptr255);
375          vs_top=sup;          vs_top=sup;
376          V60= vs_base[0];          V60= vs_base[0];
377          goto T125;          goto T125;
# Line 382  T125:; Line 382  T125:;
382          goto T134;}          goto T134;}
383          if(!(type_of((V60))==t_symbol)){          if(!(type_of((V60))==t_symbol)){
384          goto T133;}          goto T133;}
385          V63 = (V58);          V63= (VFUN_NARGS=2,(*(LnkLI243))((V60),Cnil));
386          V64= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil));          if(!(((V58))==(/* INLINE-ARGS */V63))){
         if(!((V63)==(/* INLINE-ARGS */V64))){  
387          goto T133;}          goto T133;}
388          goto T134;          goto T134;
389  T134:;  T134:;
# Line 412  T134:; Line 411  T134:;
411          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
412          Lintern();          Lintern();
413          vs_top=sup;          vs_top=sup;
414          {object V65 = vs_base[0];          {object V64 = vs_base[0];
415          bds_unwind1;          bds_unwind1;
416          bds_unwind1;          bds_unwind1;
417          bds_unwind1;          bds_unwind1;
418          bds_unwind1;          bds_unwind1;
419          bds_unwind1;          bds_unwind1;
420          bds_unwind1;          bds_unwind1;
421          VMR8(V65)}          VMR8(V64)}
422          goto T133;          goto T133;
423  T133:;  T133:;
424          {object V66 = Cnil;          {object V65 = Cnil;
425          VMR8(V66)}}          VMR8(V65)}}
426          goto T120;          goto T120;
427  T120:;  T120:;
428          {object V67 = Cnil;          {object V66 = Cnil;
429          VMR8(V67)}}          VMR8(V66)}}
430          base[0]=base[0];          base[0]=base[0];
431          return Cnil;          return Cnil;
432  }  }
# Line 437  static void L9() Line 436  static void L9()
436  {register object *base=vs_base;  {register object *base=vs_base;
437          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
438          vs_check;          vs_check;
439          {object V68;          {object V67;
440          object V69;          object V68;
441          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
442          V68=(base[0]);          V67=(base[0]);
443          vs_base=vs_base+1;          vs_base=vs_base+1;
444          vs_top[0]=Cnil;          vs_top[0]=Cnil;
445          {object *p=vs_top;          {object *p=vs_top;
446           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
447          V69=(base[1]);          V68=(base[1]);
448          vs_top=sup;          vs_top=sup;
449          base[2]=VV[9]->s.s_gfdef;          base[2]=VV[9]->s.s_gfdef;
450          base[3]= (V68);          base[3]= (V67);
451          {object V70;          {object V69;
452          V70= (V69);          V69= (V68);
453           vs_top=base+4;           vs_top=base+4;
454           while(V70!=Cnil)           while(V69!=Cnil)
455           {vs_push((V70)->c.c_car);V70=(V70)->c.c_cdr;}           {vs_push((V69)->c.c_car);V69=(V69)->c.c_cdr;}
456          vs_base=base+3;}          vs_base=base+3;}
457          (void) (*Lnk9)(Lclptr9);          (void) (*Lnk9)(Lclptr9);
458          return;          return;
# Line 467  static void L10() Line 466  static void L10()
466          vs_check;          vs_check;
467          check_arg(2);          check_arg(2);
468          vs_top=sup;          vs_top=sup;
469          {object V71=base[0]->c.c_cdr;          {object V70=base[0]->c.c_cdr;
470          if(endp(V71))invalid_macro_call();          if(endp(V70))invalid_macro_call();
471          base[2]= (V71->c.c_car);          base[2]= (V70->c.c_car);
472          V71=V71->c.c_cdr;          V70=V70->c.c_cdr;
473          if(endp(V71))invalid_macro_call();          if(endp(V70))invalid_macro_call();
474          base[3]= (V71->c.c_car);          base[3]= (V70->c.c_car);
475          V71=V71->c.c_cdr;          V70=V70->c.c_cdr;
476          if(endp(V71))invalid_macro_call();          if(endp(V70))invalid_macro_call();
477          base[4]= (V71->c.c_car);          base[4]= (V70->c.c_car);
478          V71=V71->c.c_cdr;          V70=V70->c.c_cdr;
479          if(!endp(V71))invalid_macro_call();}          if(!endp(V70))invalid_macro_call();}
480          {object V72;          {object V71;
481          object V73;          object V72;
482          base[6]= Cnil;          base[6]= Cnil;
483          base[7]= VV[23];          base[7]= VV[23];
484          base[8]= base[2];          base[8]= base[2];
# Line 491  static void L10() Line 490  static void L10()
490          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
491          Lintern();          Lintern();
492          vs_top=sup;          vs_top=sup;
493          V72= vs_base[0];          V71= vs_base[0];
494          base[6]= Cnil;          base[6]= Cnil;
495          base[7]= VV[24];          base[7]= VV[24];
496          base[8]= base[2];          base[8]= base[2];
# Line 503  static void L10() Line 502  static void L10()
502          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
503          Lintern();          Lintern();
504          vs_top=sup;          vs_top=sup;
505          V73= vs_base[0];          V72= vs_base[0];
506          V74= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V73)),VV[30])));          V73= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V72)),VV[30])));
507          V75= list(2,VV[4],base[4]);          V74= list(2,VV[4],base[4]);
508          V76= list(4,VV[27],/* INLINE-ARGS */V75,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3])));          V75= list(4,VV[27],/* INLINE-ARGS */V74,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3])));
509          base[5]= list(4,VV[25],(V72),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V74,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V76,list(3,VV[27],list(2,VV[4],(V73)),VV[30])),VV[35])));          base[5]= list(4,VV[25],(V71),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V73,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V75,list(3,VV[27],list(2,VV[4],(V72)),VV[30])),VV[35])));
510          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
511          return;}          return;}
512  }  }
# Line 519  static void L11() Line 518  static void L11()
518          vs_check;          vs_check;
519          check_arg(2);          check_arg(2);
520          vs_top=sup;          vs_top=sup;
521          {object V77=base[0]->c.c_cdr;          {object V76=base[0]->c.c_cdr;
522          if(!endp(V77))invalid_macro_call();}          if(!endp(V76))invalid_macro_call();}
523          {object V78;          {object V77;
524          object V79;          object V78;
525          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
526          {object V80;          {object V79;
527          object V81= base[3];          object V80= base[3];
528          if(V81==Cnil){          if(V80==Cnil){
529          V78= Cnil;          V77= Cnil;
530          goto T162;}          goto T162;}
531          base[2]=V80=MMcons(Cnil,Cnil);          base[2]=V79=MMcons(Cnil,Cnil);
532          goto T163;          goto T163;
533  T163:;  T163:;
534          base[5]= Cnil;          base[5]= Cnil;
535          base[6]= VV[36];          base[6]= VV[36];
536          base[7]= (V81->c.c_car);          base[7]= (V80->c.c_car);
537          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
538          Lformat();          Lformat();
539          vs_top=sup;          vs_top=sup;
# Line 542  T163:; Line 541  T163:;
541          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
542          Lintern();          Lintern();
543          vs_top=sup;          vs_top=sup;
544          (V80->c.c_car)= vs_base[0];          (V79->c.c_car)= vs_base[0];
545          if((V81=MMcdr(V81))==Cnil){          if((V80=MMcdr(V80))==Cnil){
546          V78= base[2];          V77= base[2];
547          goto T162;}          goto T162;}
548          V80=MMcdr(V80)=MMcons(Cnil,Cnil);          V79=MMcdr(V79)=MMcons(Cnil,Cnil);
549          goto T163;}          goto T163;}
550          goto T162;          goto T162;
551  T162:;  T162:;
552          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
553          {object V83;          {object V82;
554          object V84= base[3];          object V83= base[3];
555          if(V84==Cnil){          if(V83==Cnil){
556          V79= Cnil;          V78= Cnil;
557          goto T169;}          goto T169;}
558          base[2]=V83=MMcons(Cnil,Cnil);          base[2]=V82=MMcons(Cnil,Cnil);
559          goto T170;          goto T170;
560  T170:;  T170:;
561          base[5]= Cnil;          base[5]= Cnil;
562          base[6]= VV[38];          base[6]= VV[38];
563          base[7]= VV[39];          base[7]= VV[39];
564          base[8]= (V84->c.c_car);          base[8]= (V83->c.c_car);
565          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
566          Lformat();          Lformat();
567          vs_top=sup;          vs_top=sup;
# Line 570  T170:; Line 569  T170:;
569          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
570          Lintern();          Lintern();
571          vs_top=sup;          vs_top=sup;
572          (V83->c.c_car)= vs_base[0];          (V82->c.c_car)= vs_base[0];
573          if((V84=MMcdr(V84))==Cnil){          if((V83=MMcdr(V83))==Cnil){
574          V79= base[2];          V78= base[2];
575          goto T169;}          goto T169;}
576          V83=MMcdr(V83)=MMcons(Cnil,Cnil);          V82=MMcdr(V82)=MMcons(Cnil,Cnil);
577          goto T170;}          goto T170;}
578          goto T169;          goto T169;
579  T169:;  T169:;
580          {object V87;          {object V86;
581          object V88= (V78);          object V87= (V77);
582          if(V88==Cnil){          if(V87==Cnil){
583          V86= Cnil;          V85= Cnil;
584          goto T177;}          goto T177;}
585          base[2]=V87=MMcons(Cnil,Cnil);          base[2]=V86=MMcons(Cnil,Cnil);
586          goto T178;          goto T178;
587  T178:;  T178:;
588          (V87->c.c_car)= list(2,(V88->c.c_car),VV[43]);          (V86->c.c_car)= list(2,(V87->c.c_car),VV[43]);
589          if((V88=MMcdr(V88))==Cnil){          if((V87=MMcdr(V87))==Cnil){
590          V86= base[2];          V85= base[2];
591          goto T177;}          goto T177;}
592          V87=MMcdr(V87)=MMcons(Cnil,Cnil);          V86=MMcdr(V86)=MMcons(Cnil,Cnil);
593          goto T178;}          goto T178;}
594          goto T177;          goto T177;
595  T177:;  T177:;
596          V90= listA(5,VV[40],VV[39],VV[41],VV[42],V86);          V89= listA(5,VV[40],VV[39],VV[41],VV[42],V85);
597          V91= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V79)))));          V90= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V78)))));
598          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
599          {object V93;          {object V92;
600          object V94= base[3];          object V93= base[3];
601          object V95= (V79);          object V94= (V78);
602          if(V94==Cnil||V95==Cnil){          if(V93==Cnil||V94==Cnil){
603          V92= Cnil;          V91= Cnil;
604          goto T180;}          goto T180;}
605          base[2]=V93=MMcons(Cnil,Cnil);          base[2]=V92=MMcons(Cnil,Cnil);
606          goto T181;          goto T181;
607  T181:;  T181:;
608          V98= list(3,VV[55],VV[56],list(2,(V95->c.c_car),VV[30]));          V97= list(3,VV[55],VV[56],list(2,(V94->c.c_car),VV[30]));
609          (V93->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V98,list(3,VV[57],list(2,VV[4],(V94->c.c_car)),VV[58]));          (V92->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V97,list(3,VV[57],list(2,VV[4],(V93->c.c_car)),VV[58]));
610          if((V94=MMcdr(V94))==Cnil||(V95=MMcdr(V95))==Cnil){          if((V93=MMcdr(V93))==Cnil||(V94=MMcdr(V94))==Cnil){
611          V92= base[2];          V91= base[2];
612          goto T180;}          goto T180;}
613          V93=MMcdr(V93)=MMcons(Cnil,Cnil);          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
614          goto T181;}          goto T181;}
615          goto T180;          goto T180;
616  T180:;  T180:;
617          V99= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V92,VV[59])));          V98= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V91,VV[59])));
618          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
619          {object V101;          {object V100;
620          object V102= base[3];          object V101= base[3];
621          if(V102==Cnil){          if(V101==Cnil){
622          V100= Cnil;          V99= Cnil;
623          goto T183;}          goto T183;}
624          base[2]=V101=MMcons(Cnil,Cnil);          base[2]=V100=MMcons(Cnil,Cnil);
625          goto T184;          goto T184;
626  T184:;  T184:;
627          (V101->c.c_car)= list(4,VV[60],VV[39],(V102->c.c_car),VV[61]);          (V100->c.c_car)= list(4,VV[60],VV[39],(V101->c.c_car),VV[61]);
628          if((V102=MMcdr(V102))==Cnil){          if((V101=MMcdr(V101))==Cnil){
629          V100= base[2];          V99= base[2];
630          goto T183;}          goto T183;}
631          V101=MMcdr(V101)=MMcons(Cnil,Cnil);          V100=MMcdr(V100)=MMcons(Cnil,Cnil);
632          goto T184;}          goto T184;}
633          goto T183;          goto T183;
634  T183:;  T183:;
635          base[2]= listA(5,VV[6],/* INLINE-ARGS */V90,/* INLINE-ARGS */V91,/* INLINE-ARGS */V99,V100);          base[2]= listA(5,VV[6],/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,/* INLINE-ARGS */V98,V99);
636          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
637          return;}          return;}
638  }  }
# Line 643  static object LI12(object first,...) Line 642  static object LI12(object first,...)
642  {        {      
643          va_list ap;          va_list ap;
644          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
645          {object V104;          {object V103;
646            object V104;
647          object V105;          object V105;
648          object V106;          object V106;
649          object V107;          object V107;
# Line 656  static object LI12(object first,...) Line 656  static object LI12(object first,...)
656          object V114;          object V114;
657          object V115;          object V115;
658          object V116;          object V116;
         object V117;  
659          va_start(ap,first);          va_start(ap,first);
660          narg= narg - 0;          narg= narg - 0;
661          {          {
662          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);
663          V104=(Vcs[0]);          V103=(Vcs[0]);
664          V105=(Vcs[1]);          V104=(Vcs[1]);
665          V106=(Vcs[2]);          V105=(Vcs[2]);
666          V107=(Vcs[3]);          V106=(Vcs[3]);
667          V108=(Vcs[4]);          V107=(Vcs[4]);
668          V109=(Vcs[5]);          V108=(Vcs[5]);
669          V110=(Vcs[6]);          V109=(Vcs[6]);
670          V111=(Vcs[7]);          V110=(Vcs[7]);
671          V112=(Vcs[8]);          V111=(Vcs[8]);
672          V113=(Vcs[9]);          V112=(Vcs[9]);
673          V114=(Vcs[10]);          V113=(Vcs[10]);
674          V115=(Vcs[11]);          V114=(Vcs[11]);
675          V116=(Vcs[12]);          V115=(Vcs[12]);
676          V117=(Vcs[13]);          V116=(Vcs[13]);
677          base[0]= VV[39];          base[0]= VV[39];
678          base[1]= (V104);          base[1]= (V103);
679          base[2]= (V105);          base[2]= (V104);
680          base[3]= (V106);          base[3]= (V105);
681          base[4]= (V107);          base[4]= (V106);
682          base[5]= (V108);          base[5]= (V107);
683          base[6]= (V109);          base[6]= (V108);
684          base[7]= (V110);          base[7]= (V109);
685          base[8]= (V111);          base[8]= (V110);
686          base[9]= (V112);          base[9]= (V111);
687          base[10]= (V113);          base[10]= (V112);
688          base[11]= (V114);          base[11]= (V113);
689          base[12]= (V115);          base[12]= (V114);
690          base[13]= (V116);          base[13]= (V115);
691          base[14]= (V117);          base[14]= (V116);
692          vs_top=(vs_base=base+0)+15;          vs_top=(vs_base=base+0)+15;
693          siLmake_structure();          siLmake_structure();
694          vs_top=sup;          vs_top=sup;
695          {object V118 = vs_base[0];          {object V117 = vs_base[0];
696          VMR12(V118)}          VMR12(V117)}
697          va_end(ap);          va_end(ap);
698          base[0]=base[0];          base[0]=base[0];
699          return Cnil;}          return Cnil;}
# Line 707  static void L13() Line 706  static void L13()
706          vs_check;          vs_check;
707          check_arg(2);          check_arg(2);
708          vs_top=sup;          vs_top=sup;
709          {object V119=base[0]->c.c_cdr;          {object V118=base[0]->c.c_cdr;
710          if(endp(V119))invalid_macro_call();          if(endp(V118))invalid_macro_call();
711          base[2]= (V119->c.c_car);          base[2]= (V118->c.c_car);
712          V119=V119->c.c_cdr;          V118=V118->c.c_cdr;
713          if(!endp(V119))invalid_macro_call();}          if(!endp(V118))invalid_macro_call();}
714          {object V121;          {object V120;
715          object V122= VV[64];          object V121= VV[64];
716          if(V122==Cnil){          if(V121==Cnil){
717          V120= Cnil;          V119= Cnil;
718          goto T201;}          goto T201;}
719          base[3]=V121=MMcons(Cnil,Cnil);          base[3]=V120=MMcons(Cnil,Cnil);
720          goto T202;          goto T202;
721  T202:;  T202:;
722          (V121->c.c_car)= list(3,VV[62],list(2,(V122->c.c_car),base[2]),VV[63]);          (V120->c.c_car)= list(3,VV[62],list(2,(V121->c.c_car),base[2]),VV[63]);
723          if((V122=MMcdr(V122))==Cnil){          if((V121=MMcdr(V121))==Cnil){
724          V120= base[3];          V119= base[3];
725          goto T201;}          goto T201;}
726          V121=MMcdr(V121)=MMcons(Cnil,Cnil);          V120=MMcdr(V120)=MMcons(Cnil,Cnil);
727          goto T202;}          goto T202;}
728          goto T201;          goto T201;
729  T201:;  T201:;
730          base[3]= make_cons(VV[6],V120);          base[3]= make_cons(VV[6],V119);
731          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
732          return;          return;
733  }  }
734  /*      local entry for function INITIALIZE-INFO-BOUND-SLOTS    */  /*      local entry for function INITIALIZE-INFO-BOUND-SLOTS    */
735    
736  static object LI14(V125)  static object LI14(V124)
737    
738  register object V125;  register object V124;
739  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
740          goto TTL;          goto TTL;
741  TTL:;  TTL:;
742          {register object V126;          {register object V125;
743          V126= Cnil;          V125= Cnil;
744          if((VV[43])==(STREF(object,(V125),8))){          if((VV[43])==(STREF(object,(V124),8))){
745          goto T204;}          goto T204;}
746          V126= make_cons(VV[65],(V126));          V125= make_cons(VV[65],(V125));
747          goto T204;          goto T204;
748  T204:;  T204:;
749          if((VV[43])==(STREF(object,(V125),12))){          if((VV[43])==(STREF(object,(V124),12))){
750          goto T208;}          goto T208;}
751          V126= make_cons(VV[66],(V126));          V125= make_cons(VV[66],(V125));
752          goto T208;          goto T208;
753  T208:;  T208:;
754          if((VV[43])==(STREF(object,(V125),16))){          if((VV[43])==(STREF(object,(V124),16))){
755          goto T212;}          goto T212;}
756          V126= make_cons(VV[67],(V126));          V125= make_cons(VV[67],(V125));
757          goto T212;          goto T212;
758  T212:;  T212:;
759          if((VV[43])==(STREF(object,(V125),20))){          if((VV[43])==(STREF(object,(V124),20))){
760          goto T216;}          goto T216;}
761          V126= make_cons(VV[68],(V126));          V125= make_cons(VV[68],(V125));
762          goto T216;          goto T216;
763  T216:;  T216:;
764          if((VV[43])==(STREF(object,(V125),24))){          if((VV[43])==(STREF(object,(V124),24))){
765          goto T220;}          goto T220;}
766          V126= make_cons(VV[69],(V126));          V125= make_cons(VV[69],(V125));
767          goto T220;          goto T220;
768  T220:;  T220:;
769          if((VV[43])==(STREF(object,(V125),28))){          if((VV[43])==(STREF(object,(V124),28))){
770          goto T224;}          goto T224;}
771          V126= make_cons(VV[70],(V126));          V125= make_cons(VV[70],(V125));
772          goto T224;          goto T224;
773  T224:;  T224:;
774          if((VV[43])==(STREF(object,(V125),32))){          if((VV[43])==(STREF(object,(V124),32))){
775          goto T228;}          goto T228;}
776          V126= make_cons(VV[71],(V126));          V125= make_cons(VV[71],(V125));
777          goto T228;          goto T228;
778  T228:;  T228:;
779          if((VV[43])==(STREF(object,(V125),36))){          if((VV[43])==(STREF(object,(V124),36))){
780          goto T232;}          goto T232;}
781          V126= make_cons(VV[72],(V126));          V125= make_cons(VV[72],(V125));
782          goto T232;          goto T232;
783  T232:;  T232:;
784          if((VV[43])==(STREF(object,(V125),40))){          if((VV[43])==(STREF(object,(V124),40))){
785          goto T236;}          goto T236;}
786          V126= make_cons(VV[73],(V126));          V125= make_cons(VV[73],(V125));
787          goto T236;          goto T236;
788  T236:;  T236:;
789          if((VV[43])==(STREF(object,(V125),44))){          if((VV[43])==(STREF(object,(V124),44))){
790          goto T240;}          goto T240;}
791          V126= make_cons(VV[74],(V126));          V125= make_cons(VV[74],(V125));
792          goto T240;          goto T240;
793  T240:;  T240:;
794          if((VV[43])==(STREF(object,(V125),48))){          if((VV[43])==(STREF(object,(V124),48))){
795          goto T244;}          goto T244;}
796          V126= make_cons(VV[13],(V126));          V125= make_cons(VV[13],(V125));
797          goto T244;          goto T244;
798  T244:;  T244:;
799          if((VV[43])==(STREF(object,(V125),52))){          if((VV[43])==(STREF(object,(V124),52))){
800          goto T248;}          goto T248;}
801          V126= make_cons(VV[75],(V126));          V125= make_cons(VV[75],(V125));
802          goto T248;          goto T248;
803  T248:;  T248:;
804          {object V139 = (V126);          {object V138 = (V125);
805          VMR14(V139)}}          VMR14(V138)}}
806          return Cnil;          return Cnil;
807  }  }
808  /*      macro definition for INITIALIZE-INFO-VALID-P    */  /*      macro definition for INITIALIZE-INFO-VALID-P    */
# Line 814  static void L15() Line 813  static void L15()
813          vs_check;          vs_check;
814          check_arg(2);          check_arg(2);
815          vs_top=sup;          vs_top=sup;
816          {object V140=base[0]->c.c_cdr;          {object V139=base[0]->c.c_cdr;
817          if(endp(V140))invalid_macro_call();          if(endp(V139))invalid_macro_call();
818          base[2]= (V140->c.c_car);          base[2]= (V139->c.c_car);
819          V140=V140->c.c_cdr;          V139=V139->c.c_cdr;
820          if(!endp(V140))invalid_macro_call();}          if(!endp(V139))invalid_macro_call();}
821          V141= list(2,VV[76],list(2,VV[77],base[2]));          V140= list(2,VV[76],list(2,VV[77],base[2]));
822          V142= make_cons(/* INLINE-ARGS */V141,Cnil);          V141= make_cons(/* INLINE-ARGS */V140,Cnil);
823          V143= list(3,VV[61],base[2],list(2,VV[4],VV[65]));          V142= list(3,VV[61],base[2],list(2,VV[4],VV[65]));
824          base[3]= list(3,VV[52],/* INLINE-ARGS */V142,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V143,list(2,VV[77],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V141,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V142,list(2,VV[77],base[2])),VV[76]));
825          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
826          return;          return;
827  }  }
# Line 834  static void L16() Line 833  static void L16()
833          vs_check;          vs_check;
834          check_arg(2);          check_arg(2);
835          vs_top=sup;          vs_top=sup;
836          {object V144=base[0]->c.c_cdr;          {object V143=base[0]->c.c_cdr;
837          if(endp(V144))invalid_macro_call();          if(endp(V143))invalid_macro_call();
838          base[2]= (V144->c.c_car);          base[2]= (V143->c.c_car);
839          V144=V144->c.c_cdr;          V143=V143->c.c_cdr;
840          if(!endp(V144))invalid_macro_call();}          if(!endp(V143))invalid_macro_call();}
841          V145= list(2,VV[76],list(2,VV[80],base[2]));          V144= list(2,VV[76],list(2,VV[80],base[2]));
842          V146= make_cons(/* INLINE-ARGS */V145,Cnil);          V145= make_cons(/* INLINE-ARGS */V144,Cnil);
843          V147= list(3,VV[61],base[2],list(2,VV[4],VV[66]));          V146= list(3,VV[61],base[2],list(2,VV[4],VV[66]));
844          base[3]= list(3,VV[52],/* INLINE-ARGS */V146,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V147,list(2,VV[80],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V145,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V146,list(2,VV[80],base[2])),VV[76]));
845          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
846          return;          return;
847  }  }
# Line 854  static void L17() Line 853  static void L17()
853          vs_check;          vs_check;
854          check_arg(2);          check_arg(2);
855          vs_top=sup;          vs_top=sup;
856          {object V148=base[0]->c.c_cdr;          {object V147=base[0]->c.c_cdr;
857          if(endp(V148))invalid_macro_call();          if(endp(V147))invalid_macro_call();
858          base[2]= (V148->c.c_car);          base[2]= (V147->c.c_car);
859          V148=V148->c.c_cdr;          V147=V147->c.c_cdr;
860          if(!endp(V148))invalid_macro_call();}          if(!endp(V147))invalid_macro_call();}
861          V149= list(2,VV[76],list(2,VV[81],base[2]));          V148= list(2,VV[76],list(2,VV[81],base[2]));
862          V150= make_cons(/* INLINE-ARGS */V149,Cnil);          V149= make_cons(/* INLINE-ARGS */V148,Cnil);
863          V151= list(3,VV[61],base[2],list(2,VV[4],VV[67]));          V150= list(3,VV[61],base[2],list(2,VV[4],VV[67]));
864          base[3]= list(3,VV[52],/* INLINE-ARGS */V150,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V151,list(2,VV[81],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V149,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V150,list(2,VV[81],base[2])),VV[76]));
865          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
866          return;          return;
867  }  }
# Line 874  static void L18() Line 873  static void L18()
873          vs_check;          vs_check;
874          check_arg(2);          check_arg(2);
875          vs_top=sup;          vs_top=sup;
876          {object V152=base[0]->c.c_cdr;          {object V151=base[0]->c.c_cdr;
877          if(endp(V152))invalid_macro_call();          if(endp(V151))invalid_macro_call();
878          base[2]= (V152->c.c_car);          base[2]= (V151->c.c_car);
879          V152=V152->c.c_cdr;          V151=V151->c.c_cdr;
880          if(!endp(V152))invalid_macro_call();}          if(!endp(V151))invalid_macro_call();}
881          V153= list(2,VV[76],list(2,VV[82],base[2]));          V152= list(2,VV[76],list(2,VV[82],base[2]));
882          V154= make_cons(/* INLINE-ARGS */V153,Cnil);          V153= make_cons(/* INLINE-ARGS */V152,Cnil);
883          V155= list(3,VV[61],base[2],list(2,VV[4],VV[68]));          V154= list(3,VV[61],base[2],list(2,VV[4],VV[68]));
884          base[3]= list(3,VV[52],/* INLINE-ARGS */V154,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V155,list(2,VV[82],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V153,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V154,list(2,VV[82],base[2])),VV[76]));
885          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
886          return;          return;
887  }  }
# Line 894  static void L19() Line 893  static void L19()
893          vs_check;          vs_check;
894          check_arg(2);          check_arg(2);
895          vs_top=sup;          vs_top=sup;
896          {object V156=base[0]->c.c_cdr;          {object V155=base[0]->c.c_cdr;
897          if(endp(V156))invalid_macro_call();          if(endp(V155))invalid_macro_call();
898          base[2]= (V156->c.c_car);          base[2]= (V155->c.c_car);
899          V156=V156->c.c_cdr;          V155=V155->c.c_cdr;
900          if(!endp(V156))invalid_macro_call();}          if(!endp(V155))invalid_macro_call();}
901          V157= list(2,VV[76],list(2,VV[83],base[2]));          V156= list(2,VV[76],list(2,VV[83],base[2]));
902          V158= make_cons(/* INLINE-ARGS */V157,Cnil);          V157= make_cons(/* INLINE-ARGS */V156,Cnil);
903          V159= list(3,VV[61],base[2],list(2,VV[4],VV[69]));          V158= list(3,VV[61],base[2],list(2,VV[4],VV[69]));
904          base[3]= list(3,VV[52],/* INLINE-ARGS */V158,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V159,list(2,VV[83],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V157,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V158,list(2,VV[83],base[2])),VV[76]));
905          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
906          return;          return;
907  }  }
# Line 914  static void L20() Line 913  static void L20()
913          vs_check;          vs_check;
914          check_arg(2);          check_arg(2);
915          vs_top=sup;          vs_top=sup;
916          {object V160=base[0]->c.c_cdr;          {object V159=base[0]->c.c_cdr;
917          if(endp(V160))invalid_macro_call();          if(endp(V159))invalid_macro_call();
918          base[2]= (V160->c.c_car);          base[2]= (V159->c.c_car);
919          V160=V160->c.c_cdr;          V159=V159->c.c_cdr;
920          if(!endp(V160))invalid_macro_call();}          if(!endp(V159))invalid_macro_call();}
921          V161= list(2,VV[76],list(2,VV[84],base[2]));          V160= list(2,VV[76],list(2,VV[84],base[2]));
922          V162= make_cons(/* INLINE-ARGS */V161,Cnil);          V161= make_cons(/* INLINE-ARGS */V160,Cnil);
923          V163= list(3,VV[61],base[2],list(2,VV[4],VV[70]));          V162= list(3,VV[61],base[2],list(2,VV[4],VV[70]));
924          base[3]= list(3,VV[52],/* INLINE-ARGS */V162,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V163,list(2,VV[84],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V161,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V162,list(2,VV[84],base[2])),VV[76]));
925          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
926          return;          return;
927  }  }
# Line 934  static void L21() Line 933  static void L21()
933          vs_check;          vs_check;
934          check_arg(2);          check_arg(2);
935          vs_top=sup;          vs_top=sup;
936          {object V164=base[0]->c.c_cdr;          {object V163=base[0]->c.c_cdr;
937          if(endp(V164))invalid_macro_call();          if(endp(V163))invalid_macro_call();
938          base[2]= (V164->c.c_car);          base[2]= (V163->c.c_car);
939          V164=V164->c.c_cdr;          V163=V163->c.c_cdr;
940          if(!endp(V164))invalid_macro_call();}          if(!endp(V163))invalid_macro_call();}
941          V165= list(2,VV[76],list(2,VV[85],base[2]));          V164= list(2,VV[76],list(2,VV[85],base[2]));
942          V166= make_cons(/* INLINE-ARGS */V165,Cnil);          V165= make_cons(/* INLINE-ARGS */V164,Cnil);
943          V167= list(3,VV[61],base[2],list(2,VV[4],VV[71]));          V166= list(3,VV[61],base[2],list(2,VV[4],VV[71]));
944          base[3]= list(3,VV[52],/* INLINE-ARGS */V166,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V167,list(2,VV[85],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V165,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V166,list(2,VV[85],base[2])),VV[76]));
945          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
946          return;          return;
947  }  }
# Line 954  static void L22() Line 953  static void L22()
953          vs_check;          vs_check;
954          check_arg(2);          check_arg(2);
955          vs_top=sup;          vs_top=sup;
956          {object V168=base[0]->c.c_cdr;          {object V167=base[0]->c.c_cdr;
957          if(endp(V168))invalid_macro_call();          if(endp(V167))invalid_macro_call();
958          base[2]= (V168->c.c_car);          base[2]= (V167->c.c_car);
959          V168=V168->c.c_cdr;          V167=V167->c.c_cdr;
960          if(!endp(V168))invalid_macro_call();}          if(!endp(V167))invalid_macro_call();}
961          V169= list(2,VV[76],list(2,VV[86],base[2]));          V168= list(2,VV[76],list(2,VV[86],base[2]));
962          V170= make_cons(/* INLINE-ARGS */V169,Cnil);          V169= make_cons(/* INLINE-ARGS */V168,Cnil);
963          V171= list(3,VV[61],base[2],list(2,VV[4],VV[72]));          V170= list(3,VV[61],base[2],list(2,VV[4],VV[72]));
964          base[3]= list(3,VV[52],/* INLINE-ARGS */V170,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V171,list(2,VV[86],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V169,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V170,list(2,VV[86],base[2])),VV[76]));
965          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
966          return;          return;
967  }  }
# Line 974  static void L23() Line 973  static void L23()
973          vs_check;          vs_check;
974          check_arg(2);          check_arg(2);
975          vs_top=sup;          vs_top=sup;
976          {object V172=base[0]->c.c_cdr;          {object V171=base[0]->c.c_cdr;
977          if(endp(V172))invalid_macro_call();          if(endp(V171))invalid_macro_call();
978          base[2]= (V172->c.c_car);          base[2]= (V171->c.c_car);
979          V172=V172->c.c_cdr;          V171=V171->c.c_cdr;
980          if(!endp(V172))invalid_macro_call();}          if(!endp(V171))invalid_macro_call();}
981          V173= list(2,VV[76],list(2,VV[87],base[2]));          V172= list(2,VV[76],list(2,VV[87],base[2]));
982          V174= make_cons(/* INLINE-ARGS */V173,Cnil);          V173= make_cons(/* INLINE-ARGS */V172,Cnil);
983          V175= list(3,VV[61],base[2],list(2,VV[4],VV[73]));          V174= list(3,VV[61],base[2],list(2,VV[4],VV[73]));
984          base[3]= list(3,VV[52],/* INLINE-ARGS */V174,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V175,list(2,VV[87],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V173,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V174,list(2,VV[87],base[2])),VV[76]));
985          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
986          return;          return;
987  }  }
# Line 994  static void L24() Line 993  static void L24()
993          vs_check;          vs_check;
994          check_arg(2);          check_arg(2);
995          vs_top=sup;          vs_top=sup;
996          {object V176=base[0]->c.c_cdr;          {object V175=base[0]->c.c_cdr;
997          if(endp(V176))invalid_macro_call();          if(endp(V175))invalid_macro_call();
998          base[2]= (V176->c.c_car);          base[2]= (V175->c.c_car);
999          V176=V176->c.c_cdr;          V175=V175->c.c_cdr;
1000          if(!endp(V176))invalid_macro_call();}          if(!endp(V175))invalid_macro_call();}
1001          V177= list(2,VV[76],list(2,VV[88],base[2]));          V176= list(2,VV[76],list(2,VV[88],base[2]));
1002          V178= make_cons(/* INLINE-ARGS */V177,Cnil);          V177= make_cons(/* INLINE-ARGS */V176,Cnil);
1003          V179= list(3,VV[61],base[2],list(2,VV[4],VV[74]));          V178= list(3,VV[61],base[2],list(2,VV[4],VV[74]));
1004          base[3]= list(3,VV[52],/* INLINE-ARGS */V178,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V179,list(2,VV[88],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V177,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V178,list(2,VV[88],base[2])),VV[76]));
1005          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1006          return;          return;
1007  }  }
# Line 1014  static void L25() Line 1013  static void L25()
1013          vs_check;          vs_check;
1014          check_arg(2);          check_arg(2);
1015          vs_top=sup;          vs_top=sup;
1016          {object V180=base[0]->c.c_cdr;          {object V179=base[0]->c.c_cdr;
1017          if(endp(V180))invalid_macro_call();          if(endp(V179))invalid_macro_call();
1018          base[2]= (V180->c.c_car);          base[2]= (V179->c.c_car);
1019          V180=V180->c.c_cdr;          V179=V179->c.c_cdr;
1020          if(!endp(V180))invalid_macro_call();}          if(!endp(V179))invalid_macro_call();}
1021          V181= list(2,VV[76],list(2,VV[89],base[2]));          V180= list(2,VV[76],list(2,VV[89],base[2]));
1022          V182= make_cons(/* INLINE-ARGS */V181,Cnil);          V181= make_cons(/* INLINE-ARGS */V180,Cnil);
1023          V183= list(3,VV[61],base[2],list(2,VV[4],VV[13]));          V182= list(3,VV[61],base[2],list(2,VV[4],VV[13]));
1024          base[3]= list(3,VV[52],/* INLINE-ARGS */V182,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V183,list(2,VV[89],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V181,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V182,list(2,VV[89],base[2])),VV[76]));
1025          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1026          return;          return;
1027  }  }
# Line 1034  static void L26() Line 1033  static void L26()
1033          vs_check;          vs_check;
1034          check_arg(2);          check_arg(2);
1035          vs_top=sup;          vs_top=sup;
1036          {object V184=base[0]->c.c_cdr;          {object V183=base[0]->c.c_cdr;
1037          if(endp(V184))invalid_macro_call();          if(endp(V183))invalid_macro_call();
1038          base[2]= (V184->c.c_car);          base[2]= (V183->c.c_car);
1039          V184=V184->c.c_cdr;          V183=V183->c.c_cdr;
1040          if(!endp(V184))invalid_macro_call();}          if(!endp(V183))invalid_macro_call();}
1041          V185= list(2,VV[76],list(2,VV[90],base[2]));          V184= list(2,VV[76],list(2,VV[90],base[2]));
1042          V186= make_cons(/* INLINE-ARGS */V185,Cnil);          V185= make_cons(/* INLINE-ARGS */V184,Cnil);
1043          V187= list(3,VV[61],base[2],list(2,VV[4],VV[75]));          V186= list(3,VV[61],base[2],list(2,VV[4],VV[75]));
1044          base[3]= list(3,VV[52],/* INLINE-ARGS */V186,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V187,list(2,VV[90],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V185,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V186,list(2,VV[90],base[2])),VV[76]));
1045          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1046          return;          return;
1047  }  }
1048  /*      local entry for function RESET-INITIALIZE-INFO  */  /*      local entry for function RESET-INITIALIZE-INFO  */
1049    
1050  static object LI27(V189)  static object LI27(V188)
1051    
1052  register object V189;  register object V188;
1053  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1054          goto TTL;          goto TTL;
1055  TTL:;  TTL:;
1056          V190 = (V189);          base[0]= CMPcar(STREF(object,(V188),0));
         base[0]= CMPcar(STREF(object,(V189),0));  
1057          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1058          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
1059          vs_top=sup;          vs_top=sup;
1060          V191= vs_base[0];          V189= vs_base[0];
1061          V192= Ct;          V190= Ct;
1062          STSET(object,V190,4, V191);          STSET(object,(V188),4, V189);
1063          (void)(V191);          (void)(V189);
1064          {object V193;          {object V191;
1065          if(((VV[91]->s.s_dbind))==Cnil){          if(((VV[91]->s.s_dbind))==Cnil){
1066          goto T257;}          goto T257;}
1067          V193= (*(LnkLI50))((V189));          V191= (*(LnkLI50))((V188));
1068          goto T255;          goto T255;
1069          goto T257;          goto T257;
1070  T257:;  T257:;
1071          V193= VV[92];          V191= VV[92];
1072          goto T255;          goto T255;
1073  T255:;  T255:;
1074          V194 = (V189);          V192= Ct;
1075          V195= Ct;          STSET(object,(V188),8, VV[43]);
         STSET(object,V194,8, VV[43]);  
1076          (void)(VV[43]);          (void)(VV[43]);
1077          V196 = (V189);          V193= Ct;
1078          V197= Ct;          STSET(object,(V188),12, VV[43]);
         STSET(object,V196,12, VV[43]);  
1079          (void)(VV[43]);          (void)(VV[43]);
1080          V198 = (V189);          V194= Ct;
1081          V199= Ct;          STSET(object,(V188),16, VV[43]);
         STSET(object,V198,16, VV[43]);  
1082          (void)(VV[43]);          (void)(VV[43]);
1083          V200 = (V189);          V195= Ct;
1084          V201= Ct;          STSET(object,(V188),20, VV[43]);
         STSET(object,V200,20, VV[43]);  
1085          (void)(VV[43]);          (void)(VV[43]);
1086          V202 = (V189);          V196= Ct;
1087          V203= Ct;          STSET(object,(V188),24, VV[43]);
         STSET(object,V202,24, VV[43]);  
1088          (void)(VV[43]);          (void)(VV[43]);
1089          V204 = (V189);          V197= Ct;
1090          V205= Ct;          STSET(object,(V188),28, VV[43]);
         STSET(object,V204,28, VV[43]);  
1091          (void)(VV[43]);          (void)(VV[43]);
1092          V206 = (V189);          V198= Ct;
1093          V207= Ct;          STSET(object,(V188),32, VV[43]);
         STSET(object,V206,32, VV[43]);  
1094          (void)(VV[43]);          (void)(VV[43]);
1095          V208 = (V189);          V199= Ct;
1096          V209= Ct;          STSET(object,(V188),36, VV[43]);
         STSET(object,V208,36, VV[43]);  
1097          (void)(VV[43]);          (void)(VV[43]);
1098          V210 = (V189);          V200= Ct;
1099          V211= Ct;          STSET(object,(V188),40, VV[43]);
         STSET(object,V210,40, VV[43]);  
1100          (void)(VV[43]);          (void)(VV[43]);
1101          V212 = (V189);          V201= Ct;
1102          V213= Ct;          STSET(object,(V188),44, VV[43]);
         STSET(object,V212,44, VV[43]);  
1103          (void)(VV[43]);          (void)(VV[43]);
1104          V214 = (V189);          V202= Ct;
1105          V215= Ct;          STSET(object,(V188),48, VV[43]);
         STSET(object,V214,48, VV[43]);  
1106          (void)(VV[43]);          (void)(VV[43]);
1107          V216 = (V189);          V203= Ct;
1108          V217= Ct;          STSET(object,(V188),52, VV[43]);
         STSET(object,V216,52, VV[43]);  
1109          (void)(VV[43]);          (void)(VV[43]);
1110          {register object V218;          {register object V204;
1111          register object V219;          register object V205;
1112          V218= (V193);          V204= (V191);
1113          V219= CMPcar((V218));          V205= CMPcar((V204));
1114          goto T275;          goto T275;
1115  T275:;  T275:;
1116          if(!(((V218))==Cnil)){          if(!(((V204))==Cnil)){
1117          goto T276;}          goto T276;}
1118          goto T271;          goto T271;
1119          goto T276;          goto T276;
1120  T276:;  T276:;
1121          (void)((*(LnkLI61))((V189),(V219)));          (void)((*(LnkLI61))((V188),(V205)));
1122          V218= CMPcdr((V218));          V204= CMPcdr((V204));
1123          V219= CMPcar((V218));          V205= CMPcar((V204));
1124          goto T275;}          goto T275;}
1125          goto T271;          goto T271;
1126  T271:;  T271:;
1127          {object V220 = (V189);          {object V206 = (V188);
1128          VMR27(V220)}}          VMR27(V206)}}
1129          base[0]=base[0];          base[0]=base[0];
1130          return Cnil;          return Cnil;
1131  }  }
1132  /*      local entry for function RESET-CLASS-INITIALIZE-INFO    */  /*      local entry for function RESET-CLASS-INITIALIZE-INFO    */
1133    
1134  static object LI28(V222)  static object LI28(V208)
1135    
1136  object V222;  object V208;
1137  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1138          goto TTL;          goto TTL;
1139  TTL:;  TTL:;
1140          base[0]= (V222);          base[0]= (V208);
1141          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1142          (void) (*Lnk245)(Lclptr245);          (void) (*Lnk271)(Lclptr271);
1143          vs_top=sup;          vs_top=sup;
1144          V223= vs_base[0];          V209= vs_base[0];
1145          {object V224 = (*(LnkLI244))(V223);          {object V210 = (*(LnkLI270))(V209);
1146          VMR28(V224)}          VMR28(V210)}
1147          base[0]=base[0];          base[0]=base[0];
1148          return Cnil;          return Cnil;
1149  }  }
1150  /*      local entry for function RESET-CLASS-INITIALIZE-INFO-1  */  /*      local entry for function RESET-CLASS-INITIALIZE-INFO-1  */
1151    
1152  static object LI29(V226)  static object LI29(V212)
1153    
1154  register object V226;  register object V212;
1155  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1156          goto TTL;          goto TTL;
1157  TTL:;  TTL:;
1158          if(!(type_of((V226))==t_cons)){          if(!(type_of((V212))==t_cons)){
1159          goto T289;}          goto T289;}
1160          if((CMPcar((V226)))==Cnil){          if((CMPcar((V212)))==Cnil){
1161          goto T291;}          goto T291;}
1162          (void)((*(LnkLI246))(CMPcar((V226))));          (void)((*(LnkLI272))(CMPcar((V212))));
1163          goto T291;          goto T291;
1164  T291:;  T291:;
1165          {object V227;          {object V213;
1166          V227= CMPcdr((V226));          V213= CMPcdr((V212));
1167          {register object V228;          {register object V214;
1168          register object V229;          register object V215;
1169          V228= (V227);          V214= (V213);
1170          V229= CMPcar((V228));          V215= CMPcar((V214));
1171          goto T298;          goto T298;
1172  T298:;  T298:;
1173          if(!(((V228))==Cnil)){          if(!(((V214))==Cnil)){
1174          goto T299;}          goto T299;}
1175          {object V230 = Cnil;          {object V216 = Cnil;
1176          VMR29(V230)}          VMR29(V216)}
1177          goto T299;          goto T299;
1178  T299:;  T299:;
1179          (void)((*(LnkLI244))(CMPcdr((V229))));          (void)((*(LnkLI270))(CMPcdr((V215))));
1180          V228= CMPcdr((V228));          V214= CMPcdr((V214));
1181          V229= CMPcar((V228));          V215= CMPcar((V214));
1182          goto T298;}}          goto T298;}}
1183          goto T289;          goto T289;
1184  T289:;  T289:;
1185          {object V231 = Cnil;          {object V217 = Cnil;
1186          VMR29(V231)}          VMR29(V217)}
1187          base[0]=base[0];          base[0]=base[0];
1188          return Cnil;          return Cnil;
1189  }  }
1190  /*      local entry for function INITIALIZE-INFO        */  /*      local entry for function INITIALIZE-INFO        */
1191    
1192  static object LI30(object V233,object V232,object first,...)  static object LI30(object V219,object V218,object first,...)
1193  {        {      
1194          va_list ap;          va_list ap;
1195          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
1196          {object V234;          {object V220;
1197          object V235;          object V221;
1198          object V236;          object V222;
1199          object V237;          object V223;
1200          va_start(ap,first);          va_start(ap,first);
1201          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1202          V234= V233;          V220= V219;
1203          V235= V232;          V221= V218;
1204          narg = narg - 2;          narg = narg - 2;
1205          if (narg <= 0) goto T309;          if (narg <= 0) goto T309;
1206          else {          else {
1207          V236= first;}          V222= first;}
1208          if (--narg <= 0) goto T310;          if (--narg <= 0) goto T310;
1209          else {          else {
1210          V237= va_arg(ap,object);}          V223= va_arg(ap,object);}
1211          --narg; goto T311;          --narg; goto T311;
1212          goto T309;          goto T309;
1213  T309:;  T309:;
1214          V236= Ct;          V222= Ct;
1215          goto T310;          goto T310;
1216  T310:;  T310:;
1217          V237= Cnil;          V223= Cnil;
1218          goto T311;          goto T311;
1219  T311:;  T311:;
1220          {object V238;          {object V224;
1221          V238= Cnil;          V224= Cnil;
1222          if(!(((VV[93]->s.s_dbind))==((V234)))){          if(!(((VV[93]->s.s_dbind))==((V220)))){
1223          goto T316;}          goto T316;}
1224          if(!(((VV[94]->s.s_dbind))==((V235)))){          if(!(((VV[94]->s.s_dbind))==((V221)))){
1225          goto T316;}          goto T316;}
1226          V238= (VV[95]->s.s_dbind);          V224= (VV[95]->s.s_dbind);
1227          goto T314;          goto T314;
1228          goto T316;          goto T316;
1229  T316:;  T316:;
1230          {register object V239;          {register object V225;
1231          register object V240;{object V241;          object V226;
1232          base[0]= (V234);          register object V227;{object V228;
1233            base[0]= (V220);
1234          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1235          (void) (*Lnk245)(Lclptr245);          (void) (*Lnk271)(Lclptr271);
1236          vs_top=sup;          vs_top=sup;
1237          V241= vs_base[0];          V228= vs_base[0];
1238          if(V241==Cnil)goto T322;          if(V228==Cnil)goto T322;
1239          V240= V241;          V227= V228;
1240          goto T321;          goto T321;
1241          goto T322;          goto T322;
1242  T322:;}  T322:;}
1243          {object V243;          {object V230;
1244          V243= make_cons(Cnil,Cnil);          V230= make_cons(Cnil,Cnil);
1245          V244= ({object _tmp=get(VV[245],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[245])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[245])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V231= ({object _tmp=get(VV[271],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[271])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[271])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
1246          V245 = (V243);          V227= (
1247          V246 = V234;          V232 = V231,
1248          V240= (          (type_of(V232) == t_sfun ?(*((V232)->sfn.sfn_self)):
1249          V247 = V244,          (fcall.argd=2,type_of(V232)==t_vfun) ?
1250          (type_of(V247) == t_sfun ?(*((V247)->sfn.sfn_self)):          (*((V232)->sfn.sfn_self)):
1251          (fcall.argd=2,type_of(V247)==t_vfun) ?          (fcall.fun=(V232),fcalln))((V230),V220));}
         (*((V247)->sfn.sfn_self)):  
         (fcall.fun=(V247),fcalln))(V245,V246));}  
1252          goto T321;          goto T321;
1253  T321:;  T321:;
1254          V239= (V235);          V225= (V221);
1255            V226= Cnil;
1256          goto T329;          goto T329;
1257  T329:;  T329:;
1258          if(((V239))!=Cnil){          if(((V225))!=Cnil){
1259          goto T331;}          goto T331;}
1260          goto T327;          goto T327;
1261          goto T331;          goto T331;
1262  T331:;  T331:;
1263          {register object V248;          {register object V233;
1264          register object V249;          register object V234;
1265          {object V250;          {object V235;
1266          V250= CMPcar((V239));          V235= CMPcar((V225));
1267          V239= CMPcdr((V239));          V225= CMPcdr((V225));
1268          V248= (V250);}          V233= (V235);}
1269          V249= (V240);          V234= (V227);
1270          if(((V236))==Cnil){          if(((V222))==Cnil){
1271          goto T338;}          goto T338;}
1272          if(!(((V248))==(VV[2]))){          if(((V226))!=Cnil){
1273          goto T342;}          goto T342;}
1274          {object V251;          if(!(((V233))==(VV[2]))){
1275          V251= CMPcar((V239));          goto T342;}
1276          V239= CMPcdr((V239));          {object V236;
1277          V237= (V251);}          V236= CMPcar((V225));
1278            V225= CMPcdr((V225));
1279            V223= (V236);}
1280            V226= Ct;
1281          goto T338;          goto T338;
1282          goto T342;          goto T342;
1283  T342:;  T342:;
1284          {object V252;          {object V237;
1285          V252= CMPcar((V239));          V237= CMPcar((V225));
1286          V239= CMPcdr((V239));}          V225= CMPcdr((V225));}
1287          goto T338;          goto T338;
1288  T338:;  T338:;
1289          goto T352;          goto T356;
1290  T352:;  T356:;
1291          {register object V253;          {register object V238;
1292          V253= CMPcdr((V249));          V238= CMPcdr((V234));
1293          if(((V253))!=Cnil){          if(((V238))!=Cnil){
1294          goto T355;}          goto T359;}
1295          V240= make_cons(Cnil,Cnil);          V227= make_cons(Cnil,Cnil);
1296          {object V255;          {object V240;
1297          V256= make_cons((V248),(V240));          V241= make_cons((V233),(V227));
1298          V255= make_cons(/* INLINE-ARGS */V256,Cnil);          V240= make_cons(/* INLINE-ARGS */V241,Cnil);
1299          (V249)->c.c_cdr = (V255);}          (V234)->c.c_cdr = (V240);}
1300          goto T330;          goto T330;
1301          goto T355;          goto T359;
1302  T355:;  T359:;
1303          if(!(eql((V248),CMPcaar((V253))))){          if(!(eql((V233),CMPcaar((V238))))){
1304          goto T363;}          goto T367;}
1305          V240= CMPcdar((V253));          V227= CMPcdar((V238));
1306          goto T330;          goto T330;
1307          goto T363;          goto T367;
1308  T363:;  T367:;
1309          V249= (V253);}          V234= (V238);}
1310          goto T352;}          goto T356;}
1311          goto T330;          goto T330;
1312  T330:;  T330:;
1313          goto T329;          goto T329;
1314          goto T327;          goto T327;
1315  T327:;{object V257;  T327:;{object V242;
1316          V257= CMPcar((V240));          V242= CMPcar((V227));
1317          if(V257==Cnil)goto T372;          if(V242==Cnil)goto T376;
1318          V238= V257;          V224= V242;
1319          goto T371;          goto T375;
1320          goto T372;          goto T376;
1321  T372:;}  T376:;}
1322          {object V259;          {object V244;
1323          V259= (VFUN_NARGS=0,(*(LnkLI247))());          V244= (VFUN_NARGS=0,(*(LnkLI273))());
1324          (V240)->c.c_car = (V259);          (V227)->c.c_car = (V244);
1325          V238= (V259);}          V224= (V244);}
1326          goto T371;          goto T375;
1327  T371:;}  T375:;}
1328          goto T314;          goto T314;
1329  T314:;  T314:;
1330          {object V260;          {object V245;
1331          V260= STREF(object,(V238),4);          V245= STREF(object,(V224),4);
1332          V261 = (V260);          base[0]= (V220);
         base[0]= (V234);  
1333          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1334          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
1335          vs_top=sup;          vs_top=sup;
1336          V262= vs_base[0];          V246= vs_base[0];
1337          if((V261)==(V262)){          if(((V245))==(V246)){
1338          goto T376;}          goto T380;}
1339          if(((V260))!=Cnil){          if(((V245))!=Cnil){
1340          goto T382;}          goto T386;}
1341          {register object V263;          {register object V247;
1342          object V264;          object V248;
1343          object V265;          object V249;
1344          V263= (V235);          V247= (V221);
1345          V264= make_cons(Cnil,Cnil);          V248= make_cons(Cnil,Cnil);
1346          V265= (V264);          V249= (V248);
1347          goto T390;          goto T394;
1348  T390:;  T394:;
1349          if(((V263))!=Cnil){          if(((V247))!=Cnil){
1350          goto T392;}          goto T396;}
1351          goto T388;          goto T392;
1352            goto T396;
1353    T396:;
1354            {object V250;
1355            {object V251;
1356            V251= CMPcar((V247));
1357            V247= CMPcdr((V247));
1358            V250= (V251);}
1359            {object V253;
1360            V253= make_cons((V250),Cnil);
1361            (V249)->c.c_cdr = (V253);}}
1362            V249= CMPcdr((V249));
1363            if(((V222))==Cnil){
1364            goto T395;}
1365            {object V254;
1366            V254= CMPcar((V247));
1367            V247= CMPcdr((V247));}
1368            goto T395;
1369    T395:;
1370            goto T394;
1371          goto T392;          goto T392;
1372  T392:;  T392:;
1373          {object V266;          V255= list(3,(V220),CMPcdr((V248)),(V223));
1374          {object V267;          V256= Ct;
1375          V267= CMPcar((V263));          STSET(object,(V224),0, /* INLINE-ARGS */V255);
1376          V263= CMPcdr((V263));          (void)(/* INLINE-ARGS */V255);}
1377          V266= (V267);}          goto T386;
1378          {object V269;  T386:;
1379          V269= make_cons((V266),Cnil);          (void)((*(LnkLI272))((V224)));}
1380          (V265)->c.c_cdr = (V269);}}          goto T380;
1381          V265= CMPcdr((V265));  T380:;
1382          if(((V236))==Cnil){          (VV[93]->s.s_dbind)= (V220);
1383          goto T391;}          (VV[94]->s.s_dbind)= (V221);
1384          {object V270;          (VV[95]->s.s_dbind)= (V224);
1385          V270= CMPcar((V263));          {object V257 = (V224);
1386          V263= CMPcdr((V263));}          VMR30(V257)}}
         goto T391;  
 T391:;  
         goto T390;  
         goto T388;  
 T388:;  
         V271 = (V238);  
         V272= list(3,(V234),CMPcdr((V264)),(V237));  
         V273= Ct;  
         STSET(object,V271,0, /* INLINE-ARGS */V272);  
         (void)(/* INLINE-ARGS */V272);}  
         goto T382;  
 T382:;  
         (void)((*(LnkLI246))((V238)));}  
         goto T376;  
 T376:;  
         (VV[93]->s.s_dbind)= (V234);  
         (VV[94]->s.s_dbind)= (V235);  
         (VV[95]->s.s_dbind)= (V238);  
         {object V274 = (V238);  
         VMR30(V274)}}  
1387          va_end(ap);          va_end(ap);
1388          base[0]=base[0];          base[0]=base[0];
1389          return Cnil;}          return Cnil;}
1390          }          }
1391  /*      local entry for function UPDATE-INITIALIZE-INFO-INTERNAL        */  /*      local entry for function UPDATE-INITIALIZE-INFO-INTERNAL        */
1392    
1393  static object LI31(V277,V278)  static object LI31(V260,V261)
1394    
1395  register object V277;object V278;  register object V260;object V261;
1396  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1397          goto TTL;          goto TTL;
1398  TTL:;  TTL:;
1399          {register object V279;          {register object V262;
1400          V279= STREF(object,(V277),0);          V262= STREF(object,(V260),0);
1401          base[1]= CMPcar((V279));          base[1]= CMPcar((V262));
1402          base[2]= CMPcadr((V279));          base[2]= CMPcadr((V262));
1403          base[3]= CMPcaddr((V279));          base[3]= CMPcaddr((V262));
1404          {object V280= (V278);          {object V264= V261;
1405          if((V280!= VV[67])          if((V264!= VV[67])
1406          && (V280!= VV[69]))goto T421;          && (V264!= VV[69]))goto T425;
1407          {object V281;          {object V265;
1408          object V282;          object V266;
1409          base[4]= base[1];          base[4]= base[1];
1410          base[5]= base[2];          base[5]= base[2];
1411          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1412          (void) (*Lnk248)();          (void) (*Lnk274)();
1413          if(vs_base>=vs_top){vs_top=sup;goto T425;}          if(vs_base>=vs_top){vs_top=sup;goto T429;}
1414          V281= vs_base[0];          V265= vs_base[0];
1415          vs_base++;          vs_base++;
1416          if(vs_base>=vs_top){vs_top=sup;goto T426;}          if(vs_base>=vs_top){vs_top=sup;goto T430;}
1417          V282= vs_base[0];          V266= vs_base[0];
1418          vs_top=sup;          vs_top=sup;
1419          goto T427;          goto T431;
1420            goto T429;
1421    T429:;
1422            V265= Cnil;
1423            goto T430;
1424    T430:;
1425            V266= Cnil;
1426            goto T431;
1427    T431:;
1428            V267= Ct;
1429            STSET(object,(V260),16, (V265));
1430            (void)((V265));
1431            V268= Ct;
1432            STSET(object,(V260),24, (V266));
1433            (void)((V266));
1434            goto T420;}
1435          goto T425;          goto T425;
1436  T425:;  T425:;
1437          V281= Cnil;          if((V264!= VV[68]))goto T433;
1438          goto T426;          {object V269;
1439  T426:;          object V270;
         V282= Cnil;  
         goto T427;  
 T427:;  
         V283 = (V277);  
         V284 = (V281);  
         V285= Ct;  
         STSET(object,V283,16, V284);  
         (void)(V284);  
         V286 = (V277);  
         V287 = (V282);  
         V288= Ct;  
         STSET(object,V286,24, V287);  
         (void)(V287);  
         goto T416;}  
         goto T421;  
 T421:;  
         if((V280!= VV[68]))goto T429;  
         {object V289;  
         object V290;  
1440          base[4]= base[1];          base[4]= base[1];
1441          base[5]= base[2];          base[5]= base[2];
1442          base[6]= Cnil;          base[6]= Cnil;
1443          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1444          (void) (*Lnk248)();          (void) (*Lnk274)();
1445          if(vs_base>=vs_top){vs_top=sup;goto T434;}          if(vs_base>=vs_top){vs_top=sup;goto T438;}
1446          V289= vs_base[0];          V269= vs_base[0];
1447          vs_base++;          vs_base++;
1448          if(vs_base>=vs_top){vs_top=sup;goto T435;}          if(vs_base>=vs_top){vs_top=sup;goto T439;}
1449          V290= vs_base[0];          V270= vs_base[0];
1450          vs_top=sup;          vs_top=sup;
1451          goto T436;          goto T440;
1452          goto T434;          goto T438;
1453  T434:;  T438:;
1454          V289= Cnil;          V269= Cnil;
         goto T435;  
 T435:;  
         V290= Cnil;  
         goto T436;  
 T436:;  
         V291 = (V277);  
         V292 = (V289);  
         V293= Ct;  
         STSET(object,V291,20, V292);  
         (void)(V292);  
         V294 = (V277);  
         V295 = (V290);  
         V296= Ct;  
         STSET(object,V294,24, V295);  
         (void)(V295);  
         goto T416;}  
         goto T429;  
 T429:;  
         if((V280!= VV[70]))goto T438;  
         {object V297;  
         {object V298;  
         V298= STREF(object,(V277),16);  
         if(!(((V298))==(VV[43]))){  
         goto T442;}  
         (void)((*(LnkLI61))((V277),VV[67]));  
         V297= STREF(object,(V277),16);  
         goto T439;  
         goto T442;  
 T442:;  
         V297= (V298);}  
1455          goto T439;          goto T439;
1456  T439:;  T439:;
1457          V299 = (V277);          V270= Cnil;
1458            goto T440;
1459    T440:;
1460            V271= Ct;
1461            STSET(object,(V260),20, (V269));
1462            (void)((V269));
1463            V272= Ct;
1464            STSET(object,(V260),24, (V270));
1465            (void)((V270));
1466            goto T420;}
1467            goto T433;
1468    T433:;
1469            if((V264!= VV[70]))goto T442;
1470            {object V273;
1471            {object V274;
1472            V274= STREF(object,(V260),16);
1473            if(!(((V274))==(VV[43]))){
1474            goto T446;}
1475            (void)((*(LnkLI61))((V260),VV[67]));
1476            V273= STREF(object,(V260),16);
1477            goto T443;
1478            goto T446;
1479    T446:;
1480            V273= (V274);}
1481            goto T443;
1482    T443:;
1483          base[4]= VV[70];          base[4]= VV[70];
1484          base[5]= (V277);          base[5]= (V260);
1485          base[6]= base[1];          base[6]= base[1];
1486          base[7]= (V297);          base[7]= (V273);
1487          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1488          (void) (*Lnk249)();          (void) (*Lnk275)();
1489          vs_top=sup;          vs_top=sup;
1490          V300= vs_base[0];          V275= vs_base[0];
1491          V301= Ct;          V276= Ct;
1492          STSET(object,V299,28, V300);          STSET(object,(V260),28, V275);
1493          (void)(V300);          (void)(V275);
1494          goto T416;}          goto T420;}
1495          goto T438;          goto T442;
1496  T438:;  T442:;
1497          if((V280!= VV[65])          if((V264!= VV[65])
1498          && (V280!= VV[66]))goto T450;          && (V264!= VV[66]))goto T454;
1499          {object V302;          {object V277;
1500          base[4]= base[1];          base[4]= base[1];
1501          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1502          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk276)(Lclptr276);
1503          vs_top=sup;          vs_top=sup;
1504          V302= vs_base[0];          V277= vs_base[0];
1505          V303 = (V277);          V279= listA(3,VV[96],base[1],Cnil);
1506          V305= listA(3,VV[96],base[1],Cnil);          V280= listA(3,VV[97],(V277),Cnil);
1507          V306= listA(3,VV[97],(V302),Cnil);          base[4]= list(3,/* INLINE-ARGS */V279,/* INLINE-ARGS */V280,listA(4,VV[98],(V277),Ct,Cnil));
         base[4]= list(3,/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,listA(4,VV[98],(V302),Ct,Cnil));  
1508          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1509          L32(base);          L32(base);
1510          vs_top=sup;          vs_top=sup;
1511          V304= vs_base[0];          V278= vs_base[0];
1512          V307= Ct;          V281= Ct;
1513          STSET(object,V303,8, V304);          STSET(object,(V260),8, V278);
1514          (void)(V304);          (void)(V278);
1515          V308 = (V277);          V283= listA(3,VV[99],(V277),Cnil);
1516          V310= listA(3,VV[99],(V302),Cnil);          base[4]= list(2,/* INLINE-ARGS */V283,listA(4,VV[98],(V277),Cnil,Cnil));
         base[4]= list(2,/* INLINE-ARGS */V310,listA(4,VV[98],(V302),Cnil,Cnil));  
1517          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1518          L32(base);          L32(base);
1519          vs_top=sup;          vs_top=sup;
1520          V309= vs_base[0];          V282= vs_base[0];
1521          V311= Ct;          V284= Ct;
1522          STSET(object,V308,12, V309);          STSET(object,(V260),12, V282);
1523          (void)(V309);          (void)(V282);
1524          goto T416;}          goto T420;}
1525          goto T450;          goto T454;
1526  T450:;  T454:;
1527          if((V280!= VV[71]))goto T458;          if((V264!= VV[71]))goto T462;
1528          {object V312;          {object V285;
1529          object V313;          object V286;
1530          base[4]= base[1];          base[4]= base[1];
1531          base[5]= base[2];          base[5]= base[2];
1532          base[6]= Ct;          base[6]= Ct;
1533          base[7]= Cnil;          base[7]= Cnil;
1534          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1535          (void) (*Lnk251)();          (void) (*Lnk277)();
1536          if(vs_base>=vs_top){vs_top=sup;goto T464;}          if(vs_base>=vs_top){vs_top=sup;goto T468;}
1537          V312= vs_base[0];          V285= vs_base[0];
1538          vs_base++;          vs_base++;
1539          if(vs_base>=vs_top){vs_top=sup;goto T465;}          if(vs_base>=vs_top){vs_top=sup;goto T469;}
1540          V313= vs_base[0];          V286= vs_base[0];
1541          vs_top=sup;          vs_top=sup;
1542          goto T466;          goto T470;
1543          goto T464;          goto T468;
1544  T464:;  T468:;
1545          V312= Cnil;          V285= Cnil;
1546          goto T465;          goto T469;
1547  T465:;  T469:;
1548          V313= Cnil;          V286= Cnil;
1549          goto T466;          goto T470;
1550  T466:;  T470:;
         V314 = (V277);  
1551          base[4]= VV[71];          base[4]= VV[71];
1552          base[5]= (V277);          base[5]= (V260);
1553          base[6]= base[1];          base[6]= base[1];
1554          base[7]= (V312);          base[7]= (V285);
1555          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1556          (void) (*Lnk249)();          (void) (*Lnk275)();
1557          vs_top=sup;          vs_top=sup;
1558          V315= vs_base[0];          V287= vs_base[0];
1559          V316= Ct;          V288= Ct;
1560          STSET(object,V314,32, V315);          STSET(object,(V260),32, V287);
1561          (void)(V315);          (void)(V287);
1562          goto T416;}          goto T420;}
1563          goto T458;          goto T462;
1564  T458:;  T462:;
1565          if((V280!= VV[72]))goto T472;          if((V264!= VV[72]))goto T476;
1566          {object V317;          {object V289;
1567          object V318;          object V290;
1568          base[4]= base[1];          base[4]= base[1];
1569          base[5]= base[2];          base[5]= base[2];
1570          base[6]= Cnil;          base[6]= Cnil;
1571          base[7]= Cnil;          base[7]= Cnil;
1572          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1573          (void) (*Lnk251)();          (void) (*Lnk277)();
1574          if(vs_base>=vs_top){vs_top=sup;goto T478;}          if(vs_base>=vs_top){vs_top=sup;goto T482;}
1575          V317= vs_base[0];          V289= vs_base[0];
1576          vs_base++;          vs_base++;
1577          if(vs_base>=vs_top){vs_top=sup;goto T479;}          if(vs_base>=vs_top){vs_top=sup;goto T483;}
1578          V318= vs_base[0];          V290= vs_base[0];
1579          vs_top=sup;          vs_top=sup;
1580          goto T480;          goto T484;
1581          goto T478;          goto T482;
1582  T478:;  T482:;
1583          V317= Cnil;          V289= Cnil;
1584          goto T479;          goto T483;
1585  T479:;  T483:;
1586          V318= Cnil;          V290= Cnil;
1587          goto T480;          goto T484;
1588  T480:;  T484:;
         V319 = (V277);  
1589          base[4]= VV[72];          base[4]= VV[72];
1590          base[5]= (V277);          base[5]= (V260);
1591          base[6]= base[1];          base[6]= base[1];
1592          base[7]= (V317);          base[7]= (V289);
1593          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1594          (void) (*Lnk249)();          (void) (*Lnk275)();
1595          vs_top=sup;          vs_top=sup;
1596          V320= vs_base[0];          V291= vs_base[0];
1597          V321= Ct;          V292= Ct;
1598          STSET(object,V319,36, V320);          STSET(object,(V260),36, V291);
1599          (void)(V320);          (void)(V291);
1600          goto T416;}          goto T420;}
1601          goto T472;          goto T476;
1602  T472:;  T476:;
1603          if((V280!= VV[73])          if((V264!= VV[73])
1604          && (V280!= VV[74]))goto T486;          && (V264!= VV[74]))goto T490;
1605          {object V322;          {object V293;
1606          object V323;          object V294;
1607          {object V324;          {object V295;
1608          V324= STREF(object,(V277),20);          V295= STREF(object,(V260),20);
1609          if(!(((V324))==(VV[43]))){          if(!(((V295))==(VV[43]))){
1610          goto T490;}          goto T494;}
1611          (void)((*(LnkLI61))((V277),VV[68]));          (void)((*(LnkLI61))((V260),VV[68]));
1612          V322= STREF(object,(V277),20);          V293= STREF(object,(V260),20);
1613          goto T487;          goto T491;
1614          goto T490;          goto T494;
1615  T490:;  T494:;
1616          V322= (V324);}          V293= (V295);}
1617          goto T487;          goto T491;
1618  T487:;  T491:;
1619          {object V325;          {object V296;
1620          V325= STREF(object,(V277),24);          V296= STREF(object,(V260),24);
1621          if(!(((V325))==(VV[43]))){          if(!(((V296))==(VV[43]))){
1622          goto T496;}          goto T500;}
1623          (void)((*(LnkLI61))((V277),VV[69]));          (void)((*(LnkLI61))((V260),VV[69]));
1624          V323= STREF(object,(V277),24);          V294= STREF(object,(V260),24);
1625          goto T493;          goto T497;
1626          goto T496;          goto T500;
1627  T496:;  T500:;
1628          V323= (V325);}          V294= (V296);}
1629          goto T493;          goto T497;
1630  T493:;  T497:;
1631          {object V326;          {object V297;
1632          object V327;          object V298;
1633          base[4]= base[1];          base[4]= base[1];
1634          base[5]= (V323);          base[5]= (V294);
1635          base[6]= Ct;          base[6]= Ct;
1636          base[7]= Ct;          base[7]= Ct;
1637          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1638          (void) (*Lnk251)();          (void) (*Lnk277)();
1639          if(vs_base>=vs_top){vs_top=sup;goto T504;}          if(vs_base>=vs_top){vs_top=sup;goto T508;}
1640          V326= vs_base[0];          V297= vs_base[0];
1641          vs_base++;          vs_base++;
1642          if(vs_base>=vs_top){vs_top=sup;goto T505;}          if(vs_base>=vs_top){vs_top=sup;goto T509;}
1643          V327= vs_base[0];          V298= vs_base[0];
1644          vs_top=sup;          vs_top=sup;
1645          goto T506;          goto T510;
1646          goto T504;          goto T508;
1647  T504:;  T508:;
1648          V326= Cnil;          V297= Cnil;
1649          goto T505;          goto T509;
1650  T505:;  T509:;
1651          V327= Cnil;          V298= Cnil;
1652          goto T506;          goto T510;
1653  T506:;  T510:;
1654          V328 = (V277);          V299= Ct;
1655          V329 = (V327);          STSET(object,(V260),40, (V298));
1656          V330= Ct;          (void)((V298));
         STSET(object,V328,40, V329);  
         (void)(V329);  
         V331 = (V277);  
1657          base[4]= VV[74];          base[4]= VV[74];
1658          base[5]= (V277);          base[5]= (V260);
1659          base[6]= base[1];          base[6]= base[1];
1660          base[7]= append((V322),(V326));          base[7]= append((V293),(V297));
1661          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1662          (void) (*Lnk249)();          (void) (*Lnk275)();
1663          vs_top=sup;          vs_top=sup;
1664          V332= vs_base[0];          V300= vs_base[0];
1665          V333= Ct;          V301= Ct;
1666          STSET(object,V331,44, V332);          STSET(object,(V260),44, V300);
1667          (void)(V332);          (void)(V300);
1668          goto T416;}}          goto T420;}}
1669          goto T486;          goto T490;
1670  T486:;  T490:;
1671          if((V280!= VV[75]))goto T513;          if((V264!= VV[75]))goto T517;
1672          V334 = (V277);          V302= (*(LnkLI75))((V262));
1673          V335= (*(LnkLI75))((V279));          V303= Ct;
1674          V336= Ct;          STSET(object,(V260),52, /* INLINE-ARGS */V302);
1675          STSET(object,V334,52, /* INLINE-ARGS */V335);          (void)(/* INLINE-ARGS */V302);
1676          (void)(/* INLINE-ARGS */V335);          goto T420;
1677          goto T416;          goto T517;
1678          goto T513;  T517:;
1679  T513:;          if((V264!= VV[13]))goto T518;
1680          if((V280!= VV[13]))goto T514;          {object V304;
1681          {object V337;          object V305;
1682          object V338;          V304= (*(LnkLI278))((V262));
1683          V337= (*(LnkLI252))((V279));          {object V306;
1684          {object V339;          V306= STREF(object,(V260),52);
1685          V339= STREF(object,(V277),52);          if(!(((V306))==(VV[43]))){
1686          if(!(((V339))==(VV[43]))){          goto T523;}
1687          goto T519;}          (void)((*(LnkLI61))((V260),VV[75]));
1688          (void)((*(LnkLI61))((V277),VV[75]));          V305= STREF(object,(V260),52);
1689          V338= STREF(object,(V277),52);          goto T520;
1690          goto T516;          goto T523;
1691          goto T519;  T523:;
1692  T519:;          V305= (V306);}
1693          V338= (V339);}          goto T520;
1694          goto T516;  T520:;
1695  T516:;          V307= Ct;
1696          V340 = (V277);          STSET(object,(V260),48, (V304));
1697          V341 = (V337);          (void)((V304));
1698          V342= Ct;          if(((V305))==Cnil){
1699          STSET(object,V340,48, V341);          goto T420;}
1700          (void)(V341);          {object V309;
1701          if(((V338))==Cnil){          if((V304)!=Cnil){
1702          goto T416;}          V309= (V304);
1703          {object V344;          goto T529;}
1704          if((V337)!=Cnil){          V309= (VV[279]->s.s_gfdef);
1705          V344= (V337);          goto T529;
1706          goto T525;}  T529:;
1707          V344= (VV[253]->s.s_gfdef);          V310= ({object _tmp=get(VV[280],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[280])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[280])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         goto T525;  
 T525:;  
         V345= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});  
         V346 = (V344);  
         V347 = V338;  
1708          (void)((          (void)((
1709          V348 = V345,          V311 = V310,
1710          (type_of(V348) == t_sfun ?(*((V348)->sfn.sfn_self)):          (type_of(V311) == t_sfun ?(*((V311)->sfn.sfn_self)):
1711          (fcall.argd=2,type_of(V348)==t_vfun) ?          (fcall.argd=2,type_of(V311)==t_vfun) ?
1712          (*((V348)->sfn.sfn_self)):          (*((V311)->sfn.sfn_self)):
1713          (fcall.fun=(V348),fcalln))(V346,V347)));          (fcall.fun=(V311),fcalln))((V309),V305)));
1714          goto T416;}}          goto T420;}}
1715          goto T514;          goto T518;
1716  T514:;  T518:;
1717          FEerror("The ECASE key value ~s is illegal.",1,V280);          base[4]= VV[101];
1718          goto T416;}}          base[5]= VV[102];
1719          goto T416;          base[6]= VV[103];
1720  T416:;          base[7]= VV[104];
1721          {object V349 = (V277);          base[8]= V261;
1722          VMR31(V349)}          base[9]= VV[105];
1723            base[10]= VV[106];
1724            base[11]= VV[107];
1725            base[12]= VV[108];
1726            vs_top=(vs_base=base+4)+9;
1727            (void) (*Lnk281)();
1728            vs_top=sup;}}
1729            goto T420;
1730    T420:;
1731            {object V312 = (V260);
1732            VMR31(V312)}
1733          base[0]=base[0];          base[0]=base[0];
1734          return Cnil;          return Cnil;
1735  }  }
1736  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION     */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION     */
1737    
1738  static object LI33(V351)  static object LI33(V314)
1739    
1740  object V351;  object V314;
1741  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1742          goto TTL;          goto TTL;
1743  TTL:;  TTL:;
1744          {register object V352;          {register object V315;
1745          object V353;          object V316;
1746          V352= CMPcar((V351));          V315= CMPcar((V314));
1747          V353= CMPcadr((V351));          V316= CMPcadr((V314));
1748          if(((VV[101]->s.s_dbind))==(VV[102])){          if(((VV[109]->s.s_dbind))==(VV[110])){
1749          goto T529;}          goto T542;}
1750          {object V354 = Cnil;          {object V317 = Cnil;
1751          VMR32(V354)}          VMR32(V317)}
1752          goto T529;          goto T542;
1753  T529:;  T542:;
1754          if(!(type_of((V352))==t_symbol)){          if(!(type_of((V315))==t_symbol)){
1755          goto T532;}          goto T545;}
1756          V352= (VFUN_NARGS=1,(*(LnkLI217))((V352)));          V315= (VFUN_NARGS=1,(*(LnkLI243))((V315)));
1757          goto T532;          goto T545;
1758  T532:;  T545:;
1759          base[2]= (V352);          base[2]= (V315);
1760          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1761          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk254)(Lclptr254);
1762          vs_top=sup;          vs_top=sup;
1763          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1764          goto T536;}          goto T549;}
1765          base[2]= (V352);          base[2]= (V315);
1766          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1767          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk282)(Lclptr282);
1768          vs_top=sup;          vs_top=sup;
1769          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1770          goto T536;}          goto T549;}
1771          base[2]= (V352);          base[2]= (V315);
1772          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1773          (void) (*Lnk256)(Lclptr256);          (void) (*Lnk283)(Lclptr283);
1774          vs_top=sup;          vs_top=sup;
1775          goto T536;          goto T549;
1776  T536:;  T549:;
1777          {register object V355;          {register object V318;
1778          object V356;          object V319;
1779          register object V357;          register object V320;
1780          object V358;          object V321;
1781          object V359;          object V322;
1782          object V360;          object V323;
1783          object V361;          object V324;
1784          register object V362;          register object V325;
1785          object V363;          object V326;
1786          object V364;          object V327;
1787          {object V365;          {object V328;
1788          object V366= (V353);          object V329= (V316);
1789          if(V366==Cnil){          if(V329==Cnil){
1790          V355= Cnil;          V318= Cnil;
1791          goto T544;}          goto T557;}
1792          base[13]=V365=MMcons(Cnil,Cnil);          base[13]=V328=MMcons(Cnil,Cnil);
1793          goto T545;          goto T558;
1794  T545:;  T558:;
1795          (V365->c.c_cdr)= list(2,(V366->c.c_car),Cnil);          (V328->c.c_cdr)= list(2,(V329->c.c_car),Cnil);
1796          while(MMcdr(V365)!=Cnil)V365=MMcdr(V365);          while(MMcdr(V328)!=Cnil)V328=MMcdr(V328);
1797          if((V366=MMcdr(V366))==Cnil){          if((V329=MMcdr(V329))==Cnil){
1798          base[13]=base[13]->c.c_cdr;          base[13]=base[13]->c.c_cdr;
1799          V355= base[13];          V318= base[13];
1800          goto T544;}          goto T557;}
1801          goto T545;}          goto T558;}
1802          goto T544;          goto T557;
1803  T544:;  T557:;
1804          V356= make_cons((V352),(V355));          V319= make_cons((V315),(V318));
1805          base[4]= (*(LnkLI254))(VV[9]);          base[4]= (*(LnkLI280))(VV[9]);
1806          base[4]=MMcons(base[4],Cnil);          base[4]=MMcons(base[4],Cnil);
1807          base[13]= (base[4]->c.c_car);          base[13]= (base[4]->c.c_car);
1808          base[14]= (V356);          base[14]= (V319);
1809          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1810          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk284)(Lclptr284);
1811          vs_top=sup;          vs_top=sup;
1812          V357= vs_base[0];          V320= vs_base[0];
1813          V358= (*(LnkLI258))((V357),VV[103]);          V321= (*(LnkLI285))((V320),VV[111]);
1814          V359= list(2,(V352),(V355));          V322= list(2,(V315),(V318));
1815          V360= (*(LnkLI254))(VV[104]);          V323= (*(LnkLI280))(VV[112]);
1816          base[13]= (V360);          base[13]= (V323);
1817          base[14]= (V359);          base[14]= (V322);
1818          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1819          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk284)(Lclptr284);
1820          vs_top=sup;          vs_top=sup;
1821          V361= vs_base[0];          V324= vs_base[0];
1822          base[13]= (V352);          base[13]= (V315);
1823          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1824          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk254)(Lclptr254);
1825          vs_top=sup;          vs_top=sup;
1826          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1827          goto T559;}          goto T572;}
1828          V362= Cnil;          V325= Cnil;
1829          goto T558;          goto T571;
1830          goto T559;          goto T572;
1831  T559:;  T572:;
1832          base[13]= (V352);          base[13]= (V315);
1833          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1834          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk276)(Lclptr276);
1835          vs_top=sup;          vs_top=sup;
1836          V362= vs_base[0];          V325= vs_base[0];
1837          goto T558;          goto T571;
1838  T558:;  T571:;
1839          if(((V362))==Cnil){          if(((V325))==Cnil){
1840          goto T565;}          goto T578;}
1841          base[13]= (*(LnkLI254))(VV[97]);          base[13]= (*(LnkLI280))(VV[97]);
1842          base[14]= make_cons((V362),(V355));          base[14]= make_cons((V325),(V318));
1843          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1844          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk284)(Lclptr284);
1845          vs_top=sup;          vs_top=sup;
1846          V363= vs_base[0];          V326= vs_base[0];
1847          goto T563;          goto T576;
1848          goto T565;          goto T578;
1849  T565:;  T578:;
1850          V363= Cnil;          V326= Cnil;
1851          goto T563;          goto T576;
1852  T563:;  T576:;
1853          if(((V362))==Cnil){          if(((V325))==Cnil){
1854          goto T571;}          goto T584;}
1855          base[13]= (*(LnkLI254))(VV[98]);          base[13]= (*(LnkLI280))(VV[98]);
1856          base[14]= listA(3,(V362),Ct,(V355));          base[14]= listA(3,(V325),Ct,(V318));
1857          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1858          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk284)(Lclptr284);
1859          vs_top=sup;          vs_top=sup;
1860          V364= vs_base[0];          V327= vs_base[0];
1861          goto T569;          goto T582;
1862          goto T571;          goto T584;
1863  T571:;  T584:;
1864          V364= Cnil;          V327= Cnil;
1865          goto T569;          goto T582;
1866  T569:;  T582:;
1867          if(((V357))!=Cnil){          if(((V320))!=Cnil){
1868          goto T575;}          goto T588;}
1869          {object V368 =          {object V331 =
1870          make_cclosure_new(LC66,Cnil,base[4],Cdata);          make_cclosure_new(LC66,Cnil,base[4],Cdata);
1871          VMR32(V368)}          VMR32(V331)}
1872          goto T575;          goto T588;
1873  T575:;  T588:;
1874          if((CMPcdr((V357)))!=Cnil){          if((CMPcdr((V320)))!=Cnil){
1875          goto T579;}          goto T592;}
1876          if(!((CMPcar((V357)))==((V358)))){          if(!((CMPcar((V320)))==((V321)))){
1877          goto T579;}          goto T592;}
1878          if((CMPcdr((V361)))!=Cnil){          if((CMPcdr((V324)))!=Cnil){
1879          goto T579;}          goto T592;}
1880          base[13]= CMPcar((V361));          base[13]= CMPcar((V324));
1881          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1882          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk286)(Lclptr286);
1883          vs_top=sup;          vs_top=sup;
1884          V369= vs_base[0];          V332= vs_base[0];
1885          if(!((CMPcar(V369))==((VV[105]->s.s_dbind)))){          if(!((CMPcar(V332))==((VV[113]->s.s_dbind)))){
1886          goto T579;}          goto T592;}
1887          base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata);          base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata);
1888          base[13]=MMcons(base[13],base[4]);          base[13]=MMcons(base[13],base[4]);
1889          base[14]= (base[13]->c.c_car);          base[14]= (base[13]->c.c_car);
1890          base[15]= (V363);          base[15]= (V326);
1891          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1892          (void) (*Lnk260)();          (void) (*Lnk287)();
1893          vs_top=sup;          vs_top=sup;
1894          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1895          goto T591;}          goto T604;}
1896          goto T590;          goto T603;
1897          goto T591;          goto T604;
1898  T591:;  T604:;
1899          base[14]= (base[13]->c.c_car);          base[14]= (base[13]->c.c_car);
1900          base[15]= (V364);          base[15]= (V327);
1901          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1902          (void) (*Lnk260)();          (void) (*Lnk287)();
1903          vs_top=sup;          vs_top=sup;
1904          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1905          goto T578;}          goto T591;}
1906          goto T590;          goto T603;
1907  T590:;  T603:;
1908          goto T579;          goto T592;
1909  T579:;  T592:;
1910          {object V370 = Cnil;          {object V333 = Cnil;
1911          VMR32(V370)}          VMR32(V333)}
1912          goto T578;          goto T591;
1913  T578:;  T591:;
1914          V371 = (V352);          base[13]= (V315);
1915          V372 = (V351);          base[14]= (V318);
         base[13]= (V352);  
         base[14]= (V355);  
1916          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1917          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk112)(Lclptr112);
1918          vs_top=sup;          vs_top=sup;
1919          V373= vs_base[0];          V334= vs_base[0];
1920          V374 = (V363);          {object V335 = (*(LnkLI288))((V315),(V314),V334,(V326),(V327));
1921          V375 = (V364);          VMR32(V335)}}}
         {object V376 = (*(LnkLI261))(V371,V372,V373,V374,V375);  
         VMR32(V376)}}}  
1922          base[0]=base[0];          base[0]=base[0];
1923          return Cnil;          return Cnil;
1924  }  }
1925  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL    */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL    */
1926    
1927  static object LI35(V382,V383,V384,V385,V386)  static object LI35(V341,V342,V343,V344,V345)
1928    
1929  register object V382;register object V383;object V384;register object V385;register object V386;  register object V341;register object V342;object V343;register object V344;register object V345;
1930  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1931          goto TTL;          goto TTL;
1932  TTL:;  TTL:;
1933          {object V387;          {object V346;
1934          object V388;          object V347;
1935          object V389;          object V348;
1936          V387= CMPcadr((V383));          V346= CMPcadr((V342));
1937          V388= CMPcaddr((V383));          V347= CMPcaddr((V342));
1938          base[3]= (*(LnkLI254))(VV[96]);          base[3]= (*(LnkLI280))(VV[96]);
1939          base[4]= make_cons((V382),(V384));          base[4]= make_cons((V341),(V343));
1940          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1941          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk284)(Lclptr284);
1942          vs_top=sup;          vs_top=sup;
1943          V389= vs_base[0];          V348= vs_base[0];
1944          if(((V388))!=Cnil){          if(((V347))!=Cnil){
1945          goto T605;}          goto T618;}
1946          V390 = (V382);          base[3]= (V348);
1947          V391 = (V384);          base[4]= (V344);
1948          base[3]= (V389);          base[5]= (V345);
         base[4]= (V385);  
         base[5]= (V386);  
1949          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1950          Lappend();          Lappend();
1951          vs_top=sup;          vs_top=sup;
1952          V392= vs_base[0];          V349= vs_base[0];
1953          if(((VFUN_NARGS=5,(*(LnkLI262))(V390,V391,V392,Ct,Cnil)))!=Cnil){          if(((VFUN_NARGS=5,(*(LnkLI289))((V341),(V343),V349,Ct,Cnil)))!=Cnil){
1954          goto T605;}          goto T618;}
1955          {object V393 = Cnil;          {object V350 = Cnil;
1956          VMR33(V393)}          VMR33(V350)}
1957          goto T605;          goto T618;
1958  T605:;  T618:;
1959          if((CMPcdr((V389)))!=Cnil){          if((CMPcdr((V348)))!=Cnil){
1960          goto T614;}          goto T627;}
1961          base[3]= (VV[263]->s.s_gfdef);          base[3]= (VV[290]->s.s_gfdef);
1962          base[4]= (V385);          base[4]= (V344);
1963          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1964          (void) (*Lnk264)();          (void) (*Lnk291)();
1965          vs_top=sup;          vs_top=sup;
1966          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1967          goto T614;}          goto T627;}
1968          base[3]= (VV[263]->s.s_gfdef);          base[3]= (VV[290]->s.s_gfdef);
1969          base[4]= (V386);          base[4]= (V345);
1970          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1971          (void) (*Lnk264)();          (void) (*Lnk291)();
1972          vs_top=sup;          vs_top=sup;
1973          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1974          goto T615;}          goto T628;}
1975          goto T614;          goto T627;
1976  T614:;  T627:;
1977          {object V394 = (*(LnkLI265))((V383),(V382),(V387),(V385),(V386));          {object V351 = (*(LnkLI292))((V342),(V341),(V346),(V344),(V345));
1978          VMR33(V394)}          VMR33(V351)}
1979          goto T615;          goto T628;
1980  T615:;  T628:;
1981          {object V395 = (*(LnkLI266))((V383),(V382),(V387),(V385),(V386));          {object V352 = (*(LnkLI293))((V342),(V341),(V346),(V344),(V345));
1982          VMR33(V395)}}          VMR33(V352)}}
1983          base[0]=base[0];          base[0]=base[0];
1984          return Cnil;          return Cnil;
1985  }  }
1986  /*      local entry for function COMPLICATED-INSTANCE-CREATION-METHOD   */  /*      local entry for function COMPLICATED-INSTANCE-CREATION-METHOD   */
1987    
1988  static object LI36(V397)  static object LI36(V354)
1989    
1990  object V397;  object V354;
1991  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
1992          goto TTL;          goto TTL;
1993  TTL:;  TTL:;
1994          {object V398;          {object V355;
1995          base[0]= (V397);          base[0]= (V354);
1996          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1997          (void) (*Lnk267)(Lclptr267);          (void) (*Lnk294)(Lclptr294);
1998          vs_top=sup;          vs_top=sup;
1999          V398= vs_base[0];          V355= vs_base[0];
2000          if(((V398))==Cnil){          if(((V355))==Cnil){
2001          goto T628;}          goto T641;}
2002          if((CMPcdr((V398)))==Cnil){          if((CMPcdr((V355)))==Cnil){
2003          goto T631;}          goto T644;}
2004          V399= Cnil;          V356= Cnil;
2005          goto T630;          goto T643;
2006          goto T631;          goto T644;
2007  T631:;  T644:;
2008          V399= ((CMPcar((V398)))==(VV[107])?Ct:Cnil);          V356= ((CMPcar((V355)))==(VV[115])?Ct:Cnil);
2009          goto T630;          goto T643;
2010  T630:;  T643:;
2011          {object V400 = ((V399)==Cnil?Ct:Cnil);          {object V357 = ((V356)==Cnil?Ct:Cnil);
2012          VMR34(V400)}          VMR34(V357)}
2013          goto T628;          goto T641;
2014  T628:;  T641:;
2015          {object V401;          {object V358;
2016          base[0]= (V397);          base[0]= (V354);
2017          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2018          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk286)(Lclptr286);
2019          vs_top=sup;          vs_top=sup;
2020          V402= vs_base[0];          V359= vs_base[0];
2021          V401= CMPcar(V402);          V358= CMPcar(V359);
2022          base[0]= (V401);          base[0]= (V358);
2023          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2024          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk254)(Lclptr254);
2025          vs_top=sup;          vs_top=sup;
2026          V403= vs_base[0];          V360= vs_base[0];
2027          if(!((V403)==Cnil)){          if(!((V360)==Cnil)){
2028          goto T636;}          goto T649;}
2029          {object V404 = Ct;          {object V361 = Ct;
2030          VMR34(V404)}          VMR34(V361)}
2031          goto T636;          goto T649;
2032  T636:;  T649:;
2033          base[0]= (V401);          base[0]= (V358);
2034          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2035          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk255)(Lclptr255);
2036          vs_top=sup;          vs_top=sup;
2037          V405= vs_base[0];          V362= vs_base[0];
2038          {object V406 = ((((VV[108])==(V405)?Ct:Cnil))==Cnil?Ct:Cnil);          {object V363 = ((((VV[116])==(V362)?Ct:Cnil))==Cnil?Ct:Cnil);
2039          VMR34(V406)}}}          VMR34(V363)}}}
2040          base[0]=base[0];          base[0]=base[0];
2041          return Cnil;          return Cnil;
2042  }  }
2043  /*      local entry for function FIND-STANDARD-II-METHOD        */  /*      local entry for function FIND-STANDARD-II-METHOD        */
2044    
2045  static object LI37(V409,V410)  static object LI37(V366,V367)
2046    
2047  object V409;register object V410;  object V366;register object V367;
2048  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2049          goto TTL;          goto TTL;
2050  TTL:;  TTL:;
2051          {register object V411;          {register object V368;
2052          register object V412;          register object V369;
2053          V411= (V409);          V368= (V366);
2054          V412= CMPcar((V411));          V369= CMPcar((V368));
2055          goto T645;          goto T658;
2056  T645:;  T658:;
2057          if(!(((V411))==Cnil)){          if(!(((V368))==Cnil)){
2058          goto T646;}          goto T659;}
2059          {object V413 = Cnil;          {object V370 = Cnil;
2060          VMR35(V413)}          VMR35(V370)}
2061          goto T646;          goto T659;
2062  T646:;  T659:;
2063          base[1]= (V412);          base[1]= (V369);
2064          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2065          (void) (*Lnk267)(Lclptr267);          (void) (*Lnk294)(Lclptr294);
2066          vs_top=sup;          vs_top=sup;
2067          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2068          goto T650;}          goto T663;}
2069          {register object V414;          {register object V371;
2070          base[1]= (V412);          base[1]= (V369);
2071          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2072          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk286)(Lclptr286);
2073          vs_top=sup;          vs_top=sup;
2074          V415= vs_base[0];          V372= vs_base[0];
2075          V414= CMPcar(V415);          V371= CMPcar(V372);
2076          base[1]= (V414);          base[1]= (V371);
2077          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2078          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk254)(Lclptr254);
2079          vs_top=sup;          vs_top=sup;
2080          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
         goto T650;}  
         if(!(type_of((V410))==t_cons||((V410))==Cnil)){  
2081          goto T663;}          goto T663;}
2082          base[1]= (V414);          if(!(type_of((V367))==t_cons||((V367))==Cnil)){
2083            goto T676;}
2084            base[1]= (V371);
2085          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2086          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk255)(Lclptr255);
2087          vs_top=sup;          vs_top=sup;
2088          V417= vs_base[0];          V374= vs_base[0];
2089          V418 = (V410);          {register object x= V374,V373= (V367);
2090          {register object x= V417,V416= V418;          while(V373!=Cnil)
2091          while(V416!=Cnil)          if(eql(x,V373->c.c_car)){
2092          if(eql(x,V416->c.c_car)){          goto T674;
2093          goto T661;          }else V373=V373->c.c_cdr;
2094          }else V416=V416->c.c_cdr;          goto T663;}
2095          goto T650;}          goto T676;
2096          goto T663;  T676:;
2097  T663:;          base[1]= (V371);
         base[1]= (V414);  
2098          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2099          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk255)(Lclptr255);
2100          vs_top=sup;          vs_top=sup;
2101          V419= vs_base[0];          V375= vs_base[0];
2102          V420 = (V410);          if(!((V375)==((V367)))){
2103          if(!((V419)==(V420))){          goto T663;}
2104          goto T650;}          goto T674;
2105          goto T661;  T674:;
2106  T661:;          {object V376 = (V369);
2107          {object V421 = (V412);          VMR35(V376)}}
2108          VMR35(V421)}}          goto T663;
2109          goto T650;  T663:;
2110  T650:;          V368= CMPcdr((V368));
2111          V411= CMPcdr((V411));          V369= CMPcar((V368));
2112          V412= CMPcar((V411));          goto T658;}
         goto T645;}  
2113          base[0]=base[0];          base[0]=base[0];
2114          return Cnil;          return Cnil;
2115  }  }
# Line 2153  static void L38() Line 2121  static void L38()
2121          vs_check;          vs_check;
2122          check_arg(2);          check_arg(2);
2123          vs_top=sup;          vs_top=sup;
2124          {object V422=base[0]->c.c_cdr;          {object V377=base[0]->c.c_cdr;
2125          if(endp(V422))invalid_macro_call();          if(endp(V377))invalid_macro_call();
2126          base[2]= (V422->c.c_car);          base[2]= (V377->c.c_car);
2127          V422=V422->c.c_cdr;          V377=V377->c.c_cdr;
2128          if(endp(V422))invalid_macro_call();          if(endp(V377))invalid_macro_call();
2129          base[3]= (V422->c.c_car);          base[3]= (V377->c.c_car);
2130          V422=V422->c.c_cdr;          V377=V377->c.c_cdr;
2131          if(endp(V422))invalid_macro_call();          if(endp(V377))invalid_macro_call();
2132          base[4]= (V422->c.c_car);          base[4]= (V377->c.c_car);
2133          V422=V422->c.c_cdr;          V377=V377->c.c_cdr;
2134          if(!endp(V422))invalid_macro_call();}          if(!endp(V377))invalid_macro_call();}
2135          V423= list(2,VV[109],base[2]);          V378= list(2,VV[117],base[2]);
2136          V424= make_cons(/* INLINE-ARGS */V423,Cnil);          V379= make_cons(/* INLINE-ARGS */V378,Cnil);
2137          V425= list(5,VV[111],VV[112],VV[113],base[3],base[4]);          V380= list(5,VV[119],VV[120],VV[121],base[3],base[4]);
2138          base[5]= list(3,VV[52],/* INLINE-ARGS */V424,list(4,VV[78],VV[110],/* INLINE-ARGS */V425,list(4,VV[114],VV[115],base[3],base[4])));          base[5]= list(3,VV[52],/* INLINE-ARGS */V379,list(4,VV[78],VV[118],/* INLINE-ARGS */V380,list(4,VV[122],VV[123],base[3],base[4])));
2139          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2140          return;          return;
2141  }  }
# Line 2179  static void L39() Line 2147  static void L39()
2147          vs_check;          vs_check;
2148          check_arg(2);          check_arg(2);
2149          vs_top=sup;          vs_top=sup;
2150          {object V426=base[0]->c.c_cdr;          {object V381=base[0]->c.c_cdr;
2151          if(endp(V426))invalid_macro_call();          if(endp(V381))invalid_macro_call();
2152          base[2]= (V426->c.c_car);          base[2]= (V381->c.c_car);
2153          V426=V426->c.c_cdr;          V381=V381->c.c_cdr;
2154          if(!endp(V426))invalid_macro_call();}          if(!endp(V381))invalid_macro_call();}
2155          base[3]= list(2,VV[116],base[2]);          base[3]= list(2,VV[124],base[2]);
2156          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2157          return;          return;
2158  }  }
# Line 2196  static void L40() Line 2164  static void L40()
2164          vs_check;          vs_check;
2165          check_arg(2);          check_arg(2);
2166          vs_top=sup;          vs_top=sup;
2167          {object V427=base[0]->c.c_cdr;          {object V382=base[0]->c.c_cdr;
2168          if(endp(V427))invalid_macro_call();          if(endp(V382))invalid_macro_call();
2169          base[2]= (V427->c.c_car);          base[2]= (V382->c.c_car);
2170          V427=V427->c.c_cdr;          V382=V382->c.c_cdr;
2171          if(endp(V427))invalid_macro_call();          if(endp(V382))invalid_macro_call();
2172          base[3]= (V427->c.c_car);          base[3]= (V382->c.c_car);
2173          V427=V427->c.c_cdr;          V382=V382->c.c_cdr;
2174          if(!endp(V427))invalid_macro_call();}          if(!endp(V382))invalid_macro_call();}
2175          V428= list(3,VV[62],VV[118],base[2]);          V383= list(3,VV[62],VV[126],base[2]);
2176          base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V428,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]);          base[4]= list(5,VV[52],VV[125],/* INLINE-ARGS */V383,list(3,VV[62],VV[127],list(2,VV[128],base[3])),VV[129]);
2177          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2178          return;          return;
2179  }  }
# Line 2217  static void L41() Line 2185  static void L41()
2185          vs_check;          vs_check;
2186          check_arg(2);          check_arg(2);
2187          vs_top=sup;          vs_top=sup;
2188          {object V429=base[0]->c.c_cdr;          {object V384=base[0]->c.c_cdr;
2189          if(endp(V429))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2190          base[2]= (V429->c.c_car);          base[2]= (V384->c.c_car);
2191          V429=V429->c.c_cdr;          V384=V384->c.c_cdr;
2192          base[3]= V429;}          base[3]= V384;}
2193          V430= list(3,VV[124],VV[125],base[2]);          V385= list(3,VV[132],VV[133],base[2]);
2194          base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V430,make_cons(VV[6],base[3])));          base[4]= list(3,VV[52],VV[130],list(4,VV[78],VV[131],/* INLINE-ARGS */V385,make_cons(VV[6],base[3])));
2195          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2196          return;          return;
2197  }  }
# Line 2233  static void L42() Line 2201  static void L42()
2201  {register object *base=vs_base;  {register object *base=vs_base;
2202          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2203          vs_check;          vs_check;
2204          {object V431;          {object V386;
2205          object V432;          object V387;
2206          check_arg(2);          check_arg(2);
2207          V431=(base[0]);          V386=(base[0]);
2208          V432=(base[1]);          V387=(base[1]);
2209          vs_top=sup;          vs_top=sup;
2210          goto TTL;          goto TTL;
2211  TTL:;  TTL:;
2212          {object V433;          {object V388;
2213          object V434;          object V389;
2214          V433= (VFUN_NARGS=2,(*(LnkLI39))((V431),(V432)));          V388= (VFUN_NARGS=2,(*(LnkLI39))((V386),(V387)));
2215          {object V435;          {object V390;
2216          V435= STREF(object,(V433),48);          V390= STREF(object,(V388),48);
2217          if(!(((V435))==(VV[43]))){          if(!(((V390))==(VV[43]))){
2218          goto T678;}          goto T691;}
2219          (void)((*(LnkLI61))((V433),VV[13]));          (void)((*(LnkLI61))((V388),VV[13]));
2220          V434= STREF(object,(V433),48);          V389= STREF(object,(V388),48);
2221          goto T675;          goto T688;
2222          goto T678;          goto T691;
2223  T678:;  T691:;
2224          V434= (V435);}          V389= (V390);}
2225          goto T675;          goto T688;
2226  T675:;  T688:;
2227          base[4]= (V431);          base[4]= (V386);
2228          base[5]= (V432);          base[5]= (V387);
2229          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2230          {object _funobj = (V434);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V389);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2231                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2232                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2233                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 2268  T675:; Line 2236  T675:;
2236  }  }
2237  /*      local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE  */  /*      local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE  */
2238    
2239  static object LI43(V441,V442,V443,V444,V445)  static object LI43(V396,V397,V398,V399,V400)
2240    
2241  object V441;object V442;object V443;object V444;object V445;  object V396;object V397;object V398;object V399;object V400;
2242  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2243          goto TTL;          goto TTL;
2244  TTL:;  TTL:;
2245          {object V446;          {object V401;
2246          object V447;          object V402;
2247          object V448;          object V403;
2248          object V449;          object V404;
2249          base[0]= CMPcar((V441));          base[0]= CMPcar((V396));
2250          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2251          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
2252          goto T686;}          goto T699;}
2253          base[1]= (VFUN_NARGS=2,(*(LnkLI224))((base[0]->c.c_car),Cnil));          base[1]= (VFUN_NARGS=2,(*(LnkLI250))((base[0]->c.c_car),Cnil));
2254          goto T684;          goto T697;
2255          goto T686;          goto T699;
2256  T686:;  T699:;
2257          base[1]= Cnil;          base[1]= Cnil;
2258          goto T684;          goto T697;
2259  T684:;  T697:;
2260          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
2261          base[10]= (V442);          base[10]= (V397);
2262          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2263          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
2264          vs_top=sup;          vs_top=sup;
2265          base[2]= vs_base[0];          base[2]= vs_base[0];
2266          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
2267          V446= make_cons((base[2]->c.c_car),Cnil);          V401= make_cons((base[2]->c.c_car),Cnil);
2268          base[10]= (V442);          base[10]= (V397);
2269          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2270          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk295)(Lclptr295);
2271          vs_top=sup;          vs_top=sup;
2272          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2273          goto T693;}          goto T706;}
2274          base[4]= (VV[269]->s.s_gfdef);          base[4]= (VV[296]->s.s_gfdef);
2275          goto T691;          goto T704;
2276          goto T693;          goto T706;
2277  T693:;  T706:;
2278          base[10]= (V442);          base[10]= (V397);
2279          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2280          (void) (*Lnk270)(Lclptr270);          (void) (*Lnk297)(Lclptr297);
2281          vs_top=sup;          vs_top=sup;
2282          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2283          goto T697;}          goto T710;}
2284          base[4]= (VV[271]->s.s_gfdef);          base[4]= (VV[298]->s.s_gfdef);
2285          goto T691;          goto T704;
2286          goto T697;          goto T710;
2287  T697:;  T710:;
2288          base[10]= (V442);          base[10]= (V397);
2289          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2290          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk299)(Lclptr299);
2291          vs_top=sup;          vs_top=sup;
2292          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2293          goto T701;}          goto T714;}
2294          base[4]= (VV[273]->s.s_gfdef);          base[4]= (VV[300]->s.s_gfdef);
2295          goto T691;          goto T704;
2296          goto T701;          goto T714;
2297  T701:;  T714:;
2298          base[10]= VV[126];          base[10]= VV[134];
2299          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2300          Lerror();          Lerror();
2301          vs_top=sup;          vs_top=sup;
2302          base[4]= vs_base[0];          base[4]= vs_base[0];
2303          goto T691;          goto T704;
2304  T691:;  T704:;
2305          base[4]=MMcons(base[4],base[2]);          base[4]=MMcons(base[4],base[2]);
2306          base[10]= (V442);          base[10]= (V397);
2307          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2308          (void) (*Lnk270)(Lclptr270);          (void) (*Lnk297)(Lclptr297);
2309          vs_top=sup;          vs_top=sup;
2310          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2311          goto T707;}          goto T720;}
2312          V447= VV[127];          V402= VV[135];
2313          goto T705;          goto T718;
2314          goto T707;          goto T720;
2315  T707:;  T720:;
2316          V447= Cnil;          V402= Cnil;
2317          goto T705;          goto T718;
2318  T705:;  T718:;
2319          V448= (*(LnkLI258))((V445),VV[108]);          V403= (*(LnkLI285))((V400),VV[116]);
2320          base[11]= (V448);          base[11]= (V403);
2321          base[12]= (V445);          base[12]= (V400);
2322          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
2323          (void) (*Lnk274)();          (void) (*Lnk301)();
2324          vs_top=sup;          vs_top=sup;
2325          V453= vs_base[0];          V408= vs_base[0];
2326          {object V451;          {object V406;
2327          object V452= V453;          object V407= V408;
2328          if(V452==Cnil){          if(V407==Cnil){
2329          V450= Cnil;          V405= Cnil;
2330          goto T712;}          goto T725;}
2331          base[10]=V451=MMcons(Cnil,Cnil);          base[10]=V406=MMcons(Cnil,Cnil);
2332          goto T713;          goto T726;
2333  T713:;  T726:;
2334          base[11]= (VV[98]->s.s_gfdef);          base[11]= (VV[98]->s.s_gfdef);
2335          base[12]= list(3,VV[128],(V452->c.c_car),Cnil);          base[12]= list(3,VV[136],(V407->c.c_car),Cnil);
2336          base[13]= Cnil;          base[13]= Cnil;
2337          base[14]= (V446);          base[14]= (V401);
2338          vs_top=(vs_base=base+11)+4;          vs_top=(vs_base=base+11)+4;
2339          (void) (*Lnk275)();          (void) (*Lnk302)();
2340          vs_top=sup;          vs_top=sup;
2341          (V451->c.c_car)= vs_base[0];          (V406->c.c_car)= vs_base[0];
2342          if((V452=MMcdr(V452))==Cnil){          if((V407=MMcdr(V407))==Cnil){
2343          V450= base[10];          V405= base[10];
2344          goto T712;}          goto T725;}
2345          V451=MMcdr(V451)=MMcons(Cnil,Cnil);          V406=MMcdr(V406)=MMcons(Cnil,Cnil);
2346          goto T713;}          goto T726;}
2347          goto T712;          goto T725;
2348  T712:;  T725:;
2349          base[7]= nreverse(V450);          base[7]= nreverse(V405);
2350          base[7]=MMcons(base[7],base[4]);          base[7]=MMcons(base[7],base[4]);
2351          V449= (*(LnkLI258))((V444),VV[108]);          V404= (*(LnkLI285))((V399),VV[116]);
2352          base[11]= (V449);          base[11]= (V404);
2353          base[12]= (V444);          base[12]= (V399);
2354          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
2355          (void) (*Lnk274)();          (void) (*Lnk301)();
2356          vs_top=sup;          vs_top=sup;
2357          V458= vs_base[0];          V413= vs_base[0];
2358          {object V456;          {object V411;
2359          object V457= V458;          object V412= V413;
2360          if(V457==Cnil){          if(V412==Cnil){
2361          V455= Cnil;          V410= Cnil;
2362          goto T724;}          goto T737;}
2363          base[10]=V456=MMcons(Cnil,Cnil);          base[10]=V411=MMcons(Cnil,Cnil);
2364          goto T725;          goto T738;
2365  T725:;  T738:;
2366          base[11]= (VV[97]->s.s_gfdef);          base[11]= (VV[97]->s.s_gfdef);
2367          base[12]= list(3,VV[128],(V457->c.c_car),Cnil);          base[12]= list(3,VV[136],(V412->c.c_car),Cnil);
2368          base[13]= Cnil;          base[13]= Cnil;
2369          base[14]= (V446);          base[14]= (V401);
2370          vs_top=(vs_base=base+11)+4;          vs_top=(vs_base=base+11)+4;
2371          (void) (*Lnk275)();          (void) (*Lnk302)();
2372          vs_top=sup;          vs_top=sup;
2373          (V456->c.c_car)= vs_base[0];          (V411->c.c_car)= vs_base[0];
2374          if((V457=MMcdr(V457))==Cnil){          if((V412=MMcdr(V412))==Cnil){
2375          V455= base[10];          V410= base[10];
2376          goto T724;}          goto T737;}
2377          V456=MMcdr(V456)=MMcons(Cnil,Cnil);          V411=MMcdr(V411)=MMcons(Cnil,Cnil);
2378          goto T725;}          goto T738;}
2379          goto T724;          goto T737;
2380  T724:;  T737:;
2381          base[9]= nreverse(V455);          base[9]= nreverse(V410);
2382          base[9]=MMcons(base[9],base[7]);          base[9]=MMcons(base[9],base[7]);
2383          base[12]= (V442);          base[12]= (V397);
2384          base[13]= (V443);          base[13]= (V398);
2385          base[14]= CMPcaddr((V441));          base[14]= CMPcaddr((V396));
2386          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
2387          (void) (*Lnk276)();          (void) (*Lnk303)();
2388          if(vs_base>=vs_top){vs_top=sup;goto T738;}          if(vs_base>=vs_top){vs_top=sup;goto T751;}
2389          base[10]=MMcons(vs_base[0],base[9]);          base[10]=MMcons(vs_base[0],base[9]);
2390          vs_base++;          vs_base++;
2391          if(vs_base>=vs_top){vs_top=sup;goto T739;}          if(vs_base>=vs_top){vs_top=sup;goto T752;}
2392          base[11]=MMcons(vs_base[0],base[10]);          base[11]=MMcons(vs_base[0],base[10]);
2393          vs_top=sup;          vs_top=sup;
2394          goto T740;          goto T753;
2395          goto T738;          goto T751;
2396  T738:;  T751:;
2397          base[10]=MMcons(Cnil,base[9]);          base[10]=MMcons(Cnil,base[9]);
2398          goto T739;          goto T752;
2399  T739:;  T752:;
2400          base[11]=MMcons(Cnil,base[10]);          base[11]=MMcons(Cnil,base[10]);
2401          goto T740;          goto T753;
2402  T740:;  T753:;
2403          if(!(((V447))==(VV[127]))){          if(!(((V402))==(VV[135]))){
2404          goto T742;}          goto T755;}
2405          {object V460 =          {object V415 =
2406          make_cclosure_new(LC67,Cnil,base[11],Cdata);          make_cclosure_new(LC67,Cnil,base[11],Cdata);
2407          VMR41(V460)}          VMR41(V415)}
2408          goto T742;          goto T755;
2409  T742:;  T755:;
2410          {object V461 =          {object V416 =
2411          make_cclosure_new(LC68,Cnil,base[11],Cdata);          make_cclosure_new(LC68,Cnil,base[11],Cdata);
2412          VMR41(V461)}}          VMR41(V416)}}
2413          base[0]=base[0];          base[0]=base[0];
2414          return Cnil;          return Cnil;
2415  }  }
2416  /*      local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */  /*      local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */
2417    
2418  static object LI45(V467,V468,V469,V470,V471)  static object LI45(V422,V423,V424,V425,V426)
2419    
2420  object V467;object V468;object V469;object V470;object V471;  object V422;object V423;object V424;object V425;object V426;
2421  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2422          goto TTL;          goto TTL;
2423  TTL:;  TTL:;
2424          base[0]=MMcons((V468),Cnil);          base[0]=MMcons((V423),Cnil);
2425          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2426          base[4]= (V469);          base[4]= (V424);
2427          base[5]= CMPcaddr((V467));          base[5]= CMPcaddr((V422));
2428          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2429          (void) (*Lnk277)();          (void) (*Lnk304)();
2430          if(vs_base>=vs_top){vs_top=sup;goto T748;}          if(vs_base>=vs_top){vs_top=sup;goto T761;}
2431          base[1]=MMcons(vs_base[0],base[0]);          base[1]=MMcons(vs_base[0],base[0]);
2432          vs_base++;          vs_base++;
2433          if(vs_base>=vs_top){vs_top=sup;goto T749;}          if(vs_base>=vs_top){vs_top=sup;goto T762;}
2434          base[2]=MMcons(vs_base[0],base[1]);          base[2]=MMcons(vs_base[0],base[1]);
2435          vs_top=sup;          vs_top=sup;
2436          goto T750;          goto T763;
2437          goto T748;          goto T761;
2438  T748:;  T761:;
2439          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
2440          goto T749;          goto T762;
2441  T749:;  T762:;
2442          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
2443          goto T750;          goto T763;
2444  T750:;  T763:;
2445          base[3]= CMPcar((V467));          base[3]= CMPcar((V422));
2446          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
2447          if(!(type_of((base[3]->c.c_car))==t_symbol)){          if(!(type_of((base[3]->c.c_car))==t_symbol)){
2448          goto T754;}          goto T767;}
2449          base[4]= (VFUN_NARGS=2,(*(LnkLI224))((base[3]->c.c_car),Cnil));          base[4]= (VFUN_NARGS=2,(*(LnkLI250))((base[3]->c.c_car),Cnil));
2450          goto T752;          goto T765;
2451          goto T754;          goto T767;
2452  T754:;  T767:;
2453          base[4]= Cnil;          base[4]= Cnil;
2454          goto T752;          goto T765;
2455  T752:;  T765:;
2456          base[4]=MMcons(base[4],base[3]);          base[4]=MMcons(base[4],base[3]);
2457          base[8]= (base[0]->c.c_car);          base[8]= (base[0]->c.c_car);
2458          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2459          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
2460          vs_top=sup;          vs_top=sup;
2461          base[5]= vs_base[0];          base[5]= vs_base[0];
2462          base[5]=MMcons(base[5],base[4]);          base[5]=MMcons(base[5],base[4]);
2463          base[8]= (VV[98]->s.s_gfdef);          base[8]= (VV[98]->s.s_gfdef);
2464          base[9]= (V471);          base[9]= (V426);
2465          V472= list(2,VV[138],(base[0]->c.c_car));          V427= list(2,VV[150],(base[0]->c.c_car));
2466          base[10]= make_cons(/* INLINE-ARGS */V472,VV[139]);          base[10]= make_cons(/* INLINE-ARGS */V427,VV[151]);
2467          V473= (*(LnkLI258))((V471),VV[108]);          V428= (*(LnkLI285))((V426),VV[116]);
2468          V474=          V429=
2469          make_cclosure_new(LC69,Cnil,base[5],Cdata);          make_cclosure_new(LC69,Cnil,base[5],Cdata);
2470          V475= list(2,/* INLINE-ARGS */V473,V474);          V430= list(2,/* INLINE-ARGS */V428,V429);
2471          base[11]= make_cons(/* INLINE-ARGS */V475,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V430,Cnil);
2472          base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind));          base[12]= list(3,(base[5]->c.c_car),(VV[152]->s.s_dbind),(VV[152]->s.s_dbind));
2473          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
2474          (void) (*Lnk278)();          (void) (*Lnk305)();
2475          vs_top=sup;          vs_top=sup;
2476          base[6]= vs_base[0];          base[6]= vs_base[0];
2477          base[6]=MMcons(base[6],base[5]);          base[6]=MMcons(base[6],base[5]);
2478          base[8]= (VV[97]->s.s_gfdef);          base[8]= (VV[97]->s.s_gfdef);
2479          base[9]= (V470);          base[9]= (V425);
2480          base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct);          base[10]= list(2,list(2,VV[150],(base[0]->c.c_car)),Ct);
2481          V476= (*(LnkLI258))((V470),VV[108]);          V431= (*(LnkLI285))((V425),VV[116]);
2482          V477=          V432=
2483          make_cclosure_new(LC70,Cnil,base[6],Cdata);          make_cclosure_new(LC70,Cnil,base[6],Cdata);
2484          V478= list(2,/* INLINE-ARGS */V476,V477);          V433= list(2,/* INLINE-ARGS */V431,V432);
2485          base[11]= make_cons(/* INLINE-ARGS */V478,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V433,Cnil);
2486          base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind));          base[12]= list(2,(base[5]->c.c_car),(VV[152]->s.s_dbind));
2487          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
2488          (void) (*Lnk278)();          (void) (*Lnk305)();
2489          vs_top=sup;          vs_top=sup;
2490          base[7]= vs_base[0];          base[7]= vs_base[0];
2491          base[7]=MMcons(base[7],base[6]);          base[7]=MMcons(base[7],base[6]);
2492          {object V479 =          {object V434 =
2493          make_cclosure_new(LC71,Cnil,base[7],Cdata);          make_cclosure_new(LC71,Cnil,base[7],Cdata);
2494          VMR42(V479)}          VMR42(V434)}
2495          base[0]=base[0];          base[0]=base[0];
2496          return Cnil;          return Cnil;
2497  }  }
# Line 2533  static void L46() Line 2501  static void L46()
2501  {register object *base=vs_base;  {register object *base=vs_base;
2502          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2503          vs_check;          vs_check;
2504          {object V480;          {object V435;
2505          object V481;          object V436;
2506          object V482;          object V437;
2507          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2508          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
2509          V480=(base[0]);          V435=(base[0]);
2510          V481=(base[1]);          V436=(base[1]);
2511          vs_base=vs_base+2;          vs_base=vs_base+2;
2512          if(vs_base>=vs_top){vs_top=sup;goto T772;}          if(vs_base>=vs_top){vs_top=sup;goto T785;}
2513          V482=(base[2]);          V437=(base[2]);
2514          vs_top=sup;          vs_top=sup;
2515          goto T773;          goto T786;
         goto T772;  
 T772:;  
         V482= Cnil;  
         goto T773;  
 T773:;  
         {register object V483;  
         V483= (VFUN_NARGS=4,(*(LnkLI39))((V480),(V481),Cnil,(V482)));  
         {object V484;  
         V484= STREF(object,(V483),44);  
         if(!(((V484))==(VV[43]))){  
         goto T779;}  
         (void)((*(LnkLI61))((V483),VV[74]));  
         base[3]= STREF(object,(V483),44);  
         goto T776;  
         goto T779;  
 T779:;  
         base[3]= (V484);}  
         goto T776;  
 T776:;  
         {object V485;  
         V485= STREF(object,(V483),40);  
         if(!(((V485))==(VV[43]))){  
         goto T785;}  
         (void)((*(LnkLI61))((V483),VV[73]));  
         base[4]= STREF(object,(V483),40);  
         goto T782;  
2516          goto T785;          goto T785;
2517  T785:;  T785:;
2518          base[4]= (V485);}          V437= Cnil;
2519          goto T782;          goto T786;
2520  T782:;  T786:;
2521            {register object V438;
2522            V438= (VFUN_NARGS=4,(*(LnkLI39))((V435),(V436),Cnil,(V437)));
2523            {object V439;
2524            V439= STREF(object,(V438),44);
2525            if(!(((V439))==(VV[43]))){
2526            goto T792;}
2527            (void)((*(LnkLI61))((V438),VV[74]));
2528            base[3]= STREF(object,(V438),44);
2529            goto T789;
2530            goto T792;
2531    T792:;
2532            base[3]= (V439);}
2533            goto T789;
2534    T789:;
2535            {object V440;
2536            V440= STREF(object,(V438),40);
2537            if(!(((V440))==(VV[43]))){
2538            goto T798;}
2539            (void)((*(LnkLI61))((V438),VV[73]));
2540            base[4]= STREF(object,(V438),40);
2541            goto T795;
2542            goto T798;
2543    T798:;
2544            base[4]= (V440);}
2545            goto T795;
2546    T795:;
2547          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2548          return;}          return;}
2549          }          }
# Line 2586  static void L47() Line 2554  static void L47()
2554  {register object *base=vs_base;  {register object *base=vs_base;
2555          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2556          vs_check;          vs_check;
2557          {register object V486;          {register object V441;
2558          object V487;          object V442;
2559          register object V488;          register object V443;
2560          object V489;          object V444;
2561          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2562          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
2563          V486=(base[0]);          V441=(base[0]);
2564          V487=(base[1]);          V442=(base[1]);
2565          vs_base=vs_base+2;          vs_base=vs_base+2;
2566          if(vs_base>=vs_top){vs_top=sup;goto T788;}          if(vs_base>=vs_top){vs_top=sup;goto T801;}
2567          V488=(base[2]);          V443=(base[2]);
2568          vs_base++;          vs_base++;
2569          if(vs_base>=vs_top){vs_top=sup;goto T789;}          if(vs_base>=vs_top){vs_top=sup;goto T802;}
2570          V489=(base[3]);          V444=(base[3]);
2571          vs_top=sup;          vs_top=sup;
2572          goto T790;          goto T803;
2573          goto T788;          goto T801;
2574  T788:;  T801:;
2575          V488= Cnil;          V443= Cnil;
2576          goto T789;          goto T802;
2577  T789:;  T802:;
2578          V489= Cnil;          V444= Cnil;
2579          goto T790;          goto T803;
2580  T790:;  T803:;
2581          {register object V490;          {register object V445;
2582          object V491;          object V446;
2583          V490= (VFUN_NARGS=4,(*(LnkLI39))((V486),(V487),Cnil,(V488)));          V445= (VFUN_NARGS=4,(*(LnkLI39))((V441),(V442),Cnil,(V443)));
2584          {object V492;          {object V447;
2585          V492= STREF(object,(V490),28);          V447= STREF(object,(V445),28);
2586          if(!(((V492))==(VV[43]))){          if(!(((V447))==(VV[43]))){
2587          goto T797;}          goto T810;}
2588          (void)((*(LnkLI61))((V490),VV[70]));          (void)((*(LnkLI61))((V445),VV[70]));
2589          V491= STREF(object,(V490),28);          V446= STREF(object,(V445),28);
2590          goto T794;          goto T807;
2591          goto T797;          goto T810;
2592  T797:;  T810:;
2593          V491= (V492);}          V446= (V447);}
         goto T794;  
 T794:;  
         if(((V489))==Cnil){  
         goto T801;}  
         base[6]= (V491);  
         {object V493;  
         V493= STREF(object,(V490),32);  
         if(!(((V493))==(VV[43]))){  
         goto T807;}  
         (void)((*(LnkLI61))((V490),VV[71]));  
         base[7]= STREF(object,(V490),32);  
         goto T804;  
2594          goto T807;          goto T807;
2595  T807:;  T807:;
2596          base[7]= (V493);}          if(((V444))==Cnil){
2597          goto T804;          goto T814;}
2598  T804:;          base[6]= (V446);
2599            {object V448;
2600            V448= STREF(object,(V445),32);
2601            if(!(((V448))==(VV[43]))){
2602            goto T820;}
2603            (void)((*(LnkLI61))((V445),VV[71]));
2604            base[7]= STREF(object,(V445),32);
2605            goto T817;
2606            goto T820;
2607    T820:;
2608            base[7]= (V448);}
2609            goto T817;
2610    T817:;
2611          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2612          return;          return;
2613          goto T801;          goto T814;
2614  T801:;  T814:;
2615          base[6]= (V491);          base[6]= (V446);
2616          {object V494;          {object V449;
2617          V495 = (V486);          {object V451;
2618          {object V497;          V451= STREF(object,(V445),24);
2619          V497= STREF(object,(V490),24);          if(!(((V451))==(VV[43]))){
2620          if(!(((V497))==(VV[43]))){          goto T829;}
2621          goto T816;}          (void)((*(LnkLI61))((V445),VV[69]));
2622          (void)((*(LnkLI61))((V490),VV[69]));          V450= STREF(object,(V445),24);
         V496= STREF(object,(V490),24);  
         goto T813;  
         goto T816;  
 T816:;  
         V496= (V497);}  
         goto T813;  
 T813:;  
         V498 = (V488);  
         V499= (VFUN_NARGS=4,(*(LnkLI39))(V495,V496,Cnil,V498));  
         V494= STREF(object,/* INLINE-ARGS */V499,32);  
         if(!(((V494))==(VV[43]))){  
         goto T820;}  
         V500 = (V486);  
         {object V502;  
         V502= STREF(object,(V490),24);  
         if(!(((V502))==(VV[43]))){  
         goto T826;}  
         (void)((*(LnkLI61))((V490),VV[69]));  
         V501= STREF(object,(V490),24);  
         goto T823;  
2623          goto T826;          goto T826;
 T826:;  
         V501= (V502);}  
         goto T823;  
 T823:;  
         V503 = (V488);  
         V504= (VFUN_NARGS=4,(*(LnkLI39))(V500,V501,Cnil,V503));  
         (void)((*(LnkLI61))(/* INLINE-ARGS */V504,VV[71]));  
         V505 = (V486);  
         {object V507;  
         V507= STREF(object,(V490),24);  
         if(!(((V507))==(VV[43]))){  
         goto T832;}  
         (void)((*(LnkLI61))((V490),VV[69]));  
         V506= STREF(object,(V490),24);  
         goto T829;  
         goto T832;  
 T832:;  
         V506= (V507);}  
2624          goto T829;          goto T829;
2625  T829:;  T829:;
2626          V508 = (V488);          V450= (V451);}
2627          V509= (VFUN_NARGS=4,(*(LnkLI39))(V505,V506,Cnil,V508));          goto T826;
2628          base[7]= STREF(object,/* INLINE-ARGS */V509,32);  T826:;
2629          goto T811;          V452= (VFUN_NARGS=4,(*(LnkLI39))((V441),V450,Cnil,(V443)));
2630          goto T820;          V449= STREF(object,/* INLINE-ARGS */V452,32);
2631  T820:;          if(!(((V449))==(VV[43]))){
2632          base[7]= (V494);}          goto T833;}
2633          goto T811;          {object V454;
2634  T811:;          V454= STREF(object,(V445),24);
2635            if(!(((V454))==(VV[43]))){
2636            goto T839;}
2637            (void)((*(LnkLI61))((V445),VV[69]));
2638            V453= STREF(object,(V445),24);
2639            goto T836;
2640            goto T839;
2641    T839:;
2642            V453= (V454);}
2643            goto T836;
2644    T836:;
2645            V455= (VFUN_NARGS=4,(*(LnkLI39))((V441),V453,Cnil,(V443)));
2646            (void)((*(LnkLI61))(/* INLINE-ARGS */V455,VV[71]));
2647            {object V457;
2648            V457= STREF(object,(V445),24);
2649            if(!(((V457))==(VV[43]))){
2650            goto T845;}
2651            (void)((*(LnkLI61))((V445),VV[69]));
2652            V456= STREF(object,(V445),24);
2653            goto T842;
2654            goto T845;
2655    T845:;
2656            V456= (V457);}
2657            goto T842;
2658    T842:;
2659            V458= (VFUN_NARGS=4,(*(LnkLI39))((V441),V456,Cnil,(V443)));
2660            base[7]= STREF(object,/* INLINE-ARGS */V458,32);
2661            goto T824;
2662            goto T833;
2663    T833:;
2664            base[7]= (V449);}
2665            goto T824;
2666    T824:;
2667          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2668          return;}          return;}
2669          }          }
2670  }  }
2671  /*      local entry for function ADD-FORMS      */  /*      local entry for function ADD-FORMS      */
2672    
2673  static object LI48(V512,V513)  static object LI48(V461,V462)
2674    
2675  register object V512;register object V513;  register object V461;register object V462;
2676  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
2677          goto TTL;          goto TTL;
2678  TTL:;  TTL:;
2679          if(((V512))==Cnil){          if(((V461))==Cnil){
2680          goto T835;}          goto T848;}
2681          base[0]= (V512);          base[0]= (V461);
2682          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2683          Lcopy_list();          Lcopy_list();
2684          vs_top=sup;          vs_top=sup;
2685          V512= vs_base[0];          V461= vs_base[0];
2686          if((CMPcar((V513)))!=Cnil){          if((CMPcar((V462)))!=Cnil){
2687          goto T843;}          goto T856;}
2688          (V513)->c.c_car = V512;          (V462)->c.c_car = V461;
2689          goto T841;          goto T854;
2690          goto T843;          goto T856;
2691  T843:;  T856:;
2692          (CMPcdr(V513))->c.c_cdr = V512;          (CMPcdr(V462))->c.c_cdr = V461;
2693          (void)(CMPcdr(V513));          (void)(CMPcdr(V462));
2694          goto T841;          goto T854;
2695  T841:;  T854:;
2696          {object V519;          {object V468;
2697          base[1]= (V512);          base[1]= (V461);
2698          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2699          Llast();          Llast();
2700          vs_top=sup;          vs_top=sup;
2701          V519= vs_base[0];          V468= vs_base[0];
2702          (V513)->c.c_cdr = (V519);}          (V462)->c.c_cdr = (V468);}
2703          goto T835;          goto T848;
2704  T835:;  T848:;
2705          {object V520 = CMPcar((V513));          {object V469 = CMPcar((V462));
2706          VMR45(V520)}          VMR45(V469)}
2707          base[0]=base[0];          base[0]=base[0];
2708          return Cnil;          return Cnil;
2709  }  }
# Line 2751  static void L49() Line 2713  static void L49()
2713  {register object *base=vs_base;  {register object *base=vs_base;
2714          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2715          vs_check;          vs_check;
2716          {object V521;          {object V470;
2717          object V522;          object V471;
2718          object V523;          object V472;
2719          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2720          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
2721          V521=(base[0]);          V470=(base[0]);
2722          V522=(base[1]);          V471=(base[1]);
2723          vs_base=vs_base+2;          vs_base=vs_base+2;
2724          if(vs_base>=vs_top){vs_top=sup;goto T850;}          if(vs_base>=vs_top){vs_top=sup;goto T863;}
2725          V523=(base[2]);          V472=(base[2]);
2726          vs_top=sup;          vs_top=sup;
2727          goto T851;          goto T864;
2728          goto T850;          goto T863;
2729  T850:;  T863:;
2730          V523= Ct;          V472= Ct;
2731          goto T851;          goto T864;
2732  T851:;  T864:;
2733          {object V524;          {object V473;
2734          object V525;          object V474;
2735          object V526;          object V475;
2736          object V527;          object V476;
2737          register object V528;          register object V477;
2738          V524= make_cons(Cnil,Cnil);          V473= make_cons(Cnil,Cnil);
2739          base[3]= (V521);          base[3]= (V470);
2740          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2741          (void) (*Lnk279)(Lclptr279);          (void) (*Lnk306)(Lclptr306);
2742          vs_top=sup;          vs_top=sup;
2743          V525= vs_base[0];          V474= vs_base[0];
2744          base[4]= (V521);          base[4]= (V470);
2745          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2746          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk307)(Lclptr307);
2747          vs_top=sup;          vs_top=sup;
2748          V531= vs_base[0];          V480= vs_base[0];
2749          {object V529;          {object V478;
2750          object V530= V531;          object V479= V480;
2751          if(V530==Cnil){          if(V479==Cnil){
2752          V527= Cnil;          V476= Cnil;
2753          goto T856;}          goto T869;}
2754          base[3]=V529=MMcons(Cnil,Cnil);          base[3]=V478=MMcons(Cnil,Cnil);
2755          goto T857;          goto T870;
2756  T857:;  T870:;
2757          base[5]= (V530->c.c_car);          base[5]= (V479->c.c_car);
2758          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2759          (void) (*Lnk281)(Lclptr281);          (void) (*Lnk308)(Lclptr308);
2760          vs_top=sup;          vs_top=sup;
2761          V535= vs_base[0];          V484= vs_base[0];
2762          {object V533;          {object V482;
2763          object V534= V535;          object V483= V484;
2764          if(V534==Cnil){          if(V483==Cnil){
2765          (V529->c.c_cdr)= Cnil;          (V478->c.c_cdr)= Cnil;
2766          goto T860;}          goto T873;}
2767          base[4]=V533=MMcons(Cnil,Cnil);          base[4]=V482=MMcons(Cnil,Cnil);
2768          goto T861;          goto T874;
2769  T861:;  T874:;
2770          (V533->c.c_car)= make_cons((V534->c.c_car),(V530->c.c_car));          (V482->c.c_car)= make_cons((V483->c.c_car),(V479->c.c_car));
2771          if((V534=MMcdr(V534))==Cnil){          if((V483=MMcdr(V483))==Cnil){
2772          (V529->c.c_cdr)= base[4];          (V478->c.c_cdr)= base[4];
2773          goto T860;}          goto T873;}
2774          V533=MMcdr(V533)=MMcons(Cnil,Cnil);          V482=MMcdr(V482)=MMcons(Cnil,Cnil);
2775          goto T861;}          goto T874;}
2776          goto T860;          goto T873;
2777  T860:;  T873:;
2778          while(MMcdr(V529)!=Cnil)V529=MMcdr(V529);          while(MMcdr(V478)!=Cnil)V478=MMcdr(V478);
2779          if((V530=MMcdr(V530))==Cnil){          if((V479=MMcdr(V479))==Cnil){
2780          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
2781          V527= base[3];          V476= base[3];
2782          goto T856;}          goto T869;}
2783          goto T857;}          goto T870;}
         goto T856;  
 T856:;  
         V526= (V522);  
         V528= Cnil;  
         {register object V537;  
         object V538;  
         V537= (V526);  
         V538= CMPcar((V537));  
2784          goto T869;          goto T869;
2785  T869:;  T869:;
2786          if(!(((V537))==Cnil)){          V475= (V471);
2787          goto T870;}          V477= Cnil;
2788          goto T865;          {register object V486;
2789          goto T870;          object V487;
2790  T870:;          V486= (V475);
2791          {object V539;          V487= CMPcar((V486));
2792          {register object x= (V538),V541= (V527);          goto T882;
2793          while(V541!=Cnil)  T882:;
2794          if(eql(x,V541->c.c_car->c.c_car) &&V541->c.c_car != Cnil){          if(!(((V486))==Cnil)){
2795          V540= (V541->c.c_car);          goto T883;}
2796          goto T876;          goto T878;
2797          }else V541=V541->c.c_cdr;          goto T883;
2798          V540= Cnil;}  T883:;
2799          goto T876;          {object V488;
2800  T876:;          {register object x= (V487),V490= (V476);
2801          V539= CMPcdr(V540);          while(V490!=Cnil)
2802          base[5]= (V539);          if(eql(x,V490->c.c_car->c.c_car) &&V490->c.c_car != Cnil){
2803          base[6]= (V528);          V489= (V490->c.c_car);
2804            goto T889;
2805            }else V490=V490->c.c_cdr;
2806            V489= Cnil;}
2807            goto T889;
2808    T889:;
2809            V488= CMPcdr(V489);
2810            base[5]= (V488);
2811            base[6]= (V477);
2812          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2813          Ladjoin();          Ladjoin();
2814          vs_top=sup;          vs_top=sup;
2815          V528= vs_base[0];}          V477= vs_base[0];}
2816          V537= CMPcdr((V537));          V486= CMPcdr((V486));
2817          V538= CMPcar((V537));          V487= CMPcar((V486));
2818          goto T869;}          goto T882;}
2819          goto T865;          goto T878;
2820  T865:;  T878:;
2821          {register object V542;          {register object V491;
2822          register object V543;          register object V492;
2823          V542= (V525);          V491= (V474);
2824          V543= CMPcar((V542));          V492= CMPcar((V491));
2825          goto T889;          goto T902;
2826  T889:;  T902:;
2827          if(!(((V542))==Cnil)){          if(!(((V491))==Cnil)){
2828          goto T890;}          goto T903;}
2829          goto T885;          goto T898;
2830          goto T890;          goto T903;
2831  T890:;  T903:;
2832          {register object V544;          {register object V493;
2833          register object V545;          register object V494;
2834          object V546;          object V495;
2835          V544= CMPcar((V543));          V493= CMPcar((V492));
2836          {register object x= (V544),V548= (V527);          {register object x= (V493),V497= (V476);
2837          while(V548!=Cnil)          while(V497!=Cnil)
2838          if(eql(x,V548->c.c_car->c.c_car) &&V548->c.c_car != Cnil){          if(eql(x,V497->c.c_car->c.c_car) &&V497->c.c_car != Cnil){
2839          V547= (V548->c.c_car);          V496= (V497->c.c_car);
2840          goto T897;          goto T910;
2841          }else V548=V548->c.c_cdr;          }else V497=V497->c.c_cdr;
2842          V547= Cnil;}          V496= Cnil;}
         goto T897;  
 T897:;  
         V545= CMPcdr(V547);  
         V546= CMPcadr((V543));  
         {register object x= (V545),V549= (V528);  
         while(V549!=Cnil)  
         if(eql(x,V549->c.c_car)){  
         goto T894;  
         }else V549=V549->c.c_cdr;}  
         V550= list(2,VV[114],(V546));  
         V551= list(2,/* INLINE-ARGS */V550,list(2,VV[145],(V544)));  
         (void)((*(LnkLI282))(/* INLINE-ARGS */V551,(V524)));  
         V526= make_cons(V544,(V526));  
         V528= make_cons(V545,(V528));}  
         goto T894;  
 T894:;  
         V542= CMPcdr((V542));  
         V543= CMPcar((V542));  
         goto T889;}  
         goto T885;  
 T885:;  
         if(((V523))==Cnil){  
         goto T910;}  
         V554 = (V521);  
         V555= list(3,VV[146],V554,(VFUN_NARGS=3,(*(LnkLI39))((V521),(V526),Cnil)));  
         V556= make_cons(/* INLINE-ARGS */V555,Cnil);  
         (void)((*(LnkLI282))(/* INLINE-ARGS */V556,(V524)));  
2843          goto T910;          goto T910;
2844  T910:;  T910:;
2845          (void)((*(LnkLI282))(VV[147],(V524)));          V494= CMPcdr(V496);
2846          base[3]= CMPcar((V524));          V495= CMPcadr((V492));
2847          base[4]= (V526);          {register object x= (V494),V498= (V477);
2848            while(V498!=Cnil)
2849            if(eql(x,V498->c.c_car)){
2850            goto T907;
2851            }else V498=V498->c.c_cdr;}
2852            V499= list(2,VV[122],(V495));
2853            V500= list(2,/* INLINE-ARGS */V499,list(2,VV[161],(V493)));
2854            (void)((*(LnkLI309))(/* INLINE-ARGS */V500,(V473)));
2855            V475= make_cons(V493,(V475));
2856            V477= make_cons(V494,(V477));}
2857            goto T907;
2858    T907:;
2859            V491= CMPcdr((V491));
2860            V492= CMPcar((V491));
2861            goto T902;}
2862            goto T898;
2863    T898:;
2864            if(((V472))==Cnil){
2865            goto T923;}
2866            V503= list(3,VV[162],(V470),(VFUN_NARGS=3,(*(LnkLI39))((V470),(V475),Cnil)));
2867            V504= make_cons(/* INLINE-ARGS */V503,Cnil);
2868            (void)((*(LnkLI309))(/* INLINE-ARGS */V504,(V473)));
2869            goto T923;
2870    T923:;
2871            (void)((*(LnkLI309))(VV[163],(V473)));
2872            base[3]= CMPcar((V473));
2873            base[4]= (V475);
2874          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2875          return;}          return;}
2876          }          }
# Line 2920  static void L50() Line 2881  static void L50()
2881  {register object *base=vs_base;  {register object *base=vs_base;
2882          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
2883          vs_check;          vs_check;
2884          {object V557;          {object V505;
2885          object V558;          object V506;
2886          object V559;          object V507;
2887          object V560;          object V508;
2888          check_arg(4);          check_arg(4);
2889          V557=(base[0]);          V505=(base[0]);
2890          V558=(base[1]);          V506=(base[1]);
2891          V559=(base[2]);          V507=(base[2]);
2892          V560=(base[3]);          V508=(base[3]);
2893          vs_top=sup;          vs_top=sup;
2894          goto TTL;          goto TTL;
2895  TTL:;  TTL:;
2896          {object V561;          {object V509;
2897          object V562;          object V510;
2898          object V563;          object V511;
2899          object V564;          object V512;
2900          object V565;          object V513;
2901          object V566;          object V514;
2902          object V567;          object V515;
2903          object V568;          object V516;
2904          V561= make_cons(Cnil,Cnil);          V509= make_cons(Cnil,Cnil);
2905          base[12]= (V557);          base[12]= (V505);
2906          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2907          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk295)(Lclptr295);
2908          vs_top=sup;          vs_top=sup;
2909          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2910          goto T919;}          goto T932;}
2911          V562= VV[148];          V510= VV[164];
2912          goto T917;          goto T930;
2913          goto T919;          goto T932;
2914  T919:;  T932:;
2915          base[12]= (V557);          base[12]= (V505);
2916          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2917          (void) (*Lnk270)(Lclptr270);          (void) (*Lnk297)(Lclptr297);
2918          vs_top=sup;          vs_top=sup;
2919          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2920          goto T923;}          goto T936;}
2921          V562= VV[149];          V510= VV[165];
2922          goto T917;          goto T930;
2923          goto T923;          goto T936;
2924  T923:;  T936:;
2925          base[12]= (V557);          base[12]= (V505);
2926          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2927          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk299)(Lclptr299);
2928          vs_top=sup;          vs_top=sup;
2929          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2930          goto T927;}          goto T940;}
2931          V562= VV[150];          V510= VV[166];
2932          goto T917;          goto T930;
2933          goto T927;          goto T940;
2934  T927:;  T940:;
2935          base[12]= VV[151];          base[12]= VV[167];
2936          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2937          Lerror();          Lerror();
2938          vs_top=sup;          vs_top=sup;
2939          V562= vs_base[0];          V510= vs_base[0];
2940          goto T917;          goto T930;
2941  T917:;  T930:;
2942          base[12]= (V557);          base[12]= (V505);
2943          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2944          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
2945          vs_top=sup;          vs_top=sup;
2946          V563= vs_base[0];          V511= vs_base[0];
2947          if(((V560))==Cnil){          if(((V508))==Cnil){
2948          goto T935;}          goto T948;}
2949          base[12]= ((V563))->v.v_self[12];          base[12]= ((V511))->v.v_self[12];
2950          base[13]= VV[152];          base[13]= VV[168];
2951          base[14]= (VV[153]->s.s_dbind);          base[14]= (VV[169]->s.s_dbind);
2952          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
2953          (void) (*Lnk283)();          (void) (*Lnk310)();
2954          vs_top=sup;          vs_top=sup;
2955          V564= vs_base[0];          V512= vs_base[0];
2956          goto T933;          goto T946;
2957          goto T935;          goto T948;
2958  T935:;  T948:;
2959          V564= Cnil;          V512= Cnil;
2960          goto T933;          goto T946;
2961  T933:;  T946:;
2962          base[12]= (V557);          base[12]= (V505);
2963          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2964          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk307)(Lclptr307);
2965          vs_top=sup;          vs_top=sup;
2966          V565= vs_base[0];          V513= vs_base[0];
2967          base[13]=VV[284]->s.s_gfdef;          base[13]=VV[311]->s.s_gfdef;
2968          {object V569;          {object V517;
2969          object V570= (V565);          object V518= (V513);
2970          if(V570==Cnil){          if(V518==Cnil){
2971          V566= Cnil;          V514= Cnil;
2972          goto T942;}          goto T955;}
2973          base[12]=V569=MMcons(Cnil,Cnil);          base[12]=V517=MMcons(Cnil,Cnil);
2974          goto T943;          goto T956;
2975  T943:;  T956:;
2976          base[14]= (V570->c.c_car);          base[14]= (V518->c.c_car);
2977          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
2978          (void) (*Lnk284)(Lclptr284);          (void) (*Lnk311)(Lclptr311);
         vs_top=sup;  
         (V569->c.c_car)= vs_base[0];  
         if((V570=MMcdr(V570))==Cnil){  
         V566= base[12];  
         goto T942;}  
         V569=MMcdr(V569)=MMcons(Cnil,Cnil);  
         goto T943;}  
         goto T942;  
 T942:;  
         {object V571;  
         object V572= (V565);  
         if(V572==Cnil){  
         V567= Cnil;  
         goto T946;}  
         base[12]=V571=MMcons(Cnil,Cnil);  
         goto T947;  
 T947:;  
         {object V574;  
         V574= VV[154];  
         {register object V575;  
         object V576;  
         base[15]= (V572->c.c_car);  
         vs_top=(vs_base=base+15)+1;  
         (void) (*Lnk281)(Lclptr281);  
2979          vs_top=sup;          vs_top=sup;
2980          V575= vs_base[0];          (V517->c.c_car)= vs_base[0];
2981          V576= CMPcar((V575));          if((V518=MMcdr(V518))==Cnil){
2982          goto T954;          V514= base[12];
 T954:;  
         if(!(((V575))==Cnil)){  
2983          goto T955;}          goto T955;}
2984          goto T949;          V517=MMcdr(V517)=MMcons(Cnil,Cnil);
2985            goto T956;}
2986          goto T955;          goto T955;
2987  T955:;  T955:;
2988          {object V577;          {object V519;
2989          base[15]= (V576);          object V520= (V513);
2990          base[16]= (V558);          if(V520==Cnil){
2991            V515= Cnil;
2992            goto T959;}
2993            base[12]=V519=MMcons(Cnil,Cnil);
2994            goto T960;
2995    T960:;
2996            {object V522;
2997            V522= VV[170];
2998            {register object V523;
2999            object V524;
3000            base[15]= (V520->c.c_car);
3001            vs_top=(vs_base=base+15)+1;
3002            (void) (*Lnk308)(Lclptr308);
3003            vs_top=sup;
3004            V523= vs_base[0];
3005            V524= CMPcar((V523));
3006            goto T967;
3007    T967:;
3008            if(!(((V523))==Cnil)){
3009            goto T968;}
3010            goto T962;
3011            goto T968;
3012    T968:;
3013            {object V525;
3014            base[15]= (V524);
3015            base[16]= (V506);
3016          vs_top=(vs_base=base+15)+2;          vs_top=(vs_base=base+15)+2;
3017          (void) (*Lnk285)();          (void) (*Lnk312)();
3018          vs_top=sup;          vs_top=sup;
3019          V577= vs_base[0];          V525= vs_base[0];
3020          if(((V577))==Cnil){          if(((V525))==Cnil){
3021            goto T972;}
3022            V522= (number_compare((V522),(V525))<=0?((V522)):(V525));}
3023            goto T972;
3024    T972:;
3025            V523= CMPcdr((V523));
3026            V524= CMPcar((V523));
3027            goto T967;}
3028            goto T962;
3029    T962:;
3030            (V519->c.c_car)= make_cons((V520->c.c_car),(V522));}
3031            if((V520=MMcdr(V520))==Cnil){
3032            V515= base[12];
3033          goto T959;}          goto T959;}
3034          V574= (number_compare((V574),(V577))<=0?((V574)):(V577));}          V519=MMcdr(V519)=MMcons(Cnil,Cnil);
3035            goto T960;}
3036          goto T959;          goto T959;
3037  T959:;  T959:;
3038          V575= CMPcdr((V575));          base[12]= (V515);
3039          V576= CMPcar((V575));          base[13]= (VV[313]->s.s_gfdef);
3040          goto T954;}          base[14]= VV[171];
3041          goto T949;          base[15]= (VV[207]->s.s_gfdef);
 T949:;  
         (V571->c.c_car)= make_cons((V572->c.c_car),(V574));}  
         if((V572=MMcdr(V572))==Cnil){  
         V567= base[12];  
         goto T946;}  
         V571=MMcdr(V571)=MMcons(Cnil,Cnil);  
         goto T947;}  
         goto T946;  
 T946:;  
         base[12]= (V567);  
         base[13]= (VV[286]->s.s_gfdef);  
         base[14]= VV[155];  
         base[15]= (VV[189]->s.s_gfdef);  
3042          vs_top=(vs_base=base+12)+4;          vs_top=(vs_base=base+12)+4;
3043          (void) (*Lnk287)();          (void) (*Lnk314)();
3044          vs_top=sup;          vs_top=sup;
3045          V568= vs_base[0];          V516= vs_base[0];
3046          {long V578;          {long V526;
3047          V578= 0;          V526= 0;
3048          {register object V579;          {register object V527;
3049          register object V580;          register object V528;
3050          V579= (V568);          V527= (V516);
3051          V580= CMPcar((V579));          V528= CMPcar((V527));
3052          goto T981;          goto T994;
3053  T981:;  T994:;
3054          if(!(((V579))==Cnil)){          if(!(((V527))==Cnil)){
3055          goto T982;}          goto T995;}
3056          goto T976;          goto T989;
3057          goto T982;          goto T995;
3058  T982:;  T995:;
3059          {object V581;          {object V529;
3060          object V582;          object V530;
3061          register long V583;          register long V531;
3062          V581= CMPcar((V580));          V529= CMPcar((V528));
3063          base[15]= (V581);          base[15]= (V529);
3064          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
3065          (void) (*Lnk284)(Lclptr284);          (void) (*Lnk311)(Lclptr311);
3066          vs_top=sup;          vs_top=sup;
3067          V582= vs_base[0];          V530= vs_base[0];
3068          V584= CMPcdr((V580));          V532= CMPcdr((V528));
3069          V585 = CMPmake_fixnum(V578);          V533 = CMPmake_fixnum(V526);
3070          V586= number_minus(/* INLINE-ARGS */V584,V585);          V534= number_minus(/* INLINE-ARGS */V532,V533);
3071          V583= fix(one_plus(/* INLINE-ARGS */V586));          V531= fix(one_plus(/* INLINE-ARGS */V534));
3072          if(eql(CMPcdr((V580)),VV[154])){          if(eql(CMPcdr((V528)),VV[170])){
3073          goto T986;}          goto T999;}
3074          {object V587;          {object V535;
3075          base[16]= (V582);          base[16]= (V530);
3076          base[17]= (V566);          base[17]= (V514);
3077          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
3078          (void) (*Lnk285)();          (void) (*Lnk312)();
3079          vs_top=sup;          vs_top=sup;
3080          V588= vs_base[0];          V536= vs_base[0];
3081          V587= one_plus(V588);          V535= one_plus(V536);
3082          if(!((V583)>0)){          if(!((V531)>0)){
         goto T1000;}  
         V590 = CMPmake_fixnum((long)(2)*(V583));  
         V591= list(2,VV[156],V590);  
         V589= make_cons(/* INLINE-ARGS */V591,Cnil);  
         goto T998;  
         goto T1000;  
 T1000:;  
         V589= Cnil;  
         goto T998;  
 T998:;  
         V592= list(3,VV[157],(V587),(V581));  
         V593= make_cons(/* INLINE-ARGS */V592,Cnil);  
         V594= append(V589,/* INLINE-ARGS */V593);  
         (void)((*(LnkLI282))(/* INLINE-ARGS */V594,(V561)));}  
         V578= (long)(V578)+(V583);}  
         goto T986;  
 T986:;  
         V579= CMPcdr((V579));  
         V580= CMPcar((V579));  
         goto T981;}}  
         goto T976;  
 T976:;  
         {register object V595;  
         object V596;  
         V595= (V568);  
         V596= CMPcar((V595));  
         goto T1012;  
 T1012:;  
         if(!(((V595))==Cnil)){  
3083          goto T1013;}          goto T1013;}
3084          goto T1008;          V538 = CMPmake_fixnum((long)(2)*(V531));
3085            V539= list(2,VV[172],V538);
3086            V537= make_cons(/* INLINE-ARGS */V539,Cnil);
3087            goto T1011;
3088          goto T1013;          goto T1013;
3089  T1013:;  T1013:;
3090          {register object V597;          V537= Cnil;
3091          object V598;          goto T1011;
3092          V597= CMPcar((V596));  T1011:;
3093          base[15]= (V597);          V540= list(3,VV[173],(V535),(V529));
3094          vs_top=(vs_base=base+15)+1;          V541= make_cons(/* INLINE-ARGS */V540,Cnil);
3095          (void) (*Lnk284)(Lclptr284);          V542= append(V537,/* INLINE-ARGS */V541);
3096          vs_top=sup;          (void)((*(LnkLI309))(/* INLINE-ARGS */V542,(V509)));}
3097          V598= vs_base[0];          V526= (long)(V526)+(V531);}
3098          if(!(eql(CMPcdr((V596)),VV[154]))){          goto T999;
3099          goto T1017;}  T999:;
3100          if(((V559))==(Ct)){          V527= CMPcdr((V527));
3101          goto T1021;}          V528= CMPcar((V527));
3102          {register object x= (V598),V599= (V559);          goto T994;}}
3103          while(V599!=Cnil)          goto T989;
3104          if(eql(x,V599->c.c_car)){  T989:;
3105          goto T1026;          {register object V543;
3106          }else V599=V599->c.c_cdr;          object V544;
3107          goto T1017;}          V543= (V516);
3108            V544= CMPcar((V543));
3109            goto T1025;
3110    T1025:;
3111            if(!(((V543))==Cnil)){
3112            goto T1026;}
3113            goto T1021;
3114          goto T1026;          goto T1026;
3115  T1026:;  T1026:;
3116          goto T1021;          {register object V545;
3117  T1021:;          object V546;
3118          {object V600;          V545= CMPcar((V544));
3119          object V601;          base[15]= (V545);
3120          object V602;          vs_top=(vs_base=base+15)+1;
3121          register object V603;          (void) (*Lnk311)(Lclptr311);
3122          register object V604;          vs_top=sup;
3123          base[20]= (V597);          V546= vs_base[0];
3124            if(!(eql(CMPcdr((V544)),VV[170]))){
3125            goto T1030;}
3126            if(((V507))==(Ct)){
3127            goto T1034;}
3128            {register object x= (V546),V547= (V507);
3129            while(V547!=Cnil)
3130            if(eql(x,V547->c.c_car)){
3131            goto T1039;
3132            }else V547=V547->c.c_cdr;
3133            goto T1030;}
3134            goto T1039;
3135    T1039:;
3136            goto T1034;
3137    T1034:;
3138            {object V548;
3139            object V549;
3140            object V550;
3141            register object V551;
3142            register object V552;
3143            base[20]= (V545);
3144          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3145          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk315)(Lclptr315);
3146          vs_top=sup;          vs_top=sup;
3147          V600= vs_base[0];          V548= vs_base[0];
3148          base[20]= (V597);          base[20]= (V545);
3149          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3150          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk316)(Lclptr316);
3151          vs_top=sup;          vs_top=sup;
3152          V601= vs_base[0];          V549= vs_base[0];
3153          if(((V562))==(VV[148])){          if(((V510))==(VV[164])){
3154          goto T1033;}          goto T1046;}
3155          base[20]= (V597);          base[20]= (V545);
3156          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3157          (void) (*Lnk290)(Lclptr290);          (void) (*Lnk317)(Lclptr317);
3158          vs_top=sup;          vs_top=sup;
3159          V602= vs_base[0];          V550= vs_base[0];
3160          goto T1031;          goto T1044;
3161          goto T1033;          goto T1046;
3162  T1033:;  T1046:;
3163          V602= Cnil;          V550= Cnil;
3164          goto T1031;          goto T1044;
3165  T1031:;  T1044:;
3166          base[20]= (V598);          base[20]= (V546);
3167          base[21]= (V566);          base[21]= (V514);
3168          vs_top=(vs_base=base+20)+2;          vs_top=(vs_base=base+20)+2;
3169          (void) (*Lnk285)();          (void) (*Lnk312)();
3170          vs_top=sup;          vs_top=sup;
3171          V605= vs_base[0];          V553= vs_base[0];
3172          V603= one_plus(V605);          V551= one_plus(V553);
3173          if(((V601))!=Cnil){          if(((V549))!=Cnil){
3174          goto T1042;}          goto T1055;}
3175          V604= Cnil;          V552= Cnil;
3176          goto T1040;          goto T1053;
3177          goto T1042;          goto T1055;
3178  T1042:;  T1055:;
3179          base[20]= (V600);          base[20]= (V548);
3180          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3181          Lconstantp();          Lconstantp();
3182          vs_top=sup;          vs_top=sup;
3183          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3184          goto T1045;}          goto T1058;}
3185          {object V606;          {object V554;
3186          V606= (          V554= (
3187          (type_of((V601)) == t_sfun ?(*(((V601))->sfn.sfn_self)):          (type_of((V549)) == t_sfun ?(*(((V549))->sfn.sfn_self)):
3188          (fcall.argd=0,type_of((V601))==t_vfun) ?          (fcall.argd=0,type_of((V549))==t_vfun) ?
3189          (*(((V601))->sfn.sfn_self)):          (*(((V549))->sfn.sfn_self)):
3190          (fcall.fun=((V601)),fcalln))());          (fcall.fun=((V549)),fcalln))());
3191          if(((V560))==Cnil){          if(((V508))==Cnil){
3192          goto T1050;}          goto T1063;}
3193          if(!(type_of((V602))==t_fixnum||type_of((V602))==t_bignum)){          if(!(type_of((V550))==t_fixnum||type_of((V550))==t_bignum)){
3194          goto T1050;}          goto T1063;}
3195          (void)((((V564))->v.v_self[fix((V602))]=((V606))));          (void)((((V512))->v.v_self[fix((V550))]=((V554))));
3196          V604= Cnil;          V552= Cnil;
3197          goto T1040;          goto T1053;
3198          goto T1050;          goto T1063;
3199  T1050:;  T1063:;
3200          V607= list(2,VV[158],(V606));          V555= list(2,VV[174],(V554));
3201          V604= list(2,/* INLINE-ARGS */V607,list(3,VV[157],(V603),(V597)));          V552= list(2,/* INLINE-ARGS */V555,list(3,VV[173],(V551),(V545)));
3202          goto T1040;}          goto T1053;}
3203          goto T1045;          goto T1058;
3204  T1045:;  T1058:;
3205          base[20]= (V597);          base[20]= (V545);
3206          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3207          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk316)(Lclptr316);
3208          vs_top=sup;          vs_top=sup;
3209          V608= vs_base[0];          V556= vs_base[0];
3210          V609= list(2,VV[114],V608);          V557= list(2,VV[122],V556);
3211          V604= list(2,/* INLINE-ARGS */V609,list(3,VV[157],(V603),(V597)));          V552= list(2,/* INLINE-ARGS */V557,list(3,VV[173],(V551),(V545)));
3212          goto T1040;          goto T1053;
3213  T1040:;  T1053:;
3214          if(((V560))!=Cnil){          if(((V508))!=Cnil){
3215          goto T1059;}          goto T1072;}
3216          if(((V604))==Cnil){          if(((V552))==Cnil){
3217          goto T1059;}          goto T1072;}
3218          V611 = CMPmake_fixnum((long)length((V604)));          V559 = CMPmake_fixnum((long)length((V552)));
3219          V612= list(4,VV[159],(V603),(V597),V611);          V560= list(4,VV[175],(V551),(V545),V559);
3220          V610= make_cons(/* INLINE-ARGS */V612,Cnil);          V558= make_cons(/* INLINE-ARGS */V560,Cnil);
3221          goto T1057;          goto T1070;
3222          goto T1059;          goto T1072;
3223  T1059:;  T1072:;
3224          V610= Cnil;          V558= Cnil;
3225          goto T1057;          goto T1070;
3226  T1057:;  T1070:;
3227          V613 = (V604);          V561= append(V558,(V552));
3228          V614= append(V610,V613);          (void)((*(LnkLI309))(/* INLINE-ARGS */V561,(V509)));}}
3229          (void)((*(LnkLI282))(/* INLINE-ARGS */V614,(V561)));}}          goto T1030;
3230          goto T1017;  T1030:;
3231  T1017:;          V543= CMPcdr((V543));
3232          V595= CMPcdr((V595));          V544= CMPcar((V543));
3233          V596= CMPcar((V595));          goto T1025;}
3234          goto T1012;}          goto T1021;
3235          goto T1008;  T1021:;
3236  T1008:;          base[12]= CMPcar((V509));
3237          base[12]= CMPcar((V561));          base[13]= (V512);
         base[13]= (V564);  
3238          vs_top=(vs_base=base+12)+2;          vs_top=(vs_base=base+12)+2;
3239          return;}          return;}
3240          }          }
3241  }  }
3242  /*      local entry for function GET-PV-CELL-FOR-CLASS  */  /*      local entry for function GET-PV-CELL-FOR-CLASS  */
3243    
3244  static object LI51(V616)  static object LI51(V563)
3245    
3246  register object V616;  register object V563;
3247  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3248          goto TTL;          goto TTL;
3249  TTL:;  TTL:;
3250          {object V617;          {object V564;
3251          object V618;          object V565;
3252          register object V619;          register object V566;
3253          base[4]=VV[284]->s.s_gfdef;          base[4]=VV[311]->s.s_gfdef;
3254          base[5]= (V616);          base[5]= (V563);
3255          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3256          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk307)(Lclptr307);
3257          vs_top=sup;          vs_top=sup;
3258          V622= vs_base[0];          V569= vs_base[0];
3259          {object V620;          {object V567;
3260          object V621= V622;          object V568= V569;
3261          if(V621==Cnil){          if(V568==Cnil){
3262          V617= Cnil;          V564= Cnil;
3263          goto T1070;}          goto T1083;}
3264          base[3]=V620=MMcons(Cnil,Cnil);          base[3]=V567=MMcons(Cnil,Cnil);
3265          goto T1071;          goto T1084;
3266  T1071:;  T1084:;
3267          base[5]= (V621->c.c_car);          base[5]= (V568->c.c_car);
3268          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3269          (void) (*Lnk284)(Lclptr284);          (void) (*Lnk311)(Lclptr311);
3270          vs_top=sup;          vs_top=sup;
3271          (V620->c.c_car)= vs_base[0];          (V567->c.c_car)= vs_base[0];
3272          if((V621=MMcdr(V621))==Cnil){          if((V568=MMcdr(V568))==Cnil){
3273          V617= base[3];          V564= base[3];
3274          goto T1070;}          goto T1083;}
3275          V620=MMcdr(V620)=MMcons(Cnil,Cnil);          V567=MMcdr(V567)=MMcons(Cnil,Cnil);
3276          goto T1071;}          goto T1084;}
3277          goto T1070;          goto T1083;
3278  T1070:;  T1083:;
3279          V623= make_cons(Cnil,(V617));          V570= make_cons(Cnil,(V564));
3280          V618= make_cons(/* INLINE-ARGS */V623,Cnil);          V565= make_cons(/* INLINE-ARGS */V570,Cnil);
3281          base[3]= (V616);          base[3]= (V563);
3282          base[4]= (VV[160]->s.s_dbind);          base[4]= (VV[176]->s.s_dbind);
3283          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3284          Lgethash();          Lgethash();
3285          vs_top=sup;          vs_top=sup;
3286          V619= vs_base[0];          V566= vs_base[0];
3287          if(((V619))==Cnil){          if(((V566))==Cnil){
3288          goto T1081;}          goto T1094;}
3289          if(equal((V618),STREF(object,(V619),8))){          if(equal((V565),STREF(object,(V566),8))){
3290          goto T1080;}          goto T1093;}
3291          goto T1081;          goto T1094;
3292  T1081:;  T1094:;
3293          V619= (VFUN_NARGS=2,(*(LnkLI291))(VV[162],(V618)));          V566= (VFUN_NARGS=2,(*(LnkLI318))(VV[178],(V565)));
3294          {object V625;          {object V572;
3295          V625= (VV[160]->s.s_dbind);          V572= (VV[176]->s.s_dbind);
3296          base[3]= V616;          base[3]= V563;
3297          base[4]= (V625);          base[4]= (V572);
3298          base[5]= V619;          base[5]= V566;
3299          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3300          siLhash_set();          siLhash_set();
3301          vs_top=sup;}          vs_top=sup;}
3302          goto T1080;          goto T1093;
3303  T1080:;  T1093:;
3304          V627 = (V619);          base[3]= (V563);
         base[3]= (V616);  
3305          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3306          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk269)(Lclptr269);
3307          vs_top=sup;          vs_top=sup;
3308          V628= vs_base[0];          V574= vs_base[0];
3309          {object V629 = (*(LnkLI292))(V627,V628);          {object V575 = (*(LnkLI319))((V566),V574);
3310          VMR48(V629)}}          VMR48(V575)}}
3311          base[0]=base[0];          base[0]=base[0];
3312          return Cnil;          return Cnil;
3313  }  }
# Line 3358  static void L52() Line 3317  static void L52()
3317  {register object *base=vs_base;  {register object *base=vs_base;
3318          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
3319          vs_check;          vs_check;
3320          {object V630;          {object V576;
3321          object V631;          object V577;
3322          object V632;          object V578;
3323          object V633;          object V579;
3324          check_arg(4);          check_arg(4);
3325          V630=(base[0]);          V576=(base[0]);
3326          V631=(base[1]);          V577=(base[1]);
3327          V632=(base[2]);          V578=(base[2]);
3328          V633=(base[3]);          V579=(base[3]);
3329          vs_top=sup;          vs_top=sup;
3330          goto TTL;          goto TTL;
3331  TTL:;  TTL:;
3332          {object V634;          {object V580;
3333          object V635;          object V581;
3334          register object V636;          register object V582;
3335          V634= (*(LnkLI293))((V632));          V580= (*(LnkLI320))((V578));
3336          V635= STREF(object,(V631),0);          V581= STREF(object,(V577),0);
3337          V637 = (V630);          base[7]= CMPcar((V581));
         base[7]= CMPcar((V635));  
3338          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3339          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk255)(Lclptr255);
3340          vs_top=sup;          vs_top=sup;
3341          V638= vs_base[0];          V583= vs_base[0];
3342          V636= listA(3,V637,V638,CMPcdr((V635)));          V582= listA(3,(V576),V583,CMPcdr((V581)));
3343          if(((VV[163]->s.s_dbind))!=Cnil){          if(((VV[179]->s.s_dbind))!=Cnil){
3344          goto T1098;}          goto T1111;}
3345          base[7]= (V636);          base[7]= (V582);
3346          base[8]= (VV[164]->s.s_dbind);          base[8]= (VV[180]->s.s_dbind);
3347          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3348          Lgethash();          Lgethash();
3349          vs_top=sup;          vs_top=sup;
3350          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3351          goto T1099;}          goto T1112;}
3352          goto T1098;          goto T1111;
3353  T1098:;  T1111:;
3354          {object V639;          {object V584;
3355          object V640;          object V585;
3356          base[7]= (V634);          base[7]= (V580);
3357          base[8]= (V633);          base[8]= (V579);
3358          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3359          (void) (*Lnk294)();          (void) (*Lnk321)();
3360          if(vs_base>=vs_top){vs_top=sup;goto T1108;}          if(vs_base>=vs_top){vs_top=sup;goto T1121;}
3361          V639= vs_base[0];          V584= vs_base[0];
3362          vs_base++;          vs_base++;
3363          if(vs_base>=vs_top){vs_top=sup;goto T1109;}          if(vs_base>=vs_top){vs_top=sup;goto T1122;}
3364          V640= vs_base[0];          V585= vs_base[0];
3365          vs_top=sup;          vs_top=sup;
3366          goto T1110;          goto T1123;
3367          goto T1108;          goto T1121;
3368  T1108:;  T1121:;
3369          V639= Cnil;          V584= Cnil;
3370          goto T1109;          goto T1122;
3371  T1109:;  T1122:;
3372          V640= Cnil;          V585= Cnil;
3373          goto T1110;          goto T1123;
3374  T1110:;  T1123:;
3375          {register object V641;          {register object V586;
3376          {register object x= (V639),V642= (VV[165]->s.s_dbind);          {register object x= (V584),V587= (VV[181]->s.s_dbind);
3377          while(V642!=Cnil)          while(V587!=Cnil)
3378          if(equal(x,V642->c.c_car->c.c_car) &&V642->c.c_car != Cnil){          if(equal(x,V587->c.c_car->c.c_car) &&V587->c.c_car != Cnil){
3379          V641= (V642->c.c_car);          V586= (V587->c.c_car);
3380          goto T1111;          goto T1124;
3381          }else V642=V642->c.c_cdr;          }else V587=V587->c.c_cdr;
3382          V641= Cnil;}          V586= Cnil;}
3383          goto T1111;          goto T1124;
3384  T1111:;  T1124:;
3385          {object V644;          {object V589;
3386          V644= (VV[164]->s.s_dbind);          V589= (VV[180]->s.s_dbind);
3387          base[7]= V636;          base[7]= V582;
3388          base[8]= (V644);          base[8]= (V589);
3389          base[9]= Ct;          base[9]= Ct;
3390          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
3391          siLhash_set();          siLhash_set();
3392          vs_top=sup;}          vs_top=sup;}
3393          if(((V641))==Cnil){          if(((V586))==Cnil){
3394          goto T1119;}          goto T1132;}
3395          {object V647;          {object V592;
3396          base[8]= make_cons((V636),Cnil);          base[8]= make_cons((V582),Cnil);
3397          base[9]= CMPcdddr((V641));          base[9]= CMPcdddr((V586));
3398          base[10]= VV[12];          base[10]= VV[12];
3399          base[11]= (VV[225]->s.s_gfdef);          base[11]= (VV[251]->s.s_gfdef);
3400          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
3401          (void) (*Lnk295)();          (void) (*Lnk322)();
3402          vs_top=sup;          vs_top=sup;
3403          V647= vs_base[0];          V592= vs_base[0];
3404          (CMPcddr(V641))->c.c_cdr = (V647);          (CMPcddr(V586))->c.c_cdr = (V592);
3405          (void)(CMPcddr(V641));          (void)(CMPcddr(V586));
         goto T1117;}  
         goto T1119;  
 T1119:;  
         V641= listA(4,(V639),Cnil,Cnil,make_cons((V636),Cnil));{object V648;  
         V648= (VV[165]->s.s_dbind);  
         V649= make_cons((V641),Cnil);  
         (VV[165]->s.s_dbind)= nconc(V648,/* INLINE-ARGS */V649);}  
         goto T1117;  
 T1117:;  
         if(((VV[166]->s.s_dbind))!=Cnil){  
         goto T1130;}  
         if((CMPcadr((V641)))!=Cnil){  
3406          goto T1130;}          goto T1130;}
3407          {object V651;          goto T1132;
3408          base[8]= CMPcar((V641));  T1132:;
3409          vs_top=(vs_base=base+8)+1;          V586= listA(4,(V584),Cnil,Cnil,make_cons((V582),Cnil));{object V593;
3410          (void) (*Lnk296)();          V593= (VV[181]->s.s_dbind);
3411          vs_top=sup;          V594= make_cons((V586),Cnil);
3412          V651= vs_base[0];          (VV[181]->s.s_dbind)= nconc(V593,/* INLINE-ARGS */V594);}
         (CMPcdr(V641))->c.c_car = (V651);  
         (void)(CMPcdr(V641));}  
3413          goto T1130;          goto T1130;
3414  T1130:;  T1130:;
3415          if((CMPcadr((V641)))==Cnil){          if(((VV[182]->s.s_dbind))!=Cnil){
3416          goto T1139;}          goto T1143;}
3417          base[7]= CMPcadr((V641));          if((CMPcadr((V586)))!=Cnil){
3418          {object V652;          goto T1143;}
3419          V652= (V640);          {object V596;
3420            base[8]= CMPcar((V586));
3421            vs_top=(vs_base=base+8)+1;
3422            (void) (*Lnk323)();
3423            vs_top=sup;
3424            V596= vs_base[0];
3425            (CMPcdr(V586))->c.c_car = (V596);
3426            (void)(CMPcdr(V586));}
3427            goto T1143;
3428    T1143:;
3429            if((CMPcadr((V586)))==Cnil){
3430            goto T1152;}
3431            base[7]= CMPcadr((V586));
3432            {object V597;
3433            V597= (V585);
3434           vs_top=base+8;           vs_top=base+8;
3435           while(V652!=Cnil)           while(V597!=Cnil)
3436           {vs_push((V652)->c.c_car);V652=(V652)->c.c_cdr;}           {vs_push((V597)->c.c_car);V597=(V597)->c.c_cdr;}
3437          vs_base=base+8;}          vs_base=base+8;}
3438          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3439                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3440                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3441                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3442          return;          return;
3443          goto T1139;          goto T1152;
3444  T1139:;  T1152:;
3445          base[7]= list(3,VV[130],(V634),(V633));          base[7]= list(3,VV[138],(V580),(V579));
3446          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3447          return;}}          return;}}
3448          goto T1099;          goto T1112;
3449  T1099:;  T1112:;
3450          base[7]= list(3,VV[130],(V634),(V633));          base[7]= list(3,VV[138],(V580),(V579));
3451          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3452          return;}          return;}
3453          }          }
3454  }  }
3455  /*      local entry for function LOAD-PRECOMPILED-IIS-ENTRY     */  /*      local entry for function LOAD-PRECOMPILED-IIS-ENTRY     */
3456    
3457  static object LI53(V657,V658,V659,V660)  static object LI53(V602,V603,V604,V605)
3458    
3459  object V657;object V658;object V659;object V660;  object V602;object V603;object V604;object V605;
3460  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3461          goto TTL;          goto TTL;
3462  TTL:;  TTL:;
3463          {object V661;          {object V606;
3464          {register object x= (V657),V662= (VV[165]->s.s_dbind);          {register object x= (V602),V607= (VV[181]->s.s_dbind);
3465          while(V662!=Cnil)          while(V607!=Cnil)
3466          if(equal(x,V662->c.c_car->c.c_car) &&V662->c.c_car != Cnil){          if(equal(x,V607->c.c_car->c.c_car) &&V607->c.c_car != Cnil){
3467          V661= (V662->c.c_car);          V606= (V607->c.c_car);
3468          goto T1143;          goto T1156;
3469          }else V662=V662->c.c_cdr;          }else V607=V607->c.c_cdr;
3470          V661= Cnil;}          V606= Cnil;}
3471          goto T1143;          goto T1156;
3472  T1143:;  T1156:;
3473          if(((V661))!=Cnil){          if(((V606))!=Cnil){
3474          goto T1144;}          goto T1157;}
3475          V661= listA(4,(V657),Cnil,Cnil,Cnil);{object V663;          V606= listA(4,(V602),Cnil,Cnil,Cnil);{object V608;
3476          V663= (VV[165]->s.s_dbind);          V608= (VV[181]->s.s_dbind);
3477          V664= make_cons((V661),Cnil);          V609= make_cons((V606),Cnil);
3478          (VV[165]->s.s_dbind)= nconc(V663,/* INLINE-ARGS */V664);}          (VV[181]->s.s_dbind)= nconc(V608,/* INLINE-ARGS */V609);}
3479          goto T1144;          goto T1157;
3480  T1144:;  T1157:;
3481          (CMPcdr(V661))->c.c_car = V658;          (CMPcdr(V606))->c.c_car = V603;
3482          (void)(CMPcdr(V661));          (void)(CMPcdr(V606));
3483          (CMPcddr(V661))->c.c_car = V659;          (CMPcddr(V606))->c.c_car = V604;
3484          (void)(CMPcddr(V661));          (void)(CMPcddr(V606));
3485          {register object V669;          {register object V614;
3486          register object V670;          register object V615;
3487          V669= (V660);          V614= (V605);
3488          V670= CMPcar((V669));          V615= CMPcar((V614));
3489          goto T1158;          goto T1171;
3490  T1158:;  T1171:;
3491          if(!(((V669))==Cnil)){          if(!(((V614))==Cnil)){
3492          goto T1159;}          goto T1172;}
3493          goto T1154;          goto T1167;
3494          goto T1159;          goto T1172;
3495  T1159:;  T1172:;
3496          {register object V671;          {register object V616;
3497          register object V672;          register object V617;
3498          register object V673;          register object V618;
3499          V671= (V670);          V616= (V615);
3500          V672= (VV[164]->s.s_dbind);          V617= (VV[180]->s.s_dbind);
3501          V673= Ct;          V618= Ct;
3502          base[1]= (V671);          base[1]= (V616);
3503          base[2]= (V672);          base[2]= (V617);
3504          base[3]= (V673);          base[3]= (V618);
3505          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3506          siLhash_set();          siLhash_set();
3507          vs_top=sup;}          vs_top=sup;}
3508          V669= CMPcdr((V669));          V614= CMPcdr((V614));
3509          V670= CMPcar((V669));          V615= CMPcar((V614));
3510          goto T1158;}          goto T1171;}
3511          goto T1154;          goto T1167;
3512  T1154:;  T1167:;
3513          {object V675;          {object V620;
3514          base[1]= (V660);          base[1]= (V605);
3515          base[2]= CMPcdddr((V661));          base[2]= CMPcdddr((V606));
3516          base[3]= VV[12];          base[3]= VV[12];
3517          base[4]= (VV[225]->s.s_gfdef);          base[4]= (VV[251]->s.s_gfdef);
3518          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3519          (void) (*Lnk295)();          (void) (*Lnk322)();
3520          vs_top=sup;          vs_top=sup;
3521          V675= vs_base[0];          V620= vs_base[0];
3522          (CMPcddr(V661))->c.c_cdr = (V675);          (CMPcddr(V606))->c.c_cdr = (V620);
3523          (void)(CMPcddr(V661));          (void)(CMPcddr(V606));
3524          {object V676 = (V675);          {object V621 = (V620);
3525          VMR50(V676)}}}          VMR50(V621)}}}
3526          base[0]=base[0];          base[0]=base[0];
3527          return Cnil;          return Cnil;
3528  }  }
# Line 3576  static void L54() Line 3534  static void L54()
3534          vs_check;          vs_check;
3535          check_arg(2);          check_arg(2);
3536          vs_top=sup;          vs_top=sup;
3537          {object V677=base[0]->c.c_cdr;          {object V622=base[0]->c.c_cdr;
3538          if(endp(V677)){          if(endp(V622)){
3539          base[2]= Cnil;          base[2]= Cnil;
3540          } else {          } else {
3541          base[2]= (V677->c.c_car);          base[2]= (V622->c.c_car);
3542          V677=V677->c.c_cdr;}          V622=V622->c.c_cdr;}
3543          if(!endp(V677))invalid_macro_call();}          if(!endp(V622))invalid_macro_call();}
3544          {register object V678;          {register object V623;
3545          V678= small_fixnum(-1);          V623= small_fixnum(-1);
3546          {register object V680;          {register object V625;
3547          register object V681;          register object V626;
3548          V680= Cnil;          V625= Cnil;
3549          V681= Cnil;          V626= Cnil;
3550          {register object V682;          {register object V627;
3551          register object V683;          register object V628;
3552          V682= (VV[165]->s.s_dbind);          V627= (VV[181]->s.s_dbind);
3553          V683= CMPcar((V682));          V628= CMPcar((V627));
3554          goto T1189;          goto T1202;
3555  T1189:;  T1202:;
3556          if(!(((V682))==Cnil)){          if(!(((V627))==Cnil)){
3557          goto T1190;}          goto T1203;}
3558          goto T1185;          goto T1198;
3559          goto T1190;          goto T1203;
3560  T1190:;  T1203:;
3561          if((CMPcaddr((V683)))==Cnil){          if((CMPcaddr((V628)))==Cnil){
         goto T1195;}  
         if(!((CMPcaddr((V683)))==(base[2]))){  
         goto T1194;}  
         goto T1195;  
 T1195:;  
         if((base[2])==Cnil){  
         goto T1199;}  
         {register object V684;  
         register object V685;  
         V684= (V683);  
         V685= base[2];  
         (CMPcddr((V684)))->c.c_car = (V685);  
         (void)(CMPcddr((V684)));}  
         goto T1199;  
 T1199:;  
         {register object V686;  
         V687 = base[2];  
         V678= number_plus((V678),small_fixnum(1));  
         V688 = (V678);  
         V689= list(3,VV[167],V687,V688);  
         V690= list(2,VV[4],CMPcar((V683)));  
         V691= list(2,VV[170],CMPcar((V683)));  
         V692= list(2,VV[4],base[2]);  
         V693= list(5,VV[169],/* INLINE-ARGS */V690,/* INLINE-ARGS */V691,/* INLINE-ARGS */V692,list(2,VV[4],CMPcdddr((V683))));  
         V686= (*(LnkLI297))(/* INLINE-ARGS */V689,VV[168],/* INLINE-ARGS */V693);  
         if(((V680))!=Cnil){  
3562          goto T1208;}          goto T1208;}
3563          V681= make_cons((V686),Cnil);          if(!((CMPcaddr((V628)))==(base[2]))){
3564          V680= (V681);          goto T1207;}
         goto T1194;  
3565          goto T1208;          goto T1208;
3566  T1208:;  T1208:;
3567          V695= make_cons((V686),Cnil);          if((base[2])==Cnil){
3568          ((V681))->c.c_cdr = /* INLINE-ARGS */V695;          goto T1212;}
3569          V694= (V681);          {register object V629;
3570          V681= CMPcdr(V694);}          register object V630;
3571          goto T1194;          V629= (V628);
3572  T1194:;          V630= base[2];
3573          V682= CMPcdr((V682));          (CMPcddr((V629)))->c.c_car = (V630);
3574          V683= CMPcar((V682));          (void)(CMPcddr((V629)));}
3575          goto T1189;}          goto T1212;
3576          goto T1185;  T1212:;
3577  T1185:;          {register object V631;
3578          V679= (V680);}          V623= number_plus((V623),small_fixnum(1));
3579          base[3]= make_cons(VV[6],V679);          V632= list(3,VV[183],base[2],(V623));
3580            V633= list(2,VV[4],CMPcar((V628)));
3581            V634= list(2,VV[186],CMPcar((V628)));
3582            V635= list(2,VV[4],base[2]);
3583            V636= list(5,VV[185],/* INLINE-ARGS */V633,/* INLINE-ARGS */V634,/* INLINE-ARGS */V635,list(2,VV[4],CMPcdddr((V628))));
3584            V631= (*(LnkLI324))(/* INLINE-ARGS */V632,VV[184],/* INLINE-ARGS */V636);
3585            if(((V625))!=Cnil){
3586            goto T1221;}
3587            V626= make_cons((V631),Cnil);
3588            V625= (V626);
3589            goto T1207;
3590            goto T1221;
3591    T1221:;
3592            V638= make_cons((V631),Cnil);
3593            ((V626))->c.c_cdr = /* INLINE-ARGS */V638;
3594            V637= (V626);
3595            V626= CMPcdr(V637);}
3596            goto T1207;
3597    T1207:;
3598            V627= CMPcdr((V627));
3599            V628= CMPcar((V627));
3600            goto T1202;}
3601            goto T1198;
3602    T1198:;
3603            V624= (V625);}
3604            base[3]= make_cons(VV[6],V624);
3605          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3606          return;}          return;}
3607  }  }
# Line 3656  static void L55() Line 3612  static void L55()
3612          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
3613          vs_check;          vs_check;
3614          bds_check;          bds_check;
3615          {object V696;          {object V639;
3616          check_arg(1);          check_arg(1);
3617          V696=(base[0]);          V639=(base[0]);
3618          vs_top=sup;          vs_top=sup;
3619          goto TTL;          goto TTL;
3620  TTL:;  TTL:;
3621          base[3]= (((V696))==Cnil?Ct:Cnil);          base[3]= (((V639))==Cnil?Ct:Cnil);
3622          bds_bind(VV[163],Ct);          bds_bind(VV[179],Ct);
3623          bds_bind(VV[91],Ct);          bds_bind(VV[91],Ct);
3624          bds_bind(VV[166],base[3]);          bds_bind(VV[182],base[3]);
3625          if(!(((VV[101]->s.s_dbind))==(VV[102]))){          if(!(((VV[109]->s.s_dbind))==(VV[110]))){
3626          goto T1221;}          goto T1234;}
3627          vs_base=vs_top;          vs_base=vs_top;
3628          (void) (*Lnk298)();          (void) (*Lnk325)();
3629          bds_unwind1;          bds_unwind1;
3630          bds_unwind1;          bds_unwind1;
3631          bds_unwind1;          bds_unwind1;
3632          return;          return;
3633          goto T1221;          goto T1234;
3634  T1221:;  T1234:;
3635          base[4]= Cnil;          base[4]= Cnil;
3636          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3637          bds_unwind1;          bds_unwind1;
# Line 3686  T1221:; Line 3642  T1221:;
3642  }  }
3643  /*      local entry for function INITIALIZE-INSTANCE-SIMPLE     */  /*      local entry for function INITIALIZE-INSTANCE-SIMPLE     */
3644    
3645  static object LI56(V701,V702,V703,V704)  static object LI56(V644,V645,V646,V647)
3646    
3647  object V701;register object V702;object V703;register object V704;  object V644;register object V645;object V646;register object V647;
3648  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3649          goto TTL;          goto TTL;
3650  TTL:;  TTL:;
3651          {object V705;          {object V648;
3652          register object V706;          register object V649;
3653          object V707;          object V650;
3654          object V708;          object V651;
3655          register object V709;          register object V652;
3656          V705= CMPcar((V701));          V648= CMPcar((V644));
3657          if(type_of(V703)==t_structure){          if(type_of(V646)==t_structure){
3658          goto T1228;}          goto T1241;}
3659          goto T1226;          goto T1239;
3660          goto T1228;          goto T1241;
3661  T1228:;  T1241:;
3662          if(!(((V703)->str.str_def)==(VV[171]))){          if(!(((V646)->str.str_def)==(VV[187]))){
3663          goto T1226;}          goto T1239;}
3664          V707= STREF(object,(V703),4);          V650= STREF(object,(V646),4);
3665          goto T1224;          goto T1237;
3666          goto T1226;          goto T1239;
3667  T1226:;{object V711;  T1239:;{object V654;
3668          V711= (VV[172]->s.s_dbind);          V654= (VV[188]->s.s_dbind);
3669          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3670          base[1]= (V703);          base[1]= (V646);
3671          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3672          (void) (*Lnk299)();          (void) (*Lnk326)();
3673          vs_top=sup;          vs_top=sup;
3674          V712= vs_base[0];          V655= vs_base[0];
3675          if(!((V711)==(CMPcar(V712)))){          if(!((V654)==(CMPcar(V655)))){
3676          goto T1231;}}          goto T1244;}}
3677          V707= CMPcar(((V703))->cc.cc_turbo[12]);          V650= CMPcar(((V646))->cc.cc_turbo[12]);
         goto T1224;  
         goto T1231;  
 T1231:;  
         V707= Cnil;  
         goto T1224;  
 T1224:;  
         V708= (*(LnkLI301))((V703));  
         V706= (V704);  
         V709= Cnil;  
         goto T1239;  
 T1239:;  
         if(((V702))!=Cnil){  
         goto T1241;}  
3678          goto T1237;          goto T1237;
3679          goto T1241;          goto T1244;
3680  T1241:;  T1244:;
3681          {register object V713;          V650= Cnil;
3682          {object V714;          goto T1237;
3683          V714= CMPcar((V702));  T1237:;
3684          V702= CMPcdr((V702));          V651= (*(LnkLI328))((V646));
3685          V713= (V714);}          V649= (V647);
3686          {object V715= CMPcar((V713));          V652= Cnil;
3687          if((V715!= VV[145]))goto T1248;          goto T1252;
3688          V704= make_cons(V709,(V704));  T1252:;
3689          {object V717;          if(((V645))!=Cnil){
3690          V717= CMPcadr((V713));          goto T1254;}
3691          V704= make_cons((V717),(V704));          goto T1250;
3692          goto T1240;}          goto T1254;
3693          goto T1248;  T1254:;
3694  T1248:;          {register object V656;
3695          if((V715!= VV[158]))goto T1253;          {object V657;
3696          V709= CMPcadr((V713));          V657= CMPcar((V645));
3697          goto T1240;          V645= CMPcdr((V645));
3698            V656= (V657);}
3699            {object V658;
3700            V658= CMPcar((V656));
3701            {object V659= (V658);
3702            if((V659!= VV[161]))goto T1262;
3703            V647= make_cons(V652,(V647));
3704            {object V661;
3705            V661= CMPcadr((V656));
3706            V647= make_cons((V661),(V647));
3707            goto T1253;}
3708            goto T1262;
3709    T1262:;
3710            if((V659!= VV[174]))goto T1267;
3711            V652= CMPcadr((V656));
3712          goto T1253;          goto T1253;
 T1253:;  
         if((V715!= VV[114]))goto T1255;  
         V709= (  
         V718 = CMPcadr((V713)),  
         (type_of(V718) == t_sfun ?(*((V718)->sfn.sfn_self)):  
         (fcall.argd=0,type_of(V718)==t_vfun) ?  
         (*((V718)->sfn.sfn_self)):  
         (fcall.fun=(V718),fcalln))());  
         goto T1240;  
         goto T1255;  
 T1255:;  
         if((V715!= VV[156]))goto T1257;  
         V719= one_minus(CMPcadr((V713)));  
         V706= nthcdr(fix(/* INLINE-ARGS */V719),(V706));  
         {object V720;  
         V720= CMPcar((V706));  
         V706= CMPcdr((V706));  
         V709= (V720);}  
         goto T1240;  
         goto T1257;  
 T1257:;  
         if((V715!= VV[157]))goto T1264;  
         {object V721;  
         V721= ((V705))->v.v_self[fix(CMPcadr((V713)))];  
         if(!(type_of(V721)==t_fixnum)){  
         goto T1267;}  
         (void)(((V707))->v.v_self[fix((V721))]= ((V709)));  
         goto T1240;  
3713          goto T1267;          goto T1267;
3714  T1267:;  T1267:;
3715          if(!(type_of(V721)==t_cons)){          if((V659!= VV[122]))goto T1269;
3716          goto T1270;}          V652= (
3717          (V721)->c.c_cdr = V709;          V662 = CMPcadr((V656)),
3718          goto T1240;          (type_of(V662) == t_sfun ?(*((V662)->sfn.sfn_self)):
3719          goto T1270;          (fcall.argd=0,type_of(V662)==t_vfun) ?
3720  T1270:;          (*((V662)->sfn.sfn_self)):
3721          {object V727;          (fcall.fun=(V662),fcalln))());
3722          V727= CMPcaddr((V713));          goto T1253;
3723          V729= ({object _tmp=get(VV[186],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[186])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[186])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          goto T1269;
3724          V730 = V709;  T1269:;
3725          V731 = V708;          if((V659!= VV[172]))goto T1271;
3726          V732 = V703;          V663= one_minus(CMPcadr((V656)));
3727          V733 = (V727);          V649= nthcdr(fix(/* INLINE-ARGS */V663),(V649));
3728            {object V664;
3729            V664= CMPcar((V649));
3730            V649= CMPcdr((V649));
3731            V652= (V664);}
3732            goto T1253;
3733            goto T1271;
3734    T1271:;
3735            if((V659!= VV[173]))goto T1278;
3736            {object V665;
3737            V665= ((V648))->v.v_self[fix(CMPcadr((V656)))];
3738            if(!(type_of(V665)==t_fixnum)){
3739            goto T1281;}
3740            (void)(((V650))->v.v_self[fix((V665))]= ((V652)));
3741            goto T1253;
3742            goto T1281;
3743    T1281:;
3744            if(!(type_of(V665)==t_cons)){
3745            goto T1284;}
3746            (V665)->c.c_cdr = V652;
3747            goto T1253;
3748            goto T1284;
3749    T1284:;
3750            {object V671;
3751            V671= CMPcaddr((V656));
3752            V673= ({object _tmp=get(VV[204],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[204])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[204])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
3753          (void)((          (void)((
3754          V734 = V729,          V674 = V673,
3755          (type_of(V734) == t_sfun ?(*((V734)->sfn.sfn_self)):          (type_of(V674) == t_sfun ?(*((V674)->sfn.sfn_self)):
3756          (fcall.argd=4,type_of(V734)==t_vfun) ?          (fcall.argd=4,type_of(V674)==t_vfun) ?
3757          (*((V734)->sfn.sfn_self)):          (*((V674)->sfn.sfn_self)):
3758          (fcall.fun=(V734),fcalln))(V730,V731,V732,V733)));          (fcall.fun=(V674),fcalln))(V652,V651,V646,(V671))));
3759          goto T1240;}}          goto T1253;}}
3760          goto T1264;          goto T1278;
3761  T1264:;  T1278:;
3762          if((V715!= VV[159]))goto T1275;          if((V659!= VV[175]))goto T1289;
3763          {object V735;          {object V675;
3764          V735= ((V705))->v.v_self[fix(CMPcadr((V713)))];          V675= ((V648))->v.v_self[fix(CMPcadr((V656)))];
3765          if(!(type_of(V735)==t_fixnum)){          if(!(type_of(V675)==t_fixnum)){
3766          goto T1280;}          goto T1294;}
3767          if(!((((((V707))->v.v_self[fix((V735))])==(VV[173])?Ct:Cnil))==Cnil)){          if(!((((((V650))->v.v_self[fix((V675))])==(VV[189])?Ct:Cnil))==Cnil)){
3768          goto T1240;}          goto T1253;}
3769          goto T1277;          goto T1291;
3770          goto T1280;          goto T1294;
3771  T1280:;  T1294:;
3772          if(!(type_of(V735)==t_cons)){          if(!(type_of(V675)==t_cons)){
3773          goto T1283;}          goto T1297;}
3774          if(!((((CMPcdr((V735)))==(VV[173])?Ct:Cnil))==Cnil)){          if(!((((CMPcdr((V675)))==(VV[189])?Ct:Cnil))==Cnil)){
3775          goto T1240;}          goto T1253;}
3776          goto T1277;          goto T1291;
3777          goto T1283;          goto T1297;
3778  T1283:;  T1297:;
3779          base[0]= (V708);          base[0]= (V651);
3780          base[1]= (V703);          base[1]= (V646);
3781          base[2]= CMPcaddr((V713));          base[2]= CMPcaddr((V656));
3782          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3783          (void) (*Lnk195)(Lclptr195);          (void) (*Lnk213)(Lclptr213);
3784          vs_top=sup;          vs_top=sup;
3785          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3786          goto T1240;}}          goto T1253;}}
         goto T1277;  
 T1277:;  
         {long V737;  
         register long V738;  
         V737= fix(CMPcadddr((V713)));  
         V738= 0;  
3787          goto T1291;          goto T1291;
3788  T1291:;  T1291:;
3789          if(!((V738)>=(V737))){          {long V677;
3790          goto T1292;}          register long V678;
3791          goto T1240;          V677= fix(CMPcadddr((V656)));
3792          goto T1292;          V678= 0;
3793  T1292:;          goto T1305;
3794          {object V739;  T1305:;
3795          V739= CMPcar((V702));          if(!((V678)>=(V677))){
3796          V702= CMPcdr((V702));}          goto T1306;}
3797          V738= (long)(V738)+1;          goto T1253;
3798          goto T1291;}          goto T1306;
3799          goto T1275;  T1306:;
3800  T1275:;          {object V679;
3801          if((V715!= VV[146]))goto T1302;          V679= CMPcar((V645));
3802          if(!(type_of((V704))==t_cons)){          V645= CMPcdr((V645));}
3803          goto T1303;}          V678= (long)(V678)+1;
3804          V704= make_cons(CMPcar((V704)),CMPcdr((V704)));          goto T1305;}
3805          goto T1303;          goto T1289;
3806  T1303:;  T1289:;
3807          (VV[93]->s.s_dbind)= CMPcadr((V713));          if((V659!= VV[162]))goto T1316;
3808          (VV[94]->s.s_dbind)= (V704);          if(!(type_of((V647))==t_cons)){
3809          (VV[95]->s.s_dbind)= CMPcaddr((V713));          goto T1317;}
3810          goto T1240;          V647= make_cons(CMPcar((V647)),CMPcdr((V647)));
3811          goto T1302;          goto T1317;
3812  T1302:;  T1317:;
3813          if((V715!= VV[302]))goto T1312;          (VV[93]->s.s_dbind)= CMPcadr((V656));
3814          V706= (V704);          (VV[94]->s.s_dbind)= (V647);
3815          goto T1240;          (VV[95]->s.s_dbind)= CMPcaddr((V656));
3816          goto T1312;          goto T1253;
3817  T1312:;          goto T1316;
3818          FEerror("The ECASE key value ~s is illegal.",1,V715);  T1316:;
3819          goto T1240;}}          if((V659!= VV[329]))goto T1326;
3820          goto T1240;          V649= (V647);
3821  T1240:;          goto T1253;
3822          goto T1239;          goto T1326;
3823          goto T1237;  T1326:;
3824  T1237:;          base[0]= VV[101];
3825          {object V740 = (V704);          base[1]= VV[102];
3826          VMR53(V740)}}          base[2]= VV[103];
3827            base[3]= VV[104];
3828            base[4]= (V658);
3829            base[5]= VV[105];
3830            base[6]= VV[190];
3831            base[7]= VV[107];
3832            base[8]= VV[191];
3833            vs_top=(vs_base=base+0)+9;
3834            (void) (*Lnk281)();
3835            vs_top=sup;}}}
3836            goto T1253;
3837    T1253:;
3838            goto T1252;
3839            goto T1250;
3840    T1250:;
3841            {object V680 = (V647);
3842            VMR53(V680)}}
3843          base[0]=base[0];          base[0]=base[0];
3844          return Cnil;          return Cnil;
3845  }  }
3846  /*      local entry for function ADD-TO-CVECTOR */  /*      local entry for function ADD-TO-CVECTOR */
3847    
3848  static object LI57(V743,V744)  static object LI57(V683,V684)
3849    
3850  register object V743;object V744;  register object V683;object V684;
3851  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3852          goto TTL;          goto TTL;
3853  TTL:;{object V745;  TTL:;{object V685;
3854          base[0]= (V744);          base[0]= (V684);
3855          base[1]= (V743);          base[1]= (V683);
3856          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3857          (void) (*Lnk285)();          (void) (*Lnk312)();
3858          vs_top=sup;          vs_top=sup;
3859          V745= vs_base[0];          V685= vs_base[0];
3860          if(V745==Cnil)goto T1315;          if(V685==Cnil)goto T1338;
3861          {object V746 = V745;          {object V686 = V685;
3862          VMR54(V746)}          VMR54(V686)}
3863          goto T1315;          goto T1338;
3864  T1315:;}  T1338:;}
3865          {object V747;          {object V687;
3866          V747= CMPmake_fixnum((long)(((V743))->st.st_fillp));          V687= CMPmake_fixnum((long)(((V683))->st.st_fillp));
3867          {register object V749;          {register object V689;
3868          register long V750;          register long V690;
3869          long V751;          long V691;
3870          V749= (V743);          V689= (V683);
3871          V750= (long)(((V749))->st.st_fillp);          V690= (long)(((V689))->st.st_fillp);
3872          V751= (long)(((V749))->st.st_dim);          V691= (long)(((V689))->st.st_dim);
3873          if(!((V750)<(V751))){          if(!((V690)<(V691))){
3874          goto T1325;}          goto T1348;}
3875          (void)((((V749))->st.st_fillp)=((long)(1)+(V750)));          (void)((((V689))->st.st_fillp)=((long)(1)+(V690)));
3876          V752 = CMPmake_fixnum(V750);          V692 = CMPmake_fixnum(V690);
3877          (void)(aset1((V749),fix(V752),V744));          (void)(aset1((V689),fix(V692),V684));
3878          goto T1320;          goto T1343;
3879          goto T1325;          goto T1348;
3880  T1325:;  T1348:;
3881          base[0]= V744;          base[0]= V684;
3882          base[1]= (V749);          base[1]= (V689);
3883          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3884          (void) (*Lnk303)();          (void) (*Lnk330)();
3885          vs_top=sup;}          vs_top=sup;}
3886          goto T1320;          goto T1343;
3887  T1320:;  T1343:;
3888          {object V753 = (V747);          {object V693 = (V687);
3889          VMR54(V753)}}          VMR54(V693)}}
3890          base[0]=base[0];          base[0]=base[0];
3891          return Cnil;          return Cnil;
3892  }  }
3893  /*      local entry for function FIRST-FORM-TO-LISP     */  /*      local entry for function FIRST-FORM-TO-LISP     */
3894    
3895  static object LI60(V757,V758,V759)  static object LI60(V697,V698,V699)
3896    
3897  register object V757;object V758;register object V759;  register object V697;object V698;register object V699;
3898  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3899          goto TTL;          goto TTL;
3900  TTL:;  TTL:;
3901          base[0]= (V758);          base[0]= (V698);
3902          {object V760;          {object V700;
3903          {object V762;          {object V702;
3904          V762= CMPcdr(CMPcar(V757));          V702= CMPcdr(CMPcar(V697));
3905          {object V763;          {object V703;
3906          V763= CMPcar(CMPcar(V757));          V703= CMPcar(CMPcar(V697));
3907          (V757)->c.c_car = (V762);          (V697)->c.c_car = (V702);
3908          V760= (V763);}}          V700= (V703);}}
3909          {object V764= CMPcar((V760));          {object V704;
3910          if((V764!= VV[145]))goto T1336;          V704= CMPcar((V700));
3911          base[1]= CMPcadr((V760));          {object V705= (V704);
3912            if((V705!= VV[161]))goto T1360;
3913            base[1]= CMPcadr((V700));
3914          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3915          L61(base);          L61(base);
3916          vs_top=sup;          vs_top=sup;
3917          V765= vs_base[0];          V706= vs_base[0];
3918          {object V766 = list(2,VV[174],list(3,VV[57],V765,VV[175]));          {object V707 = list(2,VV[192],list(3,VV[57],V706,VV[193]));
3919          VMR55(V766)}          VMR55(V707)}
3920          goto T1336;          goto T1360;
3921  T1336:;  T1360:;
3922          if((V764!= VV[158]))goto T1339;          if((V705!= VV[174]))goto T1363;
3923          base[1]= CMPcadr((V760));          base[1]= CMPcadr((V700));
3924          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3925          L61(base);          L61(base);
3926          vs_top=sup;          vs_top=sup;
3927          V767= vs_base[0];          V708= vs_base[0];
3928          V768= list(3,VV[176],VV[76],V767);          V709= list(3,VV[194],VV[76],V708);
3929          {object V769 = make_cons(/* INLINE-ARGS */V768,Cnil);          {object V710 = make_cons(/* INLINE-ARGS */V709,Cnil);
3930          VMR55(V769)}          VMR55(V710)}
3931          goto T1339;          goto T1363;
3932  T1339:;  T1363:;
3933          if((V764!= VV[114]))goto T1342;          if((V705!= VV[122]))goto T1366;
3934          base[1]= CMPcadr((V760));          base[1]= CMPcadr((V700));
3935          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3936          L61(base);          L61(base);
3937          vs_top=sup;          vs_top=sup;
3938          V770= vs_base[0];          V711= vs_base[0];
3939          V771= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V770)));          V712= list(3,VV[194],VV[76],list(2,VV[122],list(3,VV[195],VV[186],V711)));
3940          {object V772 = make_cons(/* INLINE-ARGS */V771,Cnil);          {object V713 = make_cons(/* INLINE-ARGS */V712,Cnil);
3941          VMR55(V772)}          VMR55(V713)}
3942          goto T1342;          goto T1366;
3943  T1342:;  T1366:;
3944          if((V764!= VV[156]))goto T1345;          if((V705!= VV[172]))goto T1369;
3945          {object V774;          {object V715;
3946          V774= one_minus(CMPcadr((V760)));          V715= one_minus(CMPcadr((V700)));
3947          {object V775= (V774);          {object V716= (V715);
3948          if(!eql(V775,VV[179]))goto T1348;          if(!eql(V716,VV[197]))goto T1372;
3949          V773= VV[180];          V714= VV[198];
3950          goto T1346;          goto T1370;
3951          goto T1348;          goto T1372;
3952  T1348:;  T1372:;
3953          if(!eql(V775,VV[181]))goto T1349;          if(!eql(V716,VV[199]))goto T1373;
3954          V773= VV[182];          V714= VV[200];
3955          goto T1346;          goto T1370;
3956          goto T1349;          goto T1373;
3957  T1349:;  T1373:;
3958          V773= list(2,VV[183],(V774));}}          V714= list(2,VV[201],(V715));}}
3959          goto T1346;          goto T1370;
3960  T1346:;  T1370:;
3961          {object V776 = list(2,list(3,VV[176],VV[178],append(V773,VV[184])),VV[185]);          {object V717 = list(2,list(3,VV[194],VV[196],append(V714,VV[202])),VV[203]);
3962          VMR55(V776)}          VMR55(V717)}
3963          goto T1345;          goto T1369;
3964  T1345:;  T1369:;
3965          if((V764!= VV[157]))goto T1350;          if((V705!= VV[173]))goto T1374;
3966          {object V777;          {object V718;
3967          object V778;          object V719;
3968          object V779;          object V720;
3969          V777= CMPcadr((V760));          V718= CMPcadr((V700));
3970          V778= ((V759))->v.v_self[fix((V777))];          V719= ((V699))->v.v_self[fix((V718))];
3971          base[4]= CMPcaddr((V760));          base[4]= CMPcaddr((V700));
3972          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3973          L61(base);          L61(base);
3974          vs_top=sup;          vs_top=sup;
3975          V780= vs_base[0];          V721= vs_base[0];
3976          V779= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V780),VV[76]);          V720= list(3,VV[62],list(4,VV[204],VV[111],VV[129],V721),VV[76]);
3977          if(((VV[187]->s.s_dbind))==Cnil){          if(((VV[205]->s.s_dbind))==Cnil){
3978          goto T1357;}          goto T1381;}
3979          if(!(type_of(V778)==t_fixnum)){          if(!(type_of(V719)==t_fixnum)){
3980          goto T1360;}          goto T1384;}
3981          base[4]= (V778);          base[4]= (V719);
3982          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3983          L61(base);          L61(base);
3984          vs_top=sup;          vs_top=sup;
3985          V782= vs_base[0];          V723= vs_base[0];
3986          V783= list(3,VV[62],list(3,VV[188],VV[58],V782),VV[76]);          V724= list(3,VV[62],list(3,VV[206],VV[58],V723),VV[76]);
3987          {object V784 = make_cons(/* INLINE-ARGS */V783,Cnil);          {object V725 = make_cons(/* INLINE-ARGS */V724,Cnil);
3988          VMR55(V784)}          VMR55(V725)}
3989          goto T1360;          goto T1384;
3990  T1360:;  T1384:;
3991          if(!(type_of(V778)==t_cons)){          if(!(type_of(V719)==t_cons)){
3992          goto T1365;}          goto T1389;}
3993          base[4]= (V778);          base[4]= (V719);
3994          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3995          L61(base);          L61(base);
3996          vs_top=sup;          vs_top=sup;
3997          V785= vs_base[0];          V726= vs_base[0];
3998          V786= list(3,VV[62],list(2,VV[189],V785),VV[76]);          V727= list(3,VV[62],list(2,VV[207],V726),VV[76]);
3999          {object V787 = make_cons(/* INLINE-ARGS */V786,Cnil);          {object V728 = make_cons(/* INLINE-ARGS */V727,Cnil);
4000          VMR55(V787)}          VMR55(V728)}
4001          goto T1365;          goto T1389;
4002  T1365:;  T1389:;
4003          {object V788 = make_cons((V779),Cnil);          {object V729 = make_cons((V720),Cnil);
4004          VMR55(V788)}          VMR55(V729)}
4005          goto T1357;          goto T1381;
4006  T1357:;  T1381:;
4007          base[4]= (V777);          base[4]= (V718);
4008          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4009          L61(base);          L61(base);
4010          vs_top=sup;          vs_top=sup;
4011          V789= vs_base[0];          V730= vs_base[0];
4012          V790 = (V779);          if(!(type_of(V719)==t_fixnum)){
4013          if(!(type_of(V778)==t_fixnum)){          goto T1397;}
4014          goto T1373;}          V731= VV[210];
4015          V791= VV[192];          goto T1395;
4016          goto T1371;          goto T1397;
4017          goto T1373;  T1397:;
4018  T1373:;          if(!(type_of(V719)==t_cons)){
4019          if(!(type_of(V778)==t_cons)){          goto T1400;}
4020          goto T1376;}          V731= VV[211];
4021          V791= VV[193];          goto T1395;
4022          goto T1371;          goto T1400;
4023          goto T1376;  T1400:;
4024  T1376:;          V731= VV[212];
4025          V791= VV[194];          goto T1395;
4026          goto T1371;  T1395:;
4027  T1371:;          V733= list(7,VV[208],VV[209],VV[58],V730,VV[76],(V720),V731);
4028          V793= list(7,VV[190],VV[191],VV[58],V789,VV[76],V790,V791);          {object V734 = make_cons(/* INLINE-ARGS */V733,Cnil);
4029          {object V794 = make_cons(/* INLINE-ARGS */V793,Cnil);          VMR55(V734)}}
4030          VMR55(V794)}}          goto T1374;
4031          goto T1350;  T1374:;
4032  T1350:;          if((V705!= VV[175]))goto T1402;
4033          if((V764!= VV[159]))goto T1378;          {object V735;
4034          {object V795;          object V736;
4035          object V796;          object V737;
4036          object V797;          V735= CMPcadr((V700));
4037          V795= CMPcadr((V760));          V736= ((V699))->v.v_self[fix((V735))];
4038          V796= ((V759))->v.v_self[fix((V795))];          base[4]= CMPcaddr((V700));
         base[4]= CMPcaddr((V760));  
4039          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4040          L61(base);          L61(base);
4041          vs_top=sup;          vs_top=sup;
4042          V798= vs_base[0];          V738= vs_base[0];
4043          V797= list(4,VV[195],VV[103],VV[121],V798);          V737= list(4,VV[213],VV[111],VV[129],V738);
4044          if(((VV[187]->s.s_dbind))==Cnil){          if(((VV[205]->s.s_dbind))==Cnil){
4045          goto T1386;}          goto T1410;}
4046          if(!(type_of(V796)==t_fixnum)){          if(!(type_of(V736)==t_fixnum)){
4047          goto T1389;}          goto T1413;}
4048          base[4]= (V796);          base[4]= (V736);
4049          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4050          L61(base);          L61(base);
4051          vs_top=sup;          vs_top=sup;
4052          V801= vs_base[0];          V741= vs_base[0];
4053          V802= list(3,VV[188],VV[58],V801);          V742= list(3,VV[206],VV[58],V741);
4054          V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V802,list(2,VV[4],(VV[153]->s.s_dbind))));          V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V742,list(2,VV[4],(VV[169]->s.s_dbind))));
4055          goto T1384;          goto T1408;
4056          goto T1389;          goto T1413;
4057  T1389:;  T1413:;
4058          if(!(type_of(V796)==t_cons)){          if(!(type_of(V736)==t_cons)){
4059          goto T1394;}          goto T1418;}
4060          base[4]= (V796);          base[4]= (V736);
4061          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4062          L61(base);          L61(base);
4063          vs_top=sup;          vs_top=sup;
4064          V803= vs_base[0];          V743= vs_base[0];
4065          V804= list(2,VV[189],V803);          V744= list(2,VV[207],V743);
4066          V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V804,list(2,VV[4],(VV[153]->s.s_dbind))));          V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V744,list(2,VV[4],(VV[169]->s.s_dbind))));
4067          goto T1384;          goto T1408;
4068          goto T1394;          goto T1418;
4069  T1394:;  T1418:;
4070          V799= (V797);          V739= (V737);
4071          goto T1384;          goto T1408;
4072          goto T1386;          goto T1410;
4073  T1386:;  T1410:;
4074          base[4]= (V795);          base[4]= (V735);
4075          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4076          L61(base);          L61(base);
4077          vs_top=sup;          vs_top=sup;
4078          V805= vs_base[0];          V745= vs_base[0];
4079          V806 = (V797);          {object V747;
4080          {object V808;          V747= ((V699))->v.v_self[fix((V735))];
4081          V808= ((V759))->v.v_self[fix((V795))];          if(!(type_of((V747))==t_fixnum)){
4082          if(!(type_of((V808))==t_fixnum)){          goto T1427;}
4083          goto T1403;}          V746= VV[210];
4084          V807= VV[192];          goto T1424;
4085          goto T1400;          goto T1427;
4086          goto T1403;  T1427:;
4087  T1403:;          if(!(type_of((V747))==t_cons)){
4088          if(!(type_of((V808))==t_cons)){          goto T1430;}
4089          goto T1406;}          V746= VV[211];
4090          V807= VV[193];          goto T1424;
4091          goto T1400;          goto T1430;
4092          goto T1406;  T1430:;
4093  T1406:;          V746= VV[212];}
4094          V807= VV[194];}          goto T1424;
4095          goto T1400;  T1424:;
4096  T1400:;          V739= list(6,VV[215],VV[209],VV[58],V745,(V737),V746);
         V799= list(6,VV[197],VV[191],VV[58],V805,V806,V807);  
         goto T1384;  
 T1384:;  
         {register object V810;  
         V810= make_cons(Cnil,Cnil);  
         {register long V811;  
         register long V812;  
         V811= fix(CMPcadddr((V760)));  
         V812= 0;  
         goto T1413;  
 T1413:;  
         if(!((V812)>=(V811))){  
         goto T1414;}  
         V809= CMPcar((V810));  
         goto T1408;  
         goto T1414;  
 T1414:;  
         V813= (*(LnkLI304))((V757),base[0],(V759));  
         V814 = (V810);  
         (void)((*(LnkLI282))(/* INLINE-ARGS */V813,V814));  
         V812= (long)(V812)+1;  
         goto T1413;}}  
4097          goto T1408;          goto T1408;
4098  T1408:;  T1408:;
4099          V815= listA(3,VV[54],V799,V809);          {register object V749;
4100          {object V816 = make_cons(/* INLINE-ARGS */V815,Cnil);          V749= make_cons(Cnil,Cnil);
4101          VMR55(V816)}}          {long V750;
4102          goto T1378;          register long V751;
4103  T1378:;          V750= fix(CMPcadddr((V700)));
4104          if((V764!= VV[146]))goto T1421;          V751= 0;
4105          base[1]= CMPcadr((V760));          goto T1437;
4106    T1437:;
4107            if(!((V751)>=(V750))){
4108            goto T1438;}
4109            V748= CMPcar((V749));
4110            goto T1432;
4111            goto T1438;
4112    T1438:;
4113            V752= (*(LnkLI331))((V697),base[0],(V699));
4114            (void)((*(LnkLI309))(/* INLINE-ARGS */V752,(V749)));
4115            V751= (long)(V751)+1;
4116            goto T1437;}}
4117            goto T1432;
4118    T1432:;
4119            V753= listA(3,VV[54],V739,V748);
4120            {object V754 = make_cons(/* INLINE-ARGS */V753,Cnil);
4121            VMR55(V754)}}
4122            goto T1402;
4123    T1402:;
4124            if((V705!= VV[162]))goto T1445;
4125            base[1]= CMPcadr((V700));
4126          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4127          L61(base);          L61(base);
4128          vs_top=sup;          vs_top=sup;
4129          V817= vs_base[0];          V755= vs_base[0];
4130          V818= list(3,VV[176],VV[93],V817);          V756= list(3,VV[194],VV[93],V755);
4131          base[1]= CMPcaddr((V760));          base[1]= CMPcaddr((V700));
4132          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4133          L61(base);          L61(base);
4134          vs_top=sup;          vs_top=sup;
4135          V819= vs_base[0];          V757= vs_base[0];
4136          {object V820 = list(4,VV[198],/* INLINE-ARGS */V818,VV[199],list(3,VV[176],VV[95],V819));          {object V758 = list(4,VV[216],/* INLINE-ARGS */V756,VV[217],list(3,VV[194],VV[95],V757));
4137          VMR55(V820)}          VMR55(V758)}
4138          goto T1421;          goto T1445;
4139  T1421:;  T1445:;
4140          if((V764!= VV[302]))goto T1426;          if((V705!= VV[329]))goto T1450;
4141          {object V821 = VV[200];          {object V759 = VV[218];
4142          VMR55(V821)}          VMR55(V759)}
4143          goto T1426;          goto T1450;
4144  T1426:;  T1450:;
4145          FEerror("The ECASE key value ~s is illegal.",1,V764);          base[1]= VV[101];
4146          {object V822 = Cnil;          base[2]= VV[102];
4147          VMR55(V822)}}}          base[3]= VV[103];
4148            base[4]= VV[104];
4149            base[5]= (V704);
4150            base[6]= VV[105];
4151            base[7]= VV[227];
4152            base[8]= VV[107];
4153            base[9]= VV[228];
4154            vs_top=(vs_base=base+1)+9;
4155            (void) (*Lnk281)();
4156            vs_top=sup;
4157            {object V760 = vs_base[0];
4158            VMR55(V760)}}}}
4159          base[0]=base[0];          base[0]=base[0];
4160          return Cnil;          return Cnil;
4161  }  }
# Line 4193  static void L62() Line 4167  static void L62()
4167          vs_check;          vs_check;
4168          check_arg(2);          check_arg(2);
4169          vs_top=sup;          vs_top=sup;
4170          {object V823=base[0]->c.c_cdr;          {object V761=base[0]->c.c_cdr;
4171          base[2]= V823;}          base[2]= V761;}
4172          V825= listA(3,VV[205],VV[206],base[2]);          V763= listA(3,VV[231],VV[232],base[2]);
4173          base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V825));          base[3]= listA(3,VV[52],VV[230],append(VV[229],/* INLINE-ARGS */V763));
4174          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4175          return;          return;
4176  }  }
# Line 4206  static void L63() Line 4180  static void L63()
4180  {register object *base=vs_base;  {register object *base=vs_base;
4181          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
4182          vs_check;          vs_check;
4183          {object V826;          {object V764;
4184          object V827;          object V765;
4185          check_arg(2);          check_arg(2);
4186          V826=(base[0]);          V764=(base[0]);
4187          V827=(base[1]);          V765=(base[1]);
4188          vs_top=sup;          vs_top=sup;
4189          goto TTL;          goto TTL;
4190  TTL:;  TTL:;
4191          {register object V828;          {register object V766;
4192          register object V829;          register object V767;
4193          register object V830;          register object V768;
4194          object V831;          object V769;
4195          object V832;          object V770;
4196          V828= make_cons((V827),Cnil);          V766= make_cons((V765),Cnil);
4197          base[8]= CMPmake_fixnum((long)length((V827)));          base[8]= CMPmake_fixnum((long)length((V765)));
4198          base[9]= small_fixnum(2);          base[9]= small_fixnum(2);
4199          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4200          Lfloor();          Lfloor();
4201          vs_top=sup;          vs_top=sup;
4202          base[7]= vs_base[0];          base[7]= vs_base[0];
4203          base[8]= VV[207];          base[8]= VV[233];
4204          base[9]= small_fixnum(0);          base[9]= small_fixnum(0);
4205          base[10]= VV[208];          base[10]= VV[234];
4206          base[11]= Ct;          base[11]= Ct;
4207          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
4208          (void) (*Lnk283)();          (void) (*Lnk310)();
4209          vs_top=sup;          vs_top=sup;
4210          V829= vs_base[0];          V767= vs_base[0];
4211          V830= CMPcar((V826));          V768= CMPcar((V764));
4212          {register object V833;          {register object V771;
4213          V833= make_cons(Cnil,Cnil);          V771= make_cons(Cnil,Cnil);
4214          goto T1440;          goto T1473;
4215  T1440:;  T1473:;
4216          if((CMPcar((V828)))!=Cnil){          if((CMPcar((V766)))!=Cnil){
4217          goto T1442;}          goto T1475;}
4218          V831= CMPcar((V833));          V769= CMPcar((V771));
4219          goto T1437;          goto T1470;
4220          goto T1442;          goto T1475;
4221  T1442:;  T1475:;
4222          V834= (*(LnkLI304))((V828),(V829),(V830));          V772= (*(LnkLI331))((V766),(V767),(V768));
4223          V835 = (V833);          (void)((*(LnkLI309))(/* INLINE-ARGS */V772,(V771)));
4224          (void)((*(LnkLI282))(/* INLINE-ARGS */V834,V835));          goto T1473;}
4225          goto T1440;}          goto T1470;
4226          goto T1437;  T1470:;
4227  T1437:;          V773 = CMPmake_fixnum((long)length((V767)));
4228          V836 = CMPmake_fixnum((long)length((V829)));          V770= list(2,VV[235],V773);
4229          V832= list(2,VV[209],V836);          V774= list(2,VV[238],list(3,VV[239],(V770),VV[222]));
4230          V837= list(2,VV[212],list(3,VV[213],(V832),VV[202]));          base[7]= list(4,VV[236],VV[237],/* INLINE-ARGS */V774,list(2,VV[186],list(5,VV[236],VV[240],VV[241],make_cons(VV[242],(V769)),VV[193])));
4231          base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V837,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V831)),VV[175])));          base[9]= (V767);
4232          V838 = (V826);          base[10]= (V770);
         base[9]= (V829);  
         base[10]= (V832);  
4233          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
4234          (void) (*Lnk305)();          (void) (*Lnk332)();
4235          vs_top=sup;          vs_top=sup;
4236          V839= vs_base[0];          V775= vs_base[0];
4237          base[8]= list(2,V838,V839);          base[8]= list(2,(V764),V775);
4238          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4239          return;}          return;}
4240          }          }
4241  }  }
4242  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL      */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL      */
4243    
4244  static object LI64(V841)  static object LI64(V777)
4245    
4246  object V841;  object V777;
4247  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
4248          goto TTL;          goto TTL;
4249  TTL:;  TTL:;
4250          V842= make_cons((V841),Cnil);          V778= make_cons((V777),Cnil);
4251          (void)((*(LnkLI7))(/* INLINE-ARGS */V842));          (void)((*(LnkLI7))(/* INLINE-ARGS */V778));
4252          {object V843 = (*(LnkLI75))((V841));          {object V779 = (*(LnkLI75))((V777));
4253          VMR58(V843)}          VMR58(V779)}
4254          return Cnil;          return Cnil;
4255  }  }
4256  /*      local function CONST    */  /*      local function CONST    */
# Line 4288  register object *base0; Line 4260  register object *base0;
4260  {       register object *base=vs_base;  {       register object *base=vs_base;
4261          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
4262          vs_check;          vs_check;
4263          {object V844;          {object V780;
4264          check_arg(1);          check_arg(1);
4265          V844=(base[0]);          V780=(base[0]);
4266          vs_top=sup;          vs_top=sup;
4267          goto TTL;          goto TTL;
4268  TTL:;  TTL:;
4269          if(type_of((V844))==t_fixnum||          if(type_of((V780))==t_fixnum||
4270  type_of((V844))==t_bignum||  type_of((V780))==t_bignum||
4271  type_of((V844))==t_ratio||  type_of((V780))==t_ratio||
4272  type_of((V844))==t_shortfloat||  type_of((V780))==t_shortfloat||
4273  type_of((V844))==t_longfloat||  type_of((V780))==t_longfloat||
4274  type_of((V844))==t_complex){  type_of((V780))==t_complex){
4275          goto T1453;}          goto T1486;}
4276          if(!(type_of((V844))==t_character)){          if(!(type_of((V780))==t_character)){
4277          goto T1454;}          goto T1487;}
4278          goto T1453;          goto T1486;
4279  T1453:;  T1486:;
4280          base[1]= (V844);          base[1]= (V780);
4281          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4282          return;          return;
4283          goto T1454;          goto T1487;
4284  T1454:;  T1487:;
4285          if(!(type_of((V844))==t_symbol)){          if(!(type_of((V780))==t_symbol)){
4286          goto T1459;}          goto T1492;}
4287          base[1]= (V844);          base[1]= (V780);
4288          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4289          Lsymbol_package();          Lsymbol_package();
4290          vs_top=sup;          vs_top=sup;
4291          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4292          goto T1459;}          goto T1492;}
4293          base[1]= list(2,VV[4],(V844));          base[1]= list(2,VV[4],(V780));
4294          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4295          return;          return;
4296          goto T1459;          goto T1492;
4297  T1459:;  T1492:;
4298          base[1]= list(3,VV[201],VV[202],(*(LnkLI306))(base0[0],(V844)));          base[1]= list(3,VV[221],VV[222],(*(LnkLI333))(base0[0],(V780)));
4299          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4300          return;          return;
4301          }          }
# Line 4335  register object *base0; Line 4307  register object *base0;
4307  {       register object *base=vs_base;  {       register object *base=vs_base;
4308          register object *sup=base+VM60; VC60          register object *sup=base+VM60; VC60
4309          vs_check;          vs_check;
4310          {object V845;          {object V781;
4311          object V846;          object V782;
4312          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4313          V845=(base[0]);          V781=(base[0]);
4314          vs_base=vs_base+1;          vs_base=vs_base+1;
4315          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4316          {object *p=vs_top;          {object *p=vs_top;
4317           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4318          V846=(base[1]);          V782=(base[1]);
4319          vs_top=sup;          vs_top=sup;
4320          {object V847;          {object V783;
4321          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
4322          goto T1466;}          goto T1499;}
4323          V847= (VFUN_NARGS=2,(*(LnkLI307))((base0[4]->c.c_car),(base0[3]->c.c_car)));          V783= (VFUN_NARGS=2,(*(LnkLI334))((base0[4]->c.c_car),(base0[3]->c.c_car)));
4324          goto T1464;          goto T1497;
4325          goto T1466;          goto T1499;
4326  T1466:;  T1499:;
4327          V847= (V845);          V783= (V781);
4328          goto T1464;          goto T1497;
4329  T1464:;  T1497:;
4330          if(!(((V847))==((V845)))){          if(!(((V783))==((V781)))){
4331          goto T1468;}          goto T1501;}
4332          if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4333          goto T1469;}          goto T1502;}
4334          goto T1468;          goto T1501;
4335  T1468:;  T1501:;
4336          base[2]= (V847);          base[2]= (V783);
4337          base[3]= (V846);          base[3]= (V782);
4338          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4339          (void) (*Lnk124)();          (void) (*Lnk132)();
4340          return;          return;
4341          goto T1469;          goto T1502;
4342  T1469:;  T1502:;
4343          {register object V848;          {register object V784;
4344          register object V849;          register object V785;
4345          {register object V850;          {register object V786;
4346          V850= (base0[6]->c.c_car);          V786= (base0[6]->c.c_car);
4347          if(!(type_of((V850))==t_cons)){          if(!(type_of((V786))==t_cons)){
4348          goto T1477;}          goto T1510;}
4349          if(!((CMPcar((V850)))==(VV[130]))){          if(!((CMPcar((V786)))==(VV[138]))){
4350          goto T1477;}          goto T1510;}
4351          V848= (*(LnkLI111))(CMPcadr((V850)),CMPcaddr((V850)),Cnil,(V846));          V784= (*(LnkLI119))(CMPcadr((V786)),CMPcaddr((V786)),Cnil,(V782));
4352          goto T1475;          goto T1508;
4353          goto T1477;          goto T1510;
4354  T1477:;  T1510:;
4355          V848= (          V784= (
4356          (type_of((V850)) == t_sfun ?(*(((V850))->sfn.sfn_self)):          (type_of((V786)) == t_sfun ?(*(((V786))->sfn.sfn_self)):
4357          (fcall.argd=2,type_of((V850))==t_vfun) ?          (fcall.argd=2,type_of((V786))==t_vfun) ?
4358          (*(((V850))->sfn.sfn_self)):          (*(((V786))->sfn.sfn_self)):
4359          (fcall.fun=((V850)),fcalln))(Cnil,(V846)));}          (fcall.fun=((V786)),fcalln))(Cnil,(V782)));}
4360          goto T1475;          goto T1508;
4361  T1475:;  T1508:;
4362          base[4]=VV[96]->s.s_gfdef;          base[4]=VV[96]->s.s_gfdef;
4363          base[5]= (base0[7]->c.c_car);          base[5]= (base0[7]->c.c_car);
4364          {object V851;          {object V787;
4365          V851= (V848);          V787= (V784);
4366           vs_top=base+6;           vs_top=base+6;
4367           while(V851!=Cnil)           while(V787!=Cnil)
4368           {vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;}           {vs_push((V787)->c.c_car);V787=(V787)->c.c_cdr;}
4369          vs_base=base+5;}          vs_base=base+5;}
4370          (void) (*Lnk96)(Lclptr96);          (void) (*Lnk96)(Lclptr96);
4371          vs_top=sup;          vs_top=sup;
4372          V849= vs_base[0];          V785= vs_base[0];
4373          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
4374          base[5]= VV[131];          base[5]= VV[139];
4375          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4376          (void) (*Lnk308)();          (void) (*Lnk335)();
4377          vs_top=sup;          vs_top=sup;
4378          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4379          goto T1487;}          goto T1520;}
4380          (void)((          (void)((
4381          V852 = STREF(object,(base0[0]->c.c_car),0),          V788 = STREF(object,(base0[0]->c.c_car),0),
4382          (type_of(V852) == t_sfun ?(*((V852)->sfn.sfn_self)):          (type_of(V788) == t_sfun ?(*((V788)->sfn.sfn_self)):
4383          (fcall.argd=4,type_of(V852)==t_vfun) ?          (fcall.argd=4,type_of(V788)==t_vfun) ?
4384          (*((V852)->sfn.sfn_self)):          (*((V788)->sfn.sfn_self)):
4385          (fcall.fun=(V852),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V849),(V848))));          (fcall.fun=(V788),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V785),(V784))));
4386          goto T1484;          goto T1517;
4387          goto T1487;          goto T1520;
4388  T1487:;  T1520:;
4389          {register object V853;          {object V789;
4390          V853= (base0[0]->c.c_car);          V789= (base0[0]->c.c_car);
4391          base[4]= (V853);          {register object V790;
4392          base[5]= VV[132];          V790= (V789);
4393            base[4]= (V790);
4394            base[5]= VV[140];
4395          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4396          (void) (*Lnk308)();          (void) (*Lnk335)();
4397          vs_top=sup;          vs_top=sup;
4398          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4399          goto T1492;}          goto T1525;}
4400          {object V854;          {object V791;
4401          object V855;          object V792;
4402          register object V856;          register object V793;
4403          V854= STREF(object,(base0[0]->c.c_car),0);          V791= STREF(object,(base0[0]->c.c_car),0);
4404          V855= make_cons((V849),(V848));          V792= make_cons((V785),(V784));
4405          V856= STREF(object,(base0[0]->c.c_car),4);          V793= STREF(object,(base0[0]->c.c_car),4);
4406          if(((V856))==Cnil){          if(((V793))==Cnil){
4407          goto T1500;}          goto T1533;}
4408          if((CMPcdr((V856)))!=Cnil){          if((CMPcdr((V793)))!=Cnil){
4409          goto T1500;}          goto T1533;}
4410          (void)((          (void)((
4411          (type_of((V854)) == t_sfun ?(*(((V854))->sfn.sfn_self)):          (type_of((V791)) == t_sfun ?(*(((V791))->sfn.sfn_self)):
4412          (fcall.argd=2,type_of((V854))==t_vfun) ?          (fcall.argd=2,type_of((V791))==t_vfun) ?
4413          (*(((V854))->sfn.sfn_self)):          (*(((V791))->sfn.sfn_self)):
4414          (fcall.fun=((V854)),fcalln))((V855),CMPcar((V856)))));          (fcall.fun=((V791)),fcalln))((V792),CMPcar((V793)))));
4415          goto T1484;          goto T1517;
4416          goto T1500;          goto T1533;
4417  T1500:;  T1533:;
4418          base[4]= (V854);          base[4]= (V791);
4419          base[5]= (V855);          base[5]= (V792);
4420          {object V857;          {object V794;
4421          V857= (V856);          V794= (V793);
4422           vs_top=base+6;           vs_top=base+6;
4423           while(V857!=Cnil)           while(V794!=Cnil)
4424           {vs_push((V857)->c.c_car);V857=(V857)->c.c_cdr;}           {vs_push((V794)->c.c_car);V794=(V794)->c.c_cdr;}
4425          vs_base=base+5;}          vs_base=base+5;}
4426          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4427                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4428                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4429                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4430          vs_top=sup;          vs_top=sup;
4431          goto T1484;}          goto T1517;}
4432          goto T1492;          goto T1525;
4433  T1492:;  T1525:;
4434          base[4]= (V853);          base[4]= (V790);
4435          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4436          Lfunctionp();          Lfunctionp();
4437          vs_top=sup;          vs_top=sup;
4438          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4439          goto T1508;}          goto T1541;}
4440          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
4441          base[5]= (V849);          base[5]= (V785);
4442          {object V858;          {object V795;
4443          V858= (V848);          V795= (V784);
4444           vs_top=base+6;           vs_top=base+6;
4445           while(V858!=Cnil)           while(V795!=Cnil)
4446           {vs_push((V858)->c.c_car);V858=(V858)->c.c_cdr;}           {vs_push((V795)->c.c_car);V795=(V795)->c.c_cdr;}
4447          vs_base=base+5;}          vs_base=base+5;}
4448          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4449                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4450                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4451                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4452          vs_top=sup;          vs_top=sup;
4453          goto T1484;          goto T1517;
4454          goto T1508;          goto T1541;
4455  T1508:;  T1541:;
4456          base[5]= VV[97];          base[4]= VV[101];
4457          base[6]= (V853);          base[5]= VV[102];
4458          base[7]= VV[144];          base[6]= VV[141];
4459          vs_top=(vs_base=base+5)+3;          base[7]= VV[104];
4460          (void) (*Lnk309)();          base[8]= (V789);
4461          vs_top=sup;          base[9]= VV[105];
4462          base[4]= vs_base[0];          base[10]= VV[159];
4463          vs_top=(vs_base=base+4)+1;          base[11]= VV[107];
4464          Lerror();          base[12]= VV[160];
4465          vs_top=sup;}          vs_top=(vs_base=base+4)+9;
4466          goto T1484;          (void) (*Lnk281)();
4467  T1484:;          vs_top=sup;}}
4468          base[4]= (V849);          goto T1517;
4469    T1517:;
4470            base[4]= (V785);
4471          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4472          return;}}          return;}}
4473          }          }
# Line 4503  register object *base0; Line 4479  register object *base0;
4479  {       register object *base=vs_base;  {       register object *base=vs_base;
4480          register object *sup=base+VM61; VC61          register object *sup=base+VM61; VC61
4481          vs_check;          vs_check;
4482          {object V859;          {object V796;
4483          object V860;          object V797;
4484          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4485          V859=(base[0]);          V796=(base[0]);
4486          vs_base=vs_base+1;          vs_base=vs_base+1;
4487          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4488          {object *p=vs_top;          {object *p=vs_top;
4489           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4490          V860=(base[1]);          V797=(base[1]);
4491          vs_top=sup;          vs_top=sup;
4492          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4493          base[3]= VV[131];          base[3]= VV[139];
4494          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4495          (void) (*Lnk308)();          (void) (*Lnk335)();
4496          vs_top=sup;          vs_top=sup;
4497          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4498          goto T1520;}          goto T1558;}
4499          base[2]= STREF(object,(base0[0]->c.c_car),0);          base[2]= STREF(object,(base0[0]->c.c_car),0);
4500          base[3]= STREF(object,(base0[0]->c.c_car),4);          base[3]= STREF(object,(base0[0]->c.c_car),4);
4501          base[4]= STREF(object,(base0[0]->c.c_car),8);          base[4]= STREF(object,(base0[0]->c.c_car),8);
4502          base[5]= (V859);          base[5]= (V796);
4503          base[6]= Ct;          base[6]= Ct;
4504          base[7]= (V860);          base[7]= (V797);
4505          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
4506          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4507                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4508                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4509                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4510          return;          return;
4511          goto T1520;          goto T1558;
4512  T1520:;  T1558:;
4513          {register object V861;          {object V798;
4514          V861= (base0[0]->c.c_car);          V798= (base0[0]->c.c_car);
4515          base[2]= (V861);          {register object V799;
4516          base[3]= VV[132];          V799= (V798);
4517            base[2]= (V799);
4518            base[3]= VV[140];
4519          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4520          (void) (*Lnk308)();          (void) (*Lnk335)();
4521          vs_top=sup;          vs_top=sup;
4522          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4523          goto T1531;}          goto T1569;}
4524          {object V862;          {object V800;
4525          object V863;          object V801;
4526          register object V864;          register object V802;
4527          V862= STREF(object,(base0[0]->c.c_car),0);          V800= STREF(object,(base0[0]->c.c_car),0);
4528          V863= listA(3,(V859),Ct,(V860));          V801= listA(3,(V796),Ct,(V797));
4529          V864= STREF(object,(base0[0]->c.c_car),4);          V802= STREF(object,(base0[0]->c.c_car),4);
4530          if(((V864))==Cnil){          if(((V802))==Cnil){
4531          goto T1539;}          goto T1577;}
4532          if((CMPcdr((V864)))!=Cnil){          if((CMPcdr((V802)))!=Cnil){
4533          goto T1539;}          goto T1577;}
4534          base[2]= (V863);          base[2]= (V801);
4535          base[3]= CMPcar((V864));          base[3]= CMPcar((V802));
4536          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4537          {object _funobj = (V862);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V800);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4538                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4539                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4540                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4541          return;          return;
4542          goto T1539;          goto T1577;
4543  T1539:;  T1577:;
4544          base[2]= (V862);          base[2]= (V800);
4545          base[3]= (V863);          base[3]= (V801);
4546          {object V865;          {object V803;
4547          V865= (V864);          V803= (V802);
4548           vs_top=base+4;           vs_top=base+4;
4549           while(V865!=Cnil)           while(V803!=Cnil)
4550           {vs_push((V865)->c.c_car);V865=(V865)->c.c_cdr;}           {vs_push((V803)->c.c_car);V803=(V803)->c.c_cdr;}
4551          vs_base=base+3;}          vs_base=base+3;}
4552          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4553                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4554                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4555                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4556          return;}          return;}
4557          goto T1531;          goto T1569;
4558  T1531:;  T1569:;
4559          base[2]= (V861);          base[2]= (V799);
4560          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4561          Lfunctionp();          Lfunctionp();
4562          vs_top=sup;          vs_top=sup;
4563          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4564          goto T1549;}          goto T1587;}
4565          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4566          base[3]= (V859);          base[3]= (V796);
4567          base[4]= Ct;          base[4]= Ct;
4568          {object V866;          {object V804;
4569          V866= (V860);          V804= (V797);
4570           vs_top=base+5;           vs_top=base+5;
4571           while(V866!=Cnil)           while(V804!=Cnil)
4572           {vs_push((V866)->c.c_car);V866=(V866)->c.c_cdr;}           {vs_push((V804)->c.c_car);V804=(V804)->c.c_cdr;}
4573          vs_base=base+3;}          vs_base=base+3;}
4574          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4575                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4576                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4577                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4578          return;          return;
4579          goto T1549;          goto T1587;
4580  T1549:;  T1587:;
4581          base[3]= VV[98];          base[2]= VV[101];
4582          base[4]= (V861);          base[3]= VV[102];
4583          base[5]= VV[143];          base[4]= VV[141];
4584          vs_top=(vs_base=base+3)+3;          base[5]= VV[104];
4585          (void) (*Lnk309)();          base[6]= (V798);
4586          vs_top=sup;          base[7]= VV[105];
4587          base[2]= vs_base[0];          base[8]= VV[157];
4588          vs_top=(vs_base=base+2)+1;          base[9]= VV[107];
4589          Lerror();          base[10]= VV[158];
4590          return;}          vs_top=(vs_base=base+2)+9;
4591            (void) (*Lnk281)();
4592            return;}}
4593          }          }
4594  }  }
4595  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 4619  register object *base0; Line 4599  register object *base0;
4599  {       register object *base=vs_base;  {       register object *base=vs_base;
4600          register object *sup=base+VM62; VC62          register object *sup=base+VM62; VC62
4601          vs_check;          vs_check;
4602          {object V867;          {object V805;
4603          object V868;          object V806;
4604          object V869;          object V807;
4605          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
4606          V867=(base[0]);          V805=(base[0]);
4607          V868=(base[1]);          V806=(base[1]);
4608          vs_base=vs_base+2;          vs_base=vs_base+2;
4609          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4610          {object *p=vs_top;          {object *p=vs_top;
4611           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4612          V869=(base[2]);          V807=(base[2]);
4613          vs_top=sup;          vs_top=sup;
4614          {register object V870;          {register object V808;
4615          V870= (base0[3]->c.c_car);          V808= (base0[3]->c.c_car);
4616          if(!(type_of((V870))==t_cons)){          if(!(type_of((V808))==t_cons)){
4617          goto T1562;}          goto T1605;}
4618          if(!((CMPcar((V870)))==(VV[130]))){          if(!((CMPcar((V808)))==(VV[138]))){
4619          goto T1562;}          goto T1605;}
4620          (void)((*(LnkLI111))(CMPcadr((V870)),CMPcaddr((V870)),(V867),(V869)));          (void)((*(LnkLI119))(CMPcadr((V808)),CMPcaddr((V808)),(V805),(V807)));
4621          goto T1560;          goto T1603;
4622          goto T1562;          goto T1605;
4623  T1562:;  T1605:;
4624          (void)((          (void)((
4625          (type_of((V870)) == t_sfun ?(*(((V870))->sfn.sfn_self)):          (type_of((V808)) == t_sfun ?(*(((V808))->sfn.sfn_self)):
4626          (fcall.argd=2,type_of((V870))==t_vfun) ?          (fcall.argd=2,type_of((V808))==t_vfun) ?
4627          (*(((V870))->sfn.sfn_self)):          (*(((V808))->sfn.sfn_self)):
4628          (fcall.fun=((V870)),fcalln))((V867),(V869))));}          (fcall.fun=((V808)),fcalln))((V805),(V807))));}
4629          goto T1560;          goto T1603;
4630  T1560:;  T1603:;
4631          base[3]= (V867);          base[3]= (V805);
4632          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4633          return;          return;
4634          }          }
# Line 4660  register object *base0; Line 4640  register object *base0;
4640  {       register object *base=vs_base;  {       register object *base=vs_base;
4641          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
4642          vs_check;          vs_check;
4643          {object V871;          {object V809;
4644          object V872;          object V810;
4645          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4646          V871=(base[0]);          V809=(base[0]);
4647          vs_base=vs_base+1;          vs_base=vs_base+1;
4648          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4649          {object *p=vs_top;          {object *p=vs_top;
4650           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4651          V872=(base[1]);          V810=(base[1]);
4652          vs_top=sup;          vs_top=sup;
4653          {object V873;          {object V811;
4654          if(((base0[6]->c.c_car))==Cnil){          if(((base0[6]->c.c_car))==Cnil){
4655          goto T1568;}          goto T1611;}
4656          V873= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car)));          V811= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car)));
4657          goto T1566;          goto T1609;
4658          goto T1568;          goto T1611;
4659  T1568:;  T1611:;
4660          V873= (V871);          V811= (V809);
4661          goto T1566;          goto T1609;
4662  T1566:;  T1609:;
4663          if(!(((V873))==((V871)))){          if(!(((V811))==((V809)))){
4664          goto T1570;}          goto T1613;}
4665          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4666          goto T1571;}          goto T1614;}
4667          goto T1570;          goto T1613;
4668  T1570:;  T1613:;
4669          base[2]= (V873);          base[2]= (V811);
4670          base[3]= (V872);          base[3]= (V810);
4671          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4672          (void) (*Lnk124)();          (void) (*Lnk132)();
4673          return;          return;
4674          goto T1571;          goto T1614;
4675  T1571:;  T1614:;
4676          {register object V874;          {register object V812;
4677          object V875;          object V813;
4678          V874= (          V812= (
4679          (type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)):          (type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)):
4680          (fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ?          (fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ?
4681          (*(((base0[4]->c.c_car))->sfn.sfn_self)):          (*(((base0[4]->c.c_car))->sfn.sfn_self)):
4682          (fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car)));          (fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car)));
4683          {object V876;          {object V814;
4684          V876= (base0[1]->c.c_car);          V814= (base0[1]->c.c_car);
4685          if(!(type_of((V876))==t_cons)){          if(!(type_of((V814))==t_cons)){
4686          goto T1580;}          goto T1623;}
4687          if(!((CMPcar((V876)))==(VV[130]))){          if(!((CMPcar((V814)))==(VV[138]))){
4688          goto T1580;}          goto T1623;}
4689          V875= (*(LnkLI111))(CMPcadr((V876)),CMPcaddr((V876)),(V874),(V872));          V813= (*(LnkLI119))(CMPcadr((V814)),CMPcaddr((V814)),(V812),(V810));
4690          goto T1578;          goto T1621;
4691          goto T1580;          goto T1623;
4692  T1580:;  T1623:;
4693          V875= (          V813= (
4694          (type_of((V876)) == t_sfun ?(*(((V876))->sfn.sfn_self)):          (type_of((V814)) == t_sfun ?(*(((V814))->sfn.sfn_self)):
4695          (fcall.argd=2,type_of((V876))==t_vfun) ?          (fcall.argd=2,type_of((V814))==t_vfun) ?
4696          (*(((V876))->sfn.sfn_self)):          (*(((V814))->sfn.sfn_self)):
4697          (fcall.fun=((V876)),fcalln))((V874),(V872)));}          (fcall.fun=((V814)),fcalln))((V812),(V810)));}
4698          goto T1578;          goto T1621;
4699  T1578:;  T1621:;
4700          {object V877;          {object V815;
4701          register object V878;          register object V816;
4702          V877= (base0[3]->c.c_car);          V815= (base0[3]->c.c_car);
4703          V878= CMPcar((V877));          V816= CMPcar((V815));
4704          goto T1588;          goto T1631;
4705  T1588:;  T1631:;
4706          if(!(((V877))==Cnil)){          if(!(((V815))==Cnil)){
4707          goto T1589;}          goto T1632;}
4708          goto T1584;          goto T1627;
4709          goto T1589;          goto T1632;
4710  T1589:;  T1632:;
4711          base[5]= (V878);          base[5]= (V816);
4712          base[6]= VV[131];          base[6]= VV[139];
4713          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4714          (void) (*Lnk308)();          (void) (*Lnk335)();
4715          vs_top=sup;          vs_top=sup;
4716          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4717          goto T1596;}          goto T1639;}
4718          (void)((          (void)((
4719          V879 = STREF(object,(V878),0),          V817 = STREF(object,(V816),0),
4720          (type_of(V879) == t_sfun ?(*((V879)->sfn.sfn_self)):          (type_of(V817) == t_sfun ?(*((V817)->sfn.sfn_self)):
4721          (fcall.argd=5,type_of(V879)==t_vfun) ?          (fcall.argd=5,type_of(V817)==t_vfun) ?
4722          (*((V879)->sfn.sfn_self)):          (*((V817)->sfn.sfn_self)):
4723          (fcall.fun=(V879),fcalln))(STREF(object,(V878),4),STREF(object,(V878),8),(V874),Ct,(V875))));          (fcall.fun=(V817),fcalln))(STREF(object,(V816),4),STREF(object,(V816),8),(V812),Ct,(V813))));
4724          goto T1593;          goto T1636;
4725          goto T1596;          goto T1639;
4726  T1596:;  T1639:;
4727          base[5]= V878;          base[5]= V816;
4728          base[6]= VV[132];          base[6]= VV[140];
4729          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4730          (void) (*Lnk308)();          (void) (*Lnk335)();
4731          vs_top=sup;          vs_top=sup;
4732          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4733          goto T1601;}          goto T1644;}
4734          {object V881;          {object V820;
4735          object V882;          object V821;
4736          object V883;          object V822;
4737          V881= STREF(object,(V878),0);          V820= STREF(object,(V816),0);
4738          V882= listA(3,(V874),Ct,(V875));          V821= listA(3,(V812),Ct,(V813));
4739          V883= STREF(object,(V878),4);          V822= STREF(object,(V816),4);
4740          if(((V883))==Cnil){          if(((V822))==Cnil){
4741          goto T1609;}          goto T1652;}
4742          if((CMPcdr((V883)))!=Cnil){          if((CMPcdr((V822)))!=Cnil){
4743          goto T1609;}          goto T1652;}
4744          (void)((          (void)((
4745          (type_of((V881)) == t_sfun ?(*(((V881))->sfn.sfn_self)):          (type_of((V820)) == t_sfun ?(*(((V820))->sfn.sfn_self)):
4746          (fcall.argd=2,type_of((V881))==t_vfun) ?          (fcall.argd=2,type_of((V820))==t_vfun) ?
4747          (*(((V881))->sfn.sfn_self)):          (*(((V820))->sfn.sfn_self)):
4748          (fcall.fun=((V881)),fcalln))((V882),CMPcar((V883)))));          (fcall.fun=((V820)),fcalln))((V821),CMPcar((V822)))));
4749          goto T1593;          goto T1636;
4750          goto T1609;          goto T1652;
4751  T1609:;  T1652:;
4752          base[5]= (V881);          base[5]= (V820);
4753          base[6]= (V882);          base[6]= (V821);
4754          {object V884;          {object V823;
4755          V884= (V883);          V823= (V822);
4756           vs_top=base+7;           vs_top=base+7;
4757           while(V884!=Cnil)           while(V823!=Cnil)
4758           {vs_push((V884)->c.c_car);V884=(V884)->c.c_cdr;}           {vs_push((V823)->c.c_car);V823=(V823)->c.c_cdr;}
4759          vs_base=base+6;}          vs_base=base+6;}
4760          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4761                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4762                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4763                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4764          vs_top=sup;          vs_top=sup;
4765          goto T1593;}          goto T1636;}
4766          goto T1601;          goto T1644;
4767  T1601:;  T1644:;
4768          base[5]= V878;          base[5]= V816;
4769          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4770          Lfunctionp();          Lfunctionp();
4771          vs_top=sup;          vs_top=sup;
4772          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4773          goto T1617;}          goto T1660;}
4774          base[5]= (V878);          base[5]= (V816);
4775          base[6]= (V874);          base[6]= (V812);
4776          base[7]= Ct;          base[7]= Ct;
4777          {object V885;          {object V824;
4778          V885= (V875);          V824= (V813);
4779           vs_top=base+8;           vs_top=base+8;
4780           while(V885!=Cnil)           while(V824!=Cnil)
4781           {vs_push((V885)->c.c_car);V885=(V885)->c.c_cdr;}           {vs_push((V824)->c.c_car);V824=(V824)->c.c_cdr;}
4782          vs_base=base+6;}          vs_base=base+6;}
4783          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4784                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4785                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4786                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4787          vs_top=sup;          vs_top=sup;
4788          goto T1593;          goto T1636;
4789          goto T1617;          goto T1660;
4790  T1617:;  T1660:;
4791          base[6]= VV[133];          base[5]= VV[101];
4792          base[7]= V878;          base[6]= VV[102];
4793          base[8]= VV[136];          base[7]= VV[141];
4794          vs_top=(vs_base=base+6)+3;          base[8]= VV[104];
4795          (void) (*Lnk309)();          base[9]= V816;
4796          vs_top=sup;          base[10]= VV[105];
4797          base[5]= vs_base[0];          base[11]= VV[146];
4798          vs_top=(vs_base=base+5)+1;          base[12]= VV[107];
4799          Lerror();          base[13]= VV[147];
4800          vs_top=sup;          vs_top=(vs_base=base+5)+9;
4801          goto T1593;          (void) (*Lnk281)();
4802  T1593:;          vs_top=sup;
4803          V877= CMPcdr((V877));          goto T1636;
4804          V878= CMPcar((V877));  T1636:;
4805          goto T1588;}          V815= CMPcdr((V815));
4806          goto T1584;          V816= CMPcar((V815));
4807  T1584:;          goto T1631;}
4808          {object V886;          goto T1627;
4809          register object V887;  T1627:;
4810          V886= (base0[2]->c.c_car);          {object V825;
4811          V887= CMPcar((V886));          register object V826;
4812          goto T1637;          V825= (base0[2]->c.c_car);
4813  T1637:;          V826= CMPcar((V825));
4814          if(!(((V886))==Cnil)){          goto T1685;
4815          goto T1638;}  T1685:;
4816          goto T1633;          if(!(((V825))==Cnil)){
4817          goto T1638;          goto T1686;}
4818  T1638:;          goto T1681;
4819          base[5]= (V887);          goto T1686;
4820          base[6]= VV[131];  T1686:;
4821            base[5]= (V826);
4822            base[6]= VV[139];
4823          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4824          (void) (*Lnk308)();          (void) (*Lnk335)();
4825          vs_top=sup;          vs_top=sup;
4826          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4827          goto T1645;}          goto T1693;}
4828          (void)((          (void)((
4829          V888 = STREF(object,(V887),0),          V827 = STREF(object,(V826),0),
4830          (type_of(V888) == t_sfun ?(*((V888)->sfn.sfn_self)):          (type_of(V827) == t_sfun ?(*((V827)->sfn.sfn_self)):
4831          (fcall.argd=4,type_of(V888)==t_vfun) ?          (fcall.argd=4,type_of(V827)==t_vfun) ?
4832          (*((V888)->sfn.sfn_self)):          (*((V827)->sfn.sfn_self)):
4833          (fcall.fun=(V888),fcalln))(STREF(object,(V887),4),STREF(object,(V887),8),(V874),(V875))));          (fcall.fun=(V827),fcalln))(STREF(object,(V826),4),STREF(object,(V826),8),(V812),(V813))));
4834          goto T1642;          goto T1690;
4835          goto T1645;          goto T1693;
4836  T1645:;  T1693:;
4837          base[5]= V887;          base[5]= V826;
4838          base[6]= VV[132];          base[6]= VV[140];
4839          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4840          (void) (*Lnk308)();          (void) (*Lnk335)();
4841          vs_top=sup;          vs_top=sup;
4842          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4843          goto T1650;}          goto T1698;}
4844          {object V890;          {object V830;
4845          object V891;          object V831;
4846          object V892;          object V832;
4847          V890= STREF(object,(V887),0);          V830= STREF(object,(V826),0);
4848          V891= make_cons((V874),(V875));          V831= make_cons((V812),(V813));
4849          V892= STREF(object,(V887),4);          V832= STREF(object,(V826),4);
4850          if(((V892))==Cnil){          if(((V832))==Cnil){
4851          goto T1658;}          goto T1706;}
4852          if((CMPcdr((V892)))!=Cnil){          if((CMPcdr((V832)))!=Cnil){
4853          goto T1658;}          goto T1706;}
4854          (void)((          (void)((
4855          (type_of((V890)) == t_sfun ?(*(((V890))->sfn.sfn_self)):          (type_of((V830)) == t_sfun ?(*(((V830))->sfn.sfn_self)):
4856          (fcall.argd=2,type_of((V890))==t_vfun) ?          (fcall.argd=2,type_of((V830))==t_vfun) ?
4857          (*(((V890))->sfn.sfn_self)):          (*(((V830))->sfn.sfn_self)):
4858          (fcall.fun=((V890)),fcalln))((V891),CMPcar((V892)))));          (fcall.fun=((V830)),fcalln))((V831),CMPcar((V832)))));
4859          goto T1642;          goto T1690;
4860          goto T1658;          goto T1706;
4861  T1658:;  T1706:;
4862          base[5]= (V890);          base[5]= (V830);
4863          base[6]= (V891);          base[6]= (V831);
4864          {object V893;          {object V833;
4865          V893= (V892);          V833= (V832);
4866           vs_top=base+7;           vs_top=base+7;
4867           while(V893!=Cnil)           while(V833!=Cnil)
4868           {vs_push((V893)->c.c_car);V893=(V893)->c.c_cdr;}           {vs_push((V833)->c.c_car);V833=(V833)->c.c_cdr;}
4869          vs_base=base+6;}          vs_base=base+6;}
4870          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4871                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4872                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4873                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4874          vs_top=sup;          vs_top=sup;
4875          goto T1642;}          goto T1690;}
4876          goto T1650;          goto T1698;
4877  T1650:;  T1698:;
4878          base[5]= V887;          base[5]= V826;
4879          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4880          Lfunctionp();          Lfunctionp();
4881          vs_top=sup;          vs_top=sup;
4882          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4883          goto T1666;}          goto T1714;}
4884          base[5]= (V887);          base[5]= (V826);
4885          base[6]= (V874);          base[6]= (V812);
4886          {object V894;          {object V834;
4887          V894= (V875);          V834= (V813);
4888           vs_top=base+7;           vs_top=base+7;
4889           while(V894!=Cnil)           while(V834!=Cnil)
4890           {vs_push((V894)->c.c_car);V894=(V894)->c.c_cdr;}           {vs_push((V834)->c.c_car);V834=(V834)->c.c_cdr;}
4891          vs_base=base+6;}          vs_base=base+6;}
4892          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4893                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4894                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4895                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4896          vs_top=sup;          vs_top=sup;
4897          goto T1642;          goto T1690;
4898          goto T1666;          goto T1714;
4899  T1666:;  T1714:;
4900          base[6]= VV[133];          base[5]= VV[101];
4901          base[7]= V887;          base[6]= VV[102];
4902          base[8]= VV[137];          base[7]= VV[141];
4903          vs_top=(vs_base=base+6)+3;          base[8]= VV[104];
4904          (void) (*Lnk309)();          base[9]= V826;
4905          vs_top=sup;          base[10]= VV[105];
4906          base[5]= vs_base[0];          base[11]= VV[148];
4907          vs_top=(vs_base=base+5)+1;          base[12]= VV[107];
4908          Lerror();          base[13]= VV[149];
4909          vs_top=sup;          vs_top=(vs_base=base+5)+9;
4910          goto T1642;          (void) (*Lnk281)();
4911  T1642:;          vs_top=sup;
4912          V886= CMPcdr((V886));          goto T1690;
4913          V887= CMPcar((V886));  T1690:;
4914          goto T1637;}          V825= CMPcdr((V825));
4915          goto T1633;          V826= CMPcar((V825));
4916  T1633:;          goto T1685;}
4917          base[4]= (V874);          goto T1681;
4918    T1681:;
4919            base[4]= (V812);
4920          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4921          return;}}          return;}}
4922          }          }
# Line 4944  register object *base0; Line 4928  register object *base0;
4928  {       register object *base=vs_base;  {       register object *base=vs_base;
4929          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
4930          vs_check;          vs_check;
4931          {object V895;          {object V835;
4932          register object V896;          register object V836;
4933          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4934          V895=(base[0]);          V835=(base[0]);
4935          vs_base=vs_base+1;          vs_base=vs_base+1;
4936          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4937          {object *p=vs_top;          {object *p=vs_top;
4938           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4939          V896=(base[1]);          V836=(base[1]);
4940          vs_top=sup;          vs_top=sup;
4941          {object V897;          {object V837;
4942          if(((base0[6]->c.c_car))==Cnil){          if(((base0[6]->c.c_car))==Cnil){
4943          goto T1683;}          goto T1736;}
4944          V897= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car)));          V837= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car)));
4945          goto T1681;          goto T1734;
4946          goto T1683;          goto T1736;
4947  T1683:;  T1736:;
4948          V897= (V895);          V837= (V835);
4949          goto T1681;          goto T1734;
4950  T1681:;  T1734:;
4951          if(!(((V897))==((V895)))){          if(!(((V837))==((V835)))){
4952          goto T1685;}          goto T1738;}
4953          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4954          goto T1686;}          goto T1739;}
4955          goto T1685;          goto T1738;
4956  T1685:;  T1738:;
4957          base[2]= (V897);          base[2]= (V837);
4958          base[3]= (V896);          base[3]= (V836);
4959          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4960          (void) (*Lnk124)();          (void) (*Lnk132)();
4961          return;          return;
4962          goto T1686;          goto T1739;
4963  T1686:;  T1739:;
4964          {register object V898;          {register object V838;
4965          {object V899;          {object V839;
4966          V899= (*(LnkLI310))();          V839= (*(LnkLI336))();
4967          V900 = (V899);          V840= Ct;
4968          V901 = (base0[5]->c.c_car);          STSET(object,(V839),0, (base0[5]->c.c_car));
4969          V902= Ct;          (void)((base0[5]->c.c_car));
         STSET(object,V900,0, V901);  
         (void)(V901);  
         V903 = (V899);  
4970          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4971          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4972          Lcopy_seq();          Lcopy_seq();
4973          vs_top=sup;          vs_top=sup;
4974          V904= vs_base[0];          V841= vs_base[0];
4975          V905= Ct;          V842= Ct;
4976          STSET(object,V903,4, V904);          STSET(object,(V839),4, V841);
4977          (void)(V904);          (void)(V841);
4978          V898= (V899);}          V838= (V839);}
4979          {object V906;          {object V843;
4980          V906= (base0[1]->c.c_car);          V843= (base0[1]->c.c_car);
4981          if(!(type_of((V906))==t_cons)){          if(!(type_of((V843))==t_cons)){
4982          goto T1700;}          goto T1753;}
4983          if(!((CMPcar((V906)))==(VV[130]))){          if(!((CMPcar((V843)))==(VV[138]))){
4984          goto T1700;}          goto T1753;}
4985          (void)((*(LnkLI111))(CMPcadr((V906)),CMPcaddr((V906)),(V898),(V896)));          (void)((*(LnkLI119))(CMPcadr((V843)),CMPcaddr((V843)),(V838),(V836)));
4986          goto T1698;          goto T1751;
4987          goto T1700;          goto T1753;
4988  T1700:;  T1753:;
4989          (void)((          (void)((
4990          (type_of((V906)) == t_sfun ?(*(((V906))->sfn.sfn_self)):          (type_of((V843)) == t_sfun ?(*(((V843))->sfn.sfn_self)):
4991          (fcall.argd=2,type_of((V906))==t_vfun) ?          (fcall.argd=2,type_of((V843))==t_vfun) ?
4992          (*(((V906))->sfn.sfn_self)):          (*(((V843))->sfn.sfn_self)):
4993          (fcall.fun=((V906)),fcalln))((V898),(V896))));}          (fcall.fun=((V843)),fcalln))((V838),(V836))));}
4994          goto T1698;          goto T1751;
4995  T1698:;  T1751:;
4996          {object V907;          {object V844;
4997          register object V908;          register object V845;
4998          V907= (base0[3]->c.c_car);          V844= (base0[3]->c.c_car);
4999          V908= CMPcar((V907));          V845= CMPcar((V844));
5000          goto T1708;          goto T1761;
5001  T1708:;  T1761:;
5002          if(!(((V907))==Cnil)){          if(!(((V844))==Cnil)){
5003          goto T1709;}          goto T1762;}
5004          goto T1704;          goto T1757;
5005          goto T1709;          goto T1762;
5006  T1709:;  T1762:;
5007          base[3]= (V908);          base[3]= (V845);
5008          base[4]= VV[131];          base[4]= VV[139];
5009          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5010          (void) (*Lnk308)();          (void) (*Lnk335)();
5011          vs_top=sup;          vs_top=sup;
5012          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5013          goto T1716;}          goto T1769;}
5014          (void)((          (void)((
5015          V909 = STREF(object,(V908),0),          V846 = STREF(object,(V845),0),
5016          (type_of(V909) == t_sfun ?(*((V909)->sfn.sfn_self)):          (type_of(V846) == t_sfun ?(*((V846)->sfn.sfn_self)):
5017          (fcall.argd=5,type_of(V909)==t_vfun) ?          (fcall.argd=5,type_of(V846)==t_vfun) ?
5018          (*((V909)->sfn.sfn_self)):          (*((V846)->sfn.sfn_self)):
5019          (fcall.fun=(V909),fcalln))(STREF(object,(V908),4),STREF(object,(V908),8),(V898),Ct,(V896))));          (fcall.fun=(V846),fcalln))(STREF(object,(V845),4),STREF(object,(V845),8),(V838),Ct,(V836))));
5020          goto T1713;          goto T1766;
5021          goto T1716;          goto T1769;
5022  T1716:;  T1769:;
5023          base[3]= V908;          base[3]= V845;
5024          base[4]= VV[132];          base[4]= VV[140];
5025          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5026          (void) (*Lnk308)();          (void) (*Lnk335)();
5027          vs_top=sup;          vs_top=sup;
5028          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5029          goto T1721;}          goto T1774;}
5030          {object V911;          {object V849;
5031          object V912;          object V850;
5032          object V913;          object V851;
5033          V911= STREF(object,(V908),0);          V849= STREF(object,(V845),0);
5034          V912= listA(3,(V898),Ct,(V896));          V850= listA(3,(V838),Ct,(V836));
5035          V913= STREF(object,(V908),4);          V851= STREF(object,(V845),4);
5036          if(((V913))==Cnil){          if(((V851))==Cnil){
5037          goto T1729;}          goto T1782;}
5038          if((CMPcdr((V913)))!=Cnil){          if((CMPcdr((V851)))!=Cnil){
5039          goto T1729;}          goto T1782;}
5040          (void)((          (void)((
5041          (type_of((V911)) == t_sfun ?(*(((V911))->sfn.sfn_self)):          (type_of((V849)) == t_sfun ?(*(((V849))->sfn.sfn_self)):
5042          (fcall.argd=2,type_of((V911))==t_vfun) ?          (fcall.argd=2,type_of((V849))==t_vfun) ?
5043          (*(((V911))->sfn.sfn_self)):          (*(((V849))->sfn.sfn_self)):
5044          (fcall.fun=((V911)),fcalln))((V912),CMPcar((V913)))));          (fcall.fun=((V849)),fcalln))((V850),CMPcar((V851)))));
5045          goto T1713;          goto T1766;
5046          goto T1729;          goto T1782;
5047  T1729:;  T1782:;
5048          base[3]= (V911);          base[3]= (V849);
5049          base[4]= (V912);          base[4]= (V850);
5050          {object V914;          {object V852;
5051          V914= (V913);          V852= (V851);
5052           vs_top=base+5;           vs_top=base+5;
5053           while(V914!=Cnil)           while(V852!=Cnil)
5054           {vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;}           {vs_push((V852)->c.c_car);V852=(V852)->c.c_cdr;}
5055          vs_base=base+4;}          vs_base=base+4;}
5056          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5057                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5058                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5059                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5060          vs_top=sup;          vs_top=sup;
5061          goto T1713;}          goto T1766;}
5062          goto T1721;          goto T1774;
5063  T1721:;  T1774:;
5064          base[3]= V908;          base[3]= V845;
5065          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5066          Lfunctionp();          Lfunctionp();
5067          vs_top=sup;          vs_top=sup;
5068          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5069          goto T1737;}          goto T1790;}
5070          base[3]= (V908);          base[3]= (V845);
5071          base[4]= (V898);          base[4]= (V838);
5072          base[5]= Ct;          base[5]= Ct;
5073          {object V915;          {object V853;
5074          V915= (V896);          V853= (V836);
5075           vs_top=base+6;           vs_top=base+6;
5076           while(V915!=Cnil)           while(V853!=Cnil)
5077           {vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;}           {vs_push((V853)->c.c_car);V853=(V853)->c.c_cdr;}
5078          vs_base=base+4;}          vs_base=base+4;}
5079          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5080                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5081                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5082                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5083          vs_top=sup;          vs_top=sup;
5084          goto T1713;          goto T1766;
5085          goto T1737;          goto T1790;
5086  T1737:;  T1790:;
5087          base[4]= VV[133];          base[3]= VV[101];
5088          base[5]= V908;          base[4]= VV[102];
5089          base[6]= VV[134];          base[5]= VV[141];
5090          vs_top=(vs_base=base+4)+3;          base[6]= VV[104];
5091          (void) (*Lnk309)();          base[7]= V845;
5092          vs_top=sup;          base[8]= VV[105];
5093          base[3]= vs_base[0];          base[9]= VV[142];
5094          vs_top=(vs_base=base+3)+1;          base[10]= VV[107];
5095          Lerror();          base[11]= VV[143];
5096          vs_top=sup;          vs_top=(vs_base=base+3)+9;
5097          goto T1713;          (void) (*Lnk281)();
5098  T1713:;          vs_top=sup;
5099          V907= CMPcdr((V907));          goto T1766;
5100          V908= CMPcar((V907));  T1766:;
5101          goto T1708;}          V844= CMPcdr((V844));
5102          goto T1704;          V845= CMPcar((V844));
5103  T1704:;          goto T1761;}
         {object V916;  
         register object V917;  
         V916= (base0[2]->c.c_car);  
         V917= CMPcar((V916));  
5104          goto T1757;          goto T1757;
5105  T1757:;  T1757:;
5106          if(!(((V916))==Cnil)){          {object V854;
5107          goto T1758;}          register object V855;
5108          goto T1753;          V854= (base0[2]->c.c_car);
5109          goto T1758;          V855= CMPcar((V854));
5110  T1758:;          goto T1815;
5111          base[3]= (V917);  T1815:;
5112          base[4]= VV[131];          if(!(((V854))==Cnil)){
5113            goto T1816;}
5114            goto T1811;
5115            goto T1816;
5116    T1816:;
5117            base[3]= (V855);
5118            base[4]= VV[139];
5119          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5120          (void) (*Lnk308)();          (void) (*Lnk335)();
5121          vs_top=sup;          vs_top=sup;
5122          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5123          goto T1765;}          goto T1823;}
5124          (void)((          (void)((
5125          V918 = STREF(object,(V917),0),          V856 = STREF(object,(V855),0),
5126          (type_of(V918) == t_sfun ?(*((V918)->sfn.sfn_self)):          (type_of(V856) == t_sfun ?(*((V856)->sfn.sfn_self)):
5127          (fcall.argd=4,type_of(V918)==t_vfun) ?          (fcall.argd=4,type_of(V856)==t_vfun) ?
5128          (*((V918)->sfn.sfn_self)):          (*((V856)->sfn.sfn_self)):
5129          (fcall.fun=(V918),fcalln))(STREF(object,(V917),4),STREF(object,(V917),8),(V898),(V896))));          (fcall.fun=(V856),fcalln))(STREF(object,(V855),4),STREF(object,(V855),8),(V838),(V836))));
5130          goto T1762;          goto T1820;
5131          goto T1765;          goto T1823;
5132  T1765:;  T1823:;
5133          base[3]= V917;          base[3]= V855;
5134          base[4]= VV[132];          base[4]= VV[140];
5135          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5136          (void) (*Lnk308)();          (void) (*Lnk335)();
5137          vs_top=sup;          vs_top=sup;
5138          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5139          goto T1770;}          goto T1828;}
5140          {object V920;          {object V859;
5141          object V921;          object V860;
5142          object V922;          object V861;
5143          V920= STREF(object,(V917),0);          V859= STREF(object,(V855),0);
5144          V921= make_cons((V898),(V896));          V860= make_cons((V838),(V836));
5145          V922= STREF(object,(V917),4);          V861= STREF(object,(V855),4);
5146          if(((V922))==Cnil){          if(((V861))==Cnil){
5147          goto T1778;}          goto T1836;}
5148          if((CMPcdr((V922)))!=Cnil){          if((CMPcdr((V861)))!=Cnil){
5149          goto T1778;}          goto T1836;}
5150          (void)((          (void)((
5151          (type_of((V920)) == t_sfun ?(*(((V920))->sfn.sfn_self)):          (type_of((V859)) == t_sfun ?(*(((V859))->sfn.sfn_self)):
5152          (fcall.argd=2,type_of((V920))==t_vfun) ?          (fcall.argd=2,type_of((V859))==t_vfun) ?
5153          (*(((V920))->sfn.sfn_self)):          (*(((V859))->sfn.sfn_self)):
5154          (fcall.fun=((V920)),fcalln))((V921),CMPcar((V922)))));          (fcall.fun=((V859)),fcalln))((V860),CMPcar((V861)))));
5155          goto T1762;          goto T1820;
5156          goto T1778;          goto T1836;
5157  T1778:;  T1836:;
5158          base[3]= (V920);          base[3]= (V859);
5159          base[4]= (V921);          base[4]= (V860);
5160          {object V923;          {object V862;
5161          V923= (V922);          V862= (V861);
5162           vs_top=base+5;           vs_top=base+5;
5163           while(V923!=Cnil)           while(V862!=Cnil)
5164           {vs_push((V923)->c.c_car);V923=(V923)->c.c_cdr;}           {vs_push((V862)->c.c_car);V862=(V862)->c.c_cdr;}
5165          vs_base=base+4;}          vs_base=base+4;}
5166          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5167                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5168                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5169                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5170          vs_top=sup;          vs_top=sup;
5171          goto T1762;}          goto T1820;}
5172          goto T1770;          goto T1828;
5173  T1770:;  T1828:;
5174          base[3]= V917;          base[3]= V855;
5175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5176          Lfunctionp();          Lfunctionp();
5177          vs_top=sup;          vs_top=sup;
5178          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5179          goto T1786;}          goto T1844;}
5180          base[3]= (V917);          base[3]= (V855);
5181          base[4]= (V898);          base[4]= (V838);
5182          {object V924;          {object V863;
5183          V924= (V896);          V863= (V836);
5184           vs_top=base+5;           vs_top=base+5;
5185           while(V924!=Cnil)           while(V863!=Cnil)
5186           {vs_push((V924)->c.c_car);V924=(V924)->c.c_cdr;}           {vs_push((V863)->c.c_car);V863=(V863)->c.c_cdr;}
5187          vs_base=base+4;}          vs_base=base+4;}
5188          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5189                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5190                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5191                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5192          vs_top=sup;          vs_top=sup;
5193          goto T1762;          goto T1820;
5194          goto T1786;          goto T1844;
5195  T1786:;  T1844:;
5196          base[4]= VV[133];          base[3]= VV[101];
5197          base[5]= V917;          base[4]= VV[102];
5198          base[6]= VV[135];          base[5]= VV[141];
5199          vs_top=(vs_base=base+4)+3;          base[6]= VV[104];
5200          (void) (*Lnk309)();          base[7]= V855;
5201          vs_top=sup;          base[8]= VV[105];
5202          base[3]= vs_base[0];          base[9]= VV[144];
5203          vs_top=(vs_base=base+3)+1;          base[10]= VV[107];
5204          Lerror();          base[11]= VV[145];
5205            vs_top=(vs_base=base+3)+9;
5206            (void) (*Lnk281)();
5207          vs_top=sup;          vs_top=sup;
5208          goto T1762;          goto T1820;
5209  T1762:;  T1820:;
5210          V916= CMPcdr((V916));          V854= CMPcdr((V854));
5211          V917= CMPcar((V916));          V855= CMPcar((V854));
5212          goto T1757;}          goto T1815;}
5213          goto T1753;          goto T1811;
5214  T1753:;  T1811:;
5215          base[2]= (V898);          base[2]= (V838);
5216          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5217          return;}}          return;}}
5218          }          }
# Line 5239  register object *base0; Line 5224  register object *base0;
5224  {       register object *base=vs_base;  {       register object *base=vs_base;
5225          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
5226          vs_check;          vs_check;
5227          {object V925;          {object V864;
5228          check_arg(1);          check_arg(1);
5229          V925=(base[0]);          V864=(base[0]);
5230          vs_top=sup;          vs_top=sup;
5231          {register object V926;          {register object V865;
5232          base[1]= (V925);          base[1]= (V864);
5233          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5234          (void) (*Lnk267)(Lclptr267);          (void) (*Lnk294)(Lclptr294);
5235          vs_top=sup;          vs_top=sup;
5236          V926= vs_base[0];          V865= vs_base[0];
5237          if(((V926))!=Cnil){          if(((V865))!=Cnil){
5238          goto T1804;}          goto T1867;}
5239          base[1]= (V925);          base[1]= (V864);
5240          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5241          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk286)(Lclptr286);
5242          vs_top=sup;          vs_top=sup;
5243          V927= vs_base[0];          V866= vs_base[0];
5244          base[1]= ((CMPcar(V927))==((VV[1]->s.s_dbind))?Ct:Cnil);          base[1]= ((CMPcar(V866))==((VV[1]->s.s_dbind))?Ct:Cnil);
5245          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5246          return;          return;
5247          goto T1804;          goto T1867;
5248  T1804:;  T1867:;
5249          if((CMPcdr((V926)))==Cnil){          if((CMPcdr((V865)))==Cnil){
5250          goto T1808;}          goto T1871;}
5251          base[1]= Cnil;          base[1]= Cnil;
5252          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5253          return;          return;
5254          goto T1808;          goto T1871;
5255  T1808:;  T1871:;
5256          if(!((CMPcar((V926)))==(VV[106]))){          if(!((CMPcar((V865)))==(VV[114]))){
5257          goto T1810;}          goto T1873;}
5258          base[1]= Ct;          base[1]= Ct;
5259          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5260          return;          return;
5261          goto T1810;          goto T1873;
5262  T1810:;  T1873:;
5263          base[1]= ((CMPcar((V926)))==(VV[107])?Ct:Cnil);          base[1]= ((CMPcar((V865)))==(VV[115])?Ct:Cnil);
5264          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5265          return;}          return;}
5266          }          }
# Line 5287  register object *base0; Line 5272  register object *base0;
5272  {       register object *base=vs_base;  {       register object *base=vs_base;
5273          register object *sup=base+VM66; VC66          register object *sup=base+VM66; VC66
5274          vs_check;          vs_check;
5275          {object V928;          {object V867;
5276          object V929;          object V868;
5277          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
5278          V928=(base[0]);          V867=(base[0]);
5279          vs_base=vs_base+1;          vs_base=vs_base+1;
5280          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5281          {object *p=vs_top;          {object *p=vs_top;
5282           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5283          V929=(base[1]);          V868=(base[1]);
5284          vs_top=sup;          vs_top=sup;
5285          base[2]=VV[311]->s.s_gfdef;          base[2]=VV[337]->s.s_gfdef;
5286          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
5287          base[4]= (V928);          base[4]= (V867);
5288          {object V930;          {object V869;
5289          V930= (V929);          V869= (V868);
5290           vs_top=base+5;           vs_top=base+5;
5291           while(V930!=Cnil)           while(V869!=Cnil)
5292           {vs_push((V930)->c.c_car);V930=(V930)->c.c_cdr;}           {vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;}
5293          vs_base=base+3;}          vs_base=base+3;}
5294          (void) (*Lnk311)(Lclptr311);          (void) (*Lnk337)(Lclptr337);
5295          return;          return;
5296          }          }
5297  }  }
# Line 5317  register object *base0; Line 5302  register object *base0;
5302  {       register object *base=vs_base;  {       register object *base=vs_base;
5303          register object *sup=base+VM67; VC67          register object *sup=base+VM67; VC67
5304          vs_check;          vs_check;
5305          {object V931;          {object V870;
5306          check_arg(1);          check_arg(1);
5307          V931=(base[0]);          V870=(base[0]);
5308          vs_top=sup;          vs_top=sup;
5309          goto TTL;          goto TTL;
5310  TTL:;  TTL:;
5311          if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){          if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){
5312          goto T1815;}          goto T1878;}
5313          base[1]= Ct;          base[1]= Ct;
5314          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5315          return;          return;
5316          goto T1815;          goto T1878;
5317  T1815:;  T1878:;
5318          {register object V932;          {register object V871;
5319          object V933;          object V872;
5320          base[1]= base0[1];          base[1]= base0[1];
5321          base[2]= (V931);          base[2]= (V870);
5322          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5323          (void) (*Lnk312)();          (void) (*Lnk338)();
5324          if(vs_base>=vs_top){vs_top=sup;goto T1820;}          if(vs_base>=vs_top){vs_top=sup;goto T1883;}
5325          V932= vs_base[0];          V871= vs_base[0];
5326          vs_base++;          vs_base++;
5327          if(vs_base>=vs_top){vs_top=sup;goto T1821;}          if(vs_base>=vs_top){vs_top=sup;goto T1884;}
5328          V933= vs_base[0];          V872= vs_base[0];
5329          vs_top=sup;          vs_top=sup;
5330          goto T1822;          goto T1885;
5331          goto T1820;          goto T1883;
5332  T1820:;  T1883:;
5333          V932= Cnil;          V871= Cnil;
5334          goto T1821;          goto T1884;
5335  T1821:;  T1884:;
5336          V933= Cnil;          V872= Cnil;
5337          goto T1822;          goto T1885;
5338  T1822:;  T1885:;
5339          if(!(((((V933))==Cnil?Ct:Cnil))==Cnil)){          if(!(((((V872))==Cnil?Ct:Cnil))==Cnil)){
5340          goto T1823;}          goto T1886;}
5341          base[1]= Ct;          base[1]= Ct;
5342          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5343          return;          return;
5344          goto T1823;          goto T1886;
5345  T1823:;  T1886:;
5346          {register object V934;          {register object V873;
5347          register object V935;          register object V874;
5348          V934= base0[2];          V873= base0[2];
5349          V935= CMPcar((V934));          V874= CMPcar((V873));
5350          goto T1828;          goto T1891;
5351  T1828:;  T1891:;
5352          if(!(((V934))==Cnil)){          if(!(((V873))==Cnil)){
5353          goto T1829;}          goto T1892;}
5354          base[2]= Ct;          base[2]= Ct;
5355          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5356          return;          return;
5357          goto T1829;          goto T1892;
5358  T1829:;  T1892:;
5359          {register object x= (V935),V936= (V932);          {register object x= (V874),V875= (V871);
5360          while(V936!=Cnil)          while(V875!=Cnil)
5361          if(eql(x,V936->c.c_car)){          if(eql(x,V875->c.c_car)){
5362          goto T1833;          goto T1896;
5363          }else V936=V936->c.c_cdr;}          }else V875=V875->c.c_cdr;}
5364          base[2]= make_cons(VV[100],(V935));          if(((V874))==(VV[2])){
5365            goto T1896;}
5366            base[2]= make_cons(VV[100],(V874));
5367          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5368          return;          return;
5369          goto T1833;          goto T1896;
5370  T1833:;  T1896:;
5371          V934= CMPcdr((V934));          V873= CMPcdr((V873));
5372          V935= CMPcar((V934));          V874= CMPcar((V873));
5373          goto T1828;}}          goto T1891;}}
5374          }          }
5375  }  }
5376  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 5393  register object *base0; Line 5380  register object *base0;
5380  {       register object *base=vs_base;  {       register object *base=vs_base;
5381          register object *sup=base+VM68; VC68          register object *sup=base+VM68; VC68
5382          vs_check;          vs_check;
5383          {register object V937;          {register object V876;
5384          object V938;          object V877;
5385          object V939;          object V878;
5386          check_arg(3);          check_arg(3);
5387          V937=(base[0]);          V876=(base[0]);
5388          V938=(base[1]);          V877=(base[1]);
5389          V939=(base[2]);          V878=(base[2]);
5390          vs_top=sup;{object V940;          vs_top=sup;{object V879;
5391          if(((V938))==(VV[8])){          if(((V877))==(VV[8])){
5392          goto T1843;}          goto T1908;}
5393          V940= Cnil;          V879= Cnil;
5394          goto T1842;          goto T1907;
5395          goto T1843;          goto T1908;
5396  T1843:;  T1908:;
5397          if(type_of((V937))==t_cons){          if(type_of((V876))==t_cons){
5398          goto T1845;}          goto T1910;}
5399          V940= Cnil;          V879= Cnil;
5400          goto T1842;          goto T1907;
5401          goto T1845;          goto T1910;
5402  T1845:;  T1910:;
5403          if((CMPcar((V937)))==(VV[9])){          if((CMPcar((V876)))==(VV[9])){
5404          goto T1847;}          goto T1912;}
5405          V940= Cnil;          V879= Cnil;
5406          goto T1842;          goto T1907;
5407          goto T1847;          goto T1912;
5408  T1847:;  T1912:;
5409          V940= (*(LnkLI313))((V937));          V879= (*(LnkLI339))((V876));
5410          goto T1842;          goto T1907;
5411  T1842:;  T1907:;
5412          if(V940==Cnil)goto T1841;          if(V879==Cnil)goto T1906;
5413          base[3]= V940;          base[3]= V879;
5414          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5415          return;          return;
5416          goto T1841;          goto T1906;
5417  T1841:;}  T1906:;}
5418          base[3]= (V937);          base[3]= (V876);
5419          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5420          return;          return;
5421          }          }
5422  }  }
5423  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[339],(void **)(void *)&LnkLI339,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */
5424  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* CHECK-INITARGS-VALUES */  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* CHECK-INITARGS-VALUES */
5425  static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* NO-APPLICABLE-METHOD */  static void LnkT337(ptr) object *ptr;{ call_or_link_closure(VV[337],(void **)(void *)&Lnk337,(void **)(void *)&Lclptr337);} /* NO-APPLICABLE-METHOD */
5426  static object  LnkTLI310(){return call_proc0(VV[310],(void **)(void *)&LnkLI310);} /* %%ALLOCATE-INSTANCE--CLASS */  static object  LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* %%ALLOCATE-INSTANCE--CLASS */
5427  static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* TYPECASE-ERROR-STRING */  static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* STRUCTURE-SUBTYPE-P */
 static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* STRUCTURE-SUBTYPE-P */  
5428  static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */  static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */
5429  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */  static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */
5430  static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* MAKE-INSTANCE-FUNCTION-TRAP */  static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* MAKE-INSTANCE-FUNCTION-TRAP */
5431  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[307],(void **)(void *)&LnkLI307,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */
5432  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */  static object  LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */
5433  static object  LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */  static object  LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */
5434  static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* COERCE */  static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* COERCE */
5435  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */
5436  static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* VECTOR-PUSH-EXTEND */  static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* VECTOR-PUSH-EXTEND */
5437  static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* SLOT-BOUNDP-USING-CLASS */  static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* SLOT-BOUNDP-USING-CLASS */
5438  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
5439  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
5440  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* CCLOSURE-ENV-NTHCDR */
5441  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */
5442  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
5443  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* COMPILE-LAMBDA */  static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* COMPILE-LAMBDA */
5444  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* UNION */  static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* UNION */
5445  static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* FORM-LIST-TO-LISP */  static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* FORM-LIST-TO-LISP */
5446  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */
5447  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */
5448  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */
5449  static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */  static void LnkT317(ptr) object *ptr;{ call_or_link_closure(VV[317],(void **)(void *)&Lnk317,(void **)(void *)&Lclptr317);} /* SLOT-DEFINITION-LOCATION */
5450  static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* SLOT-DEFINITION-INITFUNCTION */  static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* SLOT-DEFINITION-INITFUNCTION */
5451  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-DEFINITION-INITFORM */  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* SLOT-DEFINITION-INITFORM */
5452  static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* STABLE-SORT */  static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* STABLE-SORT */
5453  static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* POSITION */  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* POSITION */
5454  static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* SLOT-DEFINITION-NAME */  static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* SLOT-DEFINITION-NAME */
5455  static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* MAKE-ARRAY */  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* MAKE-ARRAY */
5456  static object  LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */
5457  static void LnkT281(ptr) object *ptr;{ call_or_link_closure(VV[281],(void **)(void *)&Lnk281,(void **)(void *)&Lclptr281);} /* SLOT-DEFINITION-INITARGS */  static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* SLOT-DEFINITION-INITARGS */
5458  static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-SLOTS */  static void LnkT307(ptr) object *ptr;{ call_or_link_closure(VV[307],(void **)(void *)&Lnk307,(void **)(void *)&Lclptr307);} /* CLASS-SLOTS */
5459  static void LnkT279(ptr) object *ptr;{ call_or_link_closure(VV[279],(void **)(void *)&Lnk279,(void **)(void *)&Lclptr279);} /* CLASS-DEFAULT-INITARGS */  static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* CLASS-DEFAULT-INITARGS */
5460  static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* GET-SECONDARY-DISPATCH-FUNCTION */  static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* GET-SECONDARY-DISPATCH-FUNCTION */
5461  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */  static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */
5462  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */  static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */
5463  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */  static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */
5464  static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* REMOVE */  static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* REMOVE */
5465  static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* FUNCALLABLE-STANDARD-CLASS-P */  static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* FUNCALLABLE-STANDARD-CLASS-P */
5466  static void LnkT270(ptr) object *ptr;{ call_or_link_closure(VV[270],(void **)(void *)&Lnk270,(void **)(void *)&Lclptr270);} /* STANDARD-CLASS-P */  static void LnkT297(ptr) object *ptr;{ call_or_link_closure(VV[297],(void **)(void *)&Lnk297,(void **)(void *)&Lclptr297);} /* STANDARD-CLASS-P */
5467  static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* STRUCTURE-CLASS-P */  static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STRUCTURE-CLASS-P */
5468  static void LnkT267(ptr) object *ptr;{ call_or_link_closure(VV[267],(void **)(void *)&Lnk267,(void **)(void *)&Lclptr267);} /* METHOD-QUALIFIERS */  static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* METHOD-QUALIFIERS */
5469  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[266],(void **)(void *)&LnkLI266,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */
5470  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */
5471  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* SOME */  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* SOME */
5472  static object  LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[262],(void **)(void *)&LnkLI262,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[289],(void **)(void *)&LnkLI289,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */
5473  static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* DEFAULT-INITARGS */  static void LnkT112(ptr) object *ptr;{ call_or_link_closure(VV[112],(void **)(void *)&Lnk112,(void **)(void *)&Lclptr112);} /* DEFAULT-INITARGS */
5474  static object  LnkTLI261(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[261],(void **)(void *)&LnkLI261,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */
5475  static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* EVERY */  static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* EVERY */
5476  static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */  static void LnkT286(ptr) object *ptr;{ call_or_link_closure(VV[286],(void **)(void *)&Lnk286,(void **)(void *)&Lclptr286);} /* METHOD-SPECIALIZERS */
5477  static object  LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */  static object  LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */
5478  static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* COMPUTE-APPLICABLE-METHODS */  static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* COMPUTE-APPLICABLE-METHODS */
5479  static object  LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[254],(void **)(void *)&LnkLI254,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
5480  static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* FINALIZE-INHERITANCE */  static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* FINALIZE-INHERITANCE */
5481  static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-FINALIZED-P */  static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* CLASS-FINALIZED-P */
5482  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;} /* GET-MAKE-INSTANCE-FUNCTION */  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* ERROR */
5483  static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */
5484  static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* CLASS-PROTOTYPE */  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */
5485  static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */  static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* CLASS-PROTOTYPE */
5486  static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */
5487  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;} /* MAKE-INITIALIZE-INFO */  static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */
5488  static object  LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[273],(void **)(void *)&LnkLI273,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */
5489  static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* CLASS-INITIALIZE-INFO */  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */
5490  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;} /* RESET-CLASS-INITIALIZE-INFO-1 */  static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* CLASS-INITIALIZE-INFO */
5491    static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */
5492  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO-BOUND-SLOTS */  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO-BOUND-SLOTS */
5493  static void LnkT243(ptr) object *ptr;{ call_or_link_closure(VV[243],(void **)(void *)&Lnk243,(void **)(void *)&Lclptr243);} /* CLASS-WRAPPER */  static void LnkT269(ptr) object *ptr;{ call_or_link_closure(VV[269],(void **)(void *)&Lnk269,(void **)(void *)&Lclptr269);} /* CLASS-WRAPPER */
5494  static void LnkT9(ptr) object *ptr;{ call_or_link_closure(VV[9],(void **)(void *)&Lnk9,(void **)(void *)&Lclptr9);} /* MAKE-INSTANCE */  static void LnkT9(ptr) object *ptr;{ call_or_link_closure(VV[9],(void **)(void *)&Lnk9,(void **)(void *)&Lclptr9);} /* MAKE-INSTANCE */
5495  static void LnkT229(ptr) object *ptr;{ call_or_link_closure(VV[229],(void **)(void *)&Lnk229,(void **)(void *)&Lclptr229);} /* CLASS-NAME */  static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-NAME */
5496  static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* CLASSP */  static void LnkT254(ptr) object *ptr;{ call_or_link_closure(VV[254],(void **)(void *)&Lnk254,(void **)(void *)&Lclptr254);} /* CLASSP */
5497  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */
5498  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */
5499  static void LnkT227(ptr) object *ptr;{ call_or_link_closure(VV[227],(void **)(void *)&Lnk227,(void **)(void *)&Lclptr227);} /* FORWARD-REFERENCED-CLASS-P */  static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* FORWARD-REFERENCED-CLASS-P */
5500  static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* FIND */  static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* FIND */
5501  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[250],(void **)(void *)&LnkLI250,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
5502  static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* WALK-FORM */  static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* WALK-FORM */
5503  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SYMBOL */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SYMBOL */
5504  static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* CONSTANT-SYMBOL-P */  static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* CONSTANT-SYMBOL-P */
5505  static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* MAP-ALL-CLASSES */  static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAP-ALL-CLASSES */
5506  static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* CLASS-PRECEDENCE-LIST */  static void LnkT244(ptr) object *ptr;{ call_or_link_closure(VV[244],(void **)(void *)&Lnk244,(void **)(void *)&Lclptr244);} /* CLASS-PRECEDENCE-LIST */
5507  static object  LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[217],(void **)(void *)&LnkLI217,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  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;} /* FIND-CLASS */
5508    
5509  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5510  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