/[gcl]/gcl/cmpnew/cmptop.c
ViewVC logotype

Diff of /gcl/cmpnew/cmptop.c

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

revision 1.8 by camm, Fri Jan 24 18:38:28 2003 UTC revision 1.9 by camm, Sun Feb 9 22:35:14 2003 UTC
# Line 36  TTL:; Line 36  TTL:;
36          goto T8;}          goto T8;}
37          if(!(((V2))==(VV[3]))){          if(!(((V2))==(VV[3]))){
38          goto T11;}          goto T11;}
39          V5= (VFUN_NARGS=1,(*(LnkLI258))(VV[4]));          V5= (VFUN_NARGS=1,(*(LnkLI265))(VV[4]));
40          frs_pop();          frs_pop();
41          base[3]= V5;          base[3]= V5;
42          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 49  T11:; Line 49  T11:;
49          goto T14;}          goto T14;}
50          if((symbol_value(VV[6]))==Cnil){          if((symbol_value(VV[6]))==Cnil){
51          goto T16;}          goto T16;}
52          (void)((VFUN_NARGS=2,(*(LnkLI259))(VV[7],(V1))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1))));
53  goto T16;  goto T16;
54  T16:;  T16:;
55          (void)((*(LnkLI260))(Ct,(V1)));          (void)((*(LnkLI267))(Ct,(V1)));
56          V6= (*(LnkLI261))((V1));          V6= (*(LnkLI268))((V1));
57          frs_pop();          frs_pop();
58          base[3]= V6;          base[3]= V6;
59          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 67  T14:; Line 67  T14:;
67          goto T21;}          goto T21;}
68          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
69          goto T24;}          goto T24;}
70          (void)((*(LnkLI262))());          (void)((*(LnkLI269))());
71  goto T24;  goto T24;
72  T24:;  T24:;
73          base[3]= (V3);          base[3]= (V3);
# Line 83  T21:; Line 83  T21:;
83          goto T29;}          goto T29;}
84          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
85          goto T31;}          goto T31;}
86          (void)((*(LnkLI262))());          (void)((*(LnkLI269))());
87  goto T31;  goto T31;
88  T31:;  T31:;
89          base[3]= (*(LnkLI263))((V1));          base[3]= (*(LnkLI270))((V1));
90          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
91          (void) (*Lnk264)();          (void) (*Lnk271)();
92          frs_pop();          frs_pop();
93          bds_unwind1;          bds_unwind1;
94          bds_unwind1;          bds_unwind1;
# Line 97  goto T29; Line 97  goto T29;
97  T29:;  T29:;
98          if((get((V2),VV[11],Cnil))==Cnil){          if((get((V2),VV[11],Cnil))==Cnil){
99          goto T36;}          goto T36;}
100          V7= (*(LnkLI265))((V1));          V7= (*(LnkLI272))((V1));
101          frs_pop();          frs_pop();
102          base[3]= V7;          base[3]= V7;
103          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 119  T36:; Line 119  T36:;
119          Lcopy_list();          Lcopy_list();
120          vs_top=sup;          vs_top=sup;
121          V9= vs_base[0];          V9= vs_base[0];
122          V8= (*(LnkLI266))((V4),(V2),V9);          V8= (*(LnkLI273))((V4),(V2),V9);
123          base[3]= (V8);          base[3]= (V8);
124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
125          (void) (*Lnk264)();          (void) (*Lnk271)();
126          frs_pop();          frs_pop();
127          bds_unwind1;          bds_unwind1;
128          bds_unwind1;          bds_unwind1;
129          return;}          return;}
130  goto T39;  goto T39;
131  T39:;  T39:;
132          V10= (*(LnkLI265))((V1));          V10= (*(LnkLI272))((V1));
133          frs_pop();          frs_pop();
134          base[3]= V10;          base[3]= V10;
135          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 140  goto T8; Line 140  goto T8;
140  T8:;  T8:;
141          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
142          goto T48;}          goto T48;}
143          V11= (*(LnkLI265))((V1));          V11= (*(LnkLI272))((V1));
144          frs_pop();          frs_pop();
145          base[3]= V11;          base[3]= V11;
146          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 149  T8:; Line 149  T8:;
149          return;          return;
150  goto T48;  goto T48;
151  T48:;  T48:;
152          V12= (VFUN_NARGS=2,(*(LnkLI258))(VV[12],(V2)));          V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));
153          frs_pop();          frs_pop();
154          base[3]= V12;          base[3]= V12;
155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 217  TTL:; Line 217  TTL:;
217          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
218          setq(VV[24],reverse(symbol_value(VV[24])));          setq(VV[24],reverse(symbol_value(VV[24])));
219          princ_str("\nvoid init_",VV[25]);          princ_str("\nvoid init_",VV[25]);
220          (void)((*(LnkLI267))((V15)));          (void)((*(LnkLI274))((V15)));
221          princ_str("(){",VV[25]);          princ_str("(){",VV[25]);
222          princ_str("do_init(VV);",VV[25]);          princ_str("do_init(VV);",VV[25]);
223          princ_char(125,VV[25]);          princ_char(125,VV[25]);
# Line 302  T113:; Line 302  T113:;
302           while(!endp(V23))           while(!endp(V23))
303           {vs_push(car(V23));V23=cdr(V23);}           {vs_push(car(V23));V23=cdr(V23);}
304          vs_base=base+7;}          vs_base=base+7;}
305          (void) (*Lnk250)();          (void) (*Lnk257)();
306          vs_top=sup;          vs_top=sup;
307          goto T111;}          goto T111;}
308  goto T109;  goto T109;
# Line 324  T129:; Line 324  T129:;
324           while(!endp(V26))           while(!endp(V26))
325           {vs_push(car(V26));V26=cdr(V26);}           {vs_push(car(V26));V26=cdr(V26);}
326          vs_base=base+8;}          vs_base=base+8;}
327          (void) (*Lnk268)();          (void) (*Lnk275)();
328          vs_top=sup;          vs_top=sup;
329          V24= cdr((V24));          V24= cdr((V24));
330          V25= car((V24));          V25= car((V24));
# Line 342  T144:; Line 342  T144:;
342          goto T140;          goto T140;
343  goto T145;  goto T145;
344  T145:;  T145:;
345          (void)((*(LnkLI269))((V28)));          (void)((*(LnkLI276))((V28)));
346          V27= cdr((V27));          V27= cdr((V27));
347          V28= car((V27));          V28= car((V27));
348          goto T144;}          goto T144;}
# Line 361  goto T160; Line 361  goto T160;
361  T160:;  T160:;
362          princ_str("\nstatic void LC",VV[31]);          princ_str("\nstatic void LC",VV[31]);
363          V31= structure_ref((V30),VV[32],3);          V31= structure_ref((V30),VV[32],3);
364          (void)((*(LnkLI270))(/* INLINE-ARGS */V31));          (void)((*(LnkLI277))(/* INLINE-ARGS */V31));
365          princ_str("();",VV[31]);          princ_str("();",VV[31]);
366          V29= cdr((V29));          V29= cdr((V29));
367          V30= car((V29));          V30= car((V29));
# Line 380  T177:; Line 380  T177:;
380  goto T178;  goto T178;
381  T178:;  T178:;
382          princ_str("\n#define VM",VV[31]);          princ_str("\n#define VM",VV[31]);
383          (void)((*(LnkLI270))(car((V33))));          (void)((*(LnkLI277))(car((V33))));
384          princ_char(32,VV[31]);          princ_char(32,VV[31]);
385          (void)((*(LnkLI270))(cdr((V33))));          (void)((*(LnkLI277))(cdr((V33))));
386          V32= cdr((V32));          V32= cdr((V32));
387          V33= car((V32));          V33= car((V32));
388          goto T177;}          goto T177;}
389  goto T173;  goto T173;
390  T173:;  T173:;
391          (void)((*(LnkLI271))(Cnil));          (void)((*(LnkLI278))(Cnil));
392          {object V34;          {object V34;
393          object V35;          object V35;
394          base[8]= (VV[22]->s.s_dbind);          base[8]= (VV[22]->s.s_dbind);
# Line 406  T200:; Line 406  T200:;
406          goto T193;          goto T193;
407  goto T201;  goto T201;
408  T201:;  T201:;
409          (void)((*(LnkLI271))(Cnil));          (void)((*(LnkLI278))(Cnil));
410          V35= one_plus((V35));          V35= one_plus((V35));
411          goto T200;}          goto T200;}
412  goto T193;  goto T193;
413  T193:;  T193:;
414          princ_str("\nstatic char * VVi[",VV[31]);          princ_str("\nstatic char * VVi[",VV[31]);
415          V36= number_plus(small_fixnum(1),symbol_value(VV[34]));          V36= number_plus(small_fixnum(1),symbol_value(VV[34]));
416          (void)((*(LnkLI270))(/* INLINE-ARGS */V36));          (void)((*(LnkLI277))(/* INLINE-ARGS */V36));
417          princ_str("]={",VV[31]);          princ_str("]={",VV[31]);
418          princ_str("\n#define Cdata VV[",VV[31]);          princ_str("\n#define Cdata VV[",VV[31]);
419          (void)((*(LnkLI270))(symbol_value(VV[34])));          (void)((*(LnkLI277))(symbol_value(VV[34])));
420          princ_char(93,VV[31]);          princ_char(93,VV[31]);
421          if((VV[21]->s.s_dbind)!=Cnil){          if((VV[21]->s.s_dbind)!=Cnil){
422          goto T217;}          goto T217;}
423          princ_char(10,VV[31]);          princ_char(10,VV[31]);
424          (void)((*(LnkLI270))(small_fixnum(0)));          (void)((*(LnkLI277))(small_fixnum(0)));
425  goto T217;  goto T217;
426  T217:;  T217:;
427          {register object V37;          {register object V37;
# Line 435  T223:; Line 435  T223:;
435  goto T224;  goto T224;
436  T224:;  T224:;
437          princ_str("\n(char *)(",VV[31]);          princ_str("\n(char *)(",VV[31]);
438          (void)((*(LnkLI270))(caar((V37))));          (void)((*(LnkLI277))(caar((V37))));
439          (void)((*(LnkLI270))(cadar((V37))));          (void)((*(LnkLI277))(cadar((V37))));
440          if((cdr((V37)))==Cnil){          if((cdr((V37)))==Cnil){
441          goto T236;}          goto T236;}
442          V38= VV[35];          V38= VV[35];
# Line 446  T236:; Line 446  T236:;
446          V38= VV[36];          V38= VV[36];
447  goto T234;  goto T234;
448  T234:;  T234:;
449          (void)((*(LnkLI270))(V38));          (void)((*(LnkLI277))(V38));
450          V37= cdr((V37));          V37= cdr((V37));
451          goto T223;}          goto T223;}
452  goto T220;  goto T220;
453  T220:;  T220:;
454          princ_str("\n#define VV ((object *)VVi)",VV[31]);          princ_str("\n#define VV ((object *)VVi)",VV[31]);
455          vs_base=vs_top;          vs_base=vs_top;
456          (void) (*Lnk272)();          (void) (*Lnk279)();
457          vs_top=sup;          vs_top=sup;
458          {object V39;          {object V39;
459          object V40;          object V40;
# Line 476  goto T248; Line 476  goto T248;
476  T248:;  T248:;
477          {register object V42;          {register object V42;
478          register object V43;          register object V43;
479            object V44;
480            register object V45;
481          V42= cadr((V40));          V42= cadr((V40));
482          V43= caddr((V40));          V43= caddr((V40));
483            V44= cadddr((V40));
484            V45= Cnil;
485          if(!(((V43))==(VV[37]))){          if(!(((V43))==(VV[37]))){
486          goto T257;}          goto T258;}
487          princ_str("\nstatic object *Lclptr",VV[31]);          princ_str("\nstatic object *Lclptr",VV[31]);
488          (void)((*(LnkLI270))((V42)));          (void)((*(LnkLI277))((V42)));
489          princ_char(59,VV[31]);          princ_char(59,VV[31]);
490          V43= VV[38];          V45= VV[38];
491          goto T255;          goto T256;
492  goto T257;  goto T258;
493  T257:;  T258:;
494            if(((V43))==Cnil){
495            goto T267;}
496            V45= (*(LnkLI280))((V43));
497            goto T265;
498    goto T267;
499    T267:;
500            V45= VV[39];
501    goto T265;
502    T265:;
503    goto T256;
504    T256:;
505          if(((V43))==Cnil){          if(((V43))==Cnil){
506          goto T266;}          goto T270;}
507          V43= (*(LnkLI273))((V43));          if(((V43))==(VV[37])){
508          goto T264;          goto T270;}
509  goto T266;          if(((V44))!=Cnil){
510  T266:;          goto T269;}
511          V43= VV[39];          if((Ct)==((V43))){
512  goto T264;          goto T270;}
513  T264:;  goto T269;
514  goto T255;  T269:;
515  T255:;          princ_str("\nstatic ",VV[31]);
516            base[8]= (V45);
517            vs_top=(vs_base=base+8)+1;
518            (void) (*Lnk281)();
519            vs_top=sup;
520            V46= vs_base[0];
521            (void)((*(LnkLI277))(V46));
522            princ_str(" LnkT",VV[31]);
523            (void)((*(LnkLI277))((V42)));
524            princ_str("(object,...);",VV[31]);
525            princ_str("\nstatic ",VV[31]);
526            base[8]= (V45);
527            vs_top=(vs_base=base+8)+1;
528            (void) (*Lnk281)();
529            vs_top=sup;
530            V47= vs_base[0];
531            (void)((*(LnkLI277))(V47));
532            princ_str(" (*Lnk",VV[31]);
533            (void)((*(LnkLI277))((V42)));
534            princ_str(")() = (",VV[31]);
535            base[8]= (V45);
536            vs_top=(vs_base=base+8)+1;
537            (void) (*Lnk281)();
538            vs_top=sup;
539            V48= vs_base[0];
540            (void)((*(LnkLI277))(V48));
541            princ_str("(*)()) LnkT",VV[31]);
542            (void)((*(LnkLI277))((V42)));
543            princ_char(59,VV[31]);
544            goto T252;
545    goto T270;
546    T270:;
547          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
548          base[8]= (V43);          base[8]= (V45);
549          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
550          (void) (*Lnk274)();          (void) (*Lnk281)();
551          vs_top=sup;          vs_top=sup;
552          V44= vs_base[0];          V49= vs_base[0];
553          (void)((*(LnkLI270))(V44));          (void)((*(LnkLI277))(V49));
554          princ_str(" LnkT",VV[31]);          princ_str(" LnkT",VV[31]);
555          (void)((*(LnkLI270))((V42)));          (void)((*(LnkLI277))((V42)));
556          princ_str("() ;",VV[31]);          princ_str("();",VV[31]);
557          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
558          base[8]= (V43);          base[8]= (V45);
559          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
560          (void) (*Lnk274)();          (void) (*Lnk281)();
561          vs_top=sup;          vs_top=sup;
562          V45= vs_base[0];          V50= vs_base[0];
563          (void)((*(LnkLI270))(V45));          (void)((*(LnkLI277))(V50));
564          princ_str(" (*Lnk",VV[31]);          princ_str(" (*Lnk",VV[31]);
565          (void)((*(LnkLI270))((V42)));          (void)((*(LnkLI277))((V42)));
566          princ_str(")() = LnkT",VV[31]);          princ_str(")() = LnkT",VV[31]);
567          (void)((*(LnkLI270))((V42)));          (void)((*(LnkLI277))((V42)));
568          princ_char(59,VV[31]);}          princ_char(59,VV[31]);}
569    goto T252;
570    T252:;
571          V39= cdr((V39));          V39= cdr((V39));
572          V40= car((V39));          V40= car((V39));
573          goto T247;}}          goto T247;}}
# Line 528  T255:; Line 576  T255:;
576  }  }
577  /*      local entry for function MAYBE-EVAL     */  /*      local entry for function MAYBE-EVAL     */
578    
579  static object LI4(V48,V49)  static object LI4(V53,V54)
580    
581  object V48;register object V49;  object V53;register object V54;
582  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
583  goto TTL;  goto TTL;
584  TTL:;  TTL:;
585          if((V48)!=Cnil){          if((V53)!=Cnil){
586          goto T290;}          goto T321;}
587          if(type_of(car((V49)))==t_symbol){          if(type_of(car((V54)))==t_symbol){
588          goto T291;}          goto T322;}
589          goto T290;          goto T321;
590  goto T291;  goto T322;
591  T291:;  T322:;
592          V48= get(car((V49)),VV[40],Cnil);          V53= get(car((V54)),VV[40],Cnil);
593  goto T290;  goto T321;
594  T290:;  T321:;
595          if(((V48))==Cnil){          if(((V53))==Cnil){
596          goto T296;}          goto T327;}
597          if((VV[41])==(symbol_value(VV[42]))){          if((VV[41])==(symbol_value(VV[42]))){
598          goto T294;}          goto T325;}
599  goto T296;  goto T327;
600  T296:;  T327:;
601          if(!(type_of(symbol_value(VV[42]))==t_cons)){          if(!(type_of(symbol_value(VV[42]))==t_cons)){
602          goto T295;}          goto T326;}
603          {register object x= VV[43],V50= symbol_value(VV[42]);          {register object x= VV[43],V55= symbol_value(VV[42]);
604          while(!endp(V50))          while(!endp(V55))
605          if(eql(x,V50->c.c_car)){          if(eql(x,V55->c.c_car)){
606          goto T302;          goto T333;
607          }else V50=V50->c.c_cdr;          }else V55=V55->c.c_cdr;
608          goto T295;}          goto T326;}
609  goto T302;  goto T333;
610  T302:;  T333:;
611  goto T294;  goto T325;
612  T294:;  T325:;
613          if(((V49))==Cnil){          if(((V54))==Cnil){
614          goto T303;}          goto T334;}
615          base[0]= (V49);          base[0]= (V54);
616          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
617          (void) (*Lnk275)();          (void) (*Lnk282)();
618          vs_top=sup;          vs_top=sup;
619  goto T303;  goto T334;
620  T303:;  T334:;
621          {object V51 = Ct;          {object V56 = Ct;
622          VMR4(V51)}          VMR4(V56)}
623  goto T295;  goto T326;
624  T295:;  T326:;
625          {object V52 = Cnil;          {object V57 = Cnil;
626          VMR4(V52)}          VMR4(V57)}
627          base[0]=base[0];          base[0]=base[0];
628          return Cnil;          return Cnil;
629  }  }
# Line 586  static void L5() Line 634  static void L5()
634          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
635          vs_reserve(VM5);          vs_reserve(VM5);
636          bds_check;          bds_check;
637          {register object V53;          {register object V58;
638          check_arg(1);          check_arg(1);
639          V53=(base[0]);          V58=(base[0]);
640          vs_top=sup;          vs_top=sup;
641  goto TTL;  goto TTL;
642  TTL:;  TTL:;
643          {register object V54;          {register object V59;
644          register object V55;          register object V60;
645          V54= Cnil;          V59= Cnil;
646          V55= Cnil;          V60= Cnil;
647          if(!(endp_prop((V53)))){          if(!(endp_prop((V58)))){
648          goto T309;}          goto T340;}
649          (void)((*(LnkLI276))(VV[44],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));
650  goto T309;  goto T340;
651  T309:;  T340:;
652          {register object V56;          {register object V61;
653          register object V57;          register object V62;
654          V56= car((V53));          V61= car((V58));
655          V57= car((V56));          V62= car((V61));
656  goto T316;  goto T347;
657  T316:;  T347:;
658          if(!(endp_prop((V56)))){          if(!(endp_prop((V61)))){
659          goto T317;}          goto T348;}
660          goto T312;          goto T343;
661  goto T317;  goto T348;
662  T317:;  T348:;
663          {object V58= (V57);          {object V63= (V62);
664          if((V58!= VV[277]))goto T322;          if((V63!= VV[284]))goto T353;
665          V54= Ct;          V59= Ct;
666          goto T321;          goto T352;
667  goto T322;  goto T353;
668  T322:;  T353:;
669          if((V58!= VV[43]))goto T324;          if((V63!= VV[43]))goto T355;
670          V55= Ct;          V60= Ct;
671          goto T321;          goto T352;
672  goto T324;  goto T355;
673  T324:;  T355:;
674          if((V58!= VV[278]))goto T326;          if((V63!= VV[285]))goto T357;
675          goto T321;          goto T352;
676  goto T326;  goto T357;
677  T326:;  T357:;
678          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[45],(V57))));}          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}
679  goto T321;  goto T352;
680  T321:;  T352:;
681          V56= cdr((V56));          V61= cdr((V61));
682          V57= car((V56));          V62= car((V61));
683          goto T316;}          goto T347;}
684  goto T312;  goto T343;
685  T312:;  T343:;
686          base[1]= car((V53));          base[1]= car((V58));
687          bds_bind(VV[42],base[1]);          bds_bind(VV[42],base[1]);
688          if(((V54))==Cnil){          if(((V59))==Cnil){
689          goto T334;}          goto T365;}
690          base[2]= (*(LnkLI279))(cdr((V53)));          base[2]= (*(LnkLI286))(cdr((V58)));
691          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
692          bds_unwind1;          bds_unwind1;
693          return;          return;
694  goto T334;  goto T365;
695  T334:;  T365:;
696          if(((V55))==Cnil){          if(((V60))==Cnil){
697          goto T337;}          goto T368;}
698          base[2]= make_cons(VV[46],cdr((V53)));          base[2]= make_cons(VV[46],cdr((V58)));
699          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
700          (void) (*Lnk275)();          (void) (*Lnk282)();
701          bds_unwind1;          bds_unwind1;
702          return;          return;
703  goto T337;  goto T368;
704  T337:;  T368:;
705          base[2]= Cnil;          base[2]= Cnil;
706          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
707          bds_unwind1;          bds_unwind1;
# Line 662  T337:; Line 710  T337:;
710  }  }
711  /*      local entry for function T1PROGN        */  /*      local entry for function T1PROGN        */
712    
713  static object LI6(V60)  static object LI6(V65)
714    
715  object V60;  object V65;
716  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
717          bds_check;          bds_check;
718  goto TTL;  goto TTL;
719  TTL:;  TTL:;
720          if(!(equal(car((V60)),VV[47]))){          if(!(equal(car((V65)),VV[47]))){
721          goto T341;}          goto T372;}
722          bds_bind(VV[48],Ct);          bds_bind(VV[48],Ct);
723          {object V61 = (*(LnkLI279))(cdr((V60)));          {object V66 = (*(LnkLI286))(cdr((V65)));
724          bds_unwind1;          bds_unwind1;
725          VMR6(V61)}          VMR6(V66)}
726  goto T341;  goto T372;
727  T341:;  T372:;
728          {register object V62;          {register object V67;
729          register object V63;          register object V68;
730          V62= (V60);          V67= (V65);
731          V63= car((V62));          V68= car((V67));
732  goto T346;  goto T377;
733  T346:;  T377:;
734          if(!(endp_prop((V62)))){          if(!(endp_prop((V67)))){
735          goto T347;}          goto T378;}
736          {object V64 = Cnil;          {object V69 = Cnil;
737          VMR6(V64)}          VMR6(V69)}
738  goto T347;  goto T378;
739  T347:;  T378:;
740          base[1]= (V63);          base[1]= (V68);
741          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
742          (void) (*Lnk264)();          (void) (*Lnk271)();
743          vs_top=sup;          vs_top=sup;
744          V62= cdr((V62));          V67= cdr((V67));
745          V63= car((V62));          V68= car((V67));
746          goto T346;}          goto T377;}
747          base[0]=base[0];          base[0]=base[0];
748          return Cnil;          return Cnil;
749  }  }
750  /*      local entry for function CMPFIX-ARGS    */  /*      local entry for function CMPFIX-ARGS    */
751    
752  static object LI7(V67,V68)  static object LI7(V72,V73)
753    
754  object V67;object V68;  object V72;object V73;
755  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
756  goto TTL;  goto TTL;
757  TTL:;  TTL:;
758          {register object V69;          {register object V74;
759          register object V70;          register object V75;
760          V69= Cnil;          V74= Cnil;
761          base[1]= cadr((V67));          base[1]= cadr((V72));
762          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
763          Lcopy_list();          Lcopy_list();
764          vs_top=sup;          vs_top=sup;
765          V70= vs_base[0];          V75= vs_base[0];
766          {register object V71;          {register object V76;
767          register object V72;          register object V77;
768          V71= (V68);          V76= (V73);
769          V72= car((V71));          V77= car((V76));
770  goto T365;  goto T396;
771  T365:;  T396:;
772          if(!(endp_prop((V71)))){          if(!(endp_prop((V76)))){
773          goto T366;}          goto T397;}
774          goto T361;          goto T392;
775  goto T366;  goto T397;
776  T366:;  T397:;
777          {register object x= car((V72)),V73= (V70);          {register object x= car((V77)),V78= (V75);
778          while(!endp(V73))          while(!endp(V78))
779          if(eql(x,V73->c.c_car)){          if(eql(x,V78->c.c_car)){
780          V69= V73;          V74= V78;
781          goto T371;          goto T402;
782          }else V73=V73->c.c_cdr;          }else V78=V78->c.c_cdr;
783          V69= Cnil;}          V74= Cnil;}
784  goto T371;  goto T402;
785  T371:;  T402:;
786          if((V69)==Cnil){          if((V74)==Cnil){
787          goto T372;}          goto T403;}
788          {register object V74;          {register object V79;
789          register object V75;          register object V80;
790          V74= (V69);          V79= (V74);
791          V75= cadr((V72));          V80= cadr((V77));
792          if(type_of((V74))!=t_cons)FEwrong_type_argument(Scons,(V74));          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
793          ((V74))->c.c_car = (V75);}          ((V79))->c.c_car = (V80);}
794  goto T372;  goto T403;
795  T372:;  T403:;
796          V71= cdr((V71));          V76= cdr((V76));
797          V72= car((V71));          V77= car((V76));
798          goto T365;}          goto T396;}
799  goto T361;  goto T392;
800  T361:;  T392:;
801          {register object x= VV[49],V76= (V70);          {register object x= VV[49],V81= (V75);
802          while(!endp(V76))          while(!endp(V81))
803          if(eql(x,V76->c.c_car)){          if(eql(x,V81->c.c_car)){
804          V69= V76;          V74= V81;
805          goto T385;          goto T416;
806          }else V76=V76->c.c_cdr;          }else V81=V81->c.c_cdr;
807          V69= Cnil;}          V74= Cnil;}
808  goto T385;  goto T416;
809  T385:;  T416:;
810          if(((V69))==Cnil){          if(((V74))==Cnil){
811          goto T383;}          goto T414;}
812          {object V78;          {object V83;
813          V78= append((V68),cdr((V69)));          V83= append((V73),cdr((V74)));
814          if(type_of(V69)!=t_cons)FEwrong_type_argument(Scons,V69);          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);
815          (V69)->c.c_cdr = (V78);          (V74)->c.c_cdr = (V83);
816          goto T381;}          goto T412;}
817  goto T383;  goto T414;
818  T383:;  T414:;
819          V79= make_cons(VV[49],(V68));          V84= make_cons(VV[49],(V73));
820          V70= append((V70),/* INLINE-ARGS */V79);          V75= append((V75),/* INLINE-ARGS */V84);
821  goto T381;  goto T412;
822  T381:;  T412:;
823          {object V80 = listA(3,car((V67)),(V70),cddr((V67)));          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));
824          VMR7(V80)}}          VMR7(V85)}}
825          base[0]=base[0];          base[0]=base[0];
826          return Cnil;          return Cnil;
827  }  }
828  /*      local entry for function T1DEFUN        */  /*      local entry for function T1DEFUN        */
829    
830  static object LI8(V82)  static object LI8(V87)
831    
832  object V82;  object V87;
833  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
834          bds_check;          bds_check;
835  goto TTL;  goto TTL;
836  TTL:;  TTL:;
837          {object V83;          {object V88;
838          V83= symbol_value(VV[50]);          V88= symbol_value(VV[50]);
839          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
840          if(endp_prop((V82))){          if(endp_prop((V87))){
841          goto T391;}          goto T422;}
842          if(!(endp_prop(cdr((V82))))){          if(!(endp_prop(cdr((V87))))){
843          goto T390;}          goto T421;}
844  goto T391;  goto T422;
845  T391:;  T422:;
846          V85 = make_fixnum((long)length((V82)));          V90 = make_fixnum((long)length((V87)));
847          (void)((*(LnkLI276))(VV[51],small_fixnum(2),V85));          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));
848  goto T390;  goto T421;
849  T390:;  T421:;
850          if(type_of(car((V82)))==t_symbol){          if(type_of(car((V87)))==t_symbol){
851          goto T395;}          goto T426;}
852          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[53],car((V82)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));
853  goto T395;  goto T426;
854  T395:;  T426:;
855          V86= make_cons(VV[51],(V82));          V91= make_cons(VV[51],(V87));
856          (void)((*(LnkLI260))(Cnil,/* INLINE-ARGS */V86));          (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));
857  goto T400;  goto T431;
858  T400:;  T431:;
859          setq(VV[6],Ct);          setq(VV[6],Ct);
860          setq(VV[54],Cnil);          setq(VV[54],Cnil);
861          {register object V87;          {register object V92;
862          object V88;          object V93;
863          object V89;          object V94;
864          register object V90;{object V91;          register object V95;{object V96;
865          V91= get(car((V82)),VV[60],Cnil);          V96= get(car((V87)),VV[60],Cnil);
866          if(V91==Cnil)goto T407;          if(V96==Cnil)goto T438;
867          V88= V91;          V93= V96;
868          goto T406;          goto T437;
869  goto T407;  goto T438;
870  T407:;}  T438:;}
871          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
872          V88= symbol_value(VV[61]);          V93= symbol_value(VV[61]);
873  goto T406;  goto T437;
874  T406:;  T437:;
875          V90= car((V82));          V95= car((V87));
876          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
877          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
878          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
879          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
880          V87= Cnil;          V92= Cnil;
881          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
882          V89= Cnil;          V94= Cnil;
883          V87= (VFUN_NARGS=2,(*(LnkLI280))(cdr((V82)),(V90)));          V92= (VFUN_NARGS=2,(*(LnkLI287))(cdr((V87)),(V95)));
884          if(!(eql((V83),symbol_value(VV[50])))){          if(!(eql((V88),symbol_value(VV[50])))){
885          goto T414;}          goto T445;}
886          goto T413;          goto T444;
887  goto T414;  goto T445;
888  T414:;  T445:;
889          (void)(structure_set(cadr((V87)),VV[62],4,Ct));          (void)(structure_set(cadr((V92)),VV[62],4,Ct));
890  goto T413;  goto T444;
891  T413:;  T444:;
892          V92= structure_ref(cadr((V87)),VV[62],1);          V97= structure_ref(cadr((V92)),VV[62],1);
893          (void)((*(LnkLI281))(/* INLINE-ARGS */V92));          (void)((*(LnkLI288))(/* INLINE-ARGS */V97));
894          if((get((V90),VV[63],Cnil))==Cnil){          if((get((V95),VV[63],Cnil))==Cnil){
895          goto T417;}          goto T448;}
896          {object V93;          {object V98;
897          V93= make_fixnum((long)length(car(caddr((V87)))));          V98= make_fixnum((long)length(car(caddr((V92)))));
898          (void)(sputprop((V90),VV[63],(V93)));          (void)(sputprop((V95),VV[63],(V98)));
899          base[6]= (V93);          base[6]= (V98);
900          base[7]= VV[65];          base[7]= VV[65];
901          base[8]= Ct;          base[8]= Ct;
902          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
903          Lmake_list();          Lmake_list();
904          vs_top=sup;          vs_top=sup;
905          V94= vs_base[0];          V99= vs_base[0];
906          V95= list(4,VV[64],(V90),V94,Ct);          V100= list(4,VV[64],(V95),V99,Ct);
907          (void)((*(LnkLI282))(/* INLINE-ARGS */V95));}          (void)((*(LnkLI289))(/* INLINE-ARGS */V100));}
908  goto T417;  goto T448;
909  T417:;  T448:;
910          if((get((V90),VV[66],Cnil))==Cnil){          if((get((V95),VV[66],Cnil))==Cnil){
911          goto T428;}          goto T459;}
912          {object V96;          {object V101;
913          register object V97;          register object V102;
914          V96= caddr((V87));          V101= caddr((V92));
915          V97= Cnil;          V102= Cnil;
916          if((cadr((V96)))==Cnil){          if((cadr((V101)))==Cnil){
917          goto T433;}          goto T464;}
918          goto T428;          goto T459;
919  goto T433;  goto T464;
920  T433:;  T464:;
921          if((caddr((V96)))==Cnil){          if((caddr((V101)))==Cnil){
922          goto T435;}          goto T466;}
923          goto T428;          goto T459;
924  goto T435;  goto T466;
925  T435:;  T466:;
926          if((cadddr((V96)))==Cnil){          if((cadddr((V101)))==Cnil){
927          goto T437;}          goto T468;}
928          goto T428;          goto T459;
929  goto T437;  goto T468;
930  T437:;  T468:;
931          if(((long)length(car((V96))))<(64)){          if(((long)length(car((V101))))<(64)){
932          goto T439;}          goto T470;}
933          goto T428;          goto T459;
934  goto T439;  goto T470;
935  T439:;  T470:;
936          {register object V98;          {register object V103;
937          register object V99;          register object V104;
938          object V100;          object V105;
939          V98= car((V96));          V103= car((V101));
940          V99= get((V90),VV[67],Cnil);          V104= get((V95),VV[67],Cnil);
941          V100= Cnil;          V105= Cnil;
942  goto T446;  goto T477;
943  T446:;  T477:;
944          if(!(endp_prop((V98)))){          if(!(endp_prop((V103)))){
945          goto T447;}          goto T478;}
946          if(endp_prop((V99))){          if(endp_prop((V104))){
947          goto T450;}          goto T481;}
948          goto T442;          goto T473;
949  goto T450;  goto T481;
950  T450:;  T481:;
951          if(((V97))==Cnil){          if(((V102))==Cnil){
952          goto T453;}          goto T484;}
953          V82= (*(LnkLI283))((V82),(V97));          V87= (*(LnkLI290))((V87),(V102));
954          bds_unwind1;          bds_unwind1;
955          bds_unwind1;          bds_unwind1;
956          bds_unwind1;          bds_unwind1;
957          bds_unwind1;          bds_unwind1;
958          bds_unwind1;          bds_unwind1;
959          goto T400;          goto T431;
960  goto T453;  goto T484;
961  T453:;  T484:;
962          if(((V100))==Cnil){          if(((V105))==Cnil){
963          goto T441;}          goto T472;}
964          goto T442;          goto T473;
965  goto T447;  goto T478;
966  T447:;  T478:;
967          {register object V101;          {register object V106;
968          V101= car((V98));          V106= car((V103));
969          if(!(equal(car((V99)),VV[68]))){          if(!(equal(car((V104)),VV[68]))){
970          goto T460;}          goto T491;}
971          goto T442;          goto T473;
972  goto T460;  goto T491;
973  T460:;  T491:;
974          V102= structure_ref((V101),VV[69],1);          V107= structure_ref((V106),VV[69],1);
975          if((/* INLINE-ARGS */V102)==(VV[70])){          if((/* INLINE-ARGS */V107)==(VV[70])){
976          goto T466;}          goto T497;}
977          V103= structure_ref((V101),VV[69],1);          V108= structure_ref((V106),VV[69],1);
978          if(!((/* INLINE-ARGS */V103)==(VV[71]))){          if(!((/* INLINE-ARGS */V108)==(VV[71]))){
979          goto T465;}          goto T496;}
980          if(!((car((V99)))==(Ct))){          if(!((car((V104)))==(Ct))){
981          goto T465;}          goto T496;}
982  goto T466;  goto T497;
983  T466:;  T497:;
984          if((structure_ref((V101),VV[69],3))!=Cnil){          if((structure_ref((V106),VV[69],3))!=Cnil){
985          goto T465;}          goto T496;}
986          V104= structure_ref((V101),VV[69],4);          V109= structure_ref((V106),VV[69],4);
987          if(!((/* INLINE-ARGS */V104)==(VV[72]))){          if(!((/* INLINE-ARGS */V109)==(VV[72]))){
988          goto T464;}          goto T495;}
989  goto T465;  goto T496;
990  T465:;  T496:;
991          {object V105;          {object V110;
992          V106= structure_ref((V101),VV[69],0);          V111= structure_ref((V106),VV[69],0);
993          vs_base=vs_top;          vs_base=vs_top;
994          Lgensym();          Lgensym();
995          vs_top=sup;          vs_top=sup;
996          V107= vs_base[0];          V112= vs_base[0];
997          V105= list(2,/* INLINE-ARGS */V106,V107);          V110= list(2,/* INLINE-ARGS */V111,V112);
998          V97= make_cons((V105),(V97));}          V102= make_cons((V110),(V102));}
999  goto T464;  goto T495;
1000  T464:;  T495:;
1001          V108= car((V99));          V113= car((V104));
1002          V109= structure_ref((V101),VV[69],5);          V114= structure_ref((V106),VV[69],5);
1003          if(((*(LnkLI284))(/* INLINE-ARGS */V108,/* INLINE-ARGS */V109))==Cnil){          if(((*(LnkLI291))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){
1004          goto T463;}          goto T494;}
1005          {register object x= car((V99)),V110= VV[73];          {register object x= car((V104)),V115= VV[73];
1006          while(!endp(V110))          while(!endp(V115))
1007          if(eql(x,V110->c.c_car)){          if(eql(x,V115->c.c_car)){
1008          goto T458;          goto T489;
1009          }else V110=V110->c.c_cdr;}          }else V115=V115->c.c_cdr;}
1010          V111= structure_ref((V101),VV[69],4);          V116= structure_ref((V106),VV[69],4);
1011          if((/* INLINE-ARGS */V111)==(VV[74])){          if((/* INLINE-ARGS */V116)==(VV[74])){
1012          goto T458;}          goto T489;}
1013          if((symbol_value(VV[75]))!=Cnil){          if((symbol_value(VV[75]))!=Cnil){
         goto T458;}  
         V113= structure_ref(cadr((V87)),VV[62],0);  
         {register object x= (V101),V112= /* INLINE-ARGS */V113;  
         while(!endp(V112))  
         if(eql(x,V112->c.c_car)){  
         goto T488;  
         }else V112=V112->c.c_cdr;  
         goto T458;}  
 goto T488;  
 T488:;  
 goto T463;  
 T463:;  
         if(((V97))!=Cnil){  
1014          goto T489;}          goto T489;}
1015          V114= structure_ref((V101),VV[69],0);          V118= structure_ref(cadr((V92)),VV[62],0);
1016          (void)((VFUN_NARGS=3,(*(LnkLI259))(VV[76],(V90),/* INLINE-ARGS */V114)));          {register object x= (V106),V117= /* INLINE-ARGS */V118;
1017            while(!endp(V117))
1018            if(eql(x,V117->c.c_car)){
1019            goto T519;
1020            }else V117=V117->c.c_cdr;
1021            goto T489;}
1022    goto T519;
1023    T519:;
1024    goto T494;
1025    T494:;
1026            if(((V102))!=Cnil){
1027            goto T520;}
1028            V119= structure_ref((V106),VV[69],0);
1029            (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));
1030    goto T520;
1031    T520:;
1032            V105= Ct;}
1033  goto T489;  goto T489;
1034  T489:;  T489:;
1035          V100= Ct;}          V103= cdr((V103));
1036  goto T458;          V104= cdr((V104));
1037  T458:;          goto T477;}
1038          V98= cdr((V98));  goto T473;
1039          V99= cdr((V99));  T473:;
1040          goto T446;}          goto T459;
1041  goto T442;  goto T472;
1042  T442:;  T472:;
1043          goto T428;          if(!(type_of((V93))==t_fixnum||
1044  goto T441;  type_of((V93))==t_bignum||
1045  T441:;  type_of((V93))==t_ratio||
1046          if(!(type_of((V88))==t_fixnum||  type_of((V93))==t_shortfloat||
1047  type_of((V88))==t_bignum||  type_of((V93))==t_longfloat||
1048  type_of((V88))==t_ratio||  type_of((V93))==t_complex)){
1049  type_of((V88))==t_shortfloat||          goto T459;}}
1050  type_of((V88))==t_longfloat||          {object V120;
1051  type_of((V88))==t_complex)){          V121= get((V95),VV[67],Cnil);
1052          goto T428;}}          V122= get((V95),VV[77],Cnil);
1053          {object V115;          V123= get((V95),VV[67],Cnil);
1054          V116= get((V90),VV[67],Cnil);          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123));
1055          V117= get((V90),VV[77],Cnil);          setq(VV[78],make_cons((V120),symbol_value(VV[78])));
1056          V118= get((V90),VV[67],Cnil);          goto T457;}
1057          V115= list(5,(V90),V116,V117,small_fixnum(3),(*(LnkLI285))((V88),V118));  goto T459;
1058          setq(VV[78],make_cons((V115),symbol_value(VV[78])));  T459:;
1059          goto T426;}          {object V124;
1060  goto T428;          V125= get((V95),VV[77],Cnil);
1061  T428:;          V124= ((V125)==(Ct)?Ct:Cnil);
1062          {object V119;          if(((V124))==Cnil){
1063          V120= get((V90),VV[77],Cnil);          goto T457;}}
1064          V119= ((V120)==(Ct)?Ct:Cnil);  goto T457;
1065          if(((V119))==Cnil){  T457:;
1066          goto T426;}}          if((cadddr((V92)))==Cnil){
1067  goto T426;          goto T537;}
1068  T426:;          V94= cadddr((V92));
1069          if((cadddr((V87)))==Cnil){  goto T537;
1070          goto T506;}  T537:;
1071          V89= cadddr((V87));          (void)((*(LnkLI293))());
1072  goto T506;          {object V126;
1073  T506:;          V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind));
1074          (void)((*(LnkLI286))());          setq(VV[24],make_cons((V126),symbol_value(VV[24])));}
1075          {object V121;          {object V127;
1076          V121= list(6,VV[51],(V90),(V88),(V87),(V89),(VV[59]->s.s_dbind));          V127= make_cons((V95),(V93));
1077          setq(VV[24],make_cons((V121),symbol_value(VV[24])));}          setq(VV[79],make_cons((V127),symbol_value(VV[79])));
1078          {object V122;          V128= symbol_value(VV[79]);
         V122= make_cons((V90),(V88));  
         setq(VV[79],make_cons((V122),symbol_value(VV[79])));  
         V123= symbol_value(VV[79]);  
1079          bds_unwind1;          bds_unwind1;
1080          bds_unwind1;          bds_unwind1;
1081          bds_unwind1;          bds_unwind1;
1082          bds_unwind1;          bds_unwind1;
1083          bds_unwind1;}}          bds_unwind1;}}
1084          {object V124 = Cnil;          {object V129 = Cnil;
1085          bds_unwind1;          bds_unwind1;
1086          VMR8(V124)}}          VMR8(V129)}}
1087          base[0]=base[0];          base[0]=base[0];
1088          return Cnil;          return Cnil;
1089  }  }
1090  /*      local entry for function MAKE-INLINE-STRING     */  /*      local entry for function MAKE-INLINE-STRING     */
1091    
1092  static object LI9(V127,V128)  static object LI9(V132,V133)
1093    
1094  object V127;object V128;  object V132;object V133;
1095  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1096  goto TTL;  goto TTL;
1097  TTL:;  TTL:;
1098          if(((V128))!=Cnil){          if(((V133))!=Cnil){
1099          goto T517;}          goto T548;}
1100          base[0]= Cnil;          base[0]= Cnil;
1101          base[1]= VV[80];          base[1]= VV[80];
1102          base[2]= (V127);          base[2]= (V132);
1103          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1104          Lformat();          Lformat();
1105          vs_top=sup;          vs_top=sup;
1106          {object V129 = vs_base[0];          {object V134 = vs_base[0];
1107          VMR9(V129)}          VMR9(V134)}
1108  goto T517;  goto T548;
1109  T517:;  T548:;
1110          {register object V130;          {register object V135;
1111          V130= (VFUN_NARGS=7,(*(LnkLI287))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));
1112          base[0]= (V130);          base[0]= (V135);
1113          base[1]= VV[85];          base[1]= VV[85];
1114          base[2]= (V127);          base[2]= (V132);
1115          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1116          Lformat();          Lformat();
1117          vs_top=sup;          vs_top=sup;
1118          {register object V131;          {register object V136;
1119          register long V132;          register long V137;
1120          V132= 0;          V137= 0;
1121          V131= (V128);          V136= (V133);
1122  goto T530;  goto T561;
1123  T530:;  T561:;
1124          if(!(endp_prop(cdr((V131))))){          if(!(endp_prop(cdr((V136))))){
1125          goto T531;}          goto T562;}
1126          base[0]= (V130);          base[0]= (V135);
1127          base[1]= VV[86];          base[1]= VV[86];
1128          base[2]= make_fixnum(V132);          base[2]= make_fixnum(V137);
1129          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1130          Lformat();          Lformat();
1131          vs_top=sup;          vs_top=sup;
1132          goto T527;          goto T558;
1133  goto T531;  goto T562;
1134  T531:;  T562:;
1135          base[0]= (V130);          base[0]= (V135);
1136          base[1]= VV[87];          base[1]= VV[87];
1137          base[2]= make_fixnum(V132);          base[2]= make_fixnum(V137);
1138          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1139          Lformat();          Lformat();
1140          vs_top=sup;          vs_top=sup;
1141          V131= cdr((V131));          V136= cdr((V136));
1142          V132= (long)(V132)+1;          V137= (long)(V137)+1;
1143          goto T530;}          goto T561;}
1144  goto T527;  goto T558;
1145  T527:;  T558:;
1146          {object V133 = (V130);          {object V138 = (V135);
1147          VMR9(V133)}}          VMR9(V138)}}
1148          base[0]=base[0];          base[0]=base[0];
1149          return Cnil;          return Cnil;
1150  }  }
1151  /*      local entry for function CS-PUSH        */  /*      local entry for function CS-PUSH        */
1152    
1153  static object LI10(va_alist)  static object LI10(object first,...)
         va_dcl  
1154  {        {      
1155          va_list ap;          va_list ap;
1156          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1157          {object V134;          {object V139;
1158          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1159          va_start(ap);          va_start(ap,first);
1160          narg = narg - 0;          narg = narg - 0;
1161          if (narg <= 0) goto T546;          if (narg <= 0) goto T577;
1162          else {          else {
1163          V134= va_arg(ap,object);}          V139= first;}
1164          --narg; goto T547;          --narg; goto T578;
1165  goto T546;  goto T577;
1166  T546:;  T577:;
1167          V134= Cnil;          V139= Cnil;
1168  goto T547;  goto T578;
1169  T547:;  T578:;
1170          {object V135;          {object V140;
1171          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1172          V135= symbol_value(VV[88]);          V140= symbol_value(VV[88]);
1173          {object V136;          {object V141;
1174          if(((V134))==Cnil){          if(((V139))==Cnil){
1175          goto T554;}          goto T585;}
1176          V136= make_cons((V134),(V135));          V141= make_cons((V139),(V140));
1177          goto T552;          goto T583;
1178  goto T554;  goto T585;
1179  T554:;  T585:;
1180          V136= (V135);          V141= (V140);
1181  goto T552;  goto T583;
1182  T552:;  T583:;
1183          setq(VV[18],make_cons((V136),symbol_value(VV[18])));}          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}
1184          {object V137 = (V135);          {object V142 = (V140);
1185          VMR10(V137)}}          VMR10(V142)}}
1186          va_end(ap);          va_end(ap);
1187          base[0]=base[0];          base[0]=base[0];
1188          return Cnil;}          return Cnil;}
1189          }          }
1190  /*      local entry for function F-TYPE */  /*      local entry for function F-TYPE */
1191    
1192  static object LI11(V139)  static object LI11(V144)
1193    
1194  register object V139;  register object V144;
1195  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1196  goto TTL;  goto TTL;
1197  TTL:;  TTL:;
1198          base[0]= (V139);          base[0]= (V144);
1199          base[1]= VV[69];          base[1]= VV[69];
1200          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1201          (void) (*Lnk288)();          (void) (*Lnk295)();
1202          vs_top=sup;          vs_top=sup;
1203          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1204          goto T557;}          goto T588;}
1205          V139= structure_ref((V139),VV[69],5);          V144= structure_ref((V144),VV[69],5);
1206  goto T557;  goto T588;
1207  T557:;  T588:;
1208          if(((V139))==Cnil){          if(((V144))==Cnil){
1209          goto T564;}          goto T595;}
1210          base[0]= (V139);          base[0]= (V144);
1211          base[1]= VV[89];          base[1]= VV[89];
1212          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1213          (void) (*Lnk289)();          (void) (*Lnk296)();
1214          vs_top=sup;          vs_top=sup;
1215          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1216          goto T564;}          goto T595;}
1217          {long V140 = 1;          {long V145 = 1;
1218          VMR11((object)V140)}          VMR11((object)V145)}
1219  goto T564;  goto T595;
1220  T564:;  T595:;
1221          {long V141 = 0;          {long V146 = 0;
1222          VMR11((object)V141)}          VMR11((object)V146)}
1223          base[0]=base[0];          base[0]=base[0];
1224  }  }
1225  /*      local entry for function PROCLAIMED-ARGD        */  /*      local entry for function PROCLAIMED-ARGD        */
1226    
1227  static object LI12(V144,V145)  static object LI12(V149,V150)
1228    
1229  register object V144;object V145;  register object V149;object V150;
1230  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1231  goto TTL;  goto TTL;
1232  TTL:;  TTL:;
1233          {register long V146;          {register long V151;
1234          register long V147;          register long V152;
1235          register object V148;          register object V153;
1236          register object V149;          register object V154;
1237          V146= (long)length((V144));          V151= (long)length((V149));
1238          V147= 8;          V152= 8;
1239          V148= make_fixnum((long)(*(LnkLI290))((V145)));          V153= make_fixnum((long)(*(LnkLI297))((V150)));
1240          V149= Ct;          V154= Ct;
1241  goto T574;  goto T605;
1242  T574:;  T605:;
1243          if(eql(small_fixnum(0),(V148))){          if(eql(small_fixnum(0),(V153))){
1244          goto T576;}          goto T607;}
1245          V146= (long)(V146)+((long)((fix((V148))) << (V147)));          V151= (long)(V151)+((long)((fix((V153))) << (V152)));
1246  goto T576;  goto T607;
1247  T576:;  T607:;
1248          if(((V149))==Cnil){          if(((V154))==Cnil){
1249          goto T580;}          goto T611;}
1250          V147= 10;          V152= 10;
1251          V149= Cnil;          V154= Cnil;
1252  goto T580;  goto T611;
1253  T580:;  T611:;
1254          if(((V144))!=Cnil){          if(((V149))!=Cnil){
1255          goto T586;}          goto T617;}
1256          {long V150 = V146;          {long V155 = V151;
1257          VMR12((object)V150)}          VMR12((object)V155)}
1258  goto T586;  goto T617;
1259  T586:;  T617:;
1260          V147= (long)(V147)+(2);          V152= (long)(V152)+(2);
1261          {register object V152;          {register object V157;
1262          V152= car((V144));          V157= car((V149));
1263          V144= cdr((V144));          V149= cdr((V149));
1264          V151= (V152);}          V156= (V157);}
1265          V148= make_fixnum((long)(*(LnkLI290))(V151));          V153= make_fixnum((long)(*(LnkLI297))(V156));
1266          goto T574;}          goto T605;}
1267  }  }
1268  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1269    
1270  static object LI13(V156,V157,V158)  static object LI13(V161,V162,V163)
1271    
1272  register object V156;object V157;object V158;  register object V161;object V162;object V163;
1273  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1274  goto TTL;  goto TTL;
1275  TTL:;  TTL:;
1276          if(((VFUN_NARGS=1,(*(LnkLI292))((V156))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){
1277          goto T598;}          goto T629;}
1278          {register object x= (V156),V159= symbol_value(VV[78]);          {register object x= (V161),V164= symbol_value(VV[78]);
1279          while(!endp(V159))          while(!endp(V164))
1280          if(type_of(V159->c.c_car)==t_cons &&eql(x,V159->c.c_car->c.c_car)){          if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){
1281          goto T602;          goto T633;
1282          }else V159=V159->c.c_cdr;          }else V164=V164->c.c_cdr;
1283          goto T601;}          goto T632;}
1284  goto T602;  goto T633;
1285  T602:;  T633:;
1286          V160= list(2,VV[91],(V156));          V165= list(2,VV[91],(V161));
1287          V161= (*(LnkLI294))(VV[92],(V157));          V166= (*(LnkLI301))(VV[92],(V162));
1288          V162= get((V156),VV[67],Cnil);          V167= get((V161),VV[67],Cnil);
1289          V163= get((V156),VV[77],Cnil);          V168= get((V161),VV[77],Cnil);
1290          V164 = make_fixnum((long)(*(LnkLI295))(V162,V163));          V169 = make_fixnum((long)(*(LnkLI302))(V167,V168));
1291          V165= list(4,VV[90],/* INLINE-ARGS */V160,/* INLINE-ARGS */V161,V164);          V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169);
1292          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V165)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170)));
1293          {object V166 = Ct;          {object V171 = Ct;
1294          VMR13(V166)}          VMR13(V171)}
1295  goto T601;  goto T632;
1296  T601:;  T632:;
1297          {register object V167;          {register object V172;
1298          register object V168;          register object V173;
1299          object V169;          object V174;
1300          V167= make_fixnum((long)length(car(caddr((V158)))));          V172= make_fixnum((long)length(car(caddr((V163)))));
1301          V170= get((V156),VV[67],Cnil);          V175= get((V161),VV[67],Cnil);
1302          V168= make_fixnum((long)length(V170));          V173= make_fixnum((long)length(V175));
1303          V172= get((V156),VV[67],Cnil);          V177= get((V161),VV[67],Cnil);
1304          {register object x= VV[68],V171= V172;          {register object x= VV[68],V176= V177;
1305          while(!endp(V171))          while(!endp(V176))
1306          if(eql(x,V171->c.c_car)){          if(eql(x,V176->c.c_car)){
1307          V169= V171;          V174= V176;
1308          goto T610;          goto T641;
1309          }else V171=V171->c.c_cdr;          }else V176=V176->c.c_cdr;
1310          V169= Cnil;}          V174= Cnil;}
1311  goto T610;  goto T641;
1312  T610:;  T641:;
1313          if(((V169))==Cnil){          if(((V174))==Cnil){
1314          goto T613;}          goto T644;}
1315          base[0]= (V167);          base[0]= (V172);
1316          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1317          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1318          vs_top=sup;          vs_top=sup;
1319          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1320          goto T615;}          goto T646;}
1321          goto T606;          goto T637;
1322  goto T615;  goto T646;
1323  T615:;{object V173;  T646:;{object V178;
1324          V174 = make_fixnum((long)length((V169)));          V179 = make_fixnum((long)length((V174)));
1325          V173= number_minus((V168),V174);          V178= number_minus((V173),V179);
1326          if(V173==Cnil)goto T618;          if(V178==Cnil)goto T649;
1327          goto T606;          goto T637;
1328  goto T618;  goto T649;
1329  T618:;}  T649:;}
1330          V175 = make_fixnum((long)length((V169)));          V180 = make_fixnum((long)length((V174)));
1331          V176= number_minus((V168),V175);          V181= number_minus((V173),V180);
1332          (void)((VFUN_NARGS=4,(*(LnkLI259))(VV[93],(V156),/* INLINE-ARGS */V176,(V167))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));
1333          goto T606;          goto T637;
1334  goto T613;  goto T644;
1335  T613:;  T644:;
1336          if(eql((V167),(V168))){          if(eql((V172),(V173))){
1337          goto T621;}          goto T652;}
1338          (void)((VFUN_NARGS=4,(*(LnkLI259))(VV[94],(V156),(V168),(V167))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));
1339          goto T606;          goto T637;
1340  goto T621;  goto T652;
1341  T621:;  T652:;
1342          (void)((VFUN_NARGS=2,(*(LnkLI259))(VV[95],(V156))));}          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}
1343  goto T606;  goto T637;
1344  T606:;  T637:;
1345          {object V177 = Cnil;          {object V182 = Cnil;
1346          VMR13(V177)}          VMR13(V182)}
1347  goto T598;  goto T629;
1348  T598:;  T629:;
1349          {object V178 = Cnil;          {object V183 = Cnil;
1350          VMR13(V178)}          VMR13(V183)}
1351          base[0]=base[0];          base[0]=base[0];
1352          return Cnil;          return Cnil;
1353  }  }
1354  /*      local entry for function VOLATILE       */  /*      local entry for function VOLATILE       */
1355    
1356  static object LI14(V180)  static object LI14(V185)
1357    
1358  object V180;  object V185;
1359  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1360  goto TTL;  goto TTL;
1361  TTL:;  TTL:;
1362          if((structure_ref((V180),VV[62],4))==Cnil){          if((structure_ref((V185),VV[62],4))==Cnil){
1363          goto T624;}          goto T655;}
1364          {object V181 = VV[96];          {object V186 = VV[96];
1365          VMR14(V181)}          VMR14(V186)}
1366  goto T624;  goto T655;
1367  T624:;  T655:;
1368          {object V182 = VV[97];          {object V187 = VV[97];
1369          VMR14(V182)}          VMR14(V187)}
1370          return Cnil;          return Cnil;
1371  }  }
1372  /*      local entry for function REGISTER       */  /*      local entry for function REGISTER       */
1373    
1374  static object LI15(V184)  static object LI15(V189)
1375    
1376  object V184;  object V189;
1377  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1378  goto TTL;  goto TTL;
1379  TTL:;  TTL:;
1380          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[20]),VV[98]))){
1381          goto T627;}          goto T658;}
1382          {long V185= fix(structure_ref((V184),VV[69],6));          {long V190= fix(structure_ref((V189),VV[69],6));
1383          if(!((/* INLINE-ARGS */V185)>=(fix(symbol_value(VV[99]))))){          if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){
1384          goto T627;}}          goto T658;}}
1385          {object V186 = VV[100];          {object V191 = VV[100];
1386          VMR15(V186)}          VMR15(V191)}
1387  goto T627;  goto T658;
1388  T627:;  T658:;
1389          {object V187 = VV[101];          {object V192 = VV[101];
1390          VMR15(V187)}          VMR15(V192)}
1391          return Cnil;          return Cnil;
1392  }  }
1393  /*      local entry for function VARARG-P       */  /*      local entry for function VARARG-P       */
1394    
1395  static object LI16(V189)  static object LI16(V194)
1396    
1397  object V189;  object V194;
1398  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1399  goto TTL;  goto TTL;
1400  TTL:;  TTL:;
1401          V190= get((V189),VV[77],Cnil);          V195= get((V194),VV[77],Cnil);
1402          if(equal(V190,Ct)){          if(equal(V195,Ct)){
1403          goto T631;}          goto T662;}
1404          {object V191 = Cnil;          {object V196 = Cnil;
1405          VMR16(V191)}          VMR16(V196)}
1406  goto T631;  goto T662;
1407  T631:;  T662:;
1408          {register object V192;          {register object V197;
1409          V192= get((V189),VV[67],Cnil);          V197= get((V194),VV[67],Cnil);
1410  goto T636;  goto T667;
1411  T636:;  T667:;
1412          if(((V192))!=Cnil){          if(((V197))!=Cnil){
1413          goto T637;}          goto T668;}
1414          {object V193 = Ct;          {object V198 = Ct;
1415          VMR16(V193)}          VMR16(V198)}
1416  goto T637;  goto T668;
1417  T637:;  T668:;
1418          if(!(type_of((V192))==t_cons)){          if(!(type_of((V197))==t_cons)){
1419          goto T642;}          goto T673;}
1420          goto T641;          goto T672;
1421  goto T642;  goto T673;
1422  T642:;  T673:;
1423          {object V194 = Cnil;          {object V199 = Cnil;
1424          VMR16(V194)}          VMR16(V199)}
1425  goto T641;  goto T672;
1426  T641:;  T672:;
1427          if(!((car((V192)))==(Ct))){          if(!((car((V197)))==(Ct))){
1428          goto T645;}          goto T676;}
1429          goto T644;          goto T675;
1430  goto T645;  goto T676;
1431  T645:;  T676:;
1432          if(!((car((V192)))==(VV[68]))){          if(!((car((V197)))==(VV[68]))){
1433          goto T647;}          goto T678;}
1434          goto T644;          goto T675;
1435  goto T647;  goto T678;
1436  T647:;  T678:;
1437          {object V195 = Cnil;          {object V200 = Cnil;
1438          VMR16(V195)}          VMR16(V200)}
1439  goto T644;  goto T675;
1440  T644:;  T675:;
1441          V192= cdr((V192));          V197= cdr((V197));
1442          goto T636;}          goto T667;}
1443          return Cnil;          return Cnil;
1444  }  }
1445  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
1446    
1447  static object LI17(V197)  static object LI17(V202)
1448    
1449  register object V197;  register object V202;
1450  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1451  goto TTL;  goto TTL;
1452  TTL:;  TTL:;
1453          if((cadddr((V197)))!=Cnil){          if((cadddr((V202)))!=Cnil){
1454          goto T652;}          goto T683;}
1455          if((caddr((V197)))==Cnil){          if((caddr((V202)))==Cnil){
1456          goto T653;}          goto T684;}
1457  goto T652;  goto T683;
1458  T652:;  T683:;
1459          {object V198 = small_fixnum(64);          {object V203 = small_fixnum(64);
1460          VMR17(V198)}          VMR17(V203)}
1461  goto T653;  goto T684;
1462  T653:;  T684:;
1463          base[0]= make_fixnum((long)length(car((V197))));          base[0]= make_fixnum((long)length(car((V202))));
1464          base[1]= make_fixnum((long)length(cadr((V197))));          base[1]= make_fixnum((long)length(cadr((V202))));
1465          V199 = make_fixnum((long)length(car(cddddr((V197)))));          V204 = make_fixnum((long)length(car(cddddr((V202)))));
1466          base[2]= number_times(small_fixnum(2),V199);          base[2]= number_times(small_fixnum(2),V204);
1467          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1468          Lplus();          Lplus();
1469          vs_top=sup;          vs_top=sup;
1470          {object V200 = vs_base[0];          {object V205 = vs_base[0];
1471          VMR17(V200)}          VMR17(V205)}
1472          base[0]=base[0];          base[0]=base[0];
1473          return Cnil;          return Cnil;
1474  }  }
1475  /*      local entry for function ADD-ADDRESS    */  /*      local entry for function ADD-ADDRESS    */
1476    
1477  static object LI18(V203,V204)  static object LI18(V208,V209)
1478    
1479  object V203;object V204;  object V208;object V209;
1480  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1481  goto TTL;  goto TTL;
1482  TTL:;  TTL:;
1483          {object V205;          {object V210;
1484          V205= list(2,(V203),(V204));          V210= list(2,(V208),(V209));
1485          setq(VV[21],make_cons((V205),symbol_value(VV[21])));}          setq(VV[21],make_cons((V210),symbol_value(VV[21])));}
1486          {object V206;          {object V211;
1487          V206= symbol_value(VV[22]);          V211= symbol_value(VV[22]);
1488          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
1489          {object V207 = (V206);          {object V212 = (V211);
1490          VMR18(V207)}}          VMR18(V212)}}
1491          base[0]=base[0];          base[0]=base[0];
1492          return Cnil;          return Cnil;
1493  }  }
1494  /*      local entry for function T2DEFUN        */  /*      local entry for function T2DEFUN        */
1495    
1496  static object LI19(V213,V214,V215,V216,V217)  static object LI19(V218,V219,V220,V221,V222)
1497    
1498  register object V213;register object V214;register object V215;object V216;object V217;  register object V218;register object V219;register object V220;object V221;object V222;
1499  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1500  goto TTL;  goto TTL;
1501  TTL:;  TTL:;
1502          if((get((V213),VV[102],Cnil))==Cnil){          if((get((V218),VV[102],Cnil))==Cnil){
1503          goto T665;}          goto T696;}
1504          {object V218 = Cnil;          {object V223 = Cnil;
1505          VMR19(V218)}          VMR19(V223)}
1506  goto T665;  goto T696;
1507  T665:;  T696:;
         if(((V216))==Cnil){  
         goto T668;}  
         V219= list(4,VV[103],list(2,VV[91],(V213)),(V216),VV[104]);  
         (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V219)));  
 goto T668;  
 T668:;  
         {object V220;  
         V220= (*(LnkLI296))((V213),(V214),(V215));  
         if(((V220))==Cnil){  
         goto T674;}  
         goto T671;  
 goto T674;  
 T674:;  
         if(((*(LnkLI297))((V213)))==Cnil){  
         goto T677;}  
         {object V221;  
         V221= cadddr(caddr((V215)));  
         princ_str("\nstatic object LI",VV[31]);  
         (void)((*(LnkLI270))((V214)));  
         princ_str("();",VV[31]);  
1508          if(((V221))==Cnil){          if(((V221))==Cnil){
1509          goto T685;}          goto T699;}
1510          V222= list(2,VV[91],(V213));          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);
1511          V223= (*(LnkLI294))(VV[106],(V214));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224)));
1512          V224 = make_fixnum((long)length(car(caddr((V215)))));  goto T699;
1513          V225= (*(LnkLI298))(caddr((V215)));  T699:;
1514          V226= (*(LnkLI291))(/* INLINE-ARGS */V225,small_fixnum(8));          {object V225;
1515          V227= number_plus(V224,/* INLINE-ARGS */V226);          V225= (*(LnkLI303))((V218),(V219),(V220));
1516            if(((V225))==Cnil){
1517            goto T705;}
1518            goto T702;
1519    goto T705;
1520    T705:;
1521            if(((*(LnkLI304))((V218)))==Cnil){
1522            goto T708;}
1523            {object V226;
1524            V226= cadddr(caddr((V220)));
1525            if(((V226))==Cnil){
1526            goto T712;}
1527            V227= list(2,VV[91],(V218));
1528            V228= (*(LnkLI301))(VV[106],(V219));
1529            V229 = make_fixnum((long)length(car(caddr((V220)))));
1530            V230= (*(LnkLI305))(caddr((V220)));
1531            V231= (*(LnkLI298))(/* INLINE-ARGS */V230,small_fixnum(8));
1532            V232= number_plus(V229,/* INLINE-ARGS */V231);
1533          base[0]= Cnil;          base[0]= Cnil;
1534          base[1]= VV[107];          base[1]= VV[107];
1535          base[2]= (V214);          base[2]= (V219);
1536          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1537          Lformat();          Lformat();
1538          vs_top=sup;          vs_top=sup;
1539          V228= vs_base[0];          V233= vs_base[0];
1540          V229= list(5,VV[105],/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,/* INLINE-ARGS */V227,(*(LnkLI294))(V228,VV[108]));          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108]));
1541          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V229)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234)));
1542          goto T671;          goto T702;
1543  goto T685;  goto T712;
1544  T685:;  T712:;
1545          V230= list(2,VV[91],(V213));          V235= list(2,VV[91],(V218));
1546          V231= (*(LnkLI294))(VV[110],(V214));          V236= (*(LnkLI301))(VV[110],(V219));
1547          V232 = make_fixnum((long)length(car(caddr((V215)))));          V237 = make_fixnum((long)length(car(caddr((V220)))));
1548          V233= (*(LnkLI298))(caddr((V215)));          V238= (*(LnkLI305))(caddr((V220)));
1549          V234= (*(LnkLI291))(/* INLINE-ARGS */V233,small_fixnum(8));          V239= (*(LnkLI298))(/* INLINE-ARGS */V238,small_fixnum(8));
1550          V235= list(4,VV[109],/* INLINE-ARGS */V230,/* INLINE-ARGS */V231,number_plus(V232,/* INLINE-ARGS */V234));          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));
1551          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V235)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240)));
1552          goto T671;}          goto T702;}
1553  goto T677;  goto T708;
1554  T677:;  T708:;
1555          if(!(type_of((V214))==t_fixnum||          if(!(type_of((V219))==t_fixnum||
1556  type_of((V214))==t_bignum||  type_of((V219))==t_bignum||
1557  type_of((V214))==t_ratio||  type_of((V219))==t_ratio||
1558  type_of((V214))==t_shortfloat||  type_of((V219))==t_shortfloat||
1559  type_of((V214))==t_longfloat||  type_of((V219))==t_longfloat||
1560  type_of((V214))==t_complex)){  type_of((V219))==t_complex)){
1561          goto T692;}          goto T719;}
1562          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
1563          (void)((*(LnkLI270))((V214)));          (void)((*(LnkLI277))((V219)));
1564          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1565          V236= list(2,VV[91],(V213));          V241= list(2,VV[91],(V218));
1566          V237= list(3,VV[111],/* INLINE-ARGS */V236,(*(LnkLI294))(VV[112],(V214)));          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219)));
1567          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V237)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242)));
1568          goto T671;          goto T702;
1569  goto T692;  goto T719;
1570  T692:;  T719:;
1571          princ_char(10,VV[31]);          princ_char(10,VV[31]);
1572          (void)((*(LnkLI270))((V214)));          (void)((*(LnkLI277))((V219)));
1573          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1574          V238= list(2,VV[91],(V213));          V243= list(2,VV[91],(V218));
1575          V239= list(3,VV[111],/* INLINE-ARGS */V238,(*(LnkLI294))(VV[113],(V214)));          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219)));
1576          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V239)));}          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));}
1577  goto T671;  goto T702;
1578  T671:;  T702:;
1579          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){
1580          goto T703;}          goto T730;}
1581          {object V240 = sputprop((V213),VV[115],Ct);          {object V245 = sputprop((V218),VV[115],Ct);
1582          VMR19(V240)}          VMR19(V245)}
1583  goto T703;  goto T730;
1584  T703:;  T730:;
1585          {object V241 = Cnil;          {object V246 = Cnil;
1586          VMR19(V241)}          VMR19(V246)}
1587          base[0]=base[0];          base[0]=base[0];
1588          return Cnil;          return Cnil;
1589  }  }
1590  /*      local entry for function ADD-DEBUG      */  /*      local entry for function ADD-DEBUG      */
1591    
1592  static object LI20(V244,V245)  static object LI20(V249,V250)
1593    
1594  object V244;object V245;  object V249;object V250;
1595  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1596  goto TTL;  goto TTL;
1597  TTL:;  TTL:;
1598          {object V246 = putprop((V244),(V245),VV[116]);          {object V251 = putprop((V249),(V250),VV[116]);
1599          VMR20(V246)}          VMR20(V251)}
1600          return Cnil;          return Cnil;
1601  }  }
1602  /*      local entry for function T3DEFUN        */  /*      local entry for function T3DEFUN        */
1603    
1604  static object LI21(V252,V253,V254,V255,V256)  static object LI21(V257,V258,V259,V260,V261)
1605    
1606  register object V252;register object V253;register object V254;object V255;object V256;  register object V257;register object V258;register object V259;object V260;object V261;
1607  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1608          bds_check;          bds_check;
1609  goto TTL;  goto TTL;
1610  TTL:;  TTL:;
1611          {register object V257;          {register object V262;
1612          V257= Cnil;          V262= Cnil;
1613          bds_bind(VV[0],list(2,VV[51],(V252)));          bds_bind(VV[0],list(2,VV[51],(V257)));
1614          bds_bind(VV[20],(*(LnkLI299))(cadr((V254))));          bds_bind(VV[20],(*(LnkLI306))(cadr((V259))));
1615          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
1616          {register object V258;          {register object V263;
1617          register object V259;          register object V264;
1618          V258= symbol_value(VV[78]);          V263= symbol_value(VV[78]);
1619          V259= car((V258));          V264= car((V263));
1620  goto T715;  goto T742;
1621  T715:;  T742:;
1622          if(!(endp_prop((V258)))){          if(!(endp_prop((V263)))){
1623          goto T716;}          goto T743;}
1624          goto T710;          goto T737;
1625  goto T716;  goto T743;
1626  T716:;{object V260;  T743:;{object V265;
1627          base[4]= cadddr((V259));          base[4]= cadddr((V264));
1628          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1629          (void) (*Lnk300)();          (void) (*Lnk307)();
1630          vs_top=sup;          vs_top=sup;
1631          V260= vs_base[0];          V265= vs_base[0];
1632          if(V260==Cnil)goto T721;          if(V265==Cnil)goto T748;
1633          goto T720;          goto T747;
1634  goto T721;  goto T748;
1635  T721:;}  T748:;}
1636          base[4]= VV[118];          base[4]= VV[118];
1637          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1638          Lerror();          Lerror();
1639          vs_top=sup;          vs_top=sup;
1640  goto T720;  goto T747;
1641  T720:;  T747:;
1642          if((car((V259)))==((V252))){          if((car((V264)))==((V257))){
1643          goto T726;}          goto T753;}
1644          goto T725;          goto T752;
1645  goto T726;  goto T753;
1646  T726:;  T753:;
1647          if((cadr(cddddr((V259))))==Cnil){          if((cadr(cddddr((V264))))==Cnil){
1648          goto T728;}          goto T755;}
1649          goto T725;          goto T752;
1650  goto T728;  goto T755;
1651  T728:;  T755:;
1652          V257= (V259);          V262= (V264);
1653          if(((V257))==Cnil){          if(((V262))==Cnil){
1654          goto T710;}          goto T737;}
1655          goto T711;          goto T738;
1656  goto T725;  goto T752;
1657  T725:;  T752:;
1658          V258= cdr((V258));          V263= cdr((V263));
1659          V259= car((V258));          V264= car((V263));
1660          goto T715;}          goto T742;}
1661  goto T711;  goto T738;
1662  T711:;  T738:;
1663          if(((VFUN_NARGS=1,(*(LnkLI292))((V252))))!=Cnil){          if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){
1664          goto T736;}          goto T763;}
1665          {object V261;          {object V266;
1666          V261= list(4,(V252),(V253),cadr((V257)),caddr((V257)));          V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));
1667          setq(VV[29],make_cons((V261),symbol_value(VV[29])));}          setq(VV[29],make_cons((V266),symbol_value(VV[29])));}
1668  goto T736;  goto T763;
1669  T736:;  T763:;
1670          V262= structure_ref(cadr((V254)),VV[62],1);          V267= structure_ref(cadr((V259)),VV[62],1);
1671          (void)((*(LnkLI301))(/* INLINE-ARGS */V262,small_fixnum(0)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0)));
1672          base[3]= VV[119];          base[3]= VV[119];
1673          {object V263= caddr((V257));          {object V268= caddr((V262));
1674          if((V263!= VV[89]))goto T744;          if((V268!= VV[89]))goto T771;
1675          base[4]= VV[120];          base[4]= VV[120];
1676          goto T743;          goto T770;
1677  goto T744;  goto T771;
1678  T744:;  T771:;
1679          if((V263!= VV[142]))goto T745;          if((V268!= VV[142]))goto T772;
1680          base[4]= VV[121];          base[4]= VV[121];
1681          goto T743;          goto T770;
1682  goto T745;  goto T772;
1683  T745:;  T772:;
1684          if((V263!= VV[143]))goto T746;          if((V268!= VV[143]))goto T773;
1685          base[4]= VV[122];          base[4]= VV[122];
1686          goto T743;          goto T770;
1687  goto T746;  goto T773;
1688  T746:;  T773:;
1689          if((V263!= VV[144]))goto T747;          if((V268!= VV[144]))goto T774;
1690          base[4]= VV[123];          base[4]= VV[123];
1691          goto T743;          goto T770;
1692  goto T747;  goto T774;
1693  T747:;  T774:;
1694          base[4]= VV[124];}          base[4]= VV[124];}
1695  goto T743;  goto T770;
1696  T743:;  T770:;
1697          base[5]= (V252);          base[5]= (V257);
1698          base[6]= (V253);          base[6]= (V258);
1699          base[7]= (V254);          base[7]= (V259);
1700          base[8]= (V256);          base[8]= (V261);
1701          base[9]= (V257);          base[9]= (V262);
1702          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1703          (void) (*Lnk302)();          (void) (*Lnk309)();
1704          vs_top=sup;          vs_top=sup;
1705          goto T708;          goto T735;
1706  goto T710;  goto T737;
1707  T710:;  T737:;
1708          if(((*(LnkLI297))((V252)))==Cnil){          if(((*(LnkLI304))((V257)))==Cnil){
1709          goto T754;}          goto T781;}
1710          V264= structure_ref(cadr((V254)),VV[62],1);          V269= structure_ref(cadr((V259)),VV[62],1);
1711          (void)((*(LnkLI301))(/* INLINE-ARGS */V264,small_fixnum(0)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V269,small_fixnum(0)));
1712          base[3]= VV[125];          base[3]= VV[125];
1713          base[4]= VV[124];          base[4]= VV[124];
1714          base[5]= (V252);          base[5]= (V257);
1715          base[6]= (V253);          base[6]= (V258);
1716          base[7]= (V254);          base[7]= (V259);
1717          base[8]= (V256);          base[8]= (V261);
1718          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1719          (void) (*Lnk302)();          (void) (*Lnk309)();
1720          vs_top=sup;          vs_top=sup;
1721          goto T708;          goto T735;
1722  goto T754;  goto T781;
1723  T754:;  T781:;
1724          V265= structure_ref(cadr((V254)),VV[62],1);          V270= structure_ref(cadr((V259)),VV[62],1);
1725          (void)((*(LnkLI301))(/* INLINE-ARGS */V265,small_fixnum(2)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2)));
1726          base[3]= VV[126];          base[3]= VV[126];
1727          base[4]= VV[127];          base[4]= VV[127];
1728          base[5]= (V252);          base[5]= (V257);
1729          base[6]= (V253);          base[6]= (V258);
1730          base[7]= (V254);          base[7]= (V259);
1731          base[8]= (V256);          base[8]= (V261);
1732          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1733          (void) (*Lnk302)();          (void) (*Lnk309)();
1734          vs_top=sup;          vs_top=sup;
1735  goto T708;  goto T735;
1736  T708:;  T735:;
1737          (void)((*(LnkLI303))((V253)));          (void)((*(LnkLI310))((V258)));
1738          {object V266 = (*(LnkLI304))((V252),(V254));          {object V271 = (*(LnkLI311))((V257),(V259));
1739          bds_unwind1;          bds_unwind1;
1740          bds_unwind1;          bds_unwind1;
1741          bds_unwind1;          bds_unwind1;
1742          VMR21(V266)}}          VMR21(V271)}}
1743          base[0]=base[0];          base[0]=base[0];
1744          return Cnil;          return Cnil;
1745  }  }
# Line 1706  static void L22() Line 1750  static void L22()
1750          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1751          vs_reserve(VM22);          vs_reserve(VM22);
1752          bds_check;          bds_check;
1753          {object V267;          {object V272;
1754          object V268;          object V273;
1755          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1756          V267=(base[0]);          V272=(base[0]);
1757          bds_bind(VV[128],base[1]);          bds_bind(VV[128],base[1]);
1758          vs_base=vs_base+2;          vs_base=vs_base+2;
1759          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1760          {object *p=vs_top;          {object *p=vs_top;
1761           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1762          V268=(base[2]);          V273=(base[2]);
1763          vs_top=sup;          vs_top=sup;
1764          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
1765          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
# Line 1731  static void L22() Line 1775  static void L22()
1775          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
1776          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
1777          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
1778          base[16]= (V267);          base[16]= (V272);
1779          {object V269;          {object V274;
1780          V269= (V268);          V274= (V273);
1781           vs_top=base+17;           vs_top=base+17;
1782           while(!endp(V269))           while(!endp(V274))
1783           {vs_push(car(V269));V269=cdr(V269);}           {vs_push(car(V274));V274=cdr(V274);}
1784          vs_base=base+17;}          vs_base=base+17;}
1785          super_funcall_no_event(base[16]);          super_funcall_no_event(base[16]);
1786          bds_unwind1;          bds_unwind1;
# Line 1758  static void L22() Line 1802  static void L22()
1802  }  }
1803  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */
1804    
1805  static object LI23(V275,V276,V277,V278,V279)  static object LI23(V280,V281,V282,V283,V284)
1806    
1807  object V275;object V276;object V277;object V278;object V279;  object V280;object V281;object V282;object V283;object V284;
1808  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1809          bds_check;          bds_check;
1810  goto TTL;  goto TTL;
1811  TTL:;  TTL:;
         {object V280;  
         object V281;  
         V280= Cnil;  
         V281= caaddr((V277));  
         {register object V282;  
         object V283;  
         V283= cadr((V279));  
         V282= (V281);  
 goto T781;  
 T781:;  
         if(!(endp_prop((V282)))){  
         goto T782;}  
         goto T778;  
 goto T782;  
 T782:;  
         V284= structure_ref(car((V282)),VV[69],1);  
         if(!((/* INLINE-ARGS */V284)==(VV[71]))){  
         goto T788;}  
1812          {object V285;          {object V285;
1813          V286= car((V282));          object V286;
1814          V287= structure_ref(car((V282)),VV[69],4);          V285= Cnil;
1815          V285= make_cons(/* INLINE-ARGS */V286,/* INLINE-ARGS */V287);          V286= caaddr((V282));
1816          V280= make_cons((V285),(V280));          {register object V287;
1817          goto T786;}          object V288;
1818  goto T788;          V288= cadr((V284));
1819  T788:;          V287= (V286);
1820          V288= car((V282));  goto T808;
1821          {object V290= car((V283));  T808:;
1822          if((V290!= VV[89]))goto T793;          if(!(endp_prop((V287)))){
1823          V289= VV[89];          goto T809;}
1824          goto T792;          goto T805;
1825  goto T793;  goto T809;
1826  T793:;  T809:;
1827          if((V290!= VV[142]))goto T794;          V289= structure_ref(car((V287)),VV[69],1);
1828          V289= VV[142];          if(!((/* INLINE-ARGS */V289)==(VV[71]))){
1829          goto T792;          goto T815;}
1830  goto T794;          {object V290;
1831  T794:;          V291= car((V287));
1832          if((V290!= VV[143]))goto T795;          V292= structure_ref(car((V287)),VV[69],4);
1833          V289= VV[143];          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);
1834          goto T792;          V285= make_cons((V290),(V285));
1835  goto T795;          goto T813;}
1836  T795:;  goto T815;
1837          if((V290!= VV[144]))goto T796;  T815:;
1838          V289= VV[144];          V293= car((V287));
1839          goto T792;          {object V295= car((V288));
1840  goto T796;          if((V295!= VV[89]))goto T820;
1841  T796:;          V294= VV[89];
1842          V289= VV[74];}          goto T819;
1843  goto T792;  goto T820;
1844  T792:;  T820:;
1845          (void)(structure_set(/* INLINE-ARGS */V288,VV[69],1,V289));          if((V295!= VV[142]))goto T821;
1846  goto T786;          V294= VV[142];
1847  T786:;          goto T819;
1848          V291= car((V282));  goto T821;
1849    T821:;
1850            if((V295!= VV[143]))goto T822;
1851            V294= VV[143];
1852            goto T819;
1853    goto T822;
1854    T822:;
1855            if((V295!= VV[144]))goto T823;
1856            V294= VV[144];
1857            goto T819;
1858    goto T823;
1859    T823:;
1860            V294= VV[74];}
1861    goto T819;
1862    T819:;
1863            (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));
1864    goto T813;
1865    T813:;
1866            V296= car((V287));
1867          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
1868          (void)(structure_set(/* INLINE-ARGS */V291,VV[69],4,symbol_value(VV[88])));          (void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88])));
1869          V282= cdr((V282));          V287= cdr((V287));
1870          V283= cdr((V283));          V288= cdr((V288));
1871          goto T781;}          goto T808;}
1872  goto T778;  goto T805;
1873  T778:;  T805:;
1874          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[145],(V275))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280))));
1875          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
1876          base[1]= (*(LnkLI273))(caddr((V279)));          base[1]= (*(LnkLI280))(caddr((V284)));
1877          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1878          (void) (*Lnk274)();          (void) (*Lnk281)();
1879          vs_top=sup;          vs_top=sup;
1880          V292= vs_base[0];          V297= vs_base[0];
1881          (void)((*(LnkLI270))(V292));          (void)((*(LnkLI277))(V297));
1882          princ_str("LI",VV[31]);          princ_str("LI",VV[31]);
1883          (void)((*(LnkLI270))((V276)));          (void)((*(LnkLI277))((V281)));
1884          princ_str("();",VV[31]);          princ_str("();",VV[31]);
1885          princ_str("\nstatic ",VV[25]);          princ_str("\nstatic ",VV[25]);
1886          base[1]= (*(LnkLI273))(caddr((V279)));          base[1]= (*(LnkLI280))(caddr((V284)));
1887          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1888          (void) (*Lnk274)();          (void) (*Lnk281)();
1889          vs_top=sup;          vs_top=sup;
1890          V293= vs_base[0];          V298= vs_base[0];
1891          (void)((*(LnkLI267))(V293));          (void)((*(LnkLI274))(V298));
1892          princ_str("LI",VV[25]);          princ_str("LI",VV[25]);
1893          (void)((*(LnkLI267))((V276)));          (void)((*(LnkLI274))((V281)));
1894          princ_char(40,VV[25]);          princ_char(40,VV[25]);
1895          (void)((*(LnkLI306))((V281),cadr((V279))));          (void)((*(LnkLI313))((V286),cadr((V284))));
1896          {object V294;          {object V299;
1897          V294= symbol_value(VV[136]);          V299= symbol_value(VV[136]);
1898          if((symbol_value(VV[147]))==Cnil){          if((symbol_value(VV[147]))==Cnil){
1899          goto T824;}          goto T851;}
1900          base[1]= make_cons((V275),(V281));          base[1]= make_cons((V280),(V286));
1901          goto T822;          goto T849;
1902  goto T824;  goto T851;
1903  T824:;  T851:;
1904          base[1]= Cnil;          base[1]= Cnil;
1905  goto T822;  goto T849;
1906  T822:;  T849:;
1907          bds_bind(VV[146],base[1]);          bds_bind(VV[146],base[1]);
1908          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
1909          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
1910          V295= structure_ref(cadr((V277)),VV[62],1);          V300= structure_ref(cadr((V282)),VV[62],1);
1911          (void)((*(LnkLI307))(/* INLINE-ARGS */V295,(V276),VV[148]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V300,(V281),VV[148]));
1912          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
1913          (void)((*(LnkLI267))((V294)));          (void)((*(LnkLI274))((V299)));
1914          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
1915          (void)((*(LnkLI267))((V294)));          (void)((*(LnkLI274))((V299)));
1916          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
1917          (void)((*(LnkLI267))((V294)));          (void)((*(LnkLI274))((V299)));
1918          if(((V278))==Cnil){          if(((V283))==Cnil){
1919          goto T836;}          goto T863;}
1920          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
1921  goto T836;  goto T863;
1922  T836:;  T863:;
1923          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
1924          goto T840;}          goto T867;}
1925          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
1926  goto T840;  goto T867;
1927  T840:;  T867:;
1928          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
1929          goto T844;}          goto T871;}
1930          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
1931          princ_str("\ngoto TTL;",VV[25]);          princ_str("\ngoto TTL;",VV[25]);
1932          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
1933  goto T844;  goto T871;
1934  T844:;  T871:;
1935          {register object V297;          {register object V302;
1936          register object V298;          register object V303;
1937          V297= (V280);          V302= (V285);
1938          V298= car((V297));          V303= car((V302));
1939  goto T856;  goto T883;
1940  T856:;  T883:;
1941          if(!(endp_prop((V297)))){          if(!(endp_prop((V302)))){
1942          goto T857;}          goto T884;}
1943          goto T852;          goto T879;
1944  goto T857;  goto T884;
1945  T857:;  T884:;
1946          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[25]);
1947          (void)((*(LnkLI267))(cdr((V298))));          (void)((*(LnkLI274))(cdr((V303))));
1948          princ_str("],V",VV[25]);          princ_str("],V",VV[25]);
1949          V299= structure_ref(car((V298)),VV[69],4);          V304= structure_ref(car((V303)),VV[69],4);
1950          (void)((*(LnkLI267))(/* INLINE-ARGS */V299));          (void)((*(LnkLI274))(/* INLINE-ARGS */V304));
1951          princ_str(");",VV[25]);          princ_str(");",VV[25]);
1952          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));
1953          (void)(structure_set(car((V298)),VV[69],1,VV[71]));          (void)(structure_set(car((V303)),VV[69],1,VV[71]));
1954          (void)(structure_set(car((V298)),VV[69],4,cdr((V298))));          (void)(structure_set(car((V303)),VV[69],4,cdr((V303))));
1955          V297= cdr((V297));          V302= cdr((V302));
1956          V298= car((V297));          V303= car((V302));
1957          goto T856;}          goto T883;}
1958  goto T852;  goto T879;
1959  T852:;  T879:;
1960          base[3]= caddr(cddr((V277)));          base[3]= caddr(cddr((V282)));
1961          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1962          (void) (*Lnk308)();          (void) (*Lnk315)();
1963          vs_top=sup;          vs_top=sup;
1964          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
1965          goto T880;}          goto T907;}
1966          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
1967          goto T880;}          goto T907;}
1968          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
1969          goto T880;}          goto T907;}
1970          goto T878;          goto T905;
1971  goto T880;  goto T907;
1972  T880:;  T907:;
1973          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
1974  goto T878;  goto T905;
1975  T878:;  T905:;
1976          V301= (*(LnkLI273))(caddr((V279)));          V306= (*(LnkLI280))(caddr((V284)));
1977          if(!(equal(VV[152],/* INLINE-ARGS */V301))){          if(!(equal(VV[152],/* INLINE-ARGS */V306))){
1978          goto T887;}          goto T914;}
1979          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
1980  goto T887;  goto T914;
1981  T887:;  T914:;
1982          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
1983          {object V302 = (*(LnkLI309))((V294),caddr((V279)));          {object V307 = (*(LnkLI316))((V299),caddr((V284)));
1984          bds_unwind1;          bds_unwind1;
1985          bds_unwind1;          bds_unwind1;
1986          VMR23(V302)}}}          VMR23(V307)}}}
1987          base[0]=base[0];          base[0]=base[0];
1988          return Cnil;          return Cnil;
1989  }  }
1990  /*      local entry for function SET-UP-VAR-CVS */  /*      local entry for function SET-UP-VAR-CVS */
1991    
1992  static object LI24(V304)  static object LI24(V309)
1993    
1994  object V304;  object V309;
1995  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1996  goto TTL;  goto TTL;
1997  TTL:;  TTL:;
1998          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[153]))==Cnil){
1999          goto T894;}          goto T921;}
2000          V305= (*(LnkLI310))();          V310= (*(LnkLI317))();
2001          {object V306 = structure_set((V304),VV[69],2,/* INLINE-ARGS */V305);          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);
2002          VMR24(V306)}          VMR24(V311)}
2003  goto T894;  goto T921;
2004  T894:;  T921:;
2005          V307= (*(LnkLI311))();          V312= (*(LnkLI318))();
2006          {object V308 = structure_set((V304),VV[69],2,/* INLINE-ARGS */V307);          {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);
2007          VMR24(V308)}          VMR24(V313)}
2008          return Cnil;          return Cnil;
2009  }  }
2010  /*      local entry for function T3DEFUN-VARARG */  /*      local entry for function T3DEFUN-VARARG */
2011    
2012  static object LI25(V313,V314,V315,V316)  static object LI25(V318,V319,V320,V321)
2013    
2014  object V313;object V314;object V315;object V316;  object V318;object V319;object V320;object V321;
2015  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2016          bds_check;          bds_check;
2017  goto TTL;  goto TTL;
2018  TTL:;  TTL:;
2019          {object V317;          {object V322;
2020          register object V318;          register object V323;
         object V319;  
         object V320;  
         object V321;  
         object V322;  
         object V323;  
2021          object V324;          object V324;
2022          V317= Cnil;          object V325;
2023            object V326;
2024            object V327;
2025            object V328;
2026            object V329;
2027            V322= Cnil;
2028          bds_bind(VV[153],Cnil);          bds_bind(VV[153],Cnil);
2029          base[1]= Cnil;          base[1]= Cnil;
2030          V318= Cnil;          V323= Cnil;
2031          V319= Ct;          V324= Ct;
2032          V320= Cnil;          V325= Cnil;
2033          bds_bind(VV[154],small_fixnum(0));          bds_bind(VV[154],small_fixnum(0));
2034          V321= Cnil;          V326= Cnil;
2035          V322= caddr((V315));          V327= caddr((V320));
2036          V323= Cnil;{object V325;          V328= Cnil;{object V330;
2037          V325= caddr((V322));          V330= caddr((V327));
2038          if(V325==Cnil)goto T904;          if(V330==Cnil)goto T931;
2039          V324= V325;          V329= V330;
2040          goto T903;          goto T930;
2041  goto T904;  goto T931;
2042  T904:;}{object V326;  T931:;}{object V331;
2043          V326= cadr((V322));          V331= cadr((V327));
2044          if(V326==Cnil)goto T906;          if(V331==Cnil)goto T933;
2045          V324= V326;          V329= V331;
2046          goto T903;          goto T930;
2047  goto T906;  goto T933;
2048  T906:;}  T933:;}
2049          V324= cadddr((V322));          V329= cadddr((V327));
2050  goto T903;  goto T930;
2051  T903:;  T930:;
2052          {object V327;          {object V332;
2053          register object V328;          register object V333;
2054          V327= car((V322));          V332= car((V327));
2055          V328= car((V327));          V333= car((V332));
2056  goto T912;  goto T939;
2057  T912:;  T939:;
2058          if(!(endp_prop((V327)))){          if(!(endp_prop((V332)))){
2059          goto T913;}          goto T940;}
2060          goto T908;          goto T935;
2061  goto T913;  goto T940;
2062  T913:;  T940:;
2063          {object V329;          {object V334;
2064          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
2065          V329= list(2,VV[155],symbol_value(VV[88]));          V334= list(2,VV[155],symbol_value(VV[88]));
2066          V317= make_cons((V329),(V317));}          V322= make_cons((V334),(V322));}
2067          V327= cdr((V327));          V332= cdr((V332));
2068          V328= car((V327));          V333= car((V332));
2069          goto T912;}          goto T939;}
2070  goto T908;  goto T935;
2071  T908:;  T935:;
2072          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[156],(V313))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318))));
2073          princ_str("\nstatic object LI",VV[31]);          {object V335;
2074          (void)((*(LnkLI270))((V314)));          V335= VV[157];
         princ_str("();",VV[31]);  
2075          princ_str("\nstatic object LI",VV[25]);          princ_str("\nstatic object LI",VV[25]);
2076          (void)((*(LnkLI267))((V314)));          (void)((*(LnkLI274))((V319)));
2077          princ_char(40,VV[25]);          princ_char(40,VV[25]);
2078          (void)((*(LnkLI312))((V317)));          if(((V322))==Cnil){
2079          if(((V324))==Cnil){          goto T959;}
2080          goto T936;}          {object V336;
2081          if(((V317))==Cnil){          V336= (V322);
2082          goto T939;}  goto T963;
2083    T963:;
2084            if(((V336))!=Cnil){
2085            goto T964;}
2086            goto T959;
2087    goto T964;
2088    T964:;
2089            princ_str("object ",VV[25]);
2090            (void)((*(LnkLI274))(car((V336))));
2091            V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[159]));
2092            if(!((cdr((V336)))==Cnil)){
2093            goto T974;}
2094            goto T973;
2095    goto T974;
2096    T974:;
2097          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2098  goto T939;          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160]));
2099  T939:;  goto T973;
2100          princ_str("va_alist",VV[25]);  T973:;
2101  goto T936;          V336= cdr((V336));
2102  T936:;          goto T963;}
2103    goto T959;
2104    T959:;
2105            if(((V329))==Cnil){
2106            goto T982;}
2107            if(((V322))==Cnil){
2108            goto T985;}
2109            princ_char(44,VV[25]);
2110            V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161]));
2111    goto T985;
2112    T985:;
2113            princ_str("object first,...",VV[25]);
2114            V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162]));
2115    goto T982;
2116    T982:;
2117          princ_char(41,VV[25]);          princ_char(41,VV[25]);
2118          if(((V317))==Cnil){          princ_str("\nstatic object LI",VV[31]);
2119          goto T946;}          (void)((*(LnkLI277))((V319)));
2120          princ_str("\n   object ",VV[25]);          princ_char(40,VV[31]);
2121          (void)((*(LnkLI312))((V317)));          (void)((*(LnkLI277))((V335)));
2122          princ_char(59,VV[25]);          princ_str(");",VV[31]);}
2123  goto T946;          {object V337;
2124  T946:;          V337= symbol_value(VV[136]);
         if(((V324))==Cnil){  
         goto T953;}  
         princ_str("\n   va_dcl ",VV[25]);  
 goto T953;  
 T953:;  
         {object V330;  
         V330= symbol_value(VV[136]);  
2125          if(symbol_value(VV[147])==Cnil){          if(symbol_value(VV[147])==Cnil){
2126          base[5]= Cnil;          base[5]= Cnil;
2127          goto T958;}          goto T1002;}
2128          if((caddr((V322)))==Cnil){          if((caddr((V327)))==Cnil){
2129          goto T959;}          goto T1003;}
2130          base[5]= Cnil;          base[5]= Cnil;
2131          goto T958;          goto T1002;
2132  goto T959;  goto T1003;
2133  T959:;  T1003:;
2134          {object V331;          {object V338;
2135          object V332;          object V339;
2136          V331= car((V322));          V338= car((V327));
2137          V332= car((V331));          V339= car((V338));
2138  goto T966;  goto T1010;
2139  T966:;  T1010:;
2140          if(!(endp_prop((V331)))){          if(!(endp_prop((V338)))){
2141          goto T967;}          goto T1011;}
2142          goto T961;          goto T1005;
2143  goto T967;  goto T1011;
2144  T967:;  T1011:;
2145          if((structure_ref((V332),VV[69],3))==Cnil){          if((structure_ref((V339),VV[69],3))==Cnil){
2146          goto T971;}          goto T1015;}
2147          goto T962;          goto T1006;
2148  goto T971;  goto T1015;
2149  T971:;  T1015:;
2150          V331= cdr((V331));          V338= cdr((V338));
2151          V332= car((V331));          V339= car((V338));
2152          goto T966;}          goto T1010;}
2153  goto T962;  goto T1006;
2154  T962:;  T1006:;
2155          base[5]= Cnil;          base[5]= Cnil;
2156          goto T958;          goto T1002;
2157  goto T961;  goto T1005;
2158  T961:;  T1005:;
2159          if((cadr((V322)))==Cnil){          if((cadr((V327)))==Cnil){
2160          goto T979;}          goto T1023;}
2161          base[5]= Cnil;          base[5]= Cnil;
2162          goto T958;          goto T1002;
2163  goto T979;  goto T1023;
2164  T979:;  T1023:;
2165          if((car(cddddr((V322))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2166          goto T981;}          goto T1025;}
2167          base[5]= Cnil;          base[5]= Cnil;
2168          goto T958;          goto T1002;
2169  goto T981;  goto T1025;
2170  T981:;  T1025:;
2171          base[5]= make_cons((V313),car((V322)));          base[5]= make_cons((V318),car((V327)));
2172  goto T958;  goto T1002;
2173  T958:;  T1002:;
2174          bds_bind(VV[146],base[5]);          bds_bind(VV[146],base[5]);
2175          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
2176          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[25]);
2177          if(((V324))==Cnil){          if(((V329))==Cnil){
2178          goto T985;}          goto T1029;}
2179          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[25]);
2180  goto T985;  goto T1029;
2181  T985:;  T1029:;
2182          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);
2183          V333= structure_ref(cadr((V315)),VV[62],1);          V340= structure_ref(cadr((V320)),VV[62],1);
2184          (void)((*(LnkLI307))(/* INLINE-ARGS */V333,(V314),VV[148]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V340,(V319),VV[148]));
2185          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[25]);
2186          (void)((*(LnkLI267))((V330)));          (void)((*(LnkLI274))((V337)));
2187          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
2188          (void)((*(LnkLI267))((V330)));          (void)((*(LnkLI274))((V337)));
2189          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
2190          (void)((*(LnkLI267))((V330)));          (void)((*(LnkLI274))((V337)));
2191          if(((V316))==Cnil){          if(((V321))==Cnil){
2192          goto T999;}          goto T1043;}
2193          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
2194  goto T999;  goto T1043;
2195  T999:;  T1043:;
2196          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
2197          goto T1003;}          goto T1047;}
2198          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
2199  goto T1003;  goto T1047;
2200  T1003:;  T1047:;
2201          if((V324)!=Cnil){          if((V329)!=Cnil){
2202          goto T1007;}          goto T1051;}
2203          princ_str("\n   if ( narg!= ",VV[25]);          princ_str("\n   if ( narg!= ",VV[25]);
2204          V334 = make_fixnum((long)length((V317)));          V341 = make_fixnum((long)length((V322)));
2205          (void)((*(LnkLI267))(V334));          (void)((*(LnkLI274))(V341));
2206          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);
2207          V335 = make_fixnum((long)length((V317)));          V342 = make_fixnum((long)length((V322)));
2208          (void)((*(LnkLI267))(V335));          (void)((*(LnkLI274))(V342));
2209          princ_str("));",VV[25]);          princ_str("));",VV[25]);
2210  goto T1007;  goto T1051;
2211  T1007:;  T1051:;
2212          {object V336;          {object V343;
2213          object V337;          object V344;
2214          V336= car((V322));          V343= car((V327));
2215          V337= car((V336));          V344= car((V343));
2216  goto T1018;  goto T1062;
2217  T1018:;  T1062:;
2218          if(!(endp_prop((V336)))){          if(!(endp_prop((V343)))){
2219          goto T1019;}          goto T1063;}
2220          goto T1014;          goto T1058;
2221  goto T1019;  goto T1063;
2222  T1019:;  T1063:;
2223          base[9]= (V337);          base[9]= (V344);
2224          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2225          L26(base);          L26(base);
2226          vs_top=sup;          vs_top=sup;
2227          V336= cdr((V336));          V343= cdr((V343));
2228          V337= car((V336));          V344= car((V343));
2229          goto T1018;}          goto T1062;}
2230  goto T1014;  goto T1058;
2231  T1014:;  T1058:;
2232          {object V338;          {object V345;
2233          object V339;          object V346;
2234          V338= cadr((V322));          V345= cadr((V327));
2235          V339= car((V338));          V346= car((V345));
2236  goto T1034;  goto T1078;
2237  T1034:;  T1078:;
2238          if(!(endp_prop((V338)))){          if(!(endp_prop((V345)))){
2239          goto T1035;}          goto T1079;}
2240          goto T1030;          goto T1074;
2241  goto T1035;  goto T1079;
2242  T1035:;  T1079:;
2243          base[9]= car((V339));          base[9]= car((V346));
2244          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2245          L26(base);          L26(base);
2246          vs_top=sup;          vs_top=sup;
2247          if((caddr((V339)))==Cnil){          if((caddr((V346)))==Cnil){
2248          goto T1041;}          goto T1085;}
2249          base[9]= caddr((V339));          base[9]= caddr((V346));
2250          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2251          L26(base);          L26(base);
2252          vs_top=sup;          vs_top=sup;
2253  goto T1041;  goto T1085;
2254  T1041:;  T1085:;
2255          V338= cdr((V338));          V345= cdr((V345));
2256          V339= car((V338));          V346= car((V345));
2257          goto T1034;}          goto T1078;}
2258  goto T1030;  goto T1074;
2259  T1030:;  T1074:;
2260          if((caddr((V322)))==Cnil){          if((caddr((V327)))==Cnil){
2261          goto T1050;}          goto T1094;}
2262          base[7]= caddr((V322));          base[7]= caddr((V327));
2263          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2264          L26(base);          L26(base);
2265          vs_top=sup;          vs_top=sup;
2266  goto T1050;  goto T1094;
2267  T1050:;  T1094:;
2268          {object V340;          {object V347;
2269          object V341;          object V348;
2270          V340= car(cddddr((V322)));          V347= car(cddddr((V327)));
2271          V341= car((V340));          V348= car((V347));
2272  goto T1057;  goto T1101;
2273  T1057:;  T1101:;
2274          if(!(endp_prop((V340)))){          if(!(endp_prop((V347)))){
2275          goto T1058;}          goto T1102;}
2276          goto T1013;          goto T1057;
2277  goto T1058;  goto T1102;
2278  T1058:;  T1102:;
2279          base[9]= cadr((V341));          base[9]= cadr((V348));
2280          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2281          L26(base);          L26(base);
2282          vs_top=sup;          vs_top=sup;
2283          if((cadddr((V341)))==Cnil){          if((cadddr((V348)))==Cnil){
2284          goto T1064;}          goto T1108;}
2285          base[9]= cadddr((V341));          base[9]= cadddr((V348));
2286          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2287          L26(base);          L26(base);
2288          vs_top=sup;          vs_top=sup;
2289  goto T1064;  goto T1108;
2290  T1064:;  T1108:;
2291          V340= cdr((V340));          V347= cdr((V347));
2292          V341= car((V340));          V348= car((V347));
2293          goto T1057;}          goto T1101;}
2294  goto T1013;  goto T1057;
2295  T1013:;  T1057:;
2296          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2297          goto T1075;}          goto T1119;}
2298          goto T1073;          goto T1117;
 goto T1075;  
 T1075:;  
         princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);  
 goto T1073;  
 T1073:;  
         if((cadr((V322)))!=Cnil){  
         goto T1079;}  
         if((caddr((V322)))!=Cnil){  
         goto T1079;}  
         if((cadddr((V322)))==Cnil){  
         goto T1078;}  
 goto T1079;  
 T1079:;  
         if(((V323))!=Cnil){  
         goto T1078;}  
         V323= Ct;  
         princ_str("\n   va_start(ap);",VV[25]);  
 goto T1078;  
 T1078:;  
         if((symbol_value(VV[157]))!=Cnil){  
         goto T1092;}  
         if((symbol_value(VV[158]))==Cnil){  
         goto T1090;}  
 goto T1092;  
 T1092:;  
         if((car((V322)))==Cnil){  
         goto T1090;}  
         princ_str("\n   if(narg <",VV[25]);  
         V342 = make_fixnum((long)length(car((V322))));  
         (void)((*(LnkLI267))(V342));  
         princ_str(") too_few_arguments();",VV[25]);  
 goto T1090;  
 T1090:;  
         {object V343;  
         object V344;  
         V343= car((V322));  
         V344= car((V343));  
 goto T1104;  
 T1104:;  
         if(!(endp_prop((V343)))){  
         goto T1105;}  
         goto T1100;  
 goto T1105;  
 T1105:;  
         (void)((*(LnkLI313))((V344)));  
         V343= cdr((V343));  
         V344= car((V343));  
         goto T1104;}  
 goto T1100;  
 T1100:;  
         {object V345;  
         object V346;  
         V345= cadr((V322));  
         V346= car((V345));  
2299  goto T1119;  goto T1119;
2300  T1119:;  T1119:;
2301          if(!(endp_prop((V345)))){          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);
2302          goto T1120;}  goto T1117;
2303          goto T1115;  T1117:;
2304  goto T1120;          if((cadr((V327)))!=Cnil){
2305  T1120:;          goto T1123;}
2306          (void)((*(LnkLI313))(car((V346))));          if((caddr((V327)))!=Cnil){
2307          V345= cdr((V345));          goto T1123;}
2308          V346= car((V345));          if((cadddr((V327)))==Cnil){
2309          goto T1119;}          goto T1122;}
2310  goto T1115;  goto T1123;
2311  T1115:;  T1123:;
2312          if((caddr((V322)))==Cnil){          if(((V328))!=Cnil){
2313          goto T1130;}          goto T1122;}
2314          (void)((*(LnkLI313))(caddr((V322))));          V328= Ct;
2315  goto T1130;          princ_str("\n   va_start(ap,first);",VV[25]);
2316  T1130:;  goto T1122;
2317          if(((VV[153]->s.s_dbind))==Cnil){  T1122:;
2318            if((symbol_value(VV[163]))!=Cnil){
2319          goto T1136;}          goto T1136;}
2320          V320= symbol_value(VV[129]);          if((symbol_value(VV[164]))==Cnil){
2321          goto T1134;          goto T1134;}
2322  goto T1136;  goto T1136;
2323  T1136:;  T1136:;
2324          V320= symbol_value(VV[141]);          if((car((V327)))==Cnil){
2325            goto T1134;}
2326            princ_str("\n   if(narg <",VV[25]);
2327            V349 = make_fixnum((long)length(car((V327))));
2328            (void)((*(LnkLI274))(V349));
2329            princ_str(") too_few_arguments();",VV[25]);
2330  goto T1134;  goto T1134;
2331  T1134:;  T1134:;
2332          {object V347;          {object V350;
2333          object V348;          object V351;
2334          V347= car(cddddr((V322)));          V350= car((V327));
2335          V348= car((V347));          V351= car((V350));
2336  goto T1142;  goto T1148;
2337  T1142:;  T1148:;
2338          if(!(endp_prop((V347)))){          if(!(endp_prop((V350)))){
2339          goto T1143;}          goto T1149;}
2340          goto T1138;          goto T1144;
2341  goto T1143;  goto T1149;
2342  T1143:;  T1149:;
2343          (void)((*(LnkLI313))(cadr((V348))));          (void)((*(LnkLI320))((V351)));
2344          V347= cdr((V347));          V350= cdr((V350));
2345          V348= car((V347));          V351= car((V350));
2346          goto T1142;}          goto T1148;}
2347  goto T1138;  goto T1144;
2348  T1138:;  T1144:;
2349          {object V349;          {object V352;
2350          object V350;          object V353;
2351          V349= car(cddddr((V322)));          V352= cadr((V327));
2352          V350= car((V349));          V353= car((V352));
2353  goto T1157;  goto T1163;
2354  T1157:;  T1163:;
2355          if(!(endp_prop((V349)))){          if(!(endp_prop((V352)))){
2356          goto T1158;}          goto T1164;}
2357          goto T1153;          goto T1159;
2358  goto T1158;  goto T1164;
2359  T1158:;  T1164:;
2360          (void)((*(LnkLI313))(cadddr((V350))));          (void)((*(LnkLI320))(car((V353))));
         V349= cdr((V349));  
         V350= car((V349));  
         goto T1157;}  
 goto T1153;  
 T1153:;  
         {object V351;  
         object V352;  
         V352= car((V322));  
         V351= (V317);  
 goto T1171;  
 T1171:;  
         if(((V351))!=Cnil){  
         goto T1172;}  
         goto T1168;  
 goto T1172;  
 T1172:;  
         (void)((*(LnkLI314))(car((V352)),car((V351))));  
         V351= cdr((V351));  
2361          V352= cdr((V352));          V352= cdr((V352));
2362          goto T1171;}          V353= car((V352));
2363  goto T1168;          goto T1163;}
2364  T1168:;  goto T1159;
2365          if((cadr((V322)))==Cnil){  T1159:;
2366          goto T1181;}          if((caddr((V327)))==Cnil){
2367            goto T1174;}
2368            (void)((*(LnkLI320))(caddr((V327))));
2369    goto T1174;
2370    T1174:;
2371            if(((VV[153]->s.s_dbind))==Cnil){
2372            goto T1180;}
2373            V325= symbol_value(VV[129]);
2374            goto T1178;
2375    goto T1180;
2376    T1180:;
2377            V325= symbol_value(VV[141]);
2378    goto T1178;
2379    T1178:;
2380            {object V354;
2381            object V355;
2382            V354= car(cddddr((V327)));
2383            V355= car((V354));
2384    goto T1186;
2385    T1186:;
2386            if(!(endp_prop((V354)))){
2387            goto T1187;}
2388            goto T1182;
2389    goto T1187;
2390    T1187:;
2391            (void)((*(LnkLI320))(cadr((V355))));
2392            V354= cdr((V354));
2393            V355= car((V354));
2394            goto T1186;}
2395    goto T1182;
2396    T1182:;
2397            {object V356;
2398            object V357;
2399            V356= car(cddddr((V327)));
2400            V357= car((V356));
2401    goto T1201;
2402    T1201:;
2403            if(!(endp_prop((V356)))){
2404            goto T1202;}
2405            goto T1197;
2406    goto T1202;
2407    T1202:;
2408            (void)((*(LnkLI320))(cadddr((V357))));
2409            V356= cdr((V356));
2410            V357= car((V356));
2411            goto T1201;}
2412    goto T1197;
2413    T1197:;
2414            {object V358;
2415            object V359;
2416            V359= car((V327));
2417            V358= (V322);
2418    goto T1215;
2419    T1215:;
2420            if(((V358))!=Cnil){
2421            goto T1216;}
2422            goto T1212;
2423    goto T1216;
2424    T1216:;
2425            (void)((*(LnkLI321))(car((V359)),car((V358))));
2426            V358= cdr((V358));
2427            V359= cdr((V359));
2428            goto T1215;}
2429    goto T1212;
2430    T1212:;
2431            if((cadr((V327)))==Cnil){
2432            goto T1225;}
2433          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2434          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2435          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
2436          princ_str("\n   narg = narg - ",VV[25]);          princ_str("\n   narg = narg - ",VV[25]);
2437          V353 = make_fixnum((long)length((V317)));          V360 = make_fixnum((long)length((V322)));
2438          (void)((*(LnkLI267))(V353));          (void)((*(LnkLI274))(V360));
2439          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2440          {object V354;          {object V361;
2441          object V355;          V361= Ct;
2442          V354= cadr((V322));          {object V362;
2443          V355= car((V354));          object V363;
2444  goto T1192;          V362= cadr((V327));
2445  T1192:;          V363= car((V362));
2446          if(!(endp_prop((V354)))){  goto T1236;
2447          goto T1193;}  T1236:;
2448            if(!(endp_prop((V362)))){
2449            goto T1237;}
2450          bds_unwind1;          bds_unwind1;
2451          bds_unwind1;          bds_unwind1;
2452          bds_unwind1;          bds_unwind1;
2453          goto T1184;          goto T1228;
2454  goto T1193;  goto T1237;
2455  T1193:;  T1237:;
2456          {object V356;          {object V364;
2457          setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
2458          V356= make_cons(symbol_value(VV[159]),Cnil);          V364= make_cons(symbol_value(VV[165]),Cnil);
2459          V318= make_cons((V356),(V318));}          V323= make_cons((V364),(V323));}
2460          princ_str("\n   if (",VV[25]);          princ_str("\n   if (",VV[25]);
2461          if((cdr((V318)))==Cnil){          if((cdr((V323)))==Cnil){
2462          goto T1206;}          goto T1250;}
2463          V357= VV[160];          V365= VV[166];
2464          goto T1204;          goto T1248;
2465  goto T1206;  goto T1250;
2466  T1206:;  T1250:;
2467          V357= VV[161];          V365= VV[167];
2468  goto T1204;  goto T1248;
2469  T1204:;  T1248:;
2470          (void)((*(LnkLI267))(V357));          (void)((*(LnkLI274))(V365));
2471          princ_str("narg <= 0) ",VV[25]);          princ_str("narg <= 0) ",VV[25]);
2472          if(type_of(car((V318)))!=t_cons)FEwrong_type_argument(Scons,car((V318)));          if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323)));
2473          (car((V318)))->c.c_cdr = Ct;          (car((V323)))->c.c_cdr = Ct;
2474          (void)(car((V318)));          (void)(car((V323)));
2475          princ_str("goto T",VV[25]);          princ_str("goto T",VV[25]);
2476          (void)((*(LnkLI267))(car(car((V318)))));          (void)((*(LnkLI274))(car(car((V323)))));
2477          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2478          princ_str("\n   else {",VV[25]);          princ_str("\n   else {",VV[25]);
2479          if(((V323))!=Cnil){          if(((V328))!=Cnil){
2480          goto T1216;}          goto T1260;}
2481          V323= Ct;          V328= Ct;
2482          princ_str("\n   va_start(ap);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2483  goto T1216;  goto T1260;
2484  T1216:;  T1260:;
2485          V358= car((V355));          V366= car((V363));
2486          V359= make_cons(VV[162],Cnil);          if(((V361))==Cnil){
2487          (void)((*(LnkLI314))(/* INLINE-ARGS */V358,/* INLINE-ARGS */V359));          goto T1269;}
2488            V367= make_cons(VV[168],Cnil);
2489            goto T1267;
2490    goto T1269;
2491    T1269:;
2492            V367= make_cons(VV[169],Cnil);
2493    goto T1267;
2494    T1267:;
2495            (void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367));
2496            V361= Cnil;
2497          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2498          if((caddr((V355)))==Cnil){          if((caddr((V363)))==Cnil){
2499          goto T1225;}          goto T1275;}
2500          (void)((*(LnkLI314))(caddr((V355)),Ct));          (void)((*(LnkLI321))(caddr((V363)),Ct));
2501  goto T1225;  goto T1275;
2502  T1225:;  T1275:;
2503          V354= cdr((V354));          V362= cdr((V362));
2504          V355= car((V354));          V363= car((V362));
2505          goto T1192;}          goto T1236;}}
2506  goto T1184;  goto T1228;
2507  T1184:;  T1228:;
2508          V318= nreverse((V318));          V323= nreverse((V323));
2509          {object V360;          {object V368;
2510          setq(VV[159],number_plus(symbol_value(VV[159]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
2511          V360= make_cons(symbol_value(VV[159]),Cnil);          V368= make_cons(symbol_value(VV[165]),Cnil);
2512          princ_str("\n   --narg; ",VV[25]);          princ_str("\n   --narg; ",VV[25]);
2513          if(type_of((V360))!=t_cons)FEwrong_type_argument(Scons,(V360));          if(type_of((V368))!=t_cons)FEwrong_type_argument(Scons,(V368));
2514          ((V360))->c.c_cdr = Ct;          ((V368))->c.c_cdr = Ct;
2515          princ_str("goto T",VV[25]);          princ_str("goto T",VV[25]);
2516          (void)((*(LnkLI267))(car((V360))));          (void)((*(LnkLI274))(car((V368))));
2517          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2518          {object V361;          {object V369;
2519          object V362;          object V370;
2520          V361= cadr((V322));          V369= cadr((V327));
2521          V362= car((V361));          V370= car((V369));
2522  goto T1248;  goto T1298;
2523  T1248:;  T1298:;
2524          if(!(endp_prop((V361)))){          if(!(endp_prop((V369)))){
2525          goto T1249;}          goto T1299;}
2526          goto T1244;          goto T1294;
2527  goto T1249;  goto T1299;
2528  T1249:;  T1299:;
2529          if((cdr(car((V318))))==Cnil){          if((cdr(car((V323))))==Cnil){
2530          goto T1253;}          goto T1303;}
2531          princ_str("\ngoto T",VV[25]);          princ_str("\ngoto T",VV[25]);
2532          (void)((*(LnkLI267))(car(car((V318)))));          (void)((*(LnkLI274))(car(car((V323)))));
2533          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2534          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2535          (void)((*(LnkLI267))(car(car((V318)))));          (void)((*(LnkLI274))(car(car((V323)))));
2536          princ_str(":;",VV[25]);          princ_str(":;",VV[25]);
2537  goto T1253;  goto T1303;
2538  T1253:;  T1303:;
2539          {object V363;          {object V371;
2540          V363= car((V318));          V371= car((V323));
2541          V318= cdr((V318));}          V323= cdr((V323));}
2542          (void)((*(LnkLI315))(car((V362)),cadr((V362))));          (void)((*(LnkLI322))(car((V370)),cadr((V370))));
2543          if((caddr((V362)))==Cnil){          if((caddr((V370)))==Cnil){
2544          goto T1268;}          goto T1318;}
2545          (void)((*(LnkLI314))(caddr((V362)),Cnil));          (void)((*(LnkLI321))(caddr((V370)),Cnil));
2546  goto T1268;  goto T1318;
2547  T1268:;  T1318:;
2548          V361= cdr((V361));          V369= cdr((V369));
2549          V362= car((V361));          V370= car((V369));
2550          goto T1248;}          goto T1298;}
2551  goto T1244;  goto T1294;
2552  T1244:;  T1294:;
2553          if((cdr((V360)))==Cnil){          if((cdr((V368)))==Cnil){
2554          goto T1181;}          goto T1225;}
2555          princ_str("\ngoto T",VV[25]);          princ_str("\ngoto T",VV[25]);
2556          (void)((*(LnkLI267))(car((V360))));          (void)((*(LnkLI274))(car((V368))));
2557          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2558          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2559          (void)((*(LnkLI267))(car((V360))));          (void)((*(LnkLI274))(car((V368))));
2560          princ_str(":;",VV[25]);}          princ_str(":;",VV[25]);}
2561  goto T1181;  goto T1225;
2562  T1181:;  T1225:;
2563          if((caddr((V322)))==Cnil){          if((caddr((V327)))==Cnil){
2564          goto T1285;}          goto T1335;}
2565          V321= (VFUN_NARGS=0,(*(LnkLI316))());          V326= (VFUN_NARGS=0,(*(LnkLI323))());
2566          {object V364;          {object V372;
2567          V364= cadr((V322));          V372= cadr((V327));
2568          if(((V364))==Cnil){          if(((V372))==Cnil){
2569          goto T1293;}          goto T1343;}
2570          goto T1290;          goto T1340;
2571  goto T1293;  goto T1343;
2572  T1293:;  T1343:;
2573          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2574          V365 = make_fixnum((long)length(car((V322))));          V373 = make_fixnum((long)length(car((V327))));
2575          (void)((*(LnkLI267))(V365));          (void)((*(LnkLI274))(V373));
2576          princ_char(59,VV[25]);}          princ_char(59,VV[25]);}
2577  goto T1290;  goto T1340;
2578  T1290:;  T1340:;
2579          if(((V323))!=Cnil){          if(((V328))!=Cnil){
2580          goto T1298;}          goto T1348;}
2581          V323= Ct;          V328= Ct;
2582          princ_str("\n   va_start(ap);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2583  goto T1298;  goto T1348;
2584  T1298:;  T1348:;
2585          princ_str("\n   V",VV[25]);          princ_str("\n   V",VV[25]);
2586          (void)((*(LnkLI267))((V321)));          (void)((*(LnkLI274))((V326)));
2587          princ_str(" = ",VV[25]);          princ_str(" = ",VV[25]);
2588          V366= structure_ref(caddr((V322)),VV[69],5);          V374= structure_ref(caddr((V327)),VV[69],5);
2589          if(!((/* INLINE-ARGS */V366)==(VV[164]))){          if(!((/* INLINE-ARGS */V374)==(VV[171]))){
2590          goto T1309;}          goto T1359;}
2591          base[7]= Ct;          base[7]= Ct;
2592          goto T1308;          goto T1358;
2593  goto T1309;  goto T1359;
2594  T1309:;  T1359:;
2595          base[7]= symbol_value(VV[163]);          base[7]= symbol_value(VV[170]);
2596  goto T1308;  goto T1358;
2597  T1308:;  T1358:;
2598          bds_bind(VV[163],base[7]);          bds_bind(VV[170],base[7]);
2599          if((cadddr((V322)))==Cnil){          if((cadddr((V327)))==Cnil){
2600          goto T1313;}          goto T1363;}
2601          if(((VV[163]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2602          goto T1316;}          goto T1366;}
2603          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);
2604          goto T1311;          goto T1361;
2605  goto T1316;  goto T1366;
2606  T1316:;  T1366:;
2607          princ_str("make_list(narg);",VV[25]);          princ_str("make_list(narg);",VV[25]);
2608          goto T1311;          goto T1361;
2609  goto T1313;  goto T1363;
2610  T1313:;  T1363:;
2611          if(((VV[163]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2612          goto T1321;}          goto T1371;}
2613          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);
2614          goto T1311;          goto T1361;
2615  goto T1321;  goto T1371;
2616  T1321:;  T1371:;
2617          princ_str("list_vector(narg,ap);",VV[25]);          princ_str("list_vector_new(narg,first,ap);",VV[25]);
2618  goto T1311;  goto T1361;
2619  T1311:;  T1361:;
2620          V367= caddr((V322));          V375= caddr((V327));
2621          V368= list(2,VV[155],(V321));          V376= list(2,VV[155],(V326));
2622          V369= (*(LnkLI314))(/* INLINE-ARGS */V367,/* INLINE-ARGS */V368);          V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);
2623          bds_unwind1;          bds_unwind1;
 goto T1285;  
 T1285:;  
         if((cadddr((V322)))==Cnil){  
         goto T1325;}  
         {object V370;  
         V370= caddr((V322));  
         if(((V370))==Cnil){  
         goto T1331;}  
         goto T1328;  
 goto T1331;  
 T1331:;  
         {object V371;  
         V371= cadr((V322));  
         if(((V371))==Cnil){  
         goto T1335;}  
         goto T1328;  
2624  goto T1335;  goto T1335;
2625  T1335:;  T1335:;
2626            if((cadddr((V327)))==Cnil){
2627            goto T1375;}
2628            {object V378;
2629            V378= caddr((V327));
2630            if(((V378))==Cnil){
2631            goto T1381;}
2632            goto T1378;
2633    goto T1381;
2634    T1381:;
2635            {object V379;
2636            V379= cadr((V327));
2637            if(((V379))==Cnil){
2638            goto T1385;}
2639            goto T1378;
2640    goto T1385;
2641    T1385:;
2642          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2643          V372 = make_fixnum((long)length(car((V322))));          V380 = make_fixnum((long)length(car((V327))));
2644          (void)((*(LnkLI267))(V372));          (void)((*(LnkLI274))(V380));
2645          princ_char(59,VV[25]);}}          princ_char(59,VV[25]);}}
2646  goto T1328;  goto T1378;
2647  T1328:;  T1378:;
2648          if(((V323))!=Cnil){          if(((V328))!=Cnil){
2649          goto T1340;}          goto T1390;}
2650          V323= Ct;          V328= Ct;
2651          princ_str("\n   va_start(ap);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2652  goto T1340;  goto T1390;
2653  T1340:;  T1390:;
2654          {object V373;          {object V381;
2655          object V374= car(cddddr((V322)));          object V382= car(cddddr((V327)));
2656          if(endp(V374)){          if(endp(V382)){
2657          V319= Cnil;          V324= Cnil;
2658          goto T1347;}          goto T1397;}
2659          base[7]=V373=MMcons(Cnil,Cnil);          base[7]=V381=MMcons(Cnil,Cnil);
2660  goto T1348;  goto T1398;
2661  T1348:;  T1398:;
2662          (V373->c.c_car)= caddr((V374->c.c_car));          (V381->c.c_car)= caddr((V382->c.c_car));
2663          V374=MMcdr(V374);          V382=MMcdr(V382);
2664          if(endp(V374)){          if(endp(V382)){
2665          V319= base[7];          V324= base[7];
2666          goto T1347;}          goto T1397;}
2667          V373=MMcdr(V373)=MMcons(Cnil,Cnil);          V381=MMcdr(V381)=MMcons(Cnil,Cnil);
2668          goto T1348;}          goto T1398;}
2669  goto T1347;  goto T1397;
2670  T1347:;  T1397:;
2671          {object V375;          {object V383;
2672          object V376;          object V384;
2673          V376= make_fixnum((long)length(car(cddddr((V322)))));          V384= make_fixnum((long)length(car(cddddr((V327)))));
2674          V375= Cnil;          V383= Cnil;
2675          {register object V377;          {register object V385;
2676          object V378;          object V386;
2677          object V379;          object V387;
2678          V377= (V319);          V385= (V324);
2679          V378= car(cddddr((V322)));          V386= car(cddddr((V327)));
2680          V379= car((V378));          V387= car((V386));
2681  goto T1356;  goto T1406;
2682  T1356:;  T1406:;
2683          if(((V377))!=Cnil){          if(((V385))!=Cnil){
2684          goto T1357;}          goto T1407;}
2685          goto T1351;          goto T1401;
2686  goto T1357;  goto T1407;
2687  T1357:;  T1407:;
2688          if(!((caar((V377)))==(VV[165]))){          if(!((caar((V385)))==(VV[172]))){
2689          goto T1362;}          goto T1412;}
2690          if((caddr(car((V377))))==(Cnil)){          if((caddr(car((V385))))==(Cnil)){
2691          goto T1361;}          goto T1411;}
2692  goto T1362;  goto T1412;
2693  T1362:;  T1412:;
2694          V375= Ct;          V383= Ct;
2695  goto T1361;  goto T1411;
2696  T1361:;  T1411:;
2697          if(!((caar((V377)))==(VV[165]))){          if(!((caar((V385)))==(VV[172]))){
2698          goto T1368;}          goto T1418;}
2699          {object V380;          {object V388;
2700          V380= caddr(car((V377)));          V388= caddr(car((V385)));
2701          if(!(((V380))==(Cnil))){          if(!(((V388))==(Cnil))){
2702          goto T1374;}          goto T1424;}
2703          goto T1372;          goto T1422;
2704  goto T1374;  goto T1424;
2705  T1374:;  T1424:;
2706          if(type_of((V380))==t_cons){          if(type_of((V388))==t_cons){
2707          goto T1376;}          goto T1426;}
2708          goto T1368;          goto T1418;
2709  goto T1376;  goto T1426;
2710  T1376:;  T1426:;
2711          {register object x= car((V380)),V381= VV[166];          {register object x= car((V388)),V389= VV[173];
2712          while(!endp(V381))          while(!endp(V389))
2713          if(eql(x,V381->c.c_car)){          if(eql(x,V389->c.c_car)){
2714          goto T1372;          goto T1422;
2715          }else V381=V381->c.c_cdr;          }else V389=V389->c.c_cdr;
2716          goto T1368;}}          goto T1418;}}
2717  goto T1372;  goto T1422;
2718  T1372:;  T1422:;
2719          V382= structure_ref(cadddr((V379)),VV[69],1);          V390= structure_ref(cadddr((V387)),VV[69],1);
2720          if((/* INLINE-ARGS */V382)==(VV[167])){          if((/* INLINE-ARGS */V390)==(VV[174])){
2721          goto T1367;}          goto T1417;}
2722  goto T1368;  goto T1418;
2723  T1368:;  T1418:;
2724          V375= Ct;          V383= Ct;
2725          if(type_of(V377)!=t_cons)FEwrong_type_argument(Scons,V377);          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);
2726          (V377)->c.c_car = small_fixnum(0);          (V385)->c.c_car = small_fixnum(0);
2727  goto T1367;  goto T1417;
2728  T1367:;  T1417:;
2729          V377= cdr((V377));          V385= cdr((V385));
2730          V378= cdr((V378));          V386= cdr((V386));
2731          V379= car((V378));          V387= car((V386));
2732          goto T1356;}          goto T1406;}
2733  goto T1351;  goto T1401;
2734  T1351:;  T1401:;
2735          if(!(((long)length((V319)))>(15))){          if(!(((long)length((V324)))>(15))){
2736          goto T1389;}          goto T1439;}
2737          V375= Ct;          V383= Ct;
2738  goto T1389;  goto T1439;
2739  T1389:;  T1439:;
2740          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[25]);
2741          vs_base=vs_top;          vs_base=vs_top;
2742          (void) (*Lnk317)();          (void) (*Lnk324)();
2743          vs_top=sup;          vs_top=sup;
2744          bds_bind(VV[25],symbol_value(VV[31]));          bds_bind(VV[25],symbol_value(VV[31]));
2745          if(((V375))==Cnil){          if(((V383))==Cnil){
2746          goto T1397;}          goto T1447;}
2747          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2748          princ_str("static object VK",VV[25]);          princ_str("static object VK",VV[25]);
2749          (void)((*(LnkLI267))((V314)));          (void)((*(LnkLI274))((V319)));
2750          princ_str("defaults[",VV[25]);          princ_str("defaults[",VV[25]);
2751          V385 = make_fixnum((long)length((V319)));          V393 = make_fixnum((long)length((V324)));
2752          (void)((*(LnkLI267))(V385));          (void)((*(LnkLI274))(V393));
2753          princ_str("]={",VV[25]);          princ_str("]={",VV[25]);
2754          {object V386;          {object V394;
2755          register object V387;          register object V395;
2756          V386= (V319);          V394= (V324);
2757          V387= Cnil;          V395= Cnil;
2758  goto T1409;  goto T1459;
2759  T1409:;  T1459:;
2760          if(((V386))!=Cnil){          if(((V394))!=Cnil){
2761          goto T1410;}          goto T1460;}
2762          goto T1407;          goto T1457;
2763  goto T1410;  goto T1460;
2764  T1410:;  T1460:;
2765          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2766          if(!(eql(car((V386)),small_fixnum(0)))){          if(!(eql(car((V394)),small_fixnum(0)))){
2767          goto T1418;}          goto T1468;}
2768          princ_str("-1",VV[25]);          princ_str("-1",VV[25]);
2769          goto T1416;          goto T1466;
2770  goto T1418;  goto T1468;
2771  T1418:;  T1468:;
2772          V387= caddr(car((V386)));          V395= caddr(car((V394)));
2773          if(!(((V387))==(Cnil))){          if(!(((V395))==(Cnil))){
2774          goto T1422;}          goto T1472;}
2775          princ_str("-2",VV[25]);          princ_str("-2",VV[25]);
2776          goto T1416;          goto T1466;
2777  goto T1422;  goto T1472;
2778  T1422:;  T1472:;
2779          if(!(type_of((V387))==t_cons)){          if(!(type_of((V395))==t_cons)){
2780          goto T1427;}          goto T1477;}
2781          if(!((car((V387)))==(VV[168]))){          if(!((car((V395)))==(VV[175]))){
2782          goto T1427;}          goto T1477;}
2783          (void)((*(LnkLI267))(cadr((V387))));          (void)((*(LnkLI274))(cadr((V395))));
2784          goto T1416;          goto T1466;
2785  goto T1427;  goto T1477;
2786  T1427:;  T1477:;
2787          if(!(type_of((V387))==t_cons)){          if(!(type_of((V395))==t_cons)){
2788          goto T1433;}          goto T1483;}
2789          if(!((car((V387)))==(VV[169]))){          if(!((car((V395)))==(VV[176]))){
2790          goto T1433;}          goto T1483;}
2791          V388= (*(LnkLI318))(caddr((V387)));          V396= (*(LnkLI325))(caddr((V395)));
2792          (void)((*(LnkLI267))(/* INLINE-ARGS */V388));          (void)((*(LnkLI274))(/* INLINE-ARGS */V396));
2793          goto T1416;          goto T1466;
2794  goto T1433;  goto T1483;
2795  T1433:;  T1483:;
2796          (void)((*(LnkLI319))());          (void)((*(LnkLI326))());
2797  goto T1416;  goto T1466;
2798  T1416:;  T1466:;
2799          if((cdr((V386)))==Cnil){          if((cdr((V394)))==Cnil){
2800          goto T1438;}          goto T1488;}
2801          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2802  goto T1438;  goto T1488;
2803  T1438:;  T1488:;
2804          V386= cdr((V386));          V394= cdr((V394));
2805          goto T1409;}          goto T1459;}
2806  goto T1407;  goto T1457;
2807  T1407:;  T1457:;
2808          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2809  goto T1397;  goto T1447;
2810  T1397:;  T1447:;
2811          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2812          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[25]);
2813          princ_str("object *defaults;",VV[25]);          princ_str("object *defaults;",VV[25]);
2814          princ_str("\n    KEYTYPE keys[",VV[25]);          princ_str("\n    KEYTYPE keys[",VV[25]);
2815          (void)((*(LnkLI267))((number_compare((V376),small_fixnum(1))>=0?((V376)):small_fixnum(1))));          (void)((*(LnkLI274))((number_compare((V384),small_fixnum(1))>=0?((V384)):small_fixnum(1))));
2816          princ_str("];",VV[25]);          princ_str("];",VV[25]);
2817          princ_str("} LI",VV[25]);          princ_str("} LI",VV[25]);
2818          (void)((*(LnkLI267))((V314)));          (void)((*(LnkLI274))((V319)));
2819          princ_str("key=",VV[25]);          princ_str("key=",VV[25]);
2820          princ_char(123,VV[25]);          princ_char(123,VV[25]);
2821          V389 = make_fixnum((long)length(car(cddddr((V322)))));          V397 = make_fixnum((long)length(car(cddddr((V327)))));
2822          (void)((*(LnkLI267))(V389));          (void)((*(LnkLI274))(V397));
2823          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2824          if((cadr(cddddr((V322))))==Cnil){          if((cadr(cddddr((V327))))==Cnil){
2825          goto T1465;}          goto T1515;}
2826          V390= small_fixnum(1);          V398= small_fixnum(1);
2827          goto T1463;          goto T1513;
2828  goto T1465;  goto T1515;
2829  T1465:;  T1515:;
2830          V390= small_fixnum(0);          V398= small_fixnum(0);
2831  goto T1463;  goto T1513;
2832  T1463:;  T1513:;
2833          (void)((*(LnkLI267))(V390));          (void)((*(LnkLI274))(V398));
2834          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2835          if(((V375))==Cnil){          if(((V383))==Cnil){
2836          goto T1470;}          goto T1520;}
2837          princ_str("VK",VV[25]);          princ_str("VK",VV[25]);
2838          (void)((*(LnkLI267))((V314)));          (void)((*(LnkLI274))((V319)));
2839          princ_str("defaults",VV[25]);          princ_str("defaults",VV[25]);
2840          goto T1468;          goto T1518;
2841  goto T1470;  goto T1520;
2842  T1470:;  T1520:;
2843          princ_str("Cstd_key_defaults",VV[25]);          princ_str("Cstd_key_defaults",VV[25]);
2844  goto T1468;  goto T1518;
2845  T1468:;  T1518:;
2846          if((car(cddddr((V322))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2847          goto T1476;}          goto T1526;}
2848          princ_str(",{",VV[25]);          princ_str(",{",VV[25]);
2849          {object V391;          {object V399;
2850          V391= reverse(car(cddddr((V322))));          V399= reverse(car(cddddr((V327))));
2851  goto T1484;  goto T1534;
2852  T1484:;  T1534:;
2853          if(((V391))!=Cnil){          if(((V399))!=Cnil){
2854          goto T1485;}          goto T1535;}
2855          goto T1481;          goto T1531;
2856  goto T1485;  goto T1535;
2857  T1485:;  T1535:;
2858          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2859          V392= (*(LnkLI320))(caar((V391)));          V400= (*(LnkLI327))(caar((V399)));
2860          (void)((*(LnkLI267))(/* INLINE-ARGS */V392));          (void)((*(LnkLI274))(/* INLINE-ARGS */V400));
2861          if((cdr((V391)))==Cnil){          if((cdr((V399)))==Cnil){
2862          goto T1493;}          goto T1543;}
2863          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2864  goto T1493;  goto T1543;
2865  T1493:;  T1543:;
2866          V391= cdr((V391));          V399= cdr((V399));
2867          goto T1484;}          goto T1534;}
2868  goto T1481;  goto T1531;
2869  T1481:;  T1531:;
2870          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2871  goto T1476;  goto T1526;
2872  T1476:;  T1526:;
2873          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2874          bds_unwind1;          bds_unwind1;
2875          if((caddr((V322)))==Cnil){          if((caddr((V327)))==Cnil){
2876          goto T1504;}          goto T1554;}
2877          princ_str("\n   parse_key_rest(",VV[25]);          princ_str("\n   parse_key_rest_new(",VV[25]);
2878          V393= list(2,VV[155],(V321));          V401= list(2,VV[155],(V326));
2879          (void)((*(LnkLI267))(/* INLINE-ARGS */V393));          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));
2880          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2881          goto T1502;          goto T1552;
2882  goto T1504;  goto T1554;
2883  T1504:;  T1554:;
2884          princ_str("\n   parse_key_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[25]);
2885  goto T1502;  goto T1552;
2886  T1502:;  T1552:;
2887          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){
2888          goto T1510;}          goto T1560;}
2889          setq(VV[141],small_fixnum(1));          setq(VV[141],small_fixnum(1));
2890  goto T1510;  goto T1560;
2891  T1510:;  T1560:;
2892          princ_str("narg,",VV[25]);          princ_str("narg,",VV[25]);
2893          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2894          goto T1518;}          goto T1568;}
2895          V394= VV[170];          V402= VV[177];
2896          goto T1516;          goto T1566;
2897  goto T1518;  goto T1568;
2898  T1518:;  T1568:;
2899          V394= VV[171];          V402= VV[178];
2900  goto T1516;  goto T1566;
2901  T1516:;  T1566:;
2902          (void)((*(LnkLI267))(V394));          (void)((*(LnkLI274))(V402));
2903          princ_char(43,VV[25]);          princ_char(43,VV[25]);
2904          (void)((*(LnkLI267))((V320)));          (void)((*(LnkLI274))((V325)));
2905          princ_str(",(struct key *)&LI",VV[25]);          princ_str(",(struct key *)&LI",VV[25]);
2906          (void)((*(LnkLI267))((V314)));          (void)((*(LnkLI274))((V319)));
2907          princ_str("key,ap);",VV[25]);}          princ_str("key,first,ap);",VV[25]);}
2908  goto T1325;  goto T1375;
2909  T1325:;  T1375:;
2910          {object V395;          {object V403;
2911          register object V396;          register object V404;
2912          V395= car(cddddr((V322)));          V403= car(cddddr((V327)));
2913          V396= car((V395));          V404= car((V403));
2914  goto T1529;  goto T1579;
2915  T1529:;  T1579:;
2916          if(!(endp_prop((V395)))){          if(!(endp_prop((V403)))){
2917          goto T1530;}          goto T1580;}
2918          goto T1525;          goto T1575;
2919  goto T1530;  goto T1580;
2920  T1530:;  T1580:;
2921          {object V398;          {object V406;
2922          V398= car((V319));          V406= car((V324));
2923          V319= cdr((V319));          V324= cdr((V324));
2924          V397= (V398);}          V405= (V406);}
2925          if(eql(small_fixnum(0),V397)){          if(eql(small_fixnum(0),V405)){
2926          goto T1536;}          goto T1586;}
2927          (void)((*(LnkLI321))(cadr((V396))));          (void)((*(LnkLI328))(cadr((V404))));
2928          goto T1534;          goto T1584;
2929  goto T1536;  goto T1586;
2930  T1536:;  T1586:;
2931          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[25]);
2932          V399= structure_ref(cadr((V396)),VV[69],2);          V407= structure_ref(cadr((V404)),VV[69],2);
2933          (void)((*(LnkLI322))(/* INLINE-ARGS */V399));          (void)((*(LnkLI329))(/* INLINE-ARGS */V407));
2934          princ_str("==0){",VV[25]);          princ_str("==0){",VV[25]);
2935          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2936          bds_bind(VV[134],(VV[134]->s.s_dbind));          bds_bind(VV[134],(VV[134]->s.s_dbind));
2937          bds_bind(VV[132],symbol_value(VV[132]));          bds_bind(VV[132],symbol_value(VV[132]));
2938          V400= (*(LnkLI315))(cadr((V396)),caddr((V396)));          V408= (*(LnkLI322))(cadr((V404)),caddr((V404)));
2939          bds_unwind1;          bds_unwind1;
2940          bds_unwind1;          bds_unwind1;
2941          bds_unwind1;          bds_unwind1;
2942          V401= structure_ref(cadddr((V396)),VV[69],1);          V409= structure_ref(cadddr((V404)),VV[69],1);
2943          if((/* INLINE-ARGS */V401)==(VV[167])){          if((/* INLINE-ARGS */V409)==(VV[174])){
2944          goto T1548;}          goto T1598;}
2945          (void)((*(LnkLI314))(cadddr((V396)),Cnil));          (void)((*(LnkLI321))(cadddr((V404)),Cnil));
2946  goto T1548;  goto T1598;
2947  T1548:;  T1598:;
2948          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[25]);
2949          (void)((*(LnkLI321))(cadr((V396))));          (void)((*(LnkLI328))(cadr((V404))));
2950          V402= structure_ref(cadddr((V396)),VV[69],1);          V410= structure_ref(cadddr((V404)),VV[69],1);
2951          if((/* INLINE-ARGS */V402)==(VV[167])){          if((/* INLINE-ARGS */V410)==(VV[174])){
2952          goto T1554;}          goto T1604;}
2953          (void)((*(LnkLI314))(cadddr((V396)),Ct));          (void)((*(LnkLI321))(cadddr((V404)),Ct));
2954  goto T1554;  goto T1604;
2955  T1554:;  T1604:;
2956          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2957  goto T1534;  goto T1584;
2958  T1534:;  T1584:;
2959          V395= cdr((V395));          V403= cdr((V403));
2960          V396= car((V395));          V404= car((V403));
2961          goto T1529;}          goto T1579;}
2962  goto T1525;  goto T1575;
2963  T1525:;  T1575:;
2964          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
2965          goto T1563;}          goto T1613;}
2966          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
2967          princ_str("\ngoto TTL;",VV[25]);          princ_str("\ngoto TTL;",VV[25]);
2968          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
2969  goto T1563;  goto T1613;
2970  T1563:;  T1613:;
2971          base[7]= caddr(cddr((V315)));          base[7]= caddr(cddr((V320)));
2972          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2973          (void) (*Lnk308)();          (void) (*Lnk315)();
2974          vs_top=sup;          vs_top=sup;
2975          if(((V323))==Cnil){          if(((V328))==Cnil){
2976          goto T1573;}          goto T1623;}
2977          V323= Cnil;          V328= Cnil;
2978          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[25]);
2979  goto T1573;  goto T1623;
2980  T1573:;  T1623:;
2981          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
2982          goto T1581;}          goto T1631;}
2983          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
2984          goto T1581;}          goto T1631;}
2985          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
2986          goto T1581;}          goto T1631;}
2987          goto T1579;          goto T1629;
2988  goto T1581;  goto T1631;
2989  T1581:;  T1631:;
2990          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
2991  goto T1579;  goto T1629;
2992  T1579:;  T1629:;
2993          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
2994          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2995          if((base[1])==Cnil){          if((base[1])==Cnil){
2996          goto T1592;}          goto T1642;}
2997          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[25]);
2998  goto T1592;  goto T1642;
2999  T1592:;  T1642:;
3000          (void)((*(LnkLI323))());          (void)((*(LnkLI330))());
3001          V404= get((V313),VV[77],Cnil);          V412= get((V318),VV[77],Cnil);
3002          {object V405 = (*(LnkLI309))((V330),V404);          {object V413 = (*(LnkLI316))((V337),V412);
3003          bds_unwind1;          bds_unwind1;
3004          bds_unwind1;          bds_unwind1;
3005          bds_unwind1;          bds_unwind1;
3006          bds_unwind1;          bds_unwind1;
3007          VMR25(V405)}}}          VMR25(V413)}}}
3008          base[0]=base[0];          base[0]=base[0];
3009          return Cnil;          return Cnil;
3010  }  }
3011  /*      local entry for function T3DEFUN-NORMAL */  /*      local entry for function T3DEFUN-NORMAL */
3012    
3013  static object LI27(V410,V411,V412,V413)  static object LI27(V418,V419,V420,V421)
3014    
3015  object V410;register object V411;object V412;object V413;  object V418;register object V419;object V420;object V421;
3016  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3017  goto TTL;  goto TTL;
3018  TTL:;  TTL:;
3019          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[172],(V410))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418))));
3020          if(!(type_of((V411))==t_fixnum||          if(!(type_of((V419))==t_fixnum||
3021  type_of((V411))==t_bignum||  type_of((V419))==t_bignum||
3022  type_of((V411))==t_ratio||  type_of((V419))==t_ratio||
3023  type_of((V411))==t_shortfloat||  type_of((V419))==t_shortfloat||
3024  type_of((V411))==t_longfloat||  type_of((V419))==t_longfloat||
3025  type_of((V411))==t_complex)){  type_of((V419))==t_complex)){
3026          goto T1601;}          goto T1651;}
3027          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3028          (void)((*(LnkLI267))((V411)));          (void)((*(LnkLI274))((V419)));
3029          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3030          goto T1599;          goto T1649;
3031  goto T1601;  goto T1651;
3032  T1601:;  T1651:;
3033          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3034          (void)((*(LnkLI267))((V411)));          (void)((*(LnkLI274))((V419)));
3035          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3036  goto T1599;  goto T1649;
3037  T1599:;  T1649:;
3038          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
3039          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
3040          (void)((*(LnkLI267))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3041          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3042          V414= structure_ref(cadr((V412)),VV[62],1);          V422= structure_ref(cadr((V420)),VV[62],1);
3043          (void)((*(LnkLI307))(/* INLINE-ARGS */V414,(V411),VV[148]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V422,(V419),VV[148]));
3044          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3045          (void)((*(LnkLI267))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3046          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
3047          (void)((*(LnkLI267))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3048          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3049          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3050          (void)((*(LnkLI267))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3051          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3052          goto T1626;}          goto T1676;}
3053          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3054          (void)((*(LnkLI267))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3055          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3056          goto T1624;          goto T1674;
3057  goto T1626;  goto T1676;
3058  T1626:;  T1676:;
3059          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3060  goto T1624;  goto T1674;
3061  T1624:;  T1674:;
3062          if(((V413))==Cnil){          if(((V421))==Cnil){
3063          goto T1632;}          goto T1682;}
3064          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3065  goto T1632;  goto T1682;
3066  T1632:;  T1682:;
3067          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3068          goto T1636;}          goto T1686;}
3069          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3070  goto T1636;  goto T1686;
3071  T1636:;  T1686:;
3072          (void)((VFUN_NARGS=3,(*(LnkLI324))(caddr((V412)),caddr(cddr((V412))),(V410))));          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418))));
3073          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3074          {object V415;          {object V423;
3075          V415= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));          V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));
3076          setq(VV[33],make_cons((V415),symbol_value(VV[33])));}          setq(VV[33],make_cons((V423),symbol_value(VV[33])));}
3077          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3078          (void)((*(LnkLI270))(symbol_value(VV[136])));          (void)((*(LnkLI277))(symbol_value(VV[136])));
3079          {object V416 = (*(LnkLI325))();          {object V424 = (*(LnkLI332))();
3080          VMR26(V416)}          VMR26(V424)}
3081          base[0]=base[0];          base[0]=base[0];
3082          return Cnil;          return Cnil;
3083  }  }
3084  /*      local entry for function WT-V*-MACROS   */  /*      local entry for function WT-V*-MACROS   */
3085    
3086  static object LI28(V419,V420)  static object LI28(V427,V428)
3087    
3088  register object V419;object V420;  register object V427;object V428;
3089  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
3090  goto TTL;  goto TTL;
3091  TTL:;  TTL:;
3092          {object V421;          {object V429;
3093          V421= make_cons((V419),symbol_value(VV[130]));          V429= make_cons((V427),symbol_value(VV[130]));
3094          setq(VV[33],make_cons((V421),symbol_value(VV[33])));}          setq(VV[33],make_cons((V429),symbol_value(VV[33])));}
3095          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3096          goto T1654;}          goto T1704;}
3097          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[138]))!=Cnil){
3098          goto T1654;}          goto T1704;}
3099          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
3100          goto T1654;}          goto T1704;}
3101          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3102          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3103          goto T1652;          goto T1702;
3104  goto T1654;  goto T1704;
3105  T1654:;  T1704:;
3106          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3107          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3108          princ_char(32,VV[31]);          princ_char(32,VV[31]);
3109          princ_str("register object *",VV[31]);          princ_str("register object *",VV[31]);
3110          (void)((*(LnkLI270))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3111          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[31]);
3112  goto T1652;  goto T1702;
3113  T1652:;  T1702:;
3114          (void)((*(LnkLI325))());          (void)((*(LnkLI332))());
3115          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[138]))==Cnil){
3116          goto T1671;}          goto T1721;}
3117          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3118          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3119          princ_char(32,VV[31]);          princ_char(32,VV[31]);
3120          princ_str(" register object *",VV[31]);          princ_str(" register object *",VV[31]);
3121          (void)((*(LnkLI270))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3122          princ_str("sup=vs_top+",VV[31]);          princ_str("sup=vs_top+",VV[31]);
3123          (void)((*(LnkLI270))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3124          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[31]);
3125          goto T1669;          goto T1719;
3126  goto T1671;  goto T1721;
3127  T1671:;  T1721:;
3128          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3129          goto T1682;}          goto T1732;}
3130          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3131          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3132          goto T1669;          goto T1719;
3133  goto T1682;  goto T1732;
3134  T1682:;  T1732:;
3135          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3136          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3137          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[31]);
3138          (void)((*(LnkLI270))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3139          princ_char(59,VV[31]);          princ_char(59,VV[31]);
3140  goto T1669;  goto T1719;
3141  T1669:;  T1719:;
3142          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3143          goto T1693;}          goto T1743;}
3144          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3145          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3146          goto T1691;          goto T1741;
3147  goto T1693;  goto T1743;
3148  T1693:;  T1743:;
3149          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3150          goto T1698;}          goto T1748;}
3151          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3152          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3153          princ_str(" vs_reserve(",VV[31]);          princ_str(" vs_reserve(",VV[31]);
3154          (void)((*(LnkLI270))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3155          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3156          goto T1691;          goto T1741;
3157  goto T1698;  goto T1748;
3158  T1698:;  T1748:;
3159          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3160          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3161          princ_str(" vs_check;",VV[31]);          princ_str(" vs_check;",VV[31]);
3162  goto T1691;  goto T1741;
3163  T1691:;  T1741:;
3164          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3165          goto T1709;}          goto T1759;}
3166          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3167          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3168          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
3169          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3170          princ_str(") return(VMT",VV[31]);          princ_str(") return(VMT",VV[31]);
3171          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3172          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3173          {object V422 = Cnil;          {object V430 = Cnil;
3174          VMR27(V422)}          VMR27(V430)}
3175  goto T1709;  goto T1759;
3176  T1709:;  T1759:;
3177          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3178          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3179          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[31]);
3180          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3181          princ_str(") vs_top=base ; return(VMT",VV[31]);          princ_str(") vs_top=base ; return(VMT",VV[31]);
3182          (void)((*(LnkLI270))((V419)));          (void)((*(LnkLI277))((V427)));
3183          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3184          {object V423 = Cnil;          {object V431 = Cnil;
3185          VMR27(V423)}          VMR27(V431)}
3186          base[0]=base[0];          base[0]=base[0];
3187          return Cnil;          return Cnil;
3188  }  }
3189  /*      local entry for function WT-REQUIREDS   */  /*      local entry for function WT-REQUIREDS   */
3190    
3191  static object LI29(V426,V427)  static object LI29(V434,V435)
3192    
3193  object V426;object V427;  object V434;object V435;
3194  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3195  goto TTL;  goto TTL;
3196  TTL:;  TTL:;
3197          {register object V428;          {register object V436;
3198          V428= (V426);          V436= (V434);
3199  goto T1727;  goto T1777;
3200  T1727:;  T1777:;
3201          if(!(endp_prop((V428)))){          if(!(endp_prop((V436)))){
3202          goto T1728;}          goto T1778;}
3203          goto T1725;          goto T1775;
3204  goto T1728;  goto T1778;
3205  T1728:;  T1778:;
3206          {register object V429;          {register object V437;
3207          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
3208          V429= symbol_value(VV[88]);          V437= symbol_value(VV[88]);
3209          (void)(structure_set(car((V428)),VV[69],4,(V429)));          (void)(structure_set(car((V436)),VV[69],4,(V437)));
3210          princ_char(86,VV[25]);          princ_char(86,VV[25]);
3211          (void)((*(LnkLI267))((V429)));}          (void)((*(LnkLI274))((V437)));}
3212          if(endp_prop(cdr((V428)))){          if(endp_prop(cdr((V436)))){
3213          goto T1738;}          goto T1788;}
3214          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3215  goto T1738;  goto T1788;
3216  T1738:;  T1788:;
3217          V428= cdr((V428));          V436= cdr((V436));
3218          goto T1727;}          goto T1777;}
3219  goto T1725;  goto T1775;
3220  T1725:;  T1775:;
3221          princ_str(")\n",VV[25]);          princ_str(")\n",VV[25]);
3222          if(((V426))==Cnil){          if(((V434))==Cnil){
3223          goto T1748;}          goto T1798;}
3224          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3225          {register object V430;          {register object V438;
3226          register object V431;          register object V439;
3227          register object V432;          register object V440;
3228          V430= (V426);          V438= (V434);
3229          V431= (V427);          V439= (V435);
3230          V432= Cnil;          V440= Cnil;
3231  goto T1752;  goto T1802;
3232  T1752:;  T1802:;
3233          if(!(endp_prop((V430)))){          if(!(endp_prop((V438)))){
3234          goto T1753;}          goto T1803;}
3235          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3236          {object V433 = Cnil;          {object V441 = Cnil;
3237          VMR28(V433)}          VMR28(V441)}
3238  goto T1753;  goto T1803;
3239  T1753:;  T1803:;
3240          if(((V432))==Cnil){          if(((V440))==Cnil){
3241          goto T1758;}          goto T1808;}
3242          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3243  goto T1758;  goto T1808;
3244  T1758:;  T1808:;
3245          (void)((*(LnkLI267))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3246          V434= (*(LnkLI326))(car((V430)));          V442= (*(LnkLI333))(car((V438)));
3247          (void)((*(LnkLI267))(/* INLINE-ARGS */V434));          (void)((*(LnkLI274))(/* INLINE-ARGS */V442));
3248          V435= (*(LnkLI273))(car((V431)));          V443= (*(LnkLI280))(car((V439)));
3249          (void)((*(LnkLI267))(/* INLINE-ARGS */V435));          (void)((*(LnkLI274))(/* INLINE-ARGS */V443));
3250          V432= car((V431));          V440= car((V439));
3251          princ_char(86,VV[25]);          princ_char(86,VV[25]);
3252          V436= structure_ref(car((V430)),VV[69],4);          V444= structure_ref(car((V438)),VV[69],4);
3253          (void)((*(LnkLI267))(/* INLINE-ARGS */V436));          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));
3254          V430= cdr((V430));          V438= cdr((V438));
3255          V431= cdr((V431));          V439= cdr((V439));
3256          goto T1752;}          goto T1802;}
3257  goto T1748;  goto T1798;
3258  T1748:;  T1798:;
3259          {object V437 = Cnil;          {object V445 = Cnil;
3260          VMR28(V437)}          VMR28(V445)}
3261          return Cnil;          return Cnil;
3262  }  }
3263  /*      local entry for function ADD-DEBUG-INFO */  /*      local entry for function ADD-DEBUG-INFO */
3264    
3265  static object LI30(V440,V441)  static object LI30(V448,V449)
3266    
3267  object V440;object V441;  object V448;object V449;
3268  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3269  goto TTL;  goto TTL;
3270  TTL:;  TTL:;
3271          {object V442;          {object V450;
3272          V442= Cnil;          V450= Cnil;
3273          {object V443;          {object V451;
3274          V443= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);          V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);
3275          if(((V443))==Cnil){          if(((V451))==Cnil){
3276          goto T1778;}          goto T1828;}
3277          {object V444 = (V443);          {object V452 = (V451);
3278          VMR29(V444)}          VMR29(V452)}
3279  goto T1778;  goto T1828;
3280  T1778:;  T1828:;
3281          if((get((V440),VV[115],Cnil))!=Cnil){          if((get((V448),VV[115],Cnil))!=Cnil){
         goto T1781;}  
         {object V445 = (VFUN_NARGS=2,(*(LnkLI327))(VV[173],(V440)));  
         VMR29(V445)}  
 goto T1781;  
 T1781:;  
         (void)(remprop((V440),VV[115]));  
         {register object V446;  
         V446= small_fixnum(0);  
         {register object V447;  
         register object V448;  
         V447= structure_ref(cadr((V441)),VV[62],1);  
         V448= car((V447));  
 goto T1788;  
 T1788:;  
         if(!(endp_prop((V447)))){  
         goto T1789;}  
         goto T1784;  
 goto T1789;  
 T1789:;  
         V449= structure_ref((V448),VV[69],2);  
         if(!(type_of(/* INLINE-ARGS */V449)==t_cons)){  
         goto T1793;}  
         V450= structure_ref((V448),VV[69],2);  
         if(!(type_of(cdr(/* INLINE-ARGS */V450))==t_fixnum)){  
         goto T1793;}  
         V451= structure_ref((V448),VV[69],2);  
         {object V452= cdr(/* INLINE-ARGS */V451);  
         V446= (number_compare((V446),V452)>=0?((V446)):V452);}  
 goto T1793;  
 T1793:;  
         V447= cdr((V447));  
         V448= car((V447));  
         goto T1788;}  
 goto T1784;  
 T1784:;  
         base[0]= one_plus((V446));  
         vs_top=(vs_base=base+0)+1;  
         Lmake_list();  
         vs_top=sup;  
         V442= vs_base[0];  
         {register object V453;  
         register object V454;  
         V453= structure_ref(cadr((V441)),VV[62],1);  
         V454= car((V453));  
 goto T1811;  
 T1811:;  
         if(!(endp_prop((V453)))){  
         goto T1812;}  
         goto T1807;  
 goto T1812;  
 T1812:;  
         V455= structure_ref((V454),VV[69],2);  
         if(!(type_of(/* INLINE-ARGS */V455)==t_cons)){  
         goto T1816;}  
         V456= structure_ref((V454),VV[69],2);  
         if(!(type_of(cdr(/* INLINE-ARGS */V456))==t_fixnum)){  
         goto T1816;}  
         {object V457;  
         register object V459;  
         V460= structure_ref((V454),VV[69],2);  
         V457= cdr(/* INLINE-ARGS */V460);  
         V459= structure_ref((V454),VV[69],0);  
         if(type_of(nthcdr(fixint((V457)),V442))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V457)),V442));  
         (nthcdr(fixint((V457)),V442))->c.c_car = (V459);  
         (void)(nthcdr(fixint((V457)),V442));}  
 goto T1816;  
 T1816:;  
         V453= cdr((V453));  
         V454= car((V453));  
         goto T1811;}  
 goto T1807;  
 T1807:;  
         (void)(sputprop((V440),VV[116],(V442)));  
         {object V461;  
         V461= get((V440),VV[116],Cnil);  
         if(((V461))==Cnil){  
         goto T1832;}  
         if((cdr((V461)))!=Cnil){  
3282          goto T1831;}          goto T1831;}
3283          if((car((V461)))==Cnil){          {object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448)));
3284          goto T1832;}          VMR29(V453)}
3285  goto T1831;  goto T1831;
3286  T1831:;  T1831:;
3287          V462= list(2,VV[91],(V440));          (void)(remprop((V448),VV[115]));
3288          V463= list(3,VV[116],/* INLINE-ARGS */V462,list(2,VV[91],(V461)));          {register object V454;
3289          {object V464 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V463));          V454= small_fixnum(0);
3290          VMR29(V464)}          {register object V455;
3291  goto T1832;          register object V456;
3292  T1832:;          V455= structure_ref(cadr((V449)),VV[62],1);
3293          {object V465 = Cnil;          V456= car((V455));
3294          VMR29(V465)}}}}}  goto T1838;
3295    T1838:;
3296            if(!(endp_prop((V455)))){
3297            goto T1839;}
3298            goto T1834;
3299    goto T1839;
3300    T1839:;
3301            V457= structure_ref((V456),VV[69],2);
3302            if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){
3303            goto T1843;}
3304            V458= structure_ref((V456),VV[69],2);
3305            if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){
3306            goto T1843;}
3307            V459= structure_ref((V456),VV[69],2);
3308            {object V460= cdr(/* INLINE-ARGS */V459);
3309            V454= (number_compare((V454),V460)>=0?((V454)):V460);}
3310    goto T1843;
3311    T1843:;
3312            V455= cdr((V455));
3313            V456= car((V455));
3314            goto T1838;}
3315    goto T1834;
3316    T1834:;
3317            base[0]= one_plus((V454));
3318            vs_top=(vs_base=base+0)+1;
3319            Lmake_list();
3320            vs_top=sup;
3321            V450= vs_base[0];
3322            {register object V461;
3323            register object V462;
3324            V461= structure_ref(cadr((V449)),VV[62],1);
3325            V462= car((V461));
3326    goto T1861;
3327    T1861:;
3328            if(!(endp_prop((V461)))){
3329            goto T1862;}
3330            goto T1857;
3331    goto T1862;
3332    T1862:;
3333            V463= structure_ref((V462),VV[69],2);
3334            if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){
3335            goto T1866;}
3336            V464= structure_ref((V462),VV[69],2);
3337            if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){
3338            goto T1866;}
3339            {object V465;
3340            register object V467;
3341            V468= structure_ref((V462),VV[69],2);
3342            V465= cdr(/* INLINE-ARGS */V468);
3343            V467= structure_ref((V462),VV[69],0);
3344            if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));
3345            (nthcdr(fixint((V465)),V450))->c.c_car = (V467);
3346            (void)(nthcdr(fixint((V465)),V450));}
3347    goto T1866;
3348    T1866:;
3349            V461= cdr((V461));
3350            V462= car((V461));
3351            goto T1861;}
3352    goto T1857;
3353    T1857:;
3354            (void)(sputprop((V448),VV[116],(V450)));
3355            {object V469;
3356            V469= get((V448),VV[116],Cnil);
3357            if(((V469))==Cnil){
3358            goto T1882;}
3359            if((cdr((V469)))!=Cnil){
3360            goto T1881;}
3361            if((car((V469)))==Cnil){
3362            goto T1882;}
3363    goto T1881;
3364    T1881:;
3365            V470= list(2,VV[91],(V448));
3366            V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));
3367            {object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471));
3368            VMR29(V472)}
3369    goto T1882;
3370    T1882:;
3371            {object V473 = Cnil;
3372            VMR29(V473)}}}}}
3373          base[0]=base[0];          base[0]=base[0];
3374          return Cnil;          return Cnil;
3375  }  }
3376  /*      local entry for function ANALYZE-REGS   */  /*      local entry for function ANALYZE-REGS   */
3377    
3378  static object LI31(V468,V469)  static object LI31(V476,V477)
3379    
3380  object V468;object V469;  object V476;object V477;
3381  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3382  goto TTL;  goto TTL;
3383  TTL:;  TTL:;
3384          {object V470;          {object V478;
3385          V470= number_minus(symbol_value(VV[174]),(V469));          V478= number_minus(symbol_value(VV[181]),(V477));
3386          if(!(number_compare(small_fixnum(0),symbol_value(VV[175]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){
         goto T1840;}  
         V471= (VFUN_NARGS=1,(*(LnkLI329))((V468)));  
         {long V472 = (long)(*(LnkLI328))(/* INLINE-ARGS */V471,(V470));  
         VMR30((object)V472)}  
 goto T1840;  
 T1840:;  
         {register object V473;  
         register object V474;  
         V473= Cnil;  
         V474= Cnil;  
         {register object V475;  
         register object V476;  
         V475= (V468);  
         V476= car((V475));  
 goto T1846;  
 T1846:;  
         if(!(endp_prop((V475)))){  
         goto T1847;}  
         goto T1842;  
 goto T1847;  
 T1847:;  
         V478= structure_ref((V476),VV[69],5);  
         {register object x= /* INLINE-ARGS */V478,V477= VV[176];  
         while(!endp(V477))  
         if(x==(V477->c.c_car)){  
         goto T1854;  
         }else V477=V477->c.c_cdr;  
         goto T1853;}  
 goto T1854;  
 T1854:;{object V479;  
         {register object x= (V476),V480= (V474);  
         while(!endp(V480))  
         if(eql(x,V480->c.c_car)){  
         V479= V480;  
         goto T1856;  
         }else V480=V480->c.c_cdr;  
         V479= Cnil;}  
 goto T1856;  
 T1856:;  
         if(V479==Cnil)goto T1855;  
         goto T1851;  
 goto T1855;  
 T1855:;}  
         {register object V481;  
         V481= (V476);  
         V474= make_cons((V481),(V474));  
         goto T1851;}  
 goto T1853;  
 T1853:;{object V482;  
         {register object x= (V476),V483= (V473);  
         while(!endp(V483))  
         if(x==(V483->c.c_car)){  
         V482= V483;  
         goto T1860;  
         }else V483=V483->c.c_cdr;  
         V482= Cnil;}  
 goto T1860;  
 T1860:;  
         if(V482==Cnil)goto T1859;  
         goto T1851;  
 goto T1859;  
 T1859:;}  
         {register object V484;  
         V484= (V476);  
         V474= make_cons((V484),(V474));}  
 goto T1851;  
 T1851:;  
         V475= cdr((V475));  
         V476= car((V475));  
         goto T1846;}  
 goto T1842;  
 T1842:;  
         (void)((*(LnkLI328))((V473),(V470)));  
         {long V485 = (long)(*(LnkLI328))((V474),symbol_value(VV[175]));  
         VMR30((object)V485)}}}  
         base[0]=base[0];  
 }  
 /*      local entry for function ANALYZE-REGS1  */  
   
 static object LI32(V488,V489)  
   
 object V488;object V489;  
 {        VMB31 VMS31 VMV31  
 goto TTL;  
 TTL:;  
         {register long V490;  
         register long V491;  
         long V492;  
         long V493;  
         register long V494;  
         V490= 0;  
         V491= 3;  
         V492= 100000;  
         V493= fix((V489));  
         V494= 0;  
         V488= (VFUN_NARGS=1,(*(LnkLI329))((V488)));  
 goto T1877;  
 T1877:;  
         {register object V495;  
         object V496;  
         V495= (V488);  
         V496= car((V495));  
 goto T1883;  
 T1883:;  
         if(!(endp_prop((V495)))){  
         goto T1884;}  
         goto T1879;  
 goto T1884;  
 T1884:;  
         V490= fix(structure_ref((V496),VV[69],6));  
         if(!((V490)>=(V491))){  
3387          goto T1890;}          goto T1890;}
3388          V494= (long)(V494)+(1);          V479= (VFUN_NARGS=1,(*(LnkLI336))((V476)));
3389          if(!((V490)<(V492))){          {long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478));
3390          goto T1895;}          VMR30((object)V480)}
         V492= V490;  
 goto T1895;  
 T1895:;  
         if(!((V494)>(V493))){  
         goto T1890;}  
         goto T1878;  
3391  goto T1890;  goto T1890;
3392  T1890:;  T1890:;
3393          V495= cdr((V495));          {register object V481;
3394          V496= car((V495));          register object V482;
3395          goto T1883;}          V481= Cnil;
3396  goto T1879;          V482= Cnil;
3397  T1879:;          {register object V483;
3398          if(!((V494)<(V493))){          register object V484;
3399          goto T1906;}          V483= (V476);
3400          V491= (long)(V491)-(1);          V484= car((V483));
3401    goto T1896;
3402    T1896:;
3403            if(!(endp_prop((V483)))){
3404            goto T1897;}
3405            goto T1892;
3406    goto T1897;
3407    T1897:;
3408            V486= structure_ref((V484),VV[69],5);
3409            {register object x= /* INLINE-ARGS */V486,V485= VV[183];
3410            while(!endp(V485))
3411            if(x==(V485->c.c_car)){
3412            goto T1904;
3413            }else V485=V485->c.c_cdr;
3414            goto T1903;}
3415    goto T1904;
3416    T1904:;{object V487;
3417            {register object x= (V484),V488= (V482);
3418            while(!endp(V488))
3419            if(eql(x,V488->c.c_car)){
3420            V487= V488;
3421            goto T1906;
3422            }else V488=V488->c.c_cdr;
3423            V487= Cnil;}
3424  goto T1906;  goto T1906;
3425  T1906:;  T1906:;
3426          {register object V497;          if(V487==Cnil)goto T1905;
3427          register object V498;          goto T1901;
3428          V497= (V488);  goto T1905;
3429          V498= car((V497));  T1905:;}
3430  goto T1914;          {register object V489;
3431  T1914:;          V489= (V484);
3432          if(!(endp_prop((V497)))){          V482= make_cons((V489),(V482));
3433          goto T1915;}          goto T1901;}
3434    goto T1903;
3435    T1903:;{object V490;
3436            {register object x= (V484),V491= (V481);
3437            while(!endp(V491))
3438            if(x==(V491->c.c_car)){
3439            V490= V491;
3440          goto T1910;          goto T1910;
3441  goto T1915;          }else V491=V491->c.c_cdr;
3442  T1915:;          V490= Cnil;}
         {long V499= fix(structure_ref((V498),VV[69],6));  
         if(!((/* INLINE-ARGS */V499)<(V491))){  
         goto T1919;}}  
         (void)(structure_set((V498),VV[69],6,small_fixnum(0)));  
 goto T1919;  
 T1919:;  
         V497= cdr((V497));  
         V498= car((V497));  
         goto T1914;}  
3443  goto T1910;  goto T1910;
3444  T1910:;  T1910:;
3445          {long V500 = V491;          if(V490==Cnil)goto T1909;
3446          VMR31((object)V500)}          goto T1901;
3447  goto T1878;  goto T1909;
3448  T1878:;  T1909:;}
3449          V494= 0;          {register object V492;
3450          V491= (long)(V492)+(1);          V492= (V484);
3451          V492= 1000000;          V482= make_cons((V492),(V482));}
3452          goto T1877;}  goto T1901;
3453    T1901:;
3454            V483= cdr((V483));
3455            V484= car((V483));
3456            goto T1896;}
3457    goto T1892;
3458    T1892:;
3459            (void)((*(LnkLI335))((V481),(V478)));
3460            {long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182]));
3461            VMR30((object)V493)}}}
3462          base[0]=base[0];          base[0]=base[0];
3463  }  }
3464  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function ANALYZE-REGS1  */
3465    
3466  static object LI33(V505,V506,V507,V508)  static object LI32(V496,V497)
3467    
3468  object V505;object V506;object V507;object V508;  object V496;object V497;
3469  {        VMB32 VMS32 VMV32  {        VMB31 VMS31 VMV31
3470  goto TTL;  goto TTL;
3471  TTL:;  TTL:;
3472          if((get((V505),VV[102],Cnil))==Cnil){          {register long V498;
3473            register long V499;
3474            long V500;
3475            long V501;
3476            register long V502;
3477            V498= 0;
3478            V499= 3;
3479            V500= 100000;
3480            V501= fix((V497));
3481            V502= 0;
3482            V496= (VFUN_NARGS=1,(*(LnkLI336))((V496)));
3483    goto T1927;
3484    T1927:;
3485            {register object V503;
3486            object V504;
3487            V503= (V496);
3488            V504= car((V503));
3489    goto T1933;
3490    T1933:;
3491            if(!(endp_prop((V503)))){
3492          goto T1934;}          goto T1934;}
3493          {object V509 = Cnil;          goto T1929;
         VMR32(V509)}  
3494  goto T1934;  goto T1934;
3495  T1934:;  T1934:;
3496          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[179],(V505))));          V498= fix(structure_ref((V504),VV[69],6));
3497          princ_str("\nstatic void L",VV[25]);          if(!((V498)>=(V499))){
3498          (void)((*(LnkLI267))((V506)));          goto T1940;}
3499          princ_str("()",VV[25]);          V502= (long)(V502)+(1);
3500          princ_str("\n{  register object *base=vs_base;",VV[25]);          if(!((V498)<(V500))){
         if((symbol_value(VV[157]))!=Cnil){  
3501          goto T1945;}          goto T1945;}
3502          if((symbol_value(VV[158]))==Cnil){          V500= V498;
         goto T1944;}  
3503  goto T1945;  goto T1945;
3504  T1945:;  T1945:;
3505          princ_str("\n   check_arg(",VV[25]);          if(!((V502)>(V501))){
3506          V510 = make_fixnum((long)length((V507)));          goto T1940;}
3507          (void)((*(LnkLI267))(V510));          goto T1928;
3508          princ_str(");",VV[25]);  goto T1940;
3509  goto T1944;  T1940:;
3510  T1944:;          V503= cdr((V503));
3511          princ_str("\n   base[0]=",VV[25]);          V504= car((V503));
3512          {object V512= (V508);          goto T1933;}
3513          if((V512!= VV[89]))goto T1956;  goto T1929;
3514          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  T1929:;
3515          goto T1958;}          if(!((V502)<(V501))){
3516          V511= VV[180];          goto T1956;}
3517          goto T1955;          V499= (long)(V499)-(1);
 goto T1958;  
 T1958:;  
         V511= VV[181];  
         goto T1955;  
3518  goto T1956;  goto T1956;
3519  T1956:;  T1956:;
3520          if((V512!= VV[142]))goto T1960;          {register object V505;
3521          V511= VV[182];          register object V506;
3522          goto T1955;          V505= (V496);
3523            V506= car((V505));
3524    goto T1964;
3525    T1964:;
3526            if(!(endp_prop((V505)))){
3527            goto T1965;}
3528            goto T1960;
3529    goto T1965;
3530    T1965:;
3531            {long V507= fix(structure_ref((V506),VV[69],6));
3532            if(!((/* INLINE-ARGS */V507)<(V499))){
3533            goto T1969;}}
3534            (void)(structure_set((V506),VV[69],6,small_fixnum(0)));
3535    goto T1969;
3536    T1969:;
3537            V505= cdr((V505));
3538            V506= car((V505));
3539            goto T1964;}
3540  goto T1960;  goto T1960;
3541  T1960:;  T1960:;
3542          if((V512!= VV[143]))goto T1961;          {long V508 = V499;
3543          V511= VV[183];          VMR31((object)V508)}
3544          goto T1955;  goto T1928;
3545  goto T1961;  T1928:;
3546  T1961:;          V502= 0;
3547          if((V512!= VV[144]))goto T1962;          V499= (long)(V500)+(1);
3548          V511= VV[184];          V500= 1000000;
3549          goto T1955;          goto T1927;}
3550  goto T1962;          base[0]=base[0];
3551  T1962:;  }
3552          V511= VV[185];}  /*      local entry for function WT-GLOBAL-ENTRY        */
3553  goto T1955;  
3554  T1955:;  static object LI33(V513,V514,V515,V516)
3555          (void)((*(LnkLI267))(V511));  
3556    object V513;object V514;object V515;object V516;
3557    {        VMB32 VMS32 VMV32
3558    goto TTL;
3559    TTL:;
3560            if((get((V513),VV[102],Cnil))==Cnil){
3561            goto T1984;}
3562            {object V517 = Cnil;
3563            VMR32(V517)}
3564    goto T1984;
3565    T1984:;
3566            (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513))));
3567            princ_str("\nstatic void L",VV[25]);
3568            (void)((*(LnkLI274))((V514)));
3569            princ_str("()",VV[25]);
3570            princ_str("\n{  register object *base=vs_base;",VV[25]);
3571            if((symbol_value(VV[163]))!=Cnil){
3572            goto T1995;}
3573            if((symbol_value(VV[164]))==Cnil){
3574            goto T1994;}
3575    goto T1995;
3576    T1995:;
3577            princ_str("\n   check_arg(",VV[25]);
3578            V518 = make_fixnum((long)length((V515)));
3579            (void)((*(LnkLI274))(V518));
3580            princ_str(");",VV[25]);
3581    goto T1994;
3582    T1994:;
3583            princ_str("\n   base[0]=",VV[25]);
3584            {object V520= (V516);
3585            if((V520!= VV[89]))goto T2006;
3586            if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
3587            goto T2008;}
3588            V519= VV[187];
3589            goto T2005;
3590    goto T2008;
3591    T2008:;
3592            V519= VV[188];
3593            goto T2005;
3594    goto T2006;
3595    T2006:;
3596            if((V520!= VV[142]))goto T2010;
3597            V519= VV[189];
3598            goto T2005;
3599    goto T2010;
3600    T2010:;
3601            if((V520!= VV[143]))goto T2011;
3602            V519= VV[190];
3603            goto T2005;
3604    goto T2011;
3605    T2011:;
3606            if((V520!= VV[144]))goto T2012;
3607            V519= VV[191];
3608            goto T2005;
3609    goto T2012;
3610    T2012:;
3611            V519= VV[192];}
3612    goto T2005;
3613    T2005:;
3614            (void)((*(LnkLI274))(V519));
3615          princ_str("(LI",VV[25]);          princ_str("(LI",VV[25]);
3616          (void)((*(LnkLI267))((V506)));          (void)((*(LnkLI274))((V514)));
3617          princ_char(40,VV[25]);          princ_char(40,VV[25]);
3618          {register object V513;          {register object V521;
3619          register long V514;          register long V522;
3620          V514= 0;          V522= 0;
3621          V513= (V507);          V521= (V515);
3622  goto T1969;  goto T2019;
3623  T1969:;  T2019:;
3624          if(!(endp_prop((V513)))){          if(!(endp_prop((V521)))){
3625          goto T1970;}          goto T2020;}
3626          goto T1966;          goto T2016;
3627  goto T1970;  goto T2020;
3628  T1970:;  T2020:;
3629          {object V516= car((V513));          {object V524= car((V521));
3630          if((V516!= VV[89]))goto T1977;          if((V524!= VV[89]))goto T2027;
3631          V515= VV[186];          V523= VV[193];
3632          goto T1976;          goto T2026;
3633  goto T1977;  goto T2027;
3634  T1977:;  T2027:;
3635          if((V516!= VV[142]))goto T1978;          if((V524!= VV[142]))goto T2028;
3636          V515= VV[187];          V523= VV[194];
3637          goto T1976;          goto T2026;
3638  goto T1978;  goto T2028;
3639  T1978:;  T2028:;
3640          if((V516!= VV[143]))goto T1979;          if((V524!= VV[143]))goto T2029;
3641          V515= VV[188];          V523= VV[195];
3642          goto T1976;          goto T2026;
3643  goto T1979;  goto T2029;
3644  T1979:;  T2029:;
3645          if((V516!= VV[144]))goto T1980;          if((V524!= VV[144]))goto T2030;
3646          V515= VV[189];          V523= VV[196];
3647          goto T1976;          goto T2026;
3648  goto T1980;  goto T2030;
3649  T1980:;  T2030:;
3650          V515= VV[190];}          V523= VV[197];}
3651  goto T1976;  goto T2026;
3652  T1976:;  T2026:;
3653          (void)((*(LnkLI267))(V515));          (void)((*(LnkLI274))(V523));
3654          princ_str("(base[",VV[25]);          princ_str("(base[",VV[25]);
3655          V517 = make_fixnum(V514);          V525 = make_fixnum(V522);
3656          (void)((*(LnkLI267))(V517));          (void)((*(LnkLI274))(V525));
3657          princ_str("])",VV[25]);          princ_str("])",VV[25]);
3658          if(endp_prop(cdr((V513)))){          if(endp_prop(cdr((V521)))){
3659          goto T1984;}          goto T2034;}
3660          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3661  goto T1984;  goto T2034;
3662  T1984:;  T2034:;
3663          V513= cdr((V513));          V521= cdr((V521));
3664          V514= (long)(V514)+1;          V522= (long)(V522)+1;
3665          goto T1969;}          goto T2019;}
3666  goto T1966;  goto T2016;
3667  T1966:;  T2016:;
3668          princ_str("));",VV[25]);          princ_str("));",VV[25]);
3669          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);
3670          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3671          {object V518 = Cnil;          {object V526 = Cnil;
3672          VMR32(V518)}          VMR32(V526)}
3673          return Cnil;          return Cnil;
3674  }  }
3675  /*      local entry for function REP-TYPE       */  /*      local entry for function REP-TYPE       */
3676    
3677  static object LI34(V520)  static object LI34(V528)
3678    
3679  object V520;  object V528;
3680  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
3681  goto TTL;  goto TTL;
3682  TTL:;  TTL:;
3683          {object V521= (V520);          {object V529= (V528);
3684          if((V521!= VV[89]))goto T1997;          if((V529!= VV[89]))goto T2047;
3685          {object V522 = VV[191];          {object V530 = VV[198];
3686          VMR33(V522)}          VMR33(V530)}
3687  goto T1997;  goto T2047;
3688  T1997:;  T2047:;
3689          if((V521!= VV[254]))goto T1998;          if((V529!= VV[261]))goto T2048;
3690          {object V523 = VV[192];          {object V531 = VV[199];
3691          VMR33(V523)}          VMR33(V531)}
3692  goto T1998;  goto T2048;
3693  T1998:;  T2048:;
3694          if((V521!= VV[142]))goto T1999;          if((V529!= VV[142]))goto T2049;
3695          {object V524 = VV[193];          {object V532 = VV[200];
3696          VMR33(V524)}          VMR33(V532)}
3697  goto T1999;  goto T2049;
3698  T1999:;  T2049:;
3699          if((V521!= VV[144]))goto T2000;          if((V529!= VV[144]))goto T2050;
3700          {object V525 = VV[194];          {object V533 = VV[201];
3701          VMR33(V525)}          VMR33(V533)}
3702  goto T2000;  goto T2050;
3703  T2000:;  T2050:;
3704          if((V521!= VV[143]))goto T2001;          if((V529!= VV[143]))goto T2051;
3705          {object V526 = VV[195];          {object V534 = VV[202];
3706          VMR33(V526)}          VMR33(V534)}
3707  goto T2001;  goto T2051;
3708  T2001:;  T2051:;
3709          {object V527 = VV[196];          {object V535 = VV[203];
3710          VMR33(V527)}}          VMR33(V535)}}
3711          return Cnil;          return Cnil;
3712  }  }
3713  /*      local entry for function T1DEFMACRO     */  /*      local entry for function T1DEFMACRO     */
3714    
3715  static object LI35(V529)  static object LI35(V537)
3716    
3717  register object V529;  register object V537;
3718  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
3719          bds_check;          bds_check;
3720  goto TTL;  goto TTL;
3721  TTL:;  TTL:;
3722          if(endp_prop((V529))){          if(endp_prop((V537))){
3723          goto T2003;}          goto T2053;}
3724          if(!(endp_prop(cdr((V529))))){          if(!(endp_prop(cdr((V537))))){
3725          goto T2002;}          goto T2052;}
3726  goto T2003;  goto T2053;
3727  T2003:;  T2053:;
3728          V530 = make_fixnum((long)length((V529)));          V538 = make_fixnum((long)length((V537)));
3729          (void)((*(LnkLI276))(VV[197],small_fixnum(2),V530));          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));
3730  goto T2002;  goto T2052;
3731  T2002:;  T2052:;
3732          if(type_of(car((V529)))==t_symbol){          if(type_of(car((V537)))==t_symbol){
3733          goto T2007;}          goto T2057;}
3734          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[198],car((V529)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));
3735  goto T2007;  goto T2057;
3736  T2007:;  T2057:;
3737          V531= make_cons(VV[197],(V529));          V539= make_cons(VV[204],(V537));
3738          (void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V531));          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));
3739          setq(VV[6],Ct);          setq(VV[6],Ct);
3740          {register object V532;          {register object V540;
3741          object V533;          object V541;
3742          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
3743          V533= symbol_value(VV[61]);          V541= symbol_value(VV[61]);
3744          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
3745          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
3746          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
3747          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
3748          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
3749          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3750          V532= Cnil;          V540= Cnil;
3751          V532= (*(LnkLI330))(car((V529)),cadr((V529)),cddr((V529)));          V540= (*(LnkLI337))(car((V537)),cadr((V537)),cddr((V537)));
3752          (void)((*(LnkLI286))());          (void)((*(LnkLI293))());
3753          {object V534;          {object V542;
3754          V534= list(7,VV[197],car((V529)),(V533),cddr((V532)),car((V532)),cadr((V532)),(VV[59]->s.s_dbind));          V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind));
3755          setq(VV[24],make_cons((V534),symbol_value(VV[24])));          setq(VV[24],make_cons((V542),symbol_value(VV[24])));
3756          {object V535 = symbol_value(VV[24]);          {object V543 = symbol_value(VV[24]);
3757          bds_unwind1;          bds_unwind1;
3758          bds_unwind1;          bds_unwind1;
3759          bds_unwind1;          bds_unwind1;
3760          bds_unwind1;          bds_unwind1;
3761          bds_unwind1;          bds_unwind1;
3762          bds_unwind1;          bds_unwind1;
3763          VMR34(V535)}}}          VMR34(V543)}}}
3764          base[0]=base[0];          base[0]=base[0];
3765          return Cnil;          return Cnil;
3766  }  }
3767  /*      local entry for function T2DEFMACRO     */  /*      local entry for function T2DEFMACRO     */
3768    
3769  static object LI36(V542,V543,V544,V545,V546,V547)  static object LI36(V550,V551,V552,V553,V554,V555)
3770    
3771  object V542;object V543;object V544;object V545;object V546;object V547;  object V550;object V551;object V552;object V553;object V554;object V555;
3772  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
3773  goto TTL;  goto TTL;
3774  TTL:;  TTL:;
3775          if(((V545))==Cnil){          if(((V553))==Cnil){
3776          goto T2020;}          goto T2070;}
3777          V548= list(4,VV[103],list(2,VV[91],(V542)),(V545),VV[199]);          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);
3778          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V548)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556)));
3779  goto T2020;  goto T2070;
3780  T2020:;  T2070:;
3781          if(((V546))==Cnil){          if(((V554))==Cnil){
3782          goto T2023;}          goto T2073;}
3783          V549= list(2,VV[91],(V542));          V557= list(2,VV[91],(V550));
3784          V550= list(4,VV[103],/* INLINE-ARGS */V549,list(2,VV[91],(V546)),VV[200]);          V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);
3785          (void)((VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V550)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558)));
3786  goto T2023;  goto T2073;
3787  T2023:;  T2073:;
3788          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
3789          (void)((*(LnkLI270))((V543)));          (void)((*(LnkLI277))((V551)));
3790          princ_str("();",VV[31]);          princ_str("();",VV[31]);
3791          V551= list(2,VV[91],(V542));          V559= list(2,VV[91],(V550));
3792          V552= list(3,VV[201],/* INLINE-ARGS */V551,(*(LnkLI294))(VV[202],(V543)));          V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI301))(VV[209],(V551)));
3793          {object V553 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V552));          {object V561 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V560));
3794          VMR35(V553)}          VMR35(V561)}
3795          return Cnil;          return Cnil;
3796  }  }
3797  /*      local entry for function T3DEFMACRO     */  /*      local entry for function T3DEFMACRO     */
3798    
3799  static object LI37(V560,V561,V562,V563,V564,V565)  static object LI37(V568,V569,V570,V571,V572,V573)
3800    
3801  object V560;object V561;register object V562;object V563;object V564;object V565;  object V568;object V569;register object V570;object V571;object V572;object V573;
3802  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
3803          bds_check;          bds_check;
3804  goto TTL;  goto TTL;
3805  TTL:;  TTL:;
3806          if((get((V560),VV[203],Cnil))==Cnil){          if((get((V568),VV[210],Cnil))==Cnil){
3807          goto T2032;}          goto T2082;}
3808          bds_bind(VV[20],VV[204]);          bds_bind(VV[20],VV[211]);
3809          goto T2030;          goto T2080;
3810  goto T2032;  goto T2082;
3811  T2032:;  T2082:;
3812          bds_bind(VV[20],VV[205]);          bds_bind(VV[20],VV[212]);
3813  goto T2030;  goto T2080;
3814  T2030:;  T2080:;
3815          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
3816          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
3817          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
# Line 3752  T2030:; Line 3827  T2030:;
3827          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
3828          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
3829          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
3830          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[206],(V560))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[213],(V568))));
3831          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
3832          (void)((*(LnkLI267))((V561)));          (void)((*(LnkLI274))((V569)));
3833          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3834          princ_str("\n{register object *",VV[25]);          princ_str("\n{register object *",VV[25]);
3835          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3836          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
3837          V566= structure_ref(car(cddddr((V562))),VV[62],1);          V574= structure_ref(car(cddddr((V570))),VV[62],1);
3838          (void)((*(LnkLI307))(/* INLINE-ARGS */V566,(V561),VV[148]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V574,(V569),VV[148]));
3839          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
3840          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
3841          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
3842          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3843          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3844          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
3845          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3846          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3847          goto T2058;}          goto T2108;}
3848          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
3849          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3850          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3851          goto T2056;          goto T2106;
3852  goto T2058;  goto T2108;
3853  T2058:;  T2108:;
3854          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3855  goto T2056;  goto T2106;
3856  T2056:;  T2106:;
3857          if(((V565))==Cnil){          if(((V573))==Cnil){
3858          goto T2064;}          goto T2114;}
3859          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3860  goto T2064;  goto T2114;
3861  T2064:;  T2114:;
3862          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3863          goto T2068;}          goto T2118;}
3864          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3865  goto T2068;  goto T2118;
3866  T2068:;  T2118:;
3867          base[15]= car((V562));          base[15]= car((V570));
3868          base[16]= cadr((V562));          base[16]= cadr((V570));
3869          base[17]= caddr((V562));          base[17]= caddr((V570));
3870          base[18]= cadddr((V562));          base[18]= cadddr((V570));
3871          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3872          (void) (*Lnk331)();          (void) (*Lnk338)();
3873          vs_top=sup;          vs_top=sup;
3874          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
3875          {object V567;          {object V575;
3876          V567= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V575= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
3877          setq(VV[33],make_cons((V567),symbol_value(VV[33])));}          setq(VV[33],make_cons((V575),symbol_value(VV[33])));}
3878          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
3879          (void)((*(LnkLI270))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
3880          {object V568 = (*(LnkLI325))();          {object V576 = (*(LnkLI332))();
3881          bds_unwind1;          bds_unwind1;
3882          bds_unwind1;          bds_unwind1;
3883          bds_unwind1;          bds_unwind1;
# Line 3818  T2068:; Line 3893  T2068:;
3893          bds_unwind1;          bds_unwind1;
3894          bds_unwind1;          bds_unwind1;
3895          bds_unwind1;          bds_unwind1;
3896          VMR36(V568)}          VMR36(V576)}
3897          base[0]=base[0];          base[0]=base[0];
3898          return Cnil;          return Cnil;
3899  }  }
3900  /*      local entry for function T1ORDINARY     */  /*      local entry for function T1ORDINARY     */
3901    
3902  static object LI38(V570)  static object LI38(V578)
3903    
3904  register object V570;  register object V578;
3905  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
3906          bds_check;          bds_check;
3907  goto TTL;  goto TTL;
3908  TTL:;  TTL:;
3909          {register object V571;          {register object V579;
3910          V571= Cnil;          V579= Cnil;
3911          setq(VV[6],Ct);          setq(VV[6],Ct);
3912          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
3913          goto T2089;}          goto T2139;}
3914          (void)((*(LnkLI260))(Cnil,(V570)));          (void)((*(LnkLI267))(Cnil,(V578)));
3915          {object V572;          {object V580;
3916          base[0]= VV[207];          base[0]= VV[214];
3917          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3918          Lgensym();          Lgensym();
3919          vs_top=sup;          vs_top=sup;
3920          V572= vs_base[0];          V580= vs_base[0];
3921          V573= listA(3,VV[64],(V572),VV[208]);          V581= listA(3,VV[64],(V580),VV[215]);
3922          (void)((*(LnkLI282))(/* INLINE-ARGS */V573));          (void)((*(LnkLI289))(/* INLINE-ARGS */V581));
3923          base[0]= list(5,VV[51],(V572),Cnil,(V570),Cnil);          base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil);
3924          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3925          (void) (*Lnk264)();          (void) (*Lnk271)();
3926          vs_top=sup;          vs_top=sup;
3927          {object V574;          {object V582;
3928          V574= list(2,VV[209],make_cons((V572),Cnil));          V582= list(2,VV[216],make_cons((V580),Cnil));
3929          setq(VV[24],make_cons((V574),symbol_value(VV[24])));          setq(VV[24],make_cons((V582),symbol_value(VV[24])));
3930          {object V575 = symbol_value(VV[24]);          {object V583 = symbol_value(VV[24]);
3931          VMR37(V575)}}}          VMR37(V583)}}}
3932  goto T2089;  goto T2139;
3933  T2089:;  T2139:;
3934          {object V576;          {object V584;
3935          if(type_of((V570))==t_cons){          if(type_of((V578))==t_cons){
3936          goto T2100;}          goto T2150;}
3937          V576= Cnil;          V584= Cnil;
3938          goto T2099;          goto T2149;
3939  goto T2100;  goto T2150;
3940  T2100:;  T2150:;
3941          if(type_of(car((V570)))==t_symbol){          if(type_of(car((V578)))==t_symbol){
3942          goto T2102;}          goto T2152;}
3943          V576= Cnil;          V584= Cnil;
3944          goto T2099;          goto T2149;
3945  goto T2102;  goto T2152;
3946  T2102:;  T2152:;
3947          if(!((car((V570)))==(VV[210]))){          if(!((car((V578)))==(VV[217]))){
3948          goto T2106;}          goto T2156;}
3949          goto T2104;          goto T2154;
3950  goto T2106;  goto T2156;
3951  T2106:;  T2156:;
3952          base[0]= car((V570));          base[0]= car((V578));
3953          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3954          Lspecial_form_p();          Lspecial_form_p();
3955          vs_top=sup;          vs_top=sup;
3956          V577= vs_base[0];          V585= vs_base[0];
3957          if((V577)==Cnil){          if((V585)==Cnil){
3958          goto T2104;}          goto T2154;}
3959          V576= Cnil;          V584= Cnil;
3960          goto T2099;          goto T2149;
3961  goto T2104;  goto T2154;
3962  T2104:;  T2154:;
3963          {register object V578;          {register object V586;
3964          register long V579;          register long V587;
3965          V578= cdr((V570));          V586= cdr((V578));
3966          V579= 1;          V587= 1;
3967  goto T2113;  goto T2163;
3968  T2113:;  T2163:;
3969          if((V579)>=(1000)){          if((V587)>=(1000)){
3970          goto T2115;}          goto T2165;}
3971          if(type_of((V578))==t_cons){          if(type_of((V586))==t_cons){
3972          goto T2114;}          goto T2164;}
3973  goto T2115;  goto T2165;
3974  T2115:;  T2165:;
3975          V576= Cnil;          V584= Cnil;
3976          goto T2099;          goto T2149;
3977  goto T2114;  goto T2164;
3978  T2114:;  T2164:;
3979          if(!(type_of(car((V578)))==t_cons)){          if(!(type_of(car((V586)))==t_cons)){
3980          goto T2120;}          goto T2170;}
3981          if(!((caar((V578)))==(VV[64]))){          if(!((caar((V586)))==(VV[64]))){
3982          goto T2120;}          goto T2170;}
3983          V571= cadr(car((V578)));          V579= cadr(car((V586)));
3984          if(!(type_of((V571))==t_cons)){          if(!(type_of((V579))==t_cons)){
3985          goto T2120;}          goto T2170;}
3986          if(!((car((V571)))==(VV[211]))){          if(!((car((V579)))==(VV[218]))){
3987          goto T2120;}          goto T2170;}
3988          {register object V580;          {register object V588;
3989          vs_base=vs_top;          vs_base=vs_top;
3990          Lgensym();          Lgensym();
3991          vs_top=sup;          vs_top=sup;
3992          V580= vs_base[0];          V588= vs_base[0];
3993          base[0]= listA(3,VV[51],(V580),cdr((V571)));          base[0]= listA(3,VV[51],(V588),cdr((V579)));
3994          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3995          (void) (*Lnk264)();          (void) (*Lnk271)();
3996          vs_top=sup;          vs_top=sup;
3997          base[1]= (V570);          base[1]= (V578);
3998          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
3999          base[3]= make_fixnum(V579);          base[3]= make_fixnum(V587);
4000          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
4001          Lsubseq();          Lsubseq();
4002          vs_top=sup;          vs_top=sup;
4003          base[0]= vs_base[0];          base[0]= vs_base[0];
4004          V581= list(2,VV[212],list(2,VV[91],(V580)));          V589= list(2,VV[219],list(2,VV[91],(V588)));
4005          base[1]= make_cons(/* INLINE-ARGS */V581,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V589,Cnil);
4006          V582 = make_fixnum(V579);          V590 = make_fixnum(V587);
4007          V583= number_plus(small_fixnum(1),V582);          V591= number_plus(small_fixnum(1),V590);
4008          base[2]= nthcdr(fixint(/* INLINE-ARGS */V583),(V570));          base[2]= nthcdr(fixint(/* INLINE-ARGS */V591),(V578));
4009          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4010          Lappend();          Lappend();
4011          vs_top=sup;          vs_top=sup;
4012          V570= vs_base[0];          V578= vs_base[0];
4013          goto TTL;}          goto TTL;}
4014  goto T2120;  goto T2170;
4015  T2120:;  T2170:;
4016          if(type_of((V578))==t_cons){          if(type_of((V586))==t_cons){
4017          goto T2143;}          goto T2193;}
4018          V578= Cnil;          V586= Cnil;
4019          goto T2142;          goto T2192;
4020  goto T2143;  goto T2193;
4021  T2143:;  T2193:;
4022          V578= cdr((V578));          V586= cdr((V586));
4023  goto T2142;  goto T2192;
4024  T2142:;  T2192:;
4025          V579= (long)(1)+(V579);          V587= (long)(1)+(V587);
4026          goto T2113;}          goto T2163;}
4027  goto T2099;  goto T2149;
4028  T2099:;  T2149:;
4029          if(((V576))==Cnil){          if(((V584))==Cnil){
4030          goto T2148;}          goto T2198;}
4031          {object V584 = (V576);          {object V592 = (V584);
4032          VMR37(V584)}          VMR37(V592)}
4033  goto T2148;  goto T2198;
4034  T2148:;  T2198:;
4035          (void)((*(LnkLI260))(Cnil,(V570)));          (void)((*(LnkLI267))(Cnil,(V578)));
4036          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
4037          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
4038          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
4039          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
4040          bds_bind(VV[52],Cnil);          bds_bind(VV[52],Cnil);
4041          {object V585;          {object V593;
4042          V585= list(2,VV[209],(V570));          V593= list(2,VV[216],(V578));
4043          setq(VV[24],make_cons((V585),symbol_value(VV[24])));}          setq(VV[24],make_cons((V593),symbol_value(VV[24])));}
4044          {object V586 = Cnil;          {object V594 = Cnil;
4045          bds_unwind1;          bds_unwind1;
4046          bds_unwind1;          bds_unwind1;
4047          bds_unwind1;          bds_unwind1;
4048          bds_unwind1;          bds_unwind1;
4049          bds_unwind1;          bds_unwind1;
4050          VMR37(V586)}}}          VMR37(V594)}}}
4051          base[0]=base[0];          base[0]=base[0];
4052          return Cnil;          return Cnil;
4053  }  }
4054  /*      local entry for function T2ORDINARY     */  /*      local entry for function T2ORDINARY     */
4055    
4056  static object LI39(V588)  static object LI39(V596)
4057    
4058  object V588;  object V596;
4059  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
4060  goto TTL;  goto TTL;
4061  TTL:;  TTL:;
4062          {object V589;          {object V597;
4063          V589= (type_of((V588))!=t_cons?Ct:Cnil);          V597= (type_of((V596))!=t_cons?Ct:Cnil);
4064          if(((V589))==Cnil){          if(((V597))==Cnil){
4065          goto T2156;}          goto T2206;}
4066          {object V590 = (V589);          {object V598 = (V597);
4067          VMR38(V590)}          VMR38(V598)}
4068  goto T2156;  goto T2206;
4069  T2156:;  T2206:;
4070          {object V591;          {object V599;
4071          base[0]= (V588);          base[0]= (V596);
4072          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4073          Lconstantp();          Lconstantp();
4074          vs_top=sup;          vs_top=sup;
4075          V591= vs_base[0];          V599= vs_base[0];
4076          if(((V591))==Cnil){          if(((V599))==Cnil){
4077          goto T2161;}          goto T2211;}
4078          {object V592 = (V591);          {object V600 = (V599);
4079          VMR38(V592)}          VMR38(V600)}
4080  goto T2161;  goto T2211;
4081  T2161:;  T2211:;
4082          {object V593 = (VFUN_NARGS=1,(*(LnkLI293))((V588)));          {object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596)));
4083          VMR38(V593)}}}          VMR38(V601)}}}
4084          base[0]=base[0];          base[0]=base[0];
4085          return Cnil;          return Cnil;
4086  }  }
# Line 4016  static object LI40() Line 4091  static object LI40()
4091  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
4092  goto TTL;  goto TTL;
4093  TTL:;  TTL:;
4094          {register object V594;          {register object V602;
4095          register object V595;          register object V603;
4096          V594= reverse(symbol_value(VV[52]));          V602= reverse(symbol_value(VV[52]));
4097          V595= car((V594));          V603= car((V602));
4098  goto T2166;  goto T2216;
4099  T2166:;  T2216:;
4100          if(!(endp_prop((V594)))){          if(!(endp_prop((V602)))){
4101          goto T2167;}          goto T2217;}
4102          {object V596 = Cnil;          {object V604 = Cnil;
4103          VMR39(V596)}          VMR39(V604)}
4104  goto T2167;  goto T2217;
4105  T2167:;  T2217:;
4106          if(!(type_of((V595))!=t_cons)){          if(!(type_of((V603))!=t_cons)){
4107          goto T2171;}          goto T2221;}
4108          (void)((*(LnkLI332))());          (void)((*(LnkLI339))());
4109  goto T2171;  goto T2221;
4110  T2171:;  T2221:;
4111          {register object V597;          {register object V605;
4112          V597= make_cons(VV[213],(V595));          V605= make_cons(VV[220],(V603));
4113          setq(VV[24],make_cons((V597),symbol_value(VV[24])));}          setq(VV[24],make_cons((V605),symbol_value(VV[24])));}
4114          V594= cdr((V594));          V602= cdr((V602));
4115          V595= car((V594));          V603= car((V602));
4116          goto T2166;}          goto T2216;}
4117          base[0]=base[0];          base[0]=base[0];
4118          return Cnil;          return Cnil;
4119  }  }
4120  /*      local entry for function T2SHARP-COMMA  */  /*      local entry for function T2SHARP-COMMA  */
4121    
4122  static object LI41(V600,V601)  static object LI41(V608,V609)
4123    
4124  object V600;object V601;  object V608;object V609;
4125  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4126  goto TTL;  goto TTL;
4127  TTL:;  TTL:;
4128          V602= list(3,VV[214],(V600),(V601));          V610= list(3,VV[221],(V608),(V609));
4129          {object V603 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V602));          {object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610));
4130          VMR40(V603)}          VMR40(V611)}
4131          return Cnil;          return Cnil;
4132  }  }
4133  /*      local entry for function T2DECLARE      */  /*      local entry for function T2DECLARE      */
4134    
4135  static object LI42(V605)  static object LI42(V613)
4136    
4137  object V605;  object V613;
4138  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4139  goto TTL;  goto TTL;
4140  TTL:;  TTL:;
4141          {object V606 = (*(LnkLI332))();          {object V614 = (*(LnkLI339))();
4142          VMR41(V606)}          VMR41(V614)}
4143          return Cnil;          return Cnil;
4144  }  }
4145  /*      local entry for function T1DEFINE-STRUCTURE     */  /*      local entry for function T1DEFINE-STRUCTURE     */
4146    
4147  static object LI43(V608)  static object LI43(V616)
4148    
4149  object V608;  object V616;
4150  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4151  goto TTL;  goto TTL;
4152  TTL:;  TTL:;
4153          V609= (*(LnkLI260))(Cnil,Cnil);          V617= (*(LnkLI267))(Cnil,Cnil);
4154          V610= make_cons(((/* INLINE-ARGS */V609)==Cnil?Ct:Cnil),Cnil);          V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil);
4155          V611= append((V608),/* INLINE-ARGS */V610);          V619= append((V616),/* INLINE-ARGS */V618);
4156          V612= make_cons(VV[215],/* INLINE-ARGS */V611);          V620= make_cons(VV[222],/* INLINE-ARGS */V619);
4157          (void)((*(LnkLI260))(Ct,/* INLINE-ARGS */V612));          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V620));
4158          V613= make_cons(VV[215],(V608));          V621= make_cons(VV[222],(V616));
4159          {object V614 = (*(LnkLI265))(/* INLINE-ARGS */V613);          {object V622 = (*(LnkLI272))(/* INLINE-ARGS */V621);
4160          VMR42(V614)}          VMR42(V622)}
4161          return Cnil;          return Cnil;
4162  }  }
4163  /*      local entry for function SET-DBIND      */  /*      local entry for function SET-DBIND      */
4164    
4165  static object LI44(V617,V618)  static object LI44(V625,V626)
4166    
4167  object V617;object V618;  object V625;object V626;
4168  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4169  goto TTL;  goto TTL;
4170  TTL:;  TTL:;
4171          princ_str("\n   VV[",VV[25]);          princ_str("\n   VV[",VV[25]);
4172          (void)((*(LnkLI267))((V618)));          (void)((*(LnkLI274))((V626)));
4173          princ_str("]->s.s_dbind = ",VV[25]);          princ_str("]->s.s_dbind = ",VV[25]);
4174          (void)((*(LnkLI267))((V617)));          (void)((*(LnkLI274))((V625)));
4175          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4176          {object V619 = Cnil;          {object V627 = Cnil;
4177          VMR43(V619)}          VMR43(V627)}
4178          return Cnil;          return Cnil;
4179  }  }
4180  /*      local entry for function T1CLINES       */  /*      local entry for function T1CLINES       */
4181    
4182  static object LI45(V621)  static object LI45(V629)
4183    
4184  object V621;  object V629;
4185  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
4186  goto TTL;  goto TTL;
4187  TTL:;  TTL:;
4188          {register object V622;          {register object V630;
4189          register object V623;          register object V631;
4190          V622= (V621);          V630= (V629);
4191          V623= car((V622));          V631= car((V630));
4192  goto T2193;  goto T2243;
4193  T2193:;  T2243:;
4194          if(!(endp_prop((V622)))){          if(!(endp_prop((V630)))){
4195          goto T2194;}          goto T2244;}
4196          goto T2189;          goto T2239;
4197  goto T2194;  goto T2244;
4198  T2194:;  T2244:;
4199          if(type_of((V623))==t_string){          if(type_of((V631))==t_string){
4200          goto T2198;}          goto T2248;}
4201          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[216],(V623))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));
4202  goto T2198;  goto T2248;
4203  T2198:;  T2248:;
4204          V622= cdr((V622));          V630= cdr((V630));
4205          V623= car((V622));          V631= car((V630));
4206          goto T2193;}          goto T2243;}
4207  goto T2189;  goto T2239;
4208  T2189:;  T2239:;
4209          {object V624;          {object V632;
4210          V624= list(2,VV[217],(V621));          V632= list(2,VV[224],(V629));
4211          setq(VV[24],make_cons((V624),symbol_value(VV[24])));          setq(VV[24],make_cons((V632),symbol_value(VV[24])));
4212          {object V625 = symbol_value(VV[24]);          {object V633 = symbol_value(VV[24]);
4213          VMR44(V625)}}          VMR44(V633)}}
4214          base[0]=base[0];          base[0]=base[0];
4215          return Cnil;          return Cnil;
4216  }  }
4217  /*      local entry for function T3CLINES       */  /*      local entry for function T3CLINES       */
4218    
4219  static object LI46(V627)  static object LI46(V635)
4220    
4221  object V627;  object V635;
4222  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
4223  goto TTL;  goto TTL;
4224  TTL:;  TTL:;
4225          {register object V628;          {register object V636;
4226          register object V629;          register object V637;
4227          V628= (V627);          V636= (V635);
4228          V629= car((V628));          V637= car((V636));
4229  goto T2211;  goto T2261;
4230  T2211:;  T2261:;
4231          if(!(endp_prop((V628)))){          if(!(endp_prop((V636)))){
4232          goto T2212;}          goto T2262;}
4233          {object V630 = Cnil;          {object V638 = Cnil;
4234          VMR45(V630)}          VMR45(V638)}
4235  goto T2212;  goto T2262;
4236  T2212:;  T2262:;
4237          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4238          (void)((*(LnkLI267))((V629)));          (void)((*(LnkLI274))((V637)));
4239          V628= cdr((V628));          V636= cdr((V636));
4240          V629= car((V628));          V637= car((V636));
4241          goto T2211;}          goto T2261;}
4242          base[0]=base[0];          base[0]=base[0];
4243          return Cnil;          return Cnil;
4244  }  }
4245  /*      local entry for function T1DEFCFUN      */  /*      local entry for function T1DEFCFUN      */
4246    
4247  static object LI47(V632)  static object LI47(V640)
4248    
4249  object V632;  object V640;
4250  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
4251  goto TTL;  goto TTL;
4252  TTL:;  TTL:;
4253          {register object V633;          {register object V641;
4254          V633= Cnil;          V641= Cnil;
4255          if(endp_prop((V632))){          if(endp_prop((V640))){
4256          goto T2226;}          goto T2276;}
4257          if(!(endp_prop(cdr((V632))))){          if(!(endp_prop(cdr((V640))))){
4258          goto T2225;}          goto T2275;}
4259  goto T2226;  goto T2276;
4260  T2226:;  T2276:;
4261          V634 = make_fixnum((long)length((V632)));          V642 = make_fixnum((long)length((V640)));
4262          (void)((*(LnkLI276))(VV[218],small_fixnum(2),V634));          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));
4263  goto T2225;  goto T2275;
4264  T2225:;  T2275:;
4265          if(type_of(car((V632)))==t_string){          if(type_of(car((V640)))==t_string){
4266          goto T2230;}          goto T2280;}
4267          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[219],car((V632)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));
4268  goto T2230;  goto T2280;
4269  T2230:;  T2280:;
4270          {object V635= cadr((V632));          {object V643= cadr((V640));
4271          if(type_of(V635)==t_fixnum||          if(type_of(V643)==t_fixnum||
4272  type_of(V635)==t_bignum||  type_of(V643)==t_bignum||
4273  type_of(V635)==t_ratio||  type_of(V643)==t_ratio||
4274  type_of(V635)==t_shortfloat||  type_of(V643)==t_shortfloat||
4275  type_of(V635)==t_longfloat||  type_of(V643)==t_longfloat||
4276  type_of(V635)==t_complex){  type_of(V643)==t_complex){
4277          goto T2233;}}          goto T2283;}}
4278          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[220],cadr((V632)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));
4279  goto T2233;  goto T2283;
4280  T2233:;  T2283:;
4281          {register object V636;          {register object V644;
4282          register object V637;          register object V645;
4283          V636= cddr((V632));          V644= cddr((V640));
4284          V637= car((V636));          V645= car((V644));
4285  goto T2240;  goto T2290;
4286  T2240:;  T2290:;
4287          if(!(endp_prop((V636)))){          if(!(endp_prop((V644)))){
4288          goto T2241;}          goto T2291;}
4289          goto T2236;          goto T2286;
4290  goto T2241;  goto T2291;
4291  T2241:;  T2291:;
4292          if(!(type_of((V637))==t_string)){          if(!(type_of((V645))==t_string)){
4293          goto T2247;}          goto T2297;}
4294          {register object V638;          {register object V646;
4295          V638= (V637);          V646= (V645);
4296          V633= make_cons((V638),(V633));          V641= make_cons((V646),(V641));
4297          goto T2245;}          goto T2295;}
4298  goto T2247;  goto T2297;
4299  T2247:;  T2297:;
4300          if(!(type_of((V637))==t_cons)){          if(!(type_of((V645))==t_cons)){
4301          goto T2252;}          goto T2302;}
4302          if(!(type_of(car((V637)))==t_symbol)){          if(!(type_of(car((V645)))==t_symbol)){
4303          goto T2255;}          goto T2305;}
4304          base[2]= car((V637));          base[2]= car((V645));
4305          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4306          Lspecial_form_p();          Lspecial_form_p();
4307          vs_top=sup;          vs_top=sup;
4308          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4309          goto T2257;}          goto T2307;}
4310          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[221],car((V637)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));
4311  goto T2257;  goto T2307;
4312  T2257:;  T2307:;
4313          {register object V639;          {register object V647;
4314          V640= car((V637));          V648= car((V645));
4315          V641= (*(LnkLI333))(cdr((V637)));          V649= (*(LnkLI340))(cdr((V645)));
4316          V642= make_cons(/* INLINE-ARGS */V640,/* INLINE-ARGS */V641);          V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649);
4317          V639= make_cons(/* INLINE-ARGS */V642,Cnil);          V647= make_cons(/* INLINE-ARGS */V650,Cnil);
4318          V633= make_cons((V639),(V633));          V641= make_cons((V647),(V641));
4319          goto T2245;}          goto T2295;}
4320  goto T2255;  goto T2305;
4321  T2255:;  T2305:;
4322          if(!(type_of(car((V637)))==t_cons)){          if(!(type_of(car((V645)))==t_cons)){
4323          goto T2264;}          goto T2314;}
4324          if(!(type_of(caar((V637)))==t_symbol)){          if(!(type_of(caar((V645)))==t_symbol)){
4325          goto T2264;}          goto T2314;}
4326          if(!((caar((V637)))==(VV[91]))){          if(!((caar((V645)))==(VV[91]))){
4327          goto T2271;}          goto T2321;}
4328          if(!(endp_prop(cdar((V637))))){          if(!(endp_prop(cdar((V645))))){
4329          goto T2273;}          goto T2323;}
4330          goto T2264;          goto T2314;
4331  goto T2273;  goto T2323;
4332  T2273:;  T2323:;
4333          if(!(((endp_prop(cddar((V637)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){
4334          goto T2275;}          goto T2325;}
4335          goto T2264;          goto T2314;
4336  goto T2275;  goto T2325;
4337  T2275:;  T2325:;
4338          if(!(endp_prop(cdr((V637))))){          if(!(endp_prop(cdr((V645))))){
4339          goto T2277;}          goto T2327;}
4340          goto T2264;          goto T2314;
4341  goto T2277;  goto T2327;
4342  T2277:;  T2327:;
4343          if(((endp_prop(cddr((V637)))?Ct:Cnil))==Cnil){          if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){
4344          goto T2264;}          goto T2314;}
4345          goto T2269;          goto T2319;
4346  goto T2271;  goto T2321;
4347  T2271:;  T2321:;
4348          base[2]= caar((V637));          base[2]= caar((V645));
4349          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4350          Lspecial_form_p();          Lspecial_form_p();
4351          vs_top=sup;          vs_top=sup;
4352          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4353          goto T2264;}          goto T2314;}
4354  goto T2269;  goto T2319;
4355  T2269:;  T2319:;
4356          {register object V643;          {register object V651;
4357          V644= caar((V637));          V652= caar((V645));
4358          if(!((caar((V637)))==(VV[91]))){          if(!((caar((V645)))==(VV[91]))){
4359          goto T2283;}          goto T2333;}
4360          V646= (*(LnkLI318))(cadar((V637)));          V654= (*(LnkLI325))(cadar((V645)));
4361          V645= make_cons(/* INLINE-ARGS */V646,Cnil);          V653= make_cons(/* INLINE-ARGS */V654,Cnil);
4362          goto T2281;          goto T2331;
4363  goto T2283;  goto T2333;
4364  T2283:;  T2333:;
4365          V645= (*(LnkLI333))(cdar((V637)));          V653= (*(LnkLI340))(cdar((V645)));
4366  goto T2281;  goto T2331;
4367  T2281:;  T2331:;
4368          V647= make_cons(/* INLINE-ARGS */V644,V645);          V655= make_cons(/* INLINE-ARGS */V652,V653);
4369          V648= (*(LnkLI333))(cdr((V637)));          V656= (*(LnkLI340))(cdr((V645)));
4370          V643= make_cons(/* INLINE-ARGS */V647,/* INLINE-ARGS */V648);          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);
4371          V633= make_cons((V643),(V633));          V641= make_cons((V651),(V641));
4372          goto T2245;}          goto T2295;}
4373  goto T2264;  goto T2314;
4374  T2264:;  T2314:;
4375          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[222],(V637))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));
4376          goto T2245;          goto T2295;
4377  goto T2252;  goto T2302;
4378  T2252:;  T2302:;
4379          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[223],(V637))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));
4380  goto T2245;  goto T2295;
4381  T2245:;  T2295:;
4382          V636= cdr((V636));          V644= cdr((V644));
4383          V637= car((V636));          V645= car((V644));
4384          goto T2240;}          goto T2290;}
4385  goto T2236;  goto T2286;
4386  T2236:;  T2286:;
4387          {object V649;          {object V657;
4388          V650= car((V632));          V658= car((V640));
4389          V651= cadr((V632));          V659= cadr((V640));
4390          V649= list(4,VV[218],/* INLINE-ARGS */V650,/* INLINE-ARGS */V651,reverse((V633)));          V657= list(4,VV[225],/* INLINE-ARGS */V658,/* INLINE-ARGS */V659,reverse((V641)));
4391          setq(VV[24],make_cons((V649),symbol_value(VV[24])));          setq(VV[24],make_cons((V657),symbol_value(VV[24])));
4392          {object V652 = symbol_value(VV[24]);          {object V660 = symbol_value(VV[24]);
4393          VMR46(V652)}}}          VMR46(V660)}}}
4394          base[0]=base[0];          base[0]=base[0];
4395          return Cnil;          return Cnil;
4396  }  }
4397  /*      local entry for function T3DEFCFUN      */  /*      local entry for function T3DEFCFUN      */
4398    
4399  static object LI48(V656,V657,V658)  static object LI48(V664,V665,V666)
4400    
4401  object V656;object V657;object V658;  object V664;object V665;object V666;
4402  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
4403  goto TTL;  goto TTL;
4404  TTL:;  TTL:;
4405          {object V659;          {object V667;
4406          V659= Cnil;          V667= Cnil;
4407          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[224],VV[218])));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[231],VV[225])));
4408          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4409          (void)((*(LnkLI267))((V656)));          (void)((*(LnkLI274))((V664)));
4410          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4411          princ_str("\nobject *vs=vs_top;",VV[25]);          princ_str("\nobject *vs=vs_top;",VV[25]);
4412          princ_str("\nobject *old_top=vs_top+",VV[25]);          princ_str("\nobject *old_top=vs_top+",VV[25]);
4413          (void)((*(LnkLI267))((V657)));          (void)((*(LnkLI274))((V665)));
4414          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4415          if(!(number_compare((V657),small_fixnum(0))>0)){          if(!(number_compare((V665),small_fixnum(0))>0)){
4416          goto T2306;}          goto T2356;}
4417          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[25]);
4418  goto T2306;  goto T2356;
4419  T2306:;  T2356:;
4420          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4421          {object V660;          {object V668;
4422          register object V661;          register object V669;
4423          V660= (V658);          V668= (V666);
4424          V661= car((V660));          V669= car((V668));
4425  goto T2316;  goto T2366;
4426  T2316:;  T2366:;
4427          if(!(endp_prop((V660)))){          if(!(endp_prop((V668)))){
4428          goto T2317;}          goto T2367;}
4429          goto T2312;          goto T2362;
4430  goto T2317;  goto T2367;
4431  T2317:;  T2367:;
4432          if(!(type_of((V661))==t_string)){          if(!(type_of((V669))==t_string)){
4433          goto T2323;}          goto T2373;}
4434          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4435          (void)((*(LnkLI267))((V661)));          (void)((*(LnkLI274))((V669)));
4436          goto T2321;          goto T2371;
4437  goto T2323;  goto T2373;
4438  T2323:;  T2373:;
4439          if(!((caar((V661)))==(VV[91]))){          if(!((caar((V669)))==(VV[91]))){
4440          goto T2328;}          goto T2378;}
4441          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4442          (void)((*(LnkLI267))(cadadr((V661))));          (void)((*(LnkLI274))(cadadr((V669))));
4443          {object V662= caadr((V661));          {object V670= caadr((V669));
4444          if((V662!= VV[74]))goto T2333;          if((V670!= VV[74]))goto T2383;
4445          princ_str("=VV[",VV[25]);          princ_str("=VV[",VV[25]);
4446          (void)((*(LnkLI267))(cadar((V661))));          (void)((*(LnkLI274))(cadar((V669))));
4447          princ_str("];",VV[25]);          princ_str("];",VV[25]);
4448          goto T2321;          goto T2371;
4449  goto T2333;  goto T2383;
4450  T2333:;  T2383:;
4451          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4452          base[1]= symbol_name(caadr((V661)));          base[1]= symbol_name(caadr((V669)));
4453          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4454          Lstring_downcase();          Lstring_downcase();
4455          vs_top=sup;          vs_top=sup;
4456          V663= vs_base[0];          V671= vs_base[0];
4457          (void)((*(LnkLI267))(V663));          (void)((*(LnkLI274))(V671));
4458          princ_str("(VV[",VV[25]);          princ_str("(VV[",VV[25]);
4459          (void)((*(LnkLI267))(cadar((V661))));          (void)((*(LnkLI274))(cadar((V669))));
4460          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4461          goto T2321;}          goto T2371;}
4462  goto T2328;  goto T2378;
4463  T2328:;  T2378:;
4464          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);
4465          {register object V664;          {register object V672;
4466          register object V665;          register object V673;
4467          V664= cdar((V661));          V672= cdar((V669));
4468          V665= car((V664));          V673= car((V672));
4469  goto T2350;  goto T2400;
4470  T2350:;  T2400:;
4471          if(!(endp_prop((V664)))){          if(!(endp_prop((V672)))){
4472          goto T2351;}          goto T2401;}
4473          goto T2346;          goto T2396;
4474  goto T2351;  goto T2401;
4475  T2351:;  T2401:;
4476          princ_str("\nvs_push(",VV[25]);          princ_str("\nvs_push(",VV[25]);
4477          {object V666= car((V665));          {object V674= car((V673));
4478          if((V666!= VV[74]))goto T2358;          if((V674!= VV[74]))goto T2408;
4479          (void)((*(LnkLI267))(cadr((V665))));          (void)((*(LnkLI274))(cadr((V673))));
4480          goto T2357;          goto T2407;
4481  goto T2358;  goto T2408;
4482  T2358:;  T2408:;
4483          if((V666!= VV[334]))goto T2360;          if((V674!= VV[341]))goto T2410;
4484          princ_str("code_char((long)",VV[25]);          princ_str("code_char((long)",VV[25]);
4485          (void)((*(LnkLI267))(cadr((V665))));          (void)((*(LnkLI274))(cadr((V673))));
4486          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4487          goto T2357;          goto T2407;
4488  goto T2360;  goto T2410;
4489  T2360:;  T2410:;
4490          if((V666!= VV[335]))goto T2364;          if((V674!= VV[342]))goto T2414;
4491          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4492          goto T2365;}          goto T2415;}
4493          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
4494  goto T2365;  goto T2415;
4495  T2365:;  T2415:;
4496          princ_str("make_fixnum((long)",VV[25]);          princ_str("make_fixnum((long)",VV[25]);
4497          (void)((*(LnkLI267))(cadr((V665))));          (void)((*(LnkLI274))(cadr((V673))));
4498          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4499          goto T2357;          goto T2407;
4500  goto T2364;  goto T2414;
4501  T2364:;  T2414:;
4502          if((V666!= VV[336]))goto T2372;          if((V674!= VV[343]))goto T2422;
4503          princ_str("make_shortfloat((double)",VV[25]);          princ_str("make_shortfloat((double)",VV[25]);
4504          (void)((*(LnkLI267))(cadr((V665))));          (void)((*(LnkLI274))(cadr((V673))));
4505          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4506          goto T2357;          goto T2407;
4507  goto T2372;  goto T2422;
4508  T2372:;  T2422:;
4509          if((V666!= VV[337]))goto T2376;          if((V674!= VV[344]))goto T2426;
4510          princ_str("make_longfloat((double)",VV[25]);          princ_str("make_longfloat((double)",VV[25]);
4511          (void)((*(LnkLI267))(cadr((V665))));          (void)((*(LnkLI274))(cadr((V673))));
4512          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4513          goto T2357;          goto T2407;
4514  goto T2376;  goto T2426;
4515  T2376:;}  T2426:;}
4516  goto T2357;  goto T2407;
4517  T2357:;  T2407:;
4518          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4519          V664= cdr((V664));          V672= cdr((V672));
4520          V665= car((V664));          V673= car((V672));
4521          goto T2350;}          goto T2400;}
4522  goto T2346;  goto T2396;
4523  T2346:;  T2396:;
4524          {register object x= caar((V661)),V667= symbol_value(VV[79]);          {register object x= caar((V669)),V675= symbol_value(VV[79]);
4525          while(!endp(V667))          while(!endp(V675))
4526          if(type_of(V667->c.c_car)==t_cons &&eql(x,V667->c.c_car->c.c_car)){          if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){
4527          V659= (V667->c.c_car);          V667= (V675->c.c_car);
4528          goto T2391;          goto T2441;
4529          }else V667=V667->c.c_cdr;          }else V675=V675->c.c_cdr;
4530          V659= Cnil;}          V667= Cnil;}
4531  goto T2391;  goto T2441;
4532  T2391:;  T2441:;
4533          if(((V659))==Cnil){          if(((V667))==Cnil){
4534          goto T2389;}          goto T2439;}
4535          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4536          goto T2393;}          goto T2443;}
4537          princ_str("\nihs_push(VV[",VV[25]);          princ_str("\nihs_push(VV[",VV[25]);
4538          V668= (*(LnkLI320))(caar((V661)));          V676= (*(LnkLI327))(caar((V669)));
4539          (void)((*(LnkLI267))(/* INLINE-ARGS */V668));          (void)((*(LnkLI274))(/* INLINE-ARGS */V676));
4540          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4541          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4542          (void)((*(LnkLI267))(cdr((V659))));          (void)((*(LnkLI274))(cdr((V667))));
4543          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4544          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[25]);
4545          goto T2387;          goto T2437;
4546  goto T2393;  goto T2443;
4547  T2393:;  T2443:;
4548          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4549          (void)((*(LnkLI267))(cdr((V659))));          (void)((*(LnkLI274))(cdr((V667))));
4550          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4551          goto T2387;          goto T2437;
4552  goto T2389;  goto T2439;
4553  T2389:;  T2439:;
4554          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4555          goto T2408;}          goto T2458;}
4556          princ_str("\nsuper_funcall(VV[",VV[25]);          princ_str("\nsuper_funcall(VV[",VV[25]);
4557          V669= (*(LnkLI320))(caar((V661)));          V677= (*(LnkLI327))(caar((V669)));
4558          (void)((*(LnkLI267))(/* INLINE-ARGS */V669));          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));
4559          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4560          goto T2387;          goto T2437;
4561  goto T2408;  goto T2458;
4562  T2408:;  T2458:;
4563          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4564          goto T2414;}          goto T2464;}
4565          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);
4566          V670= (*(LnkLI320))(caar((V661)));          V678= (*(LnkLI327))(caar((V669)));
4567          (void)((*(LnkLI267))(/* INLINE-ARGS */V670));          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));
4568          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4569          goto T2387;          goto T2437;
4570  goto T2414;  goto T2464;
4571  T2414:;  T2464:;
4572          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[25]);
4573          V671= (*(LnkLI320))(caar((V661)));          V679= (*(LnkLI327))(caar((V669)));
4574          (void)((*(LnkLI267))(/* INLINE-ARGS */V671));          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));
4575          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[25]);
4576  goto T2387;  goto T2437;
4577  T2387:;  T2437:;
4578          if(endp_prop(cdr((V661)))){          if(endp_prop(cdr((V669)))){
4579          goto T2422;}          goto T2472;}
4580          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4581          (void)((*(LnkLI267))(cadadr((V661))));          (void)((*(LnkLI274))(cadadr((V669))));
4582          {object V672= caadr((V661));          {object V680= caadr((V669));
4583          if((V672!= VV[74]))goto T2429;          if((V680!= VV[74]))goto T2479;
4584          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[25]);
4585          goto T2428;          goto T2478;
4586  goto T2429;  goto T2479;
4587  T2429:;  T2479:;
4588          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4589          base[1]= symbol_name(caadr((V661)));          base[1]= symbol_name(caadr((V669)));
4590          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4591          Lstring_downcase();          Lstring_downcase();
4592          vs_top=sup;          vs_top=sup;
4593          V673= vs_base[0];          V681= vs_base[0];
4594          (void)((*(LnkLI267))(V673));          (void)((*(LnkLI274))(V681));
4595          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[25]);}
4596  goto T2428;  goto T2478;
4597  T2428:;  T2478:;
4598          {register object V674;          {register object V682;
4599          register object V675;          register object V683;
4600          V674= cddr((V661));          V682= cddr((V669));
4601          V675= car((V674));          V683= car((V682));
4602  goto T2439;  goto T2489;
4603  T2439:;  T2489:;
4604          if(!(endp_prop((V674)))){          if(!(endp_prop((V682)))){
4605          goto T2440;}          goto T2490;}
4606          goto T2422;          goto T2472;
4607  goto T2440;  goto T2490;
4608  T2440:;  T2490:;
4609          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[25]);
4610          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4611          (void)((*(LnkLI267))(cadr((V675))));          (void)((*(LnkLI274))(cadr((V683))));
4612          {object V676= car((V675));          {object V684= car((V683));
4613          if((V676!= VV[74]))goto T2450;          if((V684!= VV[74]))goto T2500;
4614          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);
4615          goto T2449;          goto T2499;
4616  goto T2450;  goto T2500;
4617  T2450:;  T2500:;
4618          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4619          base[3]= symbol_name(car((V675)));          base[3]= symbol_name(car((V683)));
4620          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4621          Lstring_downcase();          Lstring_downcase();
4622          vs_top=sup;          vs_top=sup;
4623          V677= vs_base[0];          V685= vs_base[0];
4624          (void)((*(LnkLI267))(V677));          (void)((*(LnkLI274))(V685));
4625          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}
4626  goto T2449;  goto T2499;
4627  T2449:;  T2499:;
4628          V674= cdr((V674));          V682= cdr((V682));
4629          V675= car((V674));          V683= car((V682));
4630          goto T2439;}          goto T2489;}
4631  goto T2422;  goto T2472;
4632  T2422:;  T2472:;
4633          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4634  goto T2321;  goto T2371;
4635  T2321:;  T2371:;
4636          V660= cdr((V660));          V668= cdr((V668));
4637          V661= car((V660));          V669= car((V668));
4638          goto T2316;}          goto T2366;}
4639  goto T2312;  goto T2362;
4640  T2312:;  T2362:;
4641          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4642          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[25]);
4643          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4644          {object V678 = Cnil;          {object V686 = Cnil;
4645          VMR47(V678)}}          VMR47(V686)}}
4646          base[0]=base[0];          base[0]=base[0];
4647          return Cnil;          return Cnil;
4648  }  }
4649  /*      local entry for function T1DEFENTRY     */  /*      local entry for function T1DEFENTRY     */
4650    
4651  static object LI49(V680)  static object LI49(V688)
4652    
4653  register object V680;  register object V688;
4654  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
4655  goto TTL;  goto TTL;
4656  TTL:;  TTL:;
4657          {register object V681;          {register object V689;
4658          register object V682;          register object V690;
4659          object V683;          object V691;
4660          register object V684;          register object V692;
4661          V681= Cnil;          V689= Cnil;
4662          V682= Cnil;          V690= Cnil;
4663          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
4664          V683= symbol_value(VV[61]);          V691= symbol_value(VV[61]);
4665          V684= Cnil;          V692= Cnil;
4666          if(endp_prop((V680))){          if(endp_prop((V688))){
4667          goto T2479;}          goto T2529;}
4668          if(endp_prop(cdr((V680)))){          if(endp_prop(cdr((V688)))){
         goto T2479;}  
         if(!(endp_prop(cddr((V680))))){  
         goto T2478;}  
 goto T2479;  
 T2479:;  
         V685 = make_fixnum((long)length((V680)));  
         (void)((*(LnkLI276))(VV[225],small_fixnum(3),V685));  
 goto T2478;  
 T2478:;  
         if(type_of(car((V680)))==t_symbol){  
         goto T2485;}  
         (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[226],car((V680)))));  
 goto T2485;  
 T2485:;  
         {register object V686;  
         register object V687;  
         V686= cadr((V680));  
         V687= car((V686));  
 goto T2492;  
 T2492:;  
         if(!(endp_prop((V686)))){  
         goto T2493;}  
         goto T2488;  
 goto T2493;  
 T2493:;  
         {register object x= (V687),V688= VV[227];  
         while(!endp(V688))  
         if(eql(x,V688->c.c_car)){  
         goto T2497;  
         }else V688=V688->c.c_cdr;}  
         (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[228],(V687))));  
 goto T2497;  
 T2497:;  
         V686= cdr((V686));  
         V687= car((V686));  
         goto T2492;}  
 goto T2488;  
 T2488:;  
         V684= caddr((V680));  
         if(!(type_of((V684))==t_symbol)){  
         goto T2509;}  
         V681= VV[74];  
         base[1]= symbol_name((V684));  
         vs_top=(vs_base=base+1)+1;  
         Lstring_downcase();  
         vs_top=sup;  
         V682= vs_base[0];  
         goto T2507;  
 goto T2509;  
 T2509:;  
         if(!(type_of((V684))==t_string)){  
         goto T2516;}  
         V681= VV[74];  
         V682= (V684);  
         goto T2507;  
 goto T2516;  
 T2516:;  
         if(!(type_of((V684))==t_cons)){  
         goto T2522;}  
         {register object x= car((V684)),V689= VV[229];  
         while(!endp(V689))  
         if(eql(x,V689->c.c_car)){  
         goto T2526;  
         }else V689=V689->c.c_cdr;  
         goto T2522;}  
 goto T2526;  
 T2526:;  
         if(!(type_of(cdr((V684)))==t_cons)){  
         goto T2522;}  
         if(type_of(cadr((V684)))==t_symbol){  
4669          goto T2529;}          goto T2529;}
4670          if(!(type_of(cadr((V684)))==t_string)){          if(!(endp_prop(cddr((V688))))){
4671          goto T2522;}          goto T2528;}
4672  goto T2529;  goto T2529;
4673  T2529:;  T2529:;
4674          if(!(endp_prop(cddr((V684))))){          V693 = make_fixnum((long)length((V688)));
4675          goto T2522;}          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));
4676          if(!(type_of(cadr((V684)))==t_symbol)){  goto T2528;
4677          goto T2537;}  T2528:;
4678          base[1]= symbol_name(cadr((V684)));          if(type_of(car((V688)))==t_symbol){
4679            goto T2535;}
4680            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));
4681    goto T2535;
4682    T2535:;
4683            {register object V694;
4684            register object V695;
4685            V694= cadr((V688));
4686            V695= car((V694));
4687    goto T2542;
4688    T2542:;
4689            if(!(endp_prop((V694)))){
4690            goto T2543;}
4691            goto T2538;
4692    goto T2543;
4693    T2543:;
4694            {register object x= (V695),V696= VV[234];
4695            while(!endp(V696))
4696            if(eql(x,V696->c.c_car)){
4697            goto T2547;
4698            }else V696=V696->c.c_cdr;}
4699            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));
4700    goto T2547;
4701    T2547:;
4702            V694= cdr((V694));
4703            V695= car((V694));
4704            goto T2542;}
4705    goto T2538;
4706    T2538:;
4707            V692= caddr((V688));
4708            if(!(type_of((V692))==t_symbol)){
4709            goto T2559;}
4710            V689= VV[74];
4711            base[1]= symbol_name((V692));
4712          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4713          Lstring_downcase();          Lstring_downcase();
4714          vs_top=sup;          vs_top=sup;
4715          V682= vs_base[0];          V690= vs_base[0];
4716          goto T2535;          goto T2557;
4717  goto T2537;  goto T2559;
4718  T2537:;  T2559:;
4719          V682= cadr((V684));          if(!(type_of((V692))==t_string)){
4720  goto T2535;          goto T2566;}
4721  T2535:;          V689= VV[74];
4722          V681= car((V684));          V690= (V692);
4723          goto T2507;          goto T2557;
4724  goto T2522;  goto T2566;
4725  T2522:;  T2566:;
4726          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[230],(V684))));          if(!(type_of((V692))==t_cons)){
4727  goto T2507;          goto T2572;}
4728  T2507:;          {register object x= car((V692)),V697= VV[236];
4729          {object V690;          while(!endp(V697))
4730          V690= list(6,VV[225],car((V680)),(V683),cadr((V680)),(V681),(V682));          if(eql(x,V697->c.c_car)){
4731          setq(VV[24],make_cons((V690),symbol_value(VV[24])));}          goto T2576;
4732          {object V691;          }else V697=V697->c.c_cdr;
4733          V691= make_cons(car((V680)),(V683));          goto T2572;}
4734          setq(VV[79],make_cons((V691),symbol_value(VV[79])));  goto T2576;
4735          {object V692 = symbol_value(VV[79]);  T2576:;
4736          VMR48(V692)}}}          if(!(type_of(cdr((V692)))==t_cons)){
4737            goto T2572;}
4738            if(type_of(cadr((V692)))==t_symbol){
4739            goto T2579;}
4740            if(!(type_of(cadr((V692)))==t_string)){
4741            goto T2572;}
4742    goto T2579;
4743    T2579:;
4744            if(!(endp_prop(cddr((V692))))){
4745            goto T2572;}
4746            if(!(type_of(cadr((V692)))==t_symbol)){
4747            goto T2587;}
4748            base[1]= symbol_name(cadr((V692)));
4749            vs_top=(vs_base=base+1)+1;
4750            Lstring_downcase();
4751            vs_top=sup;
4752            V690= vs_base[0];
4753            goto T2585;
4754    goto T2587;
4755    T2587:;
4756            V690= cadr((V692));
4757    goto T2585;
4758    T2585:;
4759            V689= car((V692));
4760            goto T2557;
4761    goto T2572;
4762    T2572:;
4763            (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));
4764    goto T2557;
4765    T2557:;
4766            {object V698;
4767            V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));
4768            setq(VV[24],make_cons((V698),symbol_value(VV[24])));}
4769            {object V699;
4770            V699= make_cons(car((V688)),(V691));
4771            setq(VV[79],make_cons((V699),symbol_value(VV[79])));
4772            {object V700 = symbol_value(VV[79]);
4773            VMR48(V700)}}}
4774          base[0]=base[0];          base[0]=base[0];
4775          return Cnil;          return Cnil;
4776  }  }
4777  /*      local entry for function T2DEFENTRY     */  /*      local entry for function T2DEFENTRY     */
4778    
4779  static object LI50(V698,V699,V700,V701,V702)  static object LI50(V706,V707,V708,V709,V710)
4780    
4781  object V698;object V699;object V700;object V701;object V702;  object V706;object V707;object V708;object V709;object V710;
4782  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4783  goto TTL;  goto TTL;
4784  TTL:;  TTL:;
4785          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
4786          (void)((*(LnkLI270))((V699)));          (void)((*(LnkLI277))((V707)));
4787          princ_str("();",VV[31]);          princ_str("();",VV[31]);
4788          V703= list(2,VV[91],(V698));          V711= list(2,VV[91],(V706));
4789          V704= list(3,VV[111],/* INLINE-ARGS */V703,(*(LnkLI294))(VV[231],(V699)));          V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI301))(VV[238],(V707)));
4790          {object V705 = (VFUN_NARGS=1,(*(LnkLI293))(/* INLINE-ARGS */V704));          {object V713 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V712));
4791          VMR49(V705)}          VMR49(V713)}
4792          return Cnil;          return Cnil;
4793  }  }
4794  /*      local entry for function T3DEFENTRY     */  /*      local entry for function T3DEFENTRY     */
4795    
4796  static object LI51(V711,V712,V713,V714,V715)  static object LI51(V719,V720,V721,V722,V723)
4797    
4798  object V711;object V712;object V713;register object V714;object V715;  object V719;object V720;object V721;register object V722;object V723;
4799  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4800  goto TTL;  goto TTL;
4801  TTL:;  TTL:;
4802          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[232],(V711))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719))));
4803          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
4804          (void)((*(LnkLI267))((V712)));          (void)((*(LnkLI274))((V720)));
4805          princ_str("()",VV[25]);          princ_str("()",VV[25]);
4806          princ_str("\n{  object *old_base=vs_base;",VV[25]);          princ_str("\n{  object *old_base=vs_base;",VV[25]);
4807          {object V716= (V714);          {object V724= (V722);
4808          if((V716!= VV[233]))goto T2558;          if((V724!= VV[240]))goto T2608;
4809          goto T2557;          goto T2607;
4810  goto T2558;  goto T2608;
4811  T2558:;  T2608:;
4812          if((V716!= VV[338]))goto T2559;          if((V724!= VV[158]))goto T2609;
4813          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[25]);
4814          goto T2557;          goto T2607;
4815  goto T2559;  goto T2609;
4816  T2559:;  T2609:;
4817          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4818          base[0]= symbol_name((V714));          base[0]= symbol_name((V722));
4819          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4820          Lstring_downcase();          Lstring_downcase();
4821          vs_top=sup;          vs_top=sup;
4822          V717= vs_base[0];          V725= vs_base[0];
4823          (void)((*(LnkLI267))(V717));          (void)((*(LnkLI274))(V725));
4824          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[25]);}
4825  goto T2557;  goto T2607;
4826  T2557:;  T2607:;
4827          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4828          goto T2566;}          goto T2616;}
4829          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
4830          V718 = make_fixnum((long)length((V713)));          V726 = make_fixnum((long)length((V721)));
4831          (void)((*(LnkLI267))(V718));          (void)((*(LnkLI274))(V726));
4832          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4833  goto T2566;  goto T2616;
4834  T2566:;  T2616:;
4835          if(((V714))==(VV[233])){          if(((V722))==(VV[240])){
4836          goto T2572;}          goto T2622;}
4837          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[25]);
4838  goto T2572;  goto T2622;
4839  T2572:;  T2622:;
4840          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4841          (void)((*(LnkLI267))((V715)));          (void)((*(LnkLI274))((V723)));
4842          princ_char(40,VV[25]);          princ_char(40,VV[25]);
4843          if(endp_prop((V713))){          if(endp_prop((V721))){
4844          goto T2580;}          goto T2630;}
4845          {register object V719;          {register object V727;
4846          register long V720;          register long V728;
4847          V720= 0;          V728= 0;
4848          V719= (V713);          V727= (V721);
4849  goto T2585;  goto T2635;
4850  T2585:;  T2635:;
4851          {object V721= car((V719));          {object V729= car((V727));
4852          if((V721!= VV[74]))goto T2589;          if((V729!= VV[74]))goto T2639;
4853          princ_str("\n   vs_base[",VV[25]);          princ_str("\n   vs_base[",VV[25]);
4854          V722 = make_fixnum(V720);          V730 = make_fixnum(V728);
4855          (void)((*(LnkLI267))(V722));          (void)((*(LnkLI274))(V730));
4856          princ_char(93,VV[25]);          princ_char(93,VV[25]);
4857          goto T2588;          goto T2638;
4858  goto T2589;  goto T2639;
4859  T2589:;  T2639:;
4860          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[25]);
4861          base[0]= symbol_name(car((V719)));          base[0]= symbol_name(car((V727)));
4862          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4863          Lstring_downcase();          Lstring_downcase();
4864          vs_top=sup;          vs_top=sup;
4865          V723= vs_base[0];          V731= vs_base[0];
4866          (void)((*(LnkLI267))(V723));          (void)((*(LnkLI274))(V731));
4867          princ_str("(vs_base[",VV[25]);          princ_str("(vs_base[",VV[25]);
4868          V724 = make_fixnum(V720);          V732 = make_fixnum(V728);
4869          (void)((*(LnkLI267))(V724));          (void)((*(LnkLI274))(V732));
4870          princ_str("])",VV[25]);}          princ_str("])",VV[25]);}
4871  goto T2588;  goto T2638;
4872  T2588:;  T2638:;
4873          if(!(endp_prop(cdr((V719))))){          if(!(endp_prop(cdr((V727))))){
4874          goto T2600;}          goto T2650;}
4875          goto T2580;          goto T2630;
4876  goto T2600;  goto T2650;
4877  T2600:;  T2650:;
4878          princ_char(44,VV[25]);          princ_char(44,VV[25]);
4879          V719= cdr((V719));          V727= cdr((V727));
4880          V720= (long)(V720)+1;          V728= (long)(V728)+1;
4881          goto T2585;}          goto T2635;}
4882  goto T2580;  goto T2630;
4883  T2580:;  T2630:;
4884          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4885          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);
4886          princ_str("\n   vs_base[0]=",VV[25]);          princ_str("\n   vs_base[0]=",VV[25]);
4887          {object V725= (V714);          {object V733= (V722);
4888          if((V725!= VV[233]))goto T2616;          if((V733!= VV[240]))goto T2666;
4889          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[25]);
4890          goto T2615;          goto T2665;
4891  goto T2616;  goto T2666;
4892  T2616:;  T2666:;
4893          if((V725!= VV[74]))goto T2618;          if((V733!= VV[74]))goto T2668;
4894          princ_char(120,VV[25]);          princ_char(120,VV[25]);
4895          goto T2615;          goto T2665;
4896  goto T2618;  goto T2668;
4897  T2618:;  T2668:;
4898          if((V725!= VV[334]))goto T2620;          if((V733!= VV[341]))goto T2670;
4899          princ_str("code_char(x)",VV[25]);          princ_str("code_char(x)",VV[25]);
4900          goto T2615;          goto T2665;
4901  goto T2620;  goto T2670;
4902  T2620:;  T2670:;
4903          if((V725!= VV[335]))goto T2622;          if((V733!= VV[342]))goto T2672;
4904          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4905          goto T2623;}          goto T2673;}
4906          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
4907  goto T2623;  goto T2673;
4908  T2623:;  T2673:;
4909          princ_str("make_fixnum(x)",VV[25]);          princ_str("make_fixnum(x)",VV[25]);
4910          goto T2615;          goto T2665;
4911  goto T2622;  goto T2672;
4912  T2622:;  T2672:;
4913          if((V725!= VV[338]))goto T2628;          if((V733!= VV[158]))goto T2678;
4914          princ_str("make_simple_string(x)",VV[25]);          princ_str("make_simple_string(x)",VV[25]);
4915          goto T2615;          goto T2665;
4916  goto T2628;  goto T2678;
4917  T2628:;  T2678:;
4918          if((V725!= VV[336]))goto T2630;          if((V733!= VV[343]))goto T2680;
4919          princ_str("make_shortfloat(x)",VV[25]);          princ_str("make_shortfloat(x)",VV[25]);
4920          goto T2615;          goto T2665;
4921  goto T2630;  goto T2680;
4922  T2630:;  T2680:;
4923          if((V725!= VV[337]))goto T2632;          if((V733!= VV[344]))goto T2682;
4924          princ_str("make_longfloat(x)",VV[25]);          princ_str("make_longfloat(x)",VV[25]);
4925          goto T2615;          goto T2665;
4926  goto T2632;  goto T2682;
4927  T2632:;}  T2682:;}
4928  goto T2615;  goto T2665;
4929  T2615:;  T2665:;
4930          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4931          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4932          {object V726 = Cnil;          {object V734 = Cnil;
4933          VMR50(V726)}          VMR50(V734)}
4934          base[0]=base[0];          base[0]=base[0];
4935          return Cnil;          return Cnil;
4936  }  }
4937  /*      local entry for function T1DEFLA        */  /*      local entry for function T1DEFLA        */
4938    
4939  static object LI52(V728)  static object LI52(V736)
4940    
4941  object V728;  object V736;
4942  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4943  goto TTL;  goto TTL;
4944  TTL:;  TTL:;
4945          {object V729 = Cnil;          {object V737 = Cnil;
4946          VMR51(V729)}          VMR51(V737)}
4947          return Cnil;          return Cnil;
4948  }  }
4949  /*      local entry for function PARSE-CVSPECS  */  /*      local entry for function PARSE-CVSPECS  */
4950    
4951  static object LI53(V731)  static object LI53(V739)
4952    
4953  object V731;  object V739;
4954  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4955  goto TTL;  goto TTL;
4956  TTL:;  TTL:;
4957          {register object V732;          {register object V740;
4958          V732= Cnil;          V740= Cnil;
4959          {register object V733;          {register object V741;
4960          register object V734;          register object V742;
4961          V733= (V731);          V741= (V739);
4962          V734= car((V733));          V742= car((V741));
4963  goto T2641;  goto T2691;
4964  T2641:;  T2691:;
4965          if(!(endp_prop((V733)))){          if(!(endp_prop((V741)))){
4966          goto T2642;}          goto T2692;}
4967          {object V735 = reverse((V732));          {object V743 = reverse((V740));
4968          VMR52(V735)}          VMR52(V743)}
4969  goto T2642;  goto T2692;
4970  T2642:;  T2692:;
4971          if(!(type_of((V734))==t_symbol)){          if(!(type_of((V742))==t_symbol)){
4972          goto T2648;}          goto T2698;}
4973          {object V736;          {object V744;
4974          base[2]= symbol_name((V734));          base[2]= symbol_name((V742));
4975          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4976          Lstring_downcase();          Lstring_downcase();
4977          vs_top=sup;          vs_top=sup;
4978          V737= vs_base[0];          V745= vs_base[0];
4979          V736= list(2,VV[74],V737);          V744= list(2,VV[74],V745);
4980          V732= make_cons((V736),(V732));          V740= make_cons((V744),(V740));
4981          goto T2646;}          goto T2696;}
4982  goto T2648;  goto T2698;
4983  T2648:;  T2698:;
4984          if(!(type_of((V734))==t_string)){          if(!(type_of((V742))==t_string)){
4985          goto T2655;}          goto T2705;}
4986          {object V738;          {object V746;
4987          V738= list(2,VV[74],(V734));          V746= list(2,VV[74],(V742));
4988          V732= make_cons((V738),(V732));          V740= make_cons((V746),(V740));
4989          goto T2646;}          goto T2696;}
4990  goto T2655;  goto T2705;
4991  T2655:;  T2705:;
4992          if(!(type_of((V734))==t_cons)){          if(!(type_of((V742))==t_cons)){
4993          goto T2660;}          goto T2710;}
4994          {register object x= car((V734)),V739= VV[234];          {register object x= car((V742)),V747= VV[241];
4995          while(!endp(V739))          while(!endp(V747))
4996          if(eql(x,V739->c.c_car)){          if(eql(x,V747->c.c_car)){
4997          goto T2663;          goto T2713;
4998          }else V739=V739->c.c_cdr;          }else V747=V747->c.c_cdr;
4999          goto T2660;}          goto T2710;}
5000  goto T2663;  goto T2713;
5001  T2663:;  T2713:;
5002          {register object V740;          {register object V748;
5003          register object V741;          register object V749;
5004          V740= cdr((V734));          V748= cdr((V742));
5005          V741= car((V740));          V749= car((V748));
5006  goto T2667;  goto T2717;
5007  T2667:;  T2717:;
5008          if(!(endp_prop((V740)))){          if(!(endp_prop((V748)))){
5009          goto T2668;}          goto T2718;}
5010          goto T2646;          goto T2696;
5011  goto T2668;  goto T2718;
5012  T2668:;  T2718:;
5013          {register object V742;          {register object V750;
5014          V743= car((V734));          V751= car((V742));
5015          if(!(type_of((V741))==t_symbol)){          if(!(type_of((V749))==t_symbol)){
5016          goto T2676;}          goto T2726;}
5017          base[4]= symbol_name((V741));          base[4]= symbol_name((V749));
5018          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5019          Lstring_downcase();          Lstring_downcase();
5020          vs_top=sup;          vs_top=sup;
5021          V744= vs_base[0];          V752= vs_base[0];
5022          goto T2674;          goto T2724;
5023  goto T2676;  goto T2726;
5024  T2676:;  T2726:;
5025          if(!(type_of((V741))==t_string)){          if(!(type_of((V749))==t_string)){
5026          goto T2680;}          goto T2730;}
5027          V744= (V741);          V752= (V749);
5028          goto T2674;          goto T2724;
5029  goto T2680;  goto T2730;
5030  T2680:;  T2730:;
5031          V744= (VFUN_NARGS=2,(*(LnkLI258))(VV[235],(V741)));          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));
5032  goto T2674;  goto T2724;
5033  T2674:;  T2724:;
5034          V742= list(2,/* INLINE-ARGS */V743,V744);          V750= list(2,/* INLINE-ARGS */V751,V752);
5035          V732= make_cons((V742),(V732));}          V740= make_cons((V750),(V740));}
5036          V740= cdr((V740));          V748= cdr((V748));
5037          V741= car((V740));          V749= car((V748));
5038          goto T2667;}          goto T2717;}
5039  goto T2660;  goto T2710;
5040  T2660:;  T2710:;
5041          (void)((VFUN_NARGS=2,(*(LnkLI258))(VV[236],(V734))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));
5042  goto T2646;  goto T2696;
5043  T2646:;  T2696:;
5044          V733= cdr((V733));          V741= cdr((V741));
5045          V734= car((V733));          V742= car((V741));
5046          goto T2641;}}          goto T2691;}}
5047          base[0]=base[0];          base[0]=base[0];
5048          return Cnil;          return Cnil;
5049  }  }
5050  /*      local entry for function T3LOCAL-DCFUN  */  /*      local entry for function T3LOCAL-DCFUN  */
5051    
5052  static object LI54(V750,V751,V752,V753,V754)  static object LI54(V758,V759,V760,V761,V762)
5053    
5054  object V750;object V751;object V752;register object V753;register object V754;  object V758;object V759;object V760;register object V761;register object V762;
5055  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
5056          bds_check;          bds_check;
5057  goto TTL;  goto TTL;
5058  TTL:;  TTL:;
5059          {object V755;          {object V763;
5060          register object V756;          register object V764;
5061          object V757;          object V765;
5062          if(((V750))==Cnil){          if(((V758))==Cnil){
5063          goto T2695;}          goto T2745;}
5064          V755= small_fixnum(0);          V763= small_fixnum(0);
5065          goto T2693;          goto T2743;
5066  goto T2695;  goto T2745;
5067  T2695:;  T2745:;
5068          V755= structure_ref((V753),VV[32],4);          V763= structure_ref((V761),VV[32],4);
5069  goto T2693;  goto T2743;
5070  T2693:;  T2743:;
5071          V756= Cnil;          V764= Cnil;
5072          bds_bind(VV[20],(*(LnkLI299))(cadr((V754))));          bds_bind(VV[20],(*(LnkLI306))(cadr((V762))));
5073          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
5074          V757= caaddr((V754));          V765= caaddr((V762));
5075          if((structure_ref((V753),VV[32],0))==Cnil){          if((structure_ref((V761),VV[32],0))==Cnil){
5076          goto T2703;}          goto T2753;}
5077          V758= structure_ref((V753),VV[32],0);          V766= structure_ref((V761),VV[32],0);
5078          goto T2701;          goto T2751;
5079  goto T2703;  goto T2753;
5080  T2703:;  T2753:;
5081          V758= Cnil;          V766= Cnil;
5082  goto T2701;  goto T2751;
5083  T2701:;  T2751:;
5084          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[237],V758)));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766)));
5085          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5086          if(((V750))==Cnil){          if(((V758))==Cnil){
5087          goto T2710;}          goto T2760;}
5088          V759= VV[238];          V767= VV[245];
5089          goto T2708;          goto T2758;
5090  goto T2710;  goto T2760;
5091  T2710:;  T2760:;
5092          V759= VV[239];          V767= VV[246];
5093  goto T2708;  goto T2758;
5094  T2708:;  T2758:;
5095          (void)((*(LnkLI267))(V759));          (void)((*(LnkLI274))(V767));
5096          V760= structure_ref((V753),VV[32],3);          V768= structure_ref((V761),VV[32],3);
5097          (void)((*(LnkLI267))(/* INLINE-ARGS */V760));          (void)((*(LnkLI274))(/* INLINE-ARGS */V768));
5098          princ_char(40,VV[25]);          princ_char(40,VV[25]);
5099          princ_str("base0",VV[25]);          princ_str("base0",VV[25]);
5100          if(((V757))==Cnil){          if(((V765))==Cnil){
5101          goto T2719;}          goto T2769;}
5102          V761= VV[240];          V769= VV[247];
5103          goto T2717;          goto T2767;
5104  goto T2719;  goto T2769;
5105  T2719:;  T2769:;
5106          V761= VV[241];          V769= VV[248];
5107  goto T2717;  goto T2767;
5108  T2717:;  T2767:;
5109          (void)((*(LnkLI267))(V761));          (void)((*(LnkLI274))(V769));
5110          V762= structure_ref(cadr((V754)),VV[62],1);          V770= structure_ref(cadr((V762)),VV[62],1);
5111          (void)((*(LnkLI301))(/* INLINE-ARGS */V762,small_fixnum(2)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V770,small_fixnum(2)));
5112          (void)((*(LnkLI306))(caaddr((V754)),Cnil));          (void)((*(LnkLI313))(caaddr((V762)),Cnil));
5113          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
5114          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5115          princ_str("base0;",VV[25]);          princ_str("base0;",VV[25]);
5116          bds_bind(VV[242],(V752));          bds_bind(VV[249],(V760));
5117          bds_bind(VV[128],VV[124]);          bds_bind(VV[128],VV[124]);
5118          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
5119          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
5120          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5121          bds_bind(VV[131],one_plus((V755)));          bds_bind(VV[131],one_plus((V763)));
5122          bds_bind(VV[132],(V752));          bds_bind(VV[132],(V760));
5123          bds_bind(VV[133],(V751));          bds_bind(VV[133],(V759));
5124          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
5125          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
5126          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
# Line 5054  T2717:; Line 5129  T2717:;
5129          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5130          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5131          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
5132          V756= (VV[136]->s.s_dbind);          V764= (VV[136]->s.s_dbind);
5133          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
5134          V763= structure_ref(cadr((V754)),VV[62],1);          V771= structure_ref(cadr((V762)),VV[62],1);
5135          V764= structure_ref((V753),VV[32],3);          V772= structure_ref((V761),VV[32],3);
5136          (void)((*(LnkLI307))(/* INLINE-ARGS */V763,/* INLINE-ARGS */V764,VV[243]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250]));
5137          princ_str("\n   VMB",VV[25]);          princ_str("\n   VMB",VV[25]);
5138          (void)((*(LnkLI267))((V756)));          (void)((*(LnkLI274))((V764)));
5139          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[25]);
5140          (void)((*(LnkLI267))((V756)));          (void)((*(LnkLI274))((V764)));
5141          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[25]);
5142          (void)((*(LnkLI267))((V756)));          (void)((*(LnkLI274))((V764)));
5143          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5144          goto T2743;}          goto T2793;}
5145          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5146  goto T2743;  goto T2793;
5147  T2743:;  T2793:;
5148          base[19]= caddr(cddr((V754)));          base[19]= caddr(cddr((V762)));
5149          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5150          (void) (*Lnk308)();          (void) (*Lnk315)();
5151          vs_top=sup;          vs_top=sup;
5152          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){
5153          goto T2751;}          goto T2801;}
5154          if(((VV[138]->s.s_dbind))!=Cnil){          if(((VV[138]->s.s_dbind))!=Cnil){
5155          goto T2751;}          goto T2801;}
5156          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[140]->s.s_dbind))!=Cnil){
5157          goto T2751;}          goto T2801;}
5158          goto T2749;          goto T2799;
5159  goto T2751;  goto T2801;
5160  T2751:;  T2801:;
5161          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
5162  goto T2749;  goto T2799;
5163  T2749:;  T2799:;
5164          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5165          (void)((*(LnkLI309))((V756),Ct));          (void)((*(LnkLI316))((V764),Ct));
5166          V765= structure_ref((V753),VV[32],3);          V773= structure_ref((V761),VV[32],3);
5167          {object V766 = (*(LnkLI303))(/* INLINE-ARGS */V765);          {object V774 = (*(LnkLI310))(/* INLINE-ARGS */V773);
5168          bds_unwind1;          bds_unwind1;
5169          bds_unwind1;          bds_unwind1;
5170          bds_unwind1;          bds_unwind1;
# Line 5107  T2749:; Line 5182  T2749:;
5182          bds_unwind1;          bds_unwind1;
5183          bds_unwind1;          bds_unwind1;
5184          bds_unwind1;          bds_unwind1;
5185          VMR53(V766)}}          VMR53(V774)}}
5186          base[0]=base[0];          base[0]=base[0];
5187          return Cnil;          return Cnil;
5188  }  }
5189  /*      local entry for function T3LOCAL-FUN    */  /*      local entry for function T3LOCAL-FUN    */
5190    
5191  static object LI55(V772,V773,V774,V775,V776)  static object LI55(V780,V781,V782,V783,V784)
5192    
5193  object V772;object V773;object V774;object V775;object V776;  object V780;object V781;object V782;object V783;object V784;
5194  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
5195          bds_check;          bds_check;
5196  goto TTL;  goto TTL;
5197  TTL:;  TTL:;
5198          {long V777;          {long V785;
5199          if(((V772))==Cnil){          if(((V780))==Cnil){
5200          goto T2763;}          goto T2813;}
5201          V777= 0;          V785= 0;
5202          goto T2761;          goto T2811;
5203  goto T2763;  goto T2813;
5204  T2763:;  T2813:;
5205          V777= fix(structure_ref((V775),VV[32],4));          V785= fix(structure_ref((V783),VV[32],4));
5206  goto T2761;  goto T2811;
5207  T2761:;  T2811:;
5208          bds_bind(VV[20],(*(LnkLI299))(cadr((V776))));          bds_bind(VV[20],(*(LnkLI306))(cadr((V784))));
5209          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
5210          if(!(((V772))==(VV[244]))){          if(!(((V780))==(VV[251]))){
5211          goto T2766;}          goto T2816;}
5212          {object V778 = (*(LnkLI243))((V772),(V773),(V774),(V775),(V776));          {object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784));
5213          bds_unwind1;          bds_unwind1;
5214          bds_unwind1;          bds_unwind1;
5215          VMR54(V778)}          VMR54(V786)}
5216  goto T2766;  goto T2816;
5217  T2766:;  T2816:;
5218          if((structure_ref((V775),VV[32],0))==Cnil){          if((structure_ref((V783),VV[32],0))==Cnil){
5219          goto T2772;}          goto T2822;}
5220          V779= structure_ref((V775),VV[32],0);          V787= structure_ref((V783),VV[32],0);
5221          goto T2770;          goto T2820;
5222  goto T2772;  goto T2822;
5223  T2772:;  T2822:;
5224          V779= Cnil;          V787= Cnil;
5225  goto T2770;  goto T2820;
5226  T2770:;  T2820:;
5227          (void)((VFUN_NARGS=2,(*(LnkLI305))(VV[245],V779)));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787)));
5228          princ_str("\nstatic void ",VV[31]);          princ_str("\nstatic void ",VV[31]);
5229          if(((V772))==Cnil){          if(((V780))==Cnil){
5230          goto T2779;}          goto T2829;}
5231          V780= VV[246];          V788= VV[253];
5232          goto T2777;          goto T2827;
5233  goto T2779;  goto T2829;
5234  T2779:;  T2829:;
5235          V780= VV[247];          V788= VV[254];
5236  goto T2777;  goto T2827;
5237  T2777:;  T2827:;
5238          (void)((*(LnkLI270))(V780));          (void)((*(LnkLI277))(V788));
5239          V781= structure_ref((V775),VV[32],3);          V789= structure_ref((V783),VV[32],3);
5240          (void)((*(LnkLI270))(/* INLINE-ARGS */V781));          (void)((*(LnkLI277))(/* INLINE-ARGS */V789));
5241          princ_str("();",VV[31]);          princ_str("();",VV[31]);
5242          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
5243          if(((V772))==Cnil){          if(((V780))==Cnil){
5244          goto T2788;}          goto T2838;}
5245          V782= VV[248];          V790= VV[255];
5246          goto T2786;          goto T2836;
5247  goto T2788;  goto T2838;
5248  T2788:;  T2838:;
5249          V782= VV[249];          V790= VV[256];
5250  goto T2786;  goto T2836;
5251  T2786:;  T2836:;
5252          (void)((*(LnkLI267))(V782));          (void)((*(LnkLI274))(V790));
5253          V783= structure_ref((V775),VV[32],3);          V791= structure_ref((V783),VV[32],3);
5254          (void)((*(LnkLI267))(/* INLINE-ARGS */V783));          (void)((*(LnkLI274))(/* INLINE-ARGS */V791));
5255          princ_char(40,VV[25]);          princ_char(40,VV[25]);
5256          {register object V784;          {register object V792;
5257          register long V785;          register long V793;
5258          V784= make_fixnum(V777);          V792= make_fixnum(V785);
5259          V785= 0;          V793= 0;
5260  goto T2796;  goto T2846;
5261  T2796:;  T2846:;
5262          V786 = make_fixnum(V785);          V794 = make_fixnum(V793);
5263          if(!(number_compare(V786,(V784))>=0)){          if(!(number_compare(V794,(V792))>=0)){
5264          goto T2797;}          goto T2847;}
5265          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5266          V787 = make_fixnum(V785);          V795 = make_fixnum(V793);
5267          (void)((*(LnkLI267))(V787));          (void)((*(LnkLI274))(V795));
5268          princ_char(41,VV[25]);          princ_char(41,VV[25]);
5269          goto T2792;          goto T2842;
5270  goto T2797;  goto T2847;
5271  T2797:;  T2847:;
5272          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5273          V788 = make_fixnum(V785);          V796 = make_fixnum(V793);
5274          (void)((*(LnkLI267))(V788));          (void)((*(LnkLI274))(V796));
5275          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5276          V785= (long)(V785)+1;          V793= (long)(V793)+1;
5277          goto T2796;}          goto T2846;}
5278  goto T2792;  goto T2842;
5279  T2792:;  T2842:;
5280          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[25]);
5281          {register object V789;          {register object V797;
5282          register long V790;          register long V798;
5283          V789= make_fixnum(V777);          V797= make_fixnum(V785);
5284          V790= 0;          V798= 0;
5285  goto T2817;  goto T2867;
5286  T2817:;  T2867:;
5287          V791 = make_fixnum(V790);          V799 = make_fixnum(V798);
5288          if(!(number_compare(V791,(V789))>=0)){          if(!(number_compare(V799,(V797))>=0)){
5289          goto T2818;}          goto T2868;}
5290          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5291          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5292          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5293          V792 = make_fixnum(V790);          V800 = make_fixnum(V798);
5294          (void)((*(LnkLI267))(V792));          (void)((*(LnkLI274))(V800));
5295          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5296          goto T2813;          goto T2863;
5297  goto T2818;  goto T2868;
5298  T2818:;  T2868:;
5299          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5300          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5301          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5302          V793 = make_fixnum(V790);          V801 = make_fixnum(V798);
5303          (void)((*(LnkLI267))(V793));          (void)((*(LnkLI274))(V801));
5304          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5305          V790= (long)(V790)+1;          V798= (long)(V798)+1;
5306          goto T2817;}          goto T2867;}
5307  goto T2813;  goto T2863;
5308  T2813:;  T2863:;
5309          V794= structure_ref(cadr((V776)),VV[62],1);          V802= structure_ref(cadr((V784)),VV[62],1);
5310          (void)((*(LnkLI301))(/* INLINE-ARGS */V794,small_fixnum(2)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2)));
5311          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
5312          bds_bind(VV[242],(V774));          bds_bind(VV[249],(V782));
5313          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
5314          bds_bind(VV[129],small_fixnum(0));          bds_bind(VV[129],small_fixnum(0));
5315          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5316          V795 = make_fixnum(V777);          V803 = make_fixnum(V785);
5317          bds_bind(VV[131],one_plus(V795));          bds_bind(VV[131],one_plus(V803));
5318          bds_bind(VV[132],(V774));          bds_bind(VV[132],(V782));
5319          bds_bind(VV[133],(V773));          bds_bind(VV[133],(V781));
5320          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));
5321          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],(VV[128]->s.s_dbind));
5322          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));
# Line 5251  T2813:; Line 5326  T2813:;
5326          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5327          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],small_fixnum(0));
5328          princ_str("\n{  register object *",VV[25]);          princ_str("\n{  register object *",VV[25]);
5329          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5330          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[25]);
5331          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[25]);
5332          (void)((*(LnkLI267))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
5333          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[25]);
5334          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5335          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5336          V796= structure_ref(cadr((V776)),VV[62],1);          V804= structure_ref(cadr((V784)),VV[62],1);
5337          V797= structure_ref((V775),VV[32],3);          V805= structure_ref((V783),VV[32],3);
5338          (void)((*(LnkLI307))(/* INLINE-ARGS */V796,/* INLINE-ARGS */V797,VV[250]));          (void)((*(LnkLI314))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257]));
5339          princ_str(" VC",VV[25]);          princ_str(" VC",VV[25]);
5340          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5341          if((symbol_value(VV[157]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
5342          goto T2858;}          goto T2908;}
5343          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[25]);
5344          (void)((*(LnkLI267))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5345          princ_str(");",VV[25]);          princ_str(");",VV[25]);
5346          goto T2856;          goto T2906;
5347  goto T2858;  goto T2908;
5348  T2858:;  T2908:;
5349          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
5350  goto T2856;  goto T2906;
5351  T2856:;  T2906:;
5352          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5353          goto T2864;}          goto T2914;}
5354          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5355  goto T2864;  goto T2914;
5356  T2864:;  T2914:;
5357          if(((V772))==Cnil){          if(((V780))==Cnil){
5358          goto T2870;}          goto T2920;}
5359          (void)((VFUN_NARGS=2,(*(LnkLI324))(caddr((V776)),caddr(cddr((V776))))));          (void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))))));
5360          goto T2868;          goto T2918;
5361  goto T2870;  goto T2920;
5362  T2870:;  T2920:;
5363          (void)((VFUN_NARGS=3,(*(LnkLI324))(caddr((V776)),caddr(cddr((V776))),(V775))));          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783))));
5364  goto T2868;  goto T2918;
5365  T2868:;  T2918:;
5366          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5367          {object V798;          {object V806;
5368          V798= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));
5369          setq(VV[33],make_cons((V798),symbol_value(VV[33])));}          setq(VV[33],make_cons((V806),symbol_value(VV[33])));}
5370          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[31]);
5371          (void)((*(LnkLI270))((VV[136]->s.s_dbind)));          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));
5372          V799= (*(LnkLI325))();          V807= (*(LnkLI332))();
5373          bds_unwind1;          bds_unwind1;
5374          bds_unwind1;          bds_unwind1;
5375          bds_unwind1;          bds_unwind1;
# Line 5310  T2868:; Line 5385  T2868:;
5385          bds_unwind1;          bds_unwind1;
5386          bds_unwind1;          bds_unwind1;
5387          bds_unwind1;          bds_unwind1;
5388          V800= structure_ref((V775),VV[32],3);          V808= structure_ref((V783),VV[32],3);
5389          {object V801 = (*(LnkLI303))(/* INLINE-ARGS */V800);          {object V809 = (*(LnkLI310))(/* INLINE-ARGS */V808);
5390          bds_unwind1;          bds_unwind1;
5391          bds_unwind1;          bds_unwind1;
5392          VMR54(V801)}}          VMR54(V809)}}
5393          base[0]=base[0];          base[0]=base[0];
5394          return Cnil;          return Cnil;
5395  }  }
# Line 5325  static object LI56() Line 5400  static object LI56()
5400  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
5401  goto TTL;  goto TTL;
5402  TTL:;  TTL:;
5403          {register object V802;          {register object V810;
5404          V802= Cnil;          V810= Cnil;
5405          {register object V803;          {register object V811;
5406          register object V804;          register object V812;
5407          V803= symbol_value(VV[18]);          V811= symbol_value(VV[18]);
5408          V804= car((V803));          V812= car((V811));
5409  goto T2885;  goto T2935;
5410  T2885:;  T2935:;
5411          if(!(endp_prop((V803)))){          if(!(endp_prop((V811)))){
5412          goto T2886;}          goto T2936;}
5413          goto T2881;          goto T2931;
5414  goto T2886;  goto T2936;
5415  T2886:;  T2936:;
5416          {register object V805;          {register object V813;
5417          if(!(type_of((V804))==t_cons)){          if(!(type_of((V812))==t_cons)){
5418          goto T2893;}          goto T2943;}
5419          {register object V806;          {register object V814;
5420          V806= car((V804));          V814= car((V812));
5421          V804= cdr((V804));          V812= cdr((V812));
5422          V805= (V806);          V813= (V814);
5423          goto T2891;}          goto T2941;}
5424  goto T2893;  goto T2943;
5425  T2893:;  T2943:;
5426          V805= Ct;          V813= Ct;
5427  goto T2891;  goto T2941;
5428  T2891:;  T2941:;
5429          if(!(((V802))==((V805)))){          if(!(((V810))==((V813)))){
5430          goto T2900;}          goto T2950;}
5431          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5432          base[2]= VV[251];          base[2]= VV[258];
5433          base[3]= (V804);          base[3]= (V812);
5434          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5435          Lformat();          Lformat();
5436          vs_top=sup;          vs_top=sup;
5437          goto T2898;          goto T2948;
5438  goto T2900;  goto T2950;
5439  T2900:;  T2950:;
5440          if(!(((V802))==Cnil)){          if(!(((V810))==Cnil)){
5441          goto T2906;}          goto T2956;}
5442          goto T2905;          goto T2955;
5443  goto T2906;  goto T2956;
5444  T2906:;  T2956:;
5445          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5446          base[2]= VV[252];          base[2]= VV[259];
5447          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5448          Lformat();          Lformat();
5449          vs_top=sup;          vs_top=sup;
5450  goto T2905;  goto T2955;
5451  T2905:;  T2955:;
5452          V802= (V805);          V810= (V813);
5453          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5454          base[2]= VV[253];          base[2]= VV[260];
5455          base[3]= (*(LnkLI273))((V802));          base[3]= (*(LnkLI280))((V810));
5456          base[4]= (V804);          base[4]= (V812);
5457          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5458          Lformat();          Lformat();
5459          vs_top=sup;          vs_top=sup;
5460  goto T2898;  goto T2948;
5461  T2898:;  T2948:;
5462          if(!(((V802))==(VV[254]))){          if(!(((V810))==(VV[261]))){
5463          goto T2890;}          goto T2940;}
5464          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5465          base[2]= VV[255];          base[2]= VV[262];
5466          base[3]= (V804);          base[3]= (V812);
5467          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5468          Lformat();          Lformat();
5469          vs_top=sup;}          vs_top=sup;}
5470  goto T2890;  goto T2940;
5471  T2890:;  T2940:;
5472          V803= cdr((V803));          V811= cdr((V811));
5473          V804= car((V803));          V812= car((V811));
5474          goto T2885;}          goto T2935;}
5475  goto T2881;  goto T2931;
5476  T2881:;  T2931:;
5477          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[18])==Cnil){
5478          goto T2926;}          goto T2976;}
5479          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5480          base[1]= VV[256];          base[1]= VV[263];
5481          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5482          Lformat();          Lformat();
5483          vs_top=sup;          vs_top=sup;
5484  goto T2926;  goto T2976;
5485  T2926:;  T2976:;
5486          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if(eql(symbol_value(VV[141]),small_fixnum(0))){
5487          goto T2930;}          goto T2980;}
5488          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[31]);
5489          base[1]= VV[257];          base[1]= VV[264];
5490          base[2]= symbol_value(VV[141]);          base[2]= symbol_value(VV[141]);
5491          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5492          Lformat();          Lformat();
5493          vs_top=sup;          vs_top=sup;
5494          {object V807 = vs_base[0];          {object V815 = vs_base[0];
5495          VMR55(V807)}          VMR55(V815)}
5496  goto T2930;  goto T2980;
5497  T2930:;  T2980:;
5498          {object V808 = Cnil;          {object V816 = Cnil;
5499          VMR55(V808)}}          VMR55(V816)}}
5500          base[0]=base[0];          base[0]=base[0];
5501          return Cnil;          return Cnil;
5502  }  }
# Line 5432  register object *base0; Line 5507  register object *base0;
5507  {       register object *base=vs_base;  {       register object *base=vs_base;
5508          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
5509          vs_reserve(VM56);          vs_reserve(VM56);
5510          {object V809;          {object V817;
5511          check_arg(1);          check_arg(1);
5512          V809=(base[0]);          V817=(base[0]);
5513          vs_top=sup;          vs_top=sup;
5514  goto TTL;  goto TTL;
5515  TTL:;  TTL:;
5516          V810= structure_ref((V809),VV[69],4);          V818= structure_ref((V817),VV[69],4);
5517          if(eql(/* INLINE-ARGS */V810,VV[72])){          if(eql(/* INLINE-ARGS */V818,VV[72])){
5518          goto T2936;}          goto T2986;}
5519          goto T2935;          goto T2985;
5520  goto T2936;  goto T2986;
5521  T2936:;  T2986:;
5522          (VV[153]->s.s_dbind)= Ct;          (VV[153]->s.s_dbind)= Ct;
5523  goto T2935;  goto T2985;
5524  T2935:;  T2985:;
5525          {object V811;          {object V819;
5526          V811= (*(LnkLI339))((V809));          V819= (*(LnkLI345))((V817));
5527          if(((V811))==Cnil){          if(((V819))==Cnil){
5528          goto T2941;}          goto T2991;}
5529          {object V812;          {object V820;
5530          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
5531          V812= symbol_value(VV[88]);          V820= symbol_value(VV[88]);
5532          (void)(structure_set((V809),VV[69],1,(V811)));          (void)(structure_set((V817),VV[69],1,(V819)));
5533          (void)(structure_set((V809),VV[69],4,(V812)));          (void)(structure_set((V817),VV[69],4,(V820)));
5534          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
5535          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5536          goto T2948;}          goto T2998;}
5537          princ_char(123,VV[25]);          princ_char(123,VV[25]);
5538          base0[1]= Ct;          base0[1]= Ct;
5539  goto T2948;  goto T2998;
5540  T2948:;  T2998:;
5541          base[1]= (V809);          base[1]= (V817);
5542          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5543          (void) (*Lnk340)();          (void) (*Lnk346)();
5544          return;}          return;}
5545  goto T2941;  goto T2991;
5546  T2941:;  T2991:;
5547          base[1]= Cnil;          base[1]= Cnil;
5548          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5549          return;}          return;}
5550          }          }
5551  }  }
5552  static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* WT-VAR-DECL */  static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* WT-VAR-DECL */
5553  static object  LnkTLI339(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[339],(void **)&LnkLI339,1,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
5554  static object  LnkTLI243(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[243],(void **)&LnkLI243,5,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */
5555  static object  LnkTLI333(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[333],(void **)&LnkLI333,1,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */
5556  static object  LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WFS-ERROR */  static object  LnkTLI339(){return call_proc0(VV[339],(void **)&LnkLI339);} /* WFS-ERROR */
5557  static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* C2DM */  static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* C2DM */
5558  static object  LnkTLI330(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[330],(void **)&LnkLI330,3,ap);va_end(ap);return V1;} /* C1DM */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)&LnkLI337,3,first,ap);va_end(ap);return V1;} /* C1DM */
5559  static object  LnkTLI329(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[329],(void **)&LnkLI329,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[336],(void **)&LnkLI336,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */
5560  static object  LnkTLI328(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[328],(void **)&LnkLI328,258,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)&LnkLI335,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */
5561  static object  LnkTLI327(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[327],(void **)&LnkLI327,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* WARN */
5562  static object  LnkTLI326(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[326],(void **)&LnkLI326,1,ap);va_end(ap);return V1;} /* REGISTER */  static object  LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* REGISTER */
5563  static object  LnkTLI325(){return call_proc0(VV[325],(void **)&LnkLI325);} /* WT-CVARS */  static object  LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WT-CVARS */
5564  static object  LnkTLI324(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[324],(void **)&LnkLI324,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[331],(void **)&LnkLI331,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
5565  static object  LnkTLI323(){return call_proc0(VV[323],(void **)&LnkLI323);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI330(){return call_proc0(VV[330],(void **)&LnkLI330);} /* CLOSE-INLINE-BLOCKS */
5566  static object  LnkTLI322(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[322],(void **)&LnkLI322,1,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* WT-VS */
5567  static object  LnkTLI321(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[321],(void **)&LnkLI321,1,ap);va_end(ap);return V1;} /* C2BIND */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* C2BIND */
5568  static object  LnkTLI320(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[320],(void **)&LnkLI320,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
5569  static object  LnkTLI319(){return call_proc0(VV[319],(void **)&LnkLI319);} /* BABOON */  static object  LnkTLI326(){return call_proc0(VV[326],(void **)&LnkLI326);} /* BABOON */
5570  static object  LnkTLI318(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[318],(void **)&LnkLI318,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
5571  static void LnkT317(){ call_or_link(VV[317],(void **)&Lnk317);} /* INC-INLINE-BLOCKS */  static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* INC-INLINE-BLOCKS */
5572  static object  LnkTLI316(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[316],(void **)&LnkLI316,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)&LnkLI323,first,ap);va_end(ap);return V1;} /* CS-PUSH */
5573  static object  LnkTLI315(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[315],(void **)&LnkLI315,2,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
5574  static object  LnkTLI314(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[314],(void **)&LnkLI314,2,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
5575  static object  LnkTLI313(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[313],(void **)&LnkLI313,1,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */
5576  static object  LnkTLI312(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[312],(void **)&LnkLI312,1,ap);va_end(ap);return V1;} /* WT-LIST */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[319],(void **)&LnkLI319,first,ap);va_end(ap);return V1;} /* CONCATENATE */
5577  static object  LnkTLI311(){return call_proc0(VV[311],(void **)&LnkLI311);} /* CVS-PUSH */  static object  LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* CVS-PUSH */
5578  static object  LnkTLI310(){return call_proc0(VV[310],(void **)&LnkLI310);} /* VS-PUSH */  static object  LnkTLI317(){return call_proc0(VV[317],(void **)&LnkLI317);} /* VS-PUSH */
5579  static object  LnkTLI309(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[309],(void **)&LnkLI309,2,ap);va_end(ap);return V1;} /* WT-V*-MACROS */  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */
5580  static void LnkT308(){ call_or_link(VV[308],(void **)&Lnk308);} /* C2EXPR */  static void LnkT315(){ call_or_link(VV[315],(void **)&Lnk315);} /* C2EXPR */
5581  static object  LnkTLI307(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[307],(void **)&LnkLI307,3,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */
5582  static object  LnkTLI306(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[306],(void **)&LnkLI306,2,ap);va_end(ap);return V1;} /* WT-REQUIREDS */  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */
5583  static object  LnkTLI305(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[305],(void **)&LnkLI305,ap);va_end(ap);return V1;} /* WT-COMMENT */  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[312],(void **)&LnkLI312,first,ap);va_end(ap);return V1;} /* WT-COMMENT */
5584  static object  LnkTLI304(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[304],(void **)&LnkLI304,2,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */
5585  static object  LnkTLI303(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[303],(void **)&LnkLI303,1,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */
5586  static void LnkT302(){ call_or_link(VV[302],(void **)&Lnk302);} /* T3DEFUN-AUX */  static void LnkT309(){ call_or_link(VV[309],(void **)&Lnk309);} /* T3DEFUN-AUX */
5587  static object  LnkTLI301(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[301],(void **)&LnkLI301,258,ap);va_end(ap);return V1;} /* ANALYZE-REGS */  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */
5588  static void LnkT300(){ call_or_link(VV[300],(void **)&Lnk300);} /* FIXNUMP */  static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* FIXNUMP */
5589  static object  LnkTLI299(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[299],(void **)&LnkLI299,1,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
5590  static object  LnkTLI298(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[298],(void **)&LnkLI298,1,ap);va_end(ap);return V1;} /* MAXARGS */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* MAXARGS */
5591  static object  LnkTLI297(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[297],(void **)&LnkLI297,1,ap);va_end(ap);return V1;} /* VARARG-P */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,1,first,ap);va_end(ap);return V1;} /* VARARG-P */
5592  static object  LnkTLI296(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[296],(void **)&LnkLI296,3,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)&LnkLI303,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */
5593  static object  LnkTLI295(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[295],(void **)&LnkLI295,258,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)&LnkLI302,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
5594  static object  LnkTLI294(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[294],(void **)&LnkLI294,2,ap);va_end(ap);return V1;} /* ADD-ADDRESS */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
5595  static object  LnkTLI293(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[293],(void **)&LnkLI293,ap);va_end(ap);return V1;} /* ADD-INIT */  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)&LnkLI300,first,ap);va_end(ap);return V1;} /* ADD-INIT */
5596  static object  LnkTLI292(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[292],(void **)&LnkLI292,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[299],(void **)&LnkLI299,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
5597  static object  LnkTLI291(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[291],(void **)&LnkLI291,2,ap);va_end(ap);return V1;} /* SHIFT<< */  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */
5598  static object  LnkTLI290(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[290],(void **)&LnkLI290,257,ap);va_end(ap);return V1;} /* F-TYPE */  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)&LnkLI297,257,first,ap);va_end(ap);return V1;} /* F-TYPE */
5599  static void LnkT289(){ call_or_link(VV[289],(void **)&Lnk289);} /* SUBTYPEP */  static void LnkT296(){ call_or_link(VV[296],(void **)&Lnk296);} /* SUBTYPEP */
5600  static void LnkT288(){ call_or_link(VV[288],(void **)&Lnk288);} /* STRUCTURE-SUBTYPE-P */  static void LnkT295(){ call_or_link(VV[295],(void **)&Lnk295);} /* STRUCTURE-SUBTYPE-P */
5601  static object  LnkTLI287(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[287],(void **)&LnkLI287,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[294],(void **)&LnkLI294,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
5602  static object  LnkTLI286(){return call_proc0(VV[286],(void **)&LnkLI286);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI293(){return call_proc0(VV[293],(void **)&LnkLI293);} /* ADD-LOAD-TIME-SHARP-COMMA */
5603  static object  LnkTLI285(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[285],(void **)&LnkLI285,2,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */
5604  static object  LnkTLI284(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[284],(void **)&LnkLI284,2,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
5605  static object  LnkTLI283(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[283],(void **)&LnkLI283,2,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)&LnkLI290,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */
5606  static object  LnkTLI282(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[282],(void **)&LnkLI282,1,ap);va_end(ap);return V1;} /* PROCLAIM */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */
5607  static object  LnkTLI281(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[281],(void **)&LnkLI281,1,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)&LnkLI288,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */
5608  static object  LnkTLI280(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[280],(void **)&LnkLI280,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)&LnkLI287,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
5609  static object  LnkTLI279(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[279],(void **)&LnkLI279,1,ap);va_end(ap);return V1;} /* T1PROGN */  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* T1PROGN */
5610  static object  LnkTLI276(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[276],(void **)&LnkLI276,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
5611  static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* CMP-EVAL */  static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */
5612  static void LnkT274(){ call_or_link(VV[274],(void **)&Lnk274);} /* DECLARATION-TYPE */  static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */
5613  static object  LnkTLI273(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[273],(void **)&LnkLI273,1,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
5614  static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* WT-DATA-FILE */  static void LnkT279(){ call_or_link(VV[279],(void **)&Lnk279);} /* WT-DATA-FILE */
5615  static object  LnkTLI271(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[271],(void **)&LnkLI271,1,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
5616  static object  LnkTLI270(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[270],(void **)&LnkLI270,1,ap);va_end(ap);return V1;} /* WT-H1 */  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
5617  static object  LnkTLI269(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[269],(void **)&LnkLI269,1,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */
5618  static void LnkT268(){ call_or_link(VV[268],(void **)&Lnk268);} /* WT-GLOBAL-ENTRY */  static void LnkT275(){ call_or_link(VV[275],(void **)&Lnk275);} /* WT-GLOBAL-ENTRY */
5619  static void LnkT250(){ call_or_link(VV[250],(void **)&Lnk250);} /* T3LOCAL-FUN */  static void LnkT257(){ call_or_link(VV[257],(void **)&Lnk257);} /* T3LOCAL-FUN */
5620  static object  LnkTLI267(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[267],(void **)&LnkLI267,1,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */
5621  static object  LnkTLI266(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[266],(void **)&LnkLI266,3,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)&LnkLI273,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */
5622  static object  LnkTLI265(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[265],(void **)&LnkLI265,1,ap);va_end(ap);return V1;} /* T1ORDINARY */  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */
5623  static void LnkT264(){ call_or_link(VV[264],(void **)&Lnk264);} /* T1EXPR */  static void LnkT271(){ call_or_link(VV[271],(void **)&Lnk271);} /* T1EXPR */
5624  static object  LnkTLI263(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[263],(void **)&LnkLI263,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */  static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
5625  static object  LnkTLI262(){return call_proc0(VV[262],(void **)&LnkLI262);} /* PRINT-CURRENT-FORM */  static object  LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PRINT-CURRENT-FORM */
5626  static object  LnkTLI261(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[261],(void **)&LnkLI261,1,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */
5627  static object  LnkTLI260(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[260],(void **)&LnkLI260,2,ap);va_end(ap);return V1;} /* MAYBE-EVAL */  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)&LnkLI267,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */
5628  static object  LnkTLI259(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[259],(void **)&LnkLI259,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */
5629  static object  LnkTLI258(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[258],(void **)&LnkLI258,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */
5630    
5631  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5632  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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