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

Diff of /gcl/cmpnew/cmpcall.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 32  T2:; Line 32  T2:;
32          VMR1(V4)}          VMR1(V4)}
33  goto T4;  goto T4;
34  T4:;  T4:;
35          if((length((V3)))<(64)){          if(((long)length((V3)))<(64)){
36          goto T6;}          goto T6;}
37          {object V5 = Cnil;          {object V5 = Cnil;
38          VMR1(V5)}          VMR1(V5)}
# Line 129  goto TTL; Line 129  goto TTL;
129  TTL:;  TTL:;
130          {object V23;          {object V23;
131          V23= Cnil;          V23= Cnil;
132          V23= (*(LnkLI96))((V22));          V23= (*(LnkLI100))((V22));
133          if(((V23))==Cnil){          if(((V23))==Cnil){
134          goto T39;}          goto T39;}
135          if(!((car((V23)))==(VV[6]))){          if(!((car((V23)))==(VV[6]))){
# Line 166  TTL:; Line 166  TTL:;
166          goto T47;}          goto T47;}
167          if(!(type_of(car((V28)))==t_symbol)){          if(!(type_of(car((V28)))==t_symbol)){
168          goto T47;}          goto T47;}
169          if(((*(LnkLI97))(car((V28))))==Cnil){          if(((*(LnkLI101))(car((V28))))==Cnil){
170          goto T47;}          goto T47;}
171          V28= (*(LnkLI98))((V28));          V28= (*(LnkLI102))((V28));
172  goto T47;  goto T47;
173  T47:;{object V30;  T47:;{object V30;
174          if(type_of((V28))==t_cons){          if(type_of((V28))==t_cons){
# Line 218  T73:; Line 218  T73:;
218          bds_bind(VV[11],Cnil);          bds_bind(VV[11],Cnil);
219          bds_bind(VV[12],Cnil);          bds_bind(VV[12],Cnil);
220          {object V33;          {object V33;
221          V33= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28))));          V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));
222          V34= list(3,VV[13],cadr((V33)),(V33));          V34= list(3,VV[13],cadr((V33)),(V33));
223          bds_unwind1;          bds_unwind1;
224          bds_unwind1;          bds_unwind1;
# Line 238  T67:;} Line 238  T67:;}
238          goto T60;          goto T60;
239  goto T76;  goto T76;
240  T76:;{object V35;  T76:;{object V35;
241          V29= (*(LnkLI96))(cadr((V28)));          V29= (*(LnkLI100))(cadr((V28)));
242          if(((V29))!=Cnil){          if(((V29))!=Cnil){
243          goto T80;}          goto T80;}
244          V35= Cnil;          V35= Cnil;
# Line 260  T79:; Line 260  T79:;
260  goto T78;  goto T78;
261  T78:;}  T78:;}
262          V36= get(cadr((V28)),VV[16],Cnil);          V36= get(cadr((V28)),VV[16],Cnil);
263          V37= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V36)==Cnil?Ct:Cnil)));          V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil)));
264          V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));          V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));
265  goto T60;  goto T60;
266  T60:;  T60:;
# Line 306  T96:; Line 306  T96:;
306  goto T98;  goto T98;
307  T98:;  T98:;
308          {object V39;          {object V39;
309          V39= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28))));          V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));
310          V38= list(3,VV[13],cadr((V39)),(V39));}          V38= list(3,VV[13],cadr((V39)),(V39));}
311  goto T93;  goto T93;
312  T93:;  T93:;
# Line 321  T92:;} Line 321  T92:;}
321          goto T56;          goto T56;
322  goto T101;  goto T101;
323  T101:;{object V40;  T101:;{object V40;
324          V29= (*(LnkLI96))(cadr((V28)));          V29= (*(LnkLI100))(cadr((V28)));
325          if(((V29))!=Cnil){          if(((V29))!=Cnil){
326          goto T105;}          goto T105;}
327          V40= Cnil;          V40= Cnil;
# Line 343  T104:; Line 343  T104:;
343  goto T103;  goto T103;
344  T103:;}  T103:;}
345          V41= get(cadr((V28)),VV[16],Cnil);          V41= get(cadr((V28)),VV[16],Cnil);
346          V42= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V41)==Cnil?Ct:Cnil)));          V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil)));
347          V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));          V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));
348  goto T56;  goto T56;
349  T56:;  T56:;
# Line 354  goto T55; Line 354  goto T55;
354  T55:;}  T55:;}
355          {object V44;          {object V44;
356          object V45;          object V45;
357          V44= (*(LnkLI101))((V28));          V44= (*(LnkLI105))((V28));
358          V45= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],Ct));          V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct));
359          (void)((*(LnkLI102))((V45),cadr((V44))));          (void)((*(LnkLI106))((V45),cadr((V44))));
360          {object V46 = list(3,VV[18],(V45),(V44));          {object V46 = list(3,VV[18],(V45),(V44));
361          VMR3(V46)}}}          VMR3(V46)}}}
362          base[0]=base[0];          base[0]=base[0];
# Line 378  TTL:; Line 378  TTL:;
378          V50= caddr((V48));          V50= caddr((V48));
379          V51= cadddr((V48));          V51= cadddr((V48));
380          V52= car(cddddr((V48)));          V52= car(cddddr((V48)));
381          {object V53 = (VFUN_NARGS=4,(*(LnkLI103))((V50),(V51),(V52),(V49)));          {object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49)));
382          VMR4(V53)}}          VMR4(V53)}}
383          base[0]=base[0];          base[0]=base[0];
384          return Cnil;          return Cnil;
# Line 419  goto T120; Line 419  goto T120;
419  T120:;  T120:;
420          {object V60= car((V56));          {object V60= car((V56));
421          if((V60!= VV[14]))goto T123;          if((V60!= VV[14]))goto T123;
422          {object V61 = (*(LnkLI104))(caddr((V56)),(V57),(V58),Ct);          {object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct);
423          VMR5(V61)}          VMR5(V61)}
424  goto T123;  goto T123;
425  T123:;  T123:;
426          if((V60!= VV[6]))goto T124;          if((V60!= VV[6]))goto T124;
427          {object V62 = (*(LnkLI105))(cddr((V56)),(V57));          {object V62 = (*(LnkLI109))(cddr((V56)),(V57));
428          VMR5(V62)}          VMR5(V62)}
429  goto T124;  goto T124;
430  T124:;  T124:;
431          if((V60!= VV[13]))goto T125;          if((V60!= VV[13]))goto T125;
432          {object V63 = (*(LnkLI106))(caddr((V56)),(V57));          {object V63 = (*(LnkLI110))(caddr((V56)),(V57));
433          VMR5(V63)}          VMR5(V63)}
434  goto T125;  goto T125;
435  T125:;  T125:;
# Line 457  T137:; Line 457  T137:;
457          goto T129;}          goto T129;}
458  goto T130;  goto T130;
459  T130:;  T130:;
460          (void)((*(LnkLI107))((V64),(V57),(V59)));          (void)((*(LnkLI111))((V64),(V57),(V59)));
461          {object V66 = Cnil;          {object V66 = Cnil;
462          bds_unwind1;          bds_unwind1;
463          VMR5(V66)}          VMR5(V66)}
# Line 467  T129:; Line 467  T129:;
467          goto T145;}          goto T145;}
468          if(type_of((V57))==t_cons||((V57))==Cnil){          if(type_of((V57))==t_cons||((V57))==Cnil){
469          goto T148;}          goto T148;}
470          (void)((*(LnkLI108))());          (void)((*(LnkLI112))());
471  goto T148;  goto T148;
472  T148:;  T148:;
473          if(!((car((V64)))==(VV[26]))){          if(!((car((V64)))==(VV[26]))){
# Line 478  goto T152; Line 478  goto T152;
478  T152:;  T152:;
479          if(!((car((V64)))==(VV[23]))){          if(!((car((V64)))==(VV[23]))){
480          goto T156;}          goto T156;}
481          if(((*(LnkLI109))(caaddr((V64)),(V57)))!=Cnil){          if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){
482          goto T156;}          goto T156;}
483          V58= make_cons(VV[23],caddr((V64)));          V58= make_cons(VV[23],caddr((V64)));
484          goto T145;          goto T145;
485  goto T156;  goto T156;
486  T156:;  T156:;
487          V58= list(2,VV[27],(*(LnkLI110))());          V58= list(2,VV[27],(*(LnkLI114))());
488          bds_bind(VV[21],(V58));          bds_bind(VV[21],(V58));
489          V67= (*(LnkLI111))(caddr((V56)));          V67= (*(LnkLI115))(caddr((V56)));
490          bds_unwind1;          bds_unwind1;
491  goto T145;  goto T145;
492  T145:;  T145:;
493          (void)((*(LnkLI112))((V57)));          (void)((*(LnkLI116))((V57)));
494          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
495          goto T166;}          goto T166;}
496          princ_str("\n   super_funcall(",VV[29]);          princ_str("\n   super_funcall(",VV[29]);
497          (void)((*(LnkLI113))((V58)));          (void)((*(LnkLI117))((V58)));
498          princ_str(");",VV[29]);          princ_str(");",VV[29]);
499          goto T164;          goto T164;
500  goto T166;  goto T166;
# Line 502  T166:; Line 502  T166:;
502          if((symbol_value(VV[30]))==Cnil){          if((symbol_value(VV[30]))==Cnil){
503          goto T172;}          goto T172;}
504          (void)((          (void)((
505          (type_of(symbol_value(VV[30])) == t_sfun ?(*(object (*)())((symbol_value(VV[30]))->sfn.sfn_self)):          (type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)):
506          (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));          (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));
507          goto T164;          goto T164;
508  goto T172;  goto T172;
509  T172:;  T172:;
510          princ_str("\n   super_funcall_no_event(",VV[29]);          princ_str("\n   super_funcall_no_event(",VV[29]);
511          (void)((*(LnkLI113))((V58)));          (void)((*(LnkLI117))((V58)));
512          princ_str(");",VV[29]);          princ_str(");",VV[29]);
513  goto T164;  goto T164;
514  T164:;  T164:;
515          {object V68 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));          {object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
516          bds_unwind1;          bds_unwind1;
517          VMR5(V68)}}          VMR5(V68)}}
518  goto T126;  goto T126;
519  T126:;  T126:;
520          {object V69 = (*(LnkLI108))();          {object V69 = (*(LnkLI112))();
521          VMR5(V69)}}          VMR5(V69)}}
522          va_end(ap);          va_end(ap);
523          base[0]=base[0];          base[0]=base[0];
# Line 540  static object LI6(va_alist) Line 540  static object LI6(va_alist)
540          object V73;          object V73;
541          V72= car((V70));          V72= car((V70));
542          V73= Cnil;          V73= Cnil;
543          (void)((*(LnkLI113))(VV[32]));          (void)((*(LnkLI117))(VV[32]));
544          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
545          goto T182;}          goto T182;}
546          if((car((V72)))==(VV[23])){          if((car((V72)))==(VV[23])){
547          goto T181;}          goto T181;}
548  goto T182;  goto T182;
549  T182:;  T182:;
550          V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI115))()));          V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));
551          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
552          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
553          princ_str(" = ",VV[29]);          princ_str(" = ",VV[29]);
554          (void)((*(LnkLI113))(car((V70))));          (void)((*(LnkLI117))(car((V70))));
555          princ_char(44,VV[29]);          princ_char(44,VV[29]);
556  goto T181;  goto T181;
557  T181:;  T181:;
558          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
559          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
560          princ_str(") == t_sfun ?",VV[29]);          princ_str(") == t_sfun ?",VV[29]);
561          princ_str("(*(object (*)())((",VV[29]);          princ_str("(*((",VV[29]);
562          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
563          princ_str(")->sfn.sfn_self)):",VV[29]);          princ_str(")->sfn.sfn_self)):",VV[29]);
564          if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){          if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){
565          goto T200;}          goto T200;}
566          V73= Ct;          V73= Ct;
567          princ_str("\n   (fcall.argd=",VV[29]);          princ_str("\n   (fcall.argd=",VV[29]);
568          V74 = make_fixnum(length(cdr((V70))));          V74 = make_fixnum((long)length(cdr((V70))));
569          (void)((*(LnkLI113))(V74));          (void)((*(LnkLI117))(V74));
570          princ_str(",type_of(",VV[29]);          princ_str(",type_of(",VV[29]);
571          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
572          princ_str(")==t_vfun) ?",VV[29]);          princ_str(")==t_vfun) ?",VV[29]);
573          princ_str("\n   (*(object (*)())((",VV[29]);          princ_str("\n   (*((",VV[29]);
574          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
575          princ_str(")->sfn.sfn_self)):",VV[29]);          princ_str(")->sfn.sfn_self)):",VV[29]);
576  goto T200;  goto T200;
577  T200:;  T200:;
578          princ_str("\n   (fcall.fun=(",VV[29]);          princ_str("\n   (fcall.fun=(",VV[29]);
579          (void)((*(LnkLI113))((V72)));          (void)((*(LnkLI117))((V72)));
580          princ_str("),",VV[29]);          princ_str("),",VV[29]);
581          if(((V73))!=Cnil){          if(((V73))!=Cnil){
582          goto T218;}          goto T218;}
583          princ_str("fcall.argd=",VV[29]);          princ_str("fcall.argd=",VV[29]);
584          V75 = make_fixnum(length(cdr((V70))));          V75 = make_fixnum((long)length(cdr((V70))));
585          (void)((*(LnkLI113))(V75));          (void)((*(LnkLI117))(V75));
586          princ_char(44,VV[29]);          princ_char(44,VV[29]);
587  goto T218;  goto T218;
588  T218:;  T218:;
589          princ_str("fcalln))(",VV[29]);          princ_str("fcalln))(",VV[29]);
590          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
591          goto T226;}          goto T226;}
592          (void)((*(LnkLI113))(cadr((V70))));          (void)((*(LnkLI117))(cadr((V70))));
593          {register object V76;          {register object V76;
594          register object V77;          register object V77;
595          V76= cddr((V70));          V76= cddr((V70));
# Line 601  T234:; Line 601  T234:;
601          goto T226;          goto T226;
602  goto T235;  goto T235;
603  T235:;  T235:;
604          (void)((*(LnkLI113))(VV[35]));          (void)((*(LnkLI117))(VV[35]));
605          (void)((*(LnkLI113))((V77)));          (void)((*(LnkLI117))((V77)));
606          V76= cdr((V76));          V76= cdr((V76));
607          V77= car((V76));          V77= car((V76));
608          goto T234;}          goto T234;}
609  goto T226;  goto T226;
610  T226:;  T226:;
611          (void)((*(LnkLI113))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
612          (void)((*(LnkLI113))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
613          {object V78 = Cnil;          {object V78 = Cnil;
614          VMR6(V78)}}          VMR6(V78)}}
615          va_end(ap);          va_end(ap);
# Line 642  T250:; Line 642  T250:;
642          {object V84;          {object V84;
643          V84= symbol_value(VV[19]);          V84= symbol_value(VV[19]);
644          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],symbol_value(VV[19]));
645          (void)((*(LnkLI116))((V82)));          (void)((*(LnkLI120))((V82)));
646          if(((*(LnkLI117))((V83)))==Cnil){          if(((*(LnkLI121))((V83)))==Cnil){
647          bds_unwind1;          bds_unwind1;
648          goto T259;}          goto T259;}
649          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
650          (void)((*(LnkLI113))((V84)));          (void)((*(LnkLI117))((V84)));
651          princ_str(")+",VV[29]);          princ_str(")+",VV[29]);
652          V85= number_minus((VV[19]->s.s_dbind),(V84));          V85= number_minus((VV[19]->s.s_dbind),(V84));
653          (void)((*(LnkLI113))(/* INLINE-ARGS */V85));          (void)((*(LnkLI117))(/* INLINE-ARGS */V85));
654          princ_char(59,VV[29]);          princ_char(59,VV[29]);
655          setq(VV[37],Ct);          setq(VV[37],Ct);
656          bds_unwind1;}          bds_unwind1;}
657  goto T259;  goto T259;
658  T259:;  T259:;
659          {object V86 = (VFUN_NARGS=2,(*(LnkLI118))((V83),caddr(cddr((V81)))));          {object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81)))));
660          VMR7(V86)}          VMR7(V86)}
661  goto T251;  goto T251;
662  T251:;  T251:;
663          {object V87;          {object V87;
664          object V88;          object V88;
665          V87= make_fixnum(length(car((V83))));          V87= make_fixnum((long)length(car((V83))));
666          V88= make_fixnum(length((V82)));          V88= make_fixnum((long)length((V82)));
667          if(!(eql((V88),(V87)))){          if(!(eql((V88),(V87)))){
668          goto T276;}          goto T276;}
669          goto T273;          goto T273;
670  goto T276;  goto T276;
671  T276:;  T276:;
672          (void)((VFUN_NARGS=3,(*(LnkLI119))(VV[38],(V88),(V87))));}          (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));}
673  goto T273;  goto T273;
674  T273:;  T273:;
675          {object V89 = (*(LnkLI120))(car((V83)),(V82),caddr(cddr((V81))));          {object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81))));
676          VMR7(V89)}}          VMR7(V89)}}
677          base[0]=base[0];          base[0]=base[0];
678          return Cnil;          return Cnil;
# Line 709  T279:; Line 709  T279:;
709          if(eql(x,V95->c.c_car)){          if(eql(x,V95->c.c_car)){
710          goto T286;          goto T286;
711          }else V95=V95->c.c_cdr;}          }else V95=V95->c.c_cdr;}
712          if(!((length((V94)))==(length((V93))))){          if(!(((long)length((V94)))==((long)length((V93))))){
713          goto T292;}          goto T292;}
714          {object V96 = Ct;          {object V96 = Ct;
715          VMR8(V96)}          VMR8(V96)}
716  goto T292;  goto T292;
717  T292:;  T292:;
718          V97 = make_fixnum(length((V93)));          V97 = make_fixnum((long)length((V93)));
719          V98 = make_fixnum(length((V94)));          V98 = make_fixnum((long)length((V94)));
720          {object V99 = (VFUN_NARGS=4,(*(LnkLI121))(VV[42],(V92),V97,V98));          {object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98));
721          VMR8(V99)}          VMR8(V99)}
722  goto T286;  goto T286;
723  T286:;  T286:;
# Line 771  T299:; Line 771  T299:;
771          goto T295;}          goto T295;}
772          princ_str("\n   { save_avma;",VV[29]);          princ_str("\n   { save_avma;",VV[29]);
773          vs_base=vs_top;          vs_base=vs_top;
774          (void) (*Lnk122)();          (void) (*Lnk126)();
775          vs_top=sup;          vs_top=sup;
776          if(!(type_of(symbol_value(VV[45]))==t_cons)){          if(!(type_of(symbol_value(VV[45]))==t_cons)){
777          goto T309;}          goto T309;}
# Line 803  TTL:; Line 803  TTL:;
803          {register object V112;          {register object V112;
804          V112= Cnil;          V112= Cnil;
805          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],symbol_value(VV[19]));
806          if(((*(LnkLI123))((V108)))==Cnil){          if(((*(LnkLI127))((V108)))==Cnil){
807          goto T314;}          goto T314;}
808          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V109))==t_cons||((V109))==Cnil)){
809          goto T317;}          goto T317;}
# Line 821  TTL:; Line 821  TTL:;
821          goto T317;}          goto T317;}
822  goto T327;  goto T327;
823  T327:;  T327:;
824          if(((*(LnkLI124))())==Cnil){          if(((*(LnkLI128))())==Cnil){
825          goto T317;}          goto T317;}
826          if(!((length((V109)))==(length(cdr(symbol_value(VV[48])))))){          if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){
827          goto T317;}          goto T317;}
828          bds_bind(VV[21],VV[22]);          bds_bind(VV[21],VV[22]);
829          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
# Line 845  T337:; Line 845  T337:;
845          goto T337;}          goto T337;}
846  goto T336;  goto T336;
847  T336:;  T336:;
848          (void)((*(LnkLI125))(V114,(V109)));          (void)((*(LnkLI129))(V114,(V109)));
849          if((cdr((VV[49]->s.s_dbind)))==Cnil){          if((cdr((VV[49]->s.s_dbind)))==Cnil){
850          bds_unwind1;          bds_unwind1;
851          bds_unwind1;          bds_unwind1;
852          bds_unwind1;          bds_unwind1;
853          goto T331;}          goto T331;}
854          princ_str("\ngoto T",VV[29]);          princ_str("\ngoto T",VV[29]);
855          (void)((*(LnkLI113))(car((VV[49]->s.s_dbind))));          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));
856          princ_char(59,VV[29]);          princ_char(59,VV[29]);
857          princ_str("\nT",VV[29]);          princ_str("\nT",VV[29]);
858          (void)((*(LnkLI113))(car((VV[49]->s.s_dbind))));          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));
859          princ_str(":;",VV[29]);          princ_str(":;",VV[29]);
860          bds_unwind1;          bds_unwind1;
861          bds_unwind1;          bds_unwind1;
862          bds_unwind1;          bds_unwind1;
863  goto T331;  goto T331;
864  T331:;  T331:;
865          (void)((*(LnkLI126))(VV[53]));          (void)((*(LnkLI130))(VV[53]));
866          princ_str("\n   goto TTL;",VV[29]);          princ_str("\n   goto TTL;",VV[29]);
867          {object V118 = (VFUN_NARGS=2,(*(LnkLI127))(VV[54],(V108)));          {object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108)));
868          bds_unwind1;          bds_unwind1;
869          VMR10(V118)}          VMR10(V118)}
870  goto T317;  goto T317;
# Line 873  T317:; Line 873  T317:;
873          goto T352;}          goto T352;}
874          if(((V110))!=Cnil){          if(((V110))!=Cnil){
875          goto T352;}          goto T352;}
876          V112= (*(LnkLI128))((V108),(V109),(V111));          V112= (*(LnkLI132))((V108),(V109),(V111));
877          if(((V112))==Cnil){          if(((V112))==Cnil){
878          goto T352;}          goto T352;}
879          bds_bind(VV[45],small_fixnum(0));          bds_bind(VV[45],small_fixnum(0));
880          bds_bind(VV[43],symbol_value(VV[43]));          bds_bind(VV[43],symbol_value(VV[43]));
881          base[3]= (V112);          base[3]= (V112);
882          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
883          (void) (*Lnk129)();          (void) (*Lnk133)();
884          vs_top=sup;          vs_top=sup;
885          V119= (*(LnkLI130))((V112),(V109));          V119= (*(LnkLI134))((V112),(V109));
886          (void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V119,Cnil,(V108))));          (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108))));
887          {object V120 = (*(LnkLI131))();          {object V120 = (*(LnkLI135))();
888          bds_unwind1;          bds_unwind1;
889          bds_unwind1;          bds_unwind1;
890          bds_unwind1;          bds_unwind1;
# Line 902  goto T365; Line 902  goto T365;
902  T365:;  T365:;
903          if(((V112))==Cnil){          if(((V112))==Cnil){
904          goto T363;}          goto T363;}
905          (void)((*(LnkLI132))((V108),(V109)));          (void)((*(LnkLI136))((V108),(V109)));
906          (void)((*(LnkLI112))((V109)));          (void)((*(LnkLI116))((V109)));
907          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
908          (void)((*(LnkLI113))((V112)));          (void)((*(LnkLI117))((V112)));
909          princ_str("();",VV[29]);          princ_str("();",VV[29]);
910          {object V122 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108)));          {object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
911          bds_unwind1;          bds_unwind1;
912          VMR10(V122)}          VMR10(V122)}
913  goto T363;  goto T363;
914  T363:;  T363:;
915          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V109))==t_cons||((V109))==Cnil)){
916          goto T375;}          goto T375;}
917          if(!((length((V109)))<(10))){          if(!(((long)length((V109)))<(10))){
918          goto T375;}          goto T375;}
919          if((symbol_value(VV[57]))!=Cnil){          if((symbol_value(VV[57]))!=Cnil){
920          goto T380;}          goto T380;}
# Line 937  T386:; Line 937  T386:;
937          if(((V110))!=Cnil){          if(((V110))!=Cnil){
938          goto T375;}          goto T375;}
939          bds_bind(VV[45],small_fixnum(0));          bds_bind(VV[45],small_fixnum(0));
940          V123= (*(LnkLI133))((V108),(V109));          V123= (*(LnkLI137))((V108),(V109));
941          V124= (*(LnkLI130))(/* INLINE-ARGS */V123,(V109));          V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109));
942          (void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V124,Cnil,(V108))));          (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108))));
943          {object V125 = (*(LnkLI131))();          {object V125 = (*(LnkLI135))();
944          bds_unwind1;          bds_unwind1;
945          bds_unwind1;          bds_unwind1;
946          VMR10(V125)}          VMR10(V125)}
947  goto T375;  goto T375;
948  T375:;  T375:;
949          (void)((*(LnkLI112))((V109)));          (void)((*(LnkLI116))((V109)));
950          {object V126;          {object V126;
951          V126= (*(LnkLI134))((V108),Cnil,(V109));          V126= (*(LnkLI138))((V108),Cnil,(V109));
952          princ_str("\n   (void) (*Lnk",VV[29]);          princ_str("\n   (void) (*Lnk",VV[29]);
953          (void)((*(LnkLI113))((V126)));          (void)((*(LnkLI117))((V126)));
954          princ_str(")(",VV[29]);          princ_str(")(",VV[29]);
955          if((get((V108),VV[61],Cnil))==Cnil){          if((get((V108),VV[61],Cnil))==Cnil){
956          goto T402;}          goto T402;}
957          princ_str("Lclptr",VV[29]);          princ_str("Lclptr",VV[29]);
958          (void)((*(LnkLI113))((V126)));          (void)((*(LnkLI117))((V126)));
959  goto T402;  goto T402;
960  T402:;  T402:;
961          princ_str(");",VV[29]);          princ_str(");",VV[29]);
962          {object V127 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108)));          {object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
963          bds_unwind1;          bds_unwind1;
964          VMR10(V127)}}          VMR10(V127)}}
965  goto T314;  goto T314;
966  T314:;  T314:;
967          {object V128 = (*(LnkLI135))((V108),(V109),(V110),Cnil);          {object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil);
968          bds_unwind1;          bds_unwind1;
969          VMR10(V128)}}          VMR10(V128)}}
970          base[0]=base[0];          base[0]=base[0];
# Line 982  TTL:; Line 982  TTL:;
982          object V136;          object V136;
983          object V137;          object V137;
984          register object V138;          register object V138;
985          V137= (*(LnkLI136))((V132));          V137= (*(LnkLI140))((V132));
986          V135= Cnil;          V135= Cnil;
987          V136= Cnil;          V136= Cnil;
988          V138= Cnil;          V138= Cnil;
# Line 1000  TTL:; Line 1000  TTL:;
1000          goto T416;          goto T416;
1001  goto T417;  goto T417;
1002  T417:;  T417:;
1003          V141= make_fixnum(length((V134)));          V141= make_fixnum((long)length((V134)));
1004  goto T416;  goto T416;
1005  T416:;  T416:;
1006          if((get((V132),VV[1],Cnil))==Cnil){          if((get((V132),VV[1],Cnil))==Cnil){
# Line 1019  T422:; Line 1019  T422:;
1019          goto T428;          goto T428;
1020  goto T432;  goto T432;
1021  T432:;  T432:;
1022          (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[62],(V132))));          (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132))));
1023          goto T428;          goto T428;
1024  goto T430;  goto T430;
1025  T430:;  T430:;
# Line 1041  goto T420; Line 1041  goto T420;
1041  T420:;  T420:;
1042          if((V141)==Cnil){          if((V141)==Cnil){
1043          goto T437;}          goto T437;}
1044          V142 = make_fixnum(length((V140)));          V142 = make_fixnum((long)length((V140)));
1045          if(!(eql((V141),V142))){          if(!(eql((V141),V142))){
1046          goto T438;}          goto T438;}
1047          goto T437;          goto T437;
# Line 1060  T441:; Line 1060  T441:;
1060          goto T437;          goto T437;
1061  goto T440;  goto T440;
1062  T440:;}  T440:;}
1063          V145 = make_fixnum(length((V140)));          V145 = make_fixnum((long)length((V140)));
1064          (void)((VFUN_NARGS=4,(*(LnkLI121))(VV[64],(V132),(V141),V145)));          (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145)));
1065  goto T437;  goto T437;
1066  T437:;  T437:;
1067          {register object x= (V132),V146= symbol_value(VV[65]);          {register object x= (V132),V146= symbol_value(VV[65]);
# Line 1077  T444:; Line 1077  T444:;
1077          goto T410;}          goto T410;}
1078          {register object V147;          {register object V147;
1079          vs_base=vs_top;          vs_base=vs_top;
1080          (void) (*Lnk137)();          (void) (*Lnk141)();
1081          vs_top=sup;          vs_top=sup;
1082          V147= vs_base[0];          V147= vs_base[0];
1083          base[2]= (V147);          base[2]= (V147);
# Line 1131  T452:; Line 1131  T452:;
1131          (void)(princ(VV[70],(V147)));          (void)(princ(VV[70],(V147)));
1132          base[2]= (V147);          base[2]= (V147);
1133          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1134          (void) (*Lnk138)();          (void) (*Lnk142)();
1135          vs_top=sup;          vs_top=sup;
1136          (base[0]->c.c_car)= vs_base[0];}          (base[0]->c.c_car)= vs_base[0];}
1137          if(((V138))==Cnil){          if(((V138))==Cnil){
1138          goto T479;}          goto T479;}
1139          V135=          V135=
1140          make_cclosure_new(LC20,Cnil,base[0],Cdata);          make_cclosure_new(LC21,Cnil,base[0],Cdata);
1141  goto T479;  goto T479;
1142  T479:;{object V152;  T479:;{object V152;
1143          V152= get((V132),VV[2],Cnil);          V152= get((V132),VV[2],Cnil);
# Line 1177  T494:; Line 1177  T494:;
1177          goto T410;}          goto T410;}
1178  goto T412;  goto T412;
1179  T412:;  T412:;
1180          (void)((*(LnkLI132))((V132),(V134)));          (void)((*(LnkLI136))((V132),(V134)));
1181          if((get((V132),VV[61],Cnil))==Cnil){          if((get((V132),VV[61],Cnil))==Cnil){
1182          goto T501;}          goto T501;}
1183          V158= VV[61];          V158= VV[61];
# Line 1203  T410:; Line 1203  T410:;
1203          base[0]=base[0];          base[0]=base[0];
1204          return Cnil;          return Cnil;
1205  }  }
1206    /*      function definition for DECLARATION-TYPE        */
1207    
1208    static void L12()
1209    {register object *base=vs_base;
1210            register object *sup=base+VM12; VC12
1211            vs_reserve(VM12);
1212            {object V160;
1213            check_arg(1);
1214            V160=(base[0]);
1215            vs_top=sup;
1216    goto TTL;
1217    TTL:;
1218            if(!(equal((V160),VV[76]))){
1219            goto T510;}
1220            base[1]= VV[77];
1221            vs_top=(vs_base=base+1)+1;
1222            return;
1223    goto T510;
1224    T510:;
1225            if(!(equal((V160),VV[78]))){
1226            goto T513;}
1227            base[1]= VV[79];
1228            vs_top=(vs_base=base+1)+1;
1229            return;
1230    goto T513;
1231    T513:;
1232            base[1]= (V160);
1233            vs_top=(vs_base=base+1)+1;
1234            return;
1235            }
1236    }
1237  /*      local entry for function WT-FUNCTION-LINK       */  /*      local entry for function WT-FUNCTION-LINK       */
1238    
1239  static object LI12(V161)  static object LI13(V162)
1240    
1241  register object V161;  register object V162;
1242  {        VMB12 VMS12 VMV12  {        VMB13 VMS13 VMV13
1243  goto TTL;  goto TTL;
1244  TTL:;  TTL:;
1245          {register object V162;          {register object V163;
         register object V163;  
1246          register object V164;          register object V164;
1247          object V165;          register object V165;
1248          V162= car((V161));          object V166;
1249          V163= cadr((V161));          V163= car((V162));
1250          V164= caddr((V161));          V164= cadr((V162));
1251          V165= cadddr((V161));          V165= caddr((V162));
1252          if(((V164))!=Cnil){          V166= cadddr((V162));
1253          goto T515;}          if(((V165))!=Cnil){
1254            goto T521;}
1255          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1256          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1257          princ_str("(){ call_or_link(VV[",VV[29]);          princ_str("(){ call_or_link(VV[",VV[29]);
1258          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1259          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1260          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1261          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1262          goto T513;          goto T519;
1263  goto T515;  goto T521;
1264  T515:;  T521:;
1265          if(!(eql((V164),VV[61]))){          if(!(eql((V165),VV[61]))){
1266          goto T525;}          goto T531;}
1267          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1268          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1269          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
1270          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1271          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1272          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1273          princ_str(",&Lclptr",VV[29]);          princ_str(",&Lclptr",VV[29]);
1274          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1275          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1276          goto T513;          goto T519;
1277  goto T525;  goto T531;
1278  T525:;  T531:;
1279          princ_str("\nstatic ",VV[29]);          princ_str("\nstatic ",VV[29]);
1280          V166= (*(LnkLI139))((V164));          base[0]= (*(LnkLI143))((V165));
1281          (void)((*(LnkLI113))(/* INLINE-ARGS */V166));          vs_top=(vs_base=base+0)+1;
1282            (void) (*Lnk144)();
1283            vs_top=sup;
1284            V167= vs_base[0];
1285            (void)((*(LnkLI117))(V167));
1286          princ_str(" LnkT",VV[29]);          princ_str(" LnkT",VV[29]);
1287          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1288          if(((V165))!=Cnil){          if(((V166))!=Cnil){
1289          goto T541;}          goto T549;}
1290          if((Ct)==((V164))){          if((Ct)==((V165))){
1291          goto T542;}          goto T550;}
1292  goto T541;  goto T549;
1293  T541:;  T549:;
1294          {object V167;          {object V168;
1295          {register object x= VV[5],V168= (V165);          {register object x= VV[5],V169= (V166);
1296          while(!endp(V168))          while(!endp(V169))
1297          if(eql(x,V168->c.c_car)){          if(eql(x,V169->c.c_car)){
1298          V167= V168;          V168= V169;
1299          goto T546;          goto T554;
1300          }else V168=V168->c.c_cdr;          }else V169=V169->c.c_cdr;
1301          V167= Cnil;}          V168= Cnil;}
 goto T546;  
 T546:;  
         princ_str("(va_alist)va_dcl{va_list ap;va_start(ap);return(",VV[29]);  
         V169= (*(LnkLI139))((V164));  
         (void)((*(LnkLI113))(/* INLINE-ARGS */V169));  
         princ_str(")call_",VV[29]);  
         if(((V167))==Cnil){  
         goto T554;}  
         V170= VV[76];  
         goto T552;  
1302  goto T554;  goto T554;
1303  T554:;  T554:;
1304          V170= VV[77];          princ_str("(va_alist)va_dcl{",VV[29]);
1305  goto T552;          base[0]= (*(LnkLI143))((V165));
1306  T552:;          vs_top=(vs_base=base+0)+1;
1307          (void)((*(LnkLI113))(V170));          (void) (*Lnk144)();
1308            vs_top=sup;
1309            V170= vs_base[0];
1310            (void)((*(LnkLI117))(V170));
1311            princ_str("V1;",VV[29]);
1312            princ_str("va_list ap;va_start(ap);V1=call_",VV[29]);
1313            if(((V168))==Cnil){
1314            goto T565;}
1315            V171= VV[80];
1316            goto T563;
1317    goto T565;
1318    T565:;
1319            V171= VV[81];
1320    goto T563;
1321    T563:;
1322            (void)((*(LnkLI117))(V171));
1323          princ_str("proc(VV[",VV[29]);          princ_str("proc(VV[",VV[29]);
1324          V171= (*(LnkLI140))((V162));          V172= (*(LnkLI145))((V163));
1325          (void)((*(LnkLI113))(/* INLINE-ARGS */V171));          (void)((*(LnkLI117))(/* INLINE-ARGS */V172));
1326          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1327          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1328          if((V167)!=Cnil){          if((V168)!=Cnil){
1329          goto T560;}          goto T571;}
1330          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1331          V172 = make_fixnum((*(LnkLI141))((V165),(V164)));          V173 = make_fixnum((long)(*(LnkLI146))((V166),(V165)));
1332          (void)((*(LnkLI113))(V172));          (void)((*(LnkLI117))(V173));
1333  goto T560;  goto T571;
1334  T560:;  T571:;
1335          princ_str(",ap);}",VV[29]);          princ_str(",ap);va_end(ap);return V1;}",VV[29]);
1336          goto T513;}          goto T519;}
1337  goto T542;  goto T550;
1338  T542:;  T550:;
1339          princ_str("(){return call_proc0(VV[",VV[29]);          princ_str("(){return call_proc0(VV[",VV[29]);
1340          V173= (*(LnkLI140))((V162));          V174= (*(LnkLI145))((V163));
1341          (void)((*(LnkLI113))(/* INLINE-ARGS */V173));          (void)((*(LnkLI117))(/* INLINE-ARGS */V174));
1342          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1343          (void)((*(LnkLI113))((V163)));          (void)((*(LnkLI117))((V164)));
1344          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1345  goto T513;  goto T519;
1346  T513:;  T519:;
1347          V162= symbol_name((V162));          V163= symbol_name((V163));
1348          if(((VFUN_NARGS=2,(*(LnkLI142))(VV[78],(V162))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V163))))==Cnil){
1349          goto T571;}          goto T582;}
1350          V162= (VFUN_NARGS=2,(*(LnkLI143))(VV[78],(V162)));          V163= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V163)));
1351  goto T571;  goto T582;
1352  T571:;  T582:;
1353          princ_str(" /* ",VV[29]);          princ_str(" /* ",VV[29]);
1354          (void)((*(LnkLI113))((V162)));          (void)((*(LnkLI117))((V163)));
1355          princ_str(" */",VV[29]);          princ_str(" */",VV[29]);
1356          {object V174 = Cnil;          {object V175 = Cnil;
1357          VMR12(V174)}}          VMR13(V175)}}
1358            base[0]=base[0];
1359          return Cnil;          return Cnil;
1360  }  }
1361  /*      local entry for function WT-FUNCALL-C   */  /*      local entry for function WT-FUNCALL-C   */
1362    
1363  static object LI13(V176)  static object LI14(V177)
1364    
1365  register object V176;  register object V177;
1366  {        VMB13 VMS13 VMV13  {        VMB14 VMS14 VMV14
1367          bds_check;          bds_check;
1368  goto TTL;  goto TTL;
1369  TTL:;  TTL:;
1370          {object V177;          {object V178;
1371          object V178;          object V179;
1372          register object V179;          register object V180;
1373          V177= car((V176));          V178= car((V177));
1374          V178= cdr((V176));          V179= cdr((V177));
1375          V179= Cnil;          V180= Cnil;
1376          if(!(eql(car((V177)),VV[23]))){          if(!(eql(car((V178)),VV[23]))){
1377          goto T583;}          goto T594;}
1378          {object V180;          {object V181;
1379          V180= make_cons(car((V177)),caddr((V177)));          V181= make_cons(car((V178)),caddr((V178)));
1380          if((symbol_value(VV[79]))==Cnil){          if((symbol_value(VV[83]))==Cnil){
1381          goto T586;}          goto T597;}
1382          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
1383          base[0]= (V180);          base[0]= (V181);
1384          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1385          (void) (*Lnk144)();          (void) (*Lnk149)();
1386          vs_top=sup;          vs_top=sup;
1387          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
1388          base[0]= (V180);          base[0]= (V181);
1389          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1390          (void) (*Lnk144)();          (void) (*Lnk149)();
1391          vs_top=sup;          vs_top=sup;
1392          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1393  goto T586;  goto T597;
1394  T586:;  T597:;
1395          (void)((*(LnkLI112))((V178)));          (void)((*(LnkLI116))((V179)));
1396          princ_str("\n   (",VV[29]);          princ_str("\n   (",VV[29]);
1397          base[0]= (V180);          base[0]= (V181);
1398          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1399          (void) (*Lnk144)();          (void) (*Lnk149)();
1400          vs_top=sup;          vs_top=sup;
1401          goto T581;}          goto T592;}
1402  goto T583;  goto T594;
1403  T583:;  T594:;
1404          setq(VV[80],number_plus(symbol_value(VV[80]),small_fixnum(1)));          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1405          V179= list(2,VV[33],symbol_value(VV[80]));          V180= list(2,VV[33],symbol_value(VV[84]));
1406          bds_bind(VV[21],(V179));          bds_bind(VV[21],(V180));
1407          princ_str("\n   {object V",VV[29]);          princ_str("\n   {object V",VV[29]);
1408          (void)((*(LnkLI113))(cadr((V179))));          (void)((*(LnkLI117))(cadr((V180))));
1409          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1410          (void)((*(LnkLI111))(car((V176))));          (void)((*(LnkLI115))(car((V177))));
1411          (void)((*(LnkLI112))(cdr((V176))));          (void)((*(LnkLI116))(cdr((V177))));
1412          princ_str("(V",VV[29]);          princ_str("(V",VV[29]);
1413          (void)((*(LnkLI113))(cadr((V179))));          (void)((*(LnkLI117))(cadr((V180))));
1414          bds_unwind1;          bds_unwind1;
1415  goto T581;  goto T592;
1416  T581:;  T592:;
1417          princ_str(")->cf.cf_self ();",VV[29]);          princ_str(")->cf.cf_self ();",VV[29]);
1418          if((V179)==Cnil){          if((V180)==Cnil){
1419          goto T578;}          goto T589;}
1420          princ_char(125,VV[29]);}          princ_char(125,VV[29]);}
1421  goto T578;  goto T589;
1422  T578:;  T589:;
1423          {object V181 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));          {object V182 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1424          VMR13(V181)}          VMR14(V182)}
1425          base[0]=base[0];          base[0]=base[0];
1426          return Cnil;          return Cnil;
1427  }  }
1428  /*      local entry for function INLINE-PROC    */  /*      local entry for function INLINE-PROC    */
1429    
1430  static object LI14(V184,V185)  static object LI15(V185,V186)
1431    
1432  object V184;object V185;  object V185;object V186;
1433  {        VMB14 VMS14 VMV14  {        VMB15 VMS15 VMV15
1434  goto TTL;  goto TTL;
1435  TTL:;  TTL:;
1436          {register object V186;          {register object V187;
1437          register object V187;          register object V188;
1438          object V188;          object V189;
1439          V186= make_fixnum(length((V185)));          V187= make_fixnum((long)length((V186)));
1440          V187= Cnil;          V188= Cnil;
1441          V188= (*(LnkLI140))((V184));          V189= (*(LnkLI145))((V185));
1442          base[2]= Ct;          base[2]= Ct;
1443          base[3]= VV[81];          base[3]= VV[85];
1444          base[4]= (V184);          base[4]= (V185);
1445          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1446          Lformat();          Lformat();
1447          vs_top=sup;          vs_top=sup;
1448          {object V189;          {object V190;
1449          {object V190= (V186);          {object V191= (V187);
1450          if(!eql(V190,VV[82]))goto T624;          if(!eql(V191,VV[86]))goto T635;
1451          base[2]= Cnil;          base[2]= Cnil;
1452          base[3]= VV[84];          base[3]= VV[88];
1453          base[4]= (V188);          base[4]= (V189);
1454          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1455          Lformat();          Lformat();
1456          vs_top=sup;          vs_top=sup;
1457          V191= vs_base[0];          V192= vs_base[0];
1458          V189= list(5,VV[83],Ct,small_fixnum(3),V191,VV[58]);          V190= list(5,VV[87],Ct,small_fixnum(3),V192,VV[58]);
1459          goto T623;          goto T634;
1460  goto T624;  goto T635;
1461  T624:;  T635:;
1462          if(!eql(V190,VV[85]))goto T629;          if(!eql(V191,VV[89]))goto T640;
1463          base[2]= Cnil;          base[2]= Cnil;
1464          base[3]= VV[87];          base[3]= VV[91];
1465          base[4]= (V188);          base[4]= (V189);
1466          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1467          Lformat();          Lformat();
1468          vs_top=sup;          vs_top=sup;
1469          V192= vs_base[0];          V193= vs_base[0];
1470          V189= list(5,VV[86],Ct,small_fixnum(3),V192,VV[58]);          V190= list(5,VV[90],Ct,small_fixnum(3),V193,VV[58]);
1471          goto T623;          goto T634;
1472  goto T629;  goto T640;
1473  T629:;  T640:;
1474          base[2]= (V186);          base[2]= (V187);
1475          base[3]= VV[63];          base[3]= VV[63];
1476          base[4]= Ct;          base[4]= Ct;
1477          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1478          Lmake_list();          Lmake_list();
1479          vs_top=sup;          vs_top=sup;
1480          V193= vs_base[0];          V194= vs_base[0];
1481          base[2]= Cnil;          base[2]= Cnil;
1482          base[3]= VV[88];          base[3]= VV[92];
1483          base[4]= (V188);          base[4]= (V189);
1484          base[5]= (V186);          base[5]= (V187);
1485          {register object V195;          {register object V196;
1486          register object V196;          register object V197;
1487          V195= (V186);          V196= (V187);
1488          V196= small_fixnum(0);          V197= small_fixnum(0);
1489  goto T647;  goto T658;
1490  T647:;  T658:;
1491          if(!(number_compare((V196),(V195))>=0)){          if(!(number_compare((V197),(V196))>=0)){
1492          goto T648;}          goto T659;}
1493          base[6]= nreverse((V187));          base[6]= nreverse((V188));
1494          goto T643;          goto T654;
1495  goto T648;  goto T659;
1496  T648:;  T659:;
1497          V187= make_cons((V196),(V187));          V188= make_cons((V197),(V188));
1498          V196= one_plus((V196));          V197= one_plus((V197));
1499          goto T647;}          goto T658;}
1500  goto T643;  goto T654;
1501  T643:;  T654:;
1502          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1503          Lformat();          Lformat();
1504          vs_top=sup;          vs_top=sup;
1505          V194= vs_base[0];          V195= vs_base[0];
1506          V189= list(5,V193,Ct,small_fixnum(3),V194,VV[58]);}          V190= list(5,V194,Ct,small_fixnum(3),V195,VV[58]);}
1507  goto T623;  goto T634;
1508  T623:;  T634:;
1509          V197= make_cons((V184),(V189));          V198= make_cons((V185),(V190));
1510          setq(VV[71],make_cons(/* INLINE-ARGS */V197,symbol_value(VV[71])));          setq(VV[71],make_cons(/* INLINE-ARGS */V198,symbol_value(VV[71])));
1511          {object V198 = (V189);          {object V199 = (V190);
1512          VMR14(V198)}}}          VMR15(V199)}}}
1513          base[0]=base[0];          base[0]=base[0];
1514          return Cnil;          return Cnil;
1515  }  }
1516  /*      local entry for function WT-SIMPLE-CALL */  /*      local entry for function WT-SIMPLE-CALL */
1517    
1518  static object LI15(V201,V200,V199,va_alist)  static object LI16(V202,V201,V200,va_alist)
1519          object V201,V200,V199;          object V202,V201,V200;
1520          va_dcl          va_dcl
1521  {        {      
1522          va_list ap;          va_list ap;
1523          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1524          {object V202;          {object V203;
         object V203;  
1525          object V204;          object V204;
1526          object V205;          object V205;
1527            object V206;
1528          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1529          va_start(ap);          va_start(ap);
1530          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1531          V202= V201;          V203= V202;
1532          V203= V200;          V204= V201;
1533          V204= V199;          V205= V200;
1534          narg = narg - 3;          narg = narg - 3;
1535          if (narg <= 0) goto T659;          if (narg <= 0) goto T670;
1536          else {          else {
1537          V205= va_arg(ap,object);}          V206= va_arg(ap,object);}
1538          --narg; goto T660;          --narg; goto T671;
1539  goto T659;  goto T670;
1540  T659:;  T670:;
1541          V205= Cnil;          V206= Cnil;
1542  goto T660;  goto T671;
1543  T660:;  T671:;
1544          princ_str("simple_",VV[29]);          princ_str("simple_",VV[29]);
1545          (void)((*(LnkLI113))((V202)));          (void)((*(LnkLI117))((V203)));
1546          princ_char(40,VV[29]);          princ_char(40,VV[29]);
1547          if(((V205))==Cnil){          if(((V206))==Cnil){
1548          goto T666;}          goto T677;}
1549          princ_str("VV[",VV[29]);          princ_str("VV[",VV[29]);
1550          (void)((*(LnkLI113))((V205)));          (void)((*(LnkLI117))((V206)));
1551          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1552  goto T666;  goto T677;
1553  T666:;  T677:;
1554          princ_str("base+",VV[29]);          princ_str("base+",VV[29]);
1555          (void)((*(LnkLI113))((V203)));          (void)((*(LnkLI117))((V204)));
1556          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1557          (void)((*(LnkLI113))((V204)));          (void)((*(LnkLI117))((V205)));
1558          princ_char(41,VV[29]);          princ_char(41,VV[29]);
1559          setq(VV[37],Ct);          setq(VV[37],Ct);
1560          {object V206 = Ct;          {object V207 = Ct;
1561          VMR15(V206)}          VMR16(V207)}
1562          va_end(ap);          va_end(ap);
1563          return Cnil;}          return Cnil;}
1564          }          }
1565  /*      local entry for function SAVE-FUNOB     */  /*      local entry for function SAVE-FUNOB     */
1566    
1567  static object LI16(V208)  static object LI17(V209)
1568    
1569  register object V208;  register object V209;
1570  {        VMB16 VMS16 VMV16  {        VMB17 VMS17 VMV17
1571          bds_check;          bds_check;
1572  goto TTL;  goto TTL;
1573  TTL:;  TTL:;
1574          {object V209= car((V208));          {object V210= car((V209));
1575          if((V209!= VV[13])          if((V210!= VV[13])
1576          && (V209!= VV[145])          && (V210!= VV[150])
1577          && (V209!= VV[6]))goto T679;          && (V210!= VV[6]))goto T690;
1578          {object V210 = Cnil;          {object V211 = Cnil;
1579          VMR16(V210)}          VMR17(V211)}
1580  goto T679;  goto T690;
1581  T679:;  T690:;
1582          if((V209!= VV[14]))goto T680;          if((V210!= VV[14]))goto T691;
1583          if(((*(LnkLI123))(caddr((V208))))==Cnil){          if(((*(LnkLI127))(caddr((V209))))==Cnil){
1584          goto T681;}          goto T692;}
1585          if((get(caddr((V208)),VV[55],Cnil))!=Cnil){          if((get(caddr((V209)),VV[55],Cnil))!=Cnil){
1586          goto T682;}          goto T693;}
1587          if((get(caddr((V208)),VV[56],Cnil))!=Cnil){          if((get(caddr((V209)),VV[56],Cnil))!=Cnil){
         goto T682;}  
         {register object x= caddr((V208)),V211= symbol_value(VV[89]);  
         while(!endp(V211))  
         if(type_of(V211->c.c_car)==t_cons &&eql(x,V211->c.c_car->c.c_car)){  
         goto T682;  
         }else V211=V211->c.c_cdr;}  
 goto T681;  
 T681:;  
         {object V212;  
         V212= list(2,VV[27],(*(LnkLI110))());  
         if((symbol_value(VV[79]))==Cnil){  
1588          goto T693;}          goto T693;}
1589            {register object x= caddr((V209)),V212= symbol_value(VV[93]);
1590            while(!endp(V212))
1591            if(type_of(V212->c.c_car)==t_cons &&eql(x,V212->c.c_car->c.c_car)){
1592            goto T693;
1593            }else V212=V212->c.c_cdr;}
1594    goto T692;
1595    T692:;
1596            {object V213;
1597            V213= list(2,VV[27],(*(LnkLI114))());
1598            if((symbol_value(VV[83]))==Cnil){
1599            goto T704;}
1600          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1601          (void)((*(LnkLI113))((V212)));          (void)((*(LnkLI117))((V213)));
1602          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1603          V213= (*(LnkLI136))(caddr((V208)));          V214= (*(LnkLI140))(caddr((V209)));
1604          (void)((*(LnkLI113))(/* INLINE-ARGS */V213));          (void)((*(LnkLI117))(/* INLINE-ARGS */V214));
1605          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1606          goto T691;          goto T702;
1607  goto T693;  goto T704;
1608  T693:;  T704:;
1609          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1610          (void)((*(LnkLI113))((V212)));          (void)((*(LnkLI117))((V213)));
1611          princ_str("=VV[",VV[29]);          princ_str("=VV[",VV[29]);
1612          V214= (*(LnkLI136))(caddr((V208)));          V215= (*(LnkLI140))(caddr((V209)));
1613          (void)((*(LnkLI113))(/* INLINE-ARGS */V214));          (void)((*(LnkLI117))(/* INLINE-ARGS */V215));
1614          princ_str("]->s.s_gfdef;",VV[29]);          princ_str("]->s.s_gfdef;",VV[29]);
1615    goto T702;
1616    T702:;
1617            {object V216 = (V213);
1618            VMR17(V216)}}
1619    goto T693;
1620    T693:;
1621            {object V217 = Cnil;
1622            VMR17(V217)}
1623  goto T691;  goto T691;
1624  T691:;  T691:;
1625          {object V215 = (V212);          if((V210!= VV[18]))goto T716;
1626          VMR16(V215)}}          {object V218;
1627  goto T682;          V218= list(2,VV[27],(*(LnkLI114))());
1628  T682:;          bds_bind(VV[21],(V218));
1629          {object V216 = Cnil;          (void)((*(LnkLI115))(caddr((V209))));
1630          VMR16(V216)}          {object V219 = (V218);
1631  goto T680;          bds_unwind1;
1632  T680:;          VMR17(V219)}}
1633          if((V209!= VV[18]))goto T705;  goto T716;
1634          {object V217;  T716:;
1635          V217= list(2,VV[27],(*(LnkLI110))());          {object V220 = (*(LnkLI112))();
1636          bds_bind(VV[21],(V217));          VMR17(V220)}}
         (void)((*(LnkLI111))(caddr((V208))));  
         {object V218 = (V217);  
         bds_unwind1;  
         VMR16(V218)}}  
 goto T705;  
 T705:;  
         {object V219 = (*(LnkLI108))();  
         VMR16(V219)}}  
1637          base[0]=base[0];          base[0]=base[0];
1638          return Cnil;          return Cnil;
1639  }  }
1640  /*      local entry for function PUSH-ARGS      */  /*      local entry for function PUSH-ARGS      */
1641    
1642  static object LI17(V221)  static object LI18(V222)
1643    
1644  object V221;  object V222;
1645  {        VMB17 VMS17 VMV17  {        VMB18 VMS18 VMV18
1646          bds_check;          bds_check;
1647  goto TTL;  goto TTL;
1648  TTL:;  TTL:;
1649          if(((V221))!=Cnil){          if(((V222))!=Cnil){
1650          goto T709;}          goto T720;}
1651          princ_str("\n   vs_base=vs_top;",VV[29]);          princ_str("\n   vs_base=vs_top;",VV[29]);
1652          {object V222 = Cnil;          {object V223 = Cnil;
1653          VMR17(V222)}          VMR18(V223)}
 goto T709;  
 T709:;  
         if(!(type_of((V221))==t_cons)){  
         goto T713;}  
         {object V223;  
         V223= symbol_value(VV[19]);  
         bds_bind(VV[19],symbol_value(VV[19]));  
         {register object V224;  
         register object V225;  
         V224= (V221);  
         V225= car((V224));  
1654  goto T720;  goto T720;
1655  T720:;  T720:;
1656          if(!(endp((V224)))){          if(!(type_of((V222))==t_cons)){
1657          goto T721;}          goto T724;}
1658          goto T716;          {object V224;
1659  goto T721;          V224= symbol_value(VV[19]);
1660  T721:;          bds_bind(VV[19],symbol_value(VV[19]));
1661          base[2]= list(2,VV[27],(*(LnkLI110))());          {register object V225;
1662            register object V226;
1663            V225= (V222);
1664            V226= car((V225));
1665    goto T731;
1666    T731:;
1667            if(!(endp((V225)))){
1668            goto T732;}
1669            goto T727;
1670    goto T732;
1671    T732:;
1672            base[2]= list(2,VV[27],(*(LnkLI114))());
1673          bds_bind(VV[21],base[2]);          bds_bind(VV[21],base[2]);
1674          V226= (*(LnkLI111))((V225));          V227= (*(LnkLI115))((V226));
1675          bds_unwind1;          bds_unwind1;
1676          V224= cdr((V224));          V225= cdr((V225));
1677          V225= car((V224));          V226= car((V225));
1678          goto T720;}          goto T731;}
1679  goto T716;  goto T727;
1680  T716:;  T727:;
1681          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
1682          (void)((*(LnkLI113))((V223)));          (void)((*(LnkLI117))((V224)));
1683          princ_str(")+",VV[29]);          princ_str(")+",VV[29]);
1684          V227= number_minus((VV[19]->s.s_dbind),(V223));          V228= number_minus((VV[19]->s.s_dbind),(V224));
1685          (void)((*(LnkLI113))(/* INLINE-ARGS */V227));          (void)((*(LnkLI117))(/* INLINE-ARGS */V228));
1686          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1687          setq(VV[37],Ct);          setq(VV[37],Ct);
1688          {object V228 = Ct;          {object V229 = Ct;
1689          bds_unwind1;          bds_unwind1;
1690          VMR17(V228)}}          VMR18(V229)}}
1691  goto T713;  goto T724;
1692  T713:;  T724:;
1693          {object V229 = Cnil;          {object V230 = Cnil;
1694          VMR17(V229)}          VMR18(V230)}
1695          base[0]=base[0];          base[0]=base[0];
1696          return Cnil;          return Cnil;
1697  }  }
1698  /*      local entry for function PUSH-ARGS-LISPCALL     */  /*      local entry for function PUSH-ARGS-LISPCALL     */
1699    
1700  static object LI18(V231)  static object LI19(V232)
1701    
1702  object V231;  object V232;
1703  {        VMB18 VMS18 VMV18  {        VMB19 VMS19 VMV19
1704          bds_check;          bds_check;
1705  goto TTL;  goto TTL;
1706  TTL:;  TTL:;
1707          {register object V232;          {register object V233;
1708          register object V233;          register object V234;
1709          V232= (V231);          V233= (V232);
1710          V233= car((V232));          V234= car((V233));
1711  goto T742;  goto T753;
1712  T742:;  T753:;
1713          if(!(endp((V232)))){          if(!(endp((V233)))){
1714          goto T743;}          goto T754;}
1715          {object V234 = Cnil;          {object V235 = Cnil;
1716          VMR18(V234)}          VMR19(V235)}
1717  goto T743;  goto T754;
1718  T743:;  T754:;
1719          base[1]= list(2,VV[27],(*(LnkLI110))());          base[1]= list(2,VV[27],(*(LnkLI114))());
1720          bds_bind(VV[21],base[1]);          bds_bind(VV[21],base[1]);
1721          V235= (*(LnkLI111))((V233));          V236= (*(LnkLI115))((V234));
1722          bds_unwind1;          bds_unwind1;
1723          V232= cdr((V232));          V233= cdr((V233));
1724          V233= car((V232));          V234= car((V233));
1725          goto T742;}          goto T753;}
1726          base[0]=base[0];          base[0]=base[0];
1727          return Cnil;          return Cnil;
1728  }  }
1729  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */
1730    
1731  static object LI19(V240,V241,V242,V243)  static object LI20(V241,V242,V243,V244)
1732    
1733  register object V240;register object V241;register object V242;register object V243;  register object V241;register object V242;register object V243;register object V244;
1734  {        VMB19 VMS19 VMV19  {        VMB20 VMS20 VMV20
1735  goto TTL;  goto TTL;
1736  TTL:;  TTL:;
1737          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
1738          goto T755;}          goto T766;}
1739          if(((V242))!=Cnil){          if(((V243))!=Cnil){
1740          goto T757;}          goto T768;}
1741          V242= list(2,VV[27],(*(LnkLI110))());          V243= list(2,VV[27],(*(LnkLI114))());
1742          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1743          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1744          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1745          V244= (*(LnkLI136))((V240));          V245= (*(LnkLI140))((V241));
1746          (void)((*(LnkLI113))(/* INLINE-ARGS */V244));          (void)((*(LnkLI117))(/* INLINE-ARGS */V245));
1747          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1748  goto T757;  goto T768;
1749  T757:;  T768:;
1750          (void)((*(LnkLI112))((V241)));          (void)((*(LnkLI116))((V242)));
1751          princ_str("\n   funcall_with_catcher(VV[",VV[29]);          princ_str("\n   funcall_with_catcher(VV[",VV[29]);
1752          V245= (*(LnkLI136))((V240));          V246= (*(LnkLI140))((V241));
1753          (void)((*(LnkLI113))(/* INLINE-ARGS */V245));          (void)((*(LnkLI117))(/* INLINE-ARGS */V246));
1754          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1755          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1756          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1757          {object V246 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240)));          {object V247 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241)));
1758          VMR19(V246)}          VMR20(V247)}
1759  goto T755;  goto T766;
1760  T755:;  T766:;
         if(((V242))==Cnil){  
         goto T775;}  
         (void)((*(LnkLI112))((V241)));  
1761          if(((V243))==Cnil){          if(((V243))==Cnil){
1762          goto T780;}          goto T786;}
1763          if((symbol_value(VV[79]))==Cnil){          (void)((*(LnkLI116))((V242)));
1764          goto T783;}          if(((V244))==Cnil){
1765            goto T791;}
1766            if((symbol_value(VV[83]))==Cnil){
1767            goto T794;}
1768          princ_str("\n   funcall_no_event(",VV[29]);          princ_str("\n   funcall_no_event(",VV[29]);
1769          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1770          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1771          goto T778;          goto T789;
1772  goto T783;  goto T794;
1773  T783:;  T794:;
1774          princ_str("\n   CMPfuncall(",VV[29]);          princ_str("\n   CMPfuncall(",VV[29]);
1775          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1776          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1777          goto T778;          goto T789;
1778  goto T780;  goto T791;
1779  T780:;  T791:;
1780          princ_str("\n   funcall(",VV[29]);          princ_str("\n   funcall(",VV[29]);
1781          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1782          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1783  goto T778;  goto T789;
1784  T778:;  T789:;
1785          {object V247 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));          {object V248 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1786          VMR19(V247)}          VMR20(V248)}
1787  goto T775;  goto T786;
1788  T775:;  T786:;
1789          if(((*(LnkLI146))((V241)))==Cnil){          if(((*(LnkLI151))((V242)))==Cnil){
1790          goto T795;}          goto T806;}
1791          {object V248;          {object V249;
1792          V248= symbol_value(VV[19]);          V249= symbol_value(VV[19]);
1793          V242= list(2,VV[27],(*(LnkLI110))());          V243= list(2,VV[27],(*(LnkLI114))());
1794          if((symbol_value(VV[79]))==Cnil){          if((symbol_value(VV[83]))==Cnil){
1795          goto T801;}          goto T812;}
1796          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1797          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1798          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1799          V249= (*(LnkLI136))((V240));          V250= (*(LnkLI140))((V241));
1800          (void)((*(LnkLI113))(/* INLINE-ARGS */V249));          (void)((*(LnkLI117))(/* INLINE-ARGS */V250));
1801          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1802          goto T799;          goto T810;
1803  goto T801;  goto T812;
1804  T801:;  T812:;
1805          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1806          (void)((*(LnkLI113))((V242)));          (void)((*(LnkLI117))((V243)));
1807          princ_str("=(VV[",VV[29]);          princ_str("=(VV[",VV[29]);
1808          V250= (*(LnkLI136))((V240));          V251= (*(LnkLI140))((V241));
1809          (void)((*(LnkLI113))(/* INLINE-ARGS */V250));          (void)((*(LnkLI117))(/* INLINE-ARGS */V251));
1810          princ_str("]->s.s_gfdef);",VV[29]);          princ_str("]->s.s_gfdef);",VV[29]);
1811  goto T799;  goto T810;
1812  T799:;  T810:;
1813          (void)((*(LnkLI116))((V241)));          (void)((*(LnkLI120))((V242)));
1814          if((symbol_value(VV[21]))==(VV[90])){          if((symbol_value(VV[21]))==(VV[94])){
1815          goto T814;}          goto T825;}
1816          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
1817          goto T815;}          goto T826;}
1818  goto T814;  goto T825;
1819  T814:;  T825:;
1820          princ_str("\n   lispcall",VV[29]);          princ_str("\n   lispcall",VV[29]);
1821          if(((V243))==Cnil){          if(((V244))==Cnil){
1822          goto T821;}          goto T832;}
1823          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1824  goto T821;  goto T832;
1825  T821:;  T832:;
1826          princ_str("(base+",VV[29]);          princ_str("(base+",VV[29]);
1827          (void)((*(LnkLI113))((V248)));          (void)((*(LnkLI117))((V249)));
1828          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1829          V251 = make_fixnum(length((V241)));          V252 = make_fixnum((long)length((V242)));
1830          (void)((*(LnkLI113))(V251));          (void)((*(LnkLI117))(V252));
1831          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1832          setq(VV[37],Ct);          setq(VV[37],Ct);
1833          {object V252 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));          {object V253 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1834          VMR19(V252)}          VMR20(V253)}
1835  goto T815;  goto T826;
1836  T815:;  T826:;
1837          if(((V243))==Cnil){          if(((V244))==Cnil){
1838          goto T835;}          goto T846;}
1839          V253= VV[92];          V254= VV[96];
1840          goto T833;          goto T844;
1841  goto T835;  goto T846;
1842  T835:;  T846:;
1843          V253= VV[93];          V254= VV[97];
1844  goto T833;  goto T844;
1845  T833:;  T844:;
1846          V254 = make_fixnum(length((V241)));          V255 = make_fixnum((long)length((V242)));
1847          V255= list(4,VV[91],V253,(V248),V254);          V256= list(4,VV[95],V254,(V249),V255);
1848          {object V256 = (VFUN_NARGS=1,(*(LnkLI114))(/* INLINE-ARGS */V255));          {object V257 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V256));
1849          VMR19(V256)}}          VMR20(V257)}}
1850  goto T795;  goto T806;
1851  T795:;  T806:;
1852          {object V257;          {object V258;
1853          V257= symbol_value(VV[19]);          V258= symbol_value(VV[19]);
1854          (void)((*(LnkLI116))((V241)));          (void)((*(LnkLI120))((V242)));
1855          if((symbol_value(VV[21]))==(VV[90])){          if((symbol_value(VV[21]))==(VV[94])){
1856          goto T838;}          goto T849;}
1857          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
1858          goto T839;}          goto T850;}
1859  goto T838;  goto T849;
1860  T838:;  T849:;
1861          princ_str("\n   symlispcall",VV[29]);          princ_str("\n   symlispcall",VV[29]);
1862          if(((V243))==Cnil){          if(((V244))==Cnil){
1863          goto T845;}          goto T856;}
1864          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1865  goto T845;  goto T856;
1866  T845:;  T856:;
1867          princ_str("(VV[",VV[29]);          princ_str("(VV[",VV[29]);
1868          V258= (*(LnkLI136))((V240));          V259= (*(LnkLI140))((V241));
1869          (void)((*(LnkLI113))(/* INLINE-ARGS */V258));          (void)((*(LnkLI117))(/* INLINE-ARGS */V259));
1870          princ_str("],base+",VV[29]);          princ_str("],base+",VV[29]);
1871          (void)((*(LnkLI113))((V257)));          (void)((*(LnkLI117))((V258)));
1872          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1873          V259 = make_fixnum(length((V241)));          V260 = make_fixnum((long)length((V242)));
1874          (void)((*(LnkLI113))(V259));          (void)((*(LnkLI117))(V260));
1875          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1876          setq(VV[37],Ct);          setq(VV[37],Ct);
1877          {object V260 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240)));          {object V261 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241)));
1878          VMR19(V260)}          VMR20(V261)}
1879  goto T839;  goto T850;
1880  T839:;  T850:;
1881          if(((V243))==Cnil){          if(((V244))==Cnil){
1882          goto T861;}          goto T872;}
1883          V261= VV[94];          V262= VV[98];
1884          goto T859;          goto T870;
1885  goto T861;  goto T872;
1886  T861:;  T872:;
1887          V261= VV[95];          V262= VV[99];
1888  goto T859;  goto T870;
1889  T859:;  T870:;
1890          V262 = make_fixnum(length((V241)));          V263 = make_fixnum((long)length((V242)));
1891          V263= list(5,VV[91],V261,(V257),V262,(*(LnkLI136))((V240)));          V264= list(5,VV[95],V262,(V258),V263,(*(LnkLI140))((V241)));
1892          {object V264 = (VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V263,Cnil,(V240)));          {object V265 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V264,Cnil,(V241)));
1893          VMR19(V264)}}          VMR20(V265)}}
1894          return Cnil;          return Cnil;
1895  }  }
1896  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1897    
1898  static void LC20(base0)  static void LC21(base0)
1899  register object *base0;  register object *base0;
1900  {       register object *base=vs_base;  {       register object *base=vs_base;
1901          register object *sup=base+VM20; VC20          register object *sup=base+VM21; VC21
1902          vs_reserve(VM20);          vs_reserve(VM21);
1903          {object V265;          {object V266;
1904          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1905          {object *p=vs_top;          {object *p=vs_top;
1906           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1907          V265=(base[0]);          V266=(base[0]);
1908          vs_top=sup;          vs_top=sup;
1909          princ_str("(VFUN_NARGS=",VV[29]);          princ_str("(VFUN_NARGS=",VV[29]);
1910          V266 = make_fixnum(length((V265)));          V267 = make_fixnum((long)length((V266)));
1911          (void)((*(LnkLI113))(V266));          (void)((*(LnkLI117))(V267));
1912          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1913          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1914          base[2]= (V265);          base[2]= (V266);
1915          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1916          (void) (*Lnk147)();          (void) (*Lnk152)();
1917          vs_top=sup;          vs_top=sup;
1918          princ_char(41,VV[29]);          princ_char(41,VV[29]);
1919          base[1]= Cnil;          base[1]= Cnil;
# Line 1880  register object *base0; Line 1921  register object *base0;
1921          return;          return;
1922          }          }
1923  }  }
1924  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* WT-INLINE-LOC */  static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* WT-INLINE-LOC */
1925  static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,1,ap);} /* ARGS-CAUSE-SIDE-EFFECT */  static object  LnkTLI151(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[151],(void **)&LnkLI151,1,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */
1926  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* WT-LOC */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* WT-LOC */
1927  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],(void **)&LnkLI143,ap);} /* REMOVE */  static object  LnkTLI148(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[148],(void **)&LnkLI148,ap);va_end(ap);return V1;} /* REMOVE */
1928  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[142],(void **)&LnkLI142,ap);} /* FIND */  static object  LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[147],(void **)&LnkLI147,ap);va_end(ap);return V1;} /* FIND */
1929  static long  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[141],(void **)&LnkLI141,258,ap);} /* PROCLAIMED-ARGD */  static object  LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,258,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
1930  static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,1,ap);} /* ADD-OBJECT */  static object  LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */
1931  static object  LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],(void **)&LnkLI139,1,ap);} /* REP-TYPE */  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* DECLARATION-TYPE */
1932  static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* GET-OUTPUT-STREAM-STRING */  static object  LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,1,ap);va_end(ap);return V1;} /* REP-TYPE */
1933  static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
1934  static object  LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],(void **)&LnkLI136,1,ap);} /* ADD-SYMBOL */  static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
1935  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,4,ap);} /* C2CALL-UNKNOWN-GLOBAL */  static object  LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
1936  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,3,ap);} /* ADD-FAST-LINK */  static object  LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,4,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */
1937  static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],(void **)&LnkLI133,2,ap);} /* INLINE-PROC */  static object  LnkTLI138(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[138],(void **)&LnkLI138,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
1938  static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,2,ap);} /* CHECK-FNAME-ARGS */  static object  LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,2,ap);va_end(ap);return V1;} /* INLINE-PROC */
1939  static object  LnkTLI131(){return call_proc0(VV[131],(void **)&LnkLI131);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,2,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
1940  static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* GET-INLINE-LOC */  static object  LnkTLI135(){return call_proc0(VV[135],(void **)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
1941  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* SAVE-AVMA */  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
1942  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,3,ap);} /* GET-INLINE-INFO */  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SAVE-AVMA */
1943  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* CMPNOTE */  static object  LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
1944  static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* CMPNOTE */
1945  static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,2,ap);} /* C2PSETQ */  static object  LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1946  static object  LnkTLI124(){return call_proc0(VV[124],(void **)&LnkLI124);} /* TAIL-RECURSION-POSSIBLE */  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,2,ap);va_end(ap);return V1;} /* C2PSETQ */
1947  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* INLINE-POSSIBLE */  static object  LnkTLI128(){return call_proc0(VV[128],(void **)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
1948  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* INC-INLINE-BLOCKS */  static object  LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[127],(void **)&LnkLI127,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
1949  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPWARN */  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* INC-INLINE-BLOCKS */
1950  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],(void **)&LnkLI120,3,ap);} /* C2LET */  static object  LnkTLI125(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[125],(void **)&LnkLI125,ap);va_end(ap);return V1;} /* CMPWARN */
1951  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],(void **)&LnkLI119,ap);} /* CMPERR */  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,3,ap);va_end(ap);return V1;} /* C2LET */
1952  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[118],(void **)&LnkLI118,ap);} /* C2LAMBDA-EXPR */  static object  LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[123],(void **)&LnkLI123,ap);va_end(ap);return V1;} /* CMPERR */
1953  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,1,ap);} /* NEED-TO-SET-VS-POINTERS */  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[122],(void **)&LnkLI122,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
1954  static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],(void **)&LnkLI116,1,ap);} /* PUSH-ARGS-LISPCALL */  static object  LnkTLI121(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[121],(void **)&LnkLI121,1,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */
1955  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[115],(void **)&LnkLI115,ap);} /* CS-PUSH */  static object  LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[120],(void **)&LnkLI120,1,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */
1956  static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[114],(void **)&LnkLI114,ap);} /* UNWIND-EXIT */  static object  LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[119],(void **)&LnkLI119,ap);va_end(ap);return V1;} /* CS-PUSH */
1957  static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* WT1 */  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1958  static object  LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],(void **)&LnkLI112,1,ap);} /* PUSH-ARGS */  static object  LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* WT1 */
1959  static object  LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],(void **)&LnkLI111,1,ap);} /* C2EXPR* */  static object  LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* PUSH-ARGS */
1960  static object  LnkTLI110(){return call_proc0(VV[110],(void **)&LnkLI110);} /* VS-PUSH */  static object  LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* C2EXPR* */
1961  static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,2,ap);} /* ARGS-INFO-CHANGED-VARS */  static object  LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* VS-PUSH */
1962  static object  LnkTLI108(){return call_proc0(VV[108],(void **)&LnkLI108);} /* BABOON */  static object  LnkTLI113(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[113],(void **)&LnkLI113,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
1963  static object  LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],(void **)&LnkLI107,3,ap);} /* C2FUNCALL-SFUN */  static object  LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* BABOON */
1964  static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* C2CALL-LAMBDA */  static object  LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,3,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */
1965  static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],(void **)&LnkLI105,2,ap);} /* C2CALL-LOCAL */  static object  LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[110],(void **)&LnkLI110,2,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */
1966  static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],(void **)&LnkLI104,4,ap);} /* C2CALL-GLOBAL */  static object  LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,2,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */
1967  static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[103],(void **)&LnkLI103,ap);} /* C2FUNCALL */  static object  LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
1968  static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],(void **)&LnkLI102,2,ap);} /* ADD-INFO */  static object  LnkTLI107(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[107],(void **)&LnkLI107,ap);va_end(ap);return V1;} /* C2FUNCALL */
1969  static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,1,ap);} /* C1EXPR */  static object  LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,2,ap);va_end(ap);return V1;} /* ADD-INFO */
1970  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[100],(void **)&LnkLI100,ap);} /* MAKE-INFO */  static object  LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,1,ap);va_end(ap);return V1;} /* C1EXPR */
1971  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[104],(void **)&LnkLI104,ap);va_end(ap);return V1;} /* MAKE-INFO */
1972  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],(void **)&LnkLI98,1,ap);} /* CMP-MACROEXPAND */  static object  LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[103],(void **)&LnkLI103,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
1973  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,1,ap);} /* CMP-MACRO-FUNCTION */  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
1974  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* C1LOCAL-FUN */  static object  LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* CMP-MACRO-FUNCTION */
1975    static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
1976    
1977  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1978  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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