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

Diff of /gcl/pcl/pcl_defclass.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 248  T69:; Line 248  T69:;
248          base[6]=V42=MMcons(Cnil,Cnil);          base[6]=V42=MMcons(Cnil,Cnil);
249          goto T73;          goto T73;
250  T73:;  T73:;
251          {register object V44;          (V42->c.c_car)= list(2,VV[22],list(3,VV[23],VV[25],(V43->c.c_car)));
         V44= (V43->c.c_car);  
         if(!(type_of((V44))==t_cons)){  
         goto T75;}  
         V44= (*(LnkLI102))(CMPcadr((V44)));  
         goto T75;  
 T75:;  
         (V42->c.c_car)= list(2,VV[22],list(3,VV[23],VV[25],(V44)));}  
252          if((V43=MMcdr(V43))==Cnil){          if((V43=MMcdr(V43))==Cnil){
253          base[5]= base[6];          base[5]= base[6];
254          goto T72;}          goto T72;}
# Line 268  T72:; Line 261  T72:;
261          object V47= base[8];          object V47= base[8];
262          if(V47==Cnil){          if(V47==Cnil){
263          V45= Cnil;          V45= Cnil;
264          goto T80;}          goto T76;}
265          base[7]=V46=MMcons(Cnil,Cnil);          base[7]=V46=MMcons(Cnil,Cnil);
266          goto T81;          goto T77;
267  T81:;  T77:;
268          (V46->c.c_car)= CMPcdr((V47->c.c_car));          (V46->c.c_car)= CMPcdr((V47->c.c_car));
269          if((V47=MMcdr(V47))==Cnil){          if((V47=MMcdr(V47))==Cnil){
270          V45= base[7];          V45= base[7];
271          goto T80;}          goto T76;}
272          V46=MMcdr(V46)=MMcons(Cnil,Cnil);          V46=MMcdr(V46)=MMcons(Cnil,Cnil);
273          goto T81;}          goto T77;}
274          goto T80;          goto T76;
275  T80:;  T76:;
276          V48= list(2,VV[28],(V18));          V48= list(2,VV[28],(V18));
277          V49= list(2,VV[28],(V22));          V49= list(2,VV[28],(V22));
278          V50= list(2,VV[28],(V19));          V50= list(2,VV[28],(V19));
279          V51= make_cons(VV[29],(V25));          V51= make_cons(VV[29],(V25));
280          if(((V27))==Cnil){          if(((V27))==Cnil){
281          goto T86;}          goto T82;}
282          base[7]= VV[30];          base[7]= VV[30];
283          goto T84;          goto T80;
284          goto T86;          goto T82;
285  T86:;  T82:;
286          base[7]= Cnil;          base[7]= Cnil;
287          goto T84;          goto T80;
288  T84:;  T80:;
289          {object V53;          {object V53;
290          V53= (V26);          V53= (V26);
291           vs_top=base+8;           vs_top=base+8;
# Line 312  T84:; Line 305  T84:;
305          V56= make_cons(VV[7],V38);          V56= make_cons(VV[7],V38);
306          V35= (*(LnkLI101))(/* INLINE-ARGS */V36,V37,/* INLINE-ARGS */V56);          V35= (*(LnkLI101))(/* INLINE-ARGS */V36,V37,/* INLINE-ARGS */V56);
307          if(((V27))==Cnil){          if(((V27))==Cnil){
308          goto T90;}          goto T86;}
309          base[4]= (V35);          base[4]= (V35);
310          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
311          Leval();          Leval();
312          vs_top=sup;          vs_top=sup;
313          base[4]= (VFUN_NARGS=1,(*(LnkLI98))((V18)));          base[4]= (VFUN_NARGS=1,(*(LnkLI98))((V18)));
314          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
315          (void) (*Lnk103)(Lclptr103);          (void) (*Lnk102)(Lclptr102);
316          vs_top=sup;          vs_top=sup;
317          V57= vs_base[0];          V57= vs_base[0];
318          V58 = (V35);          V58 = (V35);
# Line 329  T84:; Line 322  T84:;
322          bds_unwind1;          bds_unwind1;
323          bds_unwind1;          bds_unwind1;
324          VMR4(V59)}          VMR4(V59)}
325          goto T90;          goto T86;
326  T90:;  T86:;
327          if(!(((VV[9]->s.s_dbind))==(VV[19]))){          if(!(((VV[9]->s.s_dbind))==(VV[19]))){
328          goto T96;}          goto T92;}
329          {register object x= VV[31],V60= (VV[10]->s.s_dbind);          {register object x= VV[31],V60= (VV[10]->s.s_dbind);
330          while(V60!=Cnil)          while(V60!=Cnil)
331          if(eql(x,V60->c.c_car)){          if(eql(x,V60->c.c_car)){
332          goto T96;          goto T92;
333          }else V60=V60->c.c_cdr;}          }else V60=V60->c.c_cdr;}
334          (void)((*(LnkLI104))((V18)));          (void)((*(LnkLI103))((V18)));
335          goto T96;          goto T92;
336  T96:;  T92:;
337          {object V61 = (V35);          {object V61 = (V35);
338          bds_unwind1;          bds_unwind1;
339          bds_unwind1;          bds_unwind1;
# Line 359  register object V63; Line 352  register object V63;
352          goto TTL;          goto TTL;
353  TTL:;  TTL:;
354          if(((V63))==(Ct)){          if(((V63))==(Ct)){
355          goto T101;}          goto T97;}
356          if(!(equal((V63),VV[32]))){          if(!(equal((V63),VV[32]))){
357          goto T102;}          goto T98;}
358          goto T101;          goto T97;
359  T101:;  T97:;
360          {object V64 = VV[33];          {object V64 = VV[33];
361          VMR5(V64)}          VMR5(V64)}
362          goto T102;          goto T98;
363  T102:;  T98:;
364          if(((V63))==(Cnil)){          if(((V63))==(Cnil)){
365          goto T106;}          goto T102;}
366          if(!(equal((V63),VV[34]))){          if(!(equal((V63),VV[34]))){
367          goto T107;}          goto T103;}
368          goto T106;          goto T102;
369  T106:;  T102:;
370          {object V65 = VV[35];          {object V65 = VV[35];
371          VMR5(V65)}          VMR5(V65)}
372          goto T107;          goto T103;
373  T107:;  T103:;
374          if(eql((V63),small_fixnum(0))){          if(eql((V63),small_fixnum(0))){
375          goto T111;}          goto T107;}
376          if(!(equal((V63),VV[36]))){          if(!(equal((V63),VV[36]))){
377          goto T112;}          goto T108;}
378          goto T111;          goto T107;
379  T111:;  T107:;
380          {object V66 = VV[37];          {object V66 = VV[37];
381          VMR5(V66)}          VMR5(V66)}
382          goto T112;          goto T108;
383  T112:;  T108:;
384          {register object V67;          {register object V67;
385          {register object x= (V63),V68= (VV[18]->s.s_dbind);          {register object x= (V63),V68= (VV[18]->s.s_dbind);
386          while(V68!=Cnil)          while(V68!=Cnil)
387          if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){          if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){
388          V67= (V68->c.c_car);          V67= (V68->c.c_car);
389          goto T116;          goto T112;
390          }else V68=V68->c.c_cdr;          }else V68=V68->c.c_cdr;
391          V67= Cnil;}          V67= Cnil;}
392          goto T116;          goto T112;
393  T116:;  T112:;
394          if(((V67))!=Cnil){          if(((V67))!=Cnil){
395          goto T117;}          goto T113;}
396          V69 = (V63);          V69 = (V63);
397          vs_base=vs_top;          vs_base=vs_top;
398          Lgensym();          Lgensym();
# Line 407  T116:; Line 400  T116:;
400          V70= vs_base[0];          V70= vs_base[0];
401          V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63))));          V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63))));
402          (VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind));
403          goto T117;          goto T113;
404  T117:;  T113:;
405          {object V72 = CMPcadr((V67));          {object V72 = CMPcadr((V67));
406          VMR5(V72)}}          VMR5(V72)}}
407          base[0]=base[0];          base[0]=base[0];
# Line 423  object V75;register object V76; Line 416  object V75;register object V76;
416          goto TTL;          goto TTL;
417  TTL:;  TTL:;
418          if(!(type_of((V76))==t_symbol)){          if(!(type_of((V76))==t_symbol)){
419          goto T125;}          goto T121;}
420          if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){          if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){
421          goto T125;}          goto T121;}
422          {register object x= (V76),V77= VV[40];          {register object x= (V76),V77= VV[40];
423          while(V77!=Cnil)          while(V77!=Cnil)
424          if(x==(V77->c.c_car)){          if(x==(V77->c.c_car)){
425          goto T125;          goto T121;
426          }else V77=V77->c.c_cdr;}          }else V77=V77->c.c_cdr;}
427          {object V78 = list(2,VV[28],list(2,VV[41],(V76)));          {object V78 = list(2,VV[28],list(2,VV[41],(V76)));
428          VMR6(V78)}          VMR6(V78)}
429          goto T125;          goto T121;
430  T125:;  T121:;
431          if(type_of((V76))==t_cons){          if(type_of((V76))==t_cons){
432          goto T132;}          goto T128;}
433          base[0]= VV[42];          base[0]= VV[42];
434          base[1]= (V76);          base[1]= (V76);
435          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 444  T125:; Line 437  T125:;
437          vs_top=sup;          vs_top=sup;
438          {object V79 = vs_base[0];          {object V79 = vs_base[0];
439          VMR6(V79)}          VMR6(V79)}
440          goto T132;          goto T128;
441  T132:;  T128:;
442          if((CMPcdr((V76)))!=Cnil){          if((CMPcdr((V76)))!=Cnil){
443          goto T137;}          goto T133;}
444          {object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76))));          {object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76))));
445          VMR6(V80)}          VMR6(V80)}
446          goto T137;          goto T133;
447  T137:;  T133:;
448          if((CMPcddr((V76)))!=Cnil){          if((CMPcddr((V76)))!=Cnil){
449          goto T140;}          goto T136;}
450          base[0]= VV[43];          base[0]= VV[43];
451          base[1]= (V75);          base[1]= (V75);
452          base[2]= (V76);          base[2]= (V76);
# Line 463  T137:; Line 456  T137:;
456          vs_top=sup;          vs_top=sup;
457          {object V81 = vs_base[0];          {object V81 = vs_base[0];
458          VMR6(V81)}          VMR6(V81)}
459          goto T140;          goto T136;
460  T140:;  T136:;
461          {object V82;          {object V82;
462          register object V83;          register object V83;
463          register object V84;          register object V84;
# Line 492  T140:; Line 485  T140:;
485          V89= (V76);          V89= (V76);
486          V90= Cnil;          V90= Cnil;
487          V91= Cnil;          V91= Cnil;
488          goto T160;          goto T156;
489  T160:;  T156:;
490          if(((V89))!=Cnil){          if(((V89))!=Cnil){
491          goto T162;}          goto T158;}
492            goto T154;
493          goto T158;          goto T158;
494          goto T162;  T158:;
 T162:;  
495          {object V92;          {object V92;
496          V92= CMPcar((V89));          V92= CMPcar((V89));
497          V89= CMPcdr((V89));          V89= CMPcdr((V89));
498          V90= (V92);}          V90= (V92);}
499          if(((V89))!=Cnil){          if(((V89))!=Cnil){
500          goto T170;}          goto T166;}
501          base[3]= VV[45];          base[3]= VV[45];
502          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
503          Lerror();          Lerror();
504          vs_top=sup;          vs_top=sup;
505          goto T170;          goto T166;
506  T170:;  T166:;
507          {object V93;          {object V93;
508          V93= CMPcar((V89));          V93= CMPcar((V89));
509          V89= CMPcdr((V89));          V89= CMPcdr((V89));
510          V91= (V93);}          V91= (V93);}
511          {object V94= (V90);          {object V94= (V90);
512          if((V94!= VV[47]))goto T179;          if((V94!= VV[47]))goto T175;
513          (VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind));          (VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind));
514          V83= make_cons(V91,(V83));          V83= make_cons(V91,(V83));
515          {object V97;          {object V97;
516          V97= list(2,VV[46],(V91));          V97= list(2,VV[46],(V91));
517          V84= make_cons((V97),(V84));          V84= make_cons((V97),(V84));
518          goto T161;}          goto T157;}
519          goto T179;          goto T175;
520  T179:;  T175:;
521          if((V94!= VV[48]))goto T186;          if((V94!= VV[48]))goto T182;
522          V83= make_cons(V91,(V83));          V83= make_cons(V91,(V83));
523          goto T161;          goto T157;
524          goto T186;          goto T182;
525  T186:;  T182:;
526          if((V94!= VV[49]))goto T188;          if((V94!= VV[49]))goto T184;
527          V84= make_cons(V91,(V84));          V84= make_cons(V91,(V84));
528          goto T161;          goto T157;
529          goto T188;          goto T184;
530  T188:;  T184:;
531          if((V94!= VV[50]))goto T190;          if((V94!= VV[50]))goto T186;
532          V85= make_cons(V91,(V85));          V85= make_cons(V91,(V85));
533          goto T161;          goto T157;
534          goto T190;          goto T186;
535  T190:;}  T186:;}
536          goto T161;          goto T157;
537  T161:;  T157:;
538          goto T160;}          goto T156;}
539          goto T158;          goto T154;
540  T158:;  T154:;
541          goto T195;          goto T191;
542  T195:;  T191:;
543          {object V101;          {object V101;
544          object V102;          object V102;
545          base[3]= (V76);          base[3]= (V76);
546          base[4]= VV[47];          base[4]= VV[47];
547          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
548          siLrem_f();          siLrem_f();
549          if(vs_base>=vs_top){vs_top=sup;goto T202;}          if(vs_base>=vs_top){vs_top=sup;goto T198;}
550          V101= vs_base[0];          V101= vs_base[0];
551          vs_base++;          vs_base++;
552          if(vs_base>=vs_top){vs_top=sup;goto T203;}          if(vs_base>=vs_top){vs_top=sup;goto T199;}
553          V102= vs_base[0];          V102= vs_base[0];
554          vs_top=sup;          vs_top=sup;
555          goto T204;          goto T200;
556          goto T202;          goto T198;
557  T202:;  T198:;
558          V101= Cnil;          V101= Cnil;
559          goto T203;          goto T199;
560  T203:;  T199:;
561          V102= Cnil;          V102= Cnil;
562          goto T204;          goto T200;
563  T204:;  T200:;
564          V76= (V101);          V76= (V101);
565          if(((V102))!=Cnil){          if(((V102))!=Cnil){
566          goto T196;}}          goto T192;}}
567          goto T193;          goto T189;
568          goto T196;          goto T192;
569  T196:;  T192:;
570          goto T195;          goto T191;
571          goto T193;          goto T189;
572  T193:;  T189:;
573          goto T210;          goto T206;
574  T210:;  T206:;
575          {object V103;          {object V103;
576          object V104;          object V104;
577          base[3]= (V76);          base[3]= (V76);
578          base[4]= VV[48];          base[4]= VV[48];
579          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
580          siLrem_f();          siLrem_f();
581          if(vs_base>=vs_top){vs_top=sup;goto T217;}          if(vs_base>=vs_top){vs_top=sup;goto T213;}
582          V103= vs_base[0];          V103= vs_base[0];
583          vs_base++;          vs_base++;
584          if(vs_base>=vs_top){vs_top=sup;goto T218;}          if(vs_base>=vs_top){vs_top=sup;goto T214;}
585          V104= vs_base[0];          V104= vs_base[0];
586          vs_top=sup;          vs_top=sup;
587          goto T219;          goto T215;
588          goto T217;          goto T213;
589  T217:;  T213:;
590          V103= Cnil;          V103= Cnil;
591          goto T218;          goto T214;
592  T218:;  T214:;
593          V104= Cnil;          V104= Cnil;
594          goto T219;          goto T215;
595  T219:;  T215:;
596          V76= (V103);          V76= (V103);
597          if(((V104))!=Cnil){          if(((V104))!=Cnil){
598          goto T211;}}          goto T207;}}
599          goto T208;          goto T204;
600          goto T211;          goto T207;
601  T211:;  T207:;
602          goto T210;          goto T206;
603          goto T208;          goto T204;
604  T208:;  T204:;
605          goto T225;          goto T221;
606  T225:;  T221:;
607          {object V105;          {object V105;
608          object V106;          object V106;
609          base[3]= (V76);          base[3]= (V76);
610          base[4]= VV[49];          base[4]= VV[49];
611          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
612          siLrem_f();          siLrem_f();
613          if(vs_base>=vs_top){vs_top=sup;goto T232;}          if(vs_base>=vs_top){vs_top=sup;goto T228;}
614          V105= vs_base[0];          V105= vs_base[0];
615          vs_base++;          vs_base++;
616          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T229;}
617          V106= vs_base[0];          V106= vs_base[0];
618          vs_top=sup;          vs_top=sup;
619          goto T234;          goto T230;
620          goto T232;          goto T228;
621  T232:;  T228:;
622          V105= Cnil;          V105= Cnil;
623          goto T233;          goto T229;
624  T233:;  T229:;
625          V106= Cnil;          V106= Cnil;
626          goto T234;          goto T230;
627  T234:;  T230:;
628          V76= (V105);          V76= (V105);
629          if(((V106))!=Cnil){          if(((V106))!=Cnil){
630          goto T226;}}          goto T222;}}
631          goto T223;          goto T219;
632          goto T226;          goto T222;
633  T226:;  T222:;
634          goto T225;          goto T221;
635          goto T223;          goto T219;
636  T223:;  T219:;
637          goto T240;          goto T236;
638  T240:;  T236:;
639          {object V107;          {object V107;
640          object V108;          object V108;
641          base[3]= (V76);          base[3]= (V76);
642          base[4]= VV[50];          base[4]= VV[50];
643          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
644          siLrem_f();          siLrem_f();
645          if(vs_base>=vs_top){vs_top=sup;goto T247;}          if(vs_base>=vs_top){vs_top=sup;goto T243;}
646          V107= vs_base[0];          V107= vs_base[0];
647          vs_base++;          vs_base++;
648          if(vs_base>=vs_top){vs_top=sup;goto T248;}          if(vs_base>=vs_top){vs_top=sup;goto T244;}
649          V108= vs_base[0];          V108= vs_base[0];
650          vs_top=sup;          vs_top=sup;
651          goto T249;          goto T245;
652          goto T247;          goto T243;
653  T247:;  T243:;
654          V107= Cnil;          V107= Cnil;
655          goto T248;          goto T244;
656  T248:;  T244:;
657          V108= Cnil;          V108= Cnil;
658          goto T249;          goto T245;
659  T249:;  T245:;
660          V76= (V107);          V76= (V107);
661          if(((V108))!=Cnil){          if(((V108))!=Cnil){
662          goto T241;}}          goto T237;}}
663          goto T238;          goto T234;
664          goto T241;          goto T237;
665  T241:;  T237:;
666          goto T240;          goto T236;
667          goto T238;          goto T234;
668  T238:;  T234:;
669          (VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind));          (VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind));
670          (VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind));          (VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind));
671          V109= list(2,VV[28],(V82));          V109= list(2,VV[28],(V82));
# Line 681  T238:; Line 674  T238:;
674          V112= list(2,VV[28],(V85));          V112= list(2,VV[28],(V85));
675          V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76)));          V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76)));
676          if(!(((V87))==((V86)))){          if(!(((V87))==((V86)))){
677          goto T260;}          goto T256;}
678          {object V113 = make_cons(VV[54],(V76));          {object V113 = make_cons(VV[54],(V76));
679          VMR6(V113)}          VMR6(V113)}
680          goto T260;          goto T256;
681  T260:;  T256:;
682          V114= (*(LnkLI105))((V87));          V114= (*(LnkLI104))((V87));
683          V115 = (V76);          V115 = (V76);
684          {object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115);          {object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115);
685          VMR6(V116)}}          VMR6(V116)}}
# Line 702  object V119;object V120; Line 695  object V119;object V120;
695          goto TTL;          goto TTL;
696  TTL:;  TTL:;
697          {object V121= CMPcar((V120));          {object V121= CMPcar((V120));
698          if((V121!= VV[106]))goto T262;          if((V121!= VV[105]))goto T258;
699          {register object V122;          {register object V122;
700          V122= Cnil;          V122= Cnil;
701          {register object V123;          {register object V123;
# Line 711  TTL:; Line 704  TTL:;
704          V125= CMPcdr((V120));          V125= CMPcdr((V120));
705          V123= Cnil;          V123= Cnil;
706          V124= Cnil;          V124= Cnil;
707          goto T266;          goto T262;
708  T266:;  T262:;
709          if(((V125))!=Cnil){          if(((V125))!=Cnil){
710          goto T268;}          goto T264;}
711            goto T260;
712          goto T264;          goto T264;
713          goto T268;  T264:;
 T268:;  
714          {register object V126;          {register object V126;
715          V126= CMPcar((V125));          V126= CMPcar((V125));
716          V125= CMPcdr((V125));          V125= CMPcdr((V125));
# Line 728  T268:; Line 721  T268:;
721          V124= (V127);}          V124= (V127);}
722          {register object V128;          {register object V128;
723          V129= list(2,VV[28],(V123));          V129= list(2,VV[28],(V123));
724          V130= (*(LnkLI105))((V124));          V130= (*(LnkLI104))((V124));
725          V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124)));          V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124)));
726          V122= make_cons((V128),(V122));}          V122= make_cons((V128),(V122));}
727          goto T266;          goto T262;
728          goto T264;          goto T260;
729  T264:;  T260:;
730          V131= nreverse((V122));          V131= nreverse((V122));
731          {object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131));          {object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131));
732          VMR7(V132)}}}          VMR7(V132)}}}
733          goto T262;          goto T258;
734  T262:;  T258:;
735          V133= list(2,VV[28],CMPcar((V120)));          V133= list(2,VV[28],CMPcar((V120)));
736          {object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120))));          {object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120))));
737          VMR7(V134)}}          VMR7(V134)}}
# Line 756  TTL:;{object V137; Line 749  TTL:;{object V137;
749          base[0]= (V136);          base[0]= (V136);
750          base[1]= (VV[57]->s.s_dbind);          base[1]= (VV[57]->s.s_dbind);
751          base[2]= VV[58];          base[2]= VV[58];
752          base[3]= (VV[107]->s.s_gfdef);          base[3]= (VV[106]->s.s_gfdef);
753          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
754          (void) (*Lnk108)();          (void) (*Lnk107)();
755          vs_top=sup;          vs_top=sup;
756          V137= vs_base[0];          V137= vs_base[0];
757          if(V137==Cnil)goto T284;          if(V137==Cnil)goto T280;
758          {object V138 = V137;          {object V138 = V137;
759          VMR8(V138)}          VMR8(V138)}
760          goto T284;          goto T280;
761  T284:;}  T280:;}
762          base[0]= VV[59];          base[0]= VV[59];
763          base[1]= (V136);          base[1]= (V136);
764          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 890  TTL:;{object V177; Line 883  TTL:;{object V177;
883          while(V178!=Cnil)          while(V178!=Cnil)
884          if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){          if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){
885          V177= (V178->c.c_car);          V177= (V178->c.c_car);
886          goto T296;          goto T292;
887          }else V178=V178->c.c_cdr;          }else V178=V178->c.c_cdr;
888          V177= Cnil;}          V177= Cnil;}
889          goto T296;          goto T292;
890  T296:;  T292:;
891          if(V177==Cnil)goto T295;          if(V177==Cnil)goto T291;
892          V176= V177;          V176= V177;
893          goto T294;          goto T290;
894          goto T295;          goto T291;
895  T295:;}  T291:;}
896          {object V179;          {object V179;
897          V180 = (V175);          V180 = (V175);
898          base[1]= (V175);          base[1]= (V175);
899          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
900          (void) (*Lnk109)();          (void) (*Lnk108)();
901          vs_top=sup;          vs_top=sup;
902          V184= vs_base[0];          V184= vs_base[0];
903          {object V182;          {object V182;
904          object V183= V184;          object V183= V184;
905          if(V183==Cnil){          if(V183==Cnil){
906          V181= Cnil;          V181= Cnil;
907          goto T298;}          goto T294;}
908          base[0]=V182=MMcons(Cnil,Cnil);          base[0]=V182=MMcons(Cnil,Cnil);
909          goto T299;          goto T295;
910  T299:;  T295:;
911          (V182->c.c_car)= (*(LnkLI110))((V183->c.c_car));          (V182->c.c_car)= (*(LnkLI109))((V183->c.c_car));
912          if((V183=MMcdr(V183))==Cnil){          if((V183=MMcdr(V183))==Cnil){
913          V181= base[0];          V181= base[0];
914          goto T298;}          goto T294;}
915          V182=MMcdr(V182)=MMcons(Cnil,Cnil);          V182=MMcdr(V182)=MMcons(Cnil,Cnil);
916          goto T299;}          goto T295;}
917          goto T298;          goto T294;
918  T298:;  T294:;
919          V179= make_cons(V180,V181);          V179= make_cons(V180,V181);
920          (VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind));          (VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind));
921          V176= (V179);}          V176= (V179);}
922          goto T294;          goto T290;
923  T294:;  T290:;
924          {object V186 = CMPcdr(V176);          {object V186 = CMPcdr(V176);
925          VMR17(V186)}          VMR17(V186)}
926          base[0]=base[0];          base[0]=base[0];
# Line 941  object V188; Line 934  object V188;
934  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
935          goto TTL;          goto TTL;
936  TTL:;  TTL:;
937          V189= (*(LnkLI111))((V188));          V189= (*(LnkLI110))((V188));
938          {long V190 = (long)length(/* INLINE-ARGS */V189);          {long V190 = (long)length(/* INLINE-ARGS */V189);
939          VMR18((object)V190)}          VMR18((object)V190)}
940  }  }
# Line 958  static void L23() Line 951  static void L23()
951          goto TTL;          goto TTL;
952  TTL:;  TTL:;
953          {object V192;          {object V192;
954          V192= (*(LnkLI112))((V191));          V192= (*(LnkLI111))((V191));
955          base[1]= (*(LnkLI113))((V192));          base[1]= (*(LnkLI112))((V192));
956          base[2]= (V192);          base[2]= (V192);
957          base[3]= (*(LnkLI114))((V192));          base[3]= (*(LnkLI113))((V192));
958          {register object V193;          {register object V193;
959          register object V194;          register object V194;
960          V193= Cnil;          V193= Cnil;
# Line 970  TTL:; Line 963  TTL:;
963          register object V196;          register object V196;
964          V195= (VV[57]->s.s_dbind);          V195= (VV[57]->s.s_dbind);
965          V196= CMPcar((V195));          V196= CMPcar((V195));
         goto T316;  
 T316:;  
         if(!(((V195))==Cnil)){  
         goto T317;}  
966          goto T312;          goto T312;
967          goto T317;  T312:;
968  T317:;          if(!(((V195))==Cnil)){
969            goto T313;}
970            goto T308;
971            goto T313;
972    T313:;
973          V198 = (V191);          V198 = (V191);
974          V199= (*(LnkLI115))((V196));          V199= (*(LnkLI114))((V196));
975          {register object x= V198,V197= /* INLINE-ARGS */V199;          {register object x= V198,V197= /* INLINE-ARGS */V199;
976          while(V197!=Cnil)          while(V197!=Cnil)
977          if(x==(V197->c.c_car)){          if(x==(V197->c.c_car)){
978          goto T323;          goto T319;
979          }else V197=V197->c.c_cdr;          }else V197=V197->c.c_cdr;
980          goto T321;}          goto T317;}
981          goto T323;          goto T319;
982  T323:;  T319:;
983          {register object V200;          {register object V200;
984          V200= (*(LnkLI107))((V196));          V200= (*(LnkLI106))((V196));
985          if(((V193))!=Cnil){          if(((V193))!=Cnil){
986          goto T326;}          goto T322;}
987          V194= make_cons((V200),Cnil);          V194= make_cons((V200),Cnil);
988          V193= (V194);          V193= (V194);
989          goto T321;          goto T317;
990          goto T326;          goto T322;
991  T326:;  T322:;
992          V202= make_cons((V200),Cnil);          V202= make_cons((V200),Cnil);
993          ((V194))->c.c_cdr = /* INLINE-ARGS */V202;          ((V194))->c.c_cdr = /* INLINE-ARGS */V202;
994          V201= (V194);          V201= (V194);
995          V194= CMPcdr(V201);}          V194= CMPcdr(V201);}
996          goto T321;          goto T317;
997  T321:;  T317:;
998          V195= CMPcdr((V195));          V195= CMPcdr((V195));
999          V196= CMPcar((V195));          V196= CMPcar((V195));
1000          goto T316;}          goto T312;}
1001          goto T312;          goto T308;
1002  T312:;  T308:;
1003          base[4]= (V193);}          base[4]= (V193);}
1004          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1005          return;}          return;}
# Line 1027  TTL:; Line 1020  TTL:;
1020          object V209= (V204);          object V209= (V204);
1021          if(V209==Cnil){          if(V209==Cnil){
1022          V205= Cnil;          V205= Cnil;
1023          goto T337;}          goto T333;}
1024          base[3]=V208=MMcons(Cnil,Cnil);          base[3]=V208=MMcons(Cnil,Cnil);
1025          goto T338;          goto T334;
1026  T338:;  T334:;
1027          (V208->c.c_car)= (*(LnkLI60))((V209->c.c_car));          (V208->c.c_car)= (*(LnkLI60))((V209->c.c_car));
1028          if((V209=MMcdr(V209))==Cnil){          if((V209=MMcdr(V209))==Cnil){
1029          V205= base[3];          V205= base[3];
1030          goto T337;}          goto T333;}
1031          V208=MMcdr(V208)=MMcons(Cnil,Cnil);          V208=MMcdr(V208)=MMcons(Cnil,Cnil);
1032          goto T338;}          goto T334;}
1033          goto T337;          goto T333;
1034  T337:;  T333:;
1035          {object V210;          {object V210;
1036          object V211= (V205);          object V211= (V205);
1037          if(V211==Cnil){          if(V211==Cnil){
1038          V206= Cnil;          V206= Cnil;
1039          goto T340;}          goto T336;}
1040          base[3]=V210=MMcons(Cnil,Cnil);          base[3]=V210=MMcons(Cnil,Cnil);
1041          goto T341;          goto T337;
1042  T341:;  T337:;
1043          (V210->c.c_car)= (*(LnkLI116))((V211->c.c_car));          (V210->c.c_car)= (*(LnkLI115))((V211->c.c_car));
1044          if((V211=MMcdr(V211))==Cnil){          if((V211=MMcdr(V211))==Cnil){
1045          V206= base[3];          V206= base[3];
1046          goto T340;}          goto T336;}
1047          V210=MMcdr(V210)=MMcons(Cnil,Cnil);          V210=MMcdr(V210)=MMcons(Cnil,Cnil);
1048          goto T341;}          goto T337;}
1049          goto T340;          goto T336;
1050  T340:;  T336:;
1051          {object V212;          {object V212;
1052          V212= reverse((V206));          V212= reverse((V206));
1053           vs_top=base+3;           vs_top=base+3;
# Line 1068  T340:; Line 1061  T340:;
1061          register object V214;          register object V214;
1062          V213= (V207);          V213= (V207);
1063          V214= CMPcar((V213));          V214= CMPcar((V213));
         goto T349;  
 T349:;  
         if(!(((V213))==Cnil)){  
         goto T350;}  
1064          goto T345;          goto T345;
1065          goto T350;  T345:;
1066  T350:;          if(!(((V213))==Cnil)){
1067            goto T346;}
1068            goto T341;
1069            goto T346;
1070    T346:;
1071          {register object V215;          {register object V215;
1072          V215= (*(LnkLI110))((V214));          V215= (*(LnkLI109))((V214));
1073          {register object V216;          {register object V216;
1074          register object V217;          register object V217;
1075          {register object x= (V214),V219= (V207);          {register object x= (V214),V219= (V207);
1076          while(V219!=Cnil)          while(V219!=Cnil)
1077          if(x==(V219->c.c_car)){          if(x==(V219->c.c_car)){
1078          V218= V219;          V218= V219;
1079          goto T357;          goto T353;
1080          }else V219=V219->c.c_cdr;          }else V219=V219->c.c_cdr;
1081          V218= Cnil;}          V218= Cnil;}
1082          goto T357;          goto T353;
1083  T357:;  T353:;
1084          V216= CMPcdr(V218);          V216= CMPcdr(V218);
1085          V217= CMPcar((V216));          V217= CMPcar((V216));
1086          goto T360;          goto T356;
1087  T360:;  T356:;
1088          if(!(((V216))==Cnil)){          if(!(((V216))==Cnil)){
1089          goto T361;}          goto T357;}
1090          goto T354;          goto T350;
1091          goto T361;          goto T357;
1092  T361:;  T357:;
1093          V220 = (V215);          V220 = (V215);
1094          V221= (*(LnkLI110))((V217));          V221= (*(LnkLI109))((V217));
1095          if(!((V220)==(/* INLINE-ARGS */V221))){          if(!((V220)==(/* INLINE-ARGS */V221))){
1096          goto T365;}          goto T361;}
1097          base[6]= VV[62];          base[6]= VV[62];
1098          base[7]= (V215);          base[7]= (V215);
1099          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1100          Lerror();          Lerror();
1101          vs_top=sup;          vs_top=sup;
1102          goto T365;          goto T361;
1103  T365:;  T361:;
1104          V216= CMPcdr((V216));          V216= CMPcdr((V216));
1105          V217= CMPcar((V216));          V217= CMPcar((V216));
1106          goto T360;}}          goto T356;}}
1107          goto T354;          goto T350;
1108  T354:;  T350:;
1109          V213= CMPcdr((V213));          V213= CMPcdr((V213));
1110          V214= CMPcar((V213));          V214= CMPcar((V213));
1111          goto T349;}          goto T345;}
1112          goto T345;          goto T341;
1113  T345:;  T341:;
1114          {object V222 = (V207);          {object V222 = (V207);
1115          VMR20(V222)}}          VMR20(V222)}}
1116          base[0]=base[0];          base[0]=base[0];
# Line 1139  TTL:; Line 1132  TTL:;
1132          base[1]= VV[63];          base[1]= VV[63];
1133          base[2]= Cnil;          base[2]= Cnil;
1134          base[3]= VV[64];          base[3]= VV[64];
1135          base[4]= (VV[117]->s.s_gfdef);          base[4]= (VV[116]->s.s_gfdef);
1136          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1137          (void) (*Lnk118)();          (void) (*Lnk117)();
1138          vs_top=sup;          vs_top=sup;
1139          {object V225 = vs_base[0];          {object V225 = vs_base[0];
1140          VMR21(V225)}          VMR21(V225)}
# Line 1162  TTL:; Line 1155  TTL:;
1155          object V230;          object V230;
1156          V229= (V227);          V229= (V227);
1157          V230= CMPcar((V229));          V230= CMPcar((V229));
         goto T390;  
 T390:;  
         if(!(((V229))==Cnil)){  
         goto T391;}  
1158          goto T386;          goto T386;
1159          goto T391;  T386:;
1160  T391:;          if(!(((V229))==Cnil)){
1161            goto T387;}
1162            goto T382;
1163            goto T387;
1164    T387:;
1165          {object V231;          {object V231;
1166          register object V232;          register object V232;
1167          V231= (*(LnkLI60))((V230));          V231= (*(LnkLI60))((V230));
1168          V232= (*(LnkLI119))((V231));          V232= (*(LnkLI118))((V231));
         goto T399;  
 T399:;  
         if(((V232))!=Cnil){  
         goto T401;}  
1169          goto T395;          goto T395;
1170          goto T401;  T395:;
1171  T401:;          if(((V232))!=Cnil){
1172            goto T397;}
1173            goto T391;
1174            goto T397;
1175    T397:;
1176          {register object V233;          {register object V233;
1177          {register object V234;          {register object V234;
1178          V234= CMPcar((V232));          V234= CMPcar((V232));
1179          V232= CMPcdr((V232));          V232= CMPcdr((V232));
1180          V233= (V234);}          V233= (V234);}
1181          if(((V233))==(VV[65])){          if(((V233))==(VV[65])){
1182          goto T404;}          goto T400;}
1183          base[3]= VV[66];          base[3]= VV[66];
1184          base[4]= (V233);          base[4]= (V233);
1185          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1186          Lerror();          Lerror();
1187          vs_top=sup;}          vs_top=sup;}
1188          goto T404;          goto T400;
1189  T404:;  T400:;
1190          {register object V236;          {register object V236;
1191          V236= CMPcar((V232));          V236= CMPcar((V232));
1192          V232= CMPcdr((V232));          V232= CMPcdr((V232));
1193          V235= (V236);}          V235= (V236);}
1194          V237= reverse(V235);          V237= reverse(V235);
1195          V228= nconc((V228),/* INLINE-ARGS */V237);          V228= nconc((V228),/* INLINE-ARGS */V237);
1196          goto T399;}          goto T395;}
1197          goto T395;          goto T391;
1198  T395:;  T391:;
1199          V229= CMPcdr((V229));          V229= CMPcdr((V229));
1200          V230= CMPcar((V229));          V230= CMPcar((V229));
1201          goto T390;}          goto T386;}
1202          goto T386;          goto T382;
1203  T386:;  T382:;
1204          {object V238 = reverse((V228));          {object V238 = reverse((V228));
1205          VMR22(V238)}}          VMR22(V238)}}
1206          base[0]=base[0];          base[0]=base[0];
# Line 1222  object V241;object V242; Line 1215  object V241;object V242;
1215          goto TTL;          goto TTL;
1216  TTL:;{object V243;  TTL:;{object V243;
1217          base[0]= (V242);          base[0]= (V242);
1218          base[1]= (*(LnkLI111))((V241));          base[1]= (*(LnkLI110))((V241));
1219          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1220          (void) (*Lnk120)();          (void) (*Lnk119)();
1221          vs_top=sup;          vs_top=sup;
1222          V243= vs_base[0];          V243= vs_base[0];
1223          if(V243==Cnil)goto T424;          if(V243==Cnil)goto T420;
1224          {object V244 = V243;          {object V244 = V243;
1225          VMR23(V244)}          VMR23(V244)}
1226          goto T424;          goto T420;
1227  T424:;}  T420:;}
1228          base[0]= VV[67];          base[0]= VV[67];
1229          base[1]= (V242);          base[1]= (V242);
1230          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 1275  object V252;register object V253;object Line 1268  object V252;register object V253;object
1268          goto TTL;          goto TTL;
1269  TTL:;  TTL:;
1270          if(type_of(V253)==t_structure){          if(type_of(V253)==t_structure){
1271          goto T434;}          goto T430;}
1272          goto T432;          goto T428;
1273          goto T434;          goto T430;
1274  T434:;  T430:;
1275          if(!(((V253)->str.str_def)==(VV[71]))){          if(!(((V253)->str.str_def)==(VV[71]))){
1276          goto T432;}          goto T428;}
1277          V256= STREF(object,(V253),4);          V256= STREF(object,(V253),4);
1278          goto T430;          goto T426;
1279          goto T432;          goto T428;
1280  T432:;{object V258;  T428:;{object V258;
1281          V258= (VV[73]->s.s_dbind);          V258= (VV[73]->s.s_dbind);
1282          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1283          base[1]= (V253);          base[1]= (V253);
1284          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1285          (void) (*Lnk121)();          (void) (*Lnk120)();
1286          vs_top=sup;          vs_top=sup;
1287          V259= vs_base[0];          V259= vs_base[0];
1288          if(!((V258)==(CMPcar(V259)))){          if(!((V258)==(CMPcar(V259)))){
1289          goto T437;}}          goto T433;}}
1290          V256= CMPcar(((V253))->cc.cc_turbo[12]);          V256= CMPcar(((V253))->cc.cc_turbo[12]);
1291          goto T430;          goto T426;
1292          goto T437;          goto T433;
1293  T437:;  T433:;
1294          base[0]= VV[74];          base[0]= VV[74];
1295          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1296          Lerror();          Lerror();
1297          vs_top=sup;          vs_top=sup;
1298          V256= vs_base[0];          V256= vs_base[0];
1299          goto T430;          goto T426;
1300  T430:;  T426:;
1301          V260= (*(LnkLI70))((V252),(V254));          V260= (*(LnkLI70))((V252),(V254));
1302          V261 = (V255);          V261 = (V255);
1303          {object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261));          {object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261));
# Line 1321  register object V264; Line 1314  register object V264;
1314          goto TTL;          goto TTL;
1315  TTL:;  TTL:;
1316          if(type_of(V264)==t_structure){          if(type_of(V264)==t_structure){
1317          goto T447;}          goto T443;}
1318          goto T445;          goto T441;
1319          goto T447;          goto T443;
1320  T447:;  T443:;
1321          if(!(((V264)->str.str_def)==(VV[75]))){          if(!(((V264)->str.str_def)==(VV[75]))){
1322          goto T445;}          goto T441;}
1323          V265= STREF(object,(V264),4);          V265= STREF(object,(V264),4);
1324          goto T443;          goto T439;
1325          goto T445;          goto T441;
1326  T445:;{object V267;  T441:;{object V267;
1327          V267= (VV[73]->s.s_dbind);          V267= (VV[73]->s.s_dbind);
1328          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1329          base[1]= (V264);          base[1]= (V264);
1330          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1331          (void) (*Lnk121)();          (void) (*Lnk120)();
1332          vs_top=sup;          vs_top=sup;
1333          V268= vs_base[0];          V268= vs_base[0];
1334          if(!((V267)==(CMPcar(V268)))){          if(!((V267)==(CMPcar(V268)))){
1335          goto T450;}}          goto T446;}}
1336          V265= CMPcar(((V264))->cc.cc_turbo[12]);          V265= CMPcar(((V264))->cc.cc_turbo[12]);
1337          goto T443;          goto T439;
1338          goto T450;          goto T446;
1339  T450:;  T446:;
1340          base[0]= VV[74];          base[0]= VV[74];
1341          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1342          Lerror();          Lerror();
1343          vs_top=sup;          vs_top=sup;
1344          V265= vs_base[0];          V265= vs_base[0];
1345          goto T443;          goto T439;
1346  T443:;  T439:;
1347          V269= (*(LnkLI70))(VV[76],VV[77]);          V269= (*(LnkLI70))(VV[76],VV[77]);
1348          {object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)];          {object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)];
1349          VMR26(V270)}          VMR26(V270)}
# Line 1366  register object V272; Line 1359  register object V272;
1359          goto TTL;          goto TTL;
1360  TTL:;  TTL:;
1361          if(type_of(V272)==t_structure){          if(type_of(V272)==t_structure){
1362          goto T460;}          goto T456;}
1363          goto T458;          goto T454;
1364          goto T460;          goto T456;
1365  T460:;  T456:;
1366          if(!(((V272)->str.str_def)==(VV[78]))){          if(!(((V272)->str.str_def)==(VV[78]))){
1367          goto T458;}          goto T454;}
1368          V273= STREF(object,(V272),4);          V273= STREF(object,(V272),4);
1369          goto T456;          goto T452;
1370          goto T458;          goto T454;
1371  T458:;{object V275;  T454:;{object V275;
1372          V275= (VV[73]->s.s_dbind);          V275= (VV[73]->s.s_dbind);
1373          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1374          base[1]= (V272);          base[1]= (V272);
1375          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1376          (void) (*Lnk121)();          (void) (*Lnk120)();
1377          vs_top=sup;          vs_top=sup;
1378          V276= vs_base[0];          V276= vs_base[0];
1379          if(!((V275)==(CMPcar(V276)))){          if(!((V275)==(CMPcar(V276)))){
1380          goto T463;}}          goto T459;}}
1381          V273= CMPcar(((V272))->cc.cc_turbo[12]);          V273= CMPcar(((V272))->cc.cc_turbo[12]);
1382          goto T456;          goto T452;
1383          goto T463;          goto T459;
1384  T463:;  T459:;
1385          base[0]= VV[74];          base[0]= VV[74];
1386          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1387          Lerror();          Lerror();
1388          vs_top=sup;          vs_top=sup;
1389          V273= vs_base[0];          V273= vs_base[0];
1390          goto T456;          goto T452;
1391  T456:;  T452:;
1392          V277= (*(LnkLI70))(VV[79],VV[80]);          V277= (*(LnkLI70))(VV[79],VV[80]);
1393          {object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)];          {object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)];
1394          VMR27(V278)}          VMR27(V278)}
# Line 1410  object V280; Line 1403  object V280;
1403  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1404          goto TTL;          goto TTL;
1405  TTL:;  TTL:;
1406          V281= (*(LnkLI124))((V280));          V281= (*(LnkLI123))((V280));
1407          {object V282 = (*(LnkLI123))(/* INLINE-ARGS */V281);          {object V282 = (*(LnkLI122))(/* INLINE-ARGS */V281);
1408          VMR28(V282)}          VMR28(V282)}
1409          return Cnil;          return Cnil;
1410  }  }
# Line 1424  register object V284; Line 1417  register object V284;
1417          goto TTL;          goto TTL;
1418  TTL:;  TTL:;
1419          if(type_of(V284)==t_structure){          if(type_of(V284)==t_structure){
1420          goto T473;}          goto T469;}
1421          goto T471;          goto T467;
1422          goto T473;          goto T469;
1423  T473:;  T469:;
1424          if(!(((V284)->str.str_def)==(VV[81]))){          if(!(((V284)->str.str_def)==(VV[81]))){
1425          goto T471;}          goto T467;}
1426          V285= STREF(object,(V284),4);          V285= STREF(object,(V284),4);
1427          goto T469;          goto T465;
1428          goto T471;          goto T467;
1429  T471:;{object V287;  T467:;{object V287;
1430          V287= (VV[73]->s.s_dbind);          V287= (VV[73]->s.s_dbind);
1431          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1432          base[1]= (V284);          base[1]= (V284);
1433          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1434          (void) (*Lnk121)();          (void) (*Lnk120)();
1435          vs_top=sup;          vs_top=sup;
1436          V288= vs_base[0];          V288= vs_base[0];
1437          if(!((V287)==(CMPcar(V288)))){          if(!((V287)==(CMPcar(V288)))){
1438          goto T476;}}          goto T472;}}
1439          V285= CMPcar(((V284))->cc.cc_turbo[12]);          V285= CMPcar(((V284))->cc.cc_turbo[12]);
1440          goto T469;          goto T465;
1441          goto T476;          goto T472;
1442  T476:;  T472:;
1443          base[0]= VV[74];          base[0]= VV[74];
1444          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1445          Lerror();          Lerror();
1446          vs_top=sup;          vs_top=sup;
1447          V285= vs_base[0];          V285= vs_base[0];
1448          goto T469;          goto T465;
1449  T469:;  T465:;
1450          V289= (*(LnkLI70))(VV[82],VV[83]);          V289= (*(LnkLI70))(VV[82],VV[83]);
1451          {object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)];          {object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)];
1452          VMR29(V290)}          VMR29(V290)}
# Line 1469  register object V292; Line 1462  register object V292;
1462          goto TTL;          goto TTL;
1463  TTL:;  TTL:;
1464          if(type_of(V292)==t_structure){          if(type_of(V292)==t_structure){
1465          goto T486;}          goto T482;}
1466          goto T484;          goto T480;
1467          goto T486;          goto T482;
1468  T486:;  T482:;
1469          if(!(((V292)->str.str_def)==(VV[84]))){          if(!(((V292)->str.str_def)==(VV[84]))){
1470          goto T484;}          goto T480;}
1471          V293= STREF(object,(V292),4);          V293= STREF(object,(V292),4);
1472          goto T482;          goto T478;
1473          goto T484;          goto T480;
1474  T484:;{object V295;  T480:;{object V295;
1475          V295= (VV[73]->s.s_dbind);          V295= (VV[73]->s.s_dbind);
1476          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1477          base[1]= (V292);          base[1]= (V292);
1478          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1479          (void) (*Lnk121)();          (void) (*Lnk120)();
1480          vs_top=sup;          vs_top=sup;
1481          V296= vs_base[0];          V296= vs_base[0];
1482          if(!((V295)==(CMPcar(V296)))){          if(!((V295)==(CMPcar(V296)))){
1483          goto T489;}}          goto T485;}}
1484          V293= CMPcar(((V292))->cc.cc_turbo[12]);          V293= CMPcar(((V292))->cc.cc_turbo[12]);
1485          goto T482;          goto T478;
1486          goto T489;          goto T485;
1487  T489:;  T485:;
1488          base[0]= VV[74];          base[0]= VV[74];
1489          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1490          Lerror();          Lerror();
1491          vs_top=sup;          vs_top=sup;
1492          V293= vs_base[0];          V293= vs_base[0];
1493          goto T482;          goto T478;
1494  T482:;  T478:;
1495          V297= (*(LnkLI70))(VV[85],VV[77]);          V297= (*(LnkLI70))(VV[85],VV[77]);
1496          {object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)];          {object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)];
1497          VMR30(V298)}          VMR30(V298)}
# Line 1514  register object V300; Line 1507  register object V300;
1507          goto TTL;          goto TTL;
1508  TTL:;  TTL:;
1509          if(type_of(V300)==t_structure){          if(type_of(V300)==t_structure){
1510          goto T499;}          goto T495;}
1511          goto T497;          goto T493;
1512          goto T499;          goto T495;
1513  T499:;  T495:;
1514          if(!(((V300)->str.str_def)==(VV[86]))){          if(!(((V300)->str.str_def)==(VV[86]))){
1515          goto T497;}          goto T493;}
1516          V301= STREF(object,(V300),4);          V301= STREF(object,(V300),4);
1517          goto T495;          goto T491;
1518          goto T497;          goto T493;
1519  T497:;{object V303;  T493:;{object V303;
1520          V303= (VV[73]->s.s_dbind);          V303= (VV[73]->s.s_dbind);
1521          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1522          base[1]= (V300);          base[1]= (V300);
1523          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1524          (void) (*Lnk121)();          (void) (*Lnk120)();
1525          vs_top=sup;          vs_top=sup;
1526          V304= vs_base[0];          V304= vs_base[0];
1527          if(!((V303)==(CMPcar(V304)))){          if(!((V303)==(CMPcar(V304)))){
1528          goto T502;}}          goto T498;}}
1529          V301= CMPcar(((V300))->cc.cc_turbo[12]);          V301= CMPcar(((V300))->cc.cc_turbo[12]);
1530          goto T495;          goto T491;
1531          goto T502;          goto T498;
1532  T502:;  T498:;
1533          base[0]= VV[74];          base[0]= VV[74];
1534          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1535          Lerror();          Lerror();
1536          vs_top=sup;          vs_top=sup;
1537          V301= vs_base[0];          V301= vs_base[0];
1538          goto T495;          goto T491;
1539  T495:;  T491:;
1540          V305= (*(LnkLI70))(VV[85],VV[87]);          V305= (*(LnkLI70))(VV[85],VV[87]);
1541          {object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)];          {object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)];
1542          VMR31(V306)}          VMR31(V306)}
# Line 1559  register object V308; Line 1552  register object V308;
1552          goto TTL;          goto TTL;
1553  TTL:;  TTL:;
1554          if(type_of(V308)==t_structure){          if(type_of(V308)==t_structure){
1555          goto T512;}          goto T508;}
1556          goto T510;          goto T506;
1557          goto T512;          goto T508;
1558  T512:;  T508:;
1559          if(!(((V308)->str.str_def)==(VV[88]))){          if(!(((V308)->str.str_def)==(VV[88]))){
1560          goto T510;}          goto T506;}
1561          V309= STREF(object,(V308),4);          V309= STREF(object,(V308),4);
1562          goto T508;          goto T504;
1563          goto T510;          goto T506;
1564  T510:;{object V311;  T506:;{object V311;
1565          V311= (VV[73]->s.s_dbind);          V311= (VV[73]->s.s_dbind);
1566          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1567          base[1]= (V308);          base[1]= (V308);
1568          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1569          (void) (*Lnk121)();          (void) (*Lnk120)();
1570          vs_top=sup;          vs_top=sup;
1571          V312= vs_base[0];          V312= vs_base[0];
1572          if(!((V311)==(CMPcar(V312)))){          if(!((V311)==(CMPcar(V312)))){
1573          goto T515;}}          goto T511;}}
1574          V309= CMPcar(((V308))->cc.cc_turbo[12]);          V309= CMPcar(((V308))->cc.cc_turbo[12]);
1575          goto T508;          goto T504;
1576          goto T515;          goto T511;
1577  T515:;  T511:;
1578          base[0]= VV[74];          base[0]= VV[74];
1579          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1580          Lerror();          Lerror();
1581          vs_top=sup;          vs_top=sup;
1582          V309= vs_base[0];          V309= vs_base[0];
1583          goto T508;          goto T504;
1584  T508:;  T504:;
1585          V313= (*(LnkLI70))(VV[89],VV[90]);          V313= (*(LnkLI70))(VV[89],VV[90]);
1586          {object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)];          {object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)];
1587          VMR32(V314)}          VMR32(V314)}
# Line 1604  register object V316; Line 1597  register object V316;
1597          goto TTL;          goto TTL;
1598  TTL:;  TTL:;
1599          if(type_of(V316)==t_structure){          if(type_of(V316)==t_structure){
1600          goto T525;}          goto T521;}
1601          goto T523;          goto T519;
1602          goto T525;          goto T521;
1603  T525:;  T521:;
1604          if(!(((V316)->str.str_def)==(VV[91]))){          if(!(((V316)->str.str_def)==(VV[91]))){
1605          goto T523;}          goto T519;}
1606          V317= STREF(object,(V316),4);          V317= STREF(object,(V316),4);
1607          goto T521;          goto T517;
1608          goto T523;          goto T519;
1609  T523:;{object V319;  T519:;{object V319;
1610          V319= (VV[73]->s.s_dbind);          V319= (VV[73]->s.s_dbind);
1611          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1612          base[1]= (V316);          base[1]= (V316);
1613          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1614          (void) (*Lnk121)();          (void) (*Lnk120)();
1615          vs_top=sup;          vs_top=sup;
1616          V320= vs_base[0];          V320= vs_base[0];
1617          if(!((V319)==(CMPcar(V320)))){          if(!((V319)==(CMPcar(V320)))){
1618          goto T528;}}          goto T524;}}
1619          V317= CMPcar(((V316))->cc.cc_turbo[12]);          V317= CMPcar(((V316))->cc.cc_turbo[12]);
1620          goto T521;          goto T517;
1621          goto T528;          goto T524;
1622  T528:;  T524:;
1623          base[0]= VV[74];          base[0]= VV[74];
1624          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1625          Lerror();          Lerror();
1626          vs_top=sup;          vs_top=sup;
1627          V317= vs_base[0];          V317= vs_base[0];
1628          goto T521;          goto T517;
1629  T521:;  T517:;
1630          V321= (*(LnkLI70))(VV[76],VV[92]);          V321= (*(LnkLI70))(VV[76],VV[92]);
1631          {object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)];          {object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)];
1632          VMR33(V322)}          VMR33(V322)}
# Line 1665  TTL:; Line 1658  TTL:;
1658          V333= vs_base[0];          V333= vs_base[0];
1659          (void)((*(LnkLI100))((V334)));          (void)((*(LnkLI100))((V334)));
1660          if(!(((V330))==(VV[11]))){          if(!(((V330))==(VV[11]))){
1661          goto T544;}          goto T540;}
1662          (void)((*(LnkLI104))((V329)));          (void)((*(LnkLI103))((V329)));
1663          goto T544;          goto T540;
1664  T544:;  T540:;
1665          {object V335;          {object V335;
1666          object V336;          object V336;
1667          V337 = (V329);          V337 = (V329);
1668          vs_base=vs_top;          vs_base=vs_top;
1669          (void) (*Lnk126)();          (void) (*Lnk125)();
1670          vs_top=sup;          vs_top=sup;
1671          V338= vs_base[0];          V338= vs_base[0];
1672          V339 = (V330);          V339 = (V330);
1673          V340 = (V331);          V340 = (V331);
1674          V341 = (V332);          V341 = (V332);
1675          V342 = (V333);          V342 = (V333);
1676          V335= (*(LnkLI125))(V337,V338,V339,V340,V341,V342);          V335= (*(LnkLI124))(V337,V338,V339,V340,V341,V342);
1677          base[0]= (V329);          base[0]= (V329);
1678          base[1]= (VV[57]->s.s_dbind);          base[1]= (VV[57]->s.s_dbind);
1679          base[2]= VV[58];          base[2]= VV[58];
1680          base[3]= (VV[107]->s.s_gfdef);          base[3]= (VV[106]->s.s_gfdef);
1681          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1682          (void) (*Lnk108)();          (void) (*Lnk107)();
1683          vs_top=sup;          vs_top=sup;
1684          V336= vs_base[0];          V336= vs_base[0];
1685          V343 = (V335);          V343 = (V335);
# Line 1718  TTL:; Line 1711  TTL:;
1711          {object V347;          {object V347;
1712          object V348;          object V348;
1713          V347= (*(LnkLI60))((V346));          V347= (*(LnkLI60))((V346));
1714          V348= (*(LnkLI115))((V347));          V348= (*(LnkLI114))((V347));
1715          V349 = (V346);          V349 = (V346);
1716          {object V351;          {object V351;
1717          {object V352;          {object V352;
1718          object V353= (V348);          object V353= (V348);
1719          if(V353==Cnil){          if(V353==Cnil){
1720          V351= Cnil;          V351= Cnil;
1721          goto T562;}          goto T558;}
1722          base[3]=V352=MMcons(Cnil,Cnil);          base[3]=V352=MMcons(Cnil,Cnil);
1723          goto T563;          goto T559;
1724  T563:;  T559:;
1725          (V352->c.c_car)= (*(LnkLI112))((V353->c.c_car));          (V352->c.c_car)= (*(LnkLI111))((V353->c.c_car));
1726          if((V353=MMcdr(V353))==Cnil){          if((V353=MMcdr(V353))==Cnil){
1727          V351= base[3];          V351= base[3];
1728          goto T562;}          goto T558;}
1729          V352=MMcdr(V352)=MMcons(Cnil,Cnil);          V352=MMcdr(V352)=MMcons(Cnil,Cnil);
1730          goto T563;}          goto T559;}
1731          goto T562;          goto T558;
1732  T562:;  T558:;
1733           vs_top=base+3;           vs_top=base+3;
1734           while(V351!=Cnil)           while(V351!=Cnil)
1735           {vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;}           {vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;}
# Line 1763  register object *base0; Line 1756  register object *base0;
1756          goto TTL;          goto TTL;
1757  TTL:;  TTL:;
1758          if(((V354))==Cnil){          if(((V354))==Cnil){
1759          goto T566;}          goto T562;}
1760          base[1]= CMPcdr((V354));          base[1]= CMPcdr((V354));
1761          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1762          L6(base0);          L6(base0);
1763          vs_top=sup;          vs_top=sup;
1764          {object V355= CMPcar((V354));          {object V355= CMPcar((V354));
1765          if(!(type_of(V355)==t_cons||(V355)==Cnil)){          if(!(type_of(V355)==t_cons||(V355)==Cnil)){
1766          goto T571;}}          goto T567;}}
1767          if(!((CMPcaar((V354)))==(VV[7]))){          if(!((CMPcaar((V354)))==(VV[7]))){
1768          goto T571;}          goto T567;}
1769          V354= CMPcdar((V354));          V354= CMPcdar((V354));
1770          goto TTL;          goto TTL;
1771          return;          return;
1772          goto T571;          goto T567;
1773  T571:;  T567:;
1774          {object V356;          {object V356;
1775          V356= CMPcar((V354));          V356= CMPcar((V354));
1776          base0[0]= make_cons((V356),base0[0]);          base0[0]= make_cons((V356),base0[0]);
1777          base[2]= base0[0];          base[2]= base0[0];
1778          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1779          return;}          return;}
1780          goto T566;          goto T562;
1781  T566:;  T562:;
1782          base[1]= Cnil;          base[1]= Cnil;
1783          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1784          return;          return;
# Line 1803  register object *base0; Line 1796  register object *base0;
1796          goto TTL;          goto TTL;
1797  TTL:;  TTL:;
1798          if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){          if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){
1799          goto T580;}          goto T576;}
1800          {register object x= CMPcar(base0[0]),V357= VV[4];          {register object x= CMPcar(base0[0]),V357= VV[4];
1801          while(V357!=Cnil)          while(V357!=Cnil)
1802          if(x==(V357->c.c_car)){          if(x==(V357->c.c_car)){
1803          goto T583;          goto T579;
1804          }else V357=V357->c.c_cdr;          }else V357=V357->c.c_cdr;
1805          goto T580;}          goto T576;}
1806          goto T583;          goto T579;
1807  T583:;  T579:;
1808          base[0]= Cnil;          base[0]= Cnil;
1809          base[1]= VV[5];          base[1]= VV[5];
1810          base[2]= (VFUN_NARGS=2,(*(LnkLI127))(CMPcar(base0[0]),Cnil));          base[2]= (VFUN_NARGS=2,(*(LnkLI126))(CMPcar(base0[0]),Cnil));
1811          base[3]= CMPcdr(base0[0]);          base[3]= CMPcdr(base0[0]);
1812          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1813          Lformat();          Lformat();
1814          return;          return;
1815          goto T580;          goto T576;
1816  T580:;  T576:;
1817          base[0]= Cnil;          base[0]= Cnil;
1818          base[1]= VV[6];          base[1]= VV[6];
1819          base[2]= base0[0];          base[2]= base0[0];
# Line 1828  T580:; Line 1821  T580:;
1821          Lformat();          Lformat();
1822          return;          return;
1823  }  }
1824  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[127],(void **)(void *)&LnkLI127,first,ap);va_end(ap);return V1;} /* CAPITALIZE-WORDS */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* CAPITALIZE-WORDS */
1825  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* LOAD-TRUENAME */  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* LOAD-TRUENAME */
1826  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,6,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-CLASS-DEFINITION */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,6,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-CLASS-DEFINITION */
1827  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
1828  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */
1829  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
1830  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
1831  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* CCLOSURE-ENV-NTHCDR */
1832  static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* POSITION */  static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* POSITION */
1833  static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */
1834  static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* REMOVE-DUPLICATES */  static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* REMOVE-DUPLICATES */
1835  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */
1836  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DEFINITION */  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DEFINITION */
1837  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */
1838  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */  static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */
1839  static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-DEFAULT-INITARGS */  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-DEFAULT-INITARGS */
1840  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-SLOTS */  static object  LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-SLOTS */
1841  static object  LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-CPL */  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* EARLY-COLLECT-CPL */
1842  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTS */  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTS */
1843  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* CANONICAL-SLOT-NAME */  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* CANONICAL-SLOT-NAME */
1844  static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* EARLY-COLLECT-INHERITANCE */  static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* EARLY-COLLECT-INHERITANCE */
1845  static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* FIND */  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FIND */
1846  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* MAKE-INITFUNCTION */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* MAKE-INITFUNCTION */
1847  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */
1848  static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* CLASS-DEFSTRUCT-FORM */  static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* CLASS-DEFSTRUCT-FORM */
 static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  
1849  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
1850  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */
1851  static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* *SUBTYPEP */  static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* *SUBTYPEP */

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