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

Diff of /gcl/pcl/pcl_boot.c

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

revision 1.1 by camm, Wed Feb 26 22:21:38 2003 UTC revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 238  T87:; Line 238  T87:;
238          goto T85;          goto T85;
239  T85:;  T85:;
240          if((V18!= VV[210]))goto T99;          if((V18!= VV[210]))goto T99;
241          base[1]= VV[7];          {object V39;
242          vs_top=(vs_base=base+1)+1;          V39= listA(3,VV[7],(V12),CMPcdr((V17)));
243          Lerror();          (VV[8]->s.s_dbind)= make_cons((V39),(VV[8]->s.s_dbind));
244          vs_top=sup;          goto T17;}
         goto T17;  
245          goto T99;          goto T99;
246  T99:;  T99:;
247          FEerror("The ECASE key value ~s is illegal.",1,V18);          FEerror("The ECASE key value ~s is illegal.",1,V18);
# Line 254  T17:; Line 253  T17:;
253          goto T12;}          goto T12;}
254          goto T8;          goto T8;
255  T8:;  T8:;
256          {object V39;          {object V40;
257          base[0]= (V15);          base[0]= (V15);
258          base[1]= VV[2];          base[1]= VV[2];
259          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
260          Lgetf();          Lgetf();
261          vs_top=sup;          vs_top=sup;
262          V39= vs_base[0];          V40= vs_base[0];
263          if(((V39))==Cnil){          if(((V40))==Cnil){
264          goto T7;}          goto T7;}
         {object V41;  
         V41= list(2,VV[1],(V39));  
265          {object V42;          {object V42;
266            V42= list(2,VV[1],(V40));
267            {object V43;
268          base[1]= (V15);          base[1]= (V15);
269          base[2]= (V41);          base[2]= (V42);
270          base[3]= VV[2];          base[3]= VV[2];
271          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
272          siLput_f();          siLput_f();
273          vs_top=sup;          vs_top=sup;
274          V42= vs_base[0];          V43= vs_base[0];
275          V15= (V42);}}}          V15= (V43);}}}
276          goto T7;          goto T7;
277  T7:;  T7:;
278          V43= list(2,VV[1],(V12));          V44= list(2,VV[1],(V12));
279          V44= list(3,VV[10],/* INLINE-ARGS */V43,list(2,VV[1],(V13)));          V45= list(3,VV[11],/* INLINE-ARGS */V44,list(2,VV[1],(V13)));
280          V45= list(2,VV[11],(V12));{object V46;          V46= list(2,VV[12],(V12));{object V47;
281          V46= (VV[12]->s.s_dbind);          V47= (VV[13]->s.s_dbind);
282          V47= list(2,VV[1],(V12));          V48= list(2,VV[1],(V12));
283          V48= listA(4,VV[13],/* INLINE-ARGS */V47,list(2,VV[1],(V13)),(V15));          V49= listA(4,VV[14],/* INLINE-ARGS */V48,list(2,VV[1],(V13)),(V15));
284          {object V49 = list(3,VV[9],/* INLINE-ARGS */V44,(*(LnkLI349))(/* INLINE-ARGS */V45,V46,/* INLINE-ARGS */V48));          {object V50 = list(3,VV[10],/* INLINE-ARGS */V45,(*(LnkLI349))(/* INLINE-ARGS */V46,V47,/* INLINE-ARGS */V49));
285          VMR3(V49)}}}          VMR3(V50)}}}
286          base[0]=base[0];          base[0]=base[0];
287          return Cnil;          return Cnil;
288  }  }
# Line 293  static void L6() Line 292  static void L6()
292  {register object *base=vs_base;  {register object *base=vs_base;
293          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
294          vs_check;          vs_check;
295          {register object V50;          {register object V51;
         object V51;  
296          object V52;          object V52;
297            object V53;
298          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
299          V50=(base[0]);          V51=(base[0]);
300          V51=(base[1]);          V52=(base[1]);
301          vs_base=vs_base+2;          vs_base=vs_base+2;
302          vs_top[0]=Cnil;          vs_top[0]=Cnil;
303          {object *p=vs_top;          {object *p=vs_top;
304           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
305          V52=(base[2]);          V53=(base[2]);
306          vs_top=sup;          vs_top=sup;
307          if(!(type_of((V50))==t_cons||((V50))==Cnil)){          if(!(type_of((V51))==t_cons||((V51))==Cnil)){
308          goto T118;}          goto T119;}
309          (void)((*(LnkLI348))(CMPcadr((V50))));          (void)((*(LnkLI348))(CMPcadr((V51))));
310          goto T118;          goto T119;
311  T118:;  T119:;
312          base[3]= (V50);          base[3]= (V51);
313          base[4]= VV[14];          base[4]= VV[15];
314          base[5]= (V51);          base[5]= (V52);
315          base[6]= VV[15];          base[6]= VV[16];
316          V54= list(2,VV[11],(V50));          V55= list(2,VV[12],(V51));
317          vs_base=vs_top;          vs_base=vs_top;
318          (void) (*Lnk350)();          (void) (*Lnk350)();
319          vs_top=sup;          vs_top=sup;
320          V55= vs_base[0];          V56= vs_base[0];
321          base[7]= list(2,/* INLINE-ARGS */V54,V55);          base[7]= list(2,/* INLINE-ARGS */V55,V56);
322          {object V53;          {object V54;
323          V53= (V52);          V54= (V53);
324           vs_top=base+8;           vs_top=base+8;
325           while(V53!=Cnil)           while(V54!=Cnil)
326           {vs_push((V53)->c.c_car);V53=(V53)->c.c_cdr;}           {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}
327          vs_base=base+3;}          vs_base=base+3;}
328          (void) (*Lnk351)();          (void) (*Lnk351)();
329          return;          return;
# Line 338  static void L7() Line 337  static void L7()
337          vs_check;          vs_check;
338          check_arg(2);          check_arg(2);
339          vs_top=sup;          vs_top=sup;
340          {object V56=base[0]->c.c_cdr;          {object V57=base[0]->c.c_cdr;
341          base[2]= V56;}          base[2]= V57;}
342          {object V57;          {object V58;
         object V58;  
343          object V59;          object V59;
344          object V60;          object V60;
345            object V61;
346          base[3]= base[2];          base[3]= base[2];
347          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
348          (void) (*Lnk352)();          (void) (*Lnk352)();
         if(vs_base>=vs_top){vs_top=sup;goto T130;}  
         V57= vs_base[0];  
         vs_base++;  
349          if(vs_base>=vs_top){vs_top=sup;goto T131;}          if(vs_base>=vs_top){vs_top=sup;goto T131;}
350          V58= vs_base[0];          V58= vs_base[0];
351          vs_base++;          vs_base++;
# Line 358  static void L7() Line 354  static void L7()
354          vs_base++;          vs_base++;
355          if(vs_base>=vs_top){vs_top=sup;goto T133;}          if(vs_base>=vs_top){vs_top=sup;goto T133;}
356          V60= vs_base[0];          V60= vs_base[0];
357            vs_base++;
358            if(vs_base>=vs_top){vs_top=sup;goto T134;}
359            V61= vs_base[0];
360          vs_top=sup;          vs_top=sup;
361          goto T134;          goto T135;
         goto T130;  
 T130:;  
         V57= Cnil;  
362          goto T131;          goto T131;
363  T131:;  T131:;
364          V58= Cnil;          V58= Cnil;
# Line 374  T133:; Line 370  T133:;
370          V60= Cnil;          V60= Cnil;
371          goto T134;          goto T134;
372  T134:;  T134:;
373          {object V61;          V61= Cnil;
374          object V62;          goto T135;
375          base[3]= (V57);  T135:;
376            {object V62;
377            object V63;
378            base[3]= (V58);
379          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
380          (void) (*Lnk353)();          (void) (*Lnk353)();
         if(vs_base>=vs_top){vs_top=sup;goto T137;}  
         V61= vs_base[0];  
         vs_base++;  
381          if(vs_base>=vs_top){vs_top=sup;goto T138;}          if(vs_base>=vs_top){vs_top=sup;goto T138;}
382          V62= vs_base[0];          V62= vs_base[0];
383            vs_base++;
384            if(vs_base>=vs_top){vs_top=sup;goto T139;}
385            V63= vs_base[0];
386          vs_top=sup;          vs_top=sup;
387          goto T139;          goto T140;
         goto T137;  
 T137:;  
         V61= Cnil;  
388          goto T138;          goto T138;
389  T138:;  T138:;
390          V62= Cnil;          V62= Cnil;
391          goto T139;          goto T139;
392  T139:;  T139:;
393          base[3]= (*(LnkLI354))((V57),(V61),(V62),(V58),(V59),(V60),base[1]);          V63= Cnil;
394            goto T140;
395    T140:;
396            base[3]= (*(LnkLI354))((V58),(V62),(V63),(V59),(V60),(V61),base[1]);
397          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
398          return;}}          return;}}
399  }  }
# Line 404  static void L8() Line 403  static void L8()
403  {register object *base=vs_base;  {register object *base=vs_base;
404          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
405          vs_check;          vs_check;
406          {object V63;          {object V64;
407          check_arg(1);          check_arg(1);
408          V63=(base[0]);          V64=(base[0]);
409          vs_top=sup;          vs_top=sup;
410          goto TTL;          goto TTL;
411  TTL:;  TTL:;
412          if(((VV[16]->s.s_dbind))==(VV[17])){          if(((VV[17]->s.s_dbind))==(VV[18])){
413          goto T141;}          goto T142;}
414          base[1]= Cnil;          base[1]= Cnil;
415          base[2]= Cnil;          base[2]= Cnil;
416          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
417          return;          return;
418          goto T141;          goto T142;
419  T141:;  T142:;
420          {register object V64;          {register object V65;
421          if(((*(LnkLI355))((V63)))!=Cnil){          if(((*(LnkLI355))((V64)))!=Cnil){
422          goto T146;}          goto T147;}
423          V64= Cnil;          V65= Cnil;
424          goto T145;          goto T146;
425            goto T147;
426    T147:;
427            V65= (*(LnkLI356))((V64));
428          goto T146;          goto T146;
429  T146:;  T146:;
430          V64= (*(LnkLI356))((V63));          if(((V65))==Cnil){
431          goto T145;          goto T149;}
432  T145:;          base[1]= (V65);
         if(((V64))==Cnil){  
         goto T148;}  
         base[1]= (V64);  
433          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
434          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
435          vs_top=sup;          vs_top=sup;
436          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
437          goto T149;}          goto T150;}
438          goto T148;          goto T149;
439  T148:;  T149:;
440          base[2]= (VFUN_NARGS=1,(*(LnkLI290))(VV[18]));          base[2]= (VFUN_NARGS=1,(*(LnkLI290))(VV[19]));
441          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
442          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
443          vs_top=sup;          vs_top=sup;
444          base[1]= vs_base[0];          base[1]= vs_base[0];
445          base[3]= (VFUN_NARGS=1,(*(LnkLI290))(VV[19]));          base[3]= (VFUN_NARGS=1,(*(LnkLI290))(VV[20]));
446          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
447          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
448          vs_top=sup;          vs_top=sup;
449          base[2]= vs_base[0];          base[2]= vs_base[0];
450          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
451          return;          return;
452          goto T149;          goto T150;
453  T149:;  T150:;
454          base[1]= (V64);{object V65;          base[1]= (V65);{object V66;
455          base[4]= (V64);          base[4]= (V65);
456          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
457          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
458          vs_top=sup;          vs_top=sup;
459          V65= vs_base[0];          V66= vs_base[0];
460          if(V65==Cnil)goto T161;          if(V66==Cnil)goto T162;
461          base[3]= V65;          base[3]= V66;
462          goto T160;          goto T161;
463            goto T162;
464    T162:;}
465            base[3]= (VFUN_NARGS=1,(*(LnkLI290))(VV[20]));
466          goto T161;          goto T161;
467  T161:;}  T161:;
         base[3]= (VFUN_NARGS=1,(*(LnkLI290))(VV[19]));  
         goto T160;  
 T160:;  
468          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
469          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
470          vs_top=sup;          vs_top=sup;
# Line 480  static void L9() Line 479  static void L9()
479  {register object *base=vs_base;  {register object *base=vs_base;
480          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
481          vs_check;          vs_check;
482          {object V66;          {object V67;
483          check_arg(1);          check_arg(1);
484          V66=(base[0]);          V67=(base[0]);
485          vs_top=sup;          vs_top=sup;
486          goto TTL;          goto TTL;
487  TTL:;  TTL:;
488          {object V67;          {object V68;
489          if(((*(LnkLI355))((V66)))!=Cnil){          if(((*(LnkLI355))((V67)))!=Cnil){
490          goto T165;}          goto T166;}
491          V67= Cnil;          V68= Cnil;
492          goto T164;          goto T165;
493            goto T166;
494    T166:;
495            V68= (*(LnkLI356))((V67));
496          goto T165;          goto T165;
497  T165:;  T165:;
498          V67= (*(LnkLI356))((V66));          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){
499          goto T164;          goto T169;}
 T164:;  
         if(!(((((VV[16]->s.s_dbind))==(VV[17])?Ct:Cnil))==Cnil)){  
         goto T168;}  
500          base[1]= Cnil;          base[1]= Cnil;
501          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
502          return;          return;
503          goto T168;          goto T169;
504  T168:;  T169:;
505          if(((V67))==Cnil){          if(((V68))==Cnil){
506          goto T170;}          goto T171;}
507          base[1]= (V67);          base[1]= (V68);
508          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
509          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
510          vs_top=sup;          vs_top=sup;
511          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
512          goto T171;}          goto T172;}
513          goto T170;          goto T171;
514  T170:;  T171:;
515          base[1]= (VFUN_NARGS=1,(*(LnkLI290))(VV[19]));          base[1]= (VFUN_NARGS=1,(*(LnkLI290))(VV[20]));
516          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
517          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
518          return;          return;
519          goto T171;          goto T172;
520  T171:;{object V68;  T172:;{object V69;
521          base[2]= (V67);          base[2]= (V68);
522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
523          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
524          vs_top=sup;          vs_top=sup;
525          V68= vs_base[0];          V69= vs_base[0];
526          if(V68==Cnil)goto T178;          if(V69==Cnil)goto T179;
527          base[1]= V68;          base[1]= V69;
         goto T177;  
528          goto T178;          goto T178;
529  T178:;}          goto T179;
530          base[1]= (VFUN_NARGS=1,(*(LnkLI290))(VV[19]));  T179:;}
531          goto T177;          base[1]= (VFUN_NARGS=1,(*(LnkLI290))(VV[20]));
532  T177:;          goto T178;
533    T178:;
534          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
535          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
536          return;}          return;}
# Line 539  T177:; Line 538  T177:;
538  }  }
539  /*      local entry for function EXPAND-DEFMETHOD       */  /*      local entry for function EXPAND-DEFMETHOD       */
540    
541  static object LI10(V76,V77,V78,V79,V80,V81,V82)  static object LI10(V77,V78,V79,V80,V81,V82,V83)
542    
543  register object V76;object V77;register object V78;object V79;object V80;object V81;object V82;  register object V77;object V78;register object V79;object V80;object V81;object V82;object V83;
544  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
545          bds_check;          bds_check;
546          goto TTL;          goto TTL;
547  TTL:;  TTL:;
548          if(!(type_of((V76))==t_cons||((V76))==Cnil)){          if(!(type_of((V77))==t_cons||((V77))==Cnil)){
549          goto T181;}          goto T182;}
550          (void)((*(LnkLI348))(CMPcadr((V76))));          (void)((*(LnkLI348))(CMPcadr((V77))));
551          goto T181;          goto T182;
552  T181:;  T182:;
553          bds_bind(VV[20],Cnil);          bds_bind(VV[21],Cnil);
554          bds_bind(VV[21],Ct);          bds_bind(VV[22],Ct);
         bds_bind(VV[22],Cnil);  
555          bds_bind(VV[23],Cnil);          bds_bind(VV[23],Cnil);
556          bds_bind(VV[24],Cnil);          bds_bind(VV[24],Cnil);
557          {object V83;          bds_bind(VV[25],Cnil);
558          object V84;          {object V84;
559          object V85;          object V85;
560          base[5]= (V76);          object V86;
561          base[6]= (V79);          base[5]= (V77);
562          base[7]= (V80);          base[6]= (V80);
563          base[8]= (V81);          base[7]= (V81);
564          base[9]= (V82);          base[8]= (V82);
565            base[9]= (V83);
566          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
567          (void) (*Lnk359)();          (void) (*Lnk359)();
         if(vs_base>=vs_top){vs_top=sup;goto T190;}  
         V83= vs_base[0];  
         vs_base++;  
568          if(vs_base>=vs_top){vs_top=sup;goto T191;}          if(vs_base>=vs_top){vs_top=sup;goto T191;}
569          V84= vs_base[0];          V84= vs_base[0];
570          vs_base++;          vs_base++;
571          if(vs_base>=vs_top){vs_top=sup;goto T192;}          if(vs_base>=vs_top){vs_top=sup;goto T192;}
572          V85= vs_base[0];          V85= vs_base[0];
573            vs_base++;
574            if(vs_base>=vs_top){vs_top=sup;goto T193;}
575            V86= vs_base[0];
576          vs_top=sup;          vs_top=sup;
577          goto T193;          goto T194;
         goto T190;  
 T190:;  
         V83= Cnil;  
578          goto T191;          goto T191;
579  T191:;  T191:;
580          V84= Cnil;          V84= Cnil;
# Line 587  T192:; Line 583  T192:;
583          V85= Cnil;          V85= Cnil;
584          goto T193;          goto T193;
585  T193:;  T193:;
586          {object V86;          V86= Cnil;
587          object V87;          goto T194;
588          base[5]= (V77);  T194:;
589          base[6]= (V78);          {object V87;
590          base[7]= (V83);          object V88;
591          base[8]= (V82);          base[5]= (V78);
592            base[6]= (V79);
593            base[7]= (V84);
594            base[8]= (V83);
595          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
596          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk360)(Lclptr360);
         if(vs_base>=vs_top){vs_top=sup;goto T199;}  
         V86= vs_base[0];  
         vs_base++;  
597          if(vs_base>=vs_top){vs_top=sup;goto T200;}          if(vs_base>=vs_top){vs_top=sup;goto T200;}
598          V87= vs_base[0];          V87= vs_base[0];
599            vs_base++;
600            if(vs_base>=vs_top){vs_top=sup;goto T201;}
601            V88= vs_base[0];
602          vs_top=sup;          vs_top=sup;
603          goto T201;          goto T202;
         goto T199;  
 T199:;  
         V86= Cnil;  
604          goto T200;          goto T200;
605  T200:;  T200:;
606          V87= Cnil;          V87= Cnil;
607          goto T201;          goto T201;
608  T201:;  T201:;
609          {object V88;          V88= Cnil;
610          base[5]= (V77);          goto T202;
611          base[6]= (V78);  T202:;
612          base[7]= (V86);          {object V89;
613          base[8]= (V87);          base[5]= (V78);
614          base[9]= (V82);          base[6]= (V79);
615            base[7]= (V87);
616            base[8]= (V88);
617            base[9]= (V83);
618          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
619          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk361)(Lclptr361);
620          vs_top=sup;          vs_top=sup;
621          V88= vs_base[0];          V89= vs_base[0];
622          V89= list(2,VV[1],(V76));          V90= list(2,VV[1],(V77));
623          V90= list(3,VV[10],/* INLINE-ARGS */V89,list(2,VV[1],(V80)));          V91= list(3,VV[11],/* INLINE-ARGS */V90,list(2,VV[1],(V81)));
624          if(((VV[20]->s.s_dbind))==Cnil){          if(((VV[21]->s.s_dbind))==Cnil){
625          goto T211;}          goto T212;}
626          V92= list(2,VV[25],list(2,VV[1],(VV[20]->s.s_dbind)));          V93= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind)));
627          base[5]= make_cons(/* INLINE-ARGS */V92,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V93,Cnil);
628          goto T209;          goto T210;
629          goto T211;          goto T212;
630  T211:;  T212:;
631          base[5]= Cnil;          base[5]= Cnil;
632          goto T209;          goto T210;
633  T209:;  T210:;
         if(((VV[22]->s.s_dbind))!=Cnil){  
         goto T214;}  
634          if(((VV[23]->s.s_dbind))!=Cnil){          if(((VV[23]->s.s_dbind))!=Cnil){
         goto T214;}  
         if(((VV[24]->s.s_dbind))==Cnil){  
635          goto T215;}          goto T215;}
636          goto T214;          if(((VV[24]->s.s_dbind))!=Cnil){
637  T214:;          goto T215;}
638          V93= list(2,VV[1],(VV[22]->s.s_dbind));          if(((VV[25]->s.s_dbind))==Cnil){
639          V94= list(2,VV[1],(VV[23]->s.s_dbind));          goto T216;}
         V95= list(4,VV[26],/* INLINE-ARGS */V93,/* INLINE-ARGS */V94,list(2,VV[1],(VV[24]->s.s_dbind)));  
         base[6]= make_cons(/* INLINE-ARGS */V95,Cnil);  
         goto T213;  
640          goto T215;          goto T215;
641  T215:;  T215:;
642            V94= list(2,VV[1],(VV[23]->s.s_dbind));
643            V95= list(2,VV[1],(VV[24]->s.s_dbind));
644            V96= list(4,VV[27],/* INLINE-ARGS */V94,/* INLINE-ARGS */V95,list(2,VV[1],(VV[25]->s.s_dbind)));
645            base[6]= make_cons(/* INLINE-ARGS */V96,Cnil);
646            goto T214;
647            goto T216;
648    T216:;
649          base[6]= Cnil;          base[6]= Cnil;
650          goto T213;          goto T214;
651  T213:;  T214:;
652          if(((V78))==Cnil){          if(((V79))==Cnil){
653          goto T224;}          goto T225;}
654          base[8]= (*(LnkLI363))((V78));          base[8]= (*(LnkLI363))((V79));
655          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
656          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
657          vs_top=sup;          vs_top=sup;
658          V96= vs_base[0];          V97= vs_base[0];
659          goto T222;          goto T223;
660          goto T224;          goto T225;
661  T224:;  T225:;
662          V96= VV[19];          V97= VV[20];
663          goto T222;          goto T223;
664  T222:;  T223:;
665          base[9]= (V87);          base[9]= (V88);
666          base[10]= VV[27];          base[10]= VV[28];
667          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
668          Lgetf();          Lgetf();
669          vs_top=sup;          vs_top=sup;
670          base[8]= vs_base[0];          base[8]= vs_base[0];
671          base[9]= VV[28];          base[9]= VV[29];
672          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
673          Lgetf();          Lgetf();
674          vs_top=sup;          vs_top=sup;
675          V97= vs_base[0];          V98= vs_base[0];
676          V98= (VFUN_NARGS=7,(*(LnkLI362))((V76),(V79),(V85),(V84),V96,(V88),V97));          V99= (VFUN_NARGS=7,(*(LnkLI362))((V77),(V80),(V86),(V85),V97,(V89),V98));
677          base[7]= make_cons(/* INLINE-ARGS */V98,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V99,Cnil);
678          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
679          Lappend();          Lappend();
680          vs_top=sup;          vs_top=sup;
681          V91= vs_base[0];          V92= vs_base[0];
682          {object V99 = listA(3,VV[9],/* INLINE-ARGS */V90,V91);          {object V100 = listA(3,VV[10],/* INLINE-ARGS */V91,V92);
683          bds_unwind1;          bds_unwind1;
684          bds_unwind1;          bds_unwind1;
685          bds_unwind1;          bds_unwind1;
686          bds_unwind1;          bds_unwind1;
687          bds_unwind1;          bds_unwind1;
688          VMR8(V99)}}}}          VMR8(V100)}}}}
689          base[0]=base[0];          base[0]=base[0];
690          return Cnil;          return Cnil;
691  }  }
692  /*      local entry for function INTERNED-SYMBOL-P      */  /*      local entry for function INTERNED-SYMBOL-P      */
693    
694  static object LI11(V101)  static object LI11(V102)
695    
696  object V101;  object V102;
697  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
698          goto TTL;          goto TTL;
699  TTL:;  TTL:;
700          if(type_of((V101))==t_symbol){          if(type_of((V102))==t_symbol){
701          goto T232;}          goto T233;}
702          {object V102 = Cnil;          {object V103 = Cnil;
703          VMR9(V102)}          VMR9(V103)}
704          goto T232;          goto T233;
705  T232:;  T233:;
706          base[0]= (V101);          base[0]= (V102);
707          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
708          Lsymbol_package();          Lsymbol_package();
709          vs_top=sup;          vs_top=sup;
710          {object V103 = vs_base[0];          {object V104 = vs_base[0];
711          VMR9(V103)}          VMR9(V104)}
712          base[0]=base[0];          base[0]=base[0];
713          return Cnil;          return Cnil;
714  }  }
715  /*      local entry for function MAKE-DEFMETHOD-FORM    */  /*      local entry for function MAKE-DEFMETHOD-FORM    */
716    
717  static object LI12(object V109,object V108,object V107,object V106,object V105,object V104,object first,...)  static object LI12(object V110,object V109,object V108,object V107,object V106,object V105,object first,...)
718  {        {      
719          va_list ap;          va_list ap;
720          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
721          bds_check;          bds_check;
722          {register object V110;          {register object V111;
         register object V111;  
723          register object V112;          register object V112;
724          object V113;          register object V113;
725          object V114;          object V114;
726          register object V115;          object V115;
727          object V116;          register object V116;
728            object V117;
729          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
730          va_start(ap,first);          va_start(ap,first);
731          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
732          V110= V109;          V111= V110;
733          V111= V108;          V112= V109;
734          V112= V107;          V113= V108;
735          V113= V106;          V114= V107;
736          V114= V105;          V115= V106;
737          V115= V104;          V116= V105;
738          narg = narg - 6;          narg = narg - 6;
739          if (narg <= 0) goto T235;          if (narg <= 0) goto T236;
740          else {          else {
741          V116= first;}          V117= first;}
742          --narg; goto T236;          --narg; goto T237;
         goto T235;  
 T235:;  
         V116= Cnil;  
743          goto T236;          goto T236;
744  T236:;  T236:;
         {object V117;  
         register object V118;  
745          V117= Cnil;          V117= Cnil;
746            goto T237;
747    T237:;
748            {object V118;
749            register object V119;
750          V118= Cnil;          V118= Cnil;
         if(!(type_of((V110))==t_cons)){  
         goto T244;}  
         if((CMPcar((V110)))==(VV[29])){  
         goto T246;}  
751          V119= Cnil;          V119= Cnil;
752          goto T242;          if(!(type_of((V111))==t_cons)){
753          goto T246;          goto T245;}
754  T246:;          if((CMPcar((V111)))==(VV[30])){
755          V119= CMPcadr((V110));          goto T247;}
756          goto T242;          V120= Cnil;
757          goto T244;          goto T243;
758  T244:;          goto T247;
759          V119= (V110);  T247:;
760          goto T242;          V120= CMPcadr((V111));
761  T242:;          goto T243;
762          if(((*(LnkLI365))(V119))==Cnil){          goto T245;
763          goto T239;}  T245:;
764            V120= (V111);
765            goto T243;
766    T243:;
767            if(((*(LnkLI365))(V120))==Cnil){
768            goto T240;}
769          base[0]= (VV[365]->s.s_gfdef);          base[0]= (VV[365]->s.s_gfdef);
770          base[1]= (V111);          base[1]= (V112);
771          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
772          (void) (*Lnk366)();          (void) (*Lnk366)();
773          vs_top=sup;          vs_top=sup;
774          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
775          goto T239;}          goto T240;}
776          base[0]= VV[367];          base[0]= VV[367];
777          base[1]= (V112);          base[1]= (V113);
778          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
779          (void) (*Lnk366)();          (void) (*Lnk366)();
780          vs_top=sup;          vs_top=sup;
781          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
782          goto T239;}          goto T240;}
783          if(!(type_of((V115))==t_cons)){          if(!(type_of((V116))==t_cons)){
784          goto T239;}          goto T240;}
785          if(!((CMPcar((V115)))==(VV[31]))){          if(!((CMPcar((V116)))==(VV[32]))){
786          goto T239;}          goto T240;}
787          {register object x= CMPcadr((V115)),V120= VV[32];          {register object x= CMPcadr((V116)),V121= VV[33];
788          while(V120!=Cnil)          while(V121!=Cnil)
789          if(x==(V120->c.c_car)){          if(x==(V121->c.c_car)){
790          goto T261;          goto T262;
791          }else V120=V120->c.c_cdr;          }else V121=V121->c.c_cdr;
792          goto T239;}          goto T240;}
793          goto T261;          goto T262;
794  T261:;  T262:;
795          V117= CMPcaddr((V115));          V118= CMPcaddr((V116));
         if(!(type_of((V117))==t_cons)){  
         goto T239;}  
         if(!((CMPcar((V117)))==(VV[33]))){  
         goto T239;}  
         V118= CMPcadr((V117));  
796          if(!(type_of((V118))==t_cons)){          if(!(type_of((V118))==t_cons)){
797          goto T239;}          goto T240;}
798          if(!((CMPcar((V118)))==(VV[34]))){          if(!((CMPcar((V118)))==(VV[34]))){
799          goto T239;}          goto T240;}
800          {object V121;          V119= CMPcadr((V118));
801          object V122;          if(!(type_of((V119))==t_cons)){
802            goto T240;}
803            if(!((CMPcar((V119)))==(VV[35]))){
804            goto T240;}
805            {object V122;
806          object V123;          object V123;
807          {object V124;          object V124;
808          object V125= (V112);          {object V125;
809          if(V125==Cnil){          object V126= (V113);
810          V121= Cnil;          if(V126==Cnil){
811          goto T271;}          V122= Cnil;
812          base[3]=V124=MMcons(Cnil,Cnil);          goto T272;}
813          goto T272;          base[3]=V125=MMcons(Cnil,Cnil);
814  T272:;          goto T273;
815          {register object V126;  T273:;
816          V126= (V125->c.c_car);          {register object V127;
817          if(!(type_of((V126))==t_cons)){          V127= (V126->c.c_car);
818          goto T275;}          if(!(type_of((V127))==t_cons)){
819          V127= CMPcar((V126));          goto T276;}
820          base[4]= CMPcadr((V126));          V128= CMPcar((V127));
821            base[4]= CMPcadr((V127));
822          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
823          Leval();          Leval();
824          vs_top=sup;          vs_top=sup;
825          V128= vs_base[0];          V129= vs_base[0];
826          (V124->c.c_car)= list(2,/* INLINE-ARGS */V127,V128);          (V125->c.c_car)= list(2,/* INLINE-ARGS */V128,V129);
827          goto T273;          goto T274;
828          goto T275;          goto T276;
829  T275:;  T276:;
830          (V124->c.c_car)= (V126);}          (V125->c.c_car)= (V127);}
831          goto T273;          goto T274;
832  T273:;  T274:;
833          if((V125=MMcdr(V125))==Cnil){          if((V126=MMcdr(V126))==Cnil){
834          V121= base[3];          V122= base[3];
         goto T271;}  
         V124=MMcdr(V124)=MMcons(Cnil,Cnil);  
835          goto T272;}          goto T272;}
836          goto T271;          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
837  T271:;          goto T273;}
838          if(!((CMPcadr((V115)))==(VV[35]))){          goto T272;
839          goto T282;}  T272:;
840          V129= VV[36];          if(!((CMPcadr((V116)))==(VV[36]))){
841          goto T280;          goto T283;}
842          goto T282;          V130= VV[37];
843  T282:;          goto T281;
844          V129= VV[37];          goto T283;
845          goto T280;  T283:;
846  T280:;          V130= VV[38];
847          V130= make_cons((V121),Cnil);          goto T281;
848          V122= listA(3,V129,(V110),append((V111),/* INLINE-ARGS */V130));  T281:;
849          bds_bind(VV[38],Cnil);          V131= make_cons((V122),Cnil);
850            V123= listA(3,V130,(V111),append((V112),/* INLINE-ARGS */V131));
851            bds_bind(VV[39],Cnil);
852          base[5]= Cnil;          base[5]= Cnil;
853          base[6]= VV[39];          base[6]= VV[40];
854          base[7]= (V122);          base[7]= (V123);
855          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
856          Lformat();          Lformat();
857          vs_top=sup;          vs_top=sup;
# Line 861  T280:; Line 860  T280:;
860          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
861          Lintern();          Lintern();
862          vs_top=sup;          vs_top=sup;
863          V123= vs_base[0];{object V131;          V124= vs_base[0];{object V132;
864          V131= (VV[41]->s.s_dbind);          V132= (VV[42]->s.s_dbind);
865          V132= listA(4,VV[42],(V123),CMPcadr((V118)),CMPcddr((V118)));          V133= listA(4,VV[43],(V124),CMPcadr((V119)),CMPcddr((V119)));
866          V133= list(2,VV[1],(V121));          V134= list(2,VV[1],(V122));
867          V134= CMPcadr((V115));          V135= CMPcadr((V116));
868          V135= listA(4,VV[31],/* INLINE-ARGS */V134,list(2,VV[33],(V123)),CMPcdddr((V115)));          V136= listA(4,VV[32],/* INLINE-ARGS */V135,list(2,VV[34],(V124)),CMPcdddr((V116)));
869          {object V136 = list(4,VV[40],V131,/* INLINE-ARGS */V132,(VFUN_NARGS=7,(*(LnkLI368))((V110),(V111),/* INLINE-ARGS */V133,(V113),(V114),/* INLINE-ARGS */V135,(V116))));          {object V137 = list(4,VV[41],V132,/* INLINE-ARGS */V133,(VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V134,(V114),(V115),/* INLINE-ARGS */V136,(V117))));
870          VMR10(V136)}}}          VMR10(V137)}}}
871          goto T239;          goto T240;
872  T239:;  T240:;
873          V137= make_cons((V112),Cnil);          V138= make_cons((V113),Cnil);
874          V138= listA(3,VV[43],(V110),append((V111),/* INLINE-ARGS */V137));{object V139;          V139= listA(3,VV[7],(V111),append((V112),/* INLINE-ARGS */V138));{object V140;
875          V139= (VV[41]->s.s_dbind);          V140= (VV[42]->s.s_dbind);
876          {object V141;          {object V142;
877          object V142= (V112);          object V143= (V113);
878          if(V142==Cnil){          if(V143==Cnil){
879          V140= Cnil;          V141= Cnil;
880          goto T289;}          goto T290;}
881          base[0]=V141=MMcons(Cnil,Cnil);          base[0]=V142=MMcons(Cnil,Cnil);
         goto T290;  
 T290:;  
         {register object V143;  
         V143= (V142->c.c_car);  
         if(!(type_of((V143))==t_cons)){  
         goto T293;}  
         (V141->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V143))),CMPcadr((V143)));  
         goto T291;  
         goto T293;  
 T293:;  
         (V141->c.c_car)= list(2,VV[1],(V143));}  
882          goto T291;          goto T291;
883  T291:;  T291:;
884          if((V142=MMcdr(V142))==Cnil){          {register object V144;
885          V140= base[0];          V144= (V143->c.c_car);
886          goto T289;}          if(!(type_of((V144))==t_cons)){
887          V141=MMcdr(V141)=MMcons(Cnil,Cnil);          goto T294;}
888            (V142->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V144))),CMPcadr((V144)));
889            goto T292;
890            goto T294;
891    T294:;
892            (V142->c.c_car)= list(2,VV[1],(V144));}
893            goto T292;
894    T292:;
895            if((V143=MMcdr(V143))==Cnil){
896            V141= base[0];
897          goto T290;}          goto T290;}
898          goto T289;          V142=MMcdr(V142)=MMcons(Cnil,Cnil);
899  T289:;          goto T291;}
900          V144= make_cons(VV[44],V140);          goto T290;
901          V145= (VFUN_NARGS=7,(*(LnkLI368))((V110),(V111),/* INLINE-ARGS */V144,(V113),(V114),(V115),(V116)));  T290:;
902          {object V146 = (*(LnkLI349))(/* INLINE-ARGS */V138,V139,/* INLINE-ARGS */V145);          V145= make_cons(VV[44],V141);
903          VMR10(V146)}}}          V146= (VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V145,(V114),(V115),(V116),(V117)));
904            {object V147 = (*(LnkLI349))(/* INLINE-ARGS */V139,V140,/* INLINE-ARGS */V146);
905            VMR10(V147)}}}
906          va_end(ap);          va_end(ap);
907          base[0]=base[0];          base[0]=base[0];
908          return Cnil;}          return Cnil;}
909          }          }
910  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */
911    
912  static object LI13(object V152,object V151,object V150,object V149,object V148,object V147,object first,...)  static object LI13(object V153,object V152,object V151,object V150,object V149,object V148,object first,...)
913  {        {      
914          va_list ap;          va_list ap;
915          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
916          {object V153;          {object V154;
         object V154;  
917          object V155;          object V155;
918          object V156;          object V156;
919          object V157;          object V157;
920          object V158;          object V158;
921          object V159;          object V159;
922            object V160;
923          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
924          va_start(ap,first);          va_start(ap,first);
925          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
926          V153= V152;          V154= V153;
927          V154= V151;          V155= V152;
928          V155= V150;          V156= V151;
929          V156= V149;          V157= V150;
930          V157= V148;          V158= V149;
931          V158= V147;          V159= V148;
932          narg = narg - 6;          narg = narg - 6;
933          if (narg <= 0) goto T295;          if (narg <= 0) goto T296;
934          else {          else {
935          V159= first;}          V160= first;}
936          --narg; goto T296;          --narg; goto T297;
         goto T295;  
 T295:;  
         V159= Cnil;  
937          goto T296;          goto T296;
938  T296:;  T296:;
939          V160= list(2,VV[1],(V157));          V160= Cnil;
940          V161= list(2,VV[1],(V153));          goto T297;
941    T297:;
942            V161= list(2,VV[1],(V158));
943          V162= list(2,VV[1],(V154));          V162= list(2,VV[1],(V154));
944          V163= list(2,VV[1],(V156));          V163= list(2,VV[1],(V155));
945          {object V164 = list(8,VV[45],/* INLINE-ARGS */V160,/* INLINE-ARGS */V161,/* INLINE-ARGS */V162,(V155),/* INLINE-ARGS */V163,(V158),list(2,VV[1],(V159)));          V164= list(2,VV[1],(V157));
946          VMR11(V164)}          {object V165 = list(8,VV[45],/* INLINE-ARGS */V161,/* INLINE-ARGS */V162,/* INLINE-ARGS */V163,(V156),/* INLINE-ARGS */V164,(V159),list(2,VV[1],(V160)));
947            VMR11(V165)}
948          va_end(ap);          va_end(ap);
949          return Cnil;}          return Cnil;}
950          }          }
# Line 957  static void L14() Line 956  static void L14()
956          vs_check;          vs_check;
957          check_arg(2);          check_arg(2);
958          vs_top=sup;          vs_top=sup;
959          {object V165=base[0]->c.c_cdr;          {object V166=base[0]->c.c_cdr;
960          if(endp(V165))invalid_macro_call();          if(endp(V166))invalid_macro_call();
961          base[2]= (V165->c.c_car);          base[2]= (V166->c.c_car);
962          V165=V165->c.c_cdr;          V166=V166->c.c_cdr;
963          if(!endp(V165))invalid_macro_call();}          if(!endp(V166))invalid_macro_call();}
964          base[3]= base[2];          base[3]= base[2];
965          base[4]= base[1];          base[4]= base[1];
966          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 974  static void L15() Line 973  static void L15()
973  {register object *base=vs_base;  {register object *base=vs_base;
974          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
975          vs_check;          vs_check;
976          {object V166;          {object V167;
977          object V167;          object V168;
978          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
979          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
980          V166=(base[0]);          V167=(base[0]);
981          vs_base=vs_base+1;          vs_base=vs_base+1;
982          if(vs_base>=vs_top){vs_top=sup;goto T300;}          if(vs_base>=vs_top){vs_top=sup;goto T301;}
983          V167=(base[1]);          V168=(base[1]);
984          vs_top=sup;          vs_top=sup;
985          goto T301;          goto T302;
         goto T300;  
 T300:;  
         V167= Cnil;  
986          goto T301;          goto T301;
987  T301:;  T301:;
988          {object V168;          V168= Cnil;
989          object V169;          goto T302;
990    T302:;
991            {object V169;
992            object V170;
993          base[2]= Cnil;          base[2]= Cnil;
994          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
995          (void) (*Lnk353)();          (void) (*Lnk353)();
         if(vs_base>=vs_top){vs_top=sup;goto T305;}  
         V168= vs_base[0];  
         vs_base++;  
996          if(vs_base>=vs_top){vs_top=sup;goto T306;}          if(vs_base>=vs_top){vs_top=sup;goto T306;}
997          V169= vs_base[0];          V169= vs_base[0];
998            vs_base++;
999            if(vs_base>=vs_top){vs_top=sup;goto T307;}
1000            V170= vs_base[0];
1001          vs_top=sup;          vs_top=sup;
1002          goto T307;          goto T308;
         goto T305;  
 T305:;  
         V168= Cnil;  
1003          goto T306;          goto T306;
1004  T306:;  T306:;
1005          V169= Cnil;          V169= Cnil;
1006          goto T307;          goto T307;
1007  T307:;  T307:;
1008          {object V170;          V170= Cnil;
1009          object V171;          goto T308;
1010          base[2]= (V168);  T308:;
1011          base[3]= (V169);          {object V171;
1012          base[4]= (V166);          object V172;
1013          base[5]= (V167);          base[2]= (V169);
1014            base[3]= (V170);
1015            base[4]= (V167);
1016            base[5]= (V168);
1017          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1018          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk360)(Lclptr360);
         if(vs_base>=vs_top){vs_top=sup;goto T313;}  
         V170= vs_base[0];  
         vs_base++;  
1019          if(vs_base>=vs_top){vs_top=sup;goto T314;}          if(vs_base>=vs_top){vs_top=sup;goto T314;}
1020          V171= vs_base[0];          V171= vs_base[0];
1021            vs_base++;
1022            if(vs_base>=vs_top){vs_top=sup;goto T315;}
1023            V172= vs_base[0];
1024          vs_top=sup;          vs_top=sup;
1025          goto T315;          goto T316;
         goto T313;  
 T313:;  
         V170= Cnil;  
1026          goto T314;          goto T314;
1027  T314:;  T314:;
1028          V171= Cnil;          V171= Cnil;
1029          goto T315;          goto T315;
1030  T315:;  T315:;
1031          base[2]= (V168);          V172= Cnil;
1032          base[3]= (V169);          goto T316;
1033          base[4]= (V170);  T316:;
1034          base[5]= (V171);          base[2]= (V169);
1035          base[6]= (V167);          base[3]= (V170);
1036            base[4]= (V171);
1037            base[5]= (V172);
1038            base[6]= (V168);
1039          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1040          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk361)(Lclptr361);
1041          return;}}          return;}}
# Line 1048  static void L16() Line 1047  static void L16()
1047  {register object *base=vs_base;  {register object *base=vs_base;
1048          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
1049          vs_check;          vs_check;
1050          {object V172;          {object V173;
         object V173;  
1051          object V174;          object V174;
1052          object V175;          object V175;
1053          object V176;          object V176;
1054            object V177;
1055          check_arg(5);          check_arg(5);
1056          V172=(base[0]);          V173=(base[0]);
1057          V173=(base[1]);          V174=(base[1]);
1058          V174=(base[2]);          V175=(base[2]);
1059          V175=(base[3]);          V176=(base[3]);
1060          V176=(base[4]);          V177=(base[4]);
1061          vs_top=sup;          vs_top=sup;
1062          goto TTL;          goto TTL;
1063  TTL:;  TTL:;
1064          {object V177;          {object V178;
         object V178;  
1065          object V179;          object V179;
1066          base[5]= (V174);          object V180;
1067            base[5]= (V175);
1068          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1069          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T323;}  
         V177= vs_base[0];  
         vs_base++;  
1070          if(vs_base>=vs_top){vs_top=sup;goto T324;}          if(vs_base>=vs_top){vs_top=sup;goto T324;}
1071          V178= vs_base[0];          V178= vs_base[0];
1072          vs_base++;          vs_base++;
1073          if(vs_base>=vs_top){vs_top=sup;goto T325;}          if(vs_base>=vs_top){vs_top=sup;goto T325;}
1074          V179= vs_base[0];          V179= vs_base[0];
1075            vs_base++;
1076            if(vs_base>=vs_top){vs_top=sup;goto T326;}
1077            V180= vs_base[0];
1078          vs_top=sup;          vs_top=sup;
1079          goto T326;          goto T327;
         goto T323;  
 T323:;  
         V177= Cnil;  
1080          goto T324;          goto T324;
1081  T324:;  T324:;
1082          V178= Cnil;          V178= Cnil;
# Line 1089  T325:; Line 1085  T325:;
1085          V179= Cnil;          V179= Cnil;
1086          goto T326;          goto T326;
1087  T326:;  T326:;
1088          {object V180;          V180= Cnil;
1089          object V181;          goto T327;
1090    T327:;
1091            {object V181;
1092          object V182;          object V182;
1093          base[5]= (V175);          object V183;
1094          base[6]= (V176);          base[5]= (V176);
1095            base[6]= (V177);
1096          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1097          (void) (*Lnk371)();          (void) (*Lnk371)();
         if(vs_base>=vs_top){vs_top=sup;goto T330;}  
         V180= vs_base[0];  
         vs_base++;  
1098          if(vs_base>=vs_top){vs_top=sup;goto T331;}          if(vs_base>=vs_top){vs_top=sup;goto T331;}
1099          V181= vs_base[0];          V181= vs_base[0];
1100          vs_base++;          vs_base++;
1101          if(vs_base>=vs_top){vs_top=sup;goto T332;}          if(vs_base>=vs_top){vs_top=sup;goto T332;}
1102          V182= vs_base[0];          V182= vs_base[0];
1103            vs_base++;
1104            if(vs_base>=vs_top){vs_top=sup;goto T333;}
1105            V183= vs_base[0];
1106          vs_top=sup;          vs_top=sup;
1107          goto T333;          goto T334;
         goto T330;  
 T330:;  
         V180= Cnil;  
1108          goto T331;          goto T331;
1109  T331:;  T331:;
1110          V181= Cnil;          V181= Cnil;
# Line 1117  T332:; Line 1113  T332:;
1113          V182= Cnil;          V182= Cnil;
1114          goto T333;          goto T333;
1115  T333:;  T333:;
         if(((V180))==Cnil){  
         goto T337;}  
         V183= make_cons((V180),Cnil);  
         goto T335;  
         goto T337;  
 T337:;  
1116          V183= Cnil;          V183= Cnil;
1117          goto T335;          goto T334;
1118  T335:;  T334:;
1119          V184= list(2,VV[46],list(2,VV[47],list(3,(V172),(V173),(V179))));          if(((V181))==Cnil){
1120          V185= list(2,VV[46],make_cons(VV[48],(V174)));          goto T338;}
1121          V186= listA(3,/* INLINE-ARGS */V184,/* INLINE-ARGS */V185,append((V181),(V182)));          V184= make_cons((V181),Cnil);
1122          base[5]= listA(3,VV[34],(V178),append(V183,/* INLINE-ARGS */V186));          goto T336;
1123          base[6]= (V178);          goto T338;
1124          base[7]= (V179);  T338:;
1125            V184= Cnil;
1126            goto T336;
1127    T336:;
1128            V185= list(2,VV[46],list(2,VV[47],list(3,(V173),(V174),(V180))));
1129            V186= list(2,VV[46],make_cons(VV[48],(V175)));
1130            V187= listA(3,/* INLINE-ARGS */V185,/* INLINE-ARGS */V186,append((V182),(V183)));
1131            base[5]= listA(3,VV[35],(V179),append(V184,/* INLINE-ARGS */V187));
1132            base[6]= (V179);
1133            base[7]= (V180);
1134          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1135          return;}}          return;}}
1136          }          }
1137  }  }
1138  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */
1139    
1140  static object LI17(V192,V193,V194,V195,V196)  static object LI17(V193,V194,V195,V196,V197)
1141    
1142  object V192;object V193;register object V194;object V195;object V196;  object V193;object V194;register object V195;object V196;object V197;
1143  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1144          goto TTL;          goto TTL;
1145  TTL:;  TTL:;
1146          if(!(type_of((V194))==t_cons)){          if(!(type_of((V195))==t_cons)){
1147            goto T343;}
1148            if((CMPcar((V195)))==(VV[35])){
1149          goto T342;}          goto T342;}
1150          if((CMPcar((V194)))==(VV[34])){          goto T343;
1151          goto T341;}  T343:;
         goto T342;  
 T342:;  
1152          base[0]= VV[49];          base[0]= VV[49];
1153          base[1]= (V194);          base[1]= (V195);
1154          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1155          Lerror();          Lerror();
1156          vs_top=sup;          vs_top=sup;
1157          goto T341;          goto T342;
1158  T341:;  T342:;
1159          {object V197 = (*(LnkLI372))((V194),(V195),(V196));          {object V198 = (*(LnkLI372))((V195),(V196),(V197));
1160          VMR15(V197)}          VMR15(V198)}
1161          base[0]=base[0];          base[0]=base[0];
1162          return Cnil;          return Cnil;
1163  }  }
# Line 1168  static void L18() Line 1167  static void L18()
1167  {register object *base=vs_base;  {register object *base=vs_base;
1168          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1169          vs_check;          vs_check;
1170          {object V198;          {object V199;
         object V199;  
1171          object V200;          object V200;
1172          object V201;          object V201;
1173            object V202;
1174          check_arg(4);          check_arg(4);
1175          V198=(base[0]);          V199=(base[0]);
1176          V199=(base[1]);          V200=(base[1]);
1177          V200=(base[2]);          V201=(base[2]);
1178          V201=(base[3]);          V202=(base[3]);
1179          vs_top=sup;          vs_top=sup;
1180          goto TTL;          goto TTL;
1181  TTL:;  TTL:;
1182          base[4]= (V200);          base[4]= (V201);
1183          base[5]= (V201);          base[5]= (V202);
1184          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1185          (void) (*Lnk373)();          (void) (*Lnk373)();
1186          return;          return;
# Line 1193  static void L19() Line 1192  static void L19()
1192  {register object *base=vs_base;  {register object *base=vs_base;
1193          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1194          vs_check;          vs_check;
1195          {register object V202;          {register object V203;
1196          object V203;          object V204;
1197          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1198          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
1199          V202=(base[0]);          V203=(base[0]);
1200          vs_base=vs_base+1;          vs_base=vs_base+1;
1201          if(vs_base>=vs_top){vs_top=sup;goto T350;}          if(vs_base>=vs_top){vs_top=sup;goto T351;}
1202          V203=(base[1]);          V204=(base[1]);
1203          vs_top=sup;          vs_top=sup;
1204          goto T351;          goto T352;
         goto T350;  
 T350:;  
         V203= Cnil;  
1205          goto T351;          goto T351;
1206  T351:;  T351:;
1207          if(!(type_of((V202))==t_cons)){          V204= Cnil;
1208            goto T352;
1209    T352:;
1210            if(!(type_of((V203))==t_cons)){
1211            goto T355;}
1212            if((CMPcar((V203)))==(VV[35])){
1213          goto T354;}          goto T354;}
1214          if((CMPcar((V202)))==(VV[34])){          goto T355;
1215          goto T353;}  T355:;
         goto T354;  
 T354:;  
1216          base[2]= VV[50];          base[2]= VV[50];
1217          base[3]= (V202);          base[3]= (V203);
1218          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1219          Lerror();          Lerror();
1220          vs_top=sup;          vs_top=sup;
1221          goto T353;          goto T354;
1222  T353:;  T354:;
1223          {object V204;          {object V205;
         object V205;  
1224          object V206;          object V206;
1225          base[2]= CMPcddr((V202));          object V207;
1226          base[3]= (V203);          base[2]= CMPcddr((V203));
1227            base[3]= (V204);
1228          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1229          (void) (*Lnk371)();          (void) (*Lnk371)();
         if(vs_base>=vs_top){vs_top=sup;goto T363;}  
         V204= vs_base[0];  
         vs_base++;  
1230          if(vs_base>=vs_top){vs_top=sup;goto T364;}          if(vs_base>=vs_top){vs_top=sup;goto T364;}
1231          V205= vs_base[0];          V205= vs_base[0];
1232          vs_base++;          vs_base++;
1233          if(vs_base>=vs_top){vs_top=sup;goto T365;}          if(vs_base>=vs_top){vs_top=sup;goto T365;}
1234          V206= vs_base[0];          V206= vs_base[0];
1235            vs_base++;
1236            if(vs_base>=vs_top){vs_top=sup;goto T366;}
1237            V207= vs_base[0];
1238          vs_top=sup;          vs_top=sup;
1239          goto T366;          goto T367;
         goto T363;  
 T363:;  
         V204= Cnil;  
1240          goto T364;          goto T364;
1241  T364:;  T364:;
1242          V205= Cnil;          V205= Cnil;
# Line 1249  T365:; Line 1245  T365:;
1245          V206= Cnil;          V206= Cnil;
1246          goto T366;          goto T366;
1247  T366:;  T366:;
1248          {object V207;          V207= Cnil;
1249          object V208;          goto T367;
1250    T367:;
1251            {object V208;
1252          object V209;          object V209;
1253          object V210;          object V210;
1254          object V211;          object V211;
1255          V207= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V205)));          object V212;
1256          V208= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V205)));          V208= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V206)));
1257          if(!(type_of((V207))==t_cons)){          V209= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V206)));
1258          goto T371;}          if(!(type_of((V208))==t_cons)){
1259          V209= CMPcar((V207));          goto T372;}
1260          goto T369;          V210= CMPcar((V208));
1261          goto T371;          goto T370;
1262  T371:;          goto T372;
1263          V209= Cnil;  T372:;
         goto T369;  
 T369:;  
         if(((V209))==Cnil){  
         goto T375;}  
         V210= CMPcar((V209));  
         goto T373;  
         goto T375;  
 T375:;  
1264          V210= Cnil;          V210= Cnil;
1265          goto T373;          goto T370;
1266  T373:;  T370:;
1267          if((V208)!=Cnil){          if(((V210))==Cnil){
1268          V211= (V208);          goto T376;}
1269          goto T377;}          V211= CMPcar((V210));
1270          V211= CMPcadr((V202));          goto T374;
1271          goto T377;          goto T376;
1272  T377:;  T376:;
1273          {object V212;          V211= Cnil;
1274          register object V213;          goto T374;
1275          object V214;  T374:;
1276          base[7]= (V211);          if((V209)!=Cnil){
1277            V212= (V209);
1278            goto T378;}
1279            V212= CMPcadr((V203));
1280            goto T378;
1281    T378:;
1282            {object V213;
1283            register object V214;
1284            object V215;
1285            base[7]= (V212);
1286          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1287          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T380;}  
         V212= vs_base[0];  
         vs_base++;  
1288          if(vs_base>=vs_top){vs_top=sup;goto T381;}          if(vs_base>=vs_top){vs_top=sup;goto T381;}
1289          V213= vs_base[0];          V213= vs_base[0];
1290          vs_base++;          vs_base++;
1291          if(vs_base>=vs_top){vs_top=sup;goto T382;}          if(vs_base>=vs_top){vs_top=sup;goto T382;}
1292          V214= vs_base[0];          V214= vs_base[0];
1293            vs_base++;
1294            if(vs_base>=vs_top){vs_top=sup;goto T383;}
1295            V215= vs_base[0];
1296          vs_top=sup;          vs_top=sup;
1297          goto T383;          goto T384;
         goto T380;  
 T380:;  
         V212= Cnil;  
1298          goto T381;          goto T381;
1299  T381:;  T381:;
1300          V213= Cnil;          V213= Cnil;
# Line 1307  T382:; Line 1303  T382:;
1303          V214= Cnil;          V214= Cnil;
1304          goto T383;          goto T383;
1305  T383:;  T383:;
1306          {object V215;          V215= Cnil;
1307          object V216;          goto T384;
1308    T384:;
1309            {object V216;
1310          object V217;          object V217;
1311          object V218;          object V218;
1312          object V219;          object V219;
1313          object V220;          object V220;
1314          object V221;          object V221;
1315          register object V222;          object V222;
1316          register object V223;          register object V223;
1317          object V224;          register object V224;
1318          {object V225;          object V225;
1319          object V226= (V212);          {object V226;
1320          object V227= (V214);          object V227= (V213);
1321          if(V226==Cnil||V227==Cnil){          object V228= (V215);
1322          V215= Cnil;          if(V227==Cnil||V228==Cnil){
1323          goto T384;}          V216= Cnil;
1324          base[17]=V225=MMcons(Cnil,Cnil);          goto T385;}
1325            base[17]=V226=MMcons(Cnil,Cnil);
1326            goto T386;
1327    T386:;
1328            (V226->c.c_car)= (V227->c.c_car);
1329            if((V227=MMcdr(V227))==Cnil||(V228=MMcdr(V228))==Cnil){
1330            V216= base[17];
1331            goto T385;}
1332            V226=MMcdr(V226)=MMcons(Cnil,Cnil);
1333            goto T386;}
1334          goto T385;          goto T385;
1335  T385:;  T385:;
1336          (V225->c.c_car)= (V226->c.c_car);          {object V231;
1337          if((V226=MMcdr(V226))==Cnil||(V227=MMcdr(V227))==Cnil){          object V232= (V216);
1338          V215= base[17];          if(V232==Cnil){
1339          goto T384;}          V217= Cnil;
1340          V225=MMcdr(V225)=MMcons(Cnil,Cnil);          goto T388;}
1341          goto T385;}          base[17]=V231=MMcons(Cnil,Cnil);
1342          goto T384;          goto T389;
1343  T384:;  T389:;
1344          {object V230;          (V231->c.c_car)= make_cons((V232->c.c_car),Cnil);
1345          object V231= (V215);          if((V232=MMcdr(V232))==Cnil){
1346          if(V231==Cnil){          V217= base[17];
1347          V216= Cnil;          goto T388;}
1348          goto T387;}          V231=MMcdr(V231)=MMcons(Cnil,Cnil);
1349          base[17]=V230=MMcons(Cnil,Cnil);          goto T389;}
1350          goto T388;          goto T388;
1351  T388:;  T388:;
1352          (V230->c.c_car)= make_cons((V231->c.c_car),Cnil);          V218= make_cons(Cnil,Cnil);
1353          if((V231=MMcdr(V231))==Cnil){          V219= (*(LnkLI375))((V212),(V216),(V206),(V210),(V215));
         V216= base[17];  
         goto T387;}  
         V230=MMcdr(V230)=MMcons(Cnil,Cnil);  
         goto T388;}  
         goto T387;  
 T387:;  
         V217= make_cons(Cnil,Cnil);  
         V218= (*(LnkLI375))((V211),(V215),(V205),(V209),(V214));  
1354          base[17]= Cnil;          base[17]= Cnil;
1355          {object V233;          {object V234;
1356          object V234= (V212);          object V235= (V213);
1357          object V235= (V214);          object V236= (V215);
1358          if(V234==Cnil||V235==Cnil){          if(V235==Cnil||V236==Cnil){
1359          base[18]= Cnil;          base[18]= Cnil;
1360          goto T395;}          goto T396;}
1361          base[19]=V233=MMcons(Cnil,Cnil);          base[19]=V234=MMcons(Cnil,Cnil);
         goto T396;  
 T396:;  
         if(type_of((V235->c.c_car))==t_symbol){  
         goto T398;}  
         (V233->c.c_car)= Cnil;  
1362          goto T397;          goto T397;
1363    T397:;
1364            if(type_of((V236->c.c_car))==t_symbol){
1365            goto T399;}
1366            (V234->c.c_car)= Cnil;
1367            goto T398;
1368            goto T399;
1369    T399:;
1370            if(((((V236->c.c_car))==(Ct)?Ct:Cnil))==Cnil){
1371            goto T401;}
1372            (V234->c.c_car)= Cnil;
1373            goto T398;
1374            goto T401;
1375    T401:;
1376            (V234->c.c_car)= list(3,VV[51],(V235->c.c_car),(V236->c.c_car));
1377          goto T398;          goto T398;
1378  T398:;  T398:;
1379          if(((((V235->c.c_car))==(Ct)?Ct:Cnil))==Cnil){          if((V235=MMcdr(V235))==Cnil||(V236=MMcdr(V236))==Cnil){
         goto T400;}  
         (V233->c.c_car)= Cnil;  
         goto T397;  
         goto T400;  
 T400:;  
         (V233->c.c_car)= list(3,VV[51],(V234->c.c_car),(V235->c.c_car));  
         goto T397;  
 T397:;  
         if((V234=MMcdr(V234))==Cnil||(V235=MMcdr(V235))==Cnil){  
1380          base[18]= base[19];          base[18]= base[19];
         goto T395;}  
         V233=MMcdr(V233)=MMcons(Cnil,Cnil);  
1381          goto T396;}          goto T396;}
1382          goto T395;          V234=MMcdr(V234)=MMcons(Cnil,Cnil);
1383  T395:;          goto T397;}
1384            goto T396;
1385    T396:;
1386          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1387          (void) (*Lnk376)();          (void) (*Lnk376)();
1388          vs_top=sup;          vs_top=sup;
1389          V232= vs_base[0];          V233= vs_base[0];
1390          V219= make_cons(VV[46],V232);          V220= make_cons(VV[46],V233);
1391          V238= make_cons(VV[9],(V218));          V239= make_cons(VV[10],(V219));
1392          if(!(type_of((V210))==t_cons||((V210))==Cnil)){          if(!(type_of((V211))==t_cons||((V211))==Cnil)){
1393          goto T405;}          goto T406;}
1394          V239= CMPcadr((V210));          V240= CMPcadr((V211));
1395          goto T403;          goto T404;
1396          goto T405;          goto T406;
1397  T405:;  T406:;
1398          V239= (V210);          V240= (V211);
1399          goto T403;          goto T404;
1400  T403:;  T404:;
1401          V240= list(2,/* INLINE-ARGS */V238,listA(3,VV[52],V239,(V206)));          V241= list(2,/* INLINE-ARGS */V239,listA(3,VV[52],V240,(V207)));
1402          V220= listA(4,VV[34],(V213),(V219),append((V205),/* INLINE-ARGS */V240));          V221= listA(4,VV[35],(V214),(V220),append((V206),/* INLINE-ARGS */V241));
1403          if((CMPcdr((V206)))==Cnil){          if((CMPcdr((V207)))==Cnil){
1404          goto T408;}          goto T409;}
1405          V221= Cnil;          V222= Cnil;
         goto T407;  
1406          goto T408;          goto T408;
1407  T408:;          goto T409;
1408          base[17]= CMPcar((V206));  T409:;
1409            base[17]= CMPcar((V207));
1410          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1411          Lconstantp();          Lconstantp();
1412          vs_top=sup;          vs_top=sup;
1413          V221= vs_base[0];          V222= vs_base[0];
1414          goto T407;          goto T408;
1415  T407:;  T408:;
1416          if((V221)==Cnil){          if((V222)==Cnil){
1417          V222= Cnil;          V223= Cnil;
1418          goto T411;}          goto T412;}
1419          base[17]= CMPcar((V206));          base[17]= CMPcar((V207));
1420          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1421          Leval();          Leval();
1422          vs_top=sup;          vs_top=sup;
1423          V222= vs_base[0];          V223= vs_base[0];
1424          goto T411;          goto T412;
1425  T411:;  T412:;
1426          if(((V221))==Cnil){          if(((V222))==Cnil){
1427          goto T415;}          goto T416;}
1428          base[17]= (V222);          base[17]= (V223);
1429          base[18]= VV[53];          base[18]= VV[53];
1430          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1431          (void) (*Lnk122)();          (void) (*Lnk122)();
1432          vs_top=sup;          vs_top=sup;
1433          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
         goto T414;}  
         if(!(type_of((V222))==t_symbol)){  
1434          goto T415;}          goto T415;}
1435          base[17]= (V222);          if(!(type_of((V223))==t_symbol)){
1436            goto T416;}
1437            base[17]= (V223);
1438          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1439          Lsymbol_package();          Lsymbol_package();
1440          vs_top=sup;          vs_top=sup;
1441          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1442          goto T415;}          goto T416;}
         goto T414;  
 T414:;  
         V223= list(2,VV[54],(V222));  
         goto T413;  
1443          goto T415;          goto T415;
1444  T415:;  T415:;
1445          V223= Cnil;          V224= list(2,VV[54],(V223));
1446          goto T413;          goto T414;
1447  T413:;          goto T416;
1448          {register object V241;  T416:;
         register object V242;  
         V241= (V213);  
         V242= CMPcar((V241));  
         goto T430;  
 T430:;  
         if(!(((V241))==Cnil)){  
         goto T431;}  
1449          V224= Cnil;          V224= Cnil;
1450          goto T426;          goto T414;
1451    T414:;
1452            {register object V242;
1453            register object V243;
1454            V242= (V214);
1455            V243= CMPcar((V242));
1456          goto T431;          goto T431;
1457  T431:;  T431:;
1458          {register object x= (V242),V243= VV[55];          if(!(((V242))==Cnil)){
1459          while(V243!=Cnil)          goto T432;}
1460          if(x==(V243->c.c_car)){          V225= Cnil;
1461          goto T438;          goto T427;
1462          }else V243=V243->c.c_cdr;          goto T432;
1463          goto T437;}  T432:;
1464            {register object x= (V243),V244= VV[55];
1465            while(V244!=Cnil)
1466            if(x==(V244->c.c_car)){
1467            goto T439;
1468            }else V244=V244->c.c_cdr;
1469            goto T438;}
1470            goto T439;
1471    T439:;
1472            V225= Ct;
1473            goto T427;
1474          goto T438;          goto T438;
1475  T438:;  T438:;
1476          V224= Ct;          if(!(((V243))==(VV[56]))){
1477          goto T426;          goto T436;}
1478          goto T437;          V225= Cnil;
1479  T437:;          goto T427;
1480          if(!(((V242))==(VV[56]))){          goto T436;
1481          goto T435;}  T436:;
1482          V224= Cnil;          V242= CMPcdr((V242));
1483          goto T426;          V243= CMPcar((V242));
1484          goto T435;          goto T431;}
1485  T435:;          goto T427;
1486          V241= CMPcdr((V241));  T427:;
1487          V242= CMPcar((V241));          {object V245;
         goto T430;}  
         goto T426;  
 T426:;  
         {object V244;  
         object V245;  
1488          object V246;          object V246;
1489          object V247;          object V247;
1490          base[17]= (V220);          object V248;
1491          base[18]= (V215);          base[17]= (V221);
1492          base[19]= (V203);          base[18]= (V216);
1493          base[20]= (V216);          base[19]= (V204);
1494          base[21]= (V217);          base[20]= (V217);
1495            base[21]= (V218);
1496          vs_top=(vs_base=base+17)+5;          vs_top=(vs_base=base+17)+5;
1497          (void) (*Lnk377)();          (void) (*Lnk377)();
         if(vs_base>=vs_top){vs_top=sup;goto T452;}  
         V244= vs_base[0];  
         vs_base++;  
1498          if(vs_base>=vs_top){vs_top=sup;goto T453;}          if(vs_base>=vs_top){vs_top=sup;goto T453;}
1499          V245= vs_base[0];          V245= vs_base[0];
1500          vs_base++;          vs_base++;
# Line 1507  T426:; Line 1503  T426:;
1503          vs_base++;          vs_base++;
1504          if(vs_base>=vs_top){vs_top=sup;goto T455;}          if(vs_base>=vs_top){vs_top=sup;goto T455;}
1505          V247= vs_base[0];          V247= vs_base[0];
1506            vs_base++;
1507            if(vs_base>=vs_top){vs_top=sup;goto T456;}
1508            V248= vs_base[0];
1509          vs_top=sup;          vs_top=sup;
1510          goto T456;          goto T457;
         goto T452;  
 T452:;  
         V244= Cnil;  
1511          goto T453;          goto T453;
1512  T453:;  T453:;
1513          V245= Cnil;          V245= Cnil;
# Line 1523  T455:; Line 1519  T455:;
1519          V247= Cnil;          V247= Cnil;
1520          goto T456;          goto T456;
1521  T456:;  T456:;
1522          {object V248;          V248= Cnil;
1523          object V249;          goto T457;
1524    T457:;
1525            {object V249;
1526          object V250;          object V250;
1527          base[17]= CMPcddr((V244));          object V251;
1528            base[17]= CMPcddr((V245));
1529          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1530          (void) (*Lnk371)();          (void) (*Lnk371)();
         if(vs_base>=vs_top){vs_top=sup;goto T459;}  
         V248= vs_base[0];  
         vs_base++;  
1531          if(vs_base>=vs_top){vs_top=sup;goto T460;}          if(vs_base>=vs_top){vs_top=sup;goto T460;}
1532          V249= vs_base[0];          V249= vs_base[0];
1533          vs_base++;          vs_base++;
1534          if(vs_base>=vs_top){vs_top=sup;goto T461;}          if(vs_base>=vs_top){vs_top=sup;goto T461;}
1535          V250= vs_base[0];          V250= vs_base[0];
1536            vs_base++;
1537            if(vs_base>=vs_top){vs_top=sup;goto T462;}
1538            V251= vs_base[0];
1539          vs_top=sup;          vs_top=sup;
1540          goto T462;          goto T463;
         goto T459;  
 T459:;  
         V248= Cnil;  
1541          goto T460;          goto T460;
1542  T460:;  T460:;
1543          V249= Cnil;          V249= Cnil;
# Line 1550  T461:; Line 1546  T461:;
1546          V250= Cnil;          V250= Cnil;
1547          goto T462;          goto T462;
1548  T462:;  T462:;
1549          if(((V247))!=Cnil){          V251= Cnil;
1550            goto T463;
1551    T463:;
1552            if(((V248))!=Cnil){
1553            goto T465;}
1554            if(((V246))==Cnil){
1555          goto T464;}          goto T464;}
1556          if(((V245))==Cnil){          goto T465;
1557          goto T463;}  T465:;
1558            V224= listA(3,VV[57],Ct,(V224));
1559          goto T464;          goto T464;
1560  T464:;  T464:;
         V223= listA(3,VV[57],Ct,(V223));  
         goto T463;  
 T463:;  
1561          base[17]= (VV[378]->s.s_gfdef);          base[17]= (VV[378]->s.s_gfdef);
1562          base[18]= (V216);          base[18]= (V217);
1563          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1564          (void) (*Lnk379)();          (void) (*Lnk379)();
1565          vs_top=sup;          vs_top=sup;
1566          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1567          goto T469;}          goto T470;}
1568          {object V251;          {object V252;
1569          object V252;          object V253;
1570          base[17]= (V216);          base[17]= (V217);
1571          base[18]= (V217);          base[18]= (V218);
1572          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1573          (void) (*Lnk380)();          (void) (*Lnk380)();
         if(vs_base>=vs_top){vs_top=sup;goto T477;}  
         V251= vs_base[0];  
         vs_base++;  
1574          if(vs_base>=vs_top){vs_top=sup;goto T478;}          if(vs_base>=vs_top){vs_top=sup;goto T478;}
1575          V252= vs_base[0];          V252= vs_base[0];
1576            vs_base++;
1577            if(vs_base>=vs_top){vs_top=sup;goto T479;}
1578            V253= vs_base[0];
1579          vs_top=sup;          vs_top=sup;
1580          goto T479;          goto T480;
         goto T477;  
 T477:;  
         V251= Cnil;  
1581          goto T478;          goto T478;
1582  T478:;  T478:;
1583          V252= Cnil;          V252= Cnil;
1584          goto T479;          goto T479;
1585  T479:;  T479:;
1586          {object V253;          V253= Cnil;
1587            goto T480;
1588    T480:;
1589            {object V254;
1590          base[17]= VV[58];          base[17]= VV[58];
1591          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1592          Lmake_symbol();          Lmake_symbol();
1593          vs_top=sup;          vs_top=sup;
1594          V253= vs_base[0];          V254= vs_base[0];
         if(((V251))==Cnil){  
         goto T486;}  
         base[17]= list(2,VV[59],(V251));  
         goto T484;  
         goto T486;  
 T486:;  
         base[17]= Cnil;  
         goto T484;  
 T484:;  
1595          if(((V252))==Cnil){          if(((V252))==Cnil){
1596          goto T490;}          goto T487;}
1597          base[18]= list(2,VV[60],(V252));          base[17]= list(2,VV[59],(V252));
1598          goto T488;          goto T485;
1599          goto T490;          goto T487;
1600  T490:;  T487:;
1601            base[17]= Cnil;
1602            goto T485;
1603    T485:;
1604            if(((V253))==Cnil){
1605            goto T491;}
1606            base[18]= list(2,VV[60],(V253));
1607            goto T489;
1608            goto T491;
1609    T491:;
1610          base[18]= Cnil;          base[18]= Cnil;
1611          goto T488;          goto T489;
1612  T488:;  T489:;
1613          base[19]= listA(3,VV[28],(V253),(V223));          base[19]= listA(3,VV[29],(V254),(V224));
1614          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1615          Lappend();          Lappend();
1616          vs_top=sup;          vs_top=sup;
1617          V223= vs_base[0];          V224= vs_base[0];
1618          V254= listA(3,VV[61],list(3,(V215),(V251),(V253)),(V250));          V255= listA(3,VV[61],list(3,(V216),(V252),(V254)),(V251));
1619          V250= make_cons(/* INLINE-ARGS */V254,Cnil);}}          V251= make_cons(/* INLINE-ARGS */V255,Cnil);}}
1620          goto T469;          goto T470;
1621  T469:;  T470:;
1622          {register object x= VV[62],V255= (V213);          {register object x= VV[62],V256= (V214);
         while(V255!=Cnil)  
         if(x==(V255->c.c_car)){  
         goto T497;  
         }else V255=V255->c.c_cdr;  
         goto T494;}  
         goto T497;  
 T497:;  
         {register object x= VV[63],V256= (V213);  
1623          while(V256!=Cnil)          while(V256!=Cnil)
1624          if(x==(V256->c.c_car)){          if(x==(V256->c.c_car)){
1625          goto T494;          goto T498;
1626          }else V256=V256->c.c_cdr;}          }else V256=V256->c.c_cdr;
1627          {object V257;          goto T495;}
1628          {register object x= VV[56],V258= (V213);          goto T498;
1629          while(V258!=Cnil)  T498:;
1630          if(x==(V258->c.c_car)){          {register object x= VV[63],V257= (V214);
1631          V257= V258;          while(V257!=Cnil)
1632          goto T499;          if(x==(V257->c.c_car)){
1633          }else V258=V258->c.c_cdr;          goto T495;
1634          V257= Cnil;}          }else V257=V257->c.c_cdr;}
1635          goto T499;          {object V258;
1636  T499:;          {register object x= VV[56],V259= (V214);
1637          base[18]= (V213);          while(V259!=Cnil)
1638          base[19]= (V257);          if(x==(V259->c.c_car)){
1639            V258= V259;
1640            goto T500;
1641            }else V259=V259->c.c_cdr;
1642            V258= Cnil;}
1643            goto T500;
1644    T500:;
1645            base[18]= (V214);
1646            base[19]= (V258);
1647          vs_top=(vs_base=base+18)+2;          vs_top=(vs_base=base+18)+2;
1648          Lldiff();          Lldiff();
1649          vs_top=sup;          vs_top=sup;
1650          base[17]= vs_base[0];          base[17]= vs_base[0];
1651          base[18]= make_cons(VV[63],Cnil);          base[18]= make_cons(VV[63],Cnil);
1652          base[19]= (V257);          base[19]= (V258);
1653          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1654          Lnconc();          Lnconc();
1655          vs_top=sup;          vs_top=sup;
1656          V213= vs_base[0];}          V214= vs_base[0];}
1657          goto T494;          goto T495;
1658  T494:;  T495:;
1659          base[18]= (V213);          base[18]= (V214);
1660          base[19]= VV[66];          base[19]= VV[66];
1661          base[20]= VV[67];          base[20]= VV[67];
1662          base[21]= VV[68];          base[21]= VV[68];
1663          base[22]= (V245);          base[22]= (V246);
1664          base[23]= VV[69];          base[23]= VV[69];
1665          base[24]= (V247);          base[24]= (V248);
1666          base[25]= VV[70];          base[25]= VV[70];
1667          base[26]= (V246);          base[26]= (V247);
1668          base[27]= VV[71];          base[27]= VV[71];
1669          base[28]= (V224);          base[28]= (V225);
1670          vs_top=(vs_base=base+18)+11;          vs_top=(vs_base=base+18)+11;
1671          Llist();          Llist();
1672          vs_top=sup;          vs_top=sup;
1673          V259= vs_base[0];          V260= vs_base[0];
1674          base[17]= list(3,VV[34],VV[64],listA(3,VV[65],V259,append((V249),(V250))));          base[17]= list(3,VV[35],VV[64],listA(3,VV[65],V260,append((V250),(V251))));
1675          if(((V223))==Cnil){          if(((V224))==Cnil){
1676          goto T522;}          goto T523;}
1677          V260= list(2,VV[27],(V223));          V261= list(2,VV[28],(V224));
1678          goto T520;          goto T521;
1679          goto T522;          goto T523;
1680  T522:;  T523:;
         V260= Cnil;  
         goto T520;  
 T520:;  
         if(((V204))==Cnil){  
         goto T526;}  
         V261= list(2,VV[3],(V204));  
         goto T524;  
         goto T526;  
 T526:;  
1681          V261= Cnil;          V261= Cnil;
1682          goto T524;          goto T521;
1683  T524:;  T521:;
1684          base[18]= append(V260,V261);          if(((V205))==Cnil){
1685            goto T527;}
1686            V262= list(2,VV[3],(V205));
1687            goto T525;
1688            goto T527;
1689    T527:;
1690            V262= Cnil;
1691            goto T525;
1692    T525:;
1693            base[18]= append(V261,V262);
1694          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1695          return;}}}}}}          return;}}}}}}
1696          }          }
# Line 1704  static void L20() Line 1703  static void L20()
1703          vs_check;          vs_check;
1704          check_arg(2);          check_arg(2);
1705          vs_top=sup;          vs_top=sup;
1706          {object V262=base[0]->c.c_cdr;          {object V263=base[0]->c.c_cdr;
         if(endp(V262))invalid_macro_call();  
         {object V263= (V262->c.c_car);  
         if(endp(V263))invalid_macro_call();  
         base[2]= (V263->c.c_car);  
         V263=V263->c.c_cdr;  
1707          if(endp(V263))invalid_macro_call();          if(endp(V263))invalid_macro_call();
1708          base[3]= (V263->c.c_car);          {object V264= (V263->c.c_car);
1709            if(endp(V264))invalid_macro_call();
1710            base[2]= (V264->c.c_car);
1711            V264=V264->c.c_cdr;
1712            if(endp(V264))invalid_macro_call();
1713            base[3]= (V264->c.c_car);
1714            V264=V264->c.c_cdr;
1715            if(endp(V264))invalid_macro_call();
1716            base[4]= (V264->c.c_car);
1717            V264=V264->c.c_cdr;
1718            base[5]= V264;}
1719          V263=V263->c.c_cdr;          V263=V263->c.c_cdr;
1720          if(endp(V263))invalid_macro_call();          base[6]= V263;}
1721          base[4]= (V263->c.c_car);          V265= list(2,base[3],base[4]);
1722          V263=V263->c.c_cdr;          base[7]= list(4,VV[10],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V265,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6]))));
         base[5]= V263;}  
         V262=V262->c.c_cdr;  
         base[6]= V262;}  
         V264= list(2,base[3],base[4]);  
         base[7]= list(4,VV[9],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V264,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6]))));  
1723          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1724          return;          return;
1725  }  }
# Line 1732  static void L21() Line 1731  static void L21()
1731          vs_check;          vs_check;
1732          check_arg(2);          check_arg(2);
1733          vs_top=sup;          vs_top=sup;
1734          {object V265=base[0]->c.c_cdr;          {object V266=base[0]->c.c_cdr;
         if(endp(V265))invalid_macro_call();  
         {object V266= (V265->c.c_car);  
         if(endp(V266))invalid_macro_call();  
         base[2]= (V266->c.c_car);  
         V266=V266->c.c_cdr;  
         if(endp(V266))invalid_macro_call();  
         base[3]= (V266->c.c_car);  
         V266=V266->c.c_cdr;  
         if(endp(V266))invalid_macro_call();  
         base[4]= (V266->c.c_car);  
         V266=V266->c.c_cdr;  
1735          if(endp(V266))invalid_macro_call();          if(endp(V266))invalid_macro_call();
1736          base[5]= (V266->c.c_car);          {object V267= (V266->c.c_car);
1737            if(endp(V267))invalid_macro_call();
1738            base[2]= (V267->c.c_car);
1739            V267=V267->c.c_cdr;
1740            if(endp(V267))invalid_macro_call();
1741            base[3]= (V267->c.c_car);
1742            V267=V267->c.c_cdr;
1743            if(endp(V267))invalid_macro_call();
1744            base[4]= (V267->c.c_car);
1745            V267=V267->c.c_cdr;
1746            if(endp(V267))invalid_macro_call();
1747            base[5]= (V267->c.c_car);
1748            V267=V267->c.c_cdr;
1749            base[6]= V267;}
1750          V266=V266->c.c_cdr;          V266=V266->c.c_cdr;
1751          base[6]= V266;}          base[7]= V266;}
1752          V265=V265->c.c_cdr;          V268= list(3,base[4],base[5],base[3]);
1753          base[7]= V265;}          V269 = CMPmake_fixnum((long)length(base[4]));
1754          V267= list(3,base[4],base[5],base[3]);          base[8]= list(3,VV[75],/* INLINE-ARGS */V268,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V269),base[2]),base[5]),base[7])));
         V268 = CMPmake_fixnum((long)length(base[4]));  
         base[8]= list(3,VV[75],/* INLINE-ARGS */V267,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V268),base[2]),base[5]),base[7])));  
1755          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1756          return;          return;
1757  }  }
# Line 1764  static void L22() Line 1763  static void L22()
1763          vs_check;          vs_check;
1764          check_arg(2);          check_arg(2);
1765          vs_top=sup;          vs_top=sup;
1766          {object V269=base[0]->c.c_cdr;          {object V270=base[0]->c.c_cdr;
         if(endp(V269))invalid_macro_call();  
         {object V270= (V269->c.c_car);  
1767          if(endp(V270))invalid_macro_call();          if(endp(V270))invalid_macro_call();
1768          base[2]= (V270->c.c_car);          {object V271= (V270->c.c_car);
1769            if(endp(V271))invalid_macro_call();
1770            base[2]= (V271->c.c_car);
1771            V271=V271->c.c_cdr;
1772            if(endp(V271))invalid_macro_call();
1773            base[3]= (V271->c.c_car);
1774            V271=V271->c.c_cdr;
1775            if(!endp(V271))invalid_macro_call();}
1776          V270=V270->c.c_cdr;          V270=V270->c.c_cdr;
1777          if(endp(V270))invalid_macro_call();          base[4]= V270;}
1778          base[3]= (V270->c.c_car);          V272= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3])));
1779          V270=V270->c.c_cdr;          V273= list(2,VV[1],base[3]);
1780          if(!endp(V270))invalid_macro_call();}          V274= list(3,VV[44],/* INLINE-ARGS */V272,list(3,VV[44],/* INLINE-ARGS */V273,list(3,VV[44],VV[82],list(2,VV[1],base[3]))));
1781          V269=V269->c.c_cdr;          V275= list(3,VV[77],VV[78],list(6,VV[32],VV[79],/* INLINE-ARGS */V274,VV[83],list(2,VV[1],base[3]),VV[84]));
1782          base[4]= V269;}          V276= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2]));
1783          V271= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3])));          base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V275,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V276,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]);
         V272= list(2,VV[1],base[3]);  
         V273= list(3,VV[44],/* INLINE-ARGS */V271,list(3,VV[44],/* INLINE-ARGS */V272,list(3,VV[44],VV[82],list(2,VV[1],base[3]))));  
         V274= list(3,VV[77],VV[78],list(6,VV[31],VV[79],/* INLINE-ARGS */V273,VV[83],list(2,VV[1],base[3]),VV[84]));  
         V275= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2]));  
         base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V274,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V275,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]);  
1784          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1785          return;          return;
1786  }  }
# Line 1791  static object LI23(object first,...) Line 1790  static object LI23(object first,...)
1790  {        {      
1791          va_list ap;          va_list ap;
1792          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
1793          {object V276;          {object V277;
1794          object V277;          object V278;
1795          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1796          va_start(ap,first);          va_start(ap,first);
1797          narg= narg - 0;          narg= narg - 0;
1798          {          {
1799          parse_key_new_new(narg,Vcs +0,(struct key *)&LI23key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);
1800          if(Vcs[0]==0){          if(Vcs[0]==0){
1801          V276= (VV[382]->s.s_gfdef);          V277= (VV[382]->s.s_gfdef);
1802          }else{          }else{
1803          V276=(Vcs[0]);}          V277=(Vcs[0]);}
1804          V277=(Vcs[1]);          V278=(Vcs[1]);
1805          base[0]= VV[95];          base[0]= VV[95];
1806          base[1]= (V276);          base[1]= (V277);
1807          base[2]= (V277);          base[2]= (V278);
1808          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1809          siLmake_structure();          siLmake_structure();
1810          vs_top=sup;          vs_top=sup;
1811          {object V278 = vs_base[0];          {object V279 = vs_base[0];
1812          VMR21(V278)}          VMR21(V279)}
1813          va_end(ap);          va_end(ap);
1814          base[0]=base[0];          base[0]=base[0];
1815          return Cnil;}          return Cnil;}
# Line 1823  static void L24() Line 1822  static void L24()
1822          vs_check;          vs_check;
1823          check_arg(2);          check_arg(2);
1824          vs_top=sup;          vs_top=sup;
1825          {object V279=base[0]->c.c_cdr;          {object V280=base[0]->c.c_cdr;
1826          if(endp(V279))invalid_macro_call();          if(endp(V280))invalid_macro_call();
1827          base[2]= (V279->c.c_car);          base[2]= (V280->c.c_car);
1828          V279=V279->c.c_cdr;          V280=V280->c.c_cdr;
1829          if(endp(V279))invalid_macro_call();          if(endp(V280))invalid_macro_call();
1830          base[3]= (V279->c.c_car);          base[3]= (V280->c.c_car);
1831          V279=V279->c.c_cdr;          V280=V280->c.c_cdr;
1832          if(endp(V279))invalid_macro_call();          if(endp(V280))invalid_macro_call();
1833          base[4]= (V279->c.c_car);          base[4]= (V280->c.c_car);
1834          V279=V279->c.c_cdr;          V280=V280->c.c_cdr;
1835          if(!endp(V279))invalid_macro_call();}          if(!endp(V280))invalid_macro_call();}
1836          V280= list(2,VV[97],base[2]);          V281= list(2,VV[97],base[2]);
1837          V281= list(2,VV[98],base[3]);          V282= list(2,VV[98],base[3]);
1838          base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V280,/* INLINE-ARGS */V281,list(2,VV[99],base[4])),VV[100]);          base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V281,/* INLINE-ARGS */V282,list(2,VV[99],base[4])),VV[100]);
1839          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1840          return;          return;
1841  }  }
# Line 1848  static void L25() Line 1847  static void L25()
1847          vs_check;          vs_check;
1848          check_arg(2);          check_arg(2);
1849          vs_top=sup;          vs_top=sup;
1850          {object V282=base[0]->c.c_cdr;          {object V283=base[0]->c.c_cdr;
1851          if(endp(V282))invalid_macro_call();          if(endp(V283))invalid_macro_call();
1852          base[2]= (V282->c.c_car);          base[2]= (V283->c.c_car);
1853          V282=V282->c.c_cdr;          V283=V283->c.c_cdr;
1854          if(endp(V282))invalid_macro_call();          if(endp(V283))invalid_macro_call();
1855          base[3]= (V282->c.c_car);          base[3]= (V283->c.c_car);
1856          V282=V282->c.c_cdr;          V283=V283->c.c_cdr;
1857          base[4]= V282;}          base[4]= V283;}
1858          V283= list(2,VV[102],base[2]);          V284= list(2,VV[102],base[2]);
1859          if((base[3])==Cnil){          if((base[3])==Cnil){
1860          goto T534;}          goto T535;}
1861          V284= make_cons(VV[31],base[4]);          V285= make_cons(VV[32],base[4]);
1862          goto T532;          goto T533;
1863          goto T534;          goto T535;
1864  T534:;  T535:;
1865          V284= make_cons(VV[44],base[4]);          V285= make_cons(VV[44],base[4]);
1866          goto T532;          goto T533;
1867  T532:;  T533:;
1868          base[5]= list(4,VV[101],/* INLINE-ARGS */V283,V284,list(2,VV[103],base[2]));          base[5]= list(4,VV[101],/* INLINE-ARGS */V284,V285,list(2,VV[103],base[2]));
1869          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1870          return;          return;
1871  }  }
# Line 1876  static object LI26(object first,...) Line 1875  static object LI26(object first,...)
1875  {        {      
1876          va_list ap;          va_list ap;
1877          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1878          {object V285;          {object V286;
         object V286;  
1879          object V287;          object V287;
1880          object V288;          object V288;
1881            object V289;
1882          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1883          va_start(ap,first);          va_start(ap,first);
1884          narg= narg - 0;          narg= narg - 0;
1885          {          {
1886          parse_key_new_new(narg,Vcs +0,(struct key *)&LI26key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);
1887          if(Vcs[0]==0){          if(Vcs[0]==0){
1888          V285= (VV[382]->s.s_gfdef);          V286= (VV[382]->s.s_gfdef);
1889          }else{          }else{
1890          V285=(Vcs[0]);}          V286=(Vcs[0]);}
1891          V286=(Vcs[1]);          V287=(Vcs[1]);
1892          V287=(Vcs[2]);          V288=(Vcs[2]);
1893          V288=(Vcs[3]);          V289=(Vcs[3]);
1894          base[0]= VV[104];          base[0]= VV[104];
1895          base[1]= (V285);          base[1]= (V286);
1896          base[2]= (V286);          base[2]= (V287);
1897          base[3]= (V287);          base[3]= (V288);
1898          base[4]= (V288);          base[4]= (V289);
1899          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1900          siLmake_structure();          siLmake_structure();
1901          vs_top=sup;          vs_top=sup;
1902          {object V289 = vs_base[0];          {object V290 = vs_base[0];
1903          VMR24(V289)}          VMR24(V290)}
1904          va_end(ap);          va_end(ap);
1905          base[0]=base[0];          base[0]=base[0];
1906          return Cnil;}          return Cnil;}
# Line 1914  static void L27() Line 1913  static void L27()
1913          vs_check;          vs_check;
1914          check_arg(2);          check_arg(2);
1915          vs_top=sup;          vs_top=sup;
1916          {object V290=base[0]->c.c_cdr;          {object V291=base[0]->c.c_cdr;
1917          if(endp(V290))invalid_macro_call();          if(endp(V291))invalid_macro_call();
1918          base[2]= (V290->c.c_car);          base[2]= (V291->c.c_car);
1919          V290=V290->c.c_cdr;          V291=V291->c.c_cdr;
1920          base[3]= V290;}          base[3]= V291;}
1921          V291= list(2,VV[106],base[2]);          V292= list(2,VV[106],base[2]);
1922          V292= list(2,VV[107],base[2]);          V293= list(2,VV[107],base[2]);
1923          base[4]= listA(5,VV[105],/* INLINE-ARGS */V291,/* INLINE-ARGS */V292,list(2,VV[108],base[2]),base[3]);          base[4]= listA(5,VV[105],/* INLINE-ARGS */V292,/* INLINE-ARGS */V293,list(2,VV[108],base[2]),base[3]);
1924          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1925          return;          return;
1926  }  }
# Line 1931  static object LI28(object first,...) Line 1930  static object LI28(object first,...)
1930  {        {      
1931          va_list ap;          va_list ap;
1932          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1933          {object V293;          {object V294;
1934          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1935          va_start(ap,first);          va_start(ap,first);
1936          narg= narg - 0;          narg= narg - 0;
1937          {          {
1938          parse_key_new_new(narg,Vcs +0,(struct key *)&LI28key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap);
1939          V293=(Vcs[0]);          V294=(Vcs[0]);
1940          base[0]= VV[109];          base[0]= VV[109];
1941          base[1]= (V293);          base[1]= (V294);
1942          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1943          siLmake_structure();          siLmake_structure();
1944          vs_top=sup;          vs_top=sup;
1945          {object V294 = vs_base[0];          {object V295 = vs_base[0];
1946          VMR26(V294)}          VMR26(V295)}
1947          va_end(ap);          va_end(ap);
1948          base[0]=base[0];          base[0]=base[0];
1949          return Cnil;}          return Cnil;}
# Line 1958  static object LI29() Line 1957  static object LI29()
1957          goto TTL;          goto TTL;
1958  TTL:;  TTL:;
1959          if(((VV[110]->s.s_dbind))==Cnil){          if(((VV[110]->s.s_dbind))==Cnil){
1960          goto T545;}          goto T546;}
1961          {register object V295;          {register object V296;
1962          V295= (VV[111]->s.s_dbind);          V296= (VV[111]->s.s_dbind);
1963          bds_bind(VV[112],Cnil);          bds_bind(VV[112],Cnil);
1964          base[1]= Ct;          base[1]= Ct;
1965          base[2]= VV[113];          base[2]= VV[113];
1966          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1967          Lformat();          Lformat();
1968          vs_top=sup;          vs_top=sup;
1969          {register long V296;          {register long V297;
1970          register long V297;          register long V298;
1971          V296= fix((VV[114]->s.s_dbind));          V297= fix((VV[114]->s.s_dbind));
1972          V297= 0;          V298= 0;
         goto T553;  
 T553:;  
         if(!((V297)>=(V296))){  
         goto T554;}  
         {object V298 = Cnil;  
         bds_unwind1;  
         VMR27(V298)}  
1973          goto T554;          goto T554;
1974  T554:;  T554:;
1975          {register object V299;          if(!((V298)>=(V297))){
1976          V299= aref1((VV[110]->s.s_dbind),fix((V295)));          goto T555;}
1977          if(((V299))==Cnil){          {object V299 = Cnil;
1978          goto T557;}          bds_unwind1;
1979          (void)(print((V299),Cnil));}          VMR27(V299)}
1980          goto T557;          goto T555;
1981  T557:;  T555:;
1982          V295= number_plus((V295),small_fixnum(1));          {register object V300;
1983          if(!(number_compare((V295),(VV[114]->s.s_dbind))==0)){          V300= aref1((VV[110]->s.s_dbind),fix((V296)));
1984          goto T563;}          if(((V300))==Cnil){
1985          V295= small_fixnum(0);          goto T558;}
1986          goto T563;          (void)(print((V300),Cnil));}
1987  T563:;          goto T558;
1988          V297= (long)(V297)+1;  T558:;
1989          goto T553;}}          V296= number_plus((V296),small_fixnum(1));
1990          goto T545;          if(!(number_compare((V296),(VV[114]->s.s_dbind))==0)){
1991  T545:;          goto T564;}
1992          {object V300 = Cnil;          V296= small_fixnum(0);
1993          VMR27(V300)}          goto T564;
1994    T564:;
1995            V298= (long)(V298)+1;
1996            goto T554;}}
1997            goto T546;
1998    T546:;
1999            {object V301 = Cnil;
2000            VMR27(V301)}
2001          base[0]=base[0];          base[0]=base[0];
2002          return Cnil;          return Cnil;
2003  }  }
2004  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */
2005    
2006  static object LI30(V304,V305,V306)  static object LI30(V305,V306,V307)
2007    
2008  object V304;object V305;object V306;  object V305;object V306;object V307;
2009  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
2010          goto TTL;          goto TTL;
2011  TTL:;  TTL:;
2012          if(((VV[110]->s.s_dbind))!=Cnil){          if(((VV[110]->s.s_dbind))!=Cnil){
2013          goto T570;}          goto T571;}
2014          base[0]= (VV[114]->s.s_dbind);          base[0]= (VV[114]->s.s_dbind);
2015          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2016          (void) (*Lnk388)();          (void) (*Lnk388)();
2017          vs_top=sup;          vs_top=sup;
2018          (VV[110]->s.s_dbind)= vs_base[0];          (VV[110]->s.s_dbind)= vs_base[0];
2019          goto T570;          goto T571;
2020  T570:;{object V307;  T571:;{object V308;
2021          V307= (VV[110]->s.s_dbind);{object V308;          V308= (VV[110]->s.s_dbind);{object V309;
2022          V308= (VV[111]->s.s_dbind);          V309= (VV[111]->s.s_dbind);
2023          V309= listA(3,(V304),(V305),(V306));          V310= listA(3,(V305),(V306),(V307));
2024          (void)(aset1(V307,fix(V308),/* INLINE-ARGS */V309));}}          (void)(aset1(V308,fix(V309),/* INLINE-ARGS */V310));}}
2025          (VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1));          (VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1));
2026          if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){          if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){
2027          goto T579;}          goto T580;}
2028          (VV[111]->s.s_dbind)= small_fixnum(0);          (VV[111]->s.s_dbind)= small_fixnum(0);
2029          {object V310 = small_fixnum(0);          {object V311 = small_fixnum(0);
         VMR28(V310)}  
         goto T579;  
 T579:;  
         {object V311 = Cnil;  
2030          VMR28(V311)}          VMR28(V311)}
2031            goto T580;
2032    T580:;
2033            {object V312 = Cnil;
2034            VMR28(V312)}
2035          base[0]=base[0];          base[0]=base[0];
2036          return Cnil;          return Cnil;
2037  }  }
# Line 2044  static void L31() Line 2043  static void L31()
2043          vs_check;          vs_check;
2044          check_arg(2);          check_arg(2);
2045          vs_top=sup;          vs_top=sup;
2046          {object V312=base[0]->c.c_cdr;          {object V313=base[0]->c.c_cdr;
2047          if(endp(V312))invalid_macro_call();          if(endp(V313))invalid_macro_call();
2048          base[2]= (V312->c.c_car);          base[2]= (V313->c.c_car);
2049          V312=V312->c.c_cdr;          V313=V313->c.c_cdr;
2050          if(endp(V312))invalid_macro_call();          if(endp(V313))invalid_macro_call();
2051          base[3]= (V312->c.c_car);          base[3]= (V313->c.c_car);
2052          V312=V312->c.c_cdr;          V313=V313->c.c_cdr;
2053          if(endp(V312))invalid_macro_call();          if(endp(V313))invalid_macro_call();
2054          base[4]= (V312->c.c_car);          base[4]= (V313->c.c_car);
2055          V312=V312->c.c_cdr;          V313=V313->c.c_cdr;
2056          if(!endp(V312))invalid_macro_call();}          if(!endp(V313))invalid_macro_call();}
2057          if(((VV[115]->s.s_dbind))==Cnil){          if(((VV[115]->s.s_dbind))==Cnil){
2058          goto T583;}          goto T584;}
2059          base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4]));          base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4]));
2060          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2061          return;          return;
2062          goto T583;          goto T584;
2063  T583:;  T584:;
2064          base[5]= Cnil;          base[5]= Cnil;
2065          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2066          return;          return;
# Line 2074  static void L32() Line 2073  static void L32()
2073          vs_check;          vs_check;
2074          check_arg(2);          check_arg(2);
2075          vs_top=sup;          vs_top=sup;
2076          {object V313=base[0]->c.c_cdr;          {object V314=base[0]->c.c_cdr;
2077          if(endp(V313))invalid_macro_call();          if(endp(V314))invalid_macro_call();
2078          base[2]= (V313->c.c_car);          base[2]= (V314->c.c_car);
2079          V313=V313->c.c_cdr;          V314=V314->c.c_cdr;
2080          if(endp(V313))invalid_macro_call();          if(endp(V314))invalid_macro_call();
2081          base[3]= (V313->c.c_car);          base[3]= (V314->c.c_car);
2082          V313=V313->c.c_cdr;          V314=V314->c.c_cdr;
2083          base[4]= V313;}          base[4]= V314;}
2084          V314= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));          V315= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));
2085          base[5]= list(3,VV[9],/* INLINE-ARGS */V314,listA(3,VV[119],base[2],base[4]));          base[5]= list(3,VV[10],/* INLINE-ARGS */V315,listA(3,VV[119],base[2],base[4]));
2086          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2087          return;          return;
2088  }  }
# Line 2095  static void L33() Line 2094  static void L33()
2094          vs_check;          vs_check;
2095          check_arg(2);          check_arg(2);
2096          vs_top=sup;          vs_top=sup;
2097          {object V315=base[0]->c.c_cdr;          {object V316=base[0]->c.c_cdr;
2098          if(endp(V315))invalid_macro_call();          if(endp(V316))invalid_macro_call();
2099          base[2]= (V315->c.c_car);          base[2]= (V316->c.c_car);
2100          V315=V315->c.c_cdr;          V316=V316->c.c_cdr;
2101          if(endp(V315))invalid_macro_call();          if(endp(V316))invalid_macro_call();
2102          base[3]= (V315->c.c_car);          base[3]= (V316->c.c_car);
2103          V315=V315->c.c_cdr;          V316=V316->c.c_cdr;
2104          base[4]= V315;}          base[4]= V316;}
2105          base[5]= base[3];          base[5]= base[3];
2106          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2107          Lconstantp();          Lconstantp();
2108          vs_top=sup;          vs_top=sup;
2109          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2110          goto T585;}          goto T586;}
2111          base[5]= VV[120];          base[5]= VV[120];
2112          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2113          Lerror();          Lerror();
2114          vs_top=sup;          vs_top=sup;
2115          goto T585;          goto T586;
2116  T585:;  T586:;
2117          base[5]= base[3];          base[5]= base[3];
2118          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2119          Leval();          Leval();
2120          vs_top=sup;          vs_top=sup;
2121          base[3]= vs_base[0];          base[3]= vs_base[0];
2122          V316= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));          V317= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));
2123          V317= list(3,VV[122],base[2],VV[123]);          V318= list(3,VV[122],base[2],VV[123]);
2124          V318= list(2,/* INLINE-ARGS */V317,listA(3,VV[119],base[2],base[4]));          V319= list(2,/* INLINE-ARGS */V318,listA(3,VV[119],base[2],base[4]));
2125          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2126          goto T596;}          goto T597;}
2127          if(!((1)==((long)length(base[4])))){          if(!((1)==((long)length(base[4])))){
2128          goto T596;}          goto T597;}
2129          V320= list(3,VV[122],base[2],VV[124]);          V321= list(3,VV[122],base[2],VV[124]);
2130          V321= list(2,VV[126],list(2,VV[127],CMPcar(base[4])));          V322= list(2,VV[126],list(2,VV[127],CMPcar(base[4])));
2131          V322= list(2,/* INLINE-ARGS */V321,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2]))));          V323= list(2,/* INLINE-ARGS */V322,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2]))));
2132          V323= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind)));          V324= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind)));
2133          V324= list(2,/* INLINE-ARGS */V320,list(3,VV[125],/* INLINE-ARGS */V322,list(4,VV[130],/* INLINE-ARGS */V323,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128])));          V325= list(2,/* INLINE-ARGS */V321,list(3,VV[125],/* INLINE-ARGS */V323,list(4,VV[130],/* INLINE-ARGS */V324,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128])));
2134          base[5]= make_cons(/* INLINE-ARGS */V324,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V325,Cnil);
2135          goto T594;          goto T595;
2136          goto T596;          goto T597;
2137  T596:;  T597:;
2138          base[5]= Cnil;          base[5]= Cnil;
2139          goto T594;          goto T595;
2140  T594:;  T595:;
2141          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2142          goto T602;}          goto T603;}
2143          if(!((2)==((long)length(base[4])))){          if(!((2)==((long)length(base[4])))){
2144          goto T602;}          goto T603;}
2145          V325= list(3,VV[122],base[2],VV[134]);          V326= list(3,VV[122],base[2],VV[134]);
2146          V326= list(2,VV[135],CMPcar(base[4]));          V327= list(2,VV[135],CMPcar(base[4]));
2147          V327= list(2,/* INLINE-ARGS */V326,list(2,VV[126],list(2,VV[127],CMPcar(base[4]))));          V328= list(2,/* INLINE-ARGS */V327,list(2,VV[126],list(2,VV[127],CMPcar(base[4]))));
2148          V328= list(2,/* INLINE-ARGS */V325,list(3,VV[96],/* INLINE-ARGS */V327,list(3,VV[116],VV[126],list(3,VV[29],list(3,VV[129],VV[126],base[2]),VV[135]))));          V329= list(2,/* INLINE-ARGS */V326,list(3,VV[96],/* INLINE-ARGS */V328,list(3,VV[116],VV[126],list(3,VV[30],list(3,VV[129],VV[126],base[2]),VV[135]))));
2149          base[6]= make_cons(/* INLINE-ARGS */V328,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V329,Cnil);
2150          goto T600;          goto T601;
2151          goto T602;          goto T603;
2152  T602:;  T603:;
2153          base[6]= Cnil;          base[6]= Cnil;
2154          goto T600;          goto T601;
2155  T600:;  T601:;
2156          V329= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4]));          V330= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4]));
2157          if((base[3])==Cnil){          if((base[3])==Cnil){
2158          goto T609;}          goto T610;}
2159          V330= listA(3,VV[138],list(3,VV[139],VV[33],base[2]),base[4]);          V331= listA(3,VV[138],list(3,VV[139],VV[34],base[2]),base[4]);
2160          goto T607;          goto T608;
2161          goto T609;          goto T610;
2162  T609:;  T610:;
2163          V330= listA(3,VV[140],list(3,VV[139],VV[33],base[2]),base[4]);          V331= listA(3,VV[140],list(3,VV[139],VV[34],base[2]),base[4]);
2164          goto T607;          goto T608;
2165  T607:;  T608:;
2166          V331= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V329,list(2,VV[33],V330)));          V332= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V330,list(2,VV[34],V331)));
2167          base[7]= make_cons(/* INLINE-ARGS */V331,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V332,Cnil);
2168          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2169          Lappend();          Lappend();
2170          vs_top=sup;          vs_top=sup;
2171          V319= vs_base[0];          V320= vs_base[0];
2172          base[5]= list(3,VV[9],/* INLINE-ARGS */V316,listA(3,VV[121],/* INLINE-ARGS */V318,V319));          base[5]= list(3,VV[10],/* INLINE-ARGS */V317,listA(3,VV[121],/* INLINE-ARGS */V319,V320));
2173          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2174          return;          return;
2175  }  }
# Line 2180  static void L34() Line 2179  static void L34()
2179  {register object *base=vs_base;  {register object *base=vs_base;
2180          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2181          vs_check;          vs_check;
2182          {register object V332;          {register object V333;
2183          register object V333;          register object V334;
2184          check_arg(2);          check_arg(2);
2185          V332=(base[0]);          V333=(base[0]);
2186          V333=(base[1]);          V334=(base[1]);
2187          vs_top=sup;          vs_top=sup;
2188          goto TTL;          goto TTL;
2189  TTL:;  TTL:;
2190          {register object V334;          {register object V335;
2191          V334= (V332);          V335= (V333);
2192          base[2]= (V334);          base[2]= (V335);
2193          base[3]= VV[104];          base[3]= VV[104];
2194          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2195          (void) (*Lnk389)();          (void) (*Lnk389)();
2196          vs_top=sup;          vs_top=sup;
2197          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2198          goto T613;}          goto T614;}
2199          {object V335;          {object V336;
2200          object V336;          object V337;
2201          register object V337;          register object V338;
2202          V335= STREF(object,(V332),12);          V336= STREF(object,(V333),12);
2203          V336= CMPcdr((V335));          V337= CMPcdr((V336));
2204          V337= CMPcar((V335));          V338= CMPcar((V336));
2205          if(((V336))==Cnil){          if(((V337))==Cnil){
2206          goto T621;}          goto T622;}
2207          {object V338;          {object V339;
2208          object V339;          object V340;
2209          V338= nthcdr(fix((V337)),(V333));          V339= nthcdr(fix((V338)),(V334));
2210          base[7]= (V333);          base[7]= (V334);
2211          base[8]= (V338);          base[8]= (V339);
2212          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2213          Lldiff();          Lldiff();
2214          vs_top=sup;          vs_top=sup;
2215          V339= vs_base[0];          V340= vs_base[0];
2216          base[7]= STREF(object,(V332),0);          base[7]= STREF(object,(V333),0);
2217          base[8]= STREF(object,(V332),4);          base[8]= STREF(object,(V333),4);
2218          base[9]= STREF(object,(V332),8);          base[9]= STREF(object,(V333),8);
2219          {object V340;          {object V341;
2220          V341= make_cons((V338),Cnil);          V342= make_cons((V339),Cnil);
2221          V340= nconc((V339),/* INLINE-ARGS */V341);          V341= nconc((V340),/* INLINE-ARGS */V342);
2222           vs_top=base+10;           vs_top=base+10;
2223           while(V340!=Cnil)           while(V341!=Cnil)
2224           {vs_push((V340)->c.c_car);V340=(V340)->c.c_cdr;}           {vs_push((V341)->c.c_car);V341=(V341)->c.c_cdr;}
2225          vs_base=base+8;}          vs_base=base+8;}
2226          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2227                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2228                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2229                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2230          return;}          return;}
2231          goto T621;          goto T622;
2232  T621:;  T622:;
2233          if(((V333))!=Cnil){          if(((V334))!=Cnil){
2234          goto T632;}          goto T633;}
2235          if(!(eql((V337),small_fixnum(0)))){          if(!(eql((V338),small_fixnum(0)))){
2236          goto T635;}          goto T636;}
2237          base[5]= STREF(object,(V332),0);          base[5]= STREF(object,(V333),0);
2238          base[6]= STREF(object,(V332),4);          base[6]= STREF(object,(V333),4);
2239          base[7]= STREF(object,(V332),8);          base[7]= STREF(object,(V333),8);
2240          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2241          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2242                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2243                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2244                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2245          return;          return;
2246          goto T635;          goto T636;
2247  T635:;  T636:;
2248          base[5]= VV[141];          base[5]= VV[141];
2249          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2250          Lerror();          Lerror();
2251          return;          return;
2252          goto T632;          goto T633;
2253  T632:;  T633:;
2254          if((CMPcdr((V333)))!=Cnil){          if((CMPcdr((V334)))!=Cnil){
2255          goto T642;}          goto T643;}
2256          if(!(eql((V337),small_fixnum(1)))){          if(!(eql((V338),small_fixnum(1)))){
2257          goto T645;}          goto T646;}
2258          base[5]= STREF(object,(V332),0);          base[5]= STREF(object,(V333),0);
2259          base[6]= STREF(object,(V332),4);          base[6]= STREF(object,(V333),4);
2260          base[7]= STREF(object,(V332),8);          base[7]= STREF(object,(V333),8);
2261          base[8]= CMPcar((V333));          base[8]= CMPcar((V334));
2262          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2263          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2264                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2265                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2266                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2267          return;          return;
2268          goto T645;          goto T646;
2269  T645:;  T646:;
2270          base[5]= VV[142];          base[5]= VV[142];
2271          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2272          Lerror();          Lerror();
2273          return;          return;
2274          goto T642;          goto T643;
2275  T642:;  T643:;
2276          if((CMPcddr((V333)))!=Cnil){          if((CMPcddr((V334)))!=Cnil){
2277          goto T653;}          goto T654;}
2278          if(!(eql((V337),small_fixnum(2)))){          if(!(eql((V338),small_fixnum(2)))){
2279          goto T656;}          goto T657;}
2280          base[5]= STREF(object,(V332),0);          base[5]= STREF(object,(V333),0);
2281          base[6]= STREF(object,(V332),4);          base[6]= STREF(object,(V333),4);
2282          base[7]= STREF(object,(V332),8);          base[7]= STREF(object,(V333),8);
2283          base[8]= CMPcar((V333));          base[8]= CMPcar((V334));
2284          base[9]= CMPcadr((V333));          base[9]= CMPcadr((V334));
2285          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
2286          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2287                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2288                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2289                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2290          return;          return;
2291          goto T656;          goto T657;
2292  T656:;  T657:;
2293          base[5]= VV[143];          base[5]= VV[143];
2294          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2295          Lerror();          Lerror();
2296          return;          return;
2297          goto T653;          goto T654;
2298  T653:;  T654:;
2299          base[5]= STREF(object,(V332),0);          base[5]= STREF(object,(V333),0);
2300          base[6]= STREF(object,(V332),4);          base[6]= STREF(object,(V333),4);
2301          base[7]= STREF(object,(V332),8);          base[7]= STREF(object,(V333),8);
2302          {object V342;          {object V343;
2303          V342= (V333);          V343= (V334);
2304           vs_top=base+8;           vs_top=base+8;
2305           while(V342!=Cnil)           while(V343!=Cnil)
2306           {vs_push((V342)->c.c_car);V342=(V342)->c.c_cdr;}           {vs_push((V343)->c.c_car);V343=(V343)->c.c_cdr;}
2307          vs_base=base+6;}          vs_base=base+6;}
2308          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2309                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2310                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2311                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2312          return;}          return;}
2313          goto T613;          goto T614;
2314  T613:;  T614:;
2315          base[2]= (V334);          base[2]= (V335);
2316          base[3]= VV[95];          base[3]= VV[95];
2317          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2318          (void) (*Lnk389)();          (void) (*Lnk389)();
2319          vs_top=sup;          vs_top=sup;
2320          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2321          goto T669;}          goto T670;}
2322          base[2]= STREF(object,(V332),0);          base[2]= STREF(object,(V333),0);
2323          base[3]= (V333);          base[3]= (V334);
2324          {object V343;          {object V344;
2325          V343= STREF(object,(V332),4);          V344= STREF(object,(V333),4);
2326           vs_top=base+4;           vs_top=base+4;
2327           while(V343!=Cnil)           while(V344!=Cnil)
2328           {vs_push((V343)->c.c_car);V343=(V343)->c.c_cdr;}           {vs_push((V344)->c.c_car);V344=(V344)->c.c_cdr;}
2329          vs_base=base+3;}          vs_base=base+3;}
2330          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2331                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2332                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2333                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2334          return;          return;
2335          goto T669;          goto T670;
2336  T669:;  T670:;
2337          if(!(type_of((V334))==t_fixnum)){          if(!(type_of((V335))==t_fixnum)){
2338          goto T677;}          goto T678;}
2339          if(((V333))!=Cnil){          if(((V334))!=Cnil){
2340          goto T680;}          goto T681;}
2341          base[2]= VV[144];          base[2]= VV[144];
2342          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2343          Lerror();          Lerror();
2344          return;          return;
2345          goto T680;          goto T681;
2346  T680:;  T681:;
2347          if((CMPcdr((V333)))!=Cnil){          if((CMPcdr((V334)))!=Cnil){
2348          goto T684;}          goto T685;}
2349          {object V344;          {object V345;
2350          {object V346;          {object V347;
2351          V346= CMPcar((V333));          V347= CMPcar((V334));
2352          if(type_of((V346))==t_structure){          if(type_of((V347))==t_structure){
2353          goto T692;}          goto T693;}
2354          goto T689;          goto T690;
2355          goto T692;          goto T693;
2356  T692:;  T693:;
2357          if(!((((V346))->str.str_def)==(VV[145]))){          if(!((((V347))->str.str_def)==(VV[145]))){
2358          goto T689;}}          goto T690;}}
2359          V345= STREF(object,CMPcar((V333)),4);          V346= STREF(object,CMPcar((V334)),4);
2360          goto T687;          goto T688;
2361          goto T689;          goto T690;
2362  T689:;{object V347;  T690:;{object V348;
2363          V347= (VV[147]->s.s_dbind);          V348= (VV[147]->s.s_dbind);
2364          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2365          base[3]= CMPcar((V333));          base[3]= CMPcar((V334));
2366          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2367          (void) (*Lnk390)();          (void) (*Lnk390)();
2368          vs_top=sup;          vs_top=sup;
2369          V348= vs_base[0];          V349= vs_base[0];
2370          if(!((V347)==(CMPcar(V348)))){          if(!((V348)==(CMPcar(V349)))){
2371          goto T695;}}          goto T696;}}
2372          V345= CMPcar((CMPcar((V333)))->cc.cc_turbo[12]);          V346= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]);
2373          goto T687;          goto T688;
2374          goto T695;          goto T696;
2375  T695:;  T696:;
2376          base[2]= VV[148];          base[2]= VV[148];
2377          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2378          Lerror();          Lerror();
2379          vs_top=sup;          vs_top=sup;
2380          V345= vs_base[0];          V346= vs_base[0];
2381          goto T687;          goto T688;
2382  T687:;  T688:;
2383          V344= (V345)->v.v_self[fix((V332))];          V345= (V346)->v.v_self[fix((V333))];
2384          if(!(((V344))==((VV[132]->s.s_dbind)))){          if(!(((V345))==((VV[132]->s.s_dbind)))){
2385          goto T702;}          goto T703;}
2386          base[2]= CMPcar((V333));          base[2]= CMPcar((V334));
2387          base[3]= (V332);          base[3]= (V333);
2388          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2389          (void) (*Lnk133)();          (void) (*Lnk133)();
2390          return;          return;
2391          goto T702;          goto T703;
2392  T702:;  T703:;
2393          base[2]= (V344);          base[2]= (V345);
2394          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2395          return;}          return;}
2396          goto T684;          goto T685;
2397  T684:;  T685:;
2398          if((CMPcddr((V333)))!=Cnil){          if((CMPcddr((V334)))!=Cnil){
2399          goto T707;}          goto T708;}
2400          {object V350;          {object V351;
2401          V350= CMPcadr((V333));          V351= CMPcadr((V334));
2402          if(type_of((V350))==t_structure){          if(type_of((V351))==t_structure){
2403          goto T714;}          goto T715;}
2404          goto T711;          goto T712;
2405          goto T714;          goto T715;
2406  T714:;  T715:;
2407          if(!((((V350))->str.str_def)==(VV[149]))){          if(!((((V351))->str.str_def)==(VV[149]))){
2408          goto T711;}}          goto T712;}}
2409          V349= STREF(object,CMPcadr((V333)),4);          V350= STREF(object,CMPcadr((V334)),4);
2410          goto T709;          goto T710;
2411          goto T711;          goto T712;
2412  T711:;{object V351;  T712:;{object V352;
2413          V351= (VV[147]->s.s_dbind);          V352= (VV[147]->s.s_dbind);
2414          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2415          base[3]= CMPcadr((V333));          base[3]= CMPcadr((V334));
2416          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2417          (void) (*Lnk390)();          (void) (*Lnk390)();
2418          vs_top=sup;          vs_top=sup;
2419          V352= vs_base[0];          V353= vs_base[0];
2420          if(!((V351)==(CMPcar(V352)))){          if(!((V352)==(CMPcar(V353)))){
2421          goto T717;}}          goto T718;}}
2422          V349= CMPcar((CMPcadr((V333)))->cc.cc_turbo[12]);          V350= CMPcar((CMPcadr((V334)))->cc.cc_turbo[12]);
2423          goto T709;          goto T710;
2424          goto T717;          goto T718;
2425  T717:;  T718:;
2426          base[2]= VV[148];          base[2]= VV[148];
2427          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2428          Lerror();          Lerror();
2429          vs_top=sup;          vs_top=sup;
2430          V349= vs_base[0];          V350= vs_base[0];
2431          goto T709;          goto T710;
2432  T709:;  T710:;
2433          base[2]= (V349)->v.v_self[fix((V332))]= (CMPcar((V333)));          base[2]= (V350)->v.v_self[fix((V333))]= (CMPcar((V334)));
2434          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2435          return;          return;
2436          goto T707;          goto T708;
2437  T707:;  T708:;
2438          base[2]= VV[150];          base[2]= VV[150];
2439          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2440          Lerror();          Lerror();
2441          return;          return;
2442          goto T677;          goto T678;
2443  T677:;  T678:;
2444          base[2]= (V334);          base[2]= (V335);
2445          base[3]= VV[109];          base[3]= VV[109];
2446          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2447          (void) (*Lnk389)();          (void) (*Lnk389)();
2448          vs_top=sup;          vs_top=sup;
2449          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2450          goto T725;}          goto T726;}
2451          if(((V333))==Cnil){          if(((V334))==Cnil){
         goto T729;}  
         if((CMPcdr((V333)))==Cnil){  
2452          goto T730;}          goto T730;}
2453          goto T729;          if((CMPcdr((V334)))==Cnil){
2454  T729:;          goto T731;}
2455            goto T730;
2456    T730:;
2457          base[2]= VV[151];          base[2]= VV[151];
2458          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2459          Lerror();          Lerror();
2460          return;          return;
2461          goto T730;          goto T731;
2462  T730:;  T731:;
2463          {object V354;          {object V355;
2464          V354= CMPcar((V333));          V355= CMPcar((V334));
2465          if(type_of((V354))==t_structure){          if(type_of((V355))==t_structure){
2466          goto T740;}          goto T741;}
2467          goto T737;          goto T738;
2468          goto T740;          goto T741;
2469  T740:;  T741:;
2470          if(!((((V354))->str.str_def)==(VV[152]))){          if(!((((V355))->str.str_def)==(VV[152]))){
2471          goto T737;}}          goto T738;}}
2472          V353= STREF(object,CMPcar((V333)),4);          V354= STREF(object,CMPcar((V334)),4);
2473          goto T735;          goto T736;
2474          goto T737;          goto T738;
2475  T737:;{object V355;  T738:;{object V356;
2476          V355= (VV[147]->s.s_dbind);          V356= (VV[147]->s.s_dbind);
2477          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2478          base[3]= CMPcar((V333));          base[3]= CMPcar((V334));
2479          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2480          (void) (*Lnk390)();          (void) (*Lnk390)();
2481          vs_top=sup;          vs_top=sup;
2482          V356= vs_base[0];          V357= vs_base[0];
2483          if(!((V355)==(CMPcar(V356)))){          if(!((V356)==(CMPcar(V357)))){
2484          goto T743;}}          goto T744;}}
2485          V353= CMPcar((CMPcar((V333)))->cc.cc_turbo[12]);          V354= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]);
2486          goto T735;          goto T736;
2487          goto T743;          goto T744;
2488  T743:;  T744:;
2489          base[2]= VV[148];          base[2]= VV[148];
2490          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2491          Lerror();          Lerror();
2492          vs_top=sup;          vs_top=sup;
2493          V353= vs_base[0];          V354= vs_base[0];
2494          goto T735;          goto T736;
2495  T735:;  T736:;
2496          base[2]= (((((V353)->v.v_self[(long)STREF(fixnum,(V332),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          base[2]= (((((V354)->v.v_self[(long)STREF(fixnum,(V333),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);
2497          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2498          return;          return;
2499          goto T725;          goto T726;
2500  T725:;  T726:;
2501          base[2]= (V334);          base[2]= (V335);
2502          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2503          Lfunctionp();          Lfunctionp();
2504          vs_top=sup;          vs_top=sup;
2505          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2506          goto T750;}          goto T751;}
2507          base[2]= (V332);          base[2]= (V333);
2508          {object V357;          {object V358;
2509          V357= (V333);          V358= (V334);
2510           vs_top=base+3;           vs_top=base+3;
2511           while(V357!=Cnil)           while(V358!=Cnil)
2512           {vs_push((V357)->c.c_car);V357=(V357)->c.c_cdr;}           {vs_push((V358)->c.c_car);V358=(V358)->c.c_cdr;}
2513          vs_base=base+3;}          vs_base=base+3;}
2514          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2515                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2516                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2517                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2518          return;          return;
2519          goto T750;          goto T751;
2520  T750:;  T751:;
2521          base[3]= VV[153];          base[3]= VV[153];
2522          base[4]= (V334);          base[4]= (V335);
2523          base[5]= VV[154];          base[5]= VV[154];
2524          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2525          (void) (*Lnk392)();          (void) (*Lnk392)();
# Line 2533  T750:; Line 2532  T750:;
2532  }  }
2533  /*      local entry for function GF-MAKE-FUNCTION-FROM-EMF      */  /*      local entry for function GF-MAKE-FUNCTION-FROM-EMF      */
2534    
2535  static object LI36(V360,V361)  static object LI36(V361,V362)
2536    
2537  object V360;object V361;  object V361;object V362;
2538  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2539          goto TTL;          goto TTL;
2540  TTL:;  TTL:;
2541          base[0]=MMcons((V361),Cnil);          base[0]=MMcons((V362),Cnil);
2542          {register object V362;          {register object V363;
2543          V362= (base[0]->c.c_car);          V363= (base[0]->c.c_car);
2544          base[1]= (V362);          base[1]= (V363);
2545          base[2]= VV[104];          base[2]= VV[104];
2546          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2547          (void) (*Lnk389)();          (void) (*Lnk389)();
2548          vs_top=sup;          vs_top=sup;
2549          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2550          goto T760;}          goto T761;}
2551          {object V363;          {object V364;
2552          base[4]= (V360);          base[4]= (V361);
2553          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2554          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
2555          vs_top=sup;          vs_top=sup;
2556          V363= vs_base[0];          V364= vs_base[0];
2557          base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V363)));          base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V364)));
2558          base[2]=MMcons(base[2],base[0]);          base[2]=MMcons(base[2],base[0]);
2559          base[3]= (*(LnkLI395))((V363));          base[3]= (*(LnkLI395))((V364));
2560          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
2561          {object V364 =          {object V365 =
2562          make_cclosure_new(LC130,Cnil,base[3],Cdata);          make_cclosure_new(LC130,Cnil,base[3],Cdata);
2563          VMR33(V364)}}          VMR33(V365)}}
2564          goto T760;          goto T761;
2565  T760:;  T761:;
2566          base[1]= (V362);          base[1]= (V363);
2567          base[2]= VV[95];          base[2]= VV[95];
2568          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2569          (void) (*Lnk389)();          (void) (*Lnk389)();
2570          vs_top=sup;          vs_top=sup;
2571          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2572          goto T769;}          goto T770;}
2573          {object V365 =          {object V366 =
2574          make_cclosure_new(LC131,Cnil,base[0],Cdata);          make_cclosure_new(LC131,Cnil,base[0],Cdata);
2575          VMR33(V365)}          VMR33(V366)}
2576          goto T769;          goto T770;
2577  T769:;  T770:;
2578          base[1]= (V362);          base[1]= (V363);
2579          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2580          Lfunctionp();          Lfunctionp();
2581          vs_top=sup;          vs_top=sup;
2582          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2583          goto T774;}          goto T775;}
2584          {object V366 = (base[0]->c.c_car);          {object V367 = (base[0]->c.c_car);
2585          VMR33(V366)}          VMR33(V367)}
2586          goto T774;          goto T775;
2587  T774:;  T775:;
2588          base[2]= VV[153];          base[2]= VV[153];
2589          base[3]= (V362);          base[3]= (V363);
2590          base[4]= VV[156];          base[4]= VV[156];
2591          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2592          (void) (*Lnk392)();          (void) (*Lnk392)();
# Line 2596  T774:; Line 2595  T774:;
2595          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2596          Lerror();          Lerror();
2597          vs_top=sup;          vs_top=sup;
2598          {object V367 = vs_base[0];          {object V368 = vs_base[0];
2599          VMR33(V367)}}          VMR33(V368)}}
2600          base[0]=base[0];          base[0]=base[0];
2601          return Cnil;          return Cnil;
2602  }  }
# Line 2609  static void L37() Line 2608  static void L37()
2608          vs_check;          vs_check;
2609          check_arg(2);          check_arg(2);
2610          vs_top=sup;          vs_top=sup;
2611          {object V368=base[0]->c.c_cdr;          {object V369=base[0]->c.c_cdr;
         if(endp(V368))invalid_macro_call();  
         {object V369= (V368->c.c_car);  
         if(endp(V369))invalid_macro_call();  
         base[2]= (V369->c.c_car);  
         V369=V369->c.c_cdr;  
2612          if(endp(V369))invalid_macro_call();          if(endp(V369))invalid_macro_call();
2613          base[3]= (V369->c.c_car);          {object V370= (V369->c.c_car);
2614            if(endp(V370))invalid_macro_call();
2615            base[2]= (V370->c.c_car);
2616            V370=V370->c.c_cdr;
2617            if(endp(V370))invalid_macro_call();
2618            base[3]= (V370->c.c_car);
2619            V370=V370->c.c_cdr;
2620            if(endp(V370))invalid_macro_call();
2621            base[4]= (V370->c.c_car);
2622            V370=V370->c.c_cdr;
2623            if(!endp(V370))invalid_macro_call();}
2624          V369=V369->c.c_cdr;          V369=V369->c.c_cdr;
2625          if(endp(V369))invalid_macro_call();          base[5]= V369;}
2626          base[4]= (V369->c.c_car);          V371= list(2,VV[1],base[4]);
2627          V369=V369->c.c_cdr;          V372= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]);
2628          if(!endp(V369))invalid_macro_call();}          V373= listA(4,VV[32],VV[163],list(2,VV[1],base[4]),VV[164]);
2629          V368=V368->c.c_cdr;          V374= list(2,VV[1],base[4]);
2630          base[5]= V368;}          V375= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));
2631          V370= list(2,VV[1],base[4]);          V376= list(2,VV[1],base[2]);
         V371= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]);  
         V372= listA(4,VV[31],VV[163],list(2,VV[1],base[4]),VV[164]);  
         V373= list(2,VV[1],base[4]);  
         V374= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));  
         V375= list(2,VV[1],base[2]);  
2632          if((base[3])==Cnil){          if((base[3])==Cnil){
2633          goto T783;}          goto T784;}
2634          V376= make_cons(base[3],Cnil);          V377= make_cons(base[3],Cnil);
2635          goto T781;          goto T782;
2636          goto T783;          goto T784;
2637  T783:;  T784:;
2638          V376= Cnil;          V377= Cnil;
2639          goto T781;          goto T782;
2640  T781:;  T782:;
2641          V377= list(2,VV[165],list(5,VV[31],VV[166],/* INLINE-ARGS */V373,/* INLINE-ARGS */V374,list(3,VV[167],/* INLINE-ARGS */V375,list(2,VV[1],V376))));          V378= list(2,VV[165],list(5,VV[32],VV[166],/* INLINE-ARGS */V374,/* INLINE-ARGS */V375,list(3,VV[167],/* INLINE-ARGS */V376,list(2,VV[1],V377))));
2642          V378= make_cons(/* INLINE-ARGS */V377,Cnil);          V379= make_cons(/* INLINE-ARGS */V378,Cnil);
2643          V379= list(2,VV[1],base[2]);          V380= list(2,VV[1],base[2]);
2644          if((base[3])==Cnil){          if((base[3])==Cnil){
2645          goto T787;}          goto T788;}
2646          V380= list(2,VV[170],base[3]);          V381= list(2,VV[170],base[3]);
2647          goto T785;          goto T786;
2648          goto T787;          goto T788;
2649  T787:;  T788:;
2650          V380= Cnil;          V381= Cnil;
2651          goto T785;          goto T786;
2652  T785:;  T786:;
2653          V381= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V370,list(4,VV[130],/* INLINE-ARGS */V371,/* INLINE-ARGS */V372,list(3,VV[96],/* INLINE-ARGS */V378,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V379,list(2,VV[1],V380)),VV[92]),VV[165]),VV[165]))),VV[171]));          V382= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V371,list(4,VV[130],/* INLINE-ARGS */V372,/* INLINE-ARGS */V373,list(3,VV[96],/* INLINE-ARGS */V379,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V380,list(2,VV[1],V381)),VV[92]),VV[165]),VV[165]))),VV[171]));
2654          base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V381,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]);          base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V382,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]);
2655          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2656          return;          return;
2657  }  }
# Line 2664  static void L38() Line 2663  static void L38()
2663          vs_check;          vs_check;
2664          check_arg(2);          check_arg(2);
2665          vs_top=sup;          vs_top=sup;
2666          {object V382=base[0]->c.c_cdr;          {object V383=base[0]->c.c_cdr;
2667          if(endp(V382))invalid_macro_call();          if(endp(V383))invalid_macro_call();
2668          {object V383= (V382->c.c_car);          {object V384= (V383->c.c_car);
2669          {object V384=getf(V383,VV[68],OBJNULL);          {object V385=getf(V384,VV[68],OBJNULL);
2670          if(V384==OBJNULL){          if(V385==OBJNULL){
2671          base[2]= Cnil;          base[2]= Cnil;
2672          } else {          } else {
2673          base[2]= V384;}}          base[2]= V385;}}
2674          {object V385=getf(V383,VV[69],OBJNULL);          {object V386=getf(V384,VV[69],OBJNULL);
2675          if(V385==OBJNULL){          if(V386==OBJNULL){
2676          base[3]= Cnil;          base[3]= Cnil;
2677          } else {          } else {
2678          base[3]= V385;}}          base[3]= V386;}}
2679          {object V386=getf(V383,VV[70],OBJNULL);          {object V387=getf(V384,VV[70],OBJNULL);
2680          if(V386==OBJNULL){          if(V387==OBJNULL){
2681          base[4]= Cnil;          base[4]= Cnil;
2682          } else {          } else {
2683          base[4]= V386;}}          base[4]= V387;}}
2684          {object V387=getf(V383,VV[71],OBJNULL);          {object V388=getf(V384,VV[71],OBJNULL);
2685          if(V387==OBJNULL){          if(V388==OBJNULL){
2686          base[5]= Cnil;          base[5]= Cnil;
2687          } else {          } else {
2688          base[5]= V387;}}          base[5]= V388;}}
2689          check_other_key(V383,4,VV[68],VV[69],VV[70],VV[71]);}          check_other_key(V384,4,VV[68],VV[69],VV[70],VV[71]);}
2690          V382=V382->c.c_cdr;          V383=V383->c.c_cdr;
2691          base[6]= V382;}          base[6]= V383;}
2692          if((base[2])!=Cnil){          if((base[2])!=Cnil){
2693          goto T794;}          goto T795;}
2694          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2695          goto T794;}          goto T795;}
2696          if((base[4])!=Cnil){          if((base[4])!=Cnil){
2697          goto T794;}          goto T795;}
2698          if((base[5])!=Cnil){          if((base[5])!=Cnil){
2699          goto T794;}          goto T795;}
2700          base[7]= listA(3,VV[96],Cnil,base[6]);          base[7]= listA(3,VV[96],Cnil,base[6]);
2701          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2702          return;          return;
2703          goto T794;          goto T795;
2704  T794:;  T795:;
2705          if((base[4])!=Cnil){          if((base[4])!=Cnil){
2706          goto T803;}          goto T804;}
2707          if((base[5])!=Cnil){          if((base[5])!=Cnil){
2708          goto T803;}          goto T804;}
2709          base[7]= list(2,VV[77],listA(3,VV[76],VV[175],base[6]));          base[7]= list(2,VV[77],listA(3,VV[76],VV[175],base[6]));
2710          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2711          return;          return;
2712          goto T803;          goto T804;
2713  T803:;  T804:;
2714          if(base[2]==Cnil){          if(base[2]==Cnil){
         V388= Cnil;  
         goto T807;}  
         V388= VV[177];  
         goto T807;  
 T807:;  
         if(base[3]==Cnil){  
2715          V389= Cnil;          V389= Cnil;
2716          goto T808;}          goto T808;}
2717          V389= VV[178];          V389= VV[177];
2718          goto T808;          goto T808;
2719  T808:;  T808:;
2720          base[7]= list(2,VV[77],listA(3,VV[176],append(V388,V389),base[6]));          if(base[3]==Cnil){
2721            V390= Cnil;
2722            goto T809;}
2723            V390= VV[178];
2724            goto T809;
2725    T809:;
2726            base[7]= list(2,VV[77],listA(3,VV[176],append(V389,V390),base[6]));
2727          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2728          return;          return;
2729  }  }
# Line 2736  static void L39() Line 2735  static void L39()
2735          vs_check;          vs_check;
2736          check_arg(2);          check_arg(2);
2737          vs_top=sup;          vs_top=sup;
2738          {object V390=base[0]->c.c_cdr;          {object V391=base[0]->c.c_cdr;
         if(endp(V390))invalid_macro_call();  
         {object V391= (V390->c.c_car);  
         if(endp(V391))invalid_macro_call();  
         base[2]= (V391->c.c_car);  
         V391=V391->c.c_cdr;  
2739          if(endp(V391))invalid_macro_call();          if(endp(V391))invalid_macro_call();
2740          base[3]= (V391->c.c_car);          {object V392= (V391->c.c_car);
2741            if(endp(V392))invalid_macro_call();
2742            base[2]= (V392->c.c_car);
2743            V392=V392->c.c_cdr;
2744            if(endp(V392))invalid_macro_call();
2745            base[3]= (V392->c.c_car);
2746            V392=V392->c.c_cdr;
2747            if(!endp(V392))invalid_macro_call();}
2748          V391=V391->c.c_cdr;          V391=V391->c.c_cdr;
2749          if(!endp(V391))invalid_macro_call();}          base[4]= V391;}
         V390=V390->c.c_cdr;  
         base[4]= V390;}  
2750          base[5]= VV[179];          base[5]= VV[179];
2751          base[6]= VV[180];          base[6]= VV[180];
2752          base[7]= VV[181];          base[7]= VV[181];
         {object V392;  
2753          {object V393;          {object V393;
2754          object V394= base[2];          {object V394;
2755          if(V394==Cnil){          object V395= base[2];
2756          V392= Cnil;          if(V395==Cnil){
2757          goto T809;}          V393= Cnil;
2758          base[8]=V393=MMcons(Cnil,Cnil);          goto T810;}
2759          goto T810;          base[8]=V394=MMcons(Cnil,Cnil);
2760  T810:;          goto T811;
2761          base[9]= (V394->c.c_car);  T811:;
2762            base[9]= (V395->c.c_car);
2763          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2764          L40(base);          L40(base);
2765          vs_top=sup;          vs_top=sup;
2766          (V393->c.c_cdr)= vs_base[0];          (V394->c.c_cdr)= vs_base[0];
2767          while(MMcdr(V393)!=Cnil)V393=MMcdr(V393);          while(MMcdr(V394)!=Cnil)V394=MMcdr(V394);
2768          if((V394=MMcdr(V394))==Cnil){          if((V395=MMcdr(V395))==Cnil){
2769          base[8]=base[8]->c.c_cdr;          base[8]=base[8]->c.c_cdr;
2770          V392= base[8];          V393= base[8];
         goto T809;}  
2771          goto T810;}          goto T810;}
2772          goto T809;          goto T811;}
2773  T809:;          goto T810;
2774          V395= list(2,base[5],base[3]);  T810:;
2775          V396= make_cons(/* INLINE-ARGS */V395,(V392));          V396= list(2,base[5],base[3]);
2776          if(((V392))!=Cnil){          V397= make_cons(/* INLINE-ARGS */V396,(V393));
2777          goto T815;}          if(((V393))!=Cnil){
2778          V398= list(2,VV[46],list(2,VV[182],base[5]));          goto T816;}
2779          V397= make_cons(/* INLINE-ARGS */V398,Cnil);          V399= list(2,VV[46],list(2,VV[182],base[5]));
2780          goto T813;          V398= make_cons(/* INLINE-ARGS */V399,Cnil);
2781          goto T815;          goto T814;
2782  T815:;          goto T816;
2783          V397= Cnil;  T816:;
2784          goto T813;          V398= Cnil;
2785  T813:;          goto T814;
2786          base[8]= listA(3,VV[125],/* INLINE-ARGS */V396,append(V397,base[4]));  T814:;
2787            base[8]= listA(3,VV[125],/* INLINE-ARGS */V397,append(V398,base[4]));
2788          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2789          return;}          return;}
2790  }  }
2791  /*      local entry for function GET-KEY-ARG    */  /*      local entry for function GET-KEY-ARG    */
2792    
2793  static object LI41(V401,V402)  static object LI41(V402,V403)
2794    
2795  register object V401;register object V402;  register object V402;register object V403;
2796  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2797          goto TTL;          goto TTL;
2798  TTL:;  TTL:;
2799          goto T818;          goto T819;
2800  T818:;  T819:;
2801          if(!(type_of((V402))!=t_cons)){          if(!(type_of((V403))!=t_cons)){
2802          goto T820;}          goto T821;}
2803          {object V403 = Cnil;          {object V404 = Cnil;
         VMR37(V403)}  
         goto T820;  
 T820:;  
         if(!((CMPcar((V402)))==((V401)))){  
         goto T823;}  
         {object V404 = CMPcadr((V402));  
2804          VMR37(V404)}          VMR37(V404)}
2805          goto T823;          goto T821;
2806  T823:;  T821:;
2807          V402= CMPcddr((V402));          if(!((CMPcar((V403)))==((V402)))){
2808          goto T818;          goto T824;}
2809            {object V405 = CMPcadr((V403));
2810            VMR37(V405)}
2811            goto T824;
2812    T824:;
2813            V403= CMPcddr((V403));
2814            goto T819;
2815          return Cnil;          return Cnil;
2816  }  }
2817  /*      local entry for function GET-KEY-ARG1   */  /*      local entry for function GET-KEY-ARG1   */
2818    
2819  static object LI42(V407,V408)  static object LI42(V408,V409)
2820    
2821  register object V407;register object V408;  register object V408;register object V409;
2822  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2823          goto TTL;          goto TTL;
2824  TTL:;  TTL:;
2825          goto T829;          goto T830;
2826  T829:;  T830:;
2827          if(!(type_of((V408))!=t_cons)){          if(!(type_of((V409))!=t_cons)){
2828          goto T831;}          goto T832;}
2829          {object V409 = Cnil;          {object V410 = Cnil;
         VMR38(V409)}  
         goto T831;  
 T831:;  
         if(!((CMPcar((V408)))==((V407)))){  
         goto T834;}  
         {object V410 = CMPcdr((V408));  
2830          VMR38(V410)}          VMR38(V410)}
2831          goto T834;          goto T832;
2832  T834:;  T832:;
2833          V408= CMPcddr((V408));          if(!((CMPcar((V409)))==((V408)))){
2834          goto T829;          goto T835;}
2835            {object V411 = CMPcdr((V409));
2836            VMR38(V411)}
2837            goto T835;
2838    T835:;
2839            V409= CMPcddr((V409));
2840            goto T830;
2841          return Cnil;          return Cnil;
2842  }  }
2843  /*      function definition for WALK-METHOD-LAMBDA      */  /*      function definition for WALK-METHOD-LAMBDA      */
# Line 2847  static void L43() Line 2846  static void L43()
2846  {register object *base=vs_base;  {register object *base=vs_base;
2847          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2848          vs_check;          vs_check;
2849          {object V411;          {object V412;
2850          object V412;          object V413;
2851          check_arg(5);          check_arg(5);
2852          V411=(base[0]);          V412=(base[0]);
2853          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2854          V412=(base[2]);          V413=(base[2]);
2855          base[3]=MMcons(base[3],base[1]);          base[3]=MMcons(base[3],base[1]);
2856          base[4]=MMcons(base[4],base[3]);          base[4]=MMcons(base[4],base[3]);
2857          vs_top=sup;          vs_top=sup;
# Line 2861  static void L43() Line 2860  static void L43()
2860          base[7]=MMcons(Cnil,base[6]);          base[7]=MMcons(Cnil,base[6]);
2861          base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata);          base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata);
2862          base[8]=MMcons(base[8],base[7]);          base[8]=MMcons(base[8],base[7]);
2863          {object V413;          {object V414;
2864          base[9]= (V411);          base[9]= (V412);
2865          base[10]= (V412);          base[10]= (V413);
2866          base[11]= (base[8]->c.c_car);          base[11]= (base[8]->c.c_car);
2867          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
2868          (void) (*Lnk396)();          (void) (*Lnk396)();
2869          vs_top=sup;          vs_top=sup;
2870          V413= vs_base[0];          V414= vs_base[0];
2871          base[9]= (V413);          base[9]= (V414);
2872          base[10]= (base[5]->c.c_car);          base[10]= (base[5]->c.c_car);
2873          base[11]= (base[6]->c.c_car);          base[11]= (base[6]->c.c_car);
2874          base[12]= (base[7]->c.c_car);          base[12]= (base[7]->c.c_car);
# Line 2883  static void L45() Line 2882  static void L45()
2882  {register object *base=vs_base;  {register object *base=vs_base;
2883          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2884          vs_check;          vs_check;
2885          {register object V414;          {register object V415;
2886          check_arg(1);          check_arg(1);
2887          V414=(base[0]);          V415=(base[0]);
2888          vs_top=sup;          vs_top=sup;
2889          goto TTL;          goto TTL;
2890  TTL:;  TTL:;
2891          if(!(type_of((V414))==t_symbol)){          if(!(type_of((V415))==t_symbol)){
2892          goto T849;}          goto T850;}
2893          goto T847;          goto T848;
2894            goto T850;
2895    T850:;
2896            if(type_of((V415))==t_cons){
2897            goto T852;}
2898            goto T849;
2899            goto T852;
2900    T852:;
2901            if((CMPcar((V415)))==(VV[30])){
2902            goto T854;}
2903            goto T849;
2904            goto T854;
2905    T854:;
2906            if(type_of(CMPcdr((V415)))==t_cons){
2907            goto T856;}
2908            goto T849;
2909            goto T856;
2910    T856:;
2911            if(type_of(CMPcadr((V415)))==t_symbol){
2912            goto T858;}
2913            goto T849;
2914            goto T858;
2915    T858:;
2916            if((CMPcddr((V415)))==Cnil){
2917            goto T848;}
2918          goto T849;          goto T849;
2919  T849:;  T849:;
         if(type_of((V414))==t_cons){  
         goto T851;}  
         goto T848;  
         goto T851;  
 T851:;  
         if((CMPcar((V414)))==(VV[29])){  
         goto T853;}  
         goto T848;  
         goto T853;  
 T853:;  
         if(type_of(CMPcdr((V414)))==t_cons){  
         goto T855;}  
         goto T848;  
         goto T855;  
 T855:;  
         if(type_of(CMPcadr((V414)))==t_symbol){  
         goto T857;}  
         goto T848;  
         goto T857;  
 T857:;  
         if((CMPcddr((V414)))==Cnil){  
         goto T847;}  
         goto T848;  
 T848:;  
2920          base[1]= Cnil;          base[1]= Cnil;
2921          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2922          return;          return;
2923          goto T847;          goto T848;
2924  T847:;  T848:;
2925          if(((*(LnkLI355))((V414)))!=Cnil){          if(((*(LnkLI355))((V415)))!=Cnil){
2926          goto T859;}          goto T860;}
2927          base[1]= Cnil;          base[1]= Cnil;
2928          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2929          return;          return;
2930          goto T859;          goto T860;
2931  T859:;  T860:;
2932          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
2933          goto T862;}          goto T863;}
2934          base[1]= (*(LnkLI356))((V414));          base[1]= (*(LnkLI356))((V415));
2935          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2936          (void) (*Lnk397)(Lclptr397);          (void) (*Lnk397)(Lclptr397);
2937          return;          return;
2938          goto T862;          goto T863;
2939  T862:;{object V415;  T863:;{object V416;
2940          V415= (VV[147]->s.s_dbind);          V416= (VV[147]->s.s_dbind);
2941          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
2942          base[2]= (*(LnkLI356))((V414));          base[2]= (*(LnkLI356))((V415));
2943          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2944          (void) (*Lnk390)();          (void) (*Lnk390)();
2945          vs_top=sup;          vs_top=sup;
2946          V416= vs_base[0];          V417= vs_base[0];
2947          base[1]= ((V415)==(CMPcar(V416))?Ct:Cnil);          base[1]= ((V416)==(CMPcar(V417))?Ct:Cnil);
2948          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2949          return;}          return;}
2950          }          }
2951  }  }
2952  /*      local entry for function MAKE-PARAMETER-REFERENCES      */  /*      local entry for function MAKE-PARAMETER-REFERENCES      */
2953    
2954  static object LI48(V422,V423,V424,V425,V426)  static object LI48(V423,V424,V425,V426,V427)
2955    
2956  object V422;object V423;object V424;object V425;object V426;  object V423;object V424;object V425;object V426;object V427;
2957  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2958          goto TTL;          goto TTL;
2959  TTL:;  TTL:;
2960          base[0]= (V424);          base[0]= (V425);
2961          {object V427;          {object V428;
2962          register object V428;          register object V429;
         V427= Cnil;  
2963          V428= Cnil;          V428= Cnil;
2964          {register object V429;          V429= Cnil;
2965          register object V430;          {register object V430;
2966          register object V431;          register object V431;
2967          object V432;          register object V432;
2968          V429= (V422);          object V433;
2969          V430= Cnil;          V430= (V423);
2970          V431= (V423);          V431= Cnil;
2971          V432= Cnil;          V432= (V424);
2972          goto T876;          V433= Cnil;
2973  T876:;          goto T877;
2974          {object V433;  T877:;
         if(!(((V429))==Cnil)){  
         goto T882;}  
         goto T870;  
         goto T882;  
 T882:;  
         V433= CMPcar((V429));  
         V429= CMPcdr((V429));  
         V430= (V433);}  
2975          {object V434;          {object V434;
2976          if(!(((V431))==Cnil)){          if(!(((V430))==Cnil)){
2977          goto T890;}          goto T883;}
2978          goto T870;          goto T871;
2979          goto T890;          goto T883;
2980  T890:;  T883:;
2981          V434= CMPcar((V431));          V434= CMPcar((V430));
2982          V431= CMPcdr((V431));          V430= CMPcdr((V430));
2983          V432= (V434);}          V431= (V434);}
2984          {object V435;          {object V435;
2985          V435= (((type_of((V430))==t_cons||((V430))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          if(!(((V432))==Cnil)){
2986          if(((V435))==Cnil){          goto T891;}
2987          goto T897;}          goto T871;
2988          goto T877;          goto T891;
2989          goto T897;  T891:;
2990  T897:;          V435= CMPcar((V432));
2991          base[1]= CMPcar((V430));          V432= CMPcdr((V432));
2992            V433= (V435);}
2993            {object V436;
2994            V436= (((type_of((V431))==t_cons||((V431))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
2995            if(((V436))==Cnil){
2996            goto T898;}
2997            goto T878;
2998            goto T898;
2999    T898:;
3000            base[1]= CMPcar((V431));
3001          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3002          L49(base);          L49(base);
3003          vs_top=sup;          vs_top=sup;
3004          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3005          goto T900;}          goto T901;}
3006          base[1]= VV[201];          base[1]= VV[201];
3007          base[2]= (V425);          base[2]= (V426);
3008          base[3]= (V426);          base[3]= (V427);
3009          base[4]= CMPcar((V430));          base[4]= CMPcar((V431));
3010          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3011          (void) (*Lnk398)();          (void) (*Lnk398)();
3012          vs_top=sup;          vs_top=sup;
3013          goto T877;          goto T878;
3014          goto T900;          goto T901;
3015  T900:;  T901:;
3016          {object V436;          {object V437;
3017          V436= CMPcar((V430));          V437= CMPcar((V431));
3018          if(((V427))!=Cnil){          if(((V428))!=Cnil){
3019          goto T909;}          goto T910;}
3020          V428= make_cons((V436),Cnil);          V429= make_cons((V437),Cnil);
3021          V427= (V428);          V428= (V429);
3022          goto T877;          goto T878;
3023          goto T909;          goto T910;
3024  T909:;  T910:;
3025          V438= make_cons((V436),Cnil);          V439= make_cons((V437),Cnil);
3026          ((V428))->c.c_cdr = /* INLINE-ARGS */V438;          ((V429))->c.c_cdr = /* INLINE-ARGS */V439;
3027          V437= (V428);          V438= (V429);
3028          V428= CMPcdr(V437);}}          V429= CMPcdr(V438);}}
3029          goto T877;          goto T878;
3030  T877:;  T878:;
3031          goto T876;}          goto T877;}
3032          goto T870;          goto T871;
3033  T870:;  T871:;
3034          {object V439 = (V427);          {object V440 = (V428);
3035          VMR41(V439)}}          VMR41(V440)}}
3036          base[0]=base[0];          base[0]=base[0];
3037          return Cnil;          return Cnil;
3038  }  }
3039  /*      local entry for function METHOD-FUNCTION-PLIST  */  /*      local entry for function METHOD-FUNCTION-PLIST  */
3040    
3041  static object LI50(V441)  static object LI50(V442)
3042    
3043  register object V441;  register object V442;
3044  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
3045          goto TTL;          goto TTL;
3046  TTL:;  TTL:;
3047          if(((V441))==((VV[202]->s.s_dbind))){          if(((V442))==((VV[202]->s.s_dbind))){
3048          goto T916;}          goto T917;}
3049          {object V442;          {object V443;
3050          object V443;          object V444;
3051          V442= (VV[203]->s.s_dbind);          V443= (VV[203]->s.s_dbind);
3052          V443= (VV[202]->s.s_dbind);          V444= (VV[202]->s.s_dbind);
3053          (VV[202]->s.s_dbind)= (V442);          (VV[202]->s.s_dbind)= (V443);
3054          (VV[203]->s.s_dbind)= (V443);}          (VV[203]->s.s_dbind)= (V444);}
3055          {object V444;          {object V445;
3056          object V445;          object V446;
3057          V444= (VV[204]->s.s_dbind);          V445= (VV[204]->s.s_dbind);
3058          V445= (VV[205]->s.s_dbind);          V446= (VV[205]->s.s_dbind);
3059          (VV[205]->s.s_dbind)= (V444);          (VV[205]->s.s_dbind)= (V445);
3060          (VV[204]->s.s_dbind)= (V445);}          (VV[204]->s.s_dbind)= (V446);}
3061          {object V446;          {object V447;
3062          object V447;          object V448;
3063          V446= (VV[206]->s.s_dbind);          V447= (VV[206]->s.s_dbind);
3064          V447= (VV[207]->s.s_dbind);          V448= (VV[207]->s.s_dbind);
3065          (VV[207]->s.s_dbind)= (V446);          (VV[207]->s.s_dbind)= (V447);
3066          (VV[206]->s.s_dbind)= (V447);}          (VV[206]->s.s_dbind)= (V448);}
3067          goto T916;          goto T917;
3068  T916:;  T917:;
3069          if(((V441))==((VV[202]->s.s_dbind))){          if(((V442))==((VV[202]->s.s_dbind))){
3070          goto T939;}          goto T940;}
3071          if(((VV[207]->s.s_dbind))==Cnil){          if(((VV[207]->s.s_dbind))==Cnil){
3072          goto T939;}          goto T940;}
3073          {object V448;          {object V449;
         object V449;  
3074          object V450;          object V450;
3075          V448= (VV[202]->s.s_dbind);          object V451;
3076          V449= (VV[208]->s.s_dbind);          V449= (VV[202]->s.s_dbind);
3077          V450= (VV[205]->s.s_dbind);          V450= (VV[208]->s.s_dbind);
3078          base[0]= (V448);          V451= (VV[205]->s.s_dbind);
3079          base[1]= (V449);          base[0]= (V449);
3080          base[2]= (V450);          base[1]= (V450);
3081            base[2]= (V451);
3082          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3083          siLhash_set();          siLhash_set();
3084          vs_top=sup;}          vs_top=sup;}
3085          goto T939;          goto T940;
3086  T939:;  T940:;
3087          if(((V441))==((VV[202]->s.s_dbind))){          if(((V442))==((VV[202]->s.s_dbind))){
3088          goto T950;}          goto T951;}
3089          (VV[202]->s.s_dbind)= (V441);          (VV[202]->s.s_dbind)= (V442);
3090          (VV[207]->s.s_dbind)= Cnil;          (VV[207]->s.s_dbind)= Cnil;
3091          base[0]= (V441);          base[0]= (V442);
3092          base[1]= (VV[208]->s.s_dbind);          base[1]= (VV[208]->s.s_dbind);
3093          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3094          Lgethash();          Lgethash();
3095          vs_top=sup;          vs_top=sup;
3096          (VV[205]->s.s_dbind)= vs_base[0];          (VV[205]->s.s_dbind)= vs_base[0];
3097          goto T950;          goto T951;
3098  T950:;  T951:;
3099          {object V451 = (VV[205]->s.s_dbind);          {object V452 = (VV[205]->s.s_dbind);
3100          VMR42(V451)}          VMR42(V452)}
3101          base[0]=base[0];          base[0]=base[0];
3102          return Cnil;          return Cnil;
3103  }  }
3104  /*      local entry for function SETF PCL METHOD-FUNCTION-PLIST */  /*      local entry for function SETF PCL METHOD-FUNCTION-PLIST */
3105    
3106  static object LI51(V454,V455)  static object LI51(V455,V456)
3107    
3108  object V454;object V455;  object V455;object V456;
3109  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
3110          goto TTL;          goto TTL;
3111  TTL:;  TTL:;
3112          if(((V455))==((VV[202]->s.s_dbind))){          if(((V456))==((VV[202]->s.s_dbind))){
3113          goto T960;}          goto T961;}
3114          {object V456;          {object V457;
3115          object V457;          object V458;
3116          V456= (VV[203]->s.s_dbind);          V457= (VV[203]->s.s_dbind);
3117          V457= (VV[202]->s.s_dbind);          V458= (VV[202]->s.s_dbind);
3118          (VV[202]->s.s_dbind)= (V456);          (VV[202]->s.s_dbind)= (V457);
3119          (VV[203]->s.s_dbind)= (V457);}          (VV[203]->s.s_dbind)= (V458);}
3120          {object V458;          {object V459;
3121          object V459;          object V460;
3122          V458= (VV[206]->s.s_dbind);          V459= (VV[206]->s.s_dbind);
3123          V459= (VV[207]->s.s_dbind);          V460= (VV[207]->s.s_dbind);
3124          (VV[207]->s.s_dbind)= (V458);          (VV[207]->s.s_dbind)= (V459);
3125          (VV[206]->s.s_dbind)= (V459);}          (VV[206]->s.s_dbind)= (V460);}
3126          {object V460;          {object V461;
3127          object V461;          object V462;
3128          V460= (VV[204]->s.s_dbind);          V461= (VV[204]->s.s_dbind);
3129          V461= (VV[205]->s.s_dbind);          V462= (VV[205]->s.s_dbind);
3130          (VV[205]->s.s_dbind)= (V460);          (VV[205]->s.s_dbind)= (V461);
3131          (VV[204]->s.s_dbind)= (V461);}          (VV[204]->s.s_dbind)= (V462);}
3132          goto T960;          goto T961;
3133  T960:;  T961:;
3134          if(((V455))==((VV[202]->s.s_dbind))){          if(((V456))==((VV[202]->s.s_dbind))){
3135          goto T983;}          goto T984;}
3136          if(((VV[207]->s.s_dbind))==Cnil){          if(((VV[207]->s.s_dbind))==Cnil){
3137          goto T983;}          goto T984;}
3138          {object V462;          {object V463;
         object V463;  
3139          object V464;          object V464;
3140          V462= (VV[202]->s.s_dbind);          object V465;
3141          V463= (VV[208]->s.s_dbind);          V463= (VV[202]->s.s_dbind);
3142          V464= (VV[205]->s.s_dbind);          V464= (VV[208]->s.s_dbind);
3143          base[0]= (V462);          V465= (VV[205]->s.s_dbind);
3144          base[1]= (V463);          base[0]= (V463);
3145          base[2]= (V464);          base[1]= (V464);
3146            base[2]= (V465);
3147          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3148          siLhash_set();          siLhash_set();
3149          vs_top=sup;}          vs_top=sup;}
3150          goto T983;          goto T984;
3151  T983:;  T984:;
3152          (VV[202]->s.s_dbind)= (V455);          (VV[202]->s.s_dbind)= (V456);
3153          (VV[207]->s.s_dbind)= Ct;          (VV[207]->s.s_dbind)= Ct;
3154          (VV[205]->s.s_dbind)= (V454);          (VV[205]->s.s_dbind)= (V455);
3155          {object V465 = (VV[205]->s.s_dbind);          {object V466 = (VV[205]->s.s_dbind);
3156          VMR43(V465)}          VMR43(V466)}
3157          base[0]=base[0];          base[0]=base[0];
3158          return Cnil;          return Cnil;
3159  }  }
3160  /*      local entry for function METHOD-FUNCTION-GET    */  /*      local entry for function METHOD-FUNCTION-GET    */
3161    
3162  static object LI52(object V467,object V466,object first,...)  static object LI52(object V468,object V467,object first,...)
3163  {        {      
3164          va_list ap;          va_list ap;
3165          int narg = VFUN_NARGS; VMB44 VMS44 VMV44          int narg = VFUN_NARGS; VMB44 VMS44 VMV44
3166          {object V468;          {object V469;
         object V469;  
3167          object V470;          object V470;
3168            object V471;
3169          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3170          va_start(ap,first);          va_start(ap,first);
3171          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3172          V468= V467;          V469= V468;
3173          V469= V466;          V470= V467;
3174          narg = narg - 2;          narg = narg - 2;
3175          if (narg <= 0) goto T999;          if (narg <= 0) goto T1000;
3176          else {          else {
3177          V470= first;}          V471= first;}
3178          --narg; goto T1000;          --narg; goto T1001;
         goto T999;  
 T999:;  
         V470= Cnil;  
3179          goto T1000;          goto T1000;
3180  T1000:;  T1000:;
3181          base[0]= (*(LnkLI399))((V468));          V471= Cnil;
3182          base[1]= (V469);          goto T1001;
3183          base[2]= (V470);  T1001:;
3184            base[0]= (*(LnkLI399))((V469));
3185            base[1]= (V470);
3186            base[2]= (V471);
3187          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3188          Lgetf();          Lgetf();
3189          vs_top=sup;          vs_top=sup;
3190          {object V471 = vs_base[0];          {object V472 = vs_base[0];
3191          VMR44(V471)}          VMR44(V472)}
3192          va_end(ap);          va_end(ap);
3193          base[0]=base[0];          base[0]=base[0];
3194          return Cnil;}          return Cnil;}
3195          }          }
3196  /*      local entry for function SETF PCL METHOD-FUNCTION-GET   */  /*      local entry for function SETF PCL METHOD-FUNCTION-GET   */
3197    
3198  static object LI53(V475,V476,V477)  static object LI53(V476,V477,V478)
3199    
3200  object V475;object V476;object V477;  object V476;object V477;object V478;
3201  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3202          goto TTL;          goto TTL;
3203  TTL:;  TTL:;
3204          {object V481;          {object V482;
3205          base[0]= (*(LnkLI399))(V476);          base[0]= (*(LnkLI399))(V477);
3206          base[1]= V475;          base[1]= V476;
3207          base[2]= V477;          base[2]= V478;
3208          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3209          siLput_f();          siLput_f();
3210          vs_top=sup;          vs_top=sup;
3211          V481= vs_base[0];          V482= vs_base[0];
3212          (void)((*(LnkLI400))((V481),V476));          (void)((*(LnkLI400))((V482),V477));
3213          {object V483 = V475;          {object V484 = V476;
3214          VMR45(V483)}}          VMR45(V484)}}
3215          base[0]=base[0];          base[0]=base[0];
3216          return Cnil;          return Cnil;
3217  }  }
3218  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */
3219    
3220  static object LI54(V485)  static object LI54(V486)
3221    
3222  object V485;  object V486;
3223  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3224          goto TTL;          goto TTL;
3225  TTL:;  TTL:;
3226          {object V486 = (VFUN_NARGS=2,(*(LnkLI211))((V485),VV[209]));          {object V487 = (VFUN_NARGS=2,(*(LnkLI211))((V486),VV[209]));
3227          VMR46(V486)}          VMR46(V487)}
3228          return Cnil;          return Cnil;
3229  }  }
3230  /*      local entry for function METHOD-FUNCTION-METHOD */  /*      local entry for function METHOD-FUNCTION-METHOD */
3231    
3232  static object LI55(V488)  static object LI55(V489)
3233    
3234  object V488;  object V489;
3235  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3236          goto TTL;          goto TTL;
3237  TTL:;  TTL:;
3238          {object V489 = (VFUN_NARGS=2,(*(LnkLI211))((V488),VV[210]));          {object V490 = (VFUN_NARGS=2,(*(LnkLI211))((V489),VV[210]));
3239          VMR47(V489)}          VMR47(V490)}
3240          return Cnil;          return Cnil;
3241  }  }
3242  /*      local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P   */  /*      local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P   */
3243    
3244  static object LI56(V491)  static object LI56(V492)
3245    
3246  object V491;  object V492;
3247  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3248          goto TTL;          goto TTL;
3249  TTL:;  TTL:;
3250          {object V492 = (VFUN_NARGS=3,(*(LnkLI211))((V491),VV[57],Ct));          {object V493 = (VFUN_NARGS=3,(*(LnkLI211))((V492),VV[57],Ct));
3251          VMR48(V492)}          VMR48(V493)}
3252          return Cnil;          return Cnil;
3253  }  }
3254  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */
# Line 3260  static void L57() Line 3259  static void L57()
3259          vs_check;          vs_check;
3260          check_arg(2);          check_arg(2);
3261          vs_top=sup;          vs_top=sup;
3262          {object V493=base[0]->c.c_cdr;          {object V494=base[0]->c.c_cdr;
3263          if(endp(V493))invalid_macro_call();          if(endp(V494))invalid_macro_call();
3264          base[2]= (V493->c.c_car);          base[2]= (V494->c.c_car);
3265          V493=V493->c.c_cdr;          V494=V494->c.c_cdr;
3266          if(!endp(V493))invalid_macro_call();}          if(!endp(V494))invalid_macro_call();}
3267          base[3]= list(3,VV[211],base[2],VV[212]);          base[3]= list(3,VV[211],base[2],VV[212]);
3268          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3269          return;          return;
3270  }  }
3271  /*      local entry for function LOAD-DEFMETHOD */  /*      local entry for function LOAD-DEFMETHOD */
3272    
3273  static object LI58(object V499,object V498,object V497,object V496,object V495,object V494,object first,...)  static object LI58(object V500,object V499,object V498,object V497,object V496,object V495,object first,...)
3274  {        {      
3275          va_list ap;          va_list ap;
3276          int narg = VFUN_NARGS; VMB50 VMS50 VMV50          int narg = VFUN_NARGS; VMB50 VMS50 VMV50
3277          {object V500;          {object V501;
3278          register object V501;          register object V502;
         object V502;  
3279          object V503;          object V503;
3280          object V504;          object V504;
3281          register object V505;          object V505;
3282          object V506;          register object V506;
3283            object V507;
3284          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3285          va_start(ap,first);          va_start(ap,first);
3286          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
3287          V500= V499;          V501= V500;
3288          V501= V498;          V502= V499;
3289          V502= V497;          V503= V498;
3290          V503= V496;          V504= V497;
3291          V504= V495;          V505= V496;
3292          V505= V494;          V506= V495;
3293          narg = narg - 6;          narg = narg - 6;
3294          if (narg <= 0) goto T1010;          if (narg <= 0) goto T1011;
3295          else {          else {
3296          V506= first;}          V507= first;}
3297          --narg; goto T1011;          --narg; goto T1012;
         goto T1010;  
 T1010:;  
         V506= Cnil;  
3298          goto T1011;          goto T1011;
3299  T1011:;  T1011:;
3300          if(!(type_of((V501))==t_cons||((V501))==Cnil)){          V507= Cnil;
3301          goto T1013;}          goto T1012;
3302          (void)((*(LnkLI348))(CMPcadr((V501))));  T1012:;
3303          goto T1013;          if(!(type_of((V502))==t_cons||((V502))==Cnil)){
3304  T1013:;          goto T1014;}
3305          base[0]= (V505);          (void)((*(LnkLI348))(CMPcadr((V502))));
3306            goto T1014;
3307    T1014:;
3308            base[0]= (V506);
3309          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3310          Lcopy_tree();          Lcopy_tree();
3311          vs_top=sup;          vs_top=sup;
3312          V505= vs_base[0];          V506= vs_base[0];
3313          {object V507;{object V508;          {object V508;{object V509;
3314          base[0]= (V505);          base[0]= (V506);
3315          base[1]= VV[213];          base[1]= VV[213];
3316          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3317          Lgetf();          Lgetf();
3318          vs_top=sup;          vs_top=sup;
3319          V508= vs_base[0];          V509= vs_base[0];
3320          if(V508==Cnil)goto T1020;          if(V509==Cnil)goto T1021;
3321          V507= V508;          V508= V509;
3322          goto T1019;          goto T1020;
3323            goto T1021;
3324    T1021:;}
3325            V508= (*(LnkLI401))((V502),(V503),(V504));
3326          goto T1020;          goto T1020;
3327  T1020:;}  T1020:;
3328          V507= (*(LnkLI401))((V501),(V502),(V503));          {object V512;
3329          goto T1019;          base[0]= (V506);
3330  T1019:;          base[1]= V508;
         {object V511;  
         base[0]= (V505);  
         base[1]= V507;  
3331          base[2]= VV[213];          base[2]= VV[213];
3332          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3333          siLput_f();          siLput_f();
3334          vs_top=sup;          vs_top=sup;
3335          V511= vs_base[0];          V512= vs_base[0];
3336          V505= (V511);}          V506= (V512);}
3337          (void)((VFUN_NARGS=2,(*(LnkLI402))(VV[36],(V507))));          (void)((VFUN_NARGS=2,(*(LnkLI402))(VV[37],(V508))));
3338          {object V512 = (*(LnkLI403))((V500),(V501),(V502),(V503),(V504),(V505),(V506));          {object V513 = (*(LnkLI403))((V501),(V502),(V503),(V504),(V505),(V506),(V507));
3339          VMR50(V512)}}          VMR50(V513)}}
3340          va_end(ap);          va_end(ap);
3341          base[0]=base[0];          base[0]=base[0];
3342          return Cnil;}          return Cnil;}
3343          }          }
3344  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */
3345    
3346  static object LI59(V520,V521,V522,V523,V524,V525,V526)  static object LI59(V521,V522,V523,V524,V525,V526,V527)
3347    
3348  object V520;register object V521;object V522;object V523;object V524;register object V525;object V526;  object V521;register object V522;object V523;object V524;object V525;register object V526;object V527;
3349  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3350          goto TTL;          goto TTL;
3351  TTL:;  TTL:;
3352          if(!(type_of((V521))==t_cons||((V521))==Cnil)){          if(!(type_of((V522))==t_cons||((V522))==Cnil)){
3353          goto T1032;}          goto T1033;}
3354          (void)((*(LnkLI348))(CMPcadr((V521))));          (void)((*(LnkLI348))(CMPcadr((V522))));
3355          goto T1032;          goto T1033;
3356  T1032:;  T1033:;
3357          if(((V526))==Cnil){          if(((V527))==Cnil){
3358          goto T1035;}          goto T1036;}
3359          {object V530;          {object V531;
3360          base[1]= (V525);          base[1]= (V526);
3361          base[2]= VV[27];          base[2]= VV[28];
3362          base[3]= Cnil;          base[3]= Cnil;
3363          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3364          Lgetf();          Lgetf();
3365          vs_top=sup;          vs_top=sup;
3366          base[0]= vs_base[0];          base[0]= vs_base[0];
3367          base[1]= V526;          base[1]= V527;
3368          base[2]= VV[28];          base[2]= VV[29];
3369          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3370          siLput_f();          siLput_f();
3371          vs_top=sup;          vs_top=sup;
3372          V530= vs_base[0];          V531= vs_base[0];
3373          {object V531;          {object V532;
3374          base[0]= (V525);          base[0]= (V526);
3375          base[1]= (V530);          base[1]= (V531);
3376          base[2]= VV[27];          base[2]= VV[28];
3377          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3378          siLput_f();          siLput_f();
3379          vs_top=sup;          vs_top=sup;
3380          V531= vs_base[0];          V532= vs_base[0];
3381          V525= (V531);}}          V526= (V532);}}
3382          goto T1035;          goto T1036;
3383  T1035:;  T1036:;
3384          {object V532;          {object V533;
3385          base[0]=VV[404]->s.s_gfdef;          base[0]=VV[404]->s.s_gfdef;
3386          base[1]= (V521);          base[1]= (V522);
3387          base[2]= (V522);          base[2]= (V523);
3388          base[3]= (V523);          base[3]= (V524);
3389          base[4]= (V524);          base[4]= (V525);
3390          base[5]= VV[15];          base[5]= VV[16];
3391          V534= make_cons((V523),Cnil);          V535= make_cons((V524),Cnil);
3392          V535= listA(3,VV[43],(V521),append((V522),/* INLINE-ARGS */V534));          V536= listA(3,VV[7],(V522),append((V523),/* INLINE-ARGS */V535));
3393          vs_base=vs_top;          vs_base=vs_top;
3394          (void) (*Lnk350)();          (void) (*Lnk350)();
3395          vs_top=sup;          vs_top=sup;
3396          V536= vs_base[0];          V537= vs_base[0];
3397          base[6]= list(2,/* INLINE-ARGS */V535,V536);          base[6]= list(2,/* INLINE-ARGS */V536,V537);
3398          {object V533;          {object V534;
3399          V533= (V525);          V534= (V526);
3400           vs_top=base+7;           vs_top=base+7;
3401           while(V533!=Cnil)           while(V534!=Cnil)
3402           {vs_push((V533)->c.c_car);V533=(V533)->c.c_cdr;}           {vs_push((V534)->c.c_car);V534=(V534)->c.c_cdr;}
3403          vs_base=base+1;}          vs_base=base+1;}
3404          funcall(base[0]);          funcall(base[0]);
3405          vs_top=sup;          vs_top=sup;
3406          V532= vs_base[0];          V533= vs_base[0];
3407          if(((V520))==(VV[19])){          if(((V521))==(VV[20])){
3408          goto T1061;}          goto T1062;}
3409          V537= (VFUN_NARGS=2,(*(LnkLI290))((V520),Cnil));          V538= (VFUN_NARGS=2,(*(LnkLI290))((V521),Cnil));
3410          V538= (*(LnkLI363))((V532));          V539= (*(LnkLI363))((V533));
3411          if((/* INLINE-ARGS */V537)==(/* INLINE-ARGS */V538)){          if((/* INLINE-ARGS */V538)==(/* INLINE-ARGS */V539)){
3412          goto T1061;}          goto T1062;}
3413          base[0]= (VV[214]->s.s_dbind);          base[0]= (VV[214]->s.s_dbind);
3414          base[1]= VV[215];          base[1]= VV[215];
3415          base[2]= (V522);          base[2]= (V523);
3416          base[3]= (V523);          base[3]= (V524);
3417          base[4]= (V521);          base[4]= (V522);
3418          base[5]= (V520);          base[5]= (V521);
3419          base[7]= (*(LnkLI363))((V532));          base[7]= (*(LnkLI363))((V533));
3420          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3421          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
3422          vs_top=sup;          vs_top=sup;
# Line 3425  T1035:; Line 3424  T1035:;
3424          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3425          Lformat();          Lformat();
3426          vs_top=sup;          vs_top=sup;
3427          goto T1061;          goto T1062;
3428  T1061:;  T1062:;
3429          {object V539 = (V532);          {object V540 = (V533);
3430          VMR51(V539)}}          VMR51(V540)}}
3431          base[0]=base[0];          base[0]=base[0];
3432          return Cnil;          return Cnil;
3433  }  }
3434  /*      local entry for function MAKE-METHOD-SPEC       */  /*      local entry for function MAKE-METHOD-SPEC       */
3435    
3436  static object LI60(V543,V544,V545)  static object LI60(V544,V545,V546)
3437    
3438  object V543;object V544;object V545;  object V544;object V545;object V546;
3439  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3440          goto TTL;          goto TTL;
3441  TTL:;  TTL:;
3442          V546= make_cons((V545),Cnil);          V547= make_cons((V546),Cnil);
3443          {object V547 = listA(3,VV[36],(V543),append((V544),/* INLINE-ARGS */V546));          {object V548 = listA(3,VV[37],(V544),append((V545),/* INLINE-ARGS */V547));
3444          VMR52(V547)}          VMR52(V548)}
3445          return Cnil;          return Cnil;
3446  }  }
3447  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */
3448    
3449  static object LI61(object V548,object first,...)  static object LI61(object V549,object first,...)
3450  {        {      
3451          va_list ap;          va_list ap;
3452          int narg = VFUN_NARGS; VMB53 VMS53 VMV53          int narg = VFUN_NARGS; VMB53 VMS53 VMV53
3453          {register object V549;          {register object V550;
         object V550;  
3454          object V551;          object V551;
3455            object V552;
3456          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3457          va_start(ap,first);          va_start(ap,first);
3458          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
3459          V549= V548;          V550= V549;
3460          narg = narg - 1;          narg = narg - 1;
3461          if (narg <= 0) goto T1074;          if (narg <= 0) goto T1075;
3462          else {          else {
3463          V550= first;}          V551= first;}
3464          if (--narg <= 0) goto T1075;          if (--narg <= 0) goto T1076;
3465          else {          else {
3466          V551= va_arg(ap,object);}          V552= va_arg(ap,object);}
3467          --narg; goto T1076;          --narg; goto T1077;
         goto T1074;  
 T1074:;  
         V550= Cnil;  
3468          goto T1075;          goto T1075;
3469  T1075:;  T1075:;
3470          V551= Cnil;          V551= Cnil;
3471          goto T1076;          goto T1076;
3472  T1076:;  T1076:;
3473          {register object V552;          V552= Cnil;
3474          register object V553;          goto T1077;
3475          object V554;  T1077:;
3476          register object V555;          {register object V553;
3477          base[5]= (V549);          register object V554;
3478          base[6]= VV[35];          object V555;
3479            register object V556;
3480            base[5]= (V550);
3481            base[6]= VV[36];
3482          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3483          Lgetf();          Lgetf();
3484          vs_top=sup;          vs_top=sup;
3485          base[0]= vs_base[0];          base[0]= vs_base[0];
3486          base[5]= (V549);          base[5]= (V550);
3487          base[6]= VV[213];          base[6]= VV[213];
3488          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3489          Lgetf();          Lgetf();
3490          vs_top=sup;          vs_top=sup;
         V552= vs_base[0];  
         base[5]= (V549);  
         base[6]= VV[27];  
         vs_top=(vs_base=base+5)+2;  
         Lgetf();  
         vs_top=sup;  
3491          V553= vs_base[0];          V553= vs_base[0];
3492          base[5]= (V553);          base[5]= (V550);
3493          base[6]= VV[28];          base[6]= VV[28];
3494          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3495          Lgetf();          Lgetf();
3496          vs_top=sup;          vs_top=sup;
3497          V554= vs_base[0];          V554= vs_base[0];
3498          V555= Cnil;          base[5]= (V554);
3499          base[5]= (V549);          base[6]= VV[29];
3500            vs_top=(vs_base=base+5)+2;
3501            Lgetf();
3502            vs_top=sup;
3503            V555= vs_base[0];
3504            V556= Cnil;
3505            base[5]= (V550);
3506          base[6]= VV[216];          base[6]= VV[216];
3507          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3508          Lgetf();          Lgetf();
3509          vs_top=sup;          vs_top=sup;
3510          base[4]= vs_base[0];          base[4]= vs_base[0];
3511          if(((V552))==Cnil){          if(((V553))==Cnil){
3512          goto T1095;}          goto T1096;}
3513          if((base[0])==Cnil){          if((base[0])==Cnil){
3514          goto T1098;}          goto T1099;}
3515          base[5]= base[0];          base[5]= base[0];
3516          base[6]= (V552);          base[6]= (V553);
3517          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3518          (void) (*Lnk346)();          (void) (*Lnk346)();
3519          vs_top=sup;          vs_top=sup;
3520          base[0]= vs_base[0];          base[0]= vs_base[0];
3521          goto T1098;          goto T1099;
3522  T1098:;  T1099:;
3523          if((base[4])==Cnil){          if((base[4])==Cnil){
3524          goto T1095;}          goto T1096;}
3525          {object V556;{object V558;          {object V557;{object V559;
3526          {object V559 =(CMPcar((V552)))->s.s_plist;          {object V560 =(CMPcar((V553)))->s.s_plist;
3527           object ind= VV[217];           object ind= VV[217];
3528          while(V559!=Cnil){          while(V560!=Cnil){
3529          if(V559->c.c_car==ind){          if(V560->c.c_car==ind){
3530          V558= (V559->c.c_cdr->c.c_car);          V559= (V560->c.c_cdr->c.c_car);
3531          goto T1109;          goto T1110;
3532          }else V559=V559->c.c_cdr->c.c_cdr;}          }else V560=V560->c.c_cdr->c.c_cdr;}
3533          V558= Cnil;}          V559= Cnil;}
3534          goto T1109;          goto T1110;
3535  T1109:;  T1110:;
3536          if(V558==Cnil)goto T1108;          if(V559==Cnil)goto T1109;
3537          V557= V558;          V558= V559;
         goto T1107;  
3538          goto T1108;          goto T1108;
3539  T1108:;}          goto T1109;
3540          V560= CMPcar((V552));  T1109:;}
3541            V561= CMPcar((V553));
3542          base[6]= Cnil;          base[6]= Cnil;
3543          base[7]= VV[218];          base[7]= VV[218];
3544          base[8]= CMPcar((V552));          base[8]= CMPcar((V553));
3545          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3546          Lformat();          Lformat();
3547          vs_top=sup;          vs_top=sup;
# Line 3551  T1108:;} Line 3550  T1108:;}
3550          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3551          Lintern();          Lintern();
3552          vs_top=sup;          vs_top=sup;
3553          V561= vs_base[0];          V562= vs_base[0];
3554          V557= sputprop(/* INLINE-ARGS */V560,VV[217],V561);          V558= sputprop(/* INLINE-ARGS */V561,VV[217],V562);
3555          goto T1107;          goto T1108;
3556  T1107:;  T1108:;
3557          V556= make_cons(V557,CMPcdr((V552)));          V557= make_cons(V558,CMPcdr((V553)));
3558          base[5]= base[4];          base[5]= base[4];
3559          base[6]= (V556);          base[6]= (V557);
3560          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3561          (void) (*Lnk346)();          (void) (*Lnk346)();
3562          vs_top=sup;          vs_top=sup;
3563          if((base[0])!=Cnil){          if((base[0])!=Cnil){
3564          goto T1095;}          goto T1096;}
3565          base[5]= VV[220];          base[5]= VV[220];
3566          base[6]= (V556);          base[6]= (V557);
3567          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3568          L62(base);          L62(base);
3569          vs_top=sup;}          vs_top=sup;}
3570          goto T1095;          goto T1096;
3571  T1095:;  T1096:;
3572          if(((V553))==Cnil){          if(((V554))==Cnil){
3573          goto T1124;}          goto T1125;}
3574          {object V562;          {object V563;
3575          object V563;          object V564;
3576          base[5]= (V553);          base[5]= (V554);
3577          base[6]= VV[59];          base[6]= VV[59];
3578          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3579          Lgetf();          Lgetf();
3580          vs_top=sup;          vs_top=sup;
3581          V562= vs_base[0];          V563= vs_base[0];
3582          base[5]= (V553);          base[5]= (V554);
3583          base[6]= VV[60];          base[6]= VV[60];
3584          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3585          Lgetf();          Lgetf();
3586          vs_top=sup;          vs_top=sup;
3587          V563= vs_base[0];          V564= vs_base[0];
3588          if(((V562))!=Cnil){          if(((V563))!=Cnil){
3589          goto T1133;}          goto T1134;}
3590          if(((V563))==Cnil){          if(((V564))==Cnil){
3591          goto T1126;}          goto T1127;}
3592          goto T1133;          goto T1134;
3593  T1133:;  T1134:;
3594          V555= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V562),VV[60],(V563)));          V556= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V563),VV[60],(V564)));
3595          if(((V555))==Cnil){          if(((V556))==Cnil){
3596          goto T1139;}          goto T1140;}
3597          base[5]= (V554);          base[5]= (V555);
3598          base[6]= (V555);          base[6]= (V556);
3599          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3600          Lset();          Lset();
3601          vs_top=sup;          vs_top=sup;
3602          goto T1139;          goto T1140;
3603  T1139:;  T1140:;
3604          base[5]= VV[209];          base[5]= VV[209];
3605          base[6]= (V555);          base[6]= (V556);
3606          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3607          L62(base);          L62(base);
3608          vs_top=sup;}          vs_top=sup;}
3609          goto T1126;          goto T1127;
3610  T1126:;  T1127:;
3611          goto T1148;          goto T1149;
3612  T1148:;  T1149:;
3613          if(((V553))!=Cnil){          if(((V554))!=Cnil){
3614          goto T1150;}          goto T1151;}
3615          goto T1146;          goto T1147;
3616          goto T1150;          goto T1151;
3617  T1150:;  T1151:;
         {register object V564;  
         V564= CMPcar((V553));  
         V553= CMPcdr((V553));  
         base[5]= (V564);}  
3618          {register object V565;          {register object V565;
3619          V565= CMPcar((V553));          V565= CMPcar((V554));
3620          V553= CMPcdr((V553));          V554= CMPcdr((V554));
3621          base[6]= (V565);}          base[5]= (V565);}
3622            {register object V566;
3623            V566= CMPcar((V554));
3624            V554= CMPcdr((V554));
3625            base[6]= (V566);}
3626          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3627          L62(base);          L62(base);
3628          vs_top=sup;          vs_top=sup;
3629          goto T1148;          goto T1149;
3630          goto T1146;          goto T1147;
3631  T1146:;  T1147:;
3632          if(((V551))==Cnil){          if(((V552))==Cnil){
3633          goto T1162;}          goto T1163;}
3634          base[5]= VV[210];          base[5]= VV[210];
3635          base[6]= (V551);          base[6]= (V552);
3636          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3637          L62(base);          L62(base);
3638          vs_top=sup;          vs_top=sup;
3639          goto T1162;          goto T1163;
3640  T1162:;  T1163:;
3641          if(((V550))==Cnil){          if(((V551))==Cnil){
3642          goto T1168;}          goto T1169;}
3643          if(base[0]!=Cnil){          if(base[0]!=Cnil){
3644          {object V566 = base[0];          {object V567 = base[0];
3645          VMR53(V566)}}          VMR53(V567)}}
3646          {object V567 = (*(LnkLI406))(base[4]);          {object V568 = (*(LnkLI406))(base[4]);
         VMR53(V567)}  
         goto T1168;  
 T1168:;  
         {object V568 = Cnil;  
3647          VMR53(V568)}          VMR53(V568)}
3648          goto T1124;          goto T1169;
3649  T1124:;  T1169:;
3650          {object V569 = Cnil;          {object V569 = Cnil;
3651          VMR53(V569)}}          VMR53(V569)}
3652            goto T1125;
3653    T1125:;
3654            {object V570 = Cnil;
3655            VMR53(V570)}}
3656          va_end(ap);          va_end(ap);
3657          base[0]=base[0];          base[0]=base[0];
3658          return Cnil;}          return Cnil;}
# Line 3664  static void L63() Line 3663  static void L63()
3663  {register object *base=vs_base;  {register object *base=vs_base;
3664          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
3665          vs_check;          vs_check;
3666          {object V570;          {object V571;
3667          check_arg(1);          check_arg(1);
3668          V570=(base[0]);          V571=(base[0]);
3669          vs_top=sup;          vs_top=sup;
3670          goto TTL;          goto TTL;
3671  TTL:;  TTL:;
3672          {register object V571;          {register object V572;
3673          register object V572;          register object V573;
         object V573;  
3674          object V574;          object V574;
3675          object V575;          object V575;
3676          register object V576;          object V576;
3677          register object V577;          register object V577;
3678          register object V578;          register object V578;
3679          V571= small_fixnum(0);          register object V579;
3680          V572= small_fixnum(0);          V572= small_fixnum(0);
3681          V573= Cnil;          V573= small_fixnum(0);
3682          V574= Cnil;          V574= Cnil;
3683          V575= Cnil;          V575= Cnil;
3684          V576= Cnil;          V576= Cnil;
3685          V577= Cnil;          V577= Cnil;
3686          V578= VV[181];          V578= Cnil;
3687          {register object V579;          V579= VV[181];
3688          register object V580;          {register object V580;
3689          V579= (V570);          register object V581;
3690          V580= CMPcar((V579));          V580= (V571);
3691          goto T1174;          V581= CMPcar((V580));
 T1174:;  
         if(!(((V579))==Cnil)){  
         goto T1175;}  
         goto T1170;  
3692          goto T1175;          goto T1175;
3693  T1175:;  T1175:;
3694          {register object x= (V580),V581= VV[183];          if(!(((V580))==Cnil)){
3695          while(V581!=Cnil)          goto T1176;}
3696          if(x==(V581->c.c_car)){          goto T1171;
3697          goto T1182;          goto T1176;
3698          }else V581=V581->c.c_cdr;  T1176:;
3699          goto T1181;}          {register object x= (V581),V582= VV[183];
3700          goto T1182;          while(V582!=Cnil)
3701  T1182:;          if(x==(V582->c.c_car)){
3702          {object V582= (V580);          goto T1183;
3703          if((V582!= VV[407]))goto T1183;          }else V582=V582->c.c_cdr;
3704          V578= VV[184];          goto T1182;}
         goto T1179;  
3705          goto T1183;          goto T1183;
3706  T1183:;  T1183:;
3707          if((V582!= VV[62]))goto T1185;          {object V583= (V581);
3708          V573= Ct;          if((V583!= VV[407]))goto T1184;
3709          V578= VV[185];          V579= VV[184];
3710          goto T1179;          goto T1180;
3711          goto T1185;          goto T1184;
3712  T1185:;  T1184:;
3713          if((V582!= VV[63]))goto T1189;          if((V583!= VV[62]))goto T1186;
         V575= Ct;  
         goto T1179;  
         goto T1189;  
 T1189:;  
         if((V582!= VV[170]))goto T1191;  
3714          V574= Ct;          V574= Ct;
3715          V578= VV[186];          V579= VV[185];
3716          goto T1179;          goto T1180;
3717          goto T1191;          goto T1186;
3718  T1191:;  T1186:;
3719          if((V582!= VV[56]))goto T1195;          if((V583!= VV[63]))goto T1190;
3720          goto T1170;          V576= Ct;
3721          goto T1195;          goto T1180;
3722  T1195:;          goto T1190;
3723    T1190:;
3724            if((V583!= VV[170]))goto T1192;
3725            V575= Ct;
3726            V579= VV[186];
3727            goto T1180;
3728            goto T1192;
3729    T1192:;
3730            if((V583!= VV[56]))goto T1196;
3731            goto T1171;
3732            goto T1196;
3733    T1196:;
3734          base[2]= VV[221];          base[2]= VV[221];
3735          base[3]= (V580);          base[3]= (V581);
3736          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3737          Lerror();          Lerror();
3738          vs_top=sup;          vs_top=sup;
3739          goto T1179;}          goto T1180;}
3740          goto T1181;          goto T1182;
3741  T1181:;  T1182:;
3742          {object V583= (V578);          {object V584= (V579);
3743          if((V583!= VV[181]))goto T1198;          if((V584!= VV[181]))goto T1199;
         V571= number_plus((V571),small_fixnum(1));  
         goto T1179;  
         goto T1198;  
 T1198:;  
         if((V583!= VV[184]))goto T1200;  
3744          V572= number_plus((V572),small_fixnum(1));          V572= number_plus((V572),small_fixnum(1));
3745          goto T1179;          goto T1180;
3746          goto T1200;          goto T1199;
3747  T1200:;  T1199:;
3748          if((V583!= VV[185]))goto T1202;          if((V584!= VV[184]))goto T1201;
3749          {object V584;          V573= number_plus((V573),small_fixnum(1));
3750          base[3]= (V580);          goto T1180;
3751            goto T1201;
3752    T1201:;
3753            if((V584!= VV[185]))goto T1203;
3754            {object V585;
3755            base[3]= (V581);
3756          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3757          L64(base);          L64(base);
3758          vs_top=sup;          vs_top=sup;
3759          V584= vs_base[0];          V585= vs_base[0];
3760          V576= make_cons((V584),(V576));}          V577= make_cons((V585),(V577));}
3761          V577= make_cons(V580,(V577));          V578= make_cons(V581,(V578));
3762          goto T1179;          goto T1180;
3763          goto T1202;          goto T1203;
3764  T1202:;  T1203:;
3765          if((V583!= VV[186]))goto T1208;          if((V584!= VV[186]))goto T1209;
3766          goto T1179;          goto T1180;
3767          goto T1208;          goto T1209;
3768  T1208:;  T1209:;
3769          FEerror("The ECASE key value ~s is illegal.",1,V583);          FEerror("The ECASE key value ~s is illegal.",1,V584);
3770          goto T1179;}          goto T1180;}
3771          goto T1179;          goto T1180;
3772  T1179:;  T1180:;
3773          V579= CMPcdr((V579));          V580= CMPcdr((V580));
3774          V580= CMPcar((V579));          V581= CMPcar((V580));
3775          goto T1174;}          goto T1175;}
3776          goto T1170;          goto T1171;
3777  T1170:;  T1171:;
3778          base[1]= (V571);          base[1]= (V572);
3779          base[2]= (V572);          base[2]= (V573);
3780          base[3]= (V573);          base[3]= (V574);
3781          base[4]= (V574);          base[4]= (V575);
3782          base[5]= (V575);          base[5]= (V576);
3783          base[6]= reverse((V576));          base[6]= reverse((V577));
3784          base[7]= reverse((V577));          base[7]= reverse((V578));
3785          vs_top=(vs_base=base+1)+7;          vs_top=(vs_base=base+1)+7;
3786          return;}          return;}
3787          }          }
3788  }  }
3789  /*      local entry for function KEYWORD-SPEC-NAME      */  /*      local entry for function KEYWORD-SPEC-NAME      */
3790    
3791  static object LI65(V587)  static object LI65(V588)
3792    
3793  object V587;  object V588;
3794  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3795          goto TTL;          goto TTL;
3796  TTL:;  TTL:;
3797          {object V588;          {object V589;
         if(!(type_of((V587))!=t_cons)){  
         goto T1223;}  
         V588= (V587);  
         goto T1221;  
         goto T1223;  
 T1223:;  
         V588= CMPcar((V587));  
         goto T1221;  
 T1221:;  
3798          if(!(type_of((V588))!=t_cons)){          if(!(type_of((V588))!=t_cons)){
3799          goto T1226;}          goto T1224;}
3800          base[0]= symbol_name((V588));          V589= (V588);
3801            goto T1222;
3802            goto T1224;
3803    T1224:;
3804            V589= CMPcar((V588));
3805            goto T1222;
3806    T1222:;
3807            if(!(type_of((V589))!=t_cons)){
3808            goto T1227;}
3809            base[0]= symbol_name((V589));
3810          base[2]= VV[222];          base[2]= VV[222];
3811          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3812          Lfind_package();          Lfind_package();
# Line 3816  T1221:; Line 3815  T1221:;
3815          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3816          Lintern();          Lintern();
3817          vs_top=sup;          vs_top=sup;
3818          {object V589 = vs_base[0];          {object V590 = vs_base[0];
3819          VMR55(V589)}          VMR55(V590)}
3820          goto T1226;          goto T1227;
3821  T1226:;  T1227:;
3822          {object V590 = CMPcar((V588));          {object V591 = CMPcar((V589));
3823          VMR55(V590)}}          VMR55(V591)}}
3824          base[0]=base[0];          base[0]=base[0];
3825          return Cnil;          return Cnil;
3826  }  }
3827  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */
3828    
3829  static object LI66(V592)  static object LI66(V593)
3830    
3831  object V592;  object V593;
3832  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3833          goto TTL;          goto TTL;
3834  TTL:;  TTL:;
3835          {object V593;          {object V594;
         object V594;  
3836          object V595;          object V595;
3837          object V596;          object V596;
3838          object V597;          object V597;
3839          object V598;          object V598;
3840          object V599;          object V599;
3841          base[0]= (V592);          object V600;
3842            base[0]= (V593);
3843          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3844          (void) (*Lnk408)();          (void) (*Lnk408)();
         if(vs_base>=vs_top){vs_top=sup;goto T1233;}  
         V593= vs_base[0];  
         vs_base++;  
3845          if(vs_base>=vs_top){vs_top=sup;goto T1234;}          if(vs_base>=vs_top){vs_top=sup;goto T1234;}
3846          V594= vs_base[0];          V594= vs_base[0];
3847          vs_base++;          vs_base++;
# Line 3863  TTL:; Line 3859  TTL:;
3859          vs_base++;          vs_base++;
3860          if(vs_base>=vs_top){vs_top=sup;goto T1239;}          if(vs_base>=vs_top){vs_top=sup;goto T1239;}
3861          V599= vs_base[0];          V599= vs_base[0];
3862            vs_base++;
3863            if(vs_base>=vs_top){vs_top=sup;goto T1240;}
3864            V600= vs_base[0];
3865          vs_top=sup;          vs_top=sup;
3866          goto T1240;          goto T1241;
         goto T1233;  
 T1233:;  
         V593= Cnil;  
3867          goto T1234;          goto T1234;
3868  T1234:;  T1234:;
3869          V594= Cnil;          V594= Cnil;
# Line 3888  T1239:; Line 3884  T1239:;
3884          V599= Cnil;          V599= Cnil;
3885          goto T1240;          goto T1240;
3886  T1240:;  T1240:;
         {object V600;  
         {object V601;  
         object V602= (V598);  
         if(V602==Cnil){  
3887          V600= Cnil;          V600= Cnil;
         goto T1241;}  
         base[1]=V601=MMcons(Cnil,Cnil);  
         goto T1242;  
 T1242:;  
         (V601->c.c_car)= (*(LnkLI409))((V602->c.c_car));  
         if((V602=MMcdr(V602))==Cnil){  
         V600= base[1];  
         goto T1241;}  
         V601=MMcdr(V601)=MMcons(Cnil,Cnil);  
         goto T1242;}  
3888          goto T1241;          goto T1241;
3889  T1241:;  T1241:;
3890          base[2]= (V593);          {object V601;
3891            {object V602;
3892            object V603= (V599);
3893            if(V603==Cnil){
3894            V601= Cnil;
3895            goto T1242;}
3896            base[1]=V602=MMcons(Cnil,Cnil);
3897            goto T1243;
3898    T1243:;
3899            (V602->c.c_car)= (*(LnkLI409))((V603->c.c_car));
3900            if((V603=MMcdr(V603))==Cnil){
3901            V601= base[1];
3902            goto T1242;}
3903            V602=MMcdr(V602)=MMcons(Cnil,Cnil);
3904            goto T1243;}
3905            goto T1242;
3906    T1242:;
3907            base[2]= (V594);
3908          base[3]= VV[223];          base[3]= VV[223];
3909          base[4]= Ct;          base[4]= Ct;
3910          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3911          Lmake_list();          Lmake_list();
3912          vs_top=sup;          vs_top=sup;
3913          base[1]= vs_base[0];          base[1]= vs_base[0];
3914          if(!(number_compare(small_fixnum(0),(V594))<0)){          if(!(number_compare(small_fixnum(0),(V595))<0)){
3915          goto T1251;}          goto T1252;}
3916          base[3]= (V594);          base[3]= (V595);
3917          base[4]= VV[223];          base[4]= VV[223];
3918          base[5]= Ct;          base[5]= Ct;
3919          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3920          Lmake_list();          Lmake_list();
3921          vs_top=sup;          vs_top=sup;
3922          V604= vs_base[0];          V605= vs_base[0];
3923          base[2]= append(VV[224],V604);          base[2]= append(VV[224],V605);
3924          goto T1249;          goto T1250;
3925          goto T1251;          goto T1252;
3926  T1251:;  T1252:;
3927          base[2]= Cnil;          base[2]= Cnil;
3928          goto T1249;          goto T1250;
3929  T1249:;  T1250:;
3930          if(((V596))==Cnil){          if(((V597))==Cnil){
3931          goto T1259;}          goto T1260;}
3932          base[3]= VV[225];          base[3]= VV[225];
3933          goto T1257;          goto T1258;
3934          goto T1259;          goto T1260;
3935  T1259:;  T1260:;
3936          base[3]= Cnil;          base[3]= Cnil;
3937          goto T1257;          goto T1258;
3938  T1257:;  T1258:;
3939          if(((V595))==Cnil){          if(((V596))==Cnil){
3940          goto T1263;}          goto T1264;}
3941          base[5]= VV[226];          base[5]= VV[226];
3942          {object V605;          {object V606;
3943          object V606= (V600);          object V607= (V601);
3944          if(V606==Cnil){          if(V607==Cnil){
3945          base[6]= Cnil;          base[6]= Cnil;
3946          goto T1266;}          goto T1267;}
3947          base[7]=V605=MMcons(Cnil,Cnil);          base[7]=V606=MMcons(Cnil,Cnil);
3948          goto T1267;          goto T1268;
3949  T1267:;  T1268:;
3950          (V605->c.c_car)= list(2,(V606->c.c_car),Ct);          (V606->c.c_car)= list(2,(V607->c.c_car),Ct);
3951          if((V606=MMcdr(V606))==Cnil){          if((V607=MMcdr(V607))==Cnil){
3952          base[6]= base[7];          base[6]= base[7];
         goto T1266;}  
         V605=MMcdr(V605)=MMcons(Cnil,Cnil);  
3953          goto T1267;}          goto T1267;}
3954          goto T1266;          V606=MMcdr(V606)=MMcons(Cnil,Cnil);
3955  T1266:;          goto T1268;}
3956          if(((V597))==Cnil){          goto T1267;
3957          goto T1271;}  T1267:;
3958            if(((V598))==Cnil){
3959            goto T1272;}
3960          base[7]= VV[227];          base[7]= VV[227];
3961          goto T1269;          goto T1270;
3962          goto T1271;          goto T1272;
3963  T1271:;  T1272:;
3964          base[7]= Cnil;          base[7]= Cnil;
3965          goto T1269;          goto T1270;
3966  T1269:;  T1270:;
3967          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
3968          Lappend();          Lappend();
3969          vs_top=sup;          vs_top=sup;
3970          base[4]= vs_base[0];          base[4]= vs_base[0];
3971          goto T1261;          goto T1262;
3972          goto T1263;          goto T1264;
3973  T1263:;  T1264:;
3974          base[4]= Cnil;          base[4]= Cnil;
3975          goto T1261;          goto T1262;
3976  T1261:;  T1262:;
3977          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3978          Lappend();          Lappend();
3979          vs_top=sup;          vs_top=sup;
3980          V603= vs_base[0];          V604= vs_base[0];
3981          {object V608 = list(3,VV[33],V603,VV[228]);          {object V609 = list(3,VV[34],V604,VV[228]);
3982          VMR56(V608)}}}          VMR56(V609)}}}
3983          base[0]=base[0];          base[0]=base[0];
3984          return Cnil;          return Cnil;
3985  }  }
3986  /*      local entry for function PROCLAIM-DEFGENERIC    */  /*      local entry for function PROCLAIM-DEFGENERIC    */
3987    
3988  static object LI67(V611,V612)  static object LI67(V612,V613)
3989    
3990  register object V611;object V612;  register object V612;object V613;
3991  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
3992          goto TTL;          goto TTL;
3993  TTL:;  TTL:;
3994          if(!(type_of((V611))==t_cons)){          if(!(type_of((V612))==t_cons)){
3995          goto T1273;}          goto T1274;}
3996          V611= (*(LnkLI410))(CMPcadr((V611)));          V612= (*(LnkLI410))(CMPcadr((V612)));
3997          goto T1273;          goto T1274;
3998  T1273:;  T1274:;
3999          {object V613 = sputprop((V611),VV[229],Ct);          {object V614 = sputprop((V612),VV[229],Ct);
4000          VMR57(V613)}          VMR57(V614)}
4001          return Cnil;          return Cnil;
4002  }  }
4003  /*      function definition for ENSURE-GENERIC-FUNCTION */  /*      function definition for ENSURE-GENERIC-FUNCTION */
# Line 4007  static void L68() Line 4006  static void L68()
4006  {register object *base=vs_base;  {register object *base=vs_base;
4007          register object *sup=base+VM58; VC58          register object *sup=base+VM58; VC58
4008          vs_check;          vs_check;
4009          {register object V614;          {register object V615;
         object V615;  
4010          object V616;          object V616;
4011            object V617;
4012          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4013          parse_key(vs_base+1,TRUE,TRUE,1,VV[295]);          parse_key(vs_base+1,TRUE,TRUE,1,VV[295]);
4014          V614=(base[0]);          V615=(base[0]);
4015          vs_top=sup;          vs_top=sup;
4016          V615=(base[1]);          V616=(base[1]);
4017          V616=(base[2]);          V617=(base[2]);
4018          {object V617;          {object V618;
4019          if(((*(LnkLI355))((V614)))!=Cnil){          if(((*(LnkLI355))((V615)))!=Cnil){
4020          goto T1278;}          goto T1279;}
4021          V617= Cnil;          V618= Cnil;
4022          goto T1277;          goto T1278;
4023            goto T1279;
4024    T1279:;
4025            V618= (*(LnkLI356))((V615));
4026          goto T1278;          goto T1278;
4027  T1278:;  T1278:;
4028          V617= (*(LnkLI356))((V614));          if(((V618))==Cnil){
4029          goto T1277;          goto T1282;}
4030  T1277:;          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4031          if(((V617))==Cnil){          goto T1282;}
4032          goto T1281;}          base[4]= (V618);
         if(!(((VV[16]->s.s_dbind))==(VV[17]))){  
         goto T1281;}  
         base[4]= (V617);  
4033          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4034          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
4035          vs_top=sup;          vs_top=sup;
4036          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4037          goto T1281;}          goto T1282;}
4038          base[4]= (*(LnkLI411))((V614));          base[4]= (*(LnkLI411))((V615));
4039          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4040          return;          return;
4041          goto T1281;          goto T1282;
4042  T1281:;  T1282:;
4043          base[4]=VV[412]->s.s_gfdef;          base[4]=VV[412]->s.s_gfdef;
4044          base[5]= (V617);          base[5]= (V618);
4045          base[6]= (V614);          base[6]= (V615);
4046          {object V618;          {object V619;
4047          V618= (V615);          V619= (V616);
4048           vs_top=base+7;           vs_top=base+7;
4049           while(V618!=Cnil)           while(V619!=Cnil)
4050           {vs_push((V618)->c.c_car);V618=(V618)->c.c_cdr;}           {vs_push((V619)->c.c_car);V619=(V619)->c.c_cdr;}
4051          vs_base=base+5;}          vs_base=base+5;}
4052          funcall(base[4]);          funcall(base[4]);
4053          return;}          return;}
# Line 4056  T1281:; Line 4055  T1281:;
4055  }  }
4056  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */
4057    
4058  static object LI69(V620)  static object LI69(V621)
4059    
4060  object V620;  object V621;
4061  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
4062          goto TTL;          goto TTL;
4063  TTL:;  TTL:;
4064          base[0]= VV[230];          base[0]= VV[230];
4065          base[1]= (V620);          base[1]= (V621);
4066          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4067          Lerror();          Lerror();
4068          vs_top=sup;          vs_top=sup;
4069          {object V621 = vs_base[0];          {object V622 = vs_base[0];
4070          VMR59(V621)}          VMR59(V622)}
4071          base[0]=base[0];          base[0]=base[0];
4072          return Cnil;          return Cnil;
4073  }  }
4074  /*      local entry for function EARLY-GF-P     */  /*      local entry for function EARLY-GF-P     */
4075    
4076  static object LI70(V623)  static object LI70(V624)
4077    
4078  register object V623;  register object V624;
4079  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
4080          goto TTL;          goto TTL;
4081  TTL:;{object V624;  TTL:;{object V625;
4082          V624= (VV[147]->s.s_dbind);          V625= (VV[147]->s.s_dbind);
4083          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
4084          base[1]= (V623);          base[1]= (V624);
4085          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4086          (void) (*Lnk390)();          (void) (*Lnk390)();
4087          vs_top=sup;          vs_top=sup;
4088          V625= vs_base[0];          V626= vs_base[0];
4089          if((V624)==(CMPcar(V625))){          if((V625)==(CMPcar(V626))){
4090          goto T1293;}}          goto T1294;}}
4091          {object V626 = Cnil;          {object V627 = Cnil;
4092          VMR60(V626)}          VMR60(V627)}
4093          goto T1293;          goto T1294;
4094  T1293:;  T1294:;
4095          if(type_of(V623)==t_structure){          if(type_of(V624)==t_structure){
4096          goto T1302;}          goto T1303;}
4097          goto T1300;          goto T1301;
4098          goto T1302;          goto T1303;
4099  T1302:;  T1303:;
4100          if(!(((V623)->str.str_def)==(VV[231]))){          if(!(((V624)->str.str_def)==(VV[231]))){
4101          goto T1300;}          goto T1301;}
4102          V627= STREF(object,(V623),4);          V628= STREF(object,(V624),4);
4103          goto T1298;          goto T1299;
4104          goto T1300;          goto T1301;
4105  T1300:;{object V629;  T1301:;{object V630;
4106          V629= (VV[147]->s.s_dbind);          V630= (VV[147]->s.s_dbind);
4107          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
4108          base[1]= (V623);          base[1]= (V624);
4109          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4110          (void) (*Lnk390)();          (void) (*Lnk390)();
4111          vs_top=sup;          vs_top=sup;
4112          V630= vs_base[0];          V631= vs_base[0];
4113          if(!((V629)==(CMPcar(V630)))){          if(!((V630)==(CMPcar(V631)))){
4114          goto T1305;}}          goto T1306;}}
4115          V627= CMPcar(((V623))->cc.cc_turbo[12]);          V628= CMPcar(((V624))->cc.cc_turbo[12]);
4116          goto T1298;          goto T1299;
4117          goto T1305;          goto T1306;
4118  T1305:;  T1306:;
4119          base[0]= VV[148];          base[0]= VV[148];
4120          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4121          Lerror();          Lerror();
4122          vs_top=sup;          vs_top=sup;
4123          V627= vs_base[0];          V628= vs_base[0];
4124          goto T1298;          goto T1299;
4125  T1298:;  T1299:;
4126          {object V631 = (((V627)->v.v_self[fix((VV[232]->s.s_dbind))])==((VV[132]->s.s_dbind))?Ct:Cnil);          {object V632 = (((V628)->v.v_self[fix((VV[232]->s.s_dbind))])==((VV[132]->s.s_dbind))?Ct:Cnil);
4127          VMR60(V631)}          VMR60(V632)}
4128          base[0]=base[0];          base[0]=base[0];
4129          return Cnil;          return Cnil;
4130  }  }
# Line 4137  static void L71() Line 4136  static void L71()
4136          vs_check;          vs_check;
4137          check_arg(2);          check_arg(2);
4138          vs_top=sup;          vs_top=sup;
4139          {object V632=base[0]->c.c_cdr;          {object V633=base[0]->c.c_cdr;
4140          if(endp(V632))invalid_macro_call();          if(endp(V633))invalid_macro_call();
4141          base[2]= (V632->c.c_car);          base[2]= (V633->c.c_car);
4142          V632=V632->c.c_cdr;          V633=V633->c.c_cdr;
4143          if(!endp(V632))invalid_macro_call();}          if(!endp(V633))invalid_macro_call();}
4144          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]);          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]);
4145          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4146          return;          return;
# Line 4154  static void L72() Line 4153  static void L72()
4153          vs_check;          vs_check;
4154          check_arg(2);          check_arg(2);
4155          vs_top=sup;          vs_top=sup;
4156          {object V633=base[0]->c.c_cdr;          {object V634=base[0]->c.c_cdr;
4157          if(endp(V633))invalid_macro_call();          if(endp(V634))invalid_macro_call();
4158          base[2]= (V633->c.c_car);          base[2]= (V634->c.c_car);
4159          V633=V633->c.c_cdr;          V634=V634->c.c_cdr;
4160          if(!endp(V633))invalid_macro_call();}          if(!endp(V634))invalid_macro_call();}
4161          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]);          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]);
4162          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4163          return;          return;
# Line 4169  static object LI73(object first,...) Line 4168  static object LI73(object first,...)
4168  {        {      
4169          va_list ap;          va_list ap;
4170          int narg = VFUN_NARGS; VMB63 VMS63 VMV63          int narg = VFUN_NARGS; VMB63 VMS63 VMV63
4171          {object V634;          {object V635;
         object V635;  
4172          object V636;          object V636;
4173          object V637;          object V637;
4174          object V638;          object V638;
# Line 4180  static object LI73(object first,...) Line 4178  static object LI73(object first,...)
4178          object V642;          object V642;
4179          object V643;          object V643;
4180          object V644;          object V644;
4181            object V645;
4182          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
4183          va_start(ap,first);          va_start(ap,first);
4184          narg= narg - 0;          narg= narg - 0;
4185          {          {
4186          parse_key_new_new(narg,Vcs +0,(struct key *)&LI73key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap);
4187          V634=(Vcs[0]);          V635=(Vcs[0]);
4188          V635=(Vcs[1]);          V636=(Vcs[1]);
4189          V636=(Vcs[2]);          V637=(Vcs[2]);
4190          V637=(Vcs[3]);          V638=(Vcs[3]);
4191          V638=(Vcs[4]);          V639=(Vcs[4]);
4192          V639=(Vcs[5]);          V640=(Vcs[5]);
4193          V640=(Vcs[6]);          V641=(Vcs[6]);
4194          V641=(Vcs[7]);          V642=(Vcs[7]);
4195          V642=(Vcs[8]);          V643=(Vcs[8]);
4196          if(Vcs[9]==0){          if(Vcs[9]==0){
4197          V643= Ct;          V644= Ct;
4198          }else{          }else{
4199          V643=(Vcs[9]);}          V644=(Vcs[9]);}
4200          V644=(Vcs[10]);          V645=(Vcs[10]);
4201          base[0]= VV[238];          base[0]= VV[238];
4202          base[1]= (V634);          base[1]= (V635);
4203          base[2]= (V635);          base[2]= (V636);
4204          base[3]= (V636);          base[3]= (V637);
4205          base[4]= (V637);          base[4]= (V638);
4206          base[5]= (V638);          base[5]= (V639);
4207          base[6]= (V639);          base[6]= (V640);
4208          base[7]= (V640);          base[7]= (V641);
4209          base[8]= (V641);          base[8]= (V642);
4210          base[9]= (V642);          base[9]= (V643);
4211          base[10]= (V643);          base[10]= (V644);
4212          base[11]= (V644);          base[11]= (V645);
4213          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4214          siLmake_structure();          siLmake_structure();
4215          vs_top=sup;          vs_top=sup;
4216          {object V645 = vs_base[0];          {object V646 = vs_base[0];
4217          VMR63(V645)}          VMR63(V646)}
4218          va_end(ap);          va_end(ap);
4219          base[0]=base[0];          base[0]=base[0];
4220          return Cnil;}          return Cnil;}
# Line 4242  TTL:; Line 4241  TTL:;
4241          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4242          siLmake_structure();          siLmake_structure();
4243          vs_top=sup;          vs_top=sup;
4244          {object V657 = vs_base[0];          {object V658 = vs_base[0];
4245          VMR64(V657)}          VMR64(V658)}
4246          base[0]=base[0];          base[0]=base[0];
4247          return Cnil;          return Cnil;
4248  }  }
4249  /*      local entry for function ARG-INFO-VALID-P       */  /*      local entry for function ARG-INFO-VALID-P       */
4250    
4251  static object LI75(V659)  static object LI75(V660)
4252    
4253  object V659;  object V660;
4254  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
4255          goto TTL;          goto TTL;
4256  TTL:;  TTL:;
4257          {object V660 = ((((STREF(object,(V659),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V661 = ((((STREF(object,(V660),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4258          VMR65(V660)}          VMR65(V661)}
4259          return Cnil;          return Cnil;
4260  }  }
4261  /*      local entry for function ARG-INFO-APPLYP        */  /*      local entry for function ARG-INFO-APPLYP        */
4262    
4263  static object LI76(V662)  static object LI76(V663)
4264    
4265  object V662;  object V663;
4266  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
4267          goto TTL;          goto TTL;
4268  TTL:;  TTL:;
4269          if(!((fix(STREF(object,(V662),12)))>0)){          if(!((fix(STREF(object,(V663),12)))>0)){
4270          goto T1336;}          goto T1337;}
4271          {object V663 = Ct;          {object V664 = Ct;
         VMR66(V663)}  
         goto T1336;  
 T1336:;  
         {object V664 = STREF(object,(V662),16);  
4272          VMR66(V664)}          VMR66(V664)}
4273            goto T1337;
4274    T1337:;
4275            {object V665 = STREF(object,(V663),16);
4276            VMR66(V665)}
4277          return Cnil;          return Cnil;
4278  }  }
4279  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */
4280    
4281  static object LI77(V666)  static object LI77(V667)
4282    
4283  object V666;  object V667;
4284  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
4285          goto TTL;          goto TTL;
4286  TTL:;  TTL:;
4287          {long V667 = (long)length(STREF(object,(V666),8));          {long V668 = (long)length(STREF(object,(V667),8));
4288          VMR67((object)V667)}          VMR67((object)V668)}
4289  }  }
4290  /*      local entry for function ARG-INFO-NKEYS */  /*      local entry for function ARG-INFO-NKEYS */
4291    
4292  static object LI78(V669)  static object LI78(V670)
4293    
4294  object V669;  object V670;
4295  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
4296          goto TTL;          goto TTL;
4297  TTL:;  TTL:;
4298          base[0]= VV[424];          base[0]= VV[424];
4299          base[1]= STREF(object,(V669),8);          base[1]= STREF(object,(V670),8);
4300          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4301          (void) (*Lnk425)();          (void) (*Lnk425)();
4302          vs_top=sup;          vs_top=sup;
4303          {object V670 = vs_base[0];          {object V671 = vs_base[0];
4304          VMR68(V670)}          VMR68(V671)}
4305          base[0]=base[0];          base[0]=base[0];
4306          return Cnil;          return Cnil;
4307  }  }
# Line 4314  static void L79() Line 4313  static void L79()
4313          vs_check;          vs_check;
4314          check_arg(2);          check_arg(2);
4315          vs_top=sup;          vs_top=sup;
4316          {object V671=base[0]->c.c_cdr;          {object V672=base[0]->c.c_cdr;
4317          if(endp(V671))invalid_macro_call();          if(endp(V672))invalid_macro_call();
4318          base[2]= (V671->c.c_car);          base[2]= (V672->c.c_car);
4319          V671=V671->c.c_cdr;          V672=V672->c.c_cdr;
4320          if(endp(V671))invalid_macro_call();          if(endp(V672))invalid_macro_call();
4321          base[3]= (V671->c.c_car);          base[3]= (V672->c.c_car);
4322          V671=V671->c.c_cdr;          V672=V672->c.c_cdr;
4323          if(!endp(V671))invalid_macro_call();}          if(!endp(V672))invalid_macro_call();}
4324          {object V672;          {object V673;
4325          base[4]= VV[239];          base[4]= VV[239];
4326          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4327          Lgensym();          Lgensym();
4328          vs_top=sup;          vs_top=sup;
4329          V672= vs_base[0];          V673= vs_base[0];
4330          V673= list(2,(V672),base[3]);          V674= list(2,(V673),base[3]);
4331          V674= make_cons(/* INLINE-ARGS */V673,Cnil);          V675= make_cons(/* INLINE-ARGS */V674,Cnil);
4332          V675= list(3,VV[241],base[2],(V672));          V676= list(3,VV[241],base[2],(V673));
4333          base[4]= list(3,VV[96],/* INLINE-ARGS */V674,list(3,VV[240],/* INLINE-ARGS */V675,list(3,VV[29],base[2],(V672))));          base[4]= list(3,VV[96],/* INLINE-ARGS */V675,list(3,VV[240],/* INLINE-ARGS */V676,list(3,VV[30],base[2],(V673))));
4334          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4335          return;}          return;}
4336  }  }
4337  /*      local entry for function SET-ARG-INFO   */  /*      local entry for function SET-ARG-INFO   */
4338    
4339  static object LI80(object V676,object first,...)  static object LI80(object V677,object first,...)
4340  {        {      
4341          va_list ap;          va_list ap;
4342          int narg = VFUN_NARGS; VMB70 VMS70 VMV70          int narg = VFUN_NARGS; VMB70 VMS70 VMV70
4343          {register object V677;          {register object V678;
4344          object V678;          object V679;
         register object V679;  
4345          register object V680;          register object V680;
4346          object V681;          register object V681;
4347            object V682;
4348          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
4349          va_start(ap,first);          va_start(ap,first);
4350          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
4351          V677= V676;          V678= V677;
4352          narg= narg - 1;          narg= narg - 1;
4353          {          {
4354          parse_key_new_new(narg,Vcs +1,(struct key *)&LI80key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap);
4355          V678=(Vcs[1]);          V679=(Vcs[1]);
4356          if(Vcs[2]==0){          if(Vcs[2]==0){
         V679= Cnil;  
4357          V680= Cnil;          V680= Cnil;
4358            V681= Cnil;
4359          }else{          }else{
4360          V679=(Vcs[2]);          V680=(Vcs[2]);
4361          V680= Ct;}          V681= Ct;}
4362          V681=(Vcs[3]);          V682=(Vcs[3]);
4363          {register object V682;          {register object V683;
         object V683;  
4364          object V684;          object V684;
4365          object V685;          object V685;
4366          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          object V686;
4367          goto T1345;}          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4368          base[4]= (V677);          goto T1346;}
4369            base[4]= (V678);
4370          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4371          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
4372          vs_top=sup;          vs_top=sup;
4373          V682= vs_base[0];          V683= vs_base[0];
4374          goto T1343;          goto T1344;
4375          goto T1345;          goto T1346;
4376  T1345:;  T1346:;
4377          if(type_of(V677)==t_structure){          if(type_of(V678)==t_structure){
4378          goto T1352;}          goto T1353;}
4379          goto T1350;          goto T1351;
4380          goto T1352;          goto T1353;
4381  T1352:;  T1353:;
4382          if(!(((V677)->str.str_def)==(VV[242]))){          if(!(((V678)->str.str_def)==(VV[242]))){
4383          goto T1350;}          goto T1351;}
4384          V686= STREF(object,(V677),4);          V687= STREF(object,(V678),4);
4385          goto T1348;          goto T1349;
4386          goto T1350;          goto T1351;
4387  T1350:;{object V688;  T1351:;{object V689;
4388          V688= (VV[147]->s.s_dbind);          V689= (VV[147]->s.s_dbind);
4389          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4390          base[5]= (V677);          base[5]= (V678);
4391          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4392          (void) (*Lnk390)();          (void) (*Lnk390)();
4393          vs_top=sup;          vs_top=sup;
4394          V689= vs_base[0];          V690= vs_base[0];
4395          if(!((V688)==(CMPcar(V689)))){          if(!((V689)==(CMPcar(V690)))){
4396          goto T1355;}}          goto T1356;}}
4397          V686= CMPcar(((V677))->cc.cc_turbo[12]);          V687= CMPcar(((V678))->cc.cc_turbo[12]);
4398          goto T1348;          goto T1349;
4399          goto T1355;          goto T1356;
4400  T1355:;  T1356:;
4401          base[4]= VV[148];          base[4]= VV[148];
4402          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4403          Lerror();          Lerror();
4404          vs_top=sup;          vs_top=sup;
4405          V686= vs_base[0];          V687= vs_base[0];
4406          goto T1348;          goto T1349;
4407  T1348:;  T1349:;
4408          V682= (V686)->v.v_self[fix((VV[236]->s.s_dbind))];          V683= (V687)->v.v_self[fix((VV[236]->s.s_dbind))];
4409          goto T1343;          goto T1344;
4410  T1343:;  T1344:;
4411          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4412          goto T1363;}          goto T1364;}
4413          base[4]= (V677);          base[4]= (V678);
4414          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4415          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk426)(Lclptr426);
4416          vs_top=sup;          vs_top=sup;
4417          V683= vs_base[0];          V684= vs_base[0];
4418          goto T1361;          goto T1362;
4419          goto T1363;          goto T1364;
4420  T1363:;  T1364:;
4421          if(type_of(V677)==t_structure){          if(type_of(V678)==t_structure){
4422          goto T1370;}          goto T1371;}
4423          goto T1368;          goto T1369;
4424          goto T1370;          goto T1371;
4425  T1370:;  T1371:;
4426          if(!(((V677)->str.str_def)==(VV[243]))){          if(!(((V678)->str.str_def)==(VV[243]))){
4427          goto T1368;}          goto T1369;}
4428          V690= STREF(object,(V677),4);          V691= STREF(object,(V678),4);
4429          goto T1366;          goto T1367;
4430          goto T1368;          goto T1369;
4431  T1368:;{object V692;  T1369:;{object V693;
4432          V692= (VV[147]->s.s_dbind);          V693= (VV[147]->s.s_dbind);
4433          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4434          base[5]= (V677);          base[5]= (V678);
4435          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4436          (void) (*Lnk390)();          (void) (*Lnk390)();
4437          vs_top=sup;          vs_top=sup;
4438          V693= vs_base[0];          V694= vs_base[0];
4439          if(!((V692)==(CMPcar(V693)))){          if(!((V693)==(CMPcar(V694)))){
4440          goto T1373;}}          goto T1374;}}
4441          V690= CMPcar(((V677))->cc.cc_turbo[12]);          V691= CMPcar(((V678))->cc.cc_turbo[12]);
4442          goto T1366;          goto T1367;
4443          goto T1373;          goto T1374;
4444  T1373:;  T1374:;
4445          base[4]= VV[148];          base[4]= VV[148];
4446          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4447          Lerror();          Lerror();
4448          vs_top=sup;          vs_top=sup;
4449          V690= vs_base[0];          V691= vs_base[0];
4450          goto T1366;          goto T1367;
4451  T1366:;  T1367:;
4452          V683= (V690)->v.v_self[fix((VV[235]->s.s_dbind))];          V684= (V691)->v.v_self[fix((VV[235]->s.s_dbind))];
4453          goto T1361;          goto T1362;
4454  T1361:;  T1362:;
4455          {object V694= STREF(object,(V682),12);          {object V695= STREF(object,(V683),12);
4456          V684= (type_of(V694)==t_fixnum||type_of(V694)==t_bignum?Ct:Cnil);}          V685= (type_of(V695)==t_fixnum||type_of(V695)==t_bignum?Ct:Cnil);}
4457          if((V678)==Cnil){          if((V679)==Cnil){
4458          V685= Cnil;          V686= Cnil;
         goto T1380;}  
         V685= ((CMPcdr((V683)))==Cnil?Ct:Cnil);  
         goto T1380;  
 T1380:;  
         if(((V680))!=Cnil){  
         goto T1381;}  
         if(((V683))==Cnil){  
4459          goto T1381;}          goto T1381;}
4460          V679= (*(LnkLI427))((V677));          V686= ((CMPcdr((V684)))==Cnil?Ct:Cnil);
4461          goto T1381;          goto T1381;
4462  T1381:;  T1381:;
4463          if(((V680))!=Cnil){          if(((V681))!=Cnil){
4464            goto T1382;}
4465            if(((V684))==Cnil){
4466            goto T1382;}
4467            V680= (*(LnkLI427))((V678));
4468            goto T1382;
4469    T1382:;
4470            if(((V681))!=Cnil){
4471            goto T1389;}
4472            if(((V686))==Cnil){
4473          goto T1388;}          goto T1388;}
4474          if(((V685))==Cnil){          if(!((STREF(object,(V683),0))==(VV[237]))){
4475          goto T1387;}          goto T1388;}
4476          if(!((STREF(object,(V682),0))==(VV[237]))){          goto T1389;
4477          goto T1387;}  T1389:;
4478          goto T1388;          {object V696;
 T1388:;  
         {object V695;  
         object V696;  
4479          object V697;          object V697;
4480          object V698;          object V698;
4481          object V699;          object V699;
4482          object V700;          object V700;
4483          base[4]= (V679);          object V701;
4484            base[4]= (V680);
4485          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4486          (void) (*Lnk408)();          (void) (*Lnk408)();
         if(vs_base>=vs_top){vs_top=sup;goto T1396;}  
         V695= vs_base[0];  
         vs_base++;  
4487          if(vs_base>=vs_top){vs_top=sup;goto T1397;}          if(vs_base>=vs_top){vs_top=sup;goto T1397;}
4488          V696= vs_base[0];          V696= vs_base[0];
4489          vs_base++;          vs_base++;
# Line 4502  T1388:; Line 4498  T1388:;
4498          vs_base++;          vs_base++;
4499          if(vs_base>=vs_top){vs_top=sup;goto T1401;}          if(vs_base>=vs_top){vs_top=sup;goto T1401;}
4500          V700= vs_base[0];          V700= vs_base[0];
4501            vs_base++;
4502            if(vs_base>=vs_top){vs_top=sup;goto T1402;}
4503            V701= vs_base[0];
4504          vs_top=sup;          vs_top=sup;
4505          goto T1402;          goto T1403;
         goto T1396;  
 T1396:;  
         V695= Cnil;  
4506          goto T1397;          goto T1397;
4507  T1397:;  T1397:;
4508          V696= Cnil;          V696= Cnil;
# Line 4524  T1401:; Line 4520  T1401:;
4520          V700= Cnil;          V700= Cnil;
4521          goto T1402;          goto T1402;
4522  T1402:;  T1402:;
4523          if(((V683))==Cnil){          V701= Cnil;
4524          goto T1403;}          goto T1403;
4525          if(((V685))!=Cnil){  T1403:;
4526          goto T1403;}          if(((V684))==Cnil){
4527          {object V701;          goto T1404;}
4528          object V702;          if(((V686))!=Cnil){
4529            goto T1404;}
4530            {object V702;
4531          object V703;          object V703;
4532          V701= CMPmake_fixnum((long)(*(LnkLI394))((V682)));          object V704;
4533          V702= STREF(object,(V682),12);          V702= CMPmake_fixnum((long)(*(LnkLI394))((V683)));
4534          V703= STREF(object,(V682),16);          V703= STREF(object,(V683),12);
4535          if(!(number_compare((V695),(V701))==0)){          V704= STREF(object,(V683),16);
         goto T1411;}  
4536          if(!(number_compare((V696),(V702))==0)){          if(!(number_compare((V696),(V702))==0)){
4537          goto T1411;}          goto T1412;}
4538          if((V697)!=Cnil){          if(!(number_compare((V697),(V703))==0)){
4539          V704= (V697);          goto T1412;}
4540          goto T1417;}          if((V698)!=Cnil){
4541          V704= (V698);          V705= (V698);
4542          goto T1417;          goto T1418;}
4543  T1417:;          V705= (V699);
4544          if((V704)==((V703))){          goto T1418;
4545          goto T1403;}  T1418:;
4546          goto T1411;          if((V705)==((V704))){
4547  T1411:;          goto T1404;}
4548            goto T1412;
4549    T1412:;
4550          base[4]= VV[244];          base[4]= VV[244];
4551          base[5]= (V679);          base[5]= (V680);
4552          base[6]= (V677);          base[6]= (V678);
4553          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4554          Lerror();          Lerror();
4555          vs_top=sup;}          vs_top=sup;}
4556          goto T1403;          goto T1404;
4557  T1403:;  T1404:;
4558          if(((V680))==Cnil){          if(((V681))==Cnil){
4559          goto T1421;}          goto T1422;}
4560          if(equal(STREF(object,(V682),0),V679)){          if(equal(STREF(object,(V683),0),V680)){
4561          goto T1421;}          goto T1422;}
4562          V706= Ct;          V707= Ct;
4563          STSET(object,(V682),0, V679);          STSET(object,(V683),0, V680);
4564          (void)(V679);          (void)(V680);
4565          goto T1421;          goto T1422;
4566  T1421:;  T1422:;
         if(((V680))!=Cnil){  
         goto T1427;}  
4567          if(((V681))!=Cnil){          if(((V681))!=Cnil){
4568            goto T1428;}
4569            if(((V682))!=Cnil){
4570            goto T1428;}
4571            if((STREF(object,(V683),4))!=Cnil){
4572          goto T1427;}          goto T1427;}
4573          if((STREF(object,(V682),4))!=Cnil){          goto T1428;
4574          goto T1426;}  T1428:;
4575            {object V708;
4576            V708= (*(LnkLI428))((V680),(V696),(V682));
4577            if(equal(STREF(object,(V683),4),(V708))){
4578            goto T1427;}
4579            V709= Ct;
4580            STSET(object,(V683),4, (V708));
4581            (void)((V708));}
4582          goto T1427;          goto T1427;
4583  T1427:;  T1427:;
4584          {object V707;          {object V710;
4585          V707= (*(LnkLI428))((V679),(V695),(V681));          base[4]= (V696);
         if(equal(STREF(object,(V682),4),(V707))){  
         goto T1426;}  
         V708= Ct;  
         STSET(object,(V682),4, (V707));  
         (void)((V707));}  
         goto T1426;  
 T1426:;  
         {object V709;  
         base[4]= (V695);  
4586          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4587          Lmake_list();          Lmake_list();
4588          vs_top=sup;          vs_top=sup;
4589          V709= vs_base[0];          V710= vs_base[0];
4590          if(equal(STREF(object,(V682),8),(V709))){          if(equal(STREF(object,(V683),8),(V710))){
4591          goto T1436;}          goto T1437;}
4592          V710= Ct;          V711= Ct;
4593          STSET(object,(V682),8, (V709));          STSET(object,(V683),8, (V710));
4594          (void)((V709));}          (void)((V710));}
4595          goto T1436;          goto T1437;
4596  T1436:;  T1437:;
4597          if(equal(STREF(object,(V682),12),V696)){          if(equal(STREF(object,(V683),12),V697)){
4598          goto T1441;}          goto T1442;}
4599          V712= Ct;          V713= Ct;
4600          STSET(object,(V682),12, V696);          STSET(object,(V683),12, V697);
4601          (void)(V696);          (void)(V697);
4602          goto T1441;          goto T1442;
4603  T1441:;  T1442:;
4604          {object V713;          {object V714;
4605          if((V697)!=Cnil){          if((V698)!=Cnil){
4606          V714= (V697);          V715= (V698);
4607          goto T1446;}          goto T1447;}
4608          V714= (V698);          V715= (V699);
4609          goto T1446;          goto T1447;
4610  T1446:;  T1447:;
4611          V713= ((((V714)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V714= ((((V715)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4612          if(equal(STREF(object,(V682),16),(V713))){          if(equal(STREF(object,(V683),16),(V714))){
4613          goto T1444;}          goto T1445;}
         V715= Ct;  
         STSET(object,(V682),16, (V713));  
         (void)((V713));}  
         goto T1444;  
 T1444:;  
         {object V716;  
         if(((V680))==Cnil){  
         goto T1451;}  
         if(((V699))==Cnil){  
         goto T1454;}  
4614          V716= Ct;          V716= Ct;
4615          goto T1449;          STSET(object,(V683),16, (V714));
4616          goto T1454;          (void)((V714));}
4617  T1454:;          goto T1445;
4618          V716= (V700);  T1445:;
4619          goto T1449;          {object V717;
4620          goto T1451;          if(((V681))==Cnil){
4621  T1451:;          goto T1452;}
4622          V716= STREF(object,(V682),16);          if(((V700))==Cnil){
4623          goto T1449;          goto T1455;}
 T1449:;  
         if(equal(STREF(object,(V682),20),(V716))){  
         goto T1387;}  
4624          V717= Ct;          V717= Ct;
4625          STSET(object,(V682),20, (V716));          goto T1450;
4626          (void)((V716));}}          goto T1455;
4627          goto T1387;  T1455:;
4628  T1387:;          V717= (V701);
4629          if(((V678))==Cnil){          goto T1450;
4630          goto T1458;}          goto T1452;
4631          base[4]= (V677);  T1452:;
4632          base[5]= (V682);          V717= STREF(object,(V683),16);
4633          base[6]= (V678);          goto T1450;
4634    T1450:;
4635            if(equal(STREF(object,(V683),20),(V717))){
4636            goto T1388;}
4637            V718= Ct;
4638            STSET(object,(V683),20, (V717));
4639            (void)((V717));}}
4640            goto T1388;
4641    T1388:;
4642            if(((V679))==Cnil){
4643            goto T1459;}
4644            base[4]= (V678);
4645            base[5]= (V683);
4646            base[6]= (V679);
4647          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4648          (void) (*Lnk429)();          (void) (*Lnk429)();
4649          vs_top=sup;          vs_top=sup;
4650          goto T1458;          goto T1459;
4651  T1458:;  T1459:;
4652          (void)((*(LnkLI430))((V677),(V682),(V678),(V683),(V684),(V685)));          (void)((*(LnkLI430))((V678),(V683),(V679),(V684),(V685),(V686)));
4653          {object V718 = (V682);          {object V719 = (V683);
4654          VMR70(V718)}}          VMR70(V719)}}
4655          va_end(ap);          va_end(ap);
4656          base[0]=base[0];          base[0]=base[0];
4657          return Cnil;}          return Cnil;}
# Line 4663  static void L81() Line 4662  static void L81()
4662  {register object *base=vs_base;  {register object *base=vs_base;
4663          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
4664          vs_check;          vs_check;
4665          {register object V719;          {register object V720;
4666          check_arg(3);          check_arg(3);
4667          V719=(base[1]);          V720=(base[1]);
4668          vs_top=sup;          vs_top=sup;
4669          goto TTL;          goto TTL;
4670  TTL:;  TTL:;
4671          {object V720;          {object V721;
         object V721;  
4672          object V722;          object V722;
4673          object V723;          object V723;
4674          object V724;          object V724;
4675            object V725;
4676          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
4677          goto T1468;}          goto T1469;}
4678          base[4]= (*(LnkLI431))(base[2]);          base[4]= (*(LnkLI431))(base[2]);
4679          goto T1466;          goto T1467;
4680          goto T1468;          goto T1469;
4681  T1468:;  T1469:;
4682          base[5]= base[2];          base[5]= base[2];
4683          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4684          (void) (*Lnk48)(Lclptr48);          (void) (*Lnk48)(Lclptr48);
4685          vs_top=sup;          vs_top=sup;
4686          base[4]= vs_base[0];          base[4]= vs_base[0];
4687          goto T1466;          goto T1467;
4688  T1466:;  T1467:;
4689          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4690          (void) (*Lnk408)();          (void) (*Lnk408)();
         if(vs_base>=vs_top){vs_top=sup;goto T1471;}  
         V720= vs_base[0];  
         vs_base++;  
4691          if(vs_base>=vs_top){vs_top=sup;goto T1472;}          if(vs_base>=vs_top){vs_top=sup;goto T1472;}
4692          V721= vs_base[0];          V721= vs_base[0];
4693          vs_base++;          vs_base++;
# Line 4705  T1466:; Line 4701  T1466:;
4701          V724= vs_base[0];          V724= vs_base[0];
4702          vs_base++;          vs_base++;
4703          if(vs_base>=vs_top){vs_top=sup;goto T1476;}          if(vs_base>=vs_top){vs_top=sup;goto T1476;}
4704            V725= vs_base[0];
4705            vs_base++;
4706            if(vs_base>=vs_top){vs_top=sup;goto T1477;}
4707          base[3]=MMcons(vs_base[0],Cnil);          base[3]=MMcons(vs_base[0],Cnil);
4708          vs_top=sup;          vs_top=sup;
4709          goto T1477;          goto T1478;
         goto T1471;  
 T1471:;  
         V720= Cnil;  
4710          goto T1472;          goto T1472;
4711  T1472:;  T1472:;
4712          V721= Cnil;          V721= Cnil;
# Line 4725  T1475:; Line 4721  T1475:;
4721          V724= Cnil;          V724= Cnil;
4722          goto T1476;          goto T1476;
4723  T1476:;  T1476:;
4724          base[3]=MMcons(Cnil,Cnil);          V725= Cnil;
4725          goto T1477;          goto T1477;
4726  T1477:;  T1477:;
4727          {object V725;          base[3]=MMcons(Cnil,Cnil);
4728          object V726;          goto T1478;
4729    T1478:;
4730            {object V726;
4731          object V727;          object V727;
4732          object V728;          object V728;
4733          V725= CMPmake_fixnum((long)(*(LnkLI394))((V719)));          object V729;
4734          V726= STREF(object,(V719),12);          V726= CMPmake_fixnum((long)(*(LnkLI394))((V720)));
4735          V727= STREF(object,(V719),16);          V727= STREF(object,(V720),12);
4736          V728= STREF(object,(V719),20);          V728= STREF(object,(V720),16);
4737          if(number_compare((V720),(V725))==0){          V729= STREF(object,(V720),20);
4738          goto T1482;}          if(number_compare((V721),(V726))==0){
4739            goto T1483;}
4740          base[4]= VV[245];          base[4]= VV[245];
4741          base[6]= (V720);          base[6]= (V721);
4742          base[7]= (V725);          base[7]= (V726);
4743          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4744          L83(base);          L83(base);
4745          vs_top=sup;          vs_top=sup;
# Line 4748  T1477:; Line 4747  T1477:;
4747          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4748          L82(base);          L82(base);
4749          vs_top=sup;          vs_top=sup;
4750          goto T1482;          goto T1483;
4751  T1482:;  T1483:;
4752          if(number_compare((V721),(V726))==0){          if(number_compare((V722),(V727))==0){
4753          goto T1489;}          goto T1490;}
4754          base[4]= VV[246];          base[4]= VV[246];
4755          base[6]= (V721);          base[6]= (V722);
4756          base[7]= (V726);          base[7]= (V727);
4757          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4758          L83(base);          L83(base);
4759          vs_top=sup;          vs_top=sup;
# Line 4762  T1482:; Line 4761  T1482:;
4761          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4762          L82(base);          L82(base);
4763          vs_top=sup;          vs_top=sup;
4764          goto T1489;          goto T1490;
4765  T1489:;  T1490:;
4766          if((V722)!=Cnil){          if((V723)!=Cnil){
4767          V729= (V722);          V730= (V723);
4768          goto T1499;}          goto T1500;}
4769          V729= (V723);          V730= (V724);
4770          goto T1499;          goto T1500;
4771  T1499:;  T1500:;
4772          if((V729)==((V727))){          if((V730)==((V728))){
4773          goto T1496;}          goto T1497;}
4774          base[4]= VV[247];          base[4]= VV[247];
4775          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4776          Lerror();          Lerror();
4777          vs_top=sup;          vs_top=sup;
4778          goto T1496;          goto T1497;
4779  T1496:;  T1497:;
4780          if(!(type_of((V728))==t_cons)){          if(!(type_of((V729))==t_cons)){
4781          goto T1502;}          goto T1503;}
4782            if(((V724))==Cnil){
4783            goto T1507;}
4784          if(((V723))==Cnil){          if(((V723))==Cnil){
4785          goto T1506;}          goto T1506;}
4786          if(((V722))==Cnil){          goto T1507;
4787          goto T1505;}  T1507:;
4788          goto T1506;          if(((V725))!=Cnil){
4789  T1506:;          goto T1506;}
         if(((V724))!=Cnil){  
         goto T1505;}  
4790          base[4]=          base[4]=
4791          make_cclosure_new(LC133,Cnil,base[3],Cdata);          make_cclosure_new(LC133,Cnil,base[3],Cdata);
4792          base[5]= (V728);          base[5]= (V729);
4793          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4794          (void) (*Lnk366)();          (void) (*Lnk366)();
4795          vs_top=sup;          vs_top=sup;
4796          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4797          goto T1505;}          goto T1506;}
4798          base[4]= VV[248];          base[4]= VV[248];
4799          base[5]= (V728);          base[5]= (V729);
4800          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4801          L82(base);          L82(base);
4802          return;          return;
4803          goto T1505;          goto T1506;
4804  T1505:;  T1506:;
4805          base[4]= Cnil;          base[4]= Cnil;
4806          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4807          return;          return;
4808          goto T1502;          goto T1503;
4809  T1502:;  T1503:;
4810          base[4]= Cnil;          base[4]= Cnil;
4811          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4812          return;}}          return;}}
# Line 4815  T1502:; Line 4814  T1502:;
4814  }  }
4815  /*      local entry for function SET-ARG-INFO1  */  /*      local entry for function SET-ARG-INFO1  */
4816    
4817  static object LI84(V736,V737,V738,V739,V740,V741)  static object LI84(V737,V738,V739,V740,V741,V742)
4818    
4819  object V736;object V737;object V738;object V739;object V740;object V741;  object V737;object V738;object V739;object V740;object V741;object V742;
4820  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
4821          goto TTL;          goto TTL;
4822  TTL:;  TTL:;
4823          {object V742;          {object V743;
         object V743;  
4824          object V744;          object V744;
4825          register object V745;          object V745;
4826          if((V739)==Cnil){          register object V746;
4827          V742= Cnil;          if((V740)==Cnil){
4828          goto T1518;}          V743= Cnil;
         if((CMPcdr((V739)))!=Cnil){  
4829          goto T1519;}          goto T1519;}
4830          V742= Cnil;          if((CMPcdr((V740)))!=Cnil){
4831          goto T1518;          goto T1520;}
4832            V743= Cnil;
4833            goto T1519;
4834            goto T1520;
4835    T1520:;
4836            V743= (V739);
4837          goto T1519;          goto T1519;
4838  T1519:;  T1519:;
4839          V742= (V738);          V744= CMPmake_fixnum((long)length(STREF(object,(V738),8)));
4840          goto T1518;          if(((V743))==Cnil){
4841  T1518:;          goto T1525;}
4842          V743= CMPmake_fixnum((long)length(STREF(object,(V737),8)));          V745= STREF(object,(V738),8);
4843          if(((V742))==Cnil){          goto T1523;
4844          goto T1524;}          goto T1525;
4845          V744= STREF(object,(V737),8);  T1525:;
4846          goto T1522;          base[4]= (V744);
         goto T1524;  
 T1524:;  
         base[4]= (V743);  
4847          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4848          Lmake_list();          Lmake_list();
4849          vs_top=sup;          vs_top=sup;
4850          V744= vs_base[0];          V745= vs_base[0];
4851          goto T1522;          goto T1523;
4852  T1522:;  T1523:;
4853          if(((V742))==Cnil){          if(((V743))==Cnil){
4854          goto T1529;}          goto T1530;}
4855          V745= STREF(object,(V737),24);          V746= STREF(object,(V738),24);
4856          goto T1527;          goto T1528;
4857          goto T1529;          goto T1530;
4858  T1529:;  T1530:;
4859          V745= Cnil;          V746= Cnil;
4860          goto T1527;          goto T1528;
4861  T1527:;  T1528:;
4862          if(((*(LnkLI432))((V737)))==Cnil){          if(((*(LnkLI432))((V738)))==Cnil){
4863          goto T1517;}          goto T1518;}
4864          {register object V746;          {register object V747;
4865          register object V747;          register object V748;
4866          if(((V738))==Cnil){          if(((V739))==Cnil){
4867          goto T1536;}          goto T1537;}
4868          V746= make_cons((V738),Cnil);          V747= make_cons((V739),Cnil);
4869          goto T1534;          goto T1535;
4870          goto T1536;          goto T1537;
4871  T1536:;  T1537:;
4872          V746= (V739);          V747= (V740);
4873          goto T1534;          goto T1535;
4874  T1534:;  T1535:;
4875          V747= CMPcar((V746));          V748= CMPcar((V747));
         goto T1540;  
 T1540:;  
         if(!(((V746))==Cnil)){  
         goto T1541;}  
         goto T1533;  
4876          goto T1541;          goto T1541;
4877  T1541:;  T1541:;
4878          {object V748;          if(!(((V747))==Cnil)){
4879          register object V749;          goto T1542;}
4880            goto T1534;
4881            goto T1542;
4882    T1542:;
4883            {object V749;
4884          register object V750;          register object V750;
4885          if(((VV[16]->s.s_dbind))==(VV[17])){          register object V751;
4886          goto T1547;}          if(((VV[17]->s.s_dbind))==(VV[18])){
         if(type_of((V747))==t_cons){  
4887          goto T1548;}          goto T1548;}
4888          goto T1547;          if(type_of((V748))==t_cons){
4889  T1547:;          goto T1549;}
4890          base[9]= (V747);          goto T1548;
4891    T1548:;
4892            base[9]= (V748);
4893          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4894          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
4895          vs_top=sup;          vs_top=sup;
4896          V748= vs_base[0];          V749= vs_base[0];
4897          goto T1546;          goto T1547;
4898          goto T1548;          goto T1549;
4899  T1548:;  T1549:;
4900          V748= (VFUN_NARGS=2,(*(LnkLI434))((V747),Ct));          V749= (VFUN_NARGS=2,(*(LnkLI434))((V748),Ct));
4901          goto T1546;          goto T1547;
4902  T1546:;  T1547:;
4903          if(((VV[16]->s.s_dbind))==(VV[17])){          if(((VV[17]->s.s_dbind))==(VV[18])){
         goto T1554;}  
         if(type_of((V747))==t_cons){  
4904          goto T1555;}          goto T1555;}
4905          goto T1554;          if(type_of((V748))==t_cons){
4906  T1554:;          goto T1556;}
         V749= (*(LnkLI363))((V747));  
         goto T1553;  
4907          goto T1555;          goto T1555;
4908  T1555:;  T1555:;
4909          V749= (*(LnkLI435))((V747));          V750= (*(LnkLI363))((V748));
4910          goto T1553;          goto T1554;
4911  T1553:;          goto T1556;
4912          if(((V749))==Cnil){  T1556:;
4913            V750= (*(LnkLI435))((V748));
4914            goto T1554;
4915    T1554:;
4916            if(((V750))==Cnil){
4917            goto T1562;}
4918            if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4919          goto T1561;}          goto T1561;}
4920          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          base[9]= (V737);
         goto T1560;}  
         base[9]= (V736);  
4921          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4922          (void) (*Lnk436)(Lclptr436);          (void) (*Lnk436)(Lclptr436);
4923          vs_top=sup;          vs_top=sup;
4924          V751= vs_base[0];          V752= vs_base[0];
4925          if(!((V751)==((VV[252]->s.s_dbind)))){          if(!((V752)==((VV[252]->s.s_dbind)))){
4926          goto T1561;}          goto T1562;}
         goto T1560;  
 T1560:;  
         if(!(((V749))==((VV[253]->s.s_dbind)))){  
         goto T1570;}  
         V750= VV[254];  
         goto T1559;  
         goto T1570;  
 T1570:;  
         if(!(((V749))==((VV[255]->s.s_dbind)))){  
         goto T1573;}  
         V750= VV[256];  
         goto T1559;  
         goto T1573;  
 T1573:;  
         if(!(((V749))==((VV[257]->s.s_dbind)))){  
         goto T1576;}  
         V750= VV[258];  
         goto T1559;  
         goto T1576;  
 T1576:;  
         V750= Cnil;  
         goto T1559;  
4927          goto T1561;          goto T1561;
4928  T1561:;  T1561:;
4929          V750= Cnil;          if(!(((V750))==((VV[253]->s.s_dbind)))){
4930          goto T1559;          goto T1571;}
4931  T1559:;          V751= VV[254];
4932            goto T1560;
4933            goto T1571;
4934    T1571:;
4935            if(!(((V750))==((VV[255]->s.s_dbind)))){
4936            goto T1574;}
4937            V751= VV[256];
4938            goto T1560;
4939            goto T1574;
4940    T1574:;
4941            if(!(((V750))==((VV[257]->s.s_dbind)))){
4942            goto T1577;}
4943            V751= VV[258];
4944            goto T1560;
4945            goto T1577;
4946    T1577:;
4947            V751= Cnil;
4948            goto T1560;
4949            goto T1562;
4950    T1562:;
4951            V751= Cnil;
4952            goto T1560;
4953    T1560:;
4954          base[10]=VV[437]->s.s_gfdef;          base[10]=VV[437]->s.s_gfdef;
4955          {object V752;          {object V753;
4956          object V753= (V744);          object V754= (V745);
4957          object V754= (V748);          object V755= (V749);
4958          if(V753==Cnil||V754==Cnil){          if(V754==Cnil||V755==Cnil){
4959          V744= Cnil;          V745= Cnil;
4960          goto T1579;}          goto T1580;}
4961          base[9]=V752=MMcons(Cnil,Cnil);          base[9]=V753=MMcons(Cnil,Cnil);
4962          goto T1580;          goto T1581;
4963  T1580:;  T1581:;
4964          base[11]= (V753->c.c_car);          base[11]= (V754->c.c_car);
4965          base[12]= (V754->c.c_car);          base[12]= (V755->c.c_car);
4966          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
4967          (void) (*Lnk437)();          (void) (*Lnk437)();
4968          vs_top=sup;          vs_top=sup;
4969          (V752->c.c_car)= vs_base[0];          (V753->c.c_car)= vs_base[0];
4970          if((V753=MMcdr(V753))==Cnil||(V754=MMcdr(V754))==Cnil){          if((V754=MMcdr(V754))==Cnil||(V755=MMcdr(V755))==Cnil){
4971          V744= base[9];          V745= base[9];
         goto T1579;}  
         V752=MMcdr(V752)=MMcons(Cnil,Cnil);  
4972          goto T1580;}          goto T1580;}
4973          goto T1579;          V753=MMcdr(V753)=MMcons(Cnil,Cnil);
4974  T1579:;          goto T1581;}
4975          if(((V745))!=Cnil){          goto T1580;
4976          goto T1586;}  T1580:;
4977          V745= (V750);          if(((V746))!=Cnil){
4978          goto T1584;          goto T1587;}
4979          goto T1586;          V746= (V751);
4980  T1586:;          goto T1585;
4981          if(!(((V745))==((V750)))){          goto T1587;
4982          goto T1589;}  T1587:;
4983          goto T1584;          if(!(((V746))==((V751)))){
4984          goto T1589;          goto T1590;}
4985  T1589:;          goto T1585;
4986          V745= Cnil;          goto T1590;
4987          goto T1584;  T1590:;
4988  T1584:;}          V746= Cnil;
4989          V746= CMPcdr((V746));          goto T1585;
4990          V747= CMPcar((V746));  T1585:;}
4991          goto T1540;}          V747= CMPcdr((V747));
4992          goto T1533;          V748= CMPcar((V747));
4993  T1533:;          goto T1541;}
4994          if(equal(STREF(object,(V737),8),V744)){          goto T1534;
4995          goto T1596;}  T1534:;
4996          V756= Ct;          if(equal(STREF(object,(V738),8),V745)){
4997          STSET(object,(V737),8, V744);          goto T1597;}
4998          (void)(V744);          V757= Ct;
4999          goto T1596;          STSET(object,(V738),8, V745);
5000  T1596:;          (void)(V745);
5001          if(equal(STREF(object,(V737),24),V745)){          goto T1597;
5002          goto T1517;}  T1597:;
5003          V758= Ct;          if(equal(STREF(object,(V738),24),V746)){
5004          STSET(object,(V737),24, V745);          goto T1518;}
5005          (void)(V745);}          V759= Ct;
5006          goto T1517;          STSET(object,(V738),24, V746);
5007  T1517:;          (void)(V746);}
5008          if(((V740))==Cnil){          goto T1518;
5009          goto T1602;}  T1518:;
5010          if(((V741))==Cnil){          if(((V741))==Cnil){
5011          goto T1601;}          goto T1603;}
5012          goto T1602;          if(((V742))==Cnil){
5013  T1602:;          goto T1602;}
5014          {object V759;          goto T1603;
5015          object V760;  T1603:;
5016          if(((*(LnkLI438))((V736)))==Cnil){          {object V760;
5017          goto T1608;}          object V761;
5018            if(((*(LnkLI438))((V737)))==Cnil){
5019            goto T1609;}
5020          base[0]= Ct;          base[0]= Ct;
5021          base[1]= Ct;          base[1]= Ct;
5022          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5023          goto T1606;          goto T1607;
5024          goto T1608;          goto T1609;
5025  T1608:;  T1609:;
5026          base[0]= (V736);          base[0]= (V737);
5027          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5028          (void) (*Lnk439)();          (void) (*Lnk439)();
5029          goto T1606;          goto T1607;
5030  T1606:;  T1607:;
         if(vs_base>=vs_top){vs_top=sup;goto T1613;}  
         V759= vs_base[0];  
         vs_base++;  
5031          if(vs_base>=vs_top){vs_top=sup;goto T1614;}          if(vs_base>=vs_top){vs_top=sup;goto T1614;}
5032          V760= vs_base[0];          V760= vs_base[0];
5033            vs_base++;
5034            if(vs_base>=vs_top){vs_top=sup;goto T1615;}
5035            V761= vs_base[0];
5036          vs_top=sup;          vs_top=sup;
5037          goto T1615;          goto T1616;
         goto T1613;  
 T1613:;  
         V759= Cnil;  
5038          goto T1614;          goto T1614;
5039  T1614:;  T1614:;
5040          V760= Cnil;          V760= Cnil;
5041          goto T1615;          goto T1615;
5042  T1615:;  T1615:;
5043          if(equal(STREF(object,(V737),32),V759)){          V761= Cnil;
         goto T1616;}  
         V762= Ct;  
         STSET(object,(V737),32, V759);  
         (void)(V759);  
5044          goto T1616;          goto T1616;
5045  T1616:;  T1616:;
5046          if(equal(STREF(object,(V737),36),V760)){          if(equal(STREF(object,(V738),32),V760)){
5047          goto T1619;}          goto T1617;}
5048          V764= Ct;          V763= Ct;
5049          STSET(object,(V737),36, V760);          STSET(object,(V738),32, V760);
5050          (void)(V760);          (void)(V760);
5051          goto T1619;          goto T1617;
5052  T1619:;  T1617:;
5053          if((STREF(object,(V737),36))!=Cnil){          if(equal(STREF(object,(V738),36),V761)){
5054          goto T1601;}          goto T1620;}
5055          if(equal(STREF(object,(V737),24),Ct)){          V765= Ct;
5056          goto T1601;}          STSET(object,(V738),36, V761);
5057          V766= Ct;          (void)(V761);
5058          STSET(object,(V737),24, Ct);          goto T1620;
5059    T1620:;
5060            if((STREF(object,(V738),36))!=Cnil){
5061            goto T1602;}
5062            if(equal(STREF(object,(V738),24),Ct)){
5063            goto T1602;}
5064            V767= Ct;
5065            STSET(object,(V738),24, Ct);
5066          (void)(Ct);}          (void)(Ct);}
5067          goto T1601;          goto T1602;
5068  T1601:;  T1602:;
5069          if(((V740))!=Cnil){          if(((V741))!=Cnil){
5070          goto T1626;}          goto T1627;}
5071          {object V767;          {object V768;
5072          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5073          goto T1631;}          goto T1632;}
5074          base[0]= (V736);          base[0]= (V737);
5075          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5076          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk440)(Lclptr440);
5077          vs_top=sup;          vs_top=sup;
5078          V767= vs_base[0];          V768= vs_base[0];
5079          goto T1629;          goto T1630;
5080          goto T1631;          goto T1632;
5081  T1631:;  T1632:;
5082          V767= (*(LnkLI441))((V736));          V768= (*(LnkLI441))((V737));
5083          goto T1629;          goto T1630;
5084  T1629:;  T1630:;
         {object V768;  
5085          {object V769;          {object V769;
5086          object V770;          {object V770;
5087          if(!(type_of((V767))!=t_cons)){          object V771;
5088          goto T1637;}          if(!(type_of((V768))!=t_cons)){
5089          V769= (V767);          goto T1638;}
5090          goto T1635;          V770= (V768);
5091          goto T1637;          goto T1636;
5092  T1637:;          goto T1638;
5093          V769= CMPcadr((V767));  T1638:;
5094          goto T1635;          V770= CMPcadr((V768));
5095  T1635:;{object V771;          goto T1636;
5096          V771= (VV[219]->s.s_dbind);  T1636:;{object V772;
5097            V772= (VV[219]->s.s_dbind);
5098          base[2]= (VV[219]->s.s_dbind);          base[2]= (VV[219]->s.s_dbind);
5099          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5100          Lpackage_use_list();          Lpackage_use_list();
5101          vs_top=sup;          vs_top=sup;
5102          V772= vs_base[0];          V773= vs_base[0];
5103          V770= make_cons(V771,V772);}          V771= make_cons(V772,V773);}
5104          if((V769)==Cnil){          if((V770)==Cnil){
5105          V768= Cnil;          V769= Cnil;
5106          goto T1634;}          goto T1635;}
5107          if(type_of((V769))==t_symbol){          if(type_of((V770))==t_symbol){
5108          goto T1642;}          goto T1643;}
5109          V768= Cnil;          V769= Cnil;
5110          goto T1634;          goto T1635;
5111          goto T1642;          goto T1643;
5112  T1642:;  T1643:;
5113          base[2]= (V769);          base[2]= (V770);
5114          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5115          Lsymbol_package();          Lsymbol_package();
5116          vs_top=sup;          vs_top=sup;
5117          V775= vs_base[0];          V776= vs_base[0];
5118          {register object x= V775,V774= (V770);          {register object x= V776,V775= (V771);
5119          while(V774!=Cnil)          while(V775!=Cnil)
5120          if(x==(V774->c.c_car)){          if(x==(V775->c.c_car)){
5121          V773= V774;          V774= V775;
5122          goto T1646;          goto T1647;
5123          }else V774=V774->c.c_cdr;          }else V775=V775->c.c_cdr;
5124          V773= Cnil;}          V774= Cnil;}
5125          goto T1646;          goto T1647;
5126  T1646:;  T1647:;
5127          if((((V773)==Cnil?Ct:Cnil))==Cnil){          if((((V774)==Cnil?Ct:Cnil))==Cnil){
5128          goto T1644;}          goto T1645;}
5129          V768= Cnil;          V769= Cnil;
5130          goto T1634;          goto T1635;
5131          goto T1644;          goto T1645;
5132  T1644:;  T1645:;
5133          base[2]= VV[259];          base[2]= VV[259];
5134          base[3]= symbol_name((V769));          base[3]= symbol_name((V770));
5135          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5136          (void) (*Lnk442)();          (void) (*Lnk442)();
5137          vs_top=sup;          vs_top=sup;
5138          V776= vs_base[0];          V777= vs_base[0];
5139          V768= ((V776)==Cnil?Ct:Cnil);}          V769= ((V777)==Cnil?Ct:Cnil);}
5140          goto T1634;          goto T1635;
5141  T1634:;  T1635:;
5142          if(equal(STREF(object,(V737),28),(V768))){          if(equal(STREF(object,(V738),28),(V769))){
5143          goto T1626;}          goto T1627;}
         V777= Ct;  
         STSET(object,(V737),28, (V768));  
         (void)((V768));}}  
         goto T1626;  
 T1626:;  
         {object V778;  
         if(!(((((VV[16]->s.s_dbind))==(VV[17])?Ct:Cnil))==Cnil)){  
         goto T1656;}  
5144          V778= Ct;          V778= Ct;
5145          goto T1655;          STSET(object,(V738),28, (V769));
5146          goto T1656;          (void)((V769));}}
5147  T1656:;          goto T1627;
5148    T1627:;
5149          {object V779;          {object V779;
5150          object V780;          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){
5151          base[2]= (V736);          goto T1657;}
5152            V779= Ct;
5153            goto T1656;
5154            goto T1657;
5155    T1657:;
5156            {object V780;
5157            object V781;
5158            base[2]= (V737);
5159          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5160          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
5161          vs_top=sup;          vs_top=sup;
5162          V779= vs_base[0];          V780= vs_base[0];
5163          base[2]= (VV[360]->s.s_gfdef);          base[2]= (VV[360]->s.s_gfdef);
5164          base[4]= (V779);          base[4]= (V780);
5165          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5166          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
5167          vs_top=sup;          vs_top=sup;
5168          V781= vs_base[0];          V782= vs_base[0];
5169          base[3]= list(4,(V736),V781,VV[260],Cnil);          base[3]= list(4,(V737),V782,VV[260],Cnil);
5170          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5171          (void) (*Lnk443)(Lclptr443);          (void) (*Lnk443)(Lclptr443);
5172          vs_top=sup;          vs_top=sup;
5173          V780= vs_base[0];          V781= vs_base[0];
5174          if((V780)==Cnil){          if((V781)==Cnil){
5175          V778= Cnil;          V779= Cnil;
5176          goto T1655;}          goto T1656;}
5177          if((CMPcdr((V780)))==Cnil){          if((CMPcdr((V781)))==Cnil){
5178          goto T1665;}          goto T1666;}
5179          V778= Cnil;          V779= Cnil;
5180          goto T1655;          goto T1656;
5181          goto T1665;          goto T1666;
5182  T1665:;  T1666:;
5183          {object V782;          {object V783;
5184          base[2]= CMPcar((V780));          base[2]= CMPcar((V781));
5185          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5186          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
5187          vs_top=sup;          vs_top=sup;
5188          V782= vs_base[0];          V783= vs_base[0];
5189          base[2]= CMPcar((V782));          base[2]= CMPcar((V783));
5190          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5191          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
5192          vs_top=sup;          vs_top=sup;
5193          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5194          goto T1669;}          goto T1670;}
5195          V778= Cnil;          V779= Cnil;
5196          goto T1655;          goto T1656;
5197          goto T1669;          goto T1670;
5198  T1669:;  T1670:;
5199          base[2]= CMPcar((V782));          base[2]= CMPcar((V783));
5200          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5201          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
5202          vs_top=sup;          vs_top=sup;
5203          V783= vs_base[0];          V784= vs_base[0];
5204          if((VV[18])==(V783)){          if((VV[19])==(V784)){
5205          goto T1672;}          goto T1673;}
5206          V778= Cnil;          V779= Cnil;
5207          goto T1655;          goto T1656;
5208          goto T1672;          goto T1673;
5209  T1672:;  T1673:;
5210          base[2]= CMPcadr((V782));          base[2]= CMPcadr((V783));
5211          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5212          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
5213          vs_top=sup;          vs_top=sup;
5214          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5215          goto T1676;}          goto T1677;}
5216          V778= Cnil;          V779= Cnil;
5217          goto T1655;          goto T1656;
5218          goto T1676;          goto T1677;
5219  T1676:;  T1677:;
5220          base[2]= CMPcadr((V782));          base[2]= CMPcadr((V783));
5221          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5222          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
5223          vs_top=sup;          vs_top=sup;
5224          V784= vs_base[0];          V785= vs_base[0];
5225          V778= ((VV[19])==(V784)?Ct:Cnil);}}          V779= ((VV[20])==(V785)?Ct:Cnil);}}
5226            goto T1656;
5227    T1656:;
5228            if(equal(STREF(object,(V738),40),(V779))){
5229            goto T1655;}
5230            V786= Ct;
5231            STSET(object,(V738),40, (V779));
5232            (void)((V779));}
5233          goto T1655;          goto T1655;
5234  T1655:;  T1655:;
5235          if(equal(STREF(object,(V737),40),(V778))){          {object V787 = (V738);
5236          goto T1654;}          VMR72(V787)}
         V785= Ct;  
         STSET(object,(V737),40, (V778));  
         (void)((V778));}  
         goto T1654;  
 T1654:;  
         {object V786 = (V737);  
         VMR72(V786)}  
5237          base[0]=base[0];          base[0]=base[0];
5238          return Cnil;          return Cnil;
5239  }  }
5240  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */
5241    
5242  static object LI85(object V788,object V787,object first,...)  static object LI85(object V789,object V788,object first,...)
5243  {        {      
5244          va_list ap;          va_list ap;
5245          int narg = VFUN_NARGS; VMB73 VMS73 VMV73          int narg = VFUN_NARGS; VMB73 VMS73 VMV73
5246          {register object V789;          {register object V790;
5247          register object V790;          register object V791;
         object V791;  
5248          object V792;          object V792;
5249          object V793;          object V793;
5250            object V794;
5251          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
5252          va_start(ap,first);          va_start(ap,first);
5253          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5254          V789= V788;          V790= V789;
5255          V790= V787;          V791= V788;
5256          narg= narg - 2;          narg= narg - 2;
5257          V794 = make_list(narg);          V795 = make_list(narg);
5258          V791= V794;          V792= V795;
5259          {          {
5260          parse_key_rest_new(V794,narg,Vcs +3,(struct key *)&LI85key,first,ap);          parse_key_rest_new(V795,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap);
5261          if(Vcs[3]==0){          if(Vcs[3]==0){
         V792= Cnil;  
5262          V793= Cnil;          V793= Cnil;
5263            V794= Cnil;
5264          }else{          }else{
5265          V792=(Vcs[3]);          V793=(Vcs[3]);
5266          V793= Ct;}          V794= Ct;}
5267          if(((V789))==Cnil){          if(((V790))==Cnil){
5268          goto T1685;}          goto T1686;}
5269          if(((*(LnkLI438))((V789)))==Cnil){          if(((*(LnkLI438))((V790)))==Cnil){
5270          goto T1685;}          goto T1686;}
5271          {object V795 = (V789);          {object V796 = (V790);
5272          VMR73(V795)}          VMR73(V796)}
5273          goto T1685;          goto T1686;
5274  T1685:;  T1686:;
5275          {register object x= (V790),V796= (VV[261]->s.s_dbind);          {register object x= (V791),V797= (VV[261]->s.s_dbind);
5276          while(V796!=Cnil)          while(V797!=Cnil)
5277          if(equal(x,V796->c.c_car->c.c_car) &&V796->c.c_car != Cnil){          if(equal(x,V797->c.c_car->c.c_car) &&V797->c.c_car != Cnil){
5278          goto T1691;          goto T1692;
5279          }else V796=V796->c.c_cdr;          }else V797=V797->c.c_cdr;
5280          goto T1690;}          goto T1691;}
5281          goto T1691;          goto T1692;
5282  T1691:;  T1692:;
5283          if(((V789))==Cnil){          if(((V790))==Cnil){
5284          goto T1693;}          goto T1694;}
5285          {object V797 = (VFUN_NARGS=4,(*(LnkLI444))((V790),(V792),(V793),(V789)));          {object V798 = (VFUN_NARGS=4,(*(LnkLI444))((V791),(V793),(V794),(V790)));
5286          VMR73(V797)}          VMR73(V798)}
5287          goto T1693;          goto T1694;
5288  T1693:;  T1694:;
5289          base[0]= VV[262];          base[0]= VV[262];
5290          base[1]= (V790);          base[1]= (V791);
5291          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5292          Lerror();          Lerror();
5293          vs_top=sup;          vs_top=sup;
5294          {object V798 = vs_base[0];          {object V799 = vs_base[0];
5295          VMR73(V798)}          VMR73(V799)}
5296          goto T1690;          goto T1691;
5297  T1690:;  T1691:;
5298          if(((V789))==Cnil){          if(((V790))==Cnil){
5299          goto T1698;}          goto T1699;}
5300          base[0]= VV[263];          base[0]= VV[263];
5301          base[1]= (V790);          base[1]= (V791);
5302          base[2]= VV[261];          base[2]= VV[261];
5303          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5304          Lerror();          Lerror();
5305          vs_top=sup;          vs_top=sup;
5306          {object V799 = vs_base[0];          {object V800 = vs_base[0];
5307          VMR73(V799)}          VMR73(V800)}
5308          goto T1698;          goto T1699;
5309  T1698:;  T1699:;
5310          base[0]= V790;          base[0]= V791;
5311          base[1]= (VV[264]->s.s_dbind);          base[1]= (VV[264]->s.s_dbind);
5312          base[2]= VV[265];          base[2]= VV[265];
5313          base[3]= (VV[241]->s.s_gfdef);          base[3]= (VV[241]->s.s_gfdef);
# Line 5316  T1698:; Line 5315  T1698:;
5315          Ladjoin();          Ladjoin();
5316          vs_top=sup;          vs_top=sup;
5317          (VV[264]->s.s_dbind)= vs_base[0];          (VV[264]->s.s_dbind)= vs_base[0];
5318          {object V801 = (VFUN_NARGS=3,(*(LnkLI444))((V790),(V792),(V793)));          {object V802 = (VFUN_NARGS=3,(*(LnkLI444))((V791),(V793),(V794)));
5319          VMR73(V801)}          VMR73(V802)}
5320          va_end(ap);          va_end(ap);
5321          base[0]=base[0];          base[0]=base[0];
5322          return Cnil;}          return Cnil;}
5323          }}          }}
5324  /*      local entry for function MAKE-EARLY-GF  */  /*      local entry for function MAKE-EARLY-GF  */
5325    
5326  static object LI86(object V802,object first,...)  static object LI86(object V803,object first,...)
5327  {        {      
5328          va_list ap;          va_list ap;
5329          int narg = VFUN_NARGS; VMB74 VMS74 VMV74          int narg = VFUN_NARGS; VMB74 VMS74 VMV74
5330          {register object V803;          {register object V804;
         object V804;  
5331          object V805;          object V805;
5332          object V806;          object V806;
5333            object V807;
5334          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
5335          va_start(ap,first);          va_start(ap,first);
5336          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5337          V803= V802;          V804= V803;
5338          narg = narg - 1;          narg = narg - 1;
5339          if (narg <= 0) goto T1709;          if (narg <= 0) goto T1710;
         else {  
         V804= first;}  
         if (--narg <= 0) goto T1710;  
5340          else {          else {
5341          V805= va_arg(ap,object);}          V805= first;}
5342          if (--narg <= 0) goto T1711;          if (--narg <= 0) goto T1711;
5343          else {          else {
5344          V806= va_arg(ap,object);}          V806= va_arg(ap,object);}
5345          --narg; goto T1712;          if (--narg <= 0) goto T1712;
5346          goto T1709;          else {
5347  T1709:;          V807= va_arg(ap,object);}
5348          V804= Cnil;          --narg; goto T1713;
5349          goto T1710;          goto T1710;
5350  T1710:;  T1710:;
5351          V805= Cnil;          V805= Cnil;
# Line 5358  T1711:; Line 5354  T1711:;
5354          V806= Cnil;          V806= Cnil;
5355          goto T1712;          goto T1712;
5356  T1712:;  T1712:;
5357            V807= Cnil;
5358            goto T1713;
5359    T1713:;
5360          base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind)));          base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind)));
5361          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
5362          if((V806)!=Cnil){          if((V807)!=Cnil){
5363          V807= (V806);          V808= (V807);
5364          goto T1718;}          goto T1719;}
5365          if(!(((V803))==(VV[268]))){          if(!(((V804))==(VV[268]))){
5366          goto T1720;}          goto T1721;}
5367          V807=          V808=
5368          make_cclosure_new(LC134,Cnil,base[0],Cdata);          make_cclosure_new(LC134,Cnil,base[0],Cdata);
5369          goto T1718;          goto T1719;
5370          goto T1720;          goto T1721;
5371  T1720:;  T1721:;
5372          V807=          V808=
5373          make_cclosure_new(LC135,Cnil,base[0],Cdata);          make_cclosure_new(LC135,Cnil,base[0],Cdata);
5374          goto T1718;          goto T1719;
5375  T1718:;  T1719:;
5376          (void)((*(LnkLI446))((base[0]->c.c_car),V807));          (void)((*(LnkLI446))((base[0]->c.c_car),V808));
5377          (void)((*(LnkLI345))((base[0]->c.c_car),V803));          (void)((*(LnkLI345))((base[0]->c.c_car),V804));
5378          (void)((*(LnkLI447))(VV[18],(base[0]->c.c_car),VV[274],(V803)));          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[274],(V804)));
5379          vs_base=vs_top;          vs_base=vs_top;
5380          (void) (*Lnk350)();          (void) (*Lnk350)();
5381          vs_top=sup;          vs_top=sup;
5382          V809= vs_base[0];          V810= vs_base[0];
5383          (void)((*(LnkLI447))(VV[18],(base[0]->c.c_car),VV[275],V809));          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[275],V810));
5384          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5385          base[2]= (V803);          base[2]= (V804);
5386          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5387          (void) (*Lnk346)();          (void) (*Lnk346)();
5388          vs_top=sup;          vs_top=sup;
5389          {object V810;          {object V811;
5390          V810= (*(LnkLI448))();          V811= (*(LnkLI448))();
5391          {object V812;          {object V813;
5392          V812= (base[0]->c.c_car);          V813= (base[0]->c.c_car);
5393          if(type_of((V812))==t_structure){          if(type_of((V813))==t_structure){
5394          goto T1736;}          goto T1737;}
5395          goto T1734;          goto T1735;
5396          goto T1736;          goto T1737;
5397  T1736:;  T1737:;
5398          if(!((((V812))->str.str_def)==(VV[276]))){          if(!((((V813))->str.str_def)==(VV[276]))){
5399          goto T1734;}}          goto T1735;}}
5400          V811= STREF(object,(base[0]->c.c_car),4);          V812= STREF(object,(base[0]->c.c_car),4);
5401          goto T1732;          goto T1733;
5402          goto T1734;          goto T1735;
5403  T1734:;{object V813;  T1735:;{object V814;
5404          V813= (VV[147]->s.s_dbind);          V814= (VV[147]->s.s_dbind);
5405          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
5406          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
5407          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5408          (void) (*Lnk390)();          (void) (*Lnk390)();
5409          vs_top=sup;          vs_top=sup;
5410          V814= vs_base[0];          V815= vs_base[0];
5411          if(!((V813)==(CMPcar(V814)))){          if(!((V814)==(CMPcar(V815)))){
5412          goto T1739;}}          goto T1740;}}
5413          V811= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);          V812= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
5414          goto T1732;          goto T1733;
5415          goto T1739;          goto T1740;
5416  T1739:;  T1740:;
5417          base[1]= VV[148];          base[1]= VV[148];
5418          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5419          Lerror();          Lerror();
5420          vs_top=sup;          vs_top=sup;
5421          V811= vs_base[0];          V812= vs_base[0];
5422          goto T1732;          goto T1733;
5423  T1732:;  T1733:;
5424          (void)(((V811)->v.v_self[fix((VV[236]->s.s_dbind))]=((V810))));          (void)(((V812)->v.v_self[fix((VV[236]->s.s_dbind))]=((V811))));
5425          if(((V805))==Cnil){          if(((V806))==Cnil){
5426          goto T1729;}          goto T1730;}
5427          (void)((*(LnkLI10))((V803),(V804)));          (void)((*(LnkLI11))((V804),(V805)));
5428          (void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[14],(V804))));}          (void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V805))));}
5429          goto T1729;          goto T1730;
5430  T1729:;  T1730:;
5431          {object V815 = (base[0]->c.c_car);          {object V816 = (base[0]->c.c_car);
5432          VMR74(V815)}          VMR74(V816)}
5433          va_end(ap);          va_end(ap);
5434          base[0]=base[0];          base[0]=base[0];
5435          return Cnil;}          return Cnil;}
5436          }          }
5437  /*      local entry for function SET-DFUN       */  /*      local entry for function SET-DFUN       */
5438    
5439  static object LI87(object V816,object first,...)  static object LI87(object V817,object first,...)
5440  {        {      
5441          va_list ap;          va_list ap;
5442          int narg = VFUN_NARGS; VMB75 VMS75 VMV75          int narg = VFUN_NARGS; VMB75 VMS75 VMV75
5443          {register object V817;          {register object V818;
         register object V818;  
5444          register object V819;          register object V819;
5445          object V820;          register object V820;
5446            object V821;
5447          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
5448          va_start(ap,first);          va_start(ap,first);
5449          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5450          V817= V816;          V818= V817;
5451          narg = narg - 1;          narg = narg - 1;
5452          if (narg <= 0) goto T1748;          if (narg <= 0) goto T1749;
         else {  
         V818= first;}  
         if (--narg <= 0) goto T1749;  
5453          else {          else {
5454          V819= va_arg(ap,object);}          V819= first;}
5455          if (--narg <= 0) goto T1750;          if (--narg <= 0) goto T1750;
5456          else {          else {
5457          V820= va_arg(ap,object);}          V820= va_arg(ap,object);}
5458          --narg; goto T1751;          if (--narg <= 0) goto T1751;
5459          goto T1748;          else {
5460  T1748:;          V821= va_arg(ap,object);}
5461          V818= Cnil;          --narg; goto T1752;
5462          goto T1749;          goto T1749;
5463  T1749:;  T1749:;
5464          V819= Cnil;          V819= Cnil;
# Line 5471  T1750:; Line 5467  T1750:;
5467          V820= Cnil;          V820= Cnil;
5468          goto T1751;          goto T1751;
5469  T1751:;  T1751:;
5470          if(((V819))==Cnil){          V821= Cnil;
5471          goto T1755;}          goto T1752;
5472          V821= Ct;  T1752:;
         STSET(object,(V819),0, (V817));  
         (void)((V817));  
         goto T1755;  
 T1755:;  
         {object V822;  
         if(((V818))==Cnil){  
         goto T1761;}  
         if(((V819))!=Cnil){  
         goto T1760;}  
5473          if(((V820))==Cnil){          if(((V820))==Cnil){
5474            goto T1756;}
5475            V822= Ct;
5476            STSET(object,(V820),0, (V818));
5477            (void)((V818));
5478            goto T1756;
5479    T1756:;
5480            {object V823;
5481            if(((V819))==Cnil){
5482            goto T1762;}
5483            if(((V820))!=Cnil){
5484          goto T1761;}          goto T1761;}
5485          goto T1760;          if(((V821))==Cnil){
5486  T1760:;          goto T1762;}
         V822= listA(3,(V818),(V819),(V820));  
         goto T1759;  
5487          goto T1761;          goto T1761;
5488  T1761:;  T1761:;
5489          V822= (V818);          V823= listA(3,(V819),(V820),(V821));
5490          goto T1759;          goto T1760;
5491  T1759:;          goto T1762;
5492          if(!(((VV[16]->s.s_dbind))==(VV[17]))){  T1762:;
5493          goto T1768;}          V823= (V819);
5494          base[0]= (V822);          goto T1760;
5495          base[1]= V817;  T1760:;
5496            if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5497            goto T1769;}
5498            base[0]= (V823);
5499            base[1]= V818;
5500          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5501          (void) (*Lnk450)(Lclptr450);          (void) (*Lnk450)(Lclptr450);
5502          vs_top=sup;          vs_top=sup;
5503          goto T1758;          goto T1759;
5504          goto T1768;          goto T1769;
5505  T1768:;  T1769:;
5506          if(type_of(V817)==t_structure){          if(type_of(V818)==t_structure){
5507          goto T1776;}          goto T1777;}
5508          goto T1774;          goto T1775;
5509          goto T1776;          goto T1777;
5510  T1776:;  T1777:;
5511          if(!(((V817)->str.str_def)==(VV[278]))){          if(!(((V818)->str.str_def)==(VV[278]))){
5512          goto T1774;}          goto T1775;}
5513          V824= STREF(object,(V817),4);          V825= STREF(object,(V818),4);
5514          goto T1772;          goto T1773;
5515          goto T1774;          goto T1775;
5516  T1774:;{object V826;  T1775:;{object V827;
5517          V826= (VV[147]->s.s_dbind);          V827= (VV[147]->s.s_dbind);
5518          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5519          base[1]= (V817);          base[1]= (V818);
5520          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5521          (void) (*Lnk390)();          (void) (*Lnk390)();
5522          vs_top=sup;          vs_top=sup;
5523          V827= vs_base[0];          V828= vs_base[0];
5524          if(!((V826)==(CMPcar(V827)))){          if(!((V827)==(CMPcar(V828)))){
5525          goto T1779;}}          goto T1780;}}
5526          V824= CMPcar(((V817))->cc.cc_turbo[12]);          V825= CMPcar(((V818))->cc.cc_turbo[12]);
5527          goto T1772;          goto T1773;
5528          goto T1779;          goto T1780;
5529  T1779:;  T1780:;
5530          base[0]= VV[148];          base[0]= VV[148];
5531          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5532          Lerror();          Lerror();
5533          vs_top=sup;          vs_top=sup;
5534          V824= vs_base[0];          V825= vs_base[0];
5535          goto T1772;          goto T1773;
5536  T1772:;  T1773:;
5537          (void)(((V824)->v.v_self[fix((VV[279]->s.s_dbind))]=((V822))));}          (void)(((V825)->v.v_self[fix((VV[279]->s.s_dbind))]=((V823))));}
5538          goto T1758;          goto T1759;
5539  T1758:;  T1759:;
5540          {object V828 = (V818);          {object V829 = (V819);
5541          VMR75(V828)}          VMR75(V829)}
5542          va_end(ap);          va_end(ap);
5543          base[0]=base[0];          base[0]=base[0];
5544          return Cnil;}          return Cnil;}
5545          }          }
5546  /*      local entry for function GF-DFUN-CACHE  */  /*      local entry for function GF-DFUN-CACHE  */
5547    
5548  static object LI88(V830)  static object LI88(V831)
5549    
5550  register object V830;  register object V831;
5551  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
5552          goto TTL;          goto TTL;
5553  TTL:;  TTL:;
5554          {object V831;          {object V832;
5555          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5556          goto T1787;}          goto T1788;}
5557          base[0]= (V830);          base[0]= (V831);
5558          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5559          (void) (*Lnk451)(Lclptr451);          (void) (*Lnk451)(Lclptr451);
5560          vs_top=sup;          vs_top=sup;
5561          V831= vs_base[0];          V832= vs_base[0];
5562          goto T1785;          goto T1786;
5563          goto T1787;          goto T1788;
5564  T1787:;  T1788:;
5565          if(type_of(V830)==t_structure){          if(type_of(V831)==t_structure){
5566          goto T1794;}          goto T1795;}
5567          goto T1792;          goto T1793;
5568          goto T1794;          goto T1795;
5569  T1794:;  T1795:;
5570          if(!(((V830)->str.str_def)==(VV[280]))){          if(!(((V831)->str.str_def)==(VV[280]))){
5571          goto T1792;}          goto T1793;}
5572          V832= STREF(object,(V830),4);          V833= STREF(object,(V831),4);
5573          goto T1790;          goto T1791;
5574          goto T1792;          goto T1793;
5575  T1792:;{object V834;  T1793:;{object V835;
5576          V834= (VV[147]->s.s_dbind);          V835= (VV[147]->s.s_dbind);
5577          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5578          base[1]= (V830);          base[1]= (V831);
5579          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5580          (void) (*Lnk390)();          (void) (*Lnk390)();
5581          vs_top=sup;          vs_top=sup;
5582          V835= vs_base[0];          V836= vs_base[0];
5583          if(!((V834)==(CMPcar(V835)))){          if(!((V835)==(CMPcar(V836)))){
5584          goto T1797;}}          goto T1798;}}
5585          V832= CMPcar(((V830))->cc.cc_turbo[12]);          V833= CMPcar(((V831))->cc.cc_turbo[12]);
5586          goto T1790;          goto T1791;
5587          goto T1797;          goto T1798;
5588  T1797:;  T1798:;
5589          base[0]= VV[148];          base[0]= VV[148];
5590          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5591          Lerror();          Lerror();
5592          vs_top=sup;          vs_top=sup;
5593          V832= vs_base[0];          V833= vs_base[0];
5594          goto T1790;          goto T1791;
5595  T1790:;  T1791:;
5596          V831= (V832)->v.v_self[fix((VV[279]->s.s_dbind))];          V832= (V833)->v.v_self[fix((VV[279]->s.s_dbind))];
5597          goto T1785;          goto T1786;
5598  T1785:;  T1786:;
5599          {register object V836;          {register object V837;
5600          V836= (V831);          V837= (V832);
5601          base[0]= (V836);          base[0]= (V837);
5602          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5603          Lfunctionp();          Lfunctionp();
5604          vs_top=sup;          vs_top=sup;
5605          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5606          goto T1804;}          goto T1805;}
5607          {object V837 = Cnil;          {object V838 = Cnil;
         VMR76(V837)}  
         goto T1804;  
 T1804:;  
         if(!(type_of((V836))==t_cons)){  
         goto T1808;}  
         {object V838 = CMPcadr((V831));  
5608          VMR76(V838)}          VMR76(V838)}
5609          goto T1808;          goto T1805;
5610  T1808:;  T1805:;
5611          {object V839 = Cnil;          if(!(type_of((V837))==t_cons)){
5612          VMR76(V839)}}}          goto T1809;}
5613            {object V839 = CMPcadr((V832));
5614            VMR76(V839)}
5615            goto T1809;
5616    T1809:;
5617            {object V840 = Cnil;
5618            VMR76(V840)}}}
5619          base[0]=base[0];          base[0]=base[0];
5620          return Cnil;          return Cnil;
5621  }  }
5622  /*      local entry for function GF-DFUN-INFO   */  /*      local entry for function GF-DFUN-INFO   */
5623    
5624  static object LI89(V841)  static object LI89(V842)
5625    
5626  register object V841;  register object V842;
5627  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
5628          goto TTL;          goto TTL;
5629  TTL:;  TTL:;
5630          {object V842;          {object V843;
5631          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5632          goto T1812;}          goto T1813;}
5633          base[0]= (V841);          base[0]= (V842);
5634          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5635          (void) (*Lnk451)(Lclptr451);          (void) (*Lnk451)(Lclptr451);
5636          vs_top=sup;          vs_top=sup;
5637          V842= vs_base[0];          V843= vs_base[0];
5638          goto T1810;          goto T1811;
5639          goto T1812;          goto T1813;
5640  T1812:;  T1813:;
5641          if(type_of(V841)==t_structure){          if(type_of(V842)==t_structure){
5642          goto T1819;}          goto T1820;}
5643          goto T1817;          goto T1818;
5644          goto T1819;          goto T1820;
5645  T1819:;  T1820:;
5646          if(!(((V841)->str.str_def)==(VV[281]))){          if(!(((V842)->str.str_def)==(VV[281]))){
5647          goto T1817;}          goto T1818;}
5648          V843= STREF(object,(V841),4);          V844= STREF(object,(V842),4);
5649          goto T1815;          goto T1816;
5650          goto T1817;          goto T1818;
5651  T1817:;{object V845;  T1818:;{object V846;
5652          V845= (VV[147]->s.s_dbind);          V846= (VV[147]->s.s_dbind);
5653          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5654          base[1]= (V841);          base[1]= (V842);
5655          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5656          (void) (*Lnk390)();          (void) (*Lnk390)();
5657          vs_top=sup;          vs_top=sup;
5658          V846= vs_base[0];          V847= vs_base[0];
5659          if(!((V845)==(CMPcar(V846)))){          if(!((V846)==(CMPcar(V847)))){
5660          goto T1822;}}          goto T1823;}}
5661          V843= CMPcar(((V841))->cc.cc_turbo[12]);          V844= CMPcar(((V842))->cc.cc_turbo[12]);
5662          goto T1815;          goto T1816;
5663          goto T1822;          goto T1823;
5664  T1822:;  T1823:;
5665          base[0]= VV[148];          base[0]= VV[148];
5666          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5667          Lerror();          Lerror();
5668          vs_top=sup;          vs_top=sup;
5669          V843= vs_base[0];          V844= vs_base[0];
5670          goto T1815;          goto T1816;
5671  T1815:;  T1816:;
5672          V842= (V843)->v.v_self[fix((VV[279]->s.s_dbind))];          V843= (V844)->v.v_self[fix((VV[279]->s.s_dbind))];
5673          goto T1810;          goto T1811;
5674  T1810:;  T1811:;
5675          {register object V847;          {register object V848;
5676          V847= (V842);          V848= (V843);
5677          base[0]= (V847);          base[0]= (V848);
5678          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5679          Lfunctionp();          Lfunctionp();
5680          vs_top=sup;          vs_top=sup;
5681          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5682          goto T1829;}          goto T1830;}
5683          {object V848 = Cnil;          {object V849 = Cnil;
         VMR77(V848)}  
         goto T1829;  
 T1829:;  
         if(!(type_of((V847))==t_cons)){  
         goto T1833;}  
         {object V849 = CMPcddr((V842));  
5684          VMR77(V849)}          VMR77(V849)}
5685          goto T1833;          goto T1830;
5686  T1833:;  T1830:;
5687          {object V850 = Cnil;          if(!(type_of((V848))==t_cons)){
5688          VMR77(V850)}}}          goto T1834;}
5689            {object V850 = CMPcddr((V843));
5690            VMR77(V850)}
5691            goto T1834;
5692    T1834:;
5693            {object V851 = Cnil;
5694            VMR77(V851)}}}
5695          base[0]=base[0];          base[0]=base[0];
5696          return Cnil;          return Cnil;
5697  }  }
5698  /*      local entry for function EARLY-GF-NAME  */  /*      local entry for function EARLY-GF-NAME  */
5699    
5700  static object LI90(V852)  static object LI90(V853)
5701    
5702  register object V852;  register object V853;
5703  {        VMB78 VMS78 VMV78  {        VMB78 VMS78 VMV78
5704          goto TTL;          goto TTL;
5705  TTL:;  TTL:;
5706          if(type_of(V852)==t_structure){          if(type_of(V853)==t_structure){
5707          goto T1839;}          goto T1840;}
5708          goto T1837;          goto T1838;
5709          goto T1839;          goto T1840;
5710  T1839:;  T1840:;
5711          if(!(((V852)->str.str_def)==(VV[282]))){          if(!(((V853)->str.str_def)==(VV[282]))){
5712          goto T1837;}          goto T1838;}
5713          V853= STREF(object,(V852),4);          V854= STREF(object,(V853),4);
5714          goto T1835;          goto T1836;
5715          goto T1837;          goto T1838;
5716  T1837:;{object V855;  T1838:;{object V856;
5717          V855= (VV[147]->s.s_dbind);          V856= (VV[147]->s.s_dbind);
5718          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5719          base[1]= (V852);          base[1]= (V853);
5720          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5721          (void) (*Lnk390)();          (void) (*Lnk390)();
5722          vs_top=sup;          vs_top=sup;
5723          V856= vs_base[0];          V857= vs_base[0];
5724          if(!((V855)==(CMPcar(V856)))){          if(!((V856)==(CMPcar(V857)))){
5725          goto T1842;}}          goto T1843;}}
5726          V853= CMPcar(((V852))->cc.cc_turbo[12]);          V854= CMPcar(((V853))->cc.cc_turbo[12]);
5727          goto T1835;          goto T1836;
5728          goto T1842;          goto T1843;
5729  T1842:;  T1843:;
5730          base[0]= VV[148];          base[0]= VV[148];
5731          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5732          Lerror();          Lerror();
5733          vs_top=sup;          vs_top=sup;
5734          V853= vs_base[0];          V854= vs_base[0];
5735          goto T1835;          goto T1836;
5736  T1835:;  T1836:;
5737          {object V857 = (V853)->v.v_self[fix((VV[283]->s.s_dbind))];          {object V858 = (V854)->v.v_self[fix((VV[283]->s.s_dbind))];
5738          VMR78(V857)}          VMR78(V858)}
5739          base[0]=base[0];          base[0]=base[0];
5740          return Cnil;          return Cnil;
5741  }  }
5742  /*      local entry for function GF-LAMBDA-LIST */  /*      local entry for function GF-LAMBDA-LIST */
5743    
5744  static object LI91(V859)  static object LI91(V860)
5745    
5746  register object V859;  register object V860;
5747  {        VMB79 VMS79 VMV79  {        VMB79 VMS79 VMV79
5748          goto TTL;          goto TTL;
5749  TTL:;  TTL:;
5750          {object V860;          {object V861;
5751          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5752          goto T1850;}          goto T1851;}
5753          base[0]= (V859);          base[0]= (V860);
5754          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5755          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
5756          vs_top=sup;          vs_top=sup;
5757          V860= vs_base[0];          V861= vs_base[0];
5758          goto T1848;          goto T1849;
5759          goto T1850;          goto T1851;
5760  T1850:;  T1851:;
5761          if(type_of(V859)==t_structure){          if(type_of(V860)==t_structure){
5762          goto T1857;}          goto T1858;}
5763          goto T1855;          goto T1856;
5764          goto T1857;          goto T1858;
5765  T1857:;  T1858:;
5766          if(!(((V859)->str.str_def)==(VV[284]))){          if(!(((V860)->str.str_def)==(VV[284]))){
5767          goto T1855;}          goto T1856;}
5768          V861= STREF(object,(V859),4);          V862= STREF(object,(V860),4);
5769          goto T1853;          goto T1854;
5770          goto T1855;          goto T1856;
5771  T1855:;{object V863;  T1856:;{object V864;
5772          V863= (VV[147]->s.s_dbind);          V864= (VV[147]->s.s_dbind);
5773          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5774          base[1]= (V859);          base[1]= (V860);
5775          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5776          (void) (*Lnk390)();          (void) (*Lnk390)();
5777          vs_top=sup;          vs_top=sup;
5778          V864= vs_base[0];          V865= vs_base[0];
5779          if(!((V863)==(CMPcar(V864)))){          if(!((V864)==(CMPcar(V865)))){
5780          goto T1860;}}          goto T1861;}}
5781          V861= CMPcar(((V859))->cc.cc_turbo[12]);          V862= CMPcar(((V860))->cc.cc_turbo[12]);
5782          goto T1853;          goto T1854;
5783          goto T1860;          goto T1861;
5784  T1860:;  T1861:;
5785          base[0]= VV[148];          base[0]= VV[148];
5786          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5787          Lerror();          Lerror();
5788          vs_top=sup;          vs_top=sup;
5789          V861= vs_base[0];          V862= vs_base[0];
5790          goto T1853;          goto T1854;
5791  T1853:;  T1854:;
5792          V860= (V861)->v.v_self[fix((VV[236]->s.s_dbind))];          V861= (V862)->v.v_self[fix((VV[236]->s.s_dbind))];
5793          goto T1848;          goto T1849;
5794  T1848:;  T1849:;
5795          if(!((VV[237])==(STREF(object,(V860),0)))){          if(!((VV[237])==(STREF(object,(V861),0)))){
5796          goto T1867;}          goto T1868;}
5797          {object V865;          {object V866;
5798          if(!(((VV[16]->s.s_dbind))==(VV[17]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5799          goto T1871;}          goto T1872;}
5800          base[0]= (V859);          base[0]= (V860);
5801          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5802          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk426)(Lclptr426);
5803          vs_top=sup;          vs_top=sup;
5804          V865= vs_base[0];          V866= vs_base[0];
5805          goto T1869;          goto T1870;
5806          goto T1871;          goto T1872;
5807  T1871:;  T1872:;
5808          if(type_of(V859)==t_structure){          if(type_of(V860)==t_structure){
5809          goto T1878;}          goto T1879;}
5810          goto T1876;          goto T1877;
5811          goto T1878;          goto T1879;
5812  T1878:;  T1879:;
5813          if(!(((V859)->str.str_def)==(VV[285]))){          if(!(((V860)->str.str_def)==(VV[285]))){
5814          goto T1876;}          goto T1877;}
5815          V866= STREF(object,(V859),4);          V867= STREF(object,(V860),4);
5816          goto T1874;          goto T1875;
5817          goto T1876;          goto T1877;
5818  T1876:;{object V868;  T1877:;{object V869;
5819          V868= (VV[147]->s.s_dbind);          V869= (VV[147]->s.s_dbind);
5820          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5821          base[1]= (V859);          base[1]= (V860);
5822          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5823          (void) (*Lnk390)();          (void) (*Lnk390)();
5824          vs_top=sup;          vs_top=sup;
5825          V869= vs_base[0];          V870= vs_base[0];
5826          if(!((V868)==(CMPcar(V869)))){          if(!((V869)==(CMPcar(V870)))){
5827          goto T1881;}}          goto T1882;}}
5828          V866= CMPcar(((V859))->cc.cc_turbo[12]);          V867= CMPcar(((V860))->cc.cc_turbo[12]);
5829          goto T1874;          goto T1875;
5830          goto T1881;          goto T1882;
5831  T1881:;  T1882:;
5832          base[0]= VV[148];          base[0]= VV[148];
5833          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5834          Lerror();          Lerror();
5835          vs_top=sup;          vs_top=sup;
5836          V866= vs_base[0];          V867= vs_base[0];
5837          goto T1874;          goto T1875;
5838  T1874:;  T1875:;
5839          V865= (V866)->v.v_self[fix((VV[235]->s.s_dbind))];          V866= (V867)->v.v_self[fix((VV[235]->s.s_dbind))];
5840          goto T1869;          goto T1870;
5841  T1869:;  T1870:;
5842          if(((V865))!=Cnil){          if(((V866))!=Cnil){
5843          goto T1888;}          goto T1889;}
5844          base[0]= VV[286];          base[0]= VV[286];
5845          base[1]= (V859);          base[1]= (V860);
5846          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5847          (void) (*Lnk398)();          (void) (*Lnk398)();
5848          vs_top=sup;          vs_top=sup;
5849          {object V870 = Cnil;          {object V871 = Cnil;
5850          VMR79(V870)}          VMR79(V871)}
5851          goto T1888;          goto T1889;
5852  T1888:;  T1889:;
5853          {object V871;          {object V872;
         object V872;  
5854          object V873;          object V873;
5855          base[3]= (V865);          object V874;
5856            base[3]= (V866);
5857          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5858          Llast();          Llast();
5859          vs_top=sup;          vs_top=sup;
5860          V874= vs_base[0];          V875= vs_base[0];
5861          V871= CMPcar(V874);          V872= CMPcar(V875);
5862          if(!(type_of((V871))==t_cons)){          if(!(type_of((V872))==t_cons)){
5863          goto T1898;}          goto T1899;}
5864          V872= (*(LnkLI431))((V871));          V873= (*(LnkLI431))((V872));
5865          goto T1896;          goto T1897;
5866          goto T1898;          goto T1899;
5867  T1898:;  T1899:;
5868          base[3]= (V871);          base[3]= (V872);
5869          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5870          (void) (*Lnk48)(Lclptr48);          (void) (*Lnk48)(Lclptr48);
5871          vs_top=sup;          vs_top=sup;
5872          V872= vs_base[0];          V873= vs_base[0];
5873          goto T1896;          goto T1897;
5874  T1896:;  T1897:;
5875          {register object x= VV[62],V875= (V872);          {register object x= VV[62],V876= (V873);
5876          while(V875!=Cnil)          while(V876!=Cnil)
5877          if(eql(x,V875->c.c_car)){          if(eql(x,V876->c.c_car)){
5878          V873= V875;          V874= V876;
5879          goto T1901;          goto T1902;
5880          }else V875=V875->c.c_cdr;          }else V876=V876->c.c_cdr;
5881          V873= Cnil;}          V874= Cnil;}
5882          goto T1901;          goto T1902;
5883  T1901:;  T1902:;
5884          if(((V873))==Cnil){          if(((V874))==Cnil){
5885          goto T1903;}          goto T1904;}
5886          base[3]= (V872);          base[3]= (V873);
5887          base[4]= CMPcdr((V873));          base[4]= CMPcdr((V874));
5888          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5889          Lldiff();          Lldiff();
5890          vs_top=sup;          vs_top=sup;
5891          V876= vs_base[0];          V877= vs_base[0];
5892          {object V877 = append(V876,VV[287]);          {object V878 = append(V877,VV[287]);
5893          VMR79(V877)}          VMR79(V878)}
5894          goto T1903;          goto T1904;
5895  T1903:;  T1904:;
5896          {object V878 = (V872);          {object V879 = (V873);
5897          VMR79(V878)}}}          VMR79(V879)}}}
5898          goto T1867;          goto T1868;
5899  T1867:;  T1868:;
5900          {object V879 = STREF(object,(V860),0);          {object V880 = STREF(object,(V861),0);
5901          VMR79(V879)}}          VMR79(V880)}}
5902          base[0]=base[0];          base[0]=base[0];
5903          return Cnil;          return Cnil;
5904  }  }
# Line 5911  static void L92() Line 5910  static void L92()
5910          vs_check;          vs_check;
5911          check_arg(2);          check_arg(2);
5912          vs_top=sup;          vs_top=sup;
5913          {object V880=base[0]->c.c_cdr;          {object V881=base[0]->c.c_cdr;
5914          if(endp(V880))invalid_macro_call();          if(endp(V881))invalid_macro_call();
5915          base[2]= (V880->c.c_car);          base[2]= (V881->c.c_car);
5916          V880=V880->c.c_cdr;          V881=V881->c.c_cdr;
5917          if(endp(V880))invalid_macro_call();          if(endp(V881))invalid_macro_call();
5918          base[3]= (V880->c.c_car);          base[3]= (V881->c.c_car);
5919          V880=V880->c.c_cdr;          V881=V881->c.c_cdr;
5920          if(endp(V880))invalid_macro_call();          if(endp(V881))invalid_macro_call();
5921          base[4]= (V880->c.c_car);          base[4]= (V881->c.c_car);
5922          V880=V880->c.c_cdr;          V881=V881->c.c_cdr;
5923          if(!endp(V880))invalid_macro_call();}          if(!endp(V881))invalid_macro_call();}
5924          V881= list(2,VV[288],base[2]);          V882= list(2,VV[288],base[2]);
5925          V882= list(2,/* INLINE-ARGS */V881,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4])));          V883= list(2,/* INLINE-ARGS */V882,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4])));
5926          V883= list(2,VV[291],base[2]);          V884= list(2,VV[291],base[2]);
5927          V884= make_cons(/* INLINE-ARGS */V883,Cnil);          V885= make_cons(/* INLINE-ARGS */V884,Cnil);
5928          V885= list(4,VV[121],/* INLINE-ARGS */V882,/* INLINE-ARGS */V884,list(2,Ct,list(3,VV[292],VV[293],base[2])));          V886= list(4,VV[121],/* INLINE-ARGS */V883,/* INLINE-ARGS */V885,list(2,Ct,list(3,VV[292],VV[293],base[2])));
5929          V886= list(3,VV[294],base[3],VV[5]);          V887= list(3,VV[294],base[3],VV[5]);
5930          V887= list(3,VV[294],base[3],VV[295]);          V888= list(3,VV[294],base[3],VV[295]);
5931          V888= list(2,VV[296],listA(3,VV[297],base[3],VV[298]));          V889= list(2,VV[296],listA(3,VV[297],base[3],VV[298]));
5932          V889= make_cons(/* INLINE-ARGS */V888,Cnil);          V890= make_cons(/* INLINE-ARGS */V889,Cnil);
5933          V890= list(3,VV[297],base[3],VV[4]);          V891= list(3,VV[297],base[3],VV[4]);
5934          base[5]= list(5,VV[9],/* INLINE-ARGS */V885,/* INLINE-ARGS */V886,/* INLINE-ARGS */V887,list(3,VV[96],/* INLINE-ARGS */V889,list(3,VV[240],VV[299],list(3,VV[29],/* INLINE-ARGS */V890,listA(3,VV[300],list(2,VV[301],base[2]),VV[302])))));          base[5]= list(5,VV[10],/* INLINE-ARGS */V886,/* INLINE-ARGS */V887,/* INLINE-ARGS */V888,list(3,VV[96],/* INLINE-ARGS */V890,list(3,VV[240],VV[299],list(3,VV[30],/* INLINE-ARGS */V891,listA(3,VV[300],list(2,VV[301],base[2]),VV[302])))));
5935          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5936          return;          return;
5937  }  }
5938  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */
5939    
5940  static object LI93(object V892,object V891,object first,...)  static object LI93(object V893,object V892,object first,...)
5941  {        {      
5942          va_list ap;          va_list ap;
5943          int narg = VFUN_NARGS; VMB81 VMS81 VMV81          int narg = VFUN_NARGS; VMB81 VMS81 VMV81
5944          {object V893;          {object V894;
5945          object V894;          object V895;
5946          register object V895;          register object V896;
         object V896;  
5947          object V897;          object V897;
5948          object V898;          object V898;
5949          register object V899;          object V899;
5950          object V900;          register object V900;
5951            object V901;
5952          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
5953          va_start(ap,first);          va_start(ap,first);
5954          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5955          V893= V892;          V894= V893;
5956          V894= V891;          V895= V892;
5957          narg= narg - 2;          narg= narg - 2;
5958          V901 = make_list(narg);          V902 = make_list(narg);
5959          V895= V901;          V896= V902;
5960          {          {
5961          parse_key_rest_new(V901,narg,Vcs +3,(struct key *)&LI93key,first,ap);          parse_key_rest_new(V902,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap);
5962          V896=(Vcs[3]);          V897=(Vcs[3]);
5963          if(Vcs[4]==0){          if(Vcs[4]==0){
         V897= Cnil;  
5964          V898= Cnil;          V898= Cnil;
5965            V899= Cnil;
5966          }else{          }else{
5967          V897=(Vcs[4]);          V898=(Vcs[4]);
5968          V898= Ct;}          V899= Ct;}
5969          if(Vcs[5]==0){          if(Vcs[5]==0){
5970          V899= VV[18];          V900= VV[19];
5971          V900= Cnil;          V901= Cnil;
5972          }else{          }else{
5973          V899=(Vcs[5]);          V900=(Vcs[5]);
5974          V900= Ct;}          V901= Ct;}
5975          if(!(type_of((V899))==t_symbol)){          if(!(type_of((V900))==t_symbol)){
5976          goto T1913;}          goto T1914;}
5977          V899= (VFUN_NARGS=3,(*(LnkLI290))((V899),Ct,(V896)));          V900= (VFUN_NARGS=3,(*(LnkLI290))((V900),Ct,(V897)));
5978          goto T1911;          goto T1912;
5979          goto T1913;          goto T1914;
5980  T1913:;  T1914:;
5981          {object V902;          {object V903;
5982          base[0]= (V899);          base[0]= (V900);
5983          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5984          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
5985          vs_top=sup;          vs_top=sup;
5986          V902= vs_base[0];          V903= vs_base[0];
5987          if(((V902))==Cnil){          if(((V903))==Cnil){
5988          goto T1919;}          goto T1920;}
5989          goto T1911;          goto T1912;
5990          goto T1919;          goto T1920;
5991  T1919:;  T1920:;
5992          base[0]= VV[293];          base[0]= VV[293];
5993          base[1]= (V899);          base[1]= (V900);
5994          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5995          Lerror();          Lerror();
5996          vs_top=sup;}          vs_top=sup;}
5997          goto T1911;          goto T1912;
5998  T1911:;  T1912:;
5999          {object V903;          {object V904;
6000          object V904;          object V905;
6001          base[0]= (V895);          base[0]= (V896);
6002          base[1]= VV[5];          base[1]= VV[5];
6003          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6004          siLrem_f();          siLrem_f();
         if(vs_base>=vs_top){vs_top=sup;goto T1927;}  
         V903= vs_base[0];  
         vs_base++;  
6005          if(vs_base>=vs_top){vs_top=sup;goto T1928;}          if(vs_base>=vs_top){vs_top=sup;goto T1928;}
6006          V904= vs_base[0];          V904= vs_base[0];
6007            vs_base++;
6008            if(vs_base>=vs_top){vs_top=sup;goto T1929;}
6009            V905= vs_base[0];
6010          vs_top=sup;          vs_top=sup;
6011          goto T1929;          goto T1930;
         goto T1927;  
 T1927:;  
         V903= Cnil;  
6012          goto T1928;          goto T1928;
6013  T1928:;  T1928:;
6014          V904= Cnil;          V904= Cnil;
6015          goto T1929;          goto T1929;
6016  T1929:;  T1929:;
6017          V895= (V903);}          V905= Cnil;
6018          {object V905;          goto T1930;
6019          object V906;  T1930:;
6020          base[0]= (V895);          V896= (V904);}
6021            {object V906;
6022            object V907;
6023            base[0]= (V896);
6024          base[1]= VV[295];          base[1]= VV[295];
6025          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6026          siLrem_f();          siLrem_f();
         if(vs_base>=vs_top){vs_top=sup;goto T1936;}  
         V905= vs_base[0];  
         vs_base++;  
6027          if(vs_base>=vs_top){vs_top=sup;goto T1937;}          if(vs_base>=vs_top){vs_top=sup;goto T1937;}
6028          V906= vs_base[0];          V906= vs_base[0];
6029            vs_base++;
6030            if(vs_base>=vs_top){vs_top=sup;goto T1938;}
6031            V907= vs_base[0];
6032          vs_top=sup;          vs_top=sup;
6033          goto T1938;          goto T1939;
         goto T1936;  
 T1936:;  
         V905= Cnil;  
6034          goto T1937;          goto T1937;
6035  T1937:;  T1937:;
6036          V906= Cnil;          V906= Cnil;
6037          goto T1938;          goto T1938;
6038  T1938:;  T1938:;
6039          V895= (V905);}          V907= Cnil;
6040          {object V907;          goto T1939;
6041          base[0]= (V895);  T1939:;
6042            V896= (V906);}
6043            {object V908;
6044            base[0]= (V896);
6045          base[1]= VV[4];          base[1]= VV[4];
6046          base[2]= VV[303];          base[2]= VV[303];
6047          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
6048          Lgetf();          Lgetf();
6049          vs_top=sup;          vs_top=sup;
6050          V907= vs_base[0];          V908= vs_base[0];
6051          if(((V907))==(VV[303])){          if(((V908))==(VV[303])){
6052          goto T1910;}          goto T1911;}
6053          {object V909;          {object V910;
6054          base[2]= (V899);          base[2]= (V900);
6055          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6056          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
6057          vs_top=sup;          vs_top=sup;
6058          base[1]= vs_base[0];          base[1]= vs_base[0];
6059          base[2]= CMPcar((V907));          base[2]= CMPcar((V908));
6060          base[3]= CMPcdr((V907));          base[3]= CMPcdr((V908));
6061          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6062          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
6063          vs_top=sup;          vs_top=sup;
6064          V909= vs_base[0];          V910= vs_base[0];
6065          {object V910;          {object V911;
6066          base[1]= (V895);          base[1]= (V896);
6067          base[2]= (V909);          base[2]= (V910);
6068          base[3]= VV[4];          base[3]= VV[4];
6069          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6070          siLput_f();          siLput_f();
6071          vs_top=sup;          vs_top=sup;
6072          V910= vs_base[0];          V911= vs_base[0];
6073          V895= (V910);}}}          V896= (V911);}}}
6074          goto T1910;          goto T1911;
6075  T1910:;  T1911:;
6076          if(((V900))==Cnil){          if(((V901))==Cnil){
6077          goto T1958;}          goto T1959;}
6078          V911= (*(LnkLI363))((V893));          V912= (*(LnkLI363))((V894));
6079          if((/* INLINE-ARGS */V911)==((V899))){          if((/* INLINE-ARGS */V912)==((V900))){
6080          goto T1958;}          goto T1959;}
6081          base[0]= (V893);          base[0]= (V894);
6082          base[1]= (V899);          base[1]= (V900);
6083          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6084          (void) (*Lnk452)(Lclptr452);          (void) (*Lnk452)(Lclptr452);
6085          vs_top=sup;          vs_top=sup;
6086          goto T1958;          goto T1959;
6087  T1958:;  T1959:;
         {object V912;  
         base[0]=VV[453]->s.s_gfdef;  
         base[1]= (V893);  
6088          {object V913;          {object V913;
6089          V913= (V895);          base[0]=VV[453]->s.s_gfdef;
6090            base[1]= (V894);
6091            {object V914;
6092            V914= (V896);
6093           vs_top=base+2;           vs_top=base+2;
6094           while(V913!=Cnil)           while(V914!=Cnil)
6095           {vs_push((V913)->c.c_car);V913=(V913)->c.c_cdr;}           {vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;}
6096          vs_base=base+1;}          vs_base=base+1;}
6097          (void) (*Lnk453)(Lclptr453);          (void) (*Lnk453)(Lclptr453);
6098          vs_top=sup;          vs_top=sup;
6099          V912= vs_base[0];          V913= vs_base[0];
6100          if(((V898))==Cnil){          if(((V899))==Cnil){
6101          goto T1968;}          goto T1969;}
6102          (void)((*(LnkLI10))((V894),(V897)));          (void)((*(LnkLI11))((V895),(V898)));
6103          goto T1968;          goto T1969;
6104  T1968:;  T1969:;
6105          {object V914 = (V912);          {object V915 = (V913);
6106          VMR81(V914)}}          VMR81(V915)}}
6107          va_end(ap);          va_end(ap);
6108          base[0]=base[0];          base[0]=base[0];
6109          return Cnil;}          return Cnil;}
6110          }}          }}
6111  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */
6112    
6113  static object LI94(object V916,object V915,object first,...)  static object LI94(object V917,object V916,object first,...)
6114  {        {      
6115          va_list ap;          va_list ap;
6116          int narg = VFUN_NARGS; VMB82 VMS82 VMV82          int narg = VFUN_NARGS; VMB82 VMS82 VMV82
6117          {object V917;          {object V918;
6118          object V918;          object V919;
6119          register object V919;          register object V920;
         object V920;  
6120          object V921;          object V921;
6121          object V922;          object V922;
6122          register object V923;          object V923;
6123            register object V924;
6124          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
6125          va_start(ap,first);          va_start(ap,first);
6126          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
6127          V917= V916;          V918= V917;
6128          V918= V915;          V919= V916;
6129          narg= narg - 2;          narg= narg - 2;
6130          V924 = make_list(narg);          V925 = make_list(narg);
6131          V919= V924;          V920= V925;
6132          {          {
6133          parse_key_rest_new(V924,narg,Vcs +3,(struct key *)&LI94key,first,ap);          parse_key_rest_new(V925,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap);
6134          V920=(Vcs[3]);          V921=(Vcs[3]);
6135          if(Vcs[4]==0){          if(Vcs[4]==0){
         V921= Cnil;  
6136          V922= Cnil;          V922= Cnil;
6137            V923= Cnil;
6138          }else{          }else{
6139          V921=(Vcs[4]);          V922=(Vcs[4]);
6140          V922= Ct;}          V923= Ct;}
6141          V923=(Vcs[5]);          V924=(Vcs[5]);
6142          if(!(type_of((V923))==t_symbol)){          if(!(type_of((V924))==t_symbol)){
6143          goto T1975;}          goto T1976;}
6144          V923= (VFUN_NARGS=3,(*(LnkLI290))((V923),Ct,(V920)));          V924= (VFUN_NARGS=3,(*(LnkLI290))((V924),Ct,(V921)));
6145          goto T1973;          goto T1974;
6146          goto T1975;          goto T1976;
6147  T1975:;  T1976:;
6148          {object V925;          {object V926;
6149          base[0]= (V923);          base[0]= (V924);
6150          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6151          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
6152          vs_top=sup;          vs_top=sup;
6153          V925= vs_base[0];          V926= vs_base[0];
6154          if(((V925))==Cnil){          if(((V926))==Cnil){
6155          goto T1981;}          goto T1982;}
6156          goto T1973;          goto T1974;
6157          goto T1981;          goto T1982;
6158  T1981:;  T1982:;
6159          base[0]= VV[293];          base[0]= VV[293];
6160          base[1]= (V923);          base[1]= (V924);
6161          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6162          Lerror();          Lerror();
6163          vs_top=sup;}          vs_top=sup;}
6164          goto T1973;          goto T1974;
6165  T1973:;  T1974:;
6166          {object V926;          {object V927;
6167          object V927;          object V928;
6168          base[0]= (V919);          base[0]= (V920);
6169          base[1]= VV[5];          base[1]= VV[5];
6170          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6171          siLrem_f();          siLrem_f();
         if(vs_base>=vs_top){vs_top=sup;goto T1989;}  
         V926= vs_base[0];  
         vs_base++;  
6172          if(vs_base>=vs_top){vs_top=sup;goto T1990;}          if(vs_base>=vs_top){vs_top=sup;goto T1990;}
6173          V927= vs_base[0];          V927= vs_base[0];
6174            vs_base++;
6175            if(vs_base>=vs_top){vs_top=sup;goto T1991;}
6176            V928= vs_base[0];
6177          vs_top=sup;          vs_top=sup;
6178          goto T1991;          goto T1992;
         goto T1989;  
 T1989:;  
         V926= Cnil;  
6179          goto T1990;          goto T1990;
6180  T1990:;  T1990:;
6181          V927= Cnil;          V927= Cnil;
6182          goto T1991;          goto T1991;
6183  T1991:;  T1991:;
6184          V919= (V926);}          V928= Cnil;
6185          {object V928;          goto T1992;
6186          object V929;  T1992:;
6187          base[0]= (V919);          V920= (V927);}
6188            {object V929;
6189            object V930;
6190            base[0]= (V920);
6191          base[1]= VV[295];          base[1]= VV[295];
6192          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6193          siLrem_f();          siLrem_f();
         if(vs_base>=vs_top){vs_top=sup;goto T1998;}  
         V928= vs_base[0];  
         vs_base++;  
6194          if(vs_base>=vs_top){vs_top=sup;goto T1999;}          if(vs_base>=vs_top){vs_top=sup;goto T1999;}
6195          V929= vs_base[0];          V929= vs_base[0];
6196            vs_base++;
6197            if(vs_base>=vs_top){vs_top=sup;goto T2000;}
6198            V930= vs_base[0];
6199          vs_top=sup;          vs_top=sup;
6200          goto T2000;          goto T2001;
         goto T1998;  
 T1998:;  
         V928= Cnil;  
6201          goto T1999;          goto T1999;
6202  T1999:;  T1999:;
6203          V929= Cnil;          V929= Cnil;
6204          goto T2000;          goto T2000;
6205  T2000:;  T2000:;
6206          V919= (V928);}          V930= Cnil;
6207          {object V930;          goto T2001;
6208          base[0]= (V919);  T2001:;
6209            V920= (V929);}
6210            {object V931;
6211            base[0]= (V920);
6212          base[1]= VV[4];          base[1]= VV[4];
6213          base[2]= VV[303];          base[2]= VV[303];
6214          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
6215          Lgetf();          Lgetf();
6216          vs_top=sup;          vs_top=sup;
6217          V930= vs_base[0];          V931= vs_base[0];
6218          if(((V930))==(VV[303])){          if(((V931))==(VV[303])){
6219          goto T1972;}          goto T1973;}
6220          {object V932;          {object V933;
6221          base[2]= (V923);          base[2]= (V924);
6222          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6223          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
6224          vs_top=sup;          vs_top=sup;
6225          base[1]= vs_base[0];          base[1]= vs_base[0];
6226          base[2]= CMPcar((V930));          base[2]= CMPcar((V931));
6227          base[3]= CMPcdr((V930));          base[3]= CMPcdr((V931));
6228          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6229          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
6230          vs_top=sup;          vs_top=sup;
6231          V932= vs_base[0];          V933= vs_base[0];
6232          {object V933;          {object V934;
6233          base[1]= (V919);          base[1]= (V920);
6234          base[2]= (V932);          base[2]= (V933);
6235          base[3]= VV[4];          base[3]= VV[4];
6236          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6237          siLput_f();          siLput_f();
6238          vs_top=sup;          vs_top=sup;
6239          V933= vs_base[0];          V934= vs_base[0];
6240          V919= (V933);}}}          V920= (V934);}}}
6241          goto T1972;          goto T1973;
6242  T1972:;  T1973:;
6243          {object V934;          {object V935;
6244          base[0]=VV[454]->s.s_gfdef;          base[0]=VV[454]->s.s_gfdef;
6245          base[1]= (V923);          base[1]= (V924);
6246          base[2]= VV[220];          base[2]= VV[220];
6247          base[3]= (V918);          base[3]= (V919);
6248          {object V937;          {object V938;
6249          V937= (V919);          V938= (V920);
6250           vs_top=base+4;           vs_top=base+4;
6251           while(V937!=Cnil)           while(V938!=Cnil)
6252           {vs_push((V937)->c.c_car);V937=(V937)->c.c_cdr;}           {vs_push((V938)->c.c_car);V938=(V938)->c.c_cdr;}
6253          vs_base=base+1;}          vs_base=base+1;}
6254          (void) (*Lnk454)(Lclptr454);          (void) (*Lnk454)(Lclptr454);
6255          vs_top=sup;          vs_top=sup;
6256          V936= vs_base[0];          V937= vs_base[0];
6257          V934= (*(LnkLI345))(V936,V918);          V935= (*(LnkLI345))(V937,V919);
6258          if(((V922))==Cnil){          if(((V923))==Cnil){
6259          goto T2026;}          goto T2027;}
6260          (void)((*(LnkLI10))((V918),(V921)));          (void)((*(LnkLI11))((V919),(V922)));
6261          goto T2026;          goto T2027;
6262  T2026:;  T2027:;
6263          {object V938 = (V934);          {object V939 = (V935);
6264          VMR82(V938)}}          VMR82(V939)}}
6265          va_end(ap);          va_end(ap);
6266          base[0]=base[0];          base[0]=base[0];
6267          return Cnil;}          return Cnil;}
# Line 6273  static void L95() Line 6272  static void L95()
6272  {register object *base=vs_base;  {register object *base=vs_base;
6273          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
6274          vs_check;          vs_check;
6275          {register object V939;          {register object V940;
6276          check_arg(1);          check_arg(1);
6277          V939=(base[0]);          V940=(base[0]);
6278          vs_top=sup;          vs_top=sup;
6279          goto TTL;          goto TTL;
6280  TTL:;  TTL:;
6281          {object V940;          {object V941;
         object V941;  
6282          object V942;          object V942;
6283          {object V943;          object V943;
6284          object V944;          {object V944;
6285          if(((*(LnkLI438))((V939)))==Cnil){          object V945;
6286          goto T2032;}          if(((*(LnkLI438))((V940)))==Cnil){
6287          if(type_of(V939)==t_structure){          goto T2033;}
6288          goto T2038;}          if(type_of(V940)==t_structure){
6289          goto T2036;          goto T2039;}
6290          goto T2038;          goto T2037;
6291  T2038:;          goto T2039;
6292          if(!(((V939)->str.str_def)==(VV[304]))){  T2039:;
6293          goto T2036;}          if(!(((V940)->str.str_def)==(VV[304]))){
6294          V945= STREF(object,(V939),4);          goto T2037;}
6295          goto T2034;          V946= STREF(object,(V940),4);
6296          goto T2036;          goto T2035;
6297  T2036:;{object V947;          goto T2037;
6298          V947= (VV[147]->s.s_dbind);  T2037:;{object V948;
6299            V948= (VV[147]->s.s_dbind);
6300          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6301          base[4]= (V939);          base[4]= (V940);
6302          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6303          (void) (*Lnk390)();          (void) (*Lnk390)();
6304          vs_top=sup;          vs_top=sup;
6305          V948= vs_base[0];          V949= vs_base[0];
6306          if(!((V947)==(CMPcar(V948)))){          if(!((V948)==(CMPcar(V949)))){
6307          goto T2041;}}          goto T2042;}}
6308          V945= CMPcar(((V939))->cc.cc_turbo[12]);          V946= CMPcar(((V940))->cc.cc_turbo[12]);
6309          goto T2034;          goto T2035;
6310          goto T2041;          goto T2042;
6311  T2041:;  T2042:;
6312          base[3]= VV[148];          base[3]= VV[148];
6313          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6314          Lerror();          Lerror();
6315          vs_top=sup;          vs_top=sup;
6316          V945= vs_base[0];          V946= vs_base[0];
6317          goto T2034;          goto T2035;
6318  T2034:;  T2035:;
6319          V943= (V945)->v.v_self[fix((VV[236]->s.s_dbind))];          V944= (V946)->v.v_self[fix((VV[236]->s.s_dbind))];
6320          goto T2030;          goto T2031;
6321          goto T2032;          goto T2033;
6322  T2032:;  T2033:;
6323          base[3]= (V939);          base[3]= (V940);
6324          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6325          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
6326          vs_top=sup;          vs_top=sup;
6327          V943= vs_base[0];          V944= vs_base[0];
6328          goto T2030;          goto T2031;
6329  T2030:;  T2031:;
6330          V944= STREF(object,(V943),8);          V945= STREF(object,(V944),8);
6331          base[3]= (*(LnkLI395))((V943));          base[3]= (*(LnkLI395))((V944));
6332          base[4]= (V944);          base[4]= (V945);
6333          base[5]= (V943);          base[5]= (V944);
6334          vs_top=(vs_base=base+3)+3;}          vs_top=(vs_base=base+3)+3;}
         if(vs_base>=vs_top){vs_top=sup;goto T2052;}  
         V940= vs_base[0];  
         vs_base++;  
6335          if(vs_base>=vs_top){vs_top=sup;goto T2053;}          if(vs_base>=vs_top){vs_top=sup;goto T2053;}
6336          V941= vs_base[0];          V941= vs_base[0];
6337          vs_base++;          vs_base++;
6338          if(vs_base>=vs_top){vs_top=sup;goto T2054;}          if(vs_base>=vs_top){vs_top=sup;goto T2054;}
6339          V942= vs_base[0];          V942= vs_base[0];
6340            vs_base++;
6341            if(vs_base>=vs_top){vs_top=sup;goto T2055;}
6342            V943= vs_base[0];
6343          vs_top=sup;          vs_top=sup;
6344          goto T2055;          goto T2056;
         goto T2052;  
 T2052:;  
         V940= Cnil;  
6345          goto T2053;          goto T2053;
6346  T2053:;  T2053:;
6347          V941= Cnil;          V941= Cnil;
# Line 6354  T2054:; Line 6350  T2054:;
6350          V942= Cnil;          V942= Cnil;
6351          goto T2055;          goto T2055;
6352  T2055:;  T2055:;
6353          base[1]= CMPmake_fixnum((long)length((V941)));          V943= Cnil;
6354          base[2]= (V940);          goto T2056;
6355          base[3]= (V941);  T2056:;
6356            base[1]= CMPmake_fixnum((long)length((V942)));
6357            base[2]= (V941);
6358            base[3]= (V942);
6359          base[5]= VV[455];          base[5]= VV[455];
6360          base[6]= (V941);          base[6]= (V942);
6361          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6362          (void) (*Lnk425)();          (void) (*Lnk425)();
6363          vs_top=sup;          vs_top=sup;
6364          base[4]= vs_base[0];          base[4]= vs_base[0];
6365          base[5]= (V942);          base[5]= (V943);
6366          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
6367          return;}          return;}
6368          }          }
6369  }  }
6370  /*      local entry for function EARLY-MAKE-A-METHOD    */  /*      local entry for function EARLY-MAKE-A-METHOD    */
6371    
6372  static object LI96(object V954,object V953,object V952,object V951,object V950,object V949,object first,...)  static object LI96(object V955,object V954,object V953,object V952,object V951,object V950,object first,...)
6373  {        {      
6374          va_list ap;          va_list ap;
6375          int narg = VFUN_NARGS; VMB84 VMS84 VMV84          int narg = VFUN_NARGS; VMB84 VMS84 VMV84
6376          {object V955;          {object V956;
         object V956;  
6377          object V957;          object V957;
6378          register object V958;          object V958;
6379          register object V959;          register object V959;
6380          object V960;          register object V960;
6381          object V961;          object V961;
6382            object V962;
6383          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
6384          va_start(ap,first);          va_start(ap,first);
6385          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
6386          V955= V954;          V956= V955;
6387          V956= V953;          V957= V954;
6388          V957= V952;          V958= V953;
6389          V958= V951;          V959= V952;
6390          V959= V950;          V960= V951;
6391          V960= V949;          V961= V950;
6392          narg = narg - 6;          narg = narg - 6;
6393          if (narg <= 0) goto T2063;          if (narg <= 0) goto T2064;
6394          else {          else {
6395          V961= first;}          V962= first;}
6396          --narg; goto T2064;          --narg; goto T2065;
         goto T2063;  
 T2063:;  
         V961= Cnil;  
6397          goto T2064;          goto T2064;
6398  T2064:;  T2064:;
         (void)((VFUN_NARGS=1,(*(LnkLI456))((V959))));  
         {object V962;  
         object V963;  
6399          V962= Cnil;          V962= Cnil;
6400            goto T2065;
6401    T2065:;
6402            (void)((VFUN_NARGS=1,(*(LnkLI456))((V960))));
6403            {object V963;
6404            object V964;
6405          V963= Cnil;          V963= Cnil;
6406            V964= Cnil;
6407          base[0]= VV[457];          base[0]= VV[457];
6408          base[1]= (V958);          base[1]= (V959);
6409          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6410          (void) (*Lnk366)();          (void) (*Lnk366)();
6411          vs_top=sup;          vs_top=sup;
6412          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6413          goto T2069;}          goto T2070;}
6414          V962= (V958);          V963= (V959);
6415          {object V964;          {object V965;
6416          object V965= (V958);          object V966= (V959);
6417          if(V965==Cnil){          if(V966==Cnil){
6418          V963= Cnil;          V964= Cnil;
6419          goto T2075;}          goto T2076;}
6420          base[0]=V964=MMcons(Cnil,Cnil);          base[0]=V965=MMcons(Cnil,Cnil);
         goto T2076;  
 T2076:;  
         if(!(((V965->c.c_car))==(Ct))){  
         goto T2079;}  
         (V964->c.c_car)= Ct;  
6421          goto T2077;          goto T2077;
6422          goto T2079;  T2077:;
6423  T2079:;          if(!(((V966->c.c_car))==(Ct))){
6424          base[1]= (V965->c.c_car);          goto T2080;}
6425            (V965->c.c_car)= Ct;
6426            goto T2078;
6427            goto T2080;
6428    T2080:;
6429            base[1]= (V966->c.c_car);
6430          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6431          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
6432          vs_top=sup;          vs_top=sup;
6433          (V964->c.c_car)= vs_base[0];          (V965->c.c_car)= vs_base[0];
6434          goto T2077;          goto T2078;
6435  T2077:;  T2078:;
6436          if((V965=MMcdr(V965))==Cnil){          if((V966=MMcdr(V966))==Cnil){
6437          V963= base[0];          V964= base[0];
         goto T2075;}  
         V964=MMcdr(V964)=MMcons(Cnil,Cnil);  
6438          goto T2076;}          goto T2076;}
6439          goto T2075;          V965=MMcdr(V965)=MMcons(Cnil,Cnil);
6440  T2075:;          goto T2077;}
6441          goto T2067;          goto T2076;
6442          goto T2069;  T2076:;
6443  T2069:;          goto T2068;
6444          V963= (V958);          goto T2070;
6445          V962= Cnil;  T2070:;
6446          goto T2067;          V964= (V959);
6447  T2067:;          V963= Cnil;
6448          base[0]= (V959);          goto T2068;
6449          base[1]= VV[35];  T2068:;
6450            base[0]= (V960);
6451            base[1]= VV[36];
6452          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6453          Lgetf();          Lgetf();
6454          vs_top=sup;          vs_top=sup;
6455          V967= vs_base[0];          V968= vs_base[0];
6456          base[0]= (V959);          base[0]= (V960);
6457          base[1]= VV[216];          base[1]= VV[216];
6458          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6459          Lgetf();          Lgetf();
6460          vs_top=sup;          vs_top=sup;
6461          V968= vs_base[0];          V969= vs_base[0];
6462          {object V969 = list(5,VV[305],V967,V968,(V962),list(7,(V955),(V956),(V957),(V963),(V959),(V960),(V961)));          {object V970 = list(5,VV[305],V968,V969,(V963),list(7,(V956),(V957),(V958),(V964),(V960),(V961),(V962)));
6463          VMR84(V969)}}          VMR84(V970)}}
6464          va_end(ap);          va_end(ap);
6465          base[0]=base[0];          base[0]=base[0];
6466          return Cnil;}          return Cnil;}
# Line 6472  static void L97() Line 6471  static void L97()
6471  {register object *base=vs_base;  {register object *base=vs_base;
6472          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
6473          vs_check;          vs_check;
6474          {object V970;          {object V971;
         object V971;  
6475          object V972;          object V972;
6476          object V973;          object V973;
6477          object V974;          object V974;
6478          object V975;          object V975;
6479          object V976;          object V976;
6480            object V977;
6481          if(vs_top-vs_base<6) too_few_arguments();          if(vs_top-vs_base<6) too_few_arguments();
6482          if(vs_top-vs_base>7) too_many_arguments();          if(vs_top-vs_base>7) too_many_arguments();
6483          V970=(base[0]);          V971=(base[0]);
6484          V971=(base[1]);          V972=(base[1]);
6485          V972=(base[2]);          V973=(base[2]);
6486          V973=(base[3]);          V974=(base[3]);
6487          V974=(base[4]);          V975=(base[4]);
6488          V975=(base[5]);          V976=(base[5]);
6489          vs_base=vs_base+6;          vs_base=vs_base+6;
6490          if(vs_base>=vs_top){vs_top=sup;goto T2091;}          if(vs_base>=vs_top){vs_top=sup;goto T2092;}
6491          V976=(base[6]);          V977=(base[6]);
6492          vs_top=sup;          vs_top=sup;
6493          goto T2092;          goto T2093;
         goto T2091;  
 T2091:;  
         V976= Cnil;  
6494          goto T2092;          goto T2092;
6495  T2092:;  T2092:;
6496          V973= (*(LnkLI458))((V973));          V977= Cnil;
6497            goto T2093;
6498    T2093:;
6499            V974= (*(LnkLI458))((V974));
6500          base[7]=VV[454]->s.s_gfdef;          base[7]=VV[454]->s.s_gfdef;
6501          base[8]= (V970);          base[8]= (V971);
6502          base[9]= VV[306];          base[9]= VV[306];
6503          base[10]= (V971);          base[10]= (V972);
6504          base[11]= VV[14];          base[11]= VV[15];
6505          base[12]= (V972);          base[12]= (V973);
6506          base[13]= VV[307];          base[13]= VV[307];
6507          base[14]= (V973);          base[14]= (V974);
6508          base[15]= VV[3];          base[15]= VV[3];
6509          base[16]= (V975);          base[16]= (V976);
6510          base[17]= VV[308];          base[17]= VV[308];
6511          base[18]= (V976);          base[18]= (V977);
6512          base[19]= VV[309];          base[19]= VV[309];
6513          base[20]= Ct;          base[20]= Ct;
6514          {object V977;          {object V978;
6515          V977= (V974);          V978= (V975);
6516           vs_top=base+21;           vs_top=base+21;
6517           while(V977!=Cnil)           while(V978!=Cnil)
6518           {vs_push((V977)->c.c_car);V977=(V977)->c.c_cdr;}           {vs_push((V978)->c.c_car);V978=(V978)->c.c_cdr;}
6519          vs_base=base+8;}          vs_base=base+8;}
6520          (void) (*Lnk454)(Lclptr454);          (void) (*Lnk454)(Lclptr454);
6521          return;          return;
# Line 6528  static void L98() Line 6527  static void L98()
6527  {register object *base=vs_base;  {register object *base=vs_base;
6528          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
6529          vs_check;          vs_check;
6530          {object V978;          {object V979;
6531          check_arg(1);          check_arg(1);
6532          V978=(base[0]);          V979=(base[0]);
6533          vs_top=sup;          vs_top=sup;
6534          goto TTL;          goto TTL;
6535  TTL:;  TTL:;
6536          base[1]= CMPcadr((V978));          base[1]= CMPcadr((V979));
6537          base[2]= CMPcaddr((V978));          base[2]= CMPcaddr((V979));
6538          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6539          return;          return;
6540          }          }
6541  }  }
6542  /*      local entry for function EARLY-METHOD-CLASS     */  /*      local entry for function EARLY-METHOD-CLASS     */
6543    
6544  static object LI99(V980)  static object LI99(V981)
6545    
6546  object V980;  object V981;
6547  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
6548          goto TTL;          goto TTL;
6549  TTL:;  TTL:;
6550          base[0]= (V980);          base[0]= (V981);
6551          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6552          (void) (*Lnk459)();          (void) (*Lnk459)();
6553          vs_top=sup;          vs_top=sup;
6554          V981= vs_base[0];          V982= vs_base[0];
6555          {object V982 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V981)));          {object V983 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V982)));
6556          VMR87(V982)}          VMR87(V983)}
6557          base[0]=base[0];          base[0]=base[0];
6558          return Cnil;          return Cnil;
6559  }  }
6560  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */
6561    
6562  static object LI100(V984)  static object LI100(V985)
6563    
6564  object V984;  object V985;
6565  {        VMB88 VMS88 VMV88  {        VMB88 VMS88 VMV88
6566          goto TTL;          goto TTL;
6567  TTL:;  TTL:;
6568          {object V985;          {object V986;
6569          base[0]= (V984);          base[0]= (V985);
6570          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6571          (void) (*Lnk459)();          (void) (*Lnk459)();
6572          vs_top=sup;          vs_top=sup;
6573          V986= vs_base[0];          V987= vs_base[0];
6574          V985= CMPcar(V986);          V986= CMPcar(V987);
6575          if(!(((V985))==(VV[310]))){          if(!(((V986))==(VV[310]))){
6576          goto T2117;}          goto T2118;}
         {object V987 = Ct;  
         VMR88(V987)}  
         goto T2117;  
 T2117:;  
         if(!(((V985))==(VV[311]))){  
         goto T2119;}  
6577          {object V988 = Ct;          {object V988 = Ct;
6578          VMR88(V988)}          VMR88(V988)}
6579          goto T2119;          goto T2118;
6580  T2119:;  T2118:;
6581          {object V989 = (((V985))==(VV[312])?Ct:Cnil);          if(!(((V986))==(VV[311]))){
6582          VMR88(V989)}}          goto T2120;}
6583            {object V989 = Ct;
6584            VMR88(V989)}
6585            goto T2120;
6586    T2120:;
6587            {object V990 = (((V986))==(VV[312])?Ct:Cnil);
6588            VMR88(V990)}}
6589          base[0]=base[0];          base[0]=base[0];
6590          return Cnil;          return Cnil;
6591  }  }
# Line 6596  static void L101() Line 6595  static void L101()
6595  {register object *base=vs_base;  {register object *base=vs_base;
6596          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
6597          vs_check;          vs_check;
6598          {object V990;          {object V991;
6599          check_arg(1);          check_arg(1);
6600          V990=(base[0]);          V991=(base[0]);
6601          vs_top=sup;          vs_top=sup;
6602          goto TTL;          goto TTL;
6603  TTL:;  TTL:;
6604          base[2]= (V990);          base[2]= (V991);
6605          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6606          (void) (*Lnk459)();          (void) (*Lnk459)();
6607          vs_top=sup;          vs_top=sup;
# Line 6614  TTL:; Line 6613  TTL:;
6613  }  }
6614  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */
6615    
6616  static object LI102(object V991,object first,...)  static object LI102(object V992,object first,...)
6617  {        {      
6618          va_list ap;          va_list ap;
6619          int narg = VFUN_NARGS; VMB90 VMS90 VMV90          int narg = VFUN_NARGS; VMB90 VMS90 VMV90
6620          {register object V992;          {register object V993;
6621          object V993;          object V994;
6622          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
6623          va_start(ap,first);          va_start(ap,first);
6624          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
6625          V992= V991;          V993= V992;
6626          narg = narg - 1;          narg = narg - 1;
6627          if (narg <= 0) goto T2123;          if (narg <= 0) goto T2124;
6628          else {          else {
6629          V993= first;}          V994= first;}
6630          --narg; goto T2124;          --narg; goto T2125;
         goto T2123;  
 T2123:;  
         V993= Cnil;  
6631          goto T2124;          goto T2124;
6632  T2124:;  T2124:;
6633          if(!(type_of((V992))==t_cons||((V992))==Cnil)){          V994= Cnil;
6634          goto T2127;}          goto T2125;
6635          if(!((CMPcar((V992)))==(VV[305]))){  T2125:;
6636          goto T2127;}          if(!(type_of((V993))==t_cons||((V993))==Cnil)){
6637          if(!(((V993))==(Ct))){          goto T2128;}
6638          goto T2132;}{object V994;          if(!((CMPcar((V993)))==(VV[305]))){
6639          V994= CMPcadddr((V992));          goto T2128;}
6640          if(V994==Cnil)goto T2134;          if(!(((V994))==(Ct))){
6641          {object V995 = V994;          goto T2133;}{object V995;
6642          VMR90(V995)}          V995= CMPcadddr((V993));
6643          goto T2134;          if(V995==Cnil)goto T2135;
6644  T2134:;}          {object V996 = V995;
6645          {object V997;          VMR90(V996)}
6646            goto T2135;
6647    T2135:;}
6648            {object V998;
6649          base[2]=VV[290]->s.s_gfdef;          base[2]=VV[290]->s.s_gfdef;
6650          base[3]= (V992);          base[3]= (V993);
6651          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6652          (void) (*Lnk459)();          (void) (*Lnk459)();
6653          vs_top=sup;          vs_top=sup;
6654          V1000= vs_base[0];          V1001= vs_base[0];
6655          {object V998;          {object V999;
6656          object V999= CMPcadddr(V1000);          object V1000= CMPcadddr(V1001);
6657          if(V999==Cnil){          if(V1000==Cnil){
6658          V997= Cnil;          V998= Cnil;
6659          goto T2136;}          goto T2137;}
6660          base[1]=V998=MMcons(Cnil,Cnil);          base[1]=V999=MMcons(Cnil,Cnil);
6661          goto T2137;          goto T2138;
6662  T2137:;  T2138:;
6663          base[3]= (V999->c.c_car);          base[3]= (V1000->c.c_car);
6664          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6665          (void) (*Lnk290)();          (void) (*Lnk290)();
6666          vs_top=sup;          vs_top=sup;
6667          (V998->c.c_car)= vs_base[0];          (V999->c.c_car)= vs_base[0];
6668          if((V999=MMcdr(V999))==Cnil){          if((V1000=MMcdr(V1000))==Cnil){
6669          V997= base[1];          V998= base[1];
         goto T2136;}  
         V998=MMcdr(V998)=MMcons(Cnil,Cnil);  
6670          goto T2137;}          goto T2137;}
6671          goto T2136;          V999=MMcdr(V999)=MMcons(Cnil,Cnil);
6672  T2136:;          goto T2138;}
6673          (CMPcdddr(V992))->c.c_car = (V997);          goto T2137;
6674          (void)(CMPcdddr(V992));  T2137:;
6675          {object V1001 = (V997);          (CMPcdddr(V993))->c.c_car = (V998);
6676          VMR90(V1001)}}          (void)(CMPcdddr(V993));
6677          goto T2132;          {object V1002 = (V998);
6678  T2132:;          VMR90(V1002)}}
6679          base[0]= (V992);          goto T2133;
6680    T2133:;
6681            base[0]= (V993);
6682          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6683          (void) (*Lnk459)();          (void) (*Lnk459)();
6684          vs_top=sup;          vs_top=sup;
6685          V1002= vs_base[0];          V1003= vs_base[0];
6686          {object V1003 = CMPcadddr(V1002);          {object V1004 = CMPcadddr(V1003);
6687          VMR90(V1003)}          VMR90(V1004)}
6688          goto T2127;          goto T2128;
6689  T2127:;  T2128:;
6690          base[0]= VV[313];          base[0]= VV[313];
6691          base[1]= (V992);          base[1]= (V993);
6692          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6693          Lerror();          Lerror();
6694          vs_top=sup;          vs_top=sup;
6695          {object V1004 = vs_base[0];          {object V1005 = vs_base[0];
6696          VMR90(V1004)}          VMR90(V1005)}
6697          va_end(ap);          va_end(ap);
6698          base[0]=base[0];          base[0]=base[0];
6699          return Cnil;}          return Cnil;}
6700          }          }
6701  /*      local entry for function EARLY-METHOD-QUALIFIERS        */  /*      local entry for function EARLY-METHOD-QUALIFIERS        */
6702    
6703  static object LI103(V1006)  static object LI103(V1007)
6704    
6705  object V1006;  object V1007;
6706  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
6707          goto TTL;          goto TTL;
6708  TTL:;  TTL:;
6709          base[0]= (V1006);          base[0]= (V1007);
6710          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6711          (void) (*Lnk459)();          (void) (*Lnk459)();
6712          vs_top=sup;          vs_top=sup;
6713          V1007= vs_base[0];          V1008= vs_base[0];
6714          {object V1008 = CMPcadr(V1007);          {object V1009 = CMPcadr(V1008);
6715          VMR91(V1008)}          VMR91(V1009)}
6716          base[0]=base[0];          base[0]=base[0];
6717          return Cnil;          return Cnil;
6718  }  }
6719  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */
6720    
6721  static object LI104(V1010)  static object LI104(V1011)
6722    
6723  object V1010;  object V1011;
6724  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
6725          goto TTL;          goto TTL;
6726  TTL:;  TTL:;
6727          base[0]= (V1010);          base[0]= (V1011);
6728          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6729          (void) (*Lnk459)();          (void) (*Lnk459)();
6730          vs_top=sup;          vs_top=sup;
6731          V1011= vs_base[0];          V1012= vs_base[0];
6732          {object V1012 = CMPcaddr(V1011);          {object V1013 = CMPcaddr(V1012);
6733          VMR92(V1012)}          VMR92(V1013)}
6734          base[0]=base[0];          base[0]=base[0];
6735          return Cnil;          return Cnil;
6736  }  }
6737  /*      local entry for function EARLY-ADD-NAMED-METHOD */  /*      local entry for function EARLY-ADD-NAMED-METHOD */
6738    
6739  static object LI105(object V1016,object V1015,object V1014,object V1013,object first,...)  static object LI105(object V1017,object V1016,object V1015,object V1014,object first,...)
6740  {        {      
6741          va_list ap;          va_list ap;
6742          int narg = VFUN_NARGS; VMB93 VMS93 VMV93          int narg = VFUN_NARGS; VMB93 VMS93 VMV93
6743          {object V1017;          {object V1018;
         register object V1018;  
6744          register object V1019;          register object V1019;
6745          object V1020;          register object V1020;
6746          object V1021;          object V1021;
6747            object V1022;
6748          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
6749          va_start(ap,first);          va_start(ap,first);
6750          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
6751          V1017= V1016;          V1018= V1017;
6752          V1018= V1015;          V1019= V1016;
6753          V1019= V1014;          V1020= V1015;
6754          V1020= V1013;          V1021= V1014;
6755          narg= narg - 4;          narg= narg - 4;
6756          V1022 = list_vector_new(narg,first,ap);          V1023 = list_vector_new(narg,first,ap);
6757          V1021= V1022;          V1022= V1023;
6758          {object V1023;          {object V1024;
         object V1024;  
6759          object V1025;          object V1025;
6760          base[3]= (V1017);          object V1026;
6761            base[3]= (V1018);
6762          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6763          (void) (*Lnk351)();          (void) (*Lnk351)();
6764          vs_top=sup;          vs_top=sup;
6765          V1023= vs_base[0];          V1024= vs_base[0];
6766          {register object V1026;          {register object V1027;
6767          register object V1027;          register object V1028;
6768          if(type_of(V1023)==t_structure){          if(type_of(V1024)==t_structure){
6769          goto T2159;}          goto T2160;}
6770          goto T2157;          goto T2158;
6771          goto T2159;          goto T2160;
6772  T2159:;  T2160:;
6773          if(!(((V1023)->str.str_def)==(VV[314]))){          if(!(((V1024)->str.str_def)==(VV[314]))){
6774          goto T2157;}          goto T2158;}
6775          V1028= STREF(object,(V1023),4);          V1029= STREF(object,(V1024),4);
6776          goto T2155;          goto T2156;
6777          goto T2157;          goto T2158;
6778  T2157:;{object V1030;  T2158:;{object V1031;
6779          V1030= (VV[147]->s.s_dbind);          V1031= (VV[147]->s.s_dbind);
6780          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
6781          base[6]= (V1023);          base[6]= (V1024);
6782          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6783          (void) (*Lnk390)();          (void) (*Lnk390)();
6784          vs_top=sup;          vs_top=sup;
6785          V1031= vs_base[0];          V1032= vs_base[0];
6786          if(!((V1030)==(CMPcar(V1031)))){          if(!((V1031)==(CMPcar(V1032)))){
6787          goto T2162;}}          goto T2163;}}
6788          V1028= CMPcar(((V1023))->cc.cc_turbo[12]);          V1029= CMPcar(((V1024))->cc.cc_turbo[12]);
6789          goto T2155;          goto T2156;
6790          goto T2162;          goto T2163;
6791  T2162:;  T2163:;
6792          base[5]= VV[148];          base[5]= VV[148];
6793          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6794          Lerror();          Lerror();
6795          vs_top=sup;          vs_top=sup;
6796          V1028= vs_base[0];          V1029= vs_base[0];
6797          goto T2155;          goto T2156;
6798  T2155:;  T2156:;
6799          V1026= (V1028)->v.v_self[fix((VV[235]->s.s_dbind))];          V1027= (V1029)->v.v_self[fix((VV[235]->s.s_dbind))];
6800          V1027= CMPcar((V1026));          V1028= CMPcar((V1027));
         goto T2170;  
 T2170:;  
         if(!(((V1026))==Cnil)){  
         goto T2171;}  
         V1024= Cnil;  
         goto T2153;  
6801          goto T2171;          goto T2171;
6802  T2171:;  T2171:;
6803          V1032= (VFUN_NARGS=1,(*(LnkLI434))((V1027)));          if(!(((V1027))==Cnil)){
6804          if(!(equal(/* INLINE-ARGS */V1032,(V1019)))){          goto T2172;}
6805          goto T2175;}          V1025= Cnil;
6806          V1033= (*(LnkLI461))((V1027));          goto T2154;
6807          if(!(equal(/* INLINE-ARGS */V1033,(V1018)))){          goto T2172;
6808          goto T2175;}  T2172:;
6809          V1024= (V1027);          V1033= (VFUN_NARGS=1,(*(LnkLI434))((V1028)));
6810          goto T2153;          if(!(equal(/* INLINE-ARGS */V1033,(V1020)))){
6811          goto T2175;          goto T2176;}
6812  T2175:;          V1034= (*(LnkLI461))((V1028));
6813          V1026= CMPcdr((V1026));          if(!(equal(/* INLINE-ARGS */V1034,(V1019)))){
6814          V1027= CMPcar((V1026));          goto T2176;}
6815          goto T2170;}          V1025= (V1028);
6816          goto T2153;          goto T2154;
6817  T2153:;          goto T2176;
6818          base[3]= VV[19];  T2176:;
6819          base[4]= (V1018);          V1027= CMPcdr((V1027));
6820          base[5]= (V1020);          V1028= CMPcar((V1027));
6821          base[6]= (V1019);          goto T2171;}
6822          base[7]= (V1021);          goto T2154;
6823    T2154:;
6824            base[3]= VV[20];
6825            base[4]= (V1019);
6826            base[5]= (V1021);
6827            base[6]= (V1020);
6828            base[7]= (V1022);
6829          base[8]= Cnil;          base[8]= Cnil;
6830          V1025= simple_symlispcall(VV[462],base+3,6);          V1026= simple_symlispcall(VV[462],base+3,6);
6831          if(((V1024))==Cnil){          if(((V1025))==Cnil){
6832          goto T2192;}          goto T2193;}
6833          base[3]= (V1023);          base[3]= (V1024);
         base[4]= (V1024);  
         (void)simple_symlispcall(VV[463],base+3,2);  
         goto T2192;  
 T2192:;  
         base[3]= (V1023);  
6834          base[4]= (V1025);          base[4]= (V1025);
6835          {object V1034 = simple_symlispcall(VV[464],base+3,2);          (void)simple_symlispcall(VV[463],base+3,2);
6836          VMR93(V1034)}}          goto T2193;
6837    T2193:;
6838            base[3]= (V1024);
6839            base[4]= (V1026);
6840            {object V1035 = simple_symlispcall(VV[464],base+3,2);
6841            VMR93(V1035)}}
6842          va_end(ap);          va_end(ap);
6843          base[0]=base[0];          base[0]=base[0];
6844          return Cnil;}          return Cnil;}
6845          }          }
6846  /*      local entry for function ADD-METHOD     */  /*      local entry for function ADD-METHOD     */
6847    
6848  static object LI106(V1037,V1038)  static object LI106(V1038,V1039)
6849    
6850  register object V1037;register object V1038;  register object V1038;register object V1039;
6851  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
6852          goto TTL;          goto TTL;
6853  TTL:;{object V1039;  TTL:;{object V1040;
6854          V1039= (VV[147]->s.s_dbind);          V1040= (VV[147]->s.s_dbind);
6855          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6856          base[1]= (V1037);          base[1]= (V1038);
6857          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6858          (void) (*Lnk390)();          (void) (*Lnk390)();
6859          vs_top=sup;          vs_top=sup;
6860          V1040= vs_base[0];          V1041= vs_base[0];
6861          if((V1039)==(CMPcar(V1040))){          if((V1040)==(CMPcar(V1041))){
6862          goto T2199;}}          goto T2200;}}
6863          base[0]= VV[315];          base[0]= VV[315];
6864          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6865          Lerror();          Lerror();
6866          vs_top=sup;          vs_top=sup;
6867          goto T2199;          goto T2200;
6868  T2199:;  T2200:;
6869          if(!(type_of((V1038))==t_cons||((V1038))==Cnil)){          if(!(type_of((V1039))==t_cons||((V1039))==Cnil)){
6870            goto T2208;}
6871            if((CMPcar((V1039)))==(VV[305])){
6872          goto T2207;}          goto T2207;}
6873          if((CMPcar((V1038)))==(VV[305])){          goto T2208;
6874          goto T2206;}  T2208:;
         goto T2207;  
 T2207:;  
6875          base[0]= VV[316];          base[0]= VV[316];
6876          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6877          Lerror();          Lerror();
6878          vs_top=sup;          vs_top=sup;
6879          goto T2206;          goto T2207;
6880  T2206:;  T2207:;
6881          {object V1042;          {object V1043;
         object V1043;  
6882          object V1044;          object V1044;
6883          if(type_of(V1037)==t_structure){          object V1045;
6884          goto T2217;}          if(type_of(V1038)==t_structure){
6885          goto T2215;          goto T2218;}
6886          goto T2217;          goto T2216;
6887  T2217:;          goto T2218;
6888          if(!(((V1037)->str.str_def)==(VV[317]))){  T2218:;
6889          goto T2215;}          if(!(((V1038)->str.str_def)==(VV[317]))){
6890          V1042= STREF(object,(V1037),4);          goto T2216;}
6891          goto T2213;          V1043= STREF(object,(V1038),4);
6892          goto T2215;          goto T2214;
6893  T2215:;{object V1046;          goto T2216;
6894          V1046= (VV[147]->s.s_dbind);  T2216:;{object V1047;
6895            V1047= (VV[147]->s.s_dbind);
6896          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6897          base[3]= (V1037);          base[3]= (V1038);
6898          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6899          (void) (*Lnk390)();          (void) (*Lnk390)();
6900          vs_top=sup;          vs_top=sup;
6901          V1047= vs_base[0];          V1048= vs_base[0];
6902          if(!((V1046)==(CMPcar(V1047)))){          if(!((V1047)==(CMPcar(V1048)))){
6903          goto T2220;}}          goto T2221;}}
6904          V1042= CMPcar(((V1037))->cc.cc_turbo[12]);          V1043= CMPcar(((V1038))->cc.cc_turbo[12]);
6905          goto T2213;          goto T2214;
6906          goto T2220;          goto T2221;
6907  T2220:;  T2221:;
6908          base[2]= VV[148];          base[2]= VV[148];
6909          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6910          Lerror();          Lerror();
6911          vs_top=sup;          vs_top=sup;
6912          V1042= vs_base[0];          V1043= vs_base[0];
6913          goto T2213;          goto T2214;
6914  T2213:;  T2214:;
6915          V1043= (VV[235]->s.s_dbind);          V1044= (VV[235]->s.s_dbind);
6916          V1044= make_cons(V1038,((V1042))->v.v_self[fix((V1043))]);          V1045= make_cons(V1039,((V1043))->v.v_self[fix((V1044))]);
6917          (void)((((V1042))->v.v_self[fix((V1043))]=((V1044))));}          (void)((((V1043))->v.v_self[fix((V1044))]=((V1045))));}
6918          (void)((VFUN_NARGS=3,(*(LnkLI449))((V1037),VV[318],(V1038))));          (void)((VFUN_NARGS=3,(*(LnkLI449))((V1038),VV[318],(V1039))));
6919          V1049= (*(LnkLI441))((V1037));          V1050= (*(LnkLI441))((V1038));
6920          {register object x= /* INLINE-ARGS */V1049,V1048= (VV[261]->s.s_dbind);          {register object x= /* INLINE-ARGS */V1050,V1049= (VV[261]->s.s_dbind);
6921          while(V1048!=Cnil)          while(V1049!=Cnil)
6922          if(equal(x,V1048->c.c_car->c.c_car) &&V1048->c.c_car != Cnil){          if(equal(x,V1049->c.c_car->c.c_car) &&V1049->c.c_car != Cnil){
6923          goto T2230;          goto T2231;
6924          }else V1048=V1048->c.c_cdr;}          }else V1049=V1049->c.c_cdr;}
6925          {object V1050 = (VFUN_NARGS=1,(*(LnkLI465))((V1037)));          {object V1051 = (VFUN_NARGS=1,(*(LnkLI465))((V1038)));
         VMR94(V1050)}  
         goto T2230;  
 T2230:;  
         {object V1051 = Cnil;  
6926          VMR94(V1051)}          VMR94(V1051)}
6927            goto T2231;
6928    T2231:;
6929            {object V1052 = Cnil;
6930            VMR94(V1052)}
6931          base[0]=base[0];          base[0]=base[0];
6932          return Cnil;          return Cnil;
6933  }  }
6934  /*      local entry for function REMOVE-METHOD  */  /*      local entry for function REMOVE-METHOD  */
6935    
6936  static object LI107(V1054,V1055)  static object LI107(V1055,V1056)
6937    
6938  register object V1054;object V1055;  register object V1055;object V1056;
6939  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
6940          goto TTL;          goto TTL;
6941  TTL:;{object V1056;  TTL:;{object V1057;
6942          V1056= (VV[147]->s.s_dbind);          V1057= (VV[147]->s.s_dbind);
6943          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6944          base[1]= (V1054);          base[1]= (V1055);
6945          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6946          (void) (*Lnk390)();          (void) (*Lnk390)();
6947          vs_top=sup;          vs_top=sup;
6948          V1057= vs_base[0];          V1058= vs_base[0];
6949          if((V1056)==(CMPcar(V1057))){          if((V1057)==(CMPcar(V1058))){
6950          goto T2232;}}          goto T2233;}}
6951          base[0]= VV[319];          base[0]= VV[319];
6952          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6953          Lerror();          Lerror();
6954          vs_top=sup;          vs_top=sup;
6955          goto T2232;          goto T2233;
6956  T2232:;  T2233:;
6957          if(!(type_of((V1055))==t_cons||((V1055))==Cnil)){          if(!(type_of((V1056))==t_cons||((V1056))==Cnil)){
6958            goto T2241;}
6959            if((CMPcar((V1056)))==(VV[305])){
6960          goto T2240;}          goto T2240;}
6961          if((CMPcar((V1055)))==(VV[305])){          goto T2241;
6962          goto T2239;}  T2241:;
         goto T2240;  
 T2240:;  
6963          base[0]= VV[320];          base[0]= VV[320];
6964          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6965          Lerror();          Lerror();
6966          vs_top=sup;          vs_top=sup;
6967          goto T2239;          goto T2240;
6968  T2239:;  T2240:;
6969          if(type_of(V1054)==t_structure){          if(type_of(V1055)==t_structure){
6970          goto T2250;}          goto T2251;}
6971          goto T2248;          goto T2249;
6972          goto T2250;          goto T2251;
6973  T2250:;  T2251:;
6974          if(!(((V1054)->str.str_def)==(VV[321]))){          if(!(((V1055)->str.str_def)==(VV[321]))){
6975          goto T2248;}          goto T2249;}
6976          V1058= STREF(object,(V1054),4);          V1059= STREF(object,(V1055),4);
6977          goto T2246;          goto T2247;
6978          goto T2248;          goto T2249;
6979  T2248:;{object V1060;  T2249:;{object V1061;
6980          V1060= (VV[147]->s.s_dbind);          V1061= (VV[147]->s.s_dbind);
6981          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6982          base[1]= (V1054);          base[1]= (V1055);
6983          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6984          (void) (*Lnk390)();          (void) (*Lnk390)();
6985          vs_top=sup;          vs_top=sup;
6986          V1061= vs_base[0];          V1062= vs_base[0];
6987          if(!((V1060)==(CMPcar(V1061)))){          if(!((V1061)==(CMPcar(V1062)))){
6988          goto T2253;}}          goto T2254;}}
6989          V1058= CMPcar(((V1054))->cc.cc_turbo[12]);          V1059= CMPcar(((V1055))->cc.cc_turbo[12]);
6990          goto T2246;          goto T2247;
6991          goto T2253;          goto T2254;
6992  T2253:;  T2254:;
6993          base[0]= VV[148];          base[0]= VV[148];
6994          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6995          Lerror();          Lerror();
6996          vs_top=sup;          vs_top=sup;
6997          V1058= vs_base[0];          V1059= vs_base[0];
6998          goto T2246;          goto T2247;
6999  T2246:;{object V1062;  T2247:;{object V1063;
7000          V1062= (VV[235]->s.s_dbind);          V1063= (VV[235]->s.s_dbind);
7001          base[0]= (V1055);          base[0]= (V1056);
7002          if(type_of(V1054)==t_structure){          if(type_of(V1055)==t_structure){
7003          goto T2266;}          goto T2267;}
7004          goto T2264;          goto T2265;
7005          goto T2266;          goto T2267;
7006  T2266:;  T2267:;
7007          if(!(((V1054)->str.str_def)==(VV[322]))){          if(!(((V1055)->str.str_def)==(VV[322]))){
7008          goto T2264;}          goto T2265;}
7009          V1064= STREF(object,(V1054),4);          V1065= STREF(object,(V1055),4);
7010          goto T2262;          goto T2263;
7011          goto T2264;          goto T2265;
7012  T2264:;{object V1066;  T2265:;{object V1067;
7013          V1066= (VV[147]->s.s_dbind);          V1067= (VV[147]->s.s_dbind);
7014          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
7015          base[3]= (V1054);          base[3]= (V1055);
7016          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7017          (void) (*Lnk390)();          (void) (*Lnk390)();
7018          vs_top=sup;          vs_top=sup;
7019          V1067= vs_base[0];          V1068= vs_base[0];
7020          if(!((V1066)==(CMPcar(V1067)))){          if(!((V1067)==(CMPcar(V1068)))){
7021          goto T2269;}}          goto T2270;}}
7022          V1064= CMPcar(((V1054))->cc.cc_turbo[12]);          V1065= CMPcar(((V1055))->cc.cc_turbo[12]);
7023          goto T2262;          goto T2263;
7024          goto T2269;          goto T2270;
7025  T2269:;  T2270:;
7026          base[2]= VV[148];          base[2]= VV[148];
7027          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7028          Lerror();          Lerror();
7029          vs_top=sup;          vs_top=sup;
7030          V1064= vs_base[0];          V1065= vs_base[0];
7031          goto T2262;          goto T2263;
7032  T2262:;  T2263:;
7033          base[1]= (V1064)->v.v_self[fix((VV[235]->s.s_dbind))];          base[1]= (V1065)->v.v_self[fix((VV[235]->s.s_dbind))];
7034          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7035          (void) (*Lnk376)();          (void) (*Lnk376)();
7036          vs_top=sup;          vs_top=sup;
7037          V1063= vs_base[0];          V1064= vs_base[0];
7038          (void)(((V1058)->v.v_self[fix(V1062)]=(V1063)));}          (void)(((V1059)->v.v_self[fix(V1063)]=(V1064)));}
7039          (void)((VFUN_NARGS=1,(*(LnkLI449))((V1054))));          (void)((VFUN_NARGS=1,(*(LnkLI449))((V1055))));
7040          V1069= (*(LnkLI441))((V1054));          V1070= (*(LnkLI441))((V1055));
7041          {register object x= /* INLINE-ARGS */V1069,V1068= (VV[261]->s.s_dbind);          {register object x= /* INLINE-ARGS */V1070,V1069= (VV[261]->s.s_dbind);
7042          while(V1068!=Cnil)          while(V1069!=Cnil)
7043          if(equal(x,V1068->c.c_car->c.c_car) &&V1068->c.c_car != Cnil){          if(equal(x,V1069->c.c_car->c.c_car) &&V1069->c.c_car != Cnil){
7044          goto T2277;          goto T2278;
7045          }else V1068=V1068->c.c_cdr;}          }else V1069=V1069->c.c_cdr;}
7046          {object V1070 = (VFUN_NARGS=1,(*(LnkLI465))((V1054)));          {object V1071 = (VFUN_NARGS=1,(*(LnkLI465))((V1055)));
         VMR95(V1070)}  
         goto T2277;  
 T2277:;  
         {object V1071 = Cnil;  
7047          VMR95(V1071)}          VMR95(V1071)}
7048            goto T2278;
7049    T2278:;
7050            {object V1072 = Cnil;
7051            VMR95(V1072)}
7052          base[0]=base[0];          base[0]=base[0];
7053          return Cnil;          return Cnil;
7054  }  }
7055  /*      local entry for function GET-METHOD     */  /*      local entry for function GET-METHOD     */
7056    
7057  static object LI108(object V1074,object V1073,object V1072,object first,...)  static object LI108(object V1075,object V1074,object V1073,object first,...)
7058  {        {      
7059          va_list ap;          va_list ap;
7060          int narg = VFUN_NARGS; VMB96 VMS96 VMV96          int narg = VFUN_NARGS; VMB96 VMS96 VMV96
7061          {object V1075;          {object V1076;
         register object V1076;  
7062          register object V1077;          register object V1077;
7063          object V1078;          register object V1078;
7064            object V1079;
7065          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
7066          va_start(ap,first);          va_start(ap,first);
7067          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
7068          V1075= V1074;          V1076= V1075;
7069          V1076= V1073;          V1077= V1074;
7070          V1077= V1072;          V1078= V1073;
7071          narg = narg - 3;          narg = narg - 3;
7072          if (narg <= 0) goto T2279;          if (narg <= 0) goto T2280;
7073          else {          else {
7074          V1078= first;}          V1079= first;}
7075          --narg; goto T2280;          --narg; goto T2281;
         goto T2279;  
 T2279:;  
         V1078= Ct;  
7076          goto T2280;          goto T2280;
7077  T2280:;  T2280:;
7078          if(((*(LnkLI438))((V1075)))==Cnil){          V1079= Ct;
7079          goto T2283;}{object V1079;          goto T2281;
7080          {register object V1080;  T2281:;
7081          register object V1081;          if(((*(LnkLI438))((V1076)))==Cnil){
7082          if(type_of(V1075)==t_structure){          goto T2284;}{object V1080;
7083          goto T2292;}          {register object V1081;
7084          goto T2290;          register object V1082;
7085          goto T2292;          if(type_of(V1076)==t_structure){
7086  T2292:;          goto T2293;}
7087          if(!(((V1075)->str.str_def)==(VV[323]))){          goto T2291;
7088          goto T2290;}          goto T2293;
7089          V1082= STREF(object,(V1075),4);  T2293:;
7090          goto T2288;          if(!(((V1076)->str.str_def)==(VV[323]))){
7091          goto T2290;          goto T2291;}
7092  T2290:;{object V1084;          V1083= STREF(object,(V1076),4);
7093          V1084= (VV[147]->s.s_dbind);          goto T2289;
7094            goto T2291;
7095    T2291:;{object V1085;
7096            V1085= (VV[147]->s.s_dbind);
7097          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
7098          base[3]= (V1075);          base[3]= (V1076);
7099          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7100          (void) (*Lnk390)();          (void) (*Lnk390)();
7101          vs_top=sup;          vs_top=sup;
7102          V1085= vs_base[0];          V1086= vs_base[0];
7103          if(!((V1084)==(CMPcar(V1085)))){          if(!((V1085)==(CMPcar(V1086)))){
7104          goto T2295;}}          goto T2296;}}
7105          V1082= CMPcar(((V1075))->cc.cc_turbo[12]);          V1083= CMPcar(((V1076))->cc.cc_turbo[12]);
7106          goto T2288;          goto T2289;
7107          goto T2295;          goto T2296;
7108  T2295:;  T2296:;
7109          base[2]= VV[148];          base[2]= VV[148];
7110          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7111          Lerror();          Lerror();
7112          vs_top=sup;          vs_top=sup;
7113          V1082= vs_base[0];          V1083= vs_base[0];
7114          goto T2288;          goto T2289;
7115  T2288:;  T2289:;
7116          V1080= (V1082)->v.v_self[fix((VV[235]->s.s_dbind))];          V1081= (V1083)->v.v_self[fix((VV[235]->s.s_dbind))];
7117          V1081= CMPcar((V1080));          V1082= CMPcar((V1081));
         goto T2303;  
 T2303:;  
         if(!(((V1080))==Cnil)){  
         goto T2304;}  
         V1079= Cnil;  
         goto T2286;  
7118          goto T2304;          goto T2304;
7119  T2304:;  T2304:;
7120          V1086= (VFUN_NARGS=2,(*(LnkLI434))((V1081),Cnil));          if(!(((V1081))==Cnil)){
7121          if(equal(/* INLINE-ARGS */V1086,(V1077))){          goto T2305;}
7122          goto T2310;}          V1080= Cnil;
7123          V1087= (VFUN_NARGS=2,(*(LnkLI434))((V1081),Ct));          goto T2287;
7124          if(!(equal(/* INLINE-ARGS */V1087,(V1077)))){          goto T2305;
7125          goto T2308;}  T2305:;
7126          goto T2310;          V1087= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Cnil));
7127  T2310:;          if(equal(/* INLINE-ARGS */V1087,(V1078))){
7128          V1088= (*(LnkLI461))((V1081));          goto T2311;}
7129          if(!(equal(/* INLINE-ARGS */V1088,(V1076)))){          V1088= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Ct));
7130          goto T2308;}          if(!(equal(/* INLINE-ARGS */V1088,(V1078)))){
7131          V1079= (V1081);          goto T2309;}
7132          goto T2286;          goto T2311;
7133          goto T2308;  T2311:;
7134  T2308:;          V1089= (*(LnkLI461))((V1082));
7135          V1080= CMPcdr((V1080));          if(!(equal(/* INLINE-ARGS */V1089,(V1077)))){
7136          V1081= CMPcar((V1080));          goto T2309;}
7137          goto T2303;}          V1080= (V1082);
7138            goto T2287;
7139            goto T2309;
7140    T2309:;
7141            V1081= CMPcdr((V1081));
7142            V1082= CMPcar((V1081));
7143            goto T2304;}
7144            goto T2287;
7145    T2287:;
7146            if(V1080==Cnil)goto T2286;
7147            {object V1090 = V1080;
7148            VMR96(V1090)}
7149          goto T2286;          goto T2286;
7150  T2286:;  T2286:;}
7151          if(V1079==Cnil)goto T2285;          if(((V1079))==Cnil){
7152          {object V1089 = V1079;          goto T2322;}
         VMR96(V1089)}  
         goto T2285;  
 T2285:;}  
         if(((V1078))==Cnil){  
         goto T2321;}  
7153          base[0]= VV[324];          base[0]= VV[324];
7154          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7155          Lerror();          Lerror();
7156          vs_top=sup;          vs_top=sup;
7157          {object V1090 = vs_base[0];          {object V1091 = vs_base[0];
         VMR96(V1090)}  
         goto T2321;  
 T2321:;  
         {object V1091 = Cnil;  
7158          VMR96(V1091)}          VMR96(V1091)}
7159          goto T2283;          goto T2322;
7160  T2283:;  T2322:;
7161          {object V1092 = (VFUN_NARGS=4,(*(LnkLI466))((V1075),(V1076),(V1077),(V1078)));          {object V1092 = Cnil;
7162          VMR96(V1092)}          VMR96(V1092)}
7163            goto T2284;
7164    T2284:;
7165            {object V1093 = (VFUN_NARGS=4,(*(LnkLI466))((V1076),(V1077),(V1078),(V1079)));
7166            VMR96(V1093)}
7167          va_end(ap);          va_end(ap);
7168          base[0]=base[0];          base[0]=base[0];
7169          return Cnil;}          return Cnil;}
# Line 7175  static object LI109(object first,...) Line 7174  static object LI109(object first,...)
7174  {        {      
7175          va_list ap;          va_list ap;
7176          int narg = VFUN_NARGS; VMB97 VMS97 VMV97          int narg = VFUN_NARGS; VMB97 VMS97 VMV97
7177          {object V1093;          {object V1094;
7178          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
7179          va_start(ap,first);          va_start(ap,first);
7180          narg = narg - 0;          narg = narg - 0;
7181          if (narg <= 0) goto T2324;          if (narg <= 0) goto T2325;
7182          else {          else {
7183          V1093= first;}          V1094= first;}
7184          --narg; goto T2325;          --narg; goto T2326;
         goto T2324;  
 T2324:;  
         V1093= (VV[325]->s.s_dbind);  
7185          goto T2325;          goto T2325;
7186  T2325:;  T2325:;
7187            V1094= (VV[325]->s.s_dbind);
7188            goto T2326;
7189    T2326:;
7190          (VV[326]->s.s_dbind)= Ct;          (VV[326]->s.s_dbind)= Ct;
7191          {object V1094;          {object V1095;
7192          V1094= Cnil;          V1095= Cnil;
7193          {register object V1095;          {register object V1096;
7194          register object V1096;          register object V1097;
7195          V1095= (VV[264]->s.s_dbind);          V1096= (VV[264]->s.s_dbind);
7196          V1096= CMPcar((V1095));          V1097= CMPcar((V1096));
         goto T2333;  
 T2333:;  
         if(!(((V1095))==Cnil)){  
         goto T2334;}  
         goto T2329;  
7197          goto T2334;          goto T2334;
7198  T2334:;  T2334:;
7199            if(!(((V1096))==Cnil)){
7200            goto T2335;}
7201            goto T2330;
7202            goto T2335;
7203    T2335:;
7204          base[1]= (VV[467]->s.s_gfdef);          base[1]= (VV[467]->s.s_gfdef);
7205          {object V1098;          {object V1099;
7206          V1098= (*(LnkLI356))((V1096));          V1099= (*(LnkLI356))((V1097));
7207          if(type_of((V1098))==t_structure){          if(type_of((V1099))==t_structure){
7208          goto T2348;}          goto T2349;}
7209          goto T2345;          goto T2346;
7210          goto T2348;          goto T2349;
7211  T2348:;  T2349:;
7212          if(!((((V1098))->str.str_def)==(VV[327]))){          if(!((((V1099))->str.str_def)==(VV[327]))){
7213          goto T2345;}}          goto T2346;}}
7214          V1099= (*(LnkLI356))((V1096));          V1100= (*(LnkLI356))((V1097));
7215          V1097= STREF(object,/* INLINE-ARGS */V1099,4);          V1098= STREF(object,/* INLINE-ARGS */V1100,4);
7216          goto T2343;          goto T2344;
7217          goto T2345;          goto T2346;
7218  T2345:;{object V1100;  T2346:;{object V1101;
7219          V1100= (VV[147]->s.s_dbind);          V1101= (VV[147]->s.s_dbind);
7220          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7221          base[4]= (*(LnkLI356))((V1096));          base[4]= (*(LnkLI356))((V1097));
7222          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7223          (void) (*Lnk390)();          (void) (*Lnk390)();
7224          vs_top=sup;          vs_top=sup;
7225          V1101= vs_base[0];          V1102= vs_base[0];
7226          if(!((V1100)==(CMPcar(V1101)))){          if(!((V1101)==(CMPcar(V1102)))){
7227          goto T2351;}}          goto T2352;}}
7228          V1102= (*(LnkLI356))((V1096));          V1103= (*(LnkLI356))((V1097));
7229          V1097= CMPcar((/* INLINE-ARGS */V1102)->cc.cc_turbo[12]);          V1098= CMPcar((/* INLINE-ARGS */V1103)->cc.cc_turbo[12]);
7230          goto T2343;          goto T2344;
7231          goto T2351;          goto T2352;
7232  T2351:;  T2352:;
7233          base[3]= VV[148];          base[3]= VV[148];
7234          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7235          Lerror();          Lerror();
7236          vs_top=sup;          vs_top=sup;
7237          V1097= vs_base[0];          V1098= vs_base[0];
7238          goto T2343;          goto T2344;
7239  T2343:;  T2344:;
7240          base[2]= (V1097)->v.v_self[fix((VV[235]->s.s_dbind))];          base[2]= (V1098)->v.v_self[fix((VV[235]->s.s_dbind))];
7241          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7242          (void) (*Lnk366)();          (void) (*Lnk366)();
7243          vs_top=sup;          vs_top=sup;
7244          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7245          goto T2338;}          goto T2339;}
7246          V1094= make_cons(V1096,(V1094));          V1095= make_cons(V1097,(V1095));
7247          goto T2338;          goto T2339;
7248  T2338:;  T2339:;
7249          V1095= CMPcdr((V1095));          V1096= CMPcdr((V1096));
7250          V1096= CMPcar((V1095));          V1097= CMPcar((V1096));
7251          goto T2333;}          goto T2334;}
7252          goto T2329;          goto T2330;
7253  T2329:;  T2330:;
7254          {register object V1104;          {register object V1105;
7255          object V1105;          object V1106;
7256          V1104= nconc((V1094),VV[328]);          V1105= nconc((V1095),VV[328]);
7257          V1105= CMPcar((V1104));          V1106= CMPcar((V1105));
         goto T2367;  
 T2367:;  
         if(!(((V1104))==Cnil)){  
         goto T2368;}  
         goto T2363;  
7258          goto T2368;          goto T2368;
7259  T2368:;  T2368:;
7260          base[2]= (V1105);          if(!(((V1105))==Cnil)){
7261            goto T2369;}
7262            goto T2364;
7263            goto T2369;
7264    T2369:;
7265            base[2]= (V1106);
7266          base[3]= (VV[264]->s.s_dbind);          base[3]= (VV[264]->s.s_dbind);
7267          base[4]= VV[265];          base[4]= VV[265];
7268          base[5]= (VV[241]->s.s_gfdef);          base[5]= (VV[241]->s.s_gfdef);
7269          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7270          (void) (*Lnk468)();          (void) (*Lnk468)();
7271          vs_top=sup;          vs_top=sup;
7272          V1106= vs_base[0];          V1107= vs_base[0];
7273          (VV[264]->s.s_dbind)= make_cons((V1105),V1106);          (VV[264]->s.s_dbind)= make_cons((V1106),V1107);
7274          V1104= CMPcdr((V1104));          V1105= CMPcdr((V1105));
7275          V1105= CMPcar((V1104));          V1106= CMPcar((V1105));
7276          goto T2367;}          goto T2368;}
7277          goto T2363;          goto T2364;
7278  T2363:;  T2364:;
7279          {register object V1107;          {register object V1108;
7280          object V1108;          object V1109;
7281          V1107= (VV[264]->s.s_dbind);          V1108= (VV[264]->s.s_dbind);
7282          V1108= CMPcar((V1107));          V1109= CMPcar((V1108));
         goto T2388;  
 T2388:;  
         if(!(((V1107))==Cnil)){  
         goto T2389;}  
         goto T2384;  
7283          goto T2389;          goto T2389;
7284  T2389:;  T2389:;
7285          if(((V1093))==Cnil){          if(!(((V1108))==Cnil)){
7286          goto T2393;}          goto T2390;}
7287            goto T2385;
7288            goto T2390;
7289    T2390:;
7290            if(((V1094))==Cnil){
7291            goto T2394;}
7292          base[1]= Ct;          base[1]= Ct;
7293          base[2]= VV[329];          base[2]= VV[329];
7294          base[3]= (V1108);          base[3]= (V1109);
7295          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
7296          Lformat();          Lformat();
7297          vs_top=sup;          vs_top=sup;
7298          goto T2393;          goto T2394;
7299  T2393:;  T2394:;
7300          {register object V1109;          {register object V1110;
7301          object V1110;          object V1111;
7302          V1109= (*(LnkLI356))((V1108));          V1110= (*(LnkLI356))((V1109));
7303          if(type_of(V1109)==t_structure){          if(type_of(V1110)==t_structure){
7304          goto T2407;}          goto T2408;}
7305          goto T2405;          goto T2406;
7306          goto T2407;          goto T2408;
7307  T2407:;  T2408:;
7308          if(!(((V1109)->str.str_def)==(VV[330]))){          if(!(((V1110)->str.str_def)==(VV[330]))){
7309          goto T2405;}          goto T2406;}
7310          V1113= STREF(object,(V1109),4);          V1114= STREF(object,(V1110),4);
7311          goto T2403;          goto T2404;
7312          goto T2405;          goto T2406;
7313  T2405:;{object V1115;  T2406:;{object V1116;
7314          V1115= (VV[147]->s.s_dbind);          V1116= (VV[147]->s.s_dbind);
7315          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
7316          base[5]= (V1109);          base[5]= (V1110);
7317          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7318          (void) (*Lnk390)();          (void) (*Lnk390)();
7319          vs_top=sup;          vs_top=sup;
7320          V1116= vs_base[0];          V1117= vs_base[0];
7321          if(!((V1115)==(CMPcar(V1116)))){          if(!((V1116)==(CMPcar(V1117)))){
7322          goto T2410;}}          goto T2411;}}
7323          V1113= CMPcar(((V1109))->cc.cc_turbo[12]);          V1114= CMPcar(((V1110))->cc.cc_turbo[12]);
7324          goto T2403;          goto T2404;
7325          goto T2410;          goto T2411;
7326  T2410:;  T2411:;
7327          base[4]= VV[148];          base[4]= VV[148];
7328          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7329          Lerror();          Lerror();
7330          vs_top=sup;          vs_top=sup;
7331          V1113= vs_base[0];          V1114= vs_base[0];
7332            goto T2404;
7333    T2404:;
7334            {object V1112;
7335            object V1113= (V1114)->v.v_self[fix((VV[235]->s.s_dbind))];
7336            if(V1113==Cnil){
7337            V1111= Cnil;
7338            goto T2402;}
7339            base[3]=V1112=MMcons(Cnil,Cnil);
7340          goto T2403;          goto T2403;
7341  T2403:;  T2403:;
7342          {object V1111;          {object V1119;
7343          object V1112= (V1113)->v.v_self[fix((VV[235]->s.s_dbind))];          base[5]= (V1113->c.c_car);
         if(V1112==Cnil){  
         V1110= Cnil;  
         goto T2401;}  
         base[3]=V1111=MMcons(Cnil,Cnil);  
         goto T2402;  
 T2402:;  
         {object V1118;  
         base[5]= (V1112->c.c_car);  
7344          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7345          (void) (*Lnk459)();          (void) (*Lnk459)();
7346          vs_top=sup;          vs_top=sup;
# Line 7349  T2402:; Line 7348  T2402:;
7348          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7349          Lcopy_list();          Lcopy_list();
7350          vs_top=sup;          vs_top=sup;
7351          V1118= vs_base[0];          V1119= vs_base[0];
         {object V1120;  
         V1120= (VFUN_NARGS=2,(*(LnkLI434))((V1112->c.c_car),Ct));  
         (CMPcdddr(V1118))->c.c_car = (V1120);  
         (void)(CMPcdddr(V1118));}  
7352          {object V1121;          {object V1121;
7353          V1121= (V1118);          V1121= (VFUN_NARGS=2,(*(LnkLI434))((V1113->c.c_car),Ct));
7354            (CMPcdddr(V1119))->c.c_car = (V1121);
7355            (void)(CMPcdddr(V1119));}
7356            {object V1122;
7357            V1122= (V1119);
7358           vs_top=base+4;           vs_top=base+4;
7359           while(V1121!=Cnil)           while(V1122!=Cnil)
7360           {vs_push((V1121)->c.c_car);V1121=(V1121)->c.c_cdr;}           {vs_push((V1122)->c.c_car);V1122=(V1122)->c.c_cdr;}
7361          vs_base=base+4;}          vs_base=base+4;}
7362          (void) (*Lnk469)();          (void) (*Lnk469)();
7363          vs_top=sup;          vs_top=sup;
7364          (V1111->c.c_car)= vs_base[0];}          (V1112->c.c_car)= vs_base[0];}
7365          if((V1112=MMcdr(V1112))==Cnil){          if((V1113=MMcdr(V1113))==Cnil){
7366          V1110= base[3];          V1111= base[3];
         goto T2401;}  
         V1111=MMcdr(V1111)=MMcons(Cnil,Cnil);  
7367          goto T2402;}          goto T2402;}
7368          goto T2401;          V1112=MMcdr(V1112)=MMcons(Cnil,Cnil);
7369  T2401:;          goto T2403;}
7370            goto T2402;
7371    T2402:;
7372          base[3]= (VV[331]->s.s_dbind);          base[3]= (VV[331]->s.s_dbind);
7373          base[4]= V1109;          base[4]= V1110;
7374          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7375          (void) (*Lnk470)(Lclptr470);          (void) (*Lnk470)(Lclptr470);
7376          vs_top=sup;          vs_top=sup;
7377          base[3]= (VV[252]->s.s_dbind);          base[3]= (VV[252]->s.s_dbind);
7378          base[4]= V1109;          base[4]= V1110;
7379          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7380          (void) (*Lnk471)(Lclptr471);          (void) (*Lnk471)(Lclptr471);
7381          vs_top=sup;          vs_top=sup;
7382          (void)((*(LnkLI472))((V1109),(V1110)));}          (void)((*(LnkLI472))((V1110),(V1111)));}
7383          V1107= CMPcdr((V1107));          V1108= CMPcdr((V1108));
7384          V1108= CMPcar((V1107));          V1109= CMPcar((V1108));
7385          goto T2388;}          goto T2389;}
7386          goto T2384;          goto T2385;
7387  T2384:;  T2385:;
7388          {register object V1124;          {register object V1125;
7389          object V1125;          object V1126;
7390          V1124= (VV[332]->s.s_dbind);          V1125= (VV[332]->s.s_dbind);
7391          V1125= CMPcar((V1124));          V1126= CMPcar((V1125));
         goto T2439;  
 T2439:;  
         if(!(((V1124))==Cnil)){  
         goto T2440;}  
         goto T2435;  
7392          goto T2440;          goto T2440;
7393  T2440:;  T2440:;
7394          {object V1126;          if(!(((V1125))==Cnil)){
7395          V1126= CMPcar((V1125));          goto T2441;}
7396          base[1]= CMPcaddr((V1125));          goto T2436;
7397            goto T2441;
7398    T2441:;
7399            {object V1127;
7400            V1127= CMPcar((V1126));
7401            base[1]= CMPcaddr((V1126));
7402          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7403          Lsymbol_function();          Lsymbol_function();
7404          vs_top=sup;          vs_top=sup;
7405          V1127= vs_base[0];          V1128= vs_base[0];
7406          (void)((*(LnkLI345))(V1127,(V1126)));}          (void)((*(LnkLI345))(V1128,(V1127)));}
7407          V1124= CMPcdr((V1124));          V1125= CMPcdr((V1125));
7408          V1125= CMPcar((V1124));          V1126= CMPcar((V1125));
7409          goto T2439;}          goto T2440;}
7410          goto T2435;          goto T2436;
7411  T2435:;  T2436:;
7412          {register object V1128;          {register object V1129;
7413          object V1129;          object V1130;
7414          V1128= (VV[261]->s.s_dbind);          V1129= (VV[261]->s.s_dbind);
7415          V1129= CMPcar((V1128));          V1130= CMPcar((V1129));
         goto T2456;  
 T2456:;  
         if(!(((V1128))==Cnil)){  
         goto T2457;}  
         {object V1130 = Cnil;  
         VMR97(V1130)}  
7416          goto T2457;          goto T2457;
7417  T2457:;  T2457:;
7418          {object V1131;          if(!(((V1129))==Cnil)){
7419          object V1132;          goto T2458;}
7420            {object V1131 = Cnil;
7421            VMR97(V1131)}
7422            goto T2458;
7423    T2458:;
7424            {object V1132;
7425          object V1133;          object V1133;
7426          V1131= CMPcar((V1129));          object V1134;
7427          V1132= (*(LnkLI356))((V1131));          V1132= CMPcar((V1130));
7428          {object V1134;          V1133= (*(LnkLI356))((V1132));
7429          object V1135= CMPcdr((V1129));          {object V1135;
7430          if(V1135==Cnil){          object V1136= CMPcdr((V1130));
7431          V1133= Cnil;          if(V1136==Cnil){
7432          goto T2464;}          V1134= Cnil;
7433          base[4]=V1134=MMcons(Cnil,Cnil);          goto T2465;}
7434          goto T2465;          base[4]=V1135=MMcons(Cnil,Cnil);
7435  T2465:;          goto T2466;
7436          {object V1137;  T2466:;
7437          object V1138;          {object V1138;
7438          object V1139;          object V1139;
7439          object V1140;          object V1140;
7440          object V1141;          object V1141;
7441          V1137= CMPcar((V1135->c.c_car));          object V1142;
7442          V1138= CMPcadr((V1135->c.c_car));          V1138= CMPcar((V1136->c.c_car));
7443          V1139= CMPcaddr((V1135->c.c_car));          V1139= CMPcadr((V1136->c.c_car));
7444          if((V1139)!=Cnil){          V1140= CMPcaddr((V1136->c.c_car));
7445          V1140= (V1139);          if((V1140)!=Cnil){
7446          goto T2470;}          V1141= (V1140);
7447          V1140= (V1131);          goto T2471;}
7448          goto T2470;          V1141= (V1132);
7449  T2470:;          goto T2471;
7450          base[11]= (V1140);  T2471:;
7451            base[11]= (V1141);
7452          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
7453          Lsymbol_function();          Lsymbol_function();
7454          vs_top=sup;          vs_top=sup;
# Line 7457  T2470:; Line 7456  T2470:;
7456          base[9]=MMcons(base[9],Cnil);          base[9]=MMcons(base[9],Cnil);
7457          base[11]=          base[11]=
7458          make_cclosure_new(LC138,Cnil,base[9],Cdata);          make_cclosure_new(LC138,Cnil,base[9],Cdata);
7459          base[12]= list(2,VV[165],(V1140));          base[12]= list(2,VV[165],(V1141));
7460          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
7461          (void) (*Lnk346)();          (void) (*Lnk346)();
7462          vs_top=sup;          vs_top=sup;
7463          V1142= vs_base[0];          V1143= vs_base[0];
7464          V1141= list(2,VV[35],V1142);          V1142= list(2,VV[36],V1143);
7465          base[11]= VV[19];          base[11]= VV[20];
7466          base[12]= Cnil;          base[12]= Cnil;
7467          base[13]= (V1137);          base[13]= (V1138);
7468          base[14]= (V1138);          base[14]= (V1139);
7469          base[15]= (V1141);          base[15]= (V1142);
7470          base[16]= Cnil;          base[16]= Cnil;
7471          (V1134->c.c_car)= simple_symlispcall(VV[462],base+11,6);}          (V1135->c.c_car)= simple_symlispcall(VV[462],base+11,6);}
7472          if((V1135=MMcdr(V1135))==Cnil){          if((V1136=MMcdr(V1136))==Cnil){
7473          V1133= base[4];          V1134= base[4];
         goto T2464;}  
         V1134=MMcdr(V1134)=MMcons(Cnil,Cnil);  
7474          goto T2465;}          goto T2465;}
7475          goto T2464;          V1135=MMcdr(V1135)=MMcons(Cnil,Cnil);
7476  T2464:;          goto T2466;}
7477            goto T2465;
7478    T2465:;
7479          base[4]= (VV[331]->s.s_dbind);          base[4]= (VV[331]->s.s_dbind);
7480          base[5]= V1132;          base[5]= V1133;
7481          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7482          (void) (*Lnk470)(Lclptr470);          (void) (*Lnk470)(Lclptr470);
7483          vs_top=sup;          vs_top=sup;
7484          base[4]= (VV[252]->s.s_dbind);          base[4]= (VV[252]->s.s_dbind);
7485          base[5]= V1132;          base[5]= V1133;
7486          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7487          (void) (*Lnk471)(Lclptr471);          (void) (*Lnk471)(Lclptr471);
7488          vs_top=sup;          vs_top=sup;
7489          (void)((*(LnkLI472))((V1132),(V1133)));}          (void)((*(LnkLI472))((V1133),(V1134)));}
7490          V1128= CMPcdr((V1128));          V1129= CMPcdr((V1129));
7491          V1129= CMPcar((V1128));          V1130= CMPcar((V1129));
7492          goto T2456;}}          goto T2457;}}
7493          va_end(ap);          va_end(ap);
7494          base[0]=base[0];          base[0]=base[0];
7495          return Cnil;}          return Cnil;}
# Line 7501  static void L110() Line 7500  static void L110()
7500  {register object *base=vs_base;  {register object *base=vs_base;
7501          register object *sup=base+VM98; VC98          register object *sup=base+VM98; VC98
7502          vs_check;          vs_check;
7503          {register object V1145;          {register object V1146;
7504          check_arg(1);          check_arg(1);
7505          V1145=(base[0]);          V1146=(base[0]);
7506          vs_top=sup;          vs_top=sup;
7507          goto TTL;          goto TTL;
7508  TTL:;  TTL:;
7509          {object V1146;          {object V1147;
7510          register object V1147;          register object V1148;
7511          object V1148;          object V1149;
7512          {object V1149;          {object V1150;
7513          V1149= CMPcar((V1145));          V1150= CMPcar((V1146));
7514          V1145= CMPcdr((V1145));          V1146= CMPcdr((V1146));
7515          V1146= (V1149);}          V1147= (V1150);}
         V1147= Cnil;  
7516          V1148= Cnil;          V1148= Cnil;
7517          goto T2500;          V1149= Cnil;
 T2500:;  
         if((CMPcar((V1145)))==Cnil){  
         goto T2503;}  
         if(!(type_of(CMPcar((V1145)))!=t_cons)){  
         goto T2503;}  
         {register object V1150;  
         {register object V1151;  
         V1151= CMPcar((V1145));  
         V1145= CMPcdr((V1145));  
         V1150= (V1151);}  
         V1147= make_cons((V1150),(V1147));  
         goto T2501;}  
         goto T2503;  
 T2503:;  
         V1147= nreverse((V1147));  
         goto T2498;  
7518          goto T2501;          goto T2501;
7519  T2501:;  T2501:;
7520          goto T2500;          if((CMPcar((V1146)))==Cnil){
7521          goto T2498;          goto T2504;}
7522  T2498:;          if(!(type_of(CMPcar((V1146)))!=t_cons)){
7523          {object V1152;          goto T2504;}
7524          V1152= CMPcar((V1145));          {register object V1151;
7525          V1145= CMPcdr((V1145));          {register object V1152;
7526          V1148= (V1152);}          V1152= CMPcar((V1146));
7527          base[1]= (V1146);          V1146= CMPcdr((V1146));
7528          base[2]= (V1147);          V1151= (V1152);}
7529          base[3]= (V1148);          V1148= make_cons((V1151),(V1148));
7530          base[4]= (V1145);          goto T2502;}
7531            goto T2504;
7532    T2504:;
7533            V1148= nreverse((V1148));
7534            goto T2499;
7535            goto T2502;
7536    T2502:;
7537            goto T2501;
7538            goto T2499;
7539    T2499:;
7540            {object V1153;
7541            V1153= CMPcar((V1146));
7542            V1146= CMPcdr((V1146));
7543            V1149= (V1153);}
7544            base[1]= (V1147);
7545            base[2]= (V1148);
7546            base[3]= (V1149);
7547            base[4]= (V1146);
7548          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7549          return;}          return;}
7550          }          }
7551  }  }
7552  /*      local entry for function PARSE-SPECIALIZERS     */  /*      local entry for function PARSE-SPECIALIZERS     */
7553    
7554  static object LI111(V1154)  static object LI111(V1155)
7555    
7556  object V1154;  object V1155;
7557  {        VMB99 VMS99 VMV99  {        VMB99 VMS99 VMV99
7558          goto TTL;          goto TTL;
7559  TTL:;  TTL:;
7560          {object V1155;          {object V1156;
7561          object V1156= (V1154);          object V1157= (V1155);
7562          if(V1156==Cnil){          if(V1157==Cnil){
7563          {object V1157 = Cnil;          {object V1158 = Cnil;
7564          VMR99(V1157)}}          VMR99(V1158)}}
7565          base[0]=V1155=MMcons(Cnil,Cnil);          base[0]=V1156=MMcons(Cnil,Cnil);
7566          goto T2523;          goto T2524;
7567  T2523:;  T2524:;
7568          base[1]= (V1156->c.c_car);          base[1]= (V1157->c.c_car);
7569          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7570          L112(base);          L112(base);
7571          vs_top=sup;          vs_top=sup;
7572          (V1155->c.c_car)= vs_base[0];          (V1156->c.c_car)= vs_base[0];
7573          if((V1156=MMcdr(V1156))==Cnil){          if((V1157=MMcdr(V1157))==Cnil){
7574          {object V1158 = base[0];          {object V1159 = base[0];
7575          VMR99(V1158)}}          VMR99(V1159)}}
7576          V1155=MMcdr(V1155)=MMcons(Cnil,Cnil);          V1156=MMcdr(V1156)=MMcons(Cnil,Cnil);
7577          goto T2523;}          goto T2524;}
7578          base[0]=base[0];          base[0]=base[0];
7579          return Cnil;          return Cnil;
7580  }  }
7581  /*      local entry for function UNPARSE-SPECIALIZERS   */  /*      local entry for function UNPARSE-SPECIALIZERS   */
7582    
7583  static object LI113(V1160)  static object LI113(V1161)
7584    
7585  object V1160;  object V1161;
7586  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
7587          goto TTL;          goto TTL;
7588  TTL:;  TTL:;
7589          if(!(type_of((V1160))==t_cons||((V1160))==Cnil)){          if(!(type_of((V1161))==t_cons||((V1161))==Cnil)){
7590          goto T2527;}          goto T2528;}
7591          {object V1161;          {object V1162;
7592          object V1162= (V1160);          object V1163= (V1161);
7593          if(V1162==Cnil){          if(V1163==Cnil){
7594          {object V1163 = Cnil;          {object V1164 = Cnil;
7595          VMR100(V1163)}}          VMR100(V1164)}}
7596          base[0]=V1161=MMcons(Cnil,Cnil);          base[0]=V1162=MMcons(Cnil,Cnil);
7597          goto T2529;          goto T2530;
7598  T2529:;  T2530:;
7599          base[1]= (V1162->c.c_car);          base[1]= (V1163->c.c_car);
7600          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7601          L114(base);          L114(base);
7602          vs_top=sup;          vs_top=sup;
7603          (V1161->c.c_car)= vs_base[0];          (V1162->c.c_car)= vs_base[0];
7604          if((V1162=MMcdr(V1162))==Cnil){          if((V1163=MMcdr(V1163))==Cnil){
7605          {object V1164 = base[0];          {object V1165 = base[0];
7606          VMR100(V1164)}}          VMR100(V1165)}}
7607          V1161=MMcdr(V1161)=MMcons(Cnil,Cnil);          V1162=MMcdr(V1162)=MMcons(Cnil,Cnil);
7608          goto T2529;}          goto T2530;}
7609          goto T2527;          goto T2528;
7610  T2527:;  T2528:;
7611          base[0]= (V1160);          base[0]= (V1161);
7612          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7613          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
7614          vs_top=sup;          vs_top=sup;
7615          V1160= vs_base[0];          V1161= vs_base[0];
7616          goto TTL;          goto TTL;
7617          base[0]=base[0];          base[0]=base[0];
7618          return Cnil;          return Cnil;
# Line 7624  static void L115() Line 7623  static void L115()
7623  {register object *base=vs_base;  {register object *base=vs_base;
7624          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
7625          vs_check;          vs_check;
7626          {object V1165;          {object V1166;
7627          object V1166;          object V1167;
7628          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7629          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7630          V1165=(base[0]);          V1166=(base[0]);
7631          vs_base=vs_base+1;          vs_base=vs_base+1;
7632          if(vs_base>=vs_top){vs_top=sup;goto T2535;}          if(vs_base>=vs_top){vs_top=sup;goto T2536;}
7633          V1166=(base[1]);          V1167=(base[1]);
7634          vs_top=sup;          vs_top=sup;
7635          goto T2536;          goto T2537;
         goto T2535;  
 T2535:;  
         V1166= Ct;  
7636          goto T2536;          goto T2536;
7637  T2536:;  T2536:;
7638          {register object V1167;          V1167= Ct;
7639          register object V1168;          goto T2537;
7640          object V1169;  T2537:;
7641            {register object V1168;
7642            register object V1169;
7643          object V1170;          object V1170;
7644          V1167= Cnil;          object V1171;
7645          V1168= Cnil;          V1168= Cnil;
7646          V1169= Cnil;          V1169= Cnil;
7647          V1170= Cnil;          V1170= Cnil;
7648          base[2]= (V1165);          V1171= Cnil;
7649            base[2]= (V1166);
7650          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7651          (void) (*Lnk473)(Lclptr473);          (void) (*Lnk473)(Lclptr473);
7652          vs_top=sup;          vs_top=sup;
7653          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7654          goto T2540;}          goto T2541;}
7655          V1168= (V1165);          V1169= (V1166);
7656          base[2]= (V1168);          base[2]= (V1169);
7657          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7658          (void) (*Lnk474)(Lclptr474);          (void) (*Lnk474)(Lclptr474);
7659          vs_top=sup;          vs_top=sup;
7660          V1167= vs_base[0];          V1168= vs_base[0];
7661          if((V1167)==Cnil){          if((V1168)==Cnil){
7662          V1170= Cnil;          V1171= Cnil;
7663          goto T2549;}          goto T2550;}
7664          base[2]= (V1167);          base[2]= (V1168);
7665          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7666          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk440)(Lclptr440);
7667          vs_top=sup;          vs_top=sup;
7668          V1170= vs_base[0];          V1171= vs_base[0];
7669          goto T2549;          goto T2550;
7670  T2549:;  T2550:;
7671          if(((V1170))==Cnil){          if(((V1171))==Cnil){
7672          goto T2553;}          goto T2554;}
7673          base[2]= (V1168);          base[2]= (V1169);
7674          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7675          (void) (*Lnk476)(Lclptr476);          (void) (*Lnk476)(Lclptr476);
7676          vs_top=sup;          vs_top=sup;
7677          V1171= vs_base[0];          V1172= vs_base[0];
7678          base[2]= (V1168);          base[2]= (V1169);
7679          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7680          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
7681          vs_top=sup;          vs_top=sup;
7682          V1172= vs_base[0];          V1173= vs_base[0];
7683          V1173= (*(LnkLI477))(V1172);          V1174= (*(LnkLI477))(V1173);
7684          V1174= (*(LnkLI401))((V1170),V1171,/* INLINE-ARGS */V1173);          V1175= (*(LnkLI401))((V1171),V1172,/* INLINE-ARGS */V1174);
7685          V1169= (*(LnkLI475))(/* INLINE-ARGS */V1174);          V1170= (*(LnkLI475))(/* INLINE-ARGS */V1175);
7686          goto T2551;          goto T2552;
7687          goto T2553;          goto T2554;
7688  T2553:;  T2554:;
7689          base[3]= Cnil;          base[3]= Cnil;
7690          base[4]= VV[336];          base[4]= VV[336];
7691          base[5]= (V1168);          base[5]= (V1169);
7692          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7693          Lformat();          Lformat();
7694          vs_top=sup;          vs_top=sup;
# Line 7697  T2553:; Line 7696  T2553:;
7696          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7697          Lmake_symbol();          Lmake_symbol();
7698          vs_top=sup;          vs_top=sup;
7699          V1169= vs_base[0];          V1170= vs_base[0];
7700          goto T2551;          goto T2552;
7701  T2551:;  T2552:;
7702          goto T2538;          goto T2539;
7703          goto T2540;          goto T2541;
7704  T2540:;  T2541:;
7705          {object V1175;          {object V1176;
7706          object V1176;          object V1177;
7707          register object V1177;          register object V1178;
7708          base[2]= (V1165);          base[2]= (V1166);
7709          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7710          (void) (*Lnk352)();          (void) (*Lnk352)();
         if(vs_base>=vs_top){vs_top=sup;goto T2565;}  
         V1175= vs_base[0];  
         vs_base++;  
7711          if(vs_base>=vs_top){vs_top=sup;goto T2566;}          if(vs_base>=vs_top){vs_top=sup;goto T2566;}
7712          V1176= vs_base[0];          V1176= vs_base[0];
7713          vs_base++;          vs_base++;
7714          if(vs_base>=vs_top){vs_top=sup;goto T2567;}          if(vs_base>=vs_top){vs_top=sup;goto T2567;}
7715          V1177= vs_base[0];          V1177= vs_base[0];
7716            vs_base++;
7717            if(vs_base>=vs_top){vs_top=sup;goto T2568;}
7718            V1178= vs_base[0];
7719          vs_top=sup;          vs_top=sup;
7720          goto T2568;          goto T2569;
         goto T2565;  
 T2565:;  
         V1175= Cnil;  
7721          goto T2566;          goto T2566;
7722  T2566:;  T2566:;
7723          V1176= Cnil;          V1176= Cnil;
# Line 7730  T2567:; Line 7726  T2567:;
7726          V1177= Cnil;          V1177= Cnil;
7727          goto T2568;          goto T2568;
7728  T2568:;  T2568:;
7729          if((V1166)!=Cnil){          V1178= Cnil;
7730          if(((V1166))!=Cnil){          goto T2569;
7731          goto T2572;}  T2569:;
7732            if((V1167)!=Cnil){
7733            if(((V1167))!=Cnil){
7734            goto T2573;}
7735            goto T2574;}
7736            if(((*(LnkLI355))((V1176)))!=Cnil){
7737          goto T2573;}          goto T2573;}
7738          if(((*(LnkLI355))((V1175)))!=Cnil){          goto T2574;
7739          goto T2572;}  T2574:;
7740            V1168= Cnil;
7741            goto T2572;
7742          goto T2573;          goto T2573;
7743  T2573:;  T2573:;
7744          V1167= Cnil;          V1168= (*(LnkLI356))((V1176));
         goto T2571;  
7745          goto T2572;          goto T2572;
7746  T2572:;  T2572:;
7747          V1167= (*(LnkLI356))((V1175));          if(((V1168))!=Cnil){
7748          goto T2571;          goto T2570;}
7749  T2571:;          goto T2539;
7750          if(((V1167))!=Cnil){          goto T2570;
7751          goto T2569;}  T2570:;
7752          goto T2538;          {object V1179;
7753          goto T2569;          base[2]= (V1168);
 T2569:;  
         {object V1178;  
         base[2]= (V1167);  
7754          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7755          (void) (*Lnk478)(Lclptr478);          (void) (*Lnk478)(Lclptr478);
7756          vs_top=sup;          vs_top=sup;
7757          V1178= vs_base[0];          V1179= vs_base[0];
7758          V1179= (*(LnkLI458))((V1177));          V1180= (*(LnkLI458))((V1178));
7759          V1181 = CMPmake_fixnum((long)length((V1177)));          V1182 = CMPmake_fixnum((long)length((V1178)));
7760          base[2]= number_minus((V1178),V1181);          base[2]= number_minus((V1179),V1182);
7761          base[3]= VV[223];          base[3]= VV[223];
7762          base[4]= (VV[337]->s.s_dbind);          base[4]= (VV[337]->s.s_dbind);
7763          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7764          Lmake_list();          Lmake_list();
7765          vs_top=sup;          vs_top=sup;
7766          V1180= vs_base[0];          V1181= vs_base[0];
7767          V1177= append(/* INLINE-ARGS */V1179,V1180);          V1178= append(/* INLINE-ARGS */V1180,V1181);
7768          V1168= (VFUN_NARGS=4,(*(LnkLI479))((V1167),(V1176),(V1177),(V1166)));          V1169= (VFUN_NARGS=4,(*(LnkLI479))((V1168),(V1177),(V1178),(V1167)));
7769          if(((V1168))!=Cnil){          if(((V1169))!=Cnil){
7770          goto T2582;}          goto T2583;}
7771          goto T2538;          goto T2539;
7772          goto T2582;          goto T2583;
7773  T2582:;  T2583:;
7774          V1182= (*(LnkLI401))((V1175),(V1176),(V1177));          V1183= (*(LnkLI401))((V1176),(V1177),(V1178));
7775          V1169= (*(LnkLI475))(/* INLINE-ARGS */V1182);}}          V1170= (*(LnkLI475))(/* INLINE-ARGS */V1183);}}
7776          goto T2538;          goto T2539;
7777  T2538:;  T2539:;
7778          base[2]= (V1167);          base[2]= (V1168);
7779          base[3]= (V1168);          base[3]= (V1169);
7780          base[4]= (V1169);          base[4]= (V1170);
7781          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7782          return;}          return;}
7783          }          }
7784  }  }
7785  /*      local entry for function EXTRACT-PARAMETERS     */  /*      local entry for function EXTRACT-PARAMETERS     */
7786    
7787  static object LI116(V1184)  static object LI116(V1185)
7788    
7789  object V1184;  object V1185;
7790  {        VMB102 VMS102 VMV102  {        VMB102 VMS102 VMV102
7791          goto TTL;          goto TTL;
7792  TTL:;  TTL:;
7793          {object V1185;          {object V1186;
         object V1186;  
7794          object V1187;          object V1187;
7795          base[0]= (V1184);          object V1188;
7796            base[0]= (V1185);
7797          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7798          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2591;}  
         V1185= vs_base[0];  
         vs_base++;  
7799          if(vs_base>=vs_top){vs_top=sup;goto T2592;}          if(vs_base>=vs_top){vs_top=sup;goto T2592;}
7800          V1186= vs_base[0];          V1186= vs_base[0];
7801          vs_base++;          vs_base++;
7802          if(vs_base>=vs_top){vs_top=sup;goto T2593;}          if(vs_base>=vs_top){vs_top=sup;goto T2593;}
7803          V1187= vs_base[0];          V1187= vs_base[0];
7804            vs_base++;
7805            if(vs_base>=vs_top){vs_top=sup;goto T2594;}
7806            V1188= vs_base[0];
7807          vs_top=sup;          vs_top=sup;
7808          goto T2594;          goto T2595;
         goto T2591;  
 T2591:;  
         V1185= Cnil;  
7809          goto T2592;          goto T2592;
7810  T2592:;  T2592:;
7811          V1186= Cnil;          V1186= Cnil;
# Line 7818  T2593:; Line 7814  T2593:;
7814          V1187= Cnil;          V1187= Cnil;
7815          goto T2594;          goto T2594;
7816  T2594:;  T2594:;
7817          {object V1188 = (V1185);          V1188= Cnil;
7818          VMR102(V1188)}}          goto T2595;
7819    T2595:;
7820            {object V1189 = (V1186);
7821            VMR102(V1189)}}
7822          base[0]=base[0];          base[0]=base[0];
7823          return Cnil;          return Cnil;
7824  }  }
7825  /*      local entry for function EXTRACT-LAMBDA-LIST    */  /*      local entry for function EXTRACT-LAMBDA-LIST    */
7826    
7827  static object LI117(V1190)  static object LI117(V1191)
7828    
7829  object V1190;  object V1191;
7830  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
7831          goto TTL;          goto TTL;
7832  TTL:;  TTL:;
7833          {object V1191;          {object V1192;
         object V1192;  
7834          object V1193;          object V1193;
7835          base[0]= (V1190);          object V1194;
7836            base[0]= (V1191);
7837          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7838          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2597;}  
         V1191= vs_base[0];  
         vs_base++;  
7839          if(vs_base>=vs_top){vs_top=sup;goto T2598;}          if(vs_base>=vs_top){vs_top=sup;goto T2598;}
7840          V1192= vs_base[0];          V1192= vs_base[0];
7841          vs_base++;          vs_base++;
7842          if(vs_base>=vs_top){vs_top=sup;goto T2599;}          if(vs_base>=vs_top){vs_top=sup;goto T2599;}
7843          V1193= vs_base[0];          V1193= vs_base[0];
7844            vs_base++;
7845            if(vs_base>=vs_top){vs_top=sup;goto T2600;}
7846            V1194= vs_base[0];
7847          vs_top=sup;          vs_top=sup;
7848          goto T2600;          goto T2601;
         goto T2597;  
 T2597:;  
         V1191= Cnil;  
7849          goto T2598;          goto T2598;
7850  T2598:;  T2598:;
7851          V1192= Cnil;          V1192= Cnil;
# Line 7858  T2599:; Line 7854  T2599:;
7854          V1193= Cnil;          V1193= Cnil;
7855          goto T2600;          goto T2600;
7856  T2600:;  T2600:;
7857          {object V1194 = (V1192);          V1194= Cnil;
7858          VMR103(V1194)}}          goto T2601;
7859    T2601:;
7860            {object V1195 = (V1193);
7861            VMR103(V1195)}}
7862          base[0]=base[0];          base[0]=base[0];
7863          return Cnil;          return Cnil;
7864  }  }
7865  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */
7866    
7867  static object LI118(V1196)  static object LI118(V1197)
7868    
7869  object V1196;  object V1197;
7870  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
7871          goto TTL;          goto TTL;
7872  TTL:;  TTL:;
7873          {object V1197;          {object V1198;
         object V1198;  
7874          object V1199;          object V1199;
7875          base[0]= (V1196);          object V1200;
7876            base[0]= (V1197);
7877          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7878          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2603;}  
         V1197= vs_base[0];  
         vs_base++;  
7879          if(vs_base>=vs_top){vs_top=sup;goto T2604;}          if(vs_base>=vs_top){vs_top=sup;goto T2604;}
7880          V1198= vs_base[0];          V1198= vs_base[0];
7881          vs_base++;          vs_base++;
7882          if(vs_base>=vs_top){vs_top=sup;goto T2605;}          if(vs_base>=vs_top){vs_top=sup;goto T2605;}
7883          V1199= vs_base[0];          V1199= vs_base[0];
7884            vs_base++;
7885            if(vs_base>=vs_top){vs_top=sup;goto T2606;}
7886            V1200= vs_base[0];
7887          vs_top=sup;          vs_top=sup;
7888          goto T2606;          goto T2607;
         goto T2603;  
 T2603:;  
         V1197= Cnil;  
7889          goto T2604;          goto T2604;
7890  T2604:;  T2604:;
7891          V1198= Cnil;          V1198= Cnil;
# Line 7898  T2605:; Line 7894  T2605:;
7894          V1199= Cnil;          V1199= Cnil;
7895          goto T2606;          goto T2606;
7896  T2606:;  T2606:;
7897          {object V1200 = (V1199);          V1200= Cnil;
7898          VMR104(V1200)}}          goto T2607;
7899    T2607:;
7900            {object V1201 = (V1200);
7901            VMR104(V1201)}}
7902          base[0]=base[0];          base[0]=base[0];
7903          return Cnil;          return Cnil;
7904  }  }
7905  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */
7906    
7907  static object LI119(V1202)  static object LI119(V1203)
7908    
7909  object V1202;  object V1203;
7910  {        VMB105 VMS105 VMV105  {        VMB105 VMS105 VMV105
7911          goto TTL;          goto TTL;
7912  TTL:;  TTL:;
7913          {object V1203;          {object V1204;
         object V1204;  
7914          object V1205;          object V1205;
7915          object V1206;          object V1206;
7916          base[0]= (V1202);          object V1207;
7917            base[0]= (V1203);
7918          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7919          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2609;}  
         V1203= vs_base[0];  
         vs_base++;  
7920          if(vs_base>=vs_top){vs_top=sup;goto T2610;}          if(vs_base>=vs_top){vs_top=sup;goto T2610;}
7921          V1204= vs_base[0];          V1204= vs_base[0];
7922          vs_base++;          vs_base++;
# Line 7929  TTL:; Line 7925  TTL:;
7925          vs_base++;          vs_base++;
7926          if(vs_base>=vs_top){vs_top=sup;goto T2612;}          if(vs_base>=vs_top){vs_top=sup;goto T2612;}
7927          V1206= vs_base[0];          V1206= vs_base[0];
7928            vs_base++;
7929            if(vs_base>=vs_top){vs_top=sup;goto T2613;}
7930            V1207= vs_base[0];
7931          vs_top=sup;          vs_top=sup;
7932          goto T2613;          goto T2614;
         goto T2609;  
 T2609:;  
         V1203= Cnil;  
7933          goto T2610;          goto T2610;
7934  T2610:;  T2610:;
7935          V1204= Cnil;          V1204= Cnil;
# Line 7945  T2612:; Line 7941  T2612:;
7941          V1206= Cnil;          V1206= Cnil;
7942          goto T2613;          goto T2613;
7943  T2613:;  T2613:;
7944          {object V1207 = (V1206);          V1207= Cnil;
7945          VMR105(V1207)}}          goto T2614;
7946    T2614:;
7947            {object V1208 = (V1207);
7948            VMR105(V1208)}}
7949          base[0]=base[0];          base[0]=base[0];
7950          return Cnil;          return Cnil;
7951  }  }
# Line 7956  static void L120() Line 7955  static void L120()
7955  {register object *base=vs_base;  {register object *base=vs_base;
7956          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
7957          vs_check;          vs_check;
7958          {register object V1208;          {register object V1209;
7959          object V1209;          object V1210;
7960          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7961          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7962          V1208=(base[0]);          V1209=(base[0]);
7963          vs_base=vs_base+1;          vs_base=vs_base+1;
7964          if(vs_base>=vs_top){vs_top=sup;goto T2614;}          if(vs_base>=vs_top){vs_top=sup;goto T2615;}
7965          V1209=(base[1]);          V1210=(base[1]);
7966          vs_top=sup;          vs_top=sup;
7967          goto T2615;          goto T2616;
         goto T2614;  
 T2614:;  
         V1209= Cnil;  
7968          goto T2615;          goto T2615;
7969  T2615:;  T2615:;
7970          {register object V1210;          V1210= Cnil;
7971          V1210= CMPcar((V1208));          goto T2616;
7972          if(((V1208))!=Cnil){  T2616:;
7973          goto T2619;}          {register object V1211;
7974            V1211= CMPcar((V1209));
7975            if(((V1209))!=Cnil){
7976            goto T2620;}
7977          base[2]= Cnil;          base[2]= Cnil;
7978          base[3]= Cnil;          base[3]= Cnil;
7979          base[4]= Cnil;          base[4]= Cnil;
7980          base[5]= Cnil;          base[5]= Cnil;
7981          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7982          return;          return;
7983          goto T2619;          goto T2620;
7984  T2619:;  T2620:;
7985          if(!(((V1210))==(VV[56]))){          if(!(((V1211))==(VV[56]))){
7986          goto T2626;}          goto T2627;}
7987          base[2]= Cnil;          base[2]= Cnil;
7988          base[3]= (V1208);          base[3]= (V1209);
7989          base[4]= Cnil;          base[4]= Cnil;
7990          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7991          return;          return;
7992          goto T2626;          goto T2627;
7993  T2626:;  T2627:;
7994          {register object x= (V1210),V1211= VV[183];          {register object x= (V1211),V1212= VV[183];
         while(V1211!=Cnil)  
         if(x==(V1211->c.c_car)){  
         goto T2633;  
         }else V1211=V1211->c.c_cdr;  
         goto T2632;}  
         goto T2633;  
 T2633:;  
         {register object x= (V1210),V1212= VV[338];  
7995          while(V1212!=Cnil)          while(V1212!=Cnil)
7996          if(x==(V1212->c.c_car)){          if(x==(V1212->c.c_car)){
7997          goto T2634;          goto T2634;
7998          }else V1212=V1212->c.c_cdr;}          }else V1212=V1212->c.c_cdr;
7999            goto T2633;}
8000            goto T2634;
8001    T2634:;
8002            {register object x= (V1211),V1213= VV[338];
8003            while(V1213!=Cnil)
8004            if(x==(V1213->c.c_car)){
8005            goto T2635;
8006            }else V1213=V1213->c.c_cdr;}
8007          base[2]= VV[339];          base[2]= VV[339];
8008          base[3]= (V1210);          base[3]= (V1211);
8009          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8010          (void) (*Lnk398)();          (void) (*Lnk398)();
8011          vs_top=sup;          vs_top=sup;
8012          goto T2634;          goto T2635;
8013  T2634:;  T2635:;
8014          {object V1213;          {object V1214;
8015          object V1214;          object V1215;
8016          base[2]= CMPcdr((V1208));          base[2]= CMPcdr((V1209));
8017          base[3]= Ct;          base[3]= Ct;
8018          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8019          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2642;}  
         V1213= vs_base[0];  
         vs_base++;  
8020          if(vs_base>=vs_top){vs_top=sup;goto T2643;}          if(vs_base>=vs_top){vs_top=sup;goto T2643;}
8021          V1214= vs_base[0];          V1214= vs_base[0];
8022            vs_base++;
8023            if(vs_base>=vs_top){vs_top=sup;goto T2644;}
8024            V1215= vs_base[0];
8025          vs_top=sup;          vs_top=sup;
8026          goto T2644;          goto T2645;
         goto T2642;  
 T2642:;  
         V1213= Cnil;  
8027          goto T2643;          goto T2643;
8028  T2643:;  T2643:;
8029          V1214= Cnil;          V1214= Cnil;
8030          goto T2644;          goto T2644;
8031  T2644:;  T2644:;
8032          base[2]= (V1213);          V1215= Cnil;
8033          base[3]= make_cons((V1210),(V1214));          goto T2645;
8034    T2645:;
8035            base[2]= (V1214);
8036            base[3]= make_cons((V1211),(V1215));
8037          base[4]= Cnil;          base[4]= Cnil;
8038          base[5]= Cnil;          base[5]= Cnil;
8039          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8040          return;}          return;}
8041          goto T2632;          goto T2633;
8042  T2632:;  T2633:;
8043          if(((V1209))==Cnil){          if(((V1210))==Cnil){
8044          goto T2650;}          goto T2651;}
8045          {object V1215;          {object V1216;
8046          object V1216;          object V1217;
8047          base[2]= CMPcdr((V1208));          base[2]= CMPcdr((V1209));
8048          base[3]= Ct;          base[3]= Ct;
8049          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8050          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2655;}  
         V1215= vs_base[0];  
         vs_base++;  
8051          if(vs_base>=vs_top){vs_top=sup;goto T2656;}          if(vs_base>=vs_top){vs_top=sup;goto T2656;}
8052          V1216= vs_base[0];          V1216= vs_base[0];
8053            vs_base++;
8054            if(vs_base>=vs_top){vs_top=sup;goto T2657;}
8055            V1217= vs_base[0];
8056          vs_top=sup;          vs_top=sup;
8057          goto T2657;          goto T2658;
         goto T2655;  
 T2655:;  
         V1215= Cnil;  
8058          goto T2656;          goto T2656;
8059  T2656:;  T2656:;
8060          V1216= Cnil;          V1216= Cnil;
8061          goto T2657;          goto T2657;
8062  T2657:;  T2657:;
8063          if(!(type_of((V1210))==t_cons||((V1210))==Cnil)){          V1217= Cnil;
8064          goto T2661;}          goto T2658;
8065          V1217= CMPcar((V1210));  T2658:;
8066          goto T2659;          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){
8067          goto T2661;          goto T2662;}
8068  T2661:;          V1218= CMPcar((V1211));
8069          V1217= (V1210);          goto T2660;
8070          goto T2659;          goto T2662;
8071  T2659:;  T2662:;
8072          base[2]= make_cons(V1217,(V1215));          V1218= (V1211);
8073          base[3]= make_cons((V1210),(V1216));          goto T2660;
8074    T2660:;
8075            base[2]= make_cons(V1218,(V1216));
8076            base[3]= make_cons((V1211),(V1217));
8077          base[4]= Cnil;          base[4]= Cnil;
8078          base[5]= Cnil;          base[5]= Cnil;
8079          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8080          return;}          return;}
8081          goto T2650;          goto T2651;
8082  T2650:;  T2651:;
8083          {object V1218;          {object V1219;
         object V1219;  
8084          object V1220;          object V1220;
8085          object V1221;          object V1221;
8086          base[2]= CMPcdr((V1208));          object V1222;
8087            base[2]= CMPcdr((V1209));
8088          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8089          (void) (*Lnk370)();          (void) (*Lnk370)();
         if(vs_base>=vs_top){vs_top=sup;goto T2668;}  
         V1218= vs_base[0];  
         vs_base++;  
8090          if(vs_base>=vs_top){vs_top=sup;goto T2669;}          if(vs_base>=vs_top){vs_top=sup;goto T2669;}
8091          V1219= vs_base[0];          V1219= vs_base[0];
8092          vs_base++;          vs_base++;
# Line 8099  T2650:; Line 8095  T2650:;
8095          vs_base++;          vs_base++;
8096          if(vs_base>=vs_top){vs_top=sup;goto T2671;}          if(vs_base>=vs_top){vs_top=sup;goto T2671;}
8097          V1221= vs_base[0];          V1221= vs_base[0];
8098            vs_base++;
8099            if(vs_base>=vs_top){vs_top=sup;goto T2672;}
8100            V1222= vs_base[0];
8101          vs_top=sup;          vs_top=sup;
8102          goto T2672;          goto T2673;
         goto T2668;  
 T2668:;  
         V1218= Cnil;  
8103          goto T2669;          goto T2669;
8104  T2669:;  T2669:;
8105          V1219= Cnil;          V1219= Cnil;
# Line 8115  T2671:; Line 8111  T2671:;
8111          V1221= Cnil;          V1221= Cnil;
8112          goto T2672;          goto T2672;
8113  T2672:;  T2672:;
8114          if(!(type_of((V1210))==t_cons||((V1210))==Cnil)){          V1222= Cnil;
8115          goto T2676;}          goto T2673;
8116          V1222= CMPcar((V1210));  T2673:;
8117          goto T2674;          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){
8118          goto T2676;          goto T2677;}
8119  T2676:;          V1223= CMPcar((V1211));
8120          V1222= (V1210);          goto T2675;
8121          goto T2674;          goto T2677;
8122  T2674:;  T2677:;
8123          base[2]= make_cons(V1222,(V1218));          V1223= (V1211);
8124          if(!(type_of((V1210))==t_cons||((V1210))==Cnil)){          goto T2675;
8125          goto T2681;}  T2675:;
8126          V1223= CMPcar((V1210));          base[2]= make_cons(V1223,(V1219));
8127          goto T2679;          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){
8128          goto T2681;          goto T2682;}
8129  T2681:;          V1224= CMPcar((V1211));
8130          V1223= (V1210);          goto T2680;
8131          goto T2679;          goto T2682;
8132  T2679:;  T2682:;
8133          base[3]= make_cons(V1223,(V1219));          V1224= (V1211);
8134          if(!(type_of((V1210))==t_cons||((V1210))==Cnil)){          goto T2680;
8135          goto T2686;}  T2680:;
8136          V1224= CMPcadr((V1210));          base[3]= make_cons(V1224,(V1220));
8137          goto T2684;          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){
8138          goto T2686;          goto T2687;}
8139  T2686:;          V1225= CMPcadr((V1211));
8140          V1224= Ct;          goto T2685;
8141          goto T2684;          goto T2687;
8142  T2684:;  T2687:;
8143          base[4]= make_cons(V1224,(V1220));          V1225= Ct;
8144          if(!(type_of((V1210))==t_cons||((V1210))==Cnil)){          goto T2685;
8145          goto T2691;}  T2685:;
8146          V1225= CMPcar((V1210));          base[4]= make_cons(V1225,(V1221));
8147          goto T2689;          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){
8148          goto T2691;          goto T2692;}
8149  T2691:;          V1226= CMPcar((V1211));
8150          V1225= (V1210);          goto T2690;
8151          goto T2689;          goto T2692;
8152  T2689:;  T2692:;
8153          base[5]= make_cons(V1225,(V1221));          V1226= (V1211);
8154            goto T2690;
8155    T2690:;
8156            base[5]= make_cons(V1226,(V1222));
8157          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8158          return;}}          return;}}
8159          }          }
# Line 8167  static void L121() Line 8166  static void L121()
8166          vs_check;          vs_check;
8167          check_arg(2);          check_arg(2);
8168          vs_top=sup;          vs_top=sup;
8169          {object V1226=base[0]->c.c_cdr;          {object V1227=base[0]->c.c_cdr;
8170          if(endp(V1226))invalid_macro_call();          if(endp(V1227))invalid_macro_call();
8171          base[2]= (V1226->c.c_car);          base[2]= (V1227->c.c_car);
8172          V1226=V1226->c.c_cdr;          V1227=V1227->c.c_cdr;
8173          base[3]= V1226;}          base[3]= V1227;}
8174          {object V1227;          {object V1228;
8175          object V1228= base[2];          object V1229= base[2];
8176          if(V1228==Cnil){          if(V1229==Cnil){
8177          base[4]= Cnil;          base[4]= Cnil;
8178          goto T2693;}          goto T2694;}
8179          base[5]=V1227=MMcons(Cnil,Cnil);          base[5]=V1228=MMcons(Cnil,Cnil);
8180          goto T2694;          goto T2695;
8181  T2694:;  T2695:;
8182          V1230= CMPcar((V1228->c.c_car));          V1231= CMPcar((V1229->c.c_car));
8183          V1231= (*(LnkLI480))(CMPcar((V1228->c.c_car)),base[1]);          V1232= (*(LnkLI480))(CMPcar((V1229->c.c_car)),base[1]);
8184          (V1227->c.c_car)= list(3,/* INLINE-ARGS */V1230,/* INLINE-ARGS */V1231,CMPcadr((V1228->c.c_car)));          (V1228->c.c_car)= list(3,/* INLINE-ARGS */V1231,/* INLINE-ARGS */V1232,CMPcadr((V1229->c.c_car)));
8185          if((V1228=MMcdr(V1228))==Cnil){          if((V1229=MMcdr(V1229))==Cnil){
8186          base[4]= base[5];          base[4]= base[5];
         goto T2693;}  
         V1227=MMcdr(V1227)=MMcons(Cnil,Cnil);  
8187          goto T2694;}          goto T2694;}
8188          goto T2693;          V1228=MMcdr(V1228)=MMcons(Cnil,Cnil);
8189  T2693:;          goto T2695;}
8190            goto T2694;
8191    T2694:;
8192          base[4]=MMcons(base[4],Cnil);          base[4]=MMcons(base[4],Cnil);
8193          base[5]= make_cons(VV[9],base[3]);          base[5]= make_cons(VV[10],base[3]);
8194          base[6]= base[1];          base[6]= base[1];
8195          base[7]=          base[7]=
8196          make_cclosure_new(LC139,Cnil,base[4],Cdata);          make_cclosure_new(LC139,Cnil,base[4],Cdata);
# Line 8201  T2693:; Line 8200  T2693:;
8200  }  }
8201  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */
8202    
8203  static object LI124(V1236,V1237,V1238,V1239)  static object LI124(V1237,V1238,V1239,V1240)
8204    
8205  object V1236;register object V1237;object V1238;object V1239;  object V1237;register object V1238;object V1239;object V1240;
8206  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
8207          goto TTL;          goto TTL;
8208  TTL:;  TTL:;
8209          base[0]= (V1239);          base[0]= (V1240);
8210          base[1]= (V1236);          base[1]= (V1237);
8211          base[2]= Cnil;          base[2]= Cnil;
8212          if(((V1238))==(VV[194])){          if(((V1239))==(VV[194])){
8213          goto T2700;}          goto T2701;}
8214          {object V1240 = (V1237);          {object V1241 = (V1238);
8215          VMR108(V1240)}          VMR108(V1241)}
8216          goto T2700;          goto T2701;
8217  T2700:;  T2701:;
8218          if(!(type_of((V1237))==t_symbol)){          if(!(type_of((V1238))==t_symbol)){
8219          goto T2703;}          goto T2704;}
8220          {register object x= (V1237),V1241= base[1];          {register object x= (V1238),V1242= base[1];
8221          while(V1241!=Cnil)          while(V1242!=Cnil)
8222          if(eql(x,V1241->c.c_car->c.c_car) &&V1241->c.c_car != Cnil){          if(eql(x,V1242->c.c_car->c.c_car) &&V1242->c.c_car != Cnil){
8223          base[2]= (V1241->c.c_car);          base[2]= (V1242->c.c_car);
8224          goto T2709;          goto T2710;
8225          }else V1241=V1241->c.c_cdr;          }else V1242=V1242->c.c_cdr;
8226          base[2]= Cnil;}          base[2]= Cnil;}
8227          goto T2709;          goto T2710;
8228  T2709:;  T2710:;
8229          if((base[2])==Cnil){          if((base[2])==Cnil){
8230          goto T2706;}          goto T2707;}
8231          V1242= CMPcadr(base[2]);          V1243= CMPcadr(base[2]);
8232          V1243= (*(LnkLI480))((V1237),base[0]);          V1244= (*(LnkLI480))((V1238),base[0]);
8233          if(!((/* INLINE-ARGS */V1242)==(/* INLINE-ARGS */V1243))){          if(!((/* INLINE-ARGS */V1243)==(/* INLINE-ARGS */V1244))){
8234          goto T2706;}          goto T2707;}
8235          {object V1244 = CMPcaddr(base[2]);          {object V1245 = CMPcaddr(base[2]);
         VMR108(V1244)}  
         goto T2706;  
 T2706:;  
         {object V1245 = (V1237);  
8236          VMR108(V1245)}          VMR108(V1245)}
8237          goto T2703;          goto T2707;
8238  T2703:;  T2707:;
8239          if(type_of((V1237))==t_cons||((V1237))==Cnil){          {object V1246 = (V1238);
         goto T2712;}  
         {object V1246 = (V1237);  
8240          VMR108(V1246)}          VMR108(V1246)}
8241          goto T2712;          goto T2704;
8242  T2712:;  T2704:;
8243          {register object x= CMPcar((V1237)),V1247= VV[340];          if(type_of((V1238))==t_cons||((V1238))==Cnil){
8244          while(V1247!=Cnil)          goto T2713;}
8245          if(eql(x,V1247->c.c_car)){          {object V1247 = (V1238);
8246          goto T2716;          VMR108(V1247)}
8247          }else V1247=V1247->c.c_cdr;          goto T2713;
8248          goto T2715;}  T2713:;
8249          goto T2716;          {register object x= CMPcar((V1238)),V1248= VV[340];
8250  T2716:;          while(V1248!=Cnil)
8251          base[3]= CMPcar((V1237));          if(eql(x,V1248->c.c_car)){
8252          {object V1248;          goto T2717;
8253          V1248= Cnil;          }else V1248=V1248->c.c_cdr;
8254          base[4]= CMPcdr((V1237));          goto T2716;}
8255            goto T2717;
8256    T2717:;
8257            base[3]= CMPcar((V1238));
8258            {object V1249;
8259            V1249= Cnil;
8260            base[4]= CMPcdr((V1238));
8261          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8262          L125(base);          L125(base);
8263          vs_top=sup;          vs_top=sup;
8264          V1248= vs_base[0];          V1249= vs_base[0];
8265          {object V1249 = (*(LnkLI481))((V1237),base[3],(V1248));          {object V1250 = (*(LnkLI481))((V1238),base[3],(V1249));
8266          VMR108(V1249)}}          VMR108(V1250)}}
8267          goto T2715;          goto T2716;
8268  T2715:;  T2716:;
8269          if(!((CMPcar((V1237)))==(VV[341]))){          if(!((CMPcar((V1238)))==(VV[341]))){
8270          goto T2722;}          goto T2723;}
8271          {object V1250;          {object V1251;
8272          object V1251;          object V1252;
8273          V1250= CMPcadr((V1237));          V1251= CMPcadr((V1238));
8274          {object V1252;          {object V1253;
8275          object V1253= (V1250);          object V1254= (V1251);
8276          if(V1253==Cnil){          if(V1254==Cnil){
8277          V1251= Cnil;          V1252= Cnil;
8278          goto T2725;}          goto T2726;}
8279          base[5]=V1252=MMcons(Cnil,Cnil);          base[5]=V1253=MMcons(Cnil,Cnil);
8280          goto T2726;          goto T2727;
8281  T2726:;  T2727:;
8282          vs_base=vs_top;          vs_base=vs_top;
8283          Lgensym();          Lgensym();
8284          vs_top=sup;          vs_top=sup;
8285          (V1252->c.c_car)= vs_base[0];          (V1253->c.c_car)= vs_base[0];
8286          if((V1253=MMcdr(V1253))==Cnil){          if((V1254=MMcdr(V1254))==Cnil){
8287          V1251= base[5];          V1252= base[5];
         goto T2725;}  
         V1252=MMcdr(V1252)=MMcons(Cnil,Cnil);  
8288          goto T2726;}          goto T2726;}
8289          goto T2725;          V1253=MMcdr(V1253)=MMcons(Cnil,Cnil);
8290  T2725:;          goto T2727;}
8291          V1255= CMPcaddr((V1237));          goto T2726;
8292          {object V1257;  T2726:;
8293          object V1258= (V1250);          V1256= CMPcaddr((V1238));
8294            {object V1258;
8295          object V1259= (V1251);          object V1259= (V1251);
8296          if(V1258==Cnil||V1259==Cnil){          object V1260= (V1252);
8297          V1256= Cnil;          if(V1259==Cnil||V1260==Cnil){
8298          goto T2728;}          V1257= Cnil;
8299          base[5]=V1257=MMcons(Cnil,Cnil);          goto T2729;}
8300            base[5]=V1258=MMcons(Cnil,Cnil);
8301            goto T2730;
8302    T2730:;
8303            (V1258->c.c_car)= list(3,VV[30],(V1259->c.c_car),(V1260->c.c_car));
8304            if((V1259=MMcdr(V1259))==Cnil||(V1260=MMcdr(V1260))==Cnil){
8305            V1257= base[5];
8306            goto T2729;}
8307            V1258=MMcdr(V1258)=MMcons(Cnil,Cnil);
8308            goto T2730;}
8309          goto T2729;          goto T2729;
8310  T2729:;  T2729:;
8311          (V1257->c.c_car)= list(3,VV[29],(V1258->c.c_car),(V1259->c.c_car));          {object V1263 = listA(4,VV[342],(V1252),/* INLINE-ARGS */V1256,reverse(V1257));
8312          if((V1258=MMcdr(V1258))==Cnil||(V1259=MMcdr(V1259))==Cnil){          VMR108(V1263)}}
8313          V1256= base[5];          goto T2723;
8314          goto T2728;}  T2723:;
8315          V1257=MMcdr(V1257)=MMcons(Cnil,Cnil);          {object V1264 = (V1238);
8316          goto T2729;}          VMR108(V1264)}
         goto T2728;  
 T2728:;  
         {object V1262 = listA(4,VV[342],(V1251),/* INLINE-ARGS */V1255,reverse(V1256));  
         VMR108(V1262)}}  
         goto T2722;  
 T2722:;  
         {object V1263 = (V1237);  
         VMR108(V1263)}  
8317          base[0]=base[0];          base[0]=base[0];
8318          return Cnil;          return Cnil;
8319  }  }
# Line 8326  static void L126() Line 8325  static void L126()
8325          vs_check;          vs_check;
8326          check_arg(2);          check_arg(2);
8327          vs_top=sup;          vs_top=sup;
8328          {object V1264=base[0]->c.c_cdr;          {object V1265=base[0]->c.c_cdr;
8329          if(endp(V1264))invalid_macro_call();          if(endp(V1265))invalid_macro_call();
8330          base[2]= (V1264->c.c_car);          base[2]= (V1265->c.c_car);
8331          V1264=V1264->c.c_cdr;          V1265=V1265->c.c_cdr;
8332          if(endp(V1264))invalid_macro_call();          if(endp(V1265))invalid_macro_call();
8333          base[3]= (V1264->c.c_car);          base[3]= (V1265->c.c_car);
8334          V1264=V1264->c.c_cdr;          V1265=V1265->c.c_cdr;
8335          base[4]= V1264;}          base[4]= V1265;}
8336          {register object V1265;          {register object V1266;
8337          vs_base=vs_top;          vs_base=vs_top;
8338          Lgensym();          Lgensym();
8339          vs_top=sup;          vs_top=sup;
8340          V1265= vs_base[0];          V1266= vs_base[0];
8341          V1266= list(2,(V1265),base[3]);          V1267= list(2,(V1266),base[3]);
8342          V1267= make_cons(/* INLINE-ARGS */V1266,Cnil);          V1268= make_cons(/* INLINE-ARGS */V1267,Cnil);
8343          {object V1269;          {object V1270;
8344          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8345          goto T2735;}          goto T2736;}
8346          if(!((CMPcar(base[3]))==(VV[139]))){          if(!((CMPcar(base[3]))==(VV[139]))){
8347          goto T2735;}          goto T2736;}
8348          V1269= CMPcaddr(base[3]);          V1270= CMPcaddr(base[3]);
8349            goto T2734;
8350            goto T2736;
8351    T2736:;
8352            V1270= base[3];
8353            goto T2734;
8354    T2734:;
8355            if(type_of((V1270))==t_symbol){
8356            goto T2740;}
8357            V1269= Cnil;
8358          goto T2733;          goto T2733;
8359          goto T2735;          goto T2740;
8360  T2735:;  T2740:;
8361          V1269= base[3];          V1271= list(2,VV[46],list(3,VV[343],(V1266),(V1270)));
8362            V1269= make_cons(/* INLINE-ARGS */V1271,Cnil);}
8363          goto T2733;          goto T2733;
8364  T2733:;  T2733:;
8365          if(type_of((V1269))==t_symbol){          {object V1273;
8366          goto T2739;}          object V1274= base[2];
8367          V1268= Cnil;          if(V1274==Cnil){
8368          goto T2732;          V1272= Cnil;
8369          goto T2739;          goto T2742;}
8370  T2739:;          base[5]=V1273=MMcons(Cnil,Cnil);
8371          V1270= list(2,VV[46],list(3,VV[343],(V1265),(V1269)));          goto T2743;
8372          V1268= make_cons(/* INLINE-ARGS */V1270,Cnil);}  T2743:;
8373          goto T2732;          {register object V1275;
8374  T2732:;          V1275= (V1274->c.c_car);
8375          {object V1272;          {object V1276;
8376          object V1273= base[2];          object V1277;
8377          if(V1273==Cnil){          if(!(type_of((V1275))==t_symbol)){
8378          V1271= Cnil;          goto T2747;}
8379          goto T2741;}          V1276= (V1275);
8380          base[5]=V1272=MMcons(Cnil,Cnil);          goto T2745;
8381            goto T2747;
8382    T2747:;
8383            V1276= CMPcar((V1275));
8384            goto T2745;
8385    T2745:;
8386            if(!(type_of((V1275))==t_symbol)){
8387            goto T2751;}
8388            V1277= (V1275);
8389            goto T2749;
8390            goto T2751;
8391    T2751:;
8392            V1277= CMPcadr((V1275));
8393            goto T2749;
8394    T2749:;
8395            (V1273->c.c_car)= list(2,(V1276),list(3,VV[197],(V1266),list(2,VV[1],(V1277))));}}
8396            if((V1274=MMcdr(V1274))==Cnil){
8397            V1272= base[5];
8398            goto T2742;}
8399            V1273=MMcdr(V1273)=MMcons(Cnil,Cnil);
8400            goto T2743;}
8401          goto T2742;          goto T2742;
8402  T2742:;  T2742:;
8403          {register object V1274;          V1278= list(2,(V1266),listA(3,VV[344],V1272,base[4]));
8404          V1274= (V1273->c.c_car);          base[5]= listA(3,VV[96],/* INLINE-ARGS */V1268,append(V1269,/* INLINE-ARGS */V1278));
         {object V1275;  
         object V1276;  
         if(!(type_of((V1274))==t_symbol)){  
         goto T2746;}  
         V1275= (V1274);  
         goto T2744;  
         goto T2746;  
 T2746:;  
         V1275= CMPcar((V1274));  
         goto T2744;  
 T2744:;  
         if(!(type_of((V1274))==t_symbol)){  
         goto T2750;}  
         V1276= (V1274);  
         goto T2748;  
         goto T2750;  
 T2750:;  
         V1276= CMPcadr((V1274));  
         goto T2748;  
 T2748:;  
         (V1272->c.c_car)= list(2,(V1275),list(3,VV[197],(V1265),list(2,VV[1],(V1276))));}}  
         if((V1273=MMcdr(V1273))==Cnil){  
         V1271= base[5];  
         goto T2741;}  
         V1272=MMcdr(V1272)=MMcons(Cnil,Cnil);  
         goto T2742;}  
         goto T2741;  
 T2741:;  
         V1277= list(2,(V1265),listA(3,VV[344],V1271,base[4]));  
         base[5]= listA(3,VV[96],/* INLINE-ARGS */V1267,append(V1268,/* INLINE-ARGS */V1277));  
8405          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8406          return;}          return;}
8407  }  }
# Line 8414  static void L127() Line 8413  static void L127()
8413          vs_check;          vs_check;
8414          check_arg(2);          check_arg(2);
8415          vs_top=sup;          vs_top=sup;
8416          {object V1278=base[0]->c.c_cdr;          {object V1279=base[0]->c.c_cdr;
8417          if(endp(V1278))invalid_macro_call();          if(endp(V1279))invalid_macro_call();
8418          base[2]= (V1278->c.c_car);          base[2]= (V1279->c.c_car);
8419          V1278=V1278->c.c_cdr;          V1279=V1279->c.c_cdr;
8420          if(endp(V1278))invalid_macro_call();          if(endp(V1279))invalid_macro_call();
8421          base[3]= (V1278->c.c_car);          base[3]= (V1279->c.c_car);
8422          V1278=V1278->c.c_cdr;          V1279=V1279->c.c_cdr;
8423          base[4]= V1278;}          base[4]= V1279;}
8424          {register object V1279;          {register object V1280;
8425          vs_base=vs_top;          vs_base=vs_top;
8426          Lgensym();          Lgensym();
8427          vs_top=sup;          vs_top=sup;
8428          V1279= vs_base[0];          V1280= vs_base[0];
8429          V1280= list(2,(V1279),base[3]);          V1281= list(2,(V1280),base[3]);
8430          V1281= make_cons(/* INLINE-ARGS */V1280,Cnil);          V1282= make_cons(/* INLINE-ARGS */V1281,Cnil);
8431          {object V1283;          {object V1284;
8432          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8433          goto T2756;}          goto T2757;}
8434          if(!((CMPcar(base[3]))==(VV[139]))){          if(!((CMPcar(base[3]))==(VV[139]))){
8435          goto T2756;}          goto T2757;}
8436          V1283= CMPcaddr(base[3]);          V1284= CMPcaddr(base[3]);
8437            goto T2755;
8438            goto T2757;
8439    T2757:;
8440            V1284= base[3];
8441            goto T2755;
8442    T2755:;
8443            if(type_of((V1284))==t_symbol){
8444            goto T2761;}
8445            V1283= Cnil;
8446          goto T2754;          goto T2754;
8447          goto T2756;          goto T2761;
8448  T2756:;  T2761:;
8449          V1283= base[3];          V1285= list(2,VV[46],list(3,VV[343],(V1280),(V1284)));
8450            V1283= make_cons(/* INLINE-ARGS */V1285,Cnil);}
8451          goto T2754;          goto T2754;
8452  T2754:;  T2754:;
8453          if(type_of((V1283))==t_symbol){          {object V1287;
8454          goto T2760;}          object V1288= base[2];
8455          V1282= Cnil;          if(V1288==Cnil){
8456          goto T2753;          V1286= Cnil;
8457          goto T2760;          goto T2763;}
8458  T2760:;          base[5]=V1287=MMcons(Cnil,Cnil);
8459          V1284= list(2,VV[46],list(3,VV[343],(V1279),(V1283)));          goto T2764;
8460          V1282= make_cons(/* INLINE-ARGS */V1284,Cnil);}  T2764:;
8461          goto T2753;          {object V1290;
8462  T2753:;          object V1291;
8463          {object V1286;          V1290= CMPcar((V1288->c.c_car));
8464          object V1287= base[2];          V1291= CMPcadr((V1288->c.c_car));
8465          if(V1287==Cnil){          (V1287->c.c_car)= list(2,(V1290),list(2,(V1291),(V1280)));}
8466          V1285= Cnil;          if((V1288=MMcdr(V1288))==Cnil){
8467          goto T2762;}          V1286= base[5];
8468          base[5]=V1286=MMcons(Cnil,Cnil);          goto T2763;}
8469            V1287=MMcdr(V1287)=MMcons(Cnil,Cnil);
8470            goto T2764;}
8471          goto T2763;          goto T2763;
8472  T2763:;  T2763:;
8473          {object V1289;          V1292= list(2,(V1280),listA(3,VV[344],V1286,base[4]));
8474          object V1290;          base[5]= listA(3,VV[96],/* INLINE-ARGS */V1282,append(V1283,/* INLINE-ARGS */V1292));
         V1289= CMPcar((V1287->c.c_car));  
         V1290= CMPcadr((V1287->c.c_car));  
         (V1286->c.c_car)= list(2,(V1289),list(2,(V1290),(V1279)));}  
         if((V1287=MMcdr(V1287))==Cnil){  
         V1285= base[5];  
         goto T2762;}  
         V1286=MMcdr(V1286)=MMcons(Cnil,Cnil);  
         goto T2763;}  
         goto T2762;  
 T2762:;  
         V1291= list(2,(V1279),listA(3,VV[344],V1285,base[4]));  
         base[5]= listA(3,VV[96],/* INLINE-ARGS */V1281,append(V1282,/* INLINE-ARGS */V1291));  
8475          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8476          return;}          return;}
8477  }  }
# Line 8483  register object *base0; Line 8482  register object *base0;
8482  {       register object *base=vs_base;  {       register object *base=vs_base;
8483          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
8484          vs_check;          vs_check;
8485          {register object V1292;          {register object V1293;
8486          check_arg(1);          check_arg(1);
8487          V1292=(base[0]);          V1293=(base[0]);
8488          vs_top=sup;          vs_top=sup;
8489          goto TTL;          goto TTL;
8490  TTL:;  TTL:;
8491          if(((V1292))!=Cnil){          if(((V1293))!=Cnil){
8492          goto T2768;}          goto T2769;}
8493          base[1]= Cnil;          base[1]= Cnil;
8494          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8495          return;          return;
8496          goto T2768;          goto T2769;
8497  T2768:;  T2769:;
8498          {register object x= CMPcar((V1292)),V1294= base0[1];          {register object x= CMPcar((V1293)),V1295= base0[1];
8499          while(V1294!=Cnil)          while(V1295!=Cnil)
8500          if(eql(x,V1294->c.c_car->c.c_car) &&V1294->c.c_car != Cnil){          if(eql(x,V1295->c.c_car->c.c_car) &&V1295->c.c_car != Cnil){
8501          base0[2]= (V1294->c.c_car);          base0[2]= (V1295->c.c_car);
8502          goto T2775;          goto T2776;
8503          }else V1294=V1294->c.c_cdr;          }else V1295=V1295->c.c_cdr;
8504          base0[2]= Cnil;}          base0[2]= Cnil;}
8505          goto T2775;          goto T2776;
8506  T2775:;  T2776:;
8507          if((base0[2])==Cnil){          if((base0[2])==Cnil){
8508          goto T2772;}          goto T2773;}
8509          V1295= CMPcadr(base0[2]);          V1296= CMPcadr(base0[2]);
8510          V1296= (*(LnkLI480))(CMPcar((V1292)),base0[0]);          V1297= (*(LnkLI480))(CMPcar((V1293)),base0[0]);
8511          if(!((/* INLINE-ARGS */V1295)==(/* INLINE-ARGS */V1296))){          if(!((/* INLINE-ARGS */V1296)==(/* INLINE-ARGS */V1297))){
8512          goto T2772;}          goto T2773;}
8513          base0[3]= VV[29];          base0[3]= VV[30];
8514          V1293= CMPcaddr(base0[2]);          V1294= CMPcaddr(base0[2]);
8515          goto T2770;          goto T2771;
8516          goto T2772;          goto T2773;
8517  T2772:;  T2773:;
8518          V1293= CMPcar((V1292));          V1294= CMPcar((V1293));
8519          goto T2770;          goto T2771;
8520  T2770:;  T2771:;
8521          V1297= CMPcadr((V1292));          V1298= CMPcadr((V1293));
8522          base[1]= CMPcddr((V1292));          base[1]= CMPcddr((V1293));
8523          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8524          L125(base0);          L125(base0);
8525          vs_top=sup;          vs_top=sup;
8526          V1298= vs_base[0];          V1299= vs_base[0];
8527          base[1]= (VFUN_NARGS=4,(*(LnkLI482))((V1292),V1293,/* INLINE-ARGS */V1297,V1298));          base[1]= (VFUN_NARGS=4,(*(LnkLI482))((V1293),V1294,/* INLINE-ARGS */V1298,V1299));
8528          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8529          return;          return;
8530          }          }
# Line 8537  register object *base0; Line 8536  register object *base0;
8536  {       register object *base=vs_base;  {       register object *base=vs_base;
8537          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
8538          vs_check;          vs_check;
8539          {object V1299;          {object V1300;
         object V1300;  
8540          object V1301;          object V1301;
8541            object V1302;
8542          check_arg(3);          check_arg(3);
8543          V1299=(base[0]);          V1300=(base[0]);
8544          V1300=(base[1]);          V1301=(base[1]);
8545          V1301=(base[2]);          V1302=(base[2]);
8546          vs_top=sup;          vs_top=sup;
8547          base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1299),(V1300),(V1301));          base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1300),(V1301),(V1302));
8548          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8549          return;          return;
8550          }          }
# Line 8557  register object *base0; Line 8556  register object *base0;
8556  {       register object *base=vs_base;  {       register object *base=vs_base;
8557          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
8558          vs_check;          vs_check;
8559          {object V1302;          {object V1303;
8560          check_arg(1);          check_arg(1);
8561          V1302=(base[0]);          V1303=(base[0]);
8562          vs_top=sup;          vs_top=sup;
8563          goto TTL;          goto TTL;
8564  TTL:;  TTL:;
8565          base[1]= (V1302);          base[1]= (V1303);
8566          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8567          (void) (*Lnk484)(Lclptr484);          (void) (*Lnk484)(Lclptr484);
8568          vs_top=sup;          vs_top=sup;
8569          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8570          goto T2782;}          goto T2783;}
8571          {register object V1303;          {register object V1304;
8572          base[1]= (V1302);          base[1]= (V1303);
8573          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8574          (void) (*Lnk485)(Lclptr485);          (void) (*Lnk485)(Lclptr485);
8575          vs_top=sup;          vs_top=sup;
8576          V1303= vs_base[0];          V1304= vs_base[0];
8577          if(!(type_of((V1303))==t_cons)){          if(!(type_of((V1304))==t_cons)){
8578          goto T2788;}          goto T2789;}
8579          if(!((CMPcar((V1303)))==(VV[51]))){          if(!((CMPcar((V1304)))==(VV[51]))){
8580          goto T2788;}          goto T2789;}
8581          {object V1304;          {object V1305;
8582          object V1305;          object V1306;
8583          V1304= CMPcadr((V1303));          V1305= CMPcadr((V1304));
8584          base[3]= (V1304);          base[3]= (V1305);
8585          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8586          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
8587          vs_top=sup;          vs_top=sup;
8588          V1305= vs_base[0];          V1306= vs_base[0];
8589          V1306= (VFUN_NARGS=2,(*(LnkLI290))((V1305),Cnil));          V1307= (VFUN_NARGS=2,(*(LnkLI290))((V1306),Cnil));
8590          if(!(((V1304))==(/* INLINE-ARGS */V1306))){          if(!(((V1305))==(/* INLINE-ARGS */V1307))){
8591          goto T2796;}          goto T2797;}
8592          base[3]= (V1305);          base[3]= (V1306);
8593          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8594          return;          return;
8595          goto T2796;          goto T2797;
8596  T2796:;  T2797:;
8597          base[3]= (V1303);          base[3]= (V1304);
8598          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8599          return;}          return;}
8600          goto T2788;          goto T2789;
8601  T2788:;  T2789:;
8602          base[1]= (V1303);          base[1]= (V1304);
8603          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8604          return;}          return;}
8605          goto T2782;          goto T2783;
8606  T2782:;  T2783:;
8607          base[1]= VV[335];          base[1]= VV[335];
8608          base[2]= (V1302);          base[2]= (V1303);
8609          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8610          Lerror();          Lerror();
8611          return;          return;
# Line 8619  register object *base0; Line 8618  register object *base0;
8618  {       register object *base=vs_base;  {       register object *base=vs_base;
8619          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
8620          vs_check;          vs_check;
8621          {register object V1307;          {register object V1308;
8622          check_arg(1);          check_arg(1);
8623          V1307=(base[0]);          V1308=(base[0]);
8624          vs_top=sup;          vs_top=sup;
8625          goto TTL;          goto TTL;
8626  TTL:;  TTL:;
8627          {object V1308;          {object V1309;
8628          base[1]= (V1307);          base[1]= (V1308);
8629          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8630          (void) (*Lnk486)();          (void) (*Lnk486)();
8631          vs_top=sup;          vs_top=sup;
8632          V1308= vs_base[0];          V1309= vs_base[0];
8633          base[1]= (V1308);          base[1]= (V1309);
8634          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8635          (void) (*Lnk484)(Lclptr484);          (void) (*Lnk484)(Lclptr484);
8636          vs_top=sup;          vs_top=sup;
8637          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8638          goto T2803;}          goto T2804;}
8639          base[1]= (V1308);          base[1]= (V1309);
8640          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8641          return;          return;
8642          goto T2803;          goto T2804;
8643  T2803:;  T2804:;
8644          if(!(type_of((V1307))==t_symbol)){          if(!(type_of((V1308))==t_symbol)){
8645          goto T2807;}          goto T2808;}
8646          base[1]= VV[333];          base[1]= VV[333];
8647          base[2]= (V1307);          base[2]= (V1308);
8648          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8649          Lerror();          Lerror();
8650          return;          return;
8651          goto T2807;          goto T2808;
8652  T2807:;  T2808:;
8653          base[1]= VV[334];          base[1]= VV[334];
8654          base[2]= (V1307);          base[2]= (V1308);
8655          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8656          Lerror();          Lerror();
8657          return;}          return;}
# Line 8665  register object *base0; Line 8664  register object *base0;
8664  {       register object *base=vs_base;  {       register object *base=vs_base;
8665          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
8666          vs_check;          vs_check;
8667          {object V1309;          {object V1310;
8668          register object V1310;          register object V1311;
8669          check_arg(2);          check_arg(2);
8670          V1309=(base[0]);          V1310=(base[0]);
8671          V1310=(base[1]);          V1311=(base[1]);
8672          vs_top=sup;          vs_top=sup;
8673          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8674          {object V1311;          {object V1312;
8675          V1311= (V1309);          V1312= (V1310);
8676           vs_top=base+3;           vs_top=base+3;
8677           while(V1311!=Cnil)           while(V1312!=Cnil)
8678           {vs_push((V1311)->c.c_car);V1311=(V1311)->c.c_cdr;}           {vs_push((V1312)->c.c_car);V1312=(V1312)->c.c_cdr;}
8679          vs_base=base+3;}          vs_base=base+3;}
8680          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8681                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8692  register object *base0; Line 8691  register object *base0;
8691  {       register object *base=vs_base;  {       register object *base=vs_base;
8692          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
8693          vs_check;          vs_check;
8694          {object V1312;          {object V1313;
8695          check_arg(1);          check_arg(1);
8696          V1312=(base[0]);          V1313=(base[0]);
8697          vs_top=sup;          vs_top=sup;
8698          base[1]= (((type_of((V1312))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((type_of((V1313))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);
8699          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8700          return;          return;
8701          }          }
# Line 8708  register object *base0; Line 8707  register object *base0;
8707  {       register object *base=vs_base;  {       register object *base=vs_base;
8708          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
8709          vs_check;          vs_check;
8710          {object V1313;          {object V1314;
8711          check_arg(1);          check_arg(1);
8712          V1313=(base[0]);          V1314=(base[0]);
8713          vs_top=sup;          vs_top=sup;
8714          base[1]= (((((V1313))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1314))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8715          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8716          return;          return;
8717          }          }
# Line 8724  register object *base0; Line 8723  register object *base0;
8723  {       register object *base=vs_base;  {       register object *base=vs_base;
8724          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
8725          vs_check;          vs_check;
8726          {object V1314;          {object V1315;
8727          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8728          {object *p=vs_top;          {object *p=vs_top;
8729           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8730          V1314=(base[0]);          V1315=(base[0]);
8731          vs_top=sup;          vs_top=sup;
8732          base[1]= VV[273];          base[1]= VV[273];
8733          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
# Line 8744  register object *base0; Line 8743  register object *base0;
8743  {       register object *base=vs_base;  {       register object *base=vs_base;
8744          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
8745          vs_check;          vs_check;
8746          {object V1315;          {object V1316;
8747          register object V1316;          register object V1317;
8748          check_arg(2);          check_arg(2);
8749          V1315=(base[0]);          V1316=(base[0]);
8750          V1316=(base[1]);          V1317=(base[1]);
8751          vs_top=sup;          vs_top=sup;
8752          base[2]= (V1316);          base[2]= (V1317);
8753          base[3]= VV[269];          base[3]= VV[269];
8754          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8755          Lformat();          Lformat();
8756          vs_top=sup;          vs_top=sup;
8757          base[2]= (V1316);          base[2]= (V1317);
8758          base[3]= VV[270];          base[3]= VV[270];
8759          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8760          Lformat();          Lformat();
8761          vs_top=sup;          vs_top=sup;
8762          base[2]= (V1316);          base[2]= (V1317);
8763          base[3]= VV[271];          base[3]= VV[271];
8764          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8765          Lformat();          Lformat();
8766          vs_top=sup;          vs_top=sup;
8767          (void)((*(LnkLI487))((V1315),(V1316)));          (void)((*(LnkLI487))((V1316),(V1317)));
8768          base[2]= (V1316);          base[2]= (V1317);
8769          base[3]= VV[272];          base[3]= VV[272];
8770          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8771          Lformat();          Lformat();
# Line 8780  register object *base0; Line 8779  register object *base0;
8779  {       register object *base=vs_base;  {       register object *base=vs_base;
8780          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
8781          vs_check;          vs_check;
8782          {object V1317;          {object V1318;
8783          check_arg(1);          check_arg(1);
8784          V1317=(base[0]);          V1318=(base[0]);
8785          vs_top=sup;          vs_top=sup;
8786          {register object x= (V1317),V1318= (base0[0]->c.c_car);          {register object x= (V1318),V1319= (base0[0]->c.c_car);
8787          while(V1318!=Cnil)          while(V1319!=Cnil)
8788          if(x==(V1318->c.c_car)){          if(x==(V1319->c.c_car)){
8789          base[1]= V1318;          base[1]= V1319;
8790          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8791          return;          return;
8792          }else V1318=V1318->c.c_cdr;          }else V1319=V1319->c.c_cdr;
8793          base[1]= Cnil;          base[1]= Cnil;
8794          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8795          return;}          return;}
# Line 8803  register object *base0; Line 8802  register object *base0;
8802  {       register object *base=vs_base;  {       register object *base=vs_base;
8803          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
8804          vs_check;          vs_check;
8805          {object V1319;          {object V1320;
8806          object V1320;          object V1321;
8807          check_arg(2);          check_arg(2);
8808          V1319=(base[0]);          V1320=(base[0]);
8809          V1320=(base[1]);          V1321=(base[1]);
8810          vs_top=sup;          vs_top=sup;
8811          goto TTL;          goto TTL;
8812  TTL:;  TTL:;
8813          if(!(number_compare((V1319),(V1320))>0)){          if(!(number_compare((V1320),(V1321))>0)){
8814          goto T2830;}          goto T2831;}
8815          base[2]= VV[250];          base[2]= VV[250];
8816          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8817          return;          return;
8818          goto T2830;          goto T2831;
8819  T2830:;  T2831:;
8820          base[2]= VV[251];          base[2]= VV[251];
8821          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8822          return;          return;
# Line 8830  register object *base0; Line 8829  register object *base0;
8829  {       register object *base=vs_base;  {       register object *base=vs_base;
8830          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
8831          vs_check;          vs_check;
8832          {object V1321;          {object V1322;
8833          object V1322;          object V1323;
8834          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8835          V1321=(base[0]);          V1322=(base[0]);
8836          vs_base=vs_base+1;          vs_base=vs_base+1;
8837          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8838          {object *p=vs_top;          {object *p=vs_top;
8839           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8840          V1322=(base[1]);          V1323=(base[1]);
8841          vs_top=sup;          vs_top=sup;
8842          base[2]= VV[249];          base[2]= VV[249];
8843          base[3]= base0[2];          base[3]= base0[2];
8844          base[4]= base0[0];          base[4]= base0[0];
8845          base[6]= Cnil;          base[6]= Cnil;
8846          base[7]= (V1321);          base[7]= (V1322);
8847          {object V1323;          {object V1324;
8848          V1323= (V1322);          V1324= (V1323);
8849           vs_top=base+8;           vs_top=base+8;
8850           while(V1323!=Cnil)           while(V1324!=Cnil)
8851           {vs_push((V1323)->c.c_car);V1323=(V1323)->c.c_cdr;}           {vs_push((V1324)->c.c_car);V1324=(V1324)->c.c_cdr;}
8852          vs_base=base+6;}          vs_base=base+6;}
8853          Lformat();          Lformat();
8854          vs_top=sup;          vs_top=sup;
# Line 8866  register object *base0; Line 8865  register object *base0;
8865  {       register object *base=vs_base;  {       register object *base=vs_base;
8866          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
8867          vs_check;          vs_check;
8868          {object V1324;          {object V1325;
8869          check_arg(1);          check_arg(1);
8870          V1324=(base[0]);          V1325=(base[0]);
8871          vs_top=sup;          vs_top=sup;
8872          base[1]= (((((V1324))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1325))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8873          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8874          return;          return;
8875          }          }
# Line 8882  register object *base0; Line 8881  register object *base0;
8881  {       register object *base=vs_base;  {       register object *base=vs_base;
8882          register object *sup=base+VM124; VC124          register object *sup=base+VM124; VC124
8883          vs_check;          vs_check;
8884          {object V1325;          {object V1326;
8885          check_arg(1);          check_arg(1);
8886          V1325=(base[0]);          V1326=(base[0]);
8887          vs_top=sup;          vs_top=sup;
8888          goto TTL;          goto TTL;
8889  TTL:;  TTL:;
8890          if(!(type_of((V1325))==t_cons||((V1325))==Cnil)){          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){
8891          goto T2840;}          goto T2841;}
8892          {object V1326= CMPcar((V1325));          {object V1327= CMPcar((V1326));
8893          if(!(type_of(V1326)==t_cons||(V1326)==Cnil)){          if(!(type_of(V1327)==t_cons||(V1327)==Cnil)){
8894          goto T2843;}}          goto T2844;}}
8895          base[1]= CMPcaar((V1325));          base[1]= CMPcaar((V1326));
8896          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8897          return;          return;
8898          goto T2843;          goto T2844;
8899  T2843:;  T2844:;
8900          base[1]= CMPcar((V1325));          base[1]= CMPcar((V1326));
8901          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8902          (void) (*Lnk488)();          (void) (*Lnk488)();
8903          return;          return;
8904          goto T2840;          goto T2841;
8905  T2840:;  T2841:;
8906          base[1]= (V1325);          base[1]= (V1326);
8907          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8908          (void) (*Lnk488)();          (void) (*Lnk488)();
8909          return;          return;
# Line 8917  register object *base0; Line 8916  register object *base0;
8916  {       register object *base=vs_base;  {       register object *base=vs_base;
8917          register object *sup=base+VM125; VC125          register object *sup=base+VM125; VC125
8918          vs_check;          vs_check;
8919          {object V1327;          {object V1328;
8920          object V1328;          object V1329;
8921          check_arg(2);          check_arg(2);
8922          V1327=(base[0]);          V1328=(base[0]);
8923          V1328=(base[1]);          V1329=(base[1]);
8924          vs_top=sup;          vs_top=sup;
8925          goto TTL;          goto TTL;
8926  TTL:;  TTL:;
8927          if((base0[0])==Cnil){          if((base0[0])==Cnil){
8928          goto T2847;}          goto T2848;}
8929          (void)((*(LnkLI489))((V1328),base0[0],V1327));          (void)((*(LnkLI489))((V1329),base0[0],V1328));
8930          goto T2847;          goto T2848;
8931  T2847:;  T2848:;
8932          if((base0[4])==Cnil){          if((base0[4])==Cnil){
8933          goto T2851;}          goto T2852;}
8934          base[2]= (*(LnkLI489))((V1328),base0[4],V1327);          base[2]= (*(LnkLI489))((V1329),base0[4],V1328);
8935          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8936          return;          return;
8937          goto T2851;          goto T2852;
8938  T2851:;  T2852:;
8939          base[2]= Cnil;          base[2]= Cnil;
8940          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8941          return;          return;
# Line 8949  register object *base0; Line 8948  register object *base0;
8948  {       register object *base=vs_base;  {       register object *base=vs_base;
8949          register object *sup=base+VM126; VC126          register object *sup=base+VM126; VC126
8950          vs_check;          vs_check;
8951          {object V1333;          {object V1334;
8952          check_arg(1);          check_arg(1);
8953          V1333=(base[0]);          V1334=(base[0]);
8954          vs_top=sup;          vs_top=sup;
8955          goto TTL;          goto TTL;
8956  TTL:;  TTL:;
8957          {register object V1334;          {register object V1335;
8958          register object V1335;          register object V1336;
8959          V1334= CMPcdar(base0[0]);          V1335= CMPcdar(base0[0]);
8960          V1335= CMPcar((V1334));          V1336= CMPcar((V1335));
8961          goto T2856;          goto T2857;
8962  T2856:;  T2857:;
8963          if(!(((V1334))==Cnil)){          if(!(((V1335))==Cnil)){
8964          goto T2857;}          goto T2858;}
8965          base[3]= Cnil;          base[3]= Cnil;
8966          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8967          return;          return;
8968          goto T2857;          goto T2858;
8969  T2857:;  T2858:;
8970          if(!((CMPcar((V1335)))==(VV[182]))){          if(!((CMPcar((V1336)))==(VV[182]))){
8971          goto T2861;}          goto T2862;}
8972          {register object x= (V1333),V1336= CMPcdr((V1335));          {register object x= (V1334),V1337= CMPcdr((V1336));
8973          while(V1336!=Cnil)          while(V1337!=Cnil)
8974          if(x==(V1336->c.c_car)){          if(x==(V1337->c.c_car)){
8975          goto T2865;          goto T2866;
8976          }else V1336=V1336->c.c_cdr;          }else V1337=V1337->c.c_cdr;
8977          goto T2861;}          goto T2862;}
8978          goto T2865;          goto T2866;
8979  T2865:;  T2866:;
8980          base[3]= Ct;          base[3]= Ct;
8981          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8982          return;          return;
8983          goto T2861;          goto T2862;
8984  T2861:;  T2862:;
8985          V1334= CMPcdr((V1334));          V1335= CMPcdr((V1335));
8986          V1335= CMPcar((V1334));          V1336= CMPcar((V1335));
8987          goto T2856;}          goto T2857;}
8988          }          }
8989  }  }
8990  /*      local function WALK-FUNCTION    */  /*      local function WALK-FUNCTION    */
# Line 8995  register object *base0; Line 8994  register object *base0;
8994  {       register object *base=vs_base;  {       register object *base=vs_base;
8995          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
8996          vs_check;          vs_check;
8997          {register object V1337;          {register object V1338;
         object V1338;  
8998          object V1339;          object V1339;
8999            object V1340;
9000          check_arg(3);          check_arg(3);
9001          V1337=(base[0]);          V1338=(base[0]);
9002          V1338=(base[1]);          V1339=(base[1]);
9003          V1339=(base[2]);          V1340=(base[2]);
9004          vs_top=sup;          vs_top=sup;
9005          if(((V1338))==(VV[194])){          if(((V1339))==(VV[194])){
9006          goto T2872;}          goto T2873;}
9007          base[3]= (V1337);          base[3]= (V1338);
9008          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9009          return;          return;
9010          goto T2872;          goto T2873;
9011  T2872:;  T2873:;
9012          if(type_of((V1337))==t_cons||((V1337))==Cnil){          if(type_of((V1338))==t_cons||((V1338))==Cnil){
9013          goto T2875;}          goto T2876;}
9014          base[3]= (V1337);          base[3]= (V1338);
9015          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9016          return;          return;
9017          goto T2875;          goto T2876;
9018  T2875:;  T2876:;
9019          if(!((CMPcar((V1337)))==(VV[195]))){          if(!((CMPcar((V1338)))==(VV[195]))){
9020          goto T2878;}          goto T2879;}
9021          (base0[2]->c.c_car)= Ct;          (base0[2]->c.c_car)= Ct;
9022          base[3]= (V1337);          base[3]= (V1338);
9023          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9024          return;          return;
9025          goto T2878;          goto T2879;
9026  T2878:;  T2879:;
9027          if(!((CMPcar((V1337)))==(VV[196]))){          if(!((CMPcar((V1338)))==(VV[196]))){
9028          goto T2883;}          goto T2884;}
9029          (base0[0]->c.c_car)= Ct;          (base0[0]->c.c_car)= Ct;
9030          base[3]= (V1337);          base[3]= (V1338);
9031          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9032          return;          return;
9033          goto T2883;          goto T2884;
9034  T2883:;  T2884:;
9035          {object V1340;          {object V1341;
9036          if((CMPcar((V1337)))==(VV[33])){          if((CMPcar((V1338)))==(VV[34])){
9037          goto T2888;}          goto T2889;}
9038          V1340= Cnil;          V1341= Cnil;
         goto T2887;  
9039          goto T2888;          goto T2888;
9040  T2888:;          goto T2889;
9041          if(!((CMPcadr((V1337)))==(VV[195]))){  T2889:;
9042          goto T2891;}          if(!((CMPcadr((V1338)))==(VV[195]))){
9043            goto T2892;}
9044          (base0[2]->c.c_car)= Ct;          (base0[2]->c.c_car)= Ct;
9045          (base0[1]->c.c_car)= Ct;          (base0[1]->c.c_car)= Ct;
9046          V1340= (V1337);          V1341= (V1338);
9047          goto T2887;          goto T2888;
9048          goto T2891;          goto T2892;
9049  T2891:;  T2892:;
9050          if(!((CMPcadr((V1337)))==(VV[196]))){          if(!((CMPcadr((V1338)))==(VV[196]))){
9051          goto T2898;}          goto T2899;}
9052          (base0[0]->c.c_car)= Ct;          (base0[0]->c.c_car)= Ct;
9053          (base0[1]->c.c_car)= Ct;          (base0[1]->c.c_car)= Ct;
9054          V1340= (V1337);          V1341= (V1338);
9055          goto T2887;          goto T2888;
9056          goto T2898;          goto T2899;
9057  T2898:;  T2899:;
9058          V1340= Cnil;          V1341= Cnil;
9059          goto T2887;          goto T2888;
9060  T2887:;  T2888:;
9061          if(((V1340))==Cnil){          if(((V1341))==Cnil){
9062          goto T2905;}          goto T2906;}
9063          base[3]= (V1340);          base[3]= (V1341);
9064          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9065          return;          return;
9066          goto T2905;          goto T2906;
9067  T2905:;  T2906:;
9068          if((CMPcar((V1337)))==(VV[197])){          if((CMPcar((V1338)))==(VV[197])){
9069            goto T2910;}
9070            if((CMPcar((V1338)))==(VV[198])){
9071            goto T2910;}
9072            if(!((CMPcar((V1338)))==(VV[199]))){
9073          goto T2909;}          goto T2909;}
9074          if((CMPcar((V1337)))==(VV[198])){          goto T2910;
9075          goto T2909;}  T2910:;
9076          if(!((CMPcar((V1337)))==(VV[199]))){          base[3]= CMPcaddr((V1338));
         goto T2908;}  
         goto T2909;  
 T2909:;  
         base[3]= CMPcaddr((V1337));  
9077          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9078          Lconstantp();          Lconstantp();
9079          vs_top=sup;          vs_top=sup;
9080          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9081          goto T2908;}          goto T2909;}
9082          {object V1341;          {object V1342;
9083          V1341= (*(LnkLI490))((V1337),(base0[5]->c.c_car),(V1339));          V1342= (*(LnkLI490))((V1338),(base0[5]->c.c_car),(V1340));
9084          {object V1342= CMPcar((V1337));          {object V1343= CMPcar((V1338));
9085          if((V1342!= VV[197]))goto T2918;          if((V1343!= VV[197]))goto T2919;
9086          base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1341),(V1337));          base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1342),(V1338));
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T2918;  
 T2918:;  
         if((V1342!= VV[198]))goto T2919;  
         base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1341),(V1337));  
9087          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9088          return;          return;
9089          goto T2919;          goto T2919;
9090  T2919:;  T2919:;
9091          if((V1342!= VV[199]))goto T2920;          if((V1343!= VV[198]))goto T2920;
9092          base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1341),(V1337));          base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1342),(V1338));
9093          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9094          return;          return;
9095          goto T2920;          goto T2920;
9096  T2920:;  T2920:;
9097          FEerror("The ECASE key value ~s is illegal.",1,V1342);          if((V1343!= VV[199]))goto T2921;
9098            base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1342),(V1338));
9099            vs_top=(vs_base=base+3)+1;
9100            return;
9101            goto T2921;
9102    T2921:;
9103            FEerror("The ECASE key value ~s is illegal.",1,V1343);
9104          base[3]= Cnil;          base[3]= Cnil;
9105          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9106          return;}}          return;}}
9107          goto T2908;          goto T2909;
9108  T2908:;  T2909:;
9109          if(!((CMPcar((V1337)))==(VV[138]))){          if(!((CMPcar((V1338)))==(VV[138]))){
9110          goto T2922;}          goto T2923;}
9111          if(!(type_of(CMPcadr((V1337)))==t_cons)){          if(!(type_of(CMPcadr((V1338)))==t_cons)){
9112          goto T2922;}          goto T2923;}
9113          if(!((CMPcar(CMPcadr((V1337))))==(VV[33]))){          if(!((CMPcar(CMPcadr((V1338))))==(VV[34]))){
9114          goto T2922;}          goto T2923;}
9115          base[3]= CMPcadr(CMPcadr((V1337)));          base[3]= CMPcadr(CMPcadr((V1338)));
9116          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9117          (void) (*Lnk494)();          (void) (*Lnk494)();
9118          vs_top=sup;          vs_top=sup;
9119          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9120          goto T2922;}          goto T2923;}
9121          base[3]= (*(LnkLI495))((V1337),(base0[5]->c.c_car),(V1339),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car));
9122          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9123          return;          return;
9124          goto T2922;          goto T2923;
9125  T2922:;  T2923:;
9126          if(type_of(CMPcar((V1337)))==t_symbol){          if(type_of(CMPcar((V1338)))==t_symbol){
9127            goto T2934;}
9128            if(!(type_of(CMPcar((V1338)))==t_cons)){
9129          goto T2933;}          goto T2933;}
9130          if(!(type_of(CMPcar((V1337)))==t_cons)){          if(!((CMPcaar((V1338)))==(VV[30]))){
9131          goto T2932;}          goto T2933;}
9132          if(!((CMPcaar((V1337)))==(VV[29]))){          goto T2934;
9133          goto T2932;}  T2934:;
9134          goto T2933;          base[3]= CMPcar((V1338));
 T2933:;  
         base[3]= CMPcar((V1337));  
9135          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9136          (void) (*Lnk494)();          (void) (*Lnk494)();
9137          vs_top=sup;          vs_top=sup;
9138          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9139          goto T2932;}          goto T2933;}
9140          base[3]= (*(LnkLI495))((V1337),(base0[5]->c.c_car),(V1339),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car));
9141          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9142          return;          return;
9143          goto T2932;          goto T2933;
9144  T2932:;  T2933:;
9145          if(!((CMPcar((V1337)))==(VV[200]))){          if(!((CMPcar((V1338)))==(VV[200]))){
9146          goto T2942;}          goto T2943;}
9147          if(((VV[21]->s.s_dbind))==Cnil){          if(((VV[22]->s.s_dbind))==Cnil){
9148          goto T2942;}          goto T2943;}
9149          {object V1343= CMPcadddr((V1337));          {object V1344= CMPcadddr((V1338));
9150          if((V1343!= VV[254]))goto T2947;          if((V1344!= VV[254]))goto T2948;
         {object V1344;  
         V1344= CMPcaddr((V1337));  
         (VV[22]->s.s_dbind)= make_cons((V1344),(VV[22]->s.s_dbind));  
         goto T2946;}  
         goto T2947;  
 T2947:;  
         if((V1343!= VV[256]))goto T2950;  
9151          {object V1345;          {object V1345;
9152          V1345= CMPcaddr((V1337));          V1345= CMPcaddr((V1338));
9153          (VV[23]->s.s_dbind)= make_cons((V1345),(VV[23]->s.s_dbind));          (VV[23]->s.s_dbind)= make_cons((V1345),(VV[23]->s.s_dbind));
9154          goto T2946;}          goto T2947;}
9155          goto T2950;          goto T2948;
9156  T2950:;  T2948:;
9157          if((V1343!= VV[258]))goto T2953;          if((V1344!= VV[256]))goto T2951;
9158          {object V1346;          {object V1346;
9159          V1346= CMPcaddr((V1337));          V1346= CMPcaddr((V1338));
9160          (VV[24]->s.s_dbind)= make_cons((V1346),(VV[24]->s.s_dbind));          (VV[24]->s.s_dbind)= make_cons((V1346),(VV[24]->s.s_dbind));
9161          goto T2946;}          goto T2947;}
9162          goto T2953;          goto T2951;
9163  T2953:;}  T2951:;
9164          goto T2946;          if((V1344!= VV[258]))goto T2954;
9165  T2946:;          {object V1347;
9166          base[3]= make_cons(CMPcadr((V1337)),CMPcddddr((V1337)));          V1347= CMPcaddr((V1338));
9167            (VV[25]->s.s_dbind)= make_cons((V1347),(VV[25]->s.s_dbind));
9168            goto T2947;}
9169            goto T2954;
9170    T2954:;}
9171            goto T2947;
9172    T2947:;
9173            base[3]= make_cons(CMPcadr((V1338)),CMPcddddr((V1338)));
9174          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9175          return;          return;
9176          goto T2942;          goto T2943;
9177  T2942:;  T2943:;
9178          base[3]= (V1337);          base[3]= (V1338);
9179          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9180          return;}          return;}
9181          }          }
# Line 9188  register object *base0; Line 9187  register object *base0;
9187  {       register object *base=vs_base;  {       register object *base=vs_base;
9188          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
9189          vs_check;          vs_check;
9190          {register object V1347;          {register object V1348;
9191          check_arg(1);          check_arg(1);
9192          V1347=(base[0]);          V1348=(base[0]);
9193          vs_top=sup;          vs_top=sup;
9194          goto TTL;          goto TTL;
9195  TTL:;  TTL:;
9196          {register object x= (V1347),V1348= VV[183];          {register object x= (V1348),V1349= VV[183];
9197          while(V1348!=Cnil)          while(V1349!=Cnil)
9198          if(x==(V1348->c.c_car)){          if(x==(V1349->c.c_car)){
9199          goto T2958;          goto T2959;
9200          }else V1348=V1348->c.c_cdr;          }else V1349=V1349->c.c_cdr;
9201          goto T2957;}          goto T2958;}
         goto T2958;  
 T2958:;  
         {object V1349= (V1347);  
         if((V1349!= VV[407]))goto T2960;  
         base0[7]= VV[184];  
9202          goto T2959;          goto T2959;
9203    T2959:;
9204            {object V1350= (V1348);
9205            if((V1350!= VV[407]))goto T2961;
9206            base0[7]= VV[184];
9207          goto T2960;          goto T2960;
9208  T2960:;          goto T2961;
9209          if((V1349!= VV[62]))goto T2962;  T2961:;
9210            if((V1350!= VV[62]))goto T2963;
9211          base0[7]= VV[185];          base0[7]= VV[185];
9212          goto T2959;          goto T2960;
9213          goto T2962;          goto T2963;
9214  T2962:;  T2963:;
9215          if((V1349!= VV[63]))goto T2964;          if((V1350!= VV[63]))goto T2965;
9216          goto T2959;          goto T2960;
         goto T2964;  
 T2964:;  
         if((V1349!= VV[170]))goto T2965;  
         base0[7]= VV[186];  
         goto T2959;  
9217          goto T2965;          goto T2965;
9218  T2965:;  T2965:;
9219          if((V1349!= VV[56]))goto T2967;          if((V1350!= VV[170]))goto T2966;
9220            base0[7]= VV[186];
9221            goto T2960;
9222            goto T2966;
9223    T2966:;
9224            if((V1350!= VV[56]))goto T2968;
9225          base0[7]= VV[187];          base0[7]= VV[187];
9226          goto T2959;          goto T2960;
9227          goto T2967;          goto T2968;
9228  T2967:;  T2968:;
9229          base[1]= VV[188];          base[1]= VV[188];
9230          base[2]= (V1347);          base[2]= (V1348);
9231          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9232          Lerror();          Lerror();
9233          vs_top=sup;}          vs_top=sup;}
9234          goto T2959;          goto T2960;
9235  T2959:;  T2960:;
9236          base[1]= Cnil;          base[1]= Cnil;
9237          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9238          return;          return;
9239          goto T2957;          goto T2958;
9240  T2957:;  T2958:;
9241          {object V1350= base0[7];          {object V1351= base0[7];
9242          if((V1350!= VV[181]))goto T2971;          if((V1351!= VV[181]))goto T2972;
9243          V1351= list(2,(V1347),list(2,VV[189],base0[5]));          V1352= list(2,(V1348),list(2,VV[189],base0[5]));
         base[1]= make_cons(/* INLINE-ARGS */V1351,Cnil);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         goto T2971;  
 T2971:;  
         if((V1350!= VV[184]))goto T2972;  
         if(type_of((V1347))==t_cons){  
         goto T2974;}  
         V1352= list(2,(V1347),list(3,VV[116],base0[5],list(2,VV[189],base0[5])));  
9244          base[1]= make_cons(/* INLINE-ARGS */V1352,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1352,Cnil);
9245          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9246          return;          return;
         goto T2974;  
 T2974:;  
         if((CMPcddr((V1347)))!=Cnil){  
         goto T2977;}  
         V1353= CMPcar((V1347));  
         V1354= list(2,/* INLINE-ARGS */V1353,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1347))));  
         base[1]= make_cons(/* INLINE-ARGS */V1354,Cnil);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         goto T2977;  
 T2977:;  
         V1355= list(2,CMPcaddr((V1347)),base0[5]);  
         V1356= CMPcar((V1347));  
         base[1]= list(2,/* INLINE-ARGS */V1355,list(2,/* INLINE-ARGS */V1356,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1347)))));  
         vs_top=(vs_base=base+1)+1;  
         return;  
9247          goto T2972;          goto T2972;
9248  T2972:;  T2972:;
9249          if((V1350!= VV[186]))goto T2979;          if((V1351!= VV[184]))goto T2973;
9250          V1357= list(2,(V1347),base0[5]);          if(type_of((V1348))==t_cons){
9251          base[1]= make_cons(/* INLINE-ARGS */V1357,Cnil);          goto T2975;}
9252            V1353= list(2,(V1348),list(3,VV[116],base0[5],list(2,VV[189],base0[5])));
9253            base[1]= make_cons(/* INLINE-ARGS */V1353,Cnil);
9254            vs_top=(vs_base=base+1)+1;
9255            return;
9256            goto T2975;
9257    T2975:;
9258            if((CMPcddr((V1348)))!=Cnil){
9259            goto T2978;}
9260            V1354= CMPcar((V1348));
9261            V1355= list(2,/* INLINE-ARGS */V1354,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348))));
9262            base[1]= make_cons(/* INLINE-ARGS */V1355,Cnil);
9263            vs_top=(vs_base=base+1)+1;
9264            return;
9265            goto T2978;
9266    T2978:;
9267            V1356= list(2,CMPcaddr((V1348)),base0[5]);
9268            V1357= CMPcar((V1348));
9269            base[1]= list(2,/* INLINE-ARGS */V1356,list(2,/* INLINE-ARGS */V1357,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348)))));
9270            vs_top=(vs_base=base+1)+1;
9271            return;
9272            goto T2973;
9273    T2973:;
9274            if((V1351!= VV[186]))goto T2980;
9275            V1358= list(2,(V1348),base0[5]);
9276            base[1]= make_cons(/* INLINE-ARGS */V1358,Cnil);
9277          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9278          return;          return;
9279          goto T2979;          goto T2980;
9280  T2979:;  T2980:;
9281          if((V1350!= VV[185]))goto T2980;          if((V1351!= VV[185]))goto T2981;
9282          if(type_of((V1347))==t_cons){          if(type_of((V1348))==t_cons){
9283          goto T2982;}          goto T2983;}
9284          base[1]= (V1347);          base[1]= (V1348);
9285          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9286          (void) (*Lnk488)();          (void) (*Lnk488)();
9287          vs_top=sup;          vs_top=sup;
9288          V1358= vs_base[0];          V1359= vs_base[0];
9289          V1359= list(2,(V1347),list(3,VV[190],V1358,base0[5]));          V1360= list(2,(V1348),list(3,VV[190],V1359,base0[5]));
9290          base[1]= make_cons(/* INLINE-ARGS */V1359,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1360,Cnil);
9291          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9292          return;          return;
9293          goto T2982;          goto T2983;
9294  T2982:;  T2983:;
9295          if((CMPcddr((V1347)))!=Cnil){          if((CMPcddr((V1348)))!=Cnil){
9296          goto T2987;}          goto T2988;}
9297          {object V1360;          {object V1361;
9298          object V1361;          object V1362;
9299          if(!(type_of(CMPcar((V1347)))==t_cons)){          if(!(type_of(CMPcar((V1348)))==t_cons)){
9300          goto T2991;}          goto T2992;}
9301          base[1]= CMPcaar((V1347));          base[1]= CMPcaar((V1348));
9302          base[2]= CMPcadar((V1347));          base[2]= CMPcadar((V1348));
9303          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9304          goto T2989;          goto T2990;
9305          goto T2991;          goto T2992;
9306  T2991:;  T2992:;
9307          base[2]= CMPcar((V1347));          base[2]= CMPcar((V1348));
9308          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9309          (void) (*Lnk488)();          (void) (*Lnk488)();
9310          vs_top=sup;          vs_top=sup;
9311          base[1]= vs_base[0];          base[1]= vs_base[0];
9312          base[2]= CMPcar((V1347));          base[2]= CMPcar((V1348));
9313          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9314          goto T2989;          goto T2990;
9315  T2989:;  T2990:;
         if(vs_base>=vs_top){vs_top=sup;goto T2998;}  
         V1360= vs_base[0];  
         vs_base++;  
9316          if(vs_base>=vs_top){vs_top=sup;goto T2999;}          if(vs_base>=vs_top){vs_top=sup;goto T2999;}
9317          V1361= vs_base[0];          V1361= vs_base[0];
9318            vs_base++;
9319            if(vs_base>=vs_top){vs_top=sup;goto T3000;}
9320            V1362= vs_base[0];
9321          vs_top=sup;          vs_top=sup;
9322          goto T3000;          goto T3001;
         goto T2998;  
 T2998:;  
         V1360= Cnil;  
9323          goto T2999;          goto T2999;
9324  T2999:;  T2999:;
9325          V1361= Cnil;          V1361= Cnil;
9326          goto T3000;          goto T3000;
9327  T3000:;  T3000:;
9328          V1362= list(2,base0[6],list(3,VV[191],(V1360),base0[5]));          V1362= Cnil;
9329          V1363= list(2,VV[192],base0[6]);          goto T3001;
9330          base[1]= list(2,/* INLINE-ARGS */V1362,list(2,(V1361),list(4,VV[130],/* INLINE-ARGS */V1363,list(2,VV[193],base0[6]),CMPcadr((V1347)))));  T3001:;
9331            V1363= list(2,base0[6],list(3,VV[191],(V1361),base0[5]));
9332            V1364= list(2,VV[192],base0[6]);
9333            base[1]= list(2,/* INLINE-ARGS */V1363,list(2,(V1362),list(4,VV[130],/* INLINE-ARGS */V1364,list(2,VV[193],base0[6]),CMPcadr((V1348)))));
9334          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9335          return;}          return;}
9336          goto T2987;          goto T2988;
9337  T2987:;  T2988:;
9338          {object V1364;          {object V1365;
9339          object V1365;          object V1366;
9340          if(!(type_of(CMPcar((V1347)))==t_cons)){          if(!(type_of(CMPcar((V1348)))==t_cons)){
9341          goto T3003;}          goto T3004;}
9342          base[1]= CMPcaar((V1347));          base[1]= CMPcaar((V1348));
9343          base[2]= CMPcadar((V1347));          base[2]= CMPcadar((V1348));
9344          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9345          goto T3001;          goto T3002;
9346          goto T3003;          goto T3004;
9347  T3003:;  T3004:;
9348          base[2]= CMPcar((V1347));          base[2]= CMPcar((V1348));
9349          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9350          (void) (*Lnk488)();          (void) (*Lnk488)();
9351          vs_top=sup;          vs_top=sup;
9352          base[1]= vs_base[0];          base[1]= vs_base[0];
9353          base[2]= CMPcar((V1347));          base[2]= CMPcar((V1348));
9354          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9355          goto T3001;          goto T3002;
9356  T3001:;  T3002:;
         if(vs_base>=vs_top){vs_top=sup;goto T3010;}  
         V1364= vs_base[0];  
         vs_base++;  
9357          if(vs_base>=vs_top){vs_top=sup;goto T3011;}          if(vs_base>=vs_top){vs_top=sup;goto T3011;}
9358          V1365= vs_base[0];          V1365= vs_base[0];
9359            vs_base++;
9360            if(vs_base>=vs_top){vs_top=sup;goto T3012;}
9361            V1366= vs_base[0];
9362          vs_top=sup;          vs_top=sup;
9363          goto T3012;          goto T3013;
         goto T3010;  
 T3010:;  
         V1364= Cnil;  
9364          goto T3011;          goto T3011;
9365  T3011:;  T3011:;
9366          V1365= Cnil;          V1365= Cnil;
9367          goto T3012;          goto T3012;
9368  T3012:;  T3012:;
9369          V1366= list(2,base0[6],list(3,VV[191],(V1364),base0[5]));          V1366= Cnil;
9370          V1367= list(2,CMPcaddr((V1347)),base0[6]);          goto T3013;
9371          V1368= list(2,VV[192],base0[6]);  T3013:;
9372          base[1]= list(3,/* INLINE-ARGS */V1366,/* INLINE-ARGS */V1367,list(2,(V1365),list(4,VV[130],/* INLINE-ARGS */V1368,list(2,VV[193],base0[6]),CMPcadr((V1347)))));          V1367= list(2,base0[6],list(3,VV[191],(V1365),base0[5]));
9373            V1368= list(2,CMPcaddr((V1348)),base0[6]);
9374            V1369= list(2,VV[192],base0[6]);
9375            base[1]= list(3,/* INLINE-ARGS */V1367,/* INLINE-ARGS */V1368,list(2,(V1366),list(4,VV[130],/* INLINE-ARGS */V1369,list(2,VV[193],base0[6]),CMPcadr((V1348)))));
9376          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9377          return;}          return;}
9378          goto T2980;          goto T2981;
9379  T2980:;  T2981:;
9380          if((V1350!= VV[187]))goto T3013;          if((V1351!= VV[187]))goto T3014;
9381          base[1]= make_cons((V1347),Cnil);          base[1]= make_cons((V1348),Cnil);
9382          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9383          return;          return;
9384          goto T3013;          goto T3014;
9385  T3013:;  T3014:;
9386          base[1]= Cnil;          base[1]= Cnil;
9387          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9388          return;}          return;}
# Line 9396  register object *base0; Line 9395  register object *base0;
9395  {       register object *base=vs_base;  {       register object *base=vs_base;
9396          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
9397          vs_check;          vs_check;
9398          {object V1369;          {object V1370;
9399          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9400          {object *p=vs_top;          {object *p=vs_top;
9401           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9402          V1369=(base[0]);          V1370=(base[0]);
9403          vs_top=sup;          vs_top=sup;
9404          base[1]= STREF(object,(base0[0]->c.c_car),0);          base[1]= STREF(object,(base0[0]->c.c_car),0);
9405          base[2]= (V1369);          base[2]= (V1370);
9406          {object V1370;          {object V1371;
9407          V1370= STREF(object,(base0[0]->c.c_car),4);          V1371= STREF(object,(base0[0]->c.c_car),4);
9408           vs_top=base+3;           vs_top=base+3;
9409           while(V1370!=Cnil)           while(V1371!=Cnil)
9410           {vs_push((V1370)->c.c_car);V1370=(V1370)->c.c_cdr;}           {vs_push((V1371)->c.c_car);V1371=(V1371)->c.c_cdr;}
9411          vs_base=base+2;}          vs_base=base+2;}
9412          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9413                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9424  register object *base0; Line 9423  register object *base0;
9423  {       register object *base=vs_base;  {       register object *base=vs_base;
9424          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
9425          vs_check;          vs_check;
9426          {object V1371;          {object V1372;
9427          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9428          {object *p=vs_top;          {object *p=vs_top;
9429           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9430          V1371=(base[0]);          V1372=(base[0]);
9431          vs_top=sup;          vs_top=sup;
9432          base[1]= STREF(object,(base0[2]->c.c_car),0);          base[1]= STREF(object,(base0[2]->c.c_car),0);
9433          base[2]= STREF(object,(base0[2]->c.c_car),4);          base[2]= STREF(object,(base0[2]->c.c_car),4);
9434          base[3]= STREF(object,(base0[2]->c.c_car),8);          base[3]= STREF(object,(base0[2]->c.c_car),8);
         {object V1372;  
         if(((base0[0]->c.c_car))==Cnil){  
         goto T3024;}  
9435          {object V1373;          {object V1373;
9436          object V1374;          if(((base0[0]->c.c_car))==Cnil){
9437          V1373= nthcdr(fix((base0[1]->c.c_car)),(V1371));          goto T3025;}
9438          base[6]= (V1371);          {object V1374;
9439          base[7]= (V1373);          object V1375;
9440            V1374= nthcdr(fix((base0[1]->c.c_car)),(V1372));
9441            base[6]= (V1372);
9442            base[7]= (V1374);
9443          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
9444          Lldiff();          Lldiff();
9445          vs_top=sup;          vs_top=sup;
9446          V1374= vs_base[0];          V1375= vs_base[0];
9447          V1372= nconc((V1374),(V1373));          V1373= nconc((V1375),(V1374));
9448          goto T3022;}          goto T3023;}
9449          goto T3024;          goto T3025;
9450  T3024:;  T3025:;
9451          V1372= (V1371);          V1373= (V1372);
9452          goto T3022;          goto T3023;
9453  T3022:;  T3023:;
9454           vs_top=base+4;           vs_top=base+4;
9455           while(V1372!=Cnil)           while(V1373!=Cnil)
9456           {vs_push((V1372)->c.c_car);V1372=(V1372)->c.c_cdr;}           {vs_push((V1373)->c.c_car);V1373=(V1373)->c.c_cdr;}
9457          vs_base=base+2;}          vs_base=base+2;}
9458          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9459                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9470  register object *base0; Line 9469  register object *base0;
9469  {       register object *base=vs_base;  {       register object *base=vs_base;
9470          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
9471          vs_check;          vs_check;
9472          {register object V1375;          {register object V1376;
9473          check_arg(1);          check_arg(1);
9474          V1375=(base[0]);          V1376=(base[0]);
9475          vs_top=sup;          vs_top=sup;
9476          if(!(type_of((V1375))==t_cons)){          if(!(type_of((V1376))==t_cons)){
9477          goto T3031;}          goto T3032;}
9478          if((CMPcar((V1375)))==(VV[30])){          if((CMPcar((V1376)))==(VV[31])){
9479          goto T3033;}          goto T3034;}
9480          base[1]= Cnil;          base[1]= Cnil;
9481          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9482          return;          return;
9483          goto T3033;          goto T3034;
9484  T3033:;  T3034:;
9485          base[1]= CMPcadr((V1375));          base[1]= CMPcadr((V1376));
9486          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9487          Lconstantp();          Lconstantp();
9488          vs_top=sup;          vs_top=sup;
9489          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
9490          goto T3035;}          goto T3036;}
9491          base[1]= Cnil;          base[1]= Cnil;
9492          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9493          return;          return;
9494          goto T3035;          goto T3036;
9495  T3035:;  T3036:;
9496          {register object V1376;          {register object V1377;
9497          base[1]= CMPcadr((V1375));          base[1]= CMPcadr((V1376));
9498          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9499          Leval();          Leval();
9500          vs_top=sup;          vs_top=sup;
9501          V1376= vs_base[0];{object V1377;          V1377= vs_base[0];{object V1378;
9502          V1377= (*(LnkLI365))((V1376));          V1378= (*(LnkLI365))((V1377));
9503          if(V1377==Cnil)goto T3040;          if(V1378==Cnil)goto T3041;
9504          base[1]= V1377;          base[1]= V1378;
9505          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9506          return;          return;
9507          goto T3040;          goto T3041;
9508  T3040:;}  T3041:;}
9509          if(!(type_of((V1376))==t_fixnum||type_of((V1376))==t_bignum)){          if(!(type_of((V1377))==t_fixnum||type_of((V1377))==t_bignum)){
9510          goto T3042;}          goto T3043;}
9511          base[1]= Ct;          base[1]= Ct;
9512          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9513          return;          return;
9514          goto T3042;          goto T3043;
9515  T3042:;  T3043:;
9516          if(type_of((V1376))==t_character){          if(type_of((V1377))==t_character){
9517          goto T3044;}          goto T3045;}
9518          base[1]= Cnil;          base[1]= Cnil;
9519          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9520          return;          return;
9521          goto T3044;          goto T3045;
9522  T3044:;  T3045:;
9523          base[1]= (V1376);          base[1]= (V1377);
9524          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9525          Lstandard_char_p();          Lstandard_char_p();
9526          return;}          return;}
9527          goto T3031;          goto T3032;
9528  T3031:;  T3032:;
9529          base[1]= (*(LnkLI365))((V1375));          base[1]= (*(LnkLI365))((V1376));
9530          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9531          return;          return;
9532          }          }
# Line 9539  register object *base0; Line 9538  register object *base0;
9538  {       register object *base=vs_base;  {       register object *base=vs_base;
9539          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
9540          vs_check;          vs_check;
9541          {object V1378;          {object V1379;
9542          check_arg(1);          check_arg(1);
9543          V1378=(base[0]);          V1379=(base[0]);
9544          vs_top=sup;          vs_top=sup;
9545          goto TTL;          goto TTL;
9546  TTL:;  TTL:;
9547          base[1]= VV[8];          base[1]= VV[9];
9548          base[2]= (V1378);          base[2]= (V1379);
9549          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9550          Lerror();          Lerror();
9551          return;          return;
# Line 9559  register object *base0; Line 9558  register object *base0;
9558  {       register object *base=vs_base;  {       register object *base=vs_base;
9559          register object *sup=base+VM133; VC133          register object *sup=base+VM133; VC133
9560          vs_check;          vs_check;
9561          {object V1379;          {object V1380;
9562          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9563          {object *p=vs_top;          {object *p=vs_top;
9564           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9565          V1379=(base[0]);          V1380=(base[0]);
9566          vs_top=sup;          vs_top=sup;
9567          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9568          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9569          Lsymbol_function();          Lsymbol_function();
9570          vs_top=sup;          vs_top=sup;
9571          base[1]= vs_base[0];          base[1]= vs_base[0];
9572          {object V1380;          {object V1381;
9573          V1380= (V1379);          V1381= (V1380);
9574           vs_top=base+2;           vs_top=base+2;
9575           while(V1380!=Cnil)           while(V1381!=Cnil)
9576           {vs_push((V1380)->c.c_car);V1380=(V1380)->c.c_cdr;}           {vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;}
9577          vs_base=base+2;}          vs_base=base+2;}
9578          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9579                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9583  register object *base0; Line 9582  register object *base0;
9582          return;          return;
9583          }          }
9584  }  }
9585  static object  LnkTLI495(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[495],(void **)&LnkLI495,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */  static object  LnkTLI495(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[495],(void **)(void *)&LnkLI495,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */
9586  static void LnkT494(){ call_or_link(VV[494],(void **)&Lnk494);} /* GENERIC-FUNCTION-NAME-P */  static void LnkT494(){ call_or_link(VV[494],(void **)(void *)&Lnk494);} /* GENERIC-FUNCTION-NAME-P */
9587  static object  LnkTLI493(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[493],(void **)&LnkLI493,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */  static object  LnkTLI493(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[493],(void **)(void *)&LnkLI493,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */
9588  static object  LnkTLI492(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[492],(void **)&LnkLI492,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */  static object  LnkTLI492(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[492],(void **)(void *)&LnkLI492,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */
9589  static object  LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)&LnkLI491,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */  static object  LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)(void *)&LnkLI491,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */
9590  static object  LnkTLI490(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[490],(void **)&LnkLI490,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */  static object  LnkTLI490(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[490],(void **)(void *)&LnkLI490,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */
9591  static object  LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)&LnkLI489,3,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-GET */  static object  LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)(void *)&LnkLI489,3,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-GET */
9592  static void LnkT488(){ call_or_link(VV[488],(void **)&Lnk488);} /* MAKE-KEYWORD */  static void LnkT488(){ call_or_link(VV[488],(void **)(void *)&Lnk488);} /* MAKE-KEYWORD */
9593  static object  LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)&LnkLI487,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */  static object  LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)(void *)&LnkLI487,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */
9594  static void LnkT486(){ call_or_link(VV[486],(void **)&Lnk486);} /* SPECIALIZER-FROM-TYPE */  static void LnkT486(){ call_or_link(VV[486],(void **)(void *)&Lnk486);} /* SPECIALIZER-FROM-TYPE */
9595  static void LnkT485(ptr) object *ptr;{ call_or_link_closure(VV[485],(void **)&Lnk485,(void **)&Lclptr485);} /* SPECIALIZER-TYPE */  static void LnkT485(ptr) object *ptr;{ call_or_link_closure(VV[485],(void **)(void *)&Lnk485,(void **)(void *)&Lclptr485);} /* SPECIALIZER-TYPE */
9596  static void LnkT484(ptr) object *ptr;{ call_or_link_closure(VV[484],(void **)&Lnk484,(void **)&Lclptr484);} /* SPECIALIZERP */  static void LnkT484(ptr) object *ptr;{ call_or_link_closure(VV[484],(void **)(void *)&Lnk484,(void **)(void *)&Lclptr484);} /* SPECIALIZERP */
9597  static object  LnkTLI483(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[483],(void **)&LnkLI483,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */  static object  LnkTLI483(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[483],(void **)(void *)&LnkLI483,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */
9598  static object  LnkTLI482(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[482],(void **)&LnkLI482,first,ap);va_end(ap);return V1;} /* RELIST* */  static object  LnkTLI482(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[482],(void **)(void *)&LnkLI482,first,ap);va_end(ap);return V1;} /* RELIST* */
9599  static object  LnkTLI481(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[481],(void **)&LnkLI481,3,first,ap);va_end(ap);return V1;} /* RECONS */  static object  LnkTLI481(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[481],(void **)(void *)&LnkLI481,3,first,ap);va_end(ap);return V1;} /* RECONS */
9600  static object  LnkTLI480(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[480],(void **)&LnkLI480,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */  static object  LnkTLI480(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[480],(void **)(void *)&LnkLI480,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */
9601  static object  LnkTLI479(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[479],(void **)&LnkLI479,first,ap);va_end(ap);return V1;} /* GET-METHOD */  static object  LnkTLI479(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[479],(void **)(void *)&LnkLI479,first,ap);va_end(ap);return V1;} /* GET-METHOD */
9602  static void LnkT478(ptr) object *ptr;{ call_or_link_closure(VV[478],(void **)&Lnk478,(void **)&Lclptr478);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */  static void LnkT478(ptr) object *ptr;{ call_or_link_closure(VV[478],(void **)(void *)&Lnk478,(void **)(void *)&Lclptr478);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */
9603  static object  LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)&LnkLI477,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */  static object  LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)(void *)&LnkLI477,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */
9604  static void LnkT476(ptr) object *ptr;{ call_or_link_closure(VV[476],(void **)&Lnk476,(void **)&Lclptr476);} /* METHOD-QUALIFIERS */  static void LnkT476(ptr) object *ptr;{ call_or_link_closure(VV[476],(void **)(void *)&Lnk476,(void **)(void *)&Lclptr476);} /* METHOD-QUALIFIERS */
9605  static object  LnkTLI475(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[475],(void **)&LnkLI475,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */  static object  LnkTLI475(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[475],(void **)(void *)&LnkLI475,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */
9606  static void LnkT474(ptr) object *ptr;{ call_or_link_closure(VV[474],(void **)&Lnk474,(void **)&Lclptr474);} /* METHOD-GENERIC-FUNCTION */  static void LnkT474(ptr) object *ptr;{ call_or_link_closure(VV[474],(void **)(void *)&Lnk474,(void **)(void *)&Lclptr474);} /* METHOD-GENERIC-FUNCTION */
9607  static void LnkT473(ptr) object *ptr;{ call_or_link_closure(VV[473],(void **)&Lnk473,(void **)&Lclptr473);} /* METHOD-P */  static void LnkT473(ptr) object *ptr;{ call_or_link_closure(VV[473],(void **)(void *)&Lnk473,(void **)(void *)&Lclptr473);} /* METHOD-P */
9608  static object  LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[472],(void **)&LnkLI472,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */  static object  LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[472],(void **)(void *)&LnkLI472,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */
9609  static void LnkT471(ptr) object *ptr;{ call_or_link_closure(VV[471],(void **)&Lnk471,(void **)&Lclptr471);} /* SETF PCL GENERIC-FUNCTION-METHOD-COMBINATION */  static void LnkT471(ptr) object *ptr;{ call_or_link_closure(VV[471],(void **)(void *)&Lnk471,(void **)(void *)&Lclptr471);} /* SETF PCL GENERIC-FUNCTION-METHOD-COMBINATION */
9610  static void LnkT470(ptr) object *ptr;{ call_or_link_closure(VV[470],(void **)&Lnk470,(void **)&Lclptr470);} /* SETF PCL GENERIC-FUNCTION-METHOD-CLASS */  static void LnkT470(ptr) object *ptr;{ call_or_link_closure(VV[470],(void **)(void *)&Lnk470,(void **)(void *)&Lclptr470);} /* SETF PCL GENERIC-FUNCTION-METHOD-CLASS */
9611  static void LnkT469(){ call_or_link(VV[469],(void **)&Lnk469);} /* REAL-MAKE-A-METHOD */  static void LnkT469(){ call_or_link(VV[469],(void **)(void *)&Lnk469);} /* REAL-MAKE-A-METHOD */
9612  static void LnkT468(){ call_or_link(VV[468],(void **)&Lnk468);} /* DELETE */  static void LnkT468(){ call_or_link(VV[468],(void **)(void *)&Lnk468);} /* DELETE */
9613  static object  LnkTLI466(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[466],(void **)&LnkLI466,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */  static object  LnkTLI466(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[466],(void **)(void *)&LnkLI466,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */
9614  static object  LnkTLI465(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[465],(void **)&LnkLI465,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */  static object  LnkTLI465(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[465],(void **)(void *)&LnkLI465,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
9615  static object  LnkTLI461(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[461],(void **)&LnkLI461,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */  static object  LnkTLI461(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[461],(void **)(void *)&LnkLI461,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */
9616  static void LnkT290(){ call_or_link(VV[290],(void **)&Lnk290);} /* FIND-CLASS */  static void LnkT290(){ call_or_link(VV[290],(void **)(void *)&Lnk290);} /* FIND-CLASS */
9617  static void LnkT460(){ call_or_link(VV[460],(void **)&Lnk460);} /* SEVENTH */  static void LnkT460(){ call_or_link(VV[460],(void **)(void *)&Lnk460);} /* SEVENTH */
9618  static void LnkT459(){ call_or_link(VV[459],(void **)&Lnk459);} /* FIFTH */  static void LnkT459(){ call_or_link(VV[459],(void **)(void *)&Lnk459);} /* FIFTH */
9619  static object  LnkTLI458(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[458],(void **)&LnkLI458,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */  static object  LnkTLI458(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[458],(void **)(void *)&LnkLI458,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */
9620  static object  LnkTLI456(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[456],(void **)&LnkLI456,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */  static object  LnkTLI456(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[456],(void **)(void *)&LnkLI456,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */
9621  static void LnkT454(ptr) object *ptr;{ call_or_link_closure(VV[454],(void **)&Lnk454,(void **)&Lclptr454);} /* MAKE-INSTANCE */  static void LnkT454(ptr) object *ptr;{ call_or_link_closure(VV[454],(void **)(void *)&Lnk454,(void **)(void *)&Lclptr454);} /* MAKE-INSTANCE */
9622  static void LnkT453(ptr) object *ptr;{ call_or_link_closure(VV[453],(void **)&Lnk453,(void **)&Lclptr453);} /* REINITIALIZE-INSTANCE */  static void LnkT453(ptr) object *ptr;{ call_or_link_closure(VV[453],(void **)(void *)&Lnk453,(void **)(void *)&Lclptr453);} /* REINITIALIZE-INSTANCE */
9623  static void LnkT452(ptr) object *ptr;{ call_or_link_closure(VV[452],(void **)&Lnk452,(void **)&Lclptr452);} /* CHANGE-CLASS */  static void LnkT452(ptr) object *ptr;{ call_or_link_closure(VV[452],(void **)(void *)&Lnk452,(void **)(void *)&Lclptr452);} /* CHANGE-CLASS */
9624  static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)&Lnk300,(void **)&Lclptr300);} /* FIND-METHOD-COMBINATION */  static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* FIND-METHOD-COMBINATION */
9625  static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)&Lnk451,(void **)&Lclptr451);} /* GF-DFUN-STATE */  static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)(void *)&Lnk451,(void **)(void *)&Lclptr451);} /* GF-DFUN-STATE */
9626  static void LnkT450(ptr) object *ptr;{ call_or_link_closure(VV[450],(void **)&Lnk450,(void **)&Lclptr450);} /* SETF PCL GF-DFUN-STATE */  static void LnkT450(ptr) object *ptr;{ call_or_link_closure(VV[450],(void **)(void *)&Lnk450,(void **)(void *)&Lclptr450);} /* SETF PCL GF-DFUN-STATE */
9627  static object  LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)&LnkLI449,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */  static object  LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)(void *)&LnkLI449,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */
9628  static object  LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[10],(void **)&LnkLI10,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */  static object  LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[11],(void **)(void *)&LnkLI11,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */
9629  static object  LnkTLI448(){return call_proc0(VV[448],(void **)&LnkLI448);} /* MAKE-ARG-INFO */  static object  LnkTLI448(){return call_proc0(VV[448],(void **)(void *)&LnkLI448);} /* MAKE-ARG-INFO */
9630  static object  LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)&LnkLI447,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */  static object  LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)(void *)&LnkLI447,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
9631  static object  LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)&LnkLI446,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */  static object  LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)(void *)&LnkLI446,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
9632  static object  LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[445],(void **)&LnkLI445,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */  static object  LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[445],(void **)(void *)&LnkLI445,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */
9633  static object  LnkTLI444(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[444],(void **)&LnkLI444,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */  static object  LnkTLI444(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[444],(void **)(void *)&LnkLI444,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */
9634  static void LnkT291(ptr) object *ptr;{ call_or_link_closure(VV[291],(void **)&Lnk291,(void **)&Lclptr291);} /* CLASSP */  static void LnkT291(ptr) object *ptr;{ call_or_link_closure(VV[291],(void **)(void *)&Lnk291,(void **)(void *)&Lclptr291);} /* CLASSP */
9635  static void LnkT443(ptr) object *ptr;{ call_or_link_closure(VV[443],(void **)&Lnk443,(void **)&Lclptr443);} /* COMPUTE-APPLICABLE-METHODS */  static void LnkT443(ptr) object *ptr;{ call_or_link_closure(VV[443],(void **)(void *)&Lnk443,(void **)(void *)&Lclptr443);} /* COMPUTE-APPLICABLE-METHODS */
9636  static void LnkT442(){ call_or_link(VV[442],(void **)&Lnk442);} /* FIND */  static void LnkT442(){ call_or_link(VV[442],(void **)(void *)&Lnk442);} /* FIND */
9637  static object  LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */  static object  LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)(void *)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */
9638  static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)&Lnk440,(void **)&Lclptr440);} /* GENERIC-FUNCTION-NAME */  static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)(void *)&Lnk440,(void **)(void *)&Lclptr440);} /* GENERIC-FUNCTION-NAME */
9639  static void LnkT439(){ call_or_link(VV[439],(void **)&Lnk439);} /* COMPUTE-APPLICABLE-METHODS-EMF */  static void LnkT439(){ call_or_link(VV[439],(void **)(void *)&Lnk439);} /* COMPUTE-APPLICABLE-METHODS-EMF */
9640  static object  LnkTLI438(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[438],(void **)&LnkLI438,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */  static object  LnkTLI438(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[438],(void **)(void *)&LnkLI438,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */
9641  static void LnkT437(){ call_or_link(VV[437],(void **)&Lnk437);} /* RAISE-METATYPE */  static void LnkT437(){ call_or_link(VV[437],(void **)(void *)&Lnk437);} /* RAISE-METATYPE */
9642  static void LnkT436(ptr) object *ptr;{ call_or_link_closure(VV[436],(void **)&Lnk436,(void **)&Lclptr436);} /* GENERIC-FUNCTION-METHOD-COMBINATION */  static void LnkT436(ptr) object *ptr;{ call_or_link_closure(VV[436],(void **)(void *)&Lnk436,(void **)(void *)&Lclptr436);} /* GENERIC-FUNCTION-METHOD-COMBINATION */
9643  static object  LnkTLI435(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[435],(void **)&LnkLI435,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */  static object  LnkTLI435(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[435],(void **)(void *)&LnkLI435,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */
9644  static object  LnkTLI434(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[434],(void **)&LnkLI434,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */  static object  LnkTLI434(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[434],(void **)(void *)&LnkLI434,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */
9645  static void LnkT433(ptr) object *ptr;{ call_or_link_closure(VV[433],(void **)&Lnk433,(void **)&Lclptr433);} /* METHOD-SPECIALIZERS */  static void LnkT433(ptr) object *ptr;{ call_or_link_closure(VV[433],(void **)(void *)&Lnk433,(void **)(void *)&Lclptr433);} /* METHOD-SPECIALIZERS */
9646  static object  LnkTLI432(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[432],(void **)&LnkLI432,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */  static object  LnkTLI432(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[432],(void **)(void *)&LnkLI432,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */
9647  static void LnkT48(ptr) object *ptr;{ call_or_link_closure(VV[48],(void **)&Lnk48,(void **)&Lclptr48);} /* METHOD-LAMBDA-LIST */  static void LnkT48(ptr) object *ptr;{ call_or_link_closure(VV[48],(void **)(void *)&Lnk48,(void **)(void *)&Lclptr48);} /* METHOD-LAMBDA-LIST */
9648  static object  LnkTLI431(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[431],(void **)&LnkLI431,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */  static object  LnkTLI431(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[431],(void **)(void *)&LnkLI431,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */
9649  static object  LnkTLI430(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[430],(void **)&LnkLI430,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */  static object  LnkTLI430(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[430],(void **)(void *)&LnkLI430,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */
9650  static void LnkT429(){ call_or_link(VV[429],(void **)&Lnk429);} /* CHECK-METHOD-ARG-INFO */  static void LnkT429(){ call_or_link(VV[429],(void **)(void *)&Lnk429);} /* CHECK-METHOD-ARG-INFO */
9651  static object  LnkTLI428(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[428],(void **)&LnkLI428,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */  static object  LnkTLI428(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[428],(void **)(void *)&LnkLI428,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */
9652  static object  LnkTLI427(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[427],(void **)&LnkLI427,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */  static object  LnkTLI427(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[427],(void **)(void *)&LnkLI427,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */
9653  static void LnkT426(ptr) object *ptr;{ call_or_link_closure(VV[426],(void **)&Lnk426,(void **)&Lclptr426);} /* GENERIC-FUNCTION-METHODS */  static void LnkT426(ptr) object *ptr;{ call_or_link_closure(VV[426],(void **)(void *)&Lnk426,(void **)(void *)&Lclptr426);} /* GENERIC-FUNCTION-METHODS */
9654  static void LnkT425(){ call_or_link(VV[425],(void **)&Lnk425);} /* COUNT-IF */  static void LnkT425(){ call_or_link(VV[425],(void **)(void *)&Lnk425);} /* COUNT-IF */
9655  static object  LnkTLI411(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[411],(void **)&LnkLI411,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */  static object  LnkTLI411(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[411],(void **)(void *)&LnkLI411,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */
9656  static object  LnkTLI410(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[410],(void **)&LnkLI410,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static object  LnkTLI410(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[410],(void **)(void *)&LnkLI410,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
9657  static object  LnkTLI409(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[409],(void **)&LnkLI409,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */  static object  LnkTLI409(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[409],(void **)(void *)&LnkLI409,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */
9658  static void LnkT408(){ call_or_link(VV[408],(void **)&Lnk408);} /* ANALYZE-LAMBDA-LIST */  static void LnkT408(){ call_or_link(VV[408],(void **)(void *)&Lnk408);} /* ANALYZE-LAMBDA-LIST */
9659  static object  LnkTLI406(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[406],(void **)&LnkLI406,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */  static object  LnkTLI406(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[406],(void **)(void *)&LnkLI406,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */
9660  static object  LnkTLI405(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[405],(void **)&LnkLI405,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */  static object  LnkTLI405(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[405],(void **)(void *)&LnkLI405,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */
9661  static object  LnkTLI403(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[403],(void **)&LnkLI403,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */  static object  LnkTLI403(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[403],(void **)(void *)&LnkLI403,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */
9662  static object  LnkTLI402(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[402],(void **)&LnkLI402,first,ap);va_end(ap);return V1;} /* RECORD-DEFINITION */  static object  LnkTLI402(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[402],(void **)(void *)&LnkLI402,first,ap);va_end(ap);return V1;} /* RECORD-DEFINITION */
9663  static object  LnkTLI401(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[401],(void **)&LnkLI401,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */  static object  LnkTLI401(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[401],(void **)(void *)&LnkLI401,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */
9664  static object  LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[211],(void **)&LnkLI211,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */  static object  LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[211],(void **)(void *)&LnkLI211,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
9665  static object  LnkTLI400(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[400],(void **)&LnkLI400,2,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-PLIST */  static object  LnkTLI400(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[400],(void **)(void *)&LnkLI400,2,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-PLIST */
9666  static object  LnkTLI399(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[399],(void **)&LnkLI399,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */  static object  LnkTLI399(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[399],(void **)(void *)&LnkLI399,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */
9667  static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* WARN */  static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* WARN */
9668  static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)&Lnk397,(void **)&Lclptr397);} /* STANDARD-GENERIC-FUNCTION-P */  static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* STANDARD-GENERIC-FUNCTION-P */
9669  static void LnkT396(){ call_or_link(VV[396],(void **)&Lnk396);} /* WALK-FORM */  static void LnkT396(){ call_or_link(VV[396],(void **)(void *)&Lnk396);} /* WALK-FORM */
9670  static object  LnkTLI395(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[395],(void **)&LnkLI395,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */  static object  LnkTLI395(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[395],(void **)(void *)&LnkLI395,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */
9671  static object  LnkTLI394(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[394],(void **)&LnkLI394,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */  static object  LnkTLI394(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[394],(void **)(void *)&LnkLI394,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */
9672  static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)&Lnk393,(void **)&Lclptr393);} /* GF-ARG-INFO */  static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)(void *)&Lnk393,(void **)(void *)&Lclptr393);} /* GF-ARG-INFO */
9673  static void LnkT392(){ call_or_link(VV[392],(void **)&Lnk392);} /* TYPECASE-ERROR-STRING */  static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* TYPECASE-ERROR-STRING */
9674  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SLOT-UNBOUND-INTERNAL */  static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SLOT-UNBOUND-INTERNAL */
9675  static object  LnkTLI391(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[391],(void **)&LnkLI391,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI391(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[391],(void **)(void *)&LnkLI391,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
9676  static void LnkT390(){ call_or_link(VV[390],(void **)&Lnk390);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* CCLOSURE-ENV-NTHCDR */
9677  static void LnkT389(){ call_or_link(VV[389],(void **)&Lnk389);} /* STRUCTURE-SUBTYPE-P */  static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* STRUCTURE-SUBTYPE-P */
9678  static void LnkT388(){ call_or_link(VV[388],(void **)&Lnk388);} /* MAKE-ARRAY */  static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-ARRAY */
9679  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* SLOT-NAME-LISTS-FROM-SLOTS */  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* SLOT-NAME-LISTS-FROM-SLOTS */
9680  static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* SOME */  static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* SOME */
9681  static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* WALK-METHOD-LAMBDA */  static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* WALK-METHOD-LAMBDA */
9682  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* TYPEP */  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* TYPEP */
9683  static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* REMOVE */  static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* REMOVE */
9684  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[375],(void **)&LnkLI375,5,first,ap);va_end(ap);return V1;} /* MAKE-PARAMETER-REFERENCES */  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[375],(void **)(void *)&LnkLI375,5,first,ap);va_end(ap);return V1;} /* MAKE-PARAMETER-REFERENCES */
9685  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[374],(void **)&LnkLI374,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[374],(void **)(void *)&LnkLI374,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */
9686  static void LnkT373(){ call_or_link(VV[373],(void **)&Lnk373);} /* MAKE-METHOD-LAMBDA-INTERNAL */  static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* MAKE-METHOD-LAMBDA-INTERNAL */
9687  static object  LnkTLI372(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[372],(void **)&LnkLI372,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */  static object  LnkTLI372(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[372],(void **)(void *)&LnkLI372,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */
9688  static void LnkT371(){ call_or_link(VV[371],(void **)&Lnk371);} /* EXTRACT-DECLARATIONS */  static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* EXTRACT-DECLARATIONS */
9689  static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* PARSE-SPECIALIZED-LAMBDA-LIST */  static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* PARSE-SPECIALIZED-LAMBDA-LIST */
9690  static void LnkT369(){ call_or_link(VV[369],(void **)&Lnk369);} /* MAKE-METHOD-FUNCTION-INTERNAL */  static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* MAKE-METHOD-FUNCTION-INTERNAL */
9691  static object  LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)&LnkLI368,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */  static object  LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */
9692  static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* EVERY */  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* EVERY */
9693  static object  LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)&LnkLI365,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */  static object  LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)(void *)&LnkLI365,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */
9694  static void LnkT364(ptr) object *ptr;{ call_or_link_closure(VV[364],(void **)&Lnk364,(void **)&Lclptr364);} /* CLASS-NAME */  static void LnkT364(ptr) object *ptr;{ call_or_link_closure(VV[364],(void **)(void *)&Lnk364,(void **)(void *)&Lclptr364);} /* CLASS-NAME */
9695  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)&LnkLI363,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
9696  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[362],(void **)&LnkLI362,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[362],(void **)(void *)&LnkLI362,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */
9697  static void LnkT361(ptr) object *ptr;{ call_or_link_closure(VV[361],(void **)&Lnk361,(void **)&Lclptr361);} /* MAKE-METHOD-INITARGS-FORM */  static void LnkT361(ptr) object *ptr;{ call_or_link_closure(VV[361],(void **)(void *)&Lnk361,(void **)(void *)&Lclptr361);} /* MAKE-METHOD-INITARGS-FORM */
9698  static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)&Lnk360,(void **)&Lclptr360);} /* MAKE-METHOD-LAMBDA */  static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)(void *)&Lnk360,(void **)(void *)&Lclptr360);} /* MAKE-METHOD-LAMBDA */
9699  static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* ADD-METHOD-DECLARATIONS */  static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* ADD-METHOD-DECLARATIONS */
9700  static void LnkT358(ptr) object *ptr;{ call_or_link_closure(VV[358],(void **)&Lnk358,(void **)&Lclptr358);} /* GENERIC-FUNCTION-METHOD-CLASS */  static void LnkT358(ptr) object *ptr;{ call_or_link_closure(VV[358],(void **)(void *)&Lnk358,(void **)(void *)&Lclptr358);} /* GENERIC-FUNCTION-METHOD-CLASS */
9701  static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)&Lnk301,(void **)&Lclptr301);} /* CLASS-PROTOTYPE */  static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* CLASS-PROTOTYPE */
9702  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)&LnkLI290,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)(void *)&LnkLI290,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
9703  static void LnkT357(ptr) object *ptr;{ call_or_link_closure(VV[357],(void **)&Lnk357,(void **)&Lclptr357);} /* GENERIC-FUNCTION-P */  static void LnkT357(ptr) object *ptr;{ call_or_link_closure(VV[357],(void **)(void *)&Lnk357,(void **)(void *)&Lclptr357);} /* GENERIC-FUNCTION-P */
9704  static object  LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)&LnkLI356,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
9705  static object  LnkTLI355(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[355],(void **)&LnkLI355,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */  static object  LnkTLI355(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[355],(void **)(void *)&LnkLI355,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */
9706  static object  LnkTLI354(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[354],(void **)&LnkLI354,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */  static object  LnkTLI354(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[354],(void **)(void *)&LnkLI354,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */
9707  static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */  static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */
9708  static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* PARSE-DEFMETHOD */  static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* PARSE-DEFMETHOD */
9709  static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* ENSURE-GENERIC-FUNCTION */  static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* ENSURE-GENERIC-FUNCTION */
9710  static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOAD-TRUENAME */  static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* LOAD-TRUENAME */
9711  static object  LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)&LnkLI349,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */  static object  LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
9712  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */
9713  static object  LnkTLI347(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[347],(void **)&LnkLI347,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */  static object  LnkTLI347(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[347],(void **)(void *)&LnkLI347,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */
9714  static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* SET-FUNCTION-NAME */  static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* SET-FUNCTION-NAME */
9715  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)&LnkLI345,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)(void *)&LnkLI345,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */
9716    
9717  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
9718  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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