/[gcl]/gcl/clcs/clcs_restart.c
ViewVC logotype

Diff of /gcl/clcs/clcs_restart.c

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

revision 1.7 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.8 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_restart.h"  #include "clcs_restart.h"
4  void init_clcs_restart(){do_init(VV);}  void init_clcs_restart(){do_init(VV);}
5  /*      local entry for function progn 'compile2186     */  /*      local entry for function progn 'compile2191     */
6    
7  static object LI1()  static object LI1()
8    
# Line 18  TTL:; Line 18  TTL:;
18          base[0]=base[0];          base[0]=base[0];
19          return Cnil;          return Cnil;
20  }  }
21  /*      local entry for function progn 'compile2198     */  /*      local entry for function progn 'compile2203     */
22    
23  static object LI2()  static object LI2()
24    
# Line 41  T3:; Line 41  T3:;
41          base[0]=base[0];          base[0]=base[0];
42          return Cnil;          return Cnil;
43  }  }
44  /*      local entry for function progn 'compile2211     */  /*      local entry for function progn 'compile2216     */
45    
46  static object LI3()  static object LI3()
47    
# Line 52  TTL:; Line 52  TTL:;
52          VMR3(V3)}          VMR3(V3)}
53          return Cnil;          return Cnil;
54  }  }
55  /*      local entry for function progn 'compile2227     */  /*      local entry for function progn 'compile2232     */
56    
57  static object LI4()  static object LI4()
58    
# Line 68  TTL:; Line 68  TTL:;
68          base[0]=base[0];          base[0]=base[0];
69          return Cnil;          return Cnil;
70  }  }
71  /*      local entry for function progn 'compile2239     */  /*      local entry for function progn 'compile2244     */
72    
73  static object LI5()  static object LI5()
74    
# Line 87  T10:; Line 87  T10:;
87          VMR5(V5)}          VMR5(V5)}
88          return Cnil;          return Cnil;
89  }  }
90  /*      local entry for function progn 'compile2252     */  /*      local entry for function progn 'compile2257     */
91    
92  static object LI6()  static object LI6()
93    
# Line 276  T58:; Line 276  T58:;
276          goto T58;}          goto T58;}
277          goto T57;          goto T57;
278  T57:;  T57:;
279          base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5]));          V40 = base[5];
280            base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,V40));
281          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
282          return;}}}          return;}}}
283  }  }
284  /*      local entry for function progn 'compile2353     */  /*      local entry for function progn 'compile2358     */
285    
286  static object LI10()  static object LI10()
287    
# Line 291  TTL:; Line 292  TTL:;
292          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
293          (void) (*Lnk69)();          (void) (*Lnk69)();
294          vs_top=sup;          vs_top=sup;
295          {object V40 = Cnil;          {object V41 = Cnil;
296          VMR10(V40)}          VMR10(V41)}
297          base[0]=base[0];          base[0]=base[0];
298          return Cnil;          return Cnil;
299  }  }
300  /*      local entry for function progn 'compile2365     */  /*      local entry for function progn 'compile2370     */
301    
302  static object LI11()  static object LI11()
303    
# Line 311  T63:; Line 312  T63:;
312          (VV[10]->s.s_dbind)= Cnil;          (VV[10]->s.s_dbind)= Cnil;
313          goto T62;          goto T62;
314  T62:;  T62:;
315          {object V41 = Cnil;          {object V42 = Cnil;
316          VMR11(V41)}          VMR11(V42)}
317          return Cnil;          return Cnil;
318  }  }
319  /*      local entry for function progn 'compile2378     */  /*      local entry for function progn 'compile2383     */
320    
321  static object LI12()  static object LI12()
322    
323  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
324          goto TTL;          goto TTL;
325  TTL:;  TTL:;
326          {object V42 = Cnil;          {object V43 = Cnil;
327          VMR12(V42)}          VMR12(V43)}
328          return Cnil;          return Cnil;
329  }  }
330  /*      local entry for function COMPUTE-RESTARTS       */  /*      local entry for function COMPUTE-RESTARTS       */
# Line 332  static object LI13(object first,...) Line 333  static object LI13(object first,...)
333  {        {      
334          va_list ap;          va_list ap;
335          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
336          {object V43;          {object V44;
337          va_start(ap,first);          va_start(ap,first);
338          narg = narg - 0;          narg = narg - 0;
339          if (narg <= 0) goto T67;          if (narg <= 0) goto T67;
340          else {          else {
341          V43= first;}          V44= first;}
342          --narg; goto T68;          --narg; goto T68;
343          goto T67;          goto T67;
344  T67:;  T67:;
345          V43= Cnil;          V44= Cnil;
346          goto T68;          goto T68;
347  T68:;  T68:;
348          base[1]= (VV[10]->s.s_dbind);          base[1]= (VV[10]->s.s_dbind);
349          {object V45;          {object V46;
350          object V46= base[1];          object V47= base[1];
351          if(V46==Cnil){          if(V47==Cnil){
352          V44= Cnil;          V45= Cnil;
353          goto T70;}          goto T70;}
354          base[0]=V45=MMcons(Cnil,Cnil);          base[0]=V46=MMcons(Cnil,Cnil);
355          goto T71;          goto T71;
356  T71:;  T71:;
357          base[2]= (V46->c.c_car);          base[2]= (V47->c.c_car);
358          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
359          Lcopy_list();          Lcopy_list();
360          vs_top=sup;          vs_top=sup;
361          (V45->c.c_cdr)= vs_base[0];          (V46->c.c_cdr)= vs_base[0];
362          while(MMcdr(V45)!=Cnil)V45=MMcdr(V45);          while(MMcdr(V46)!=Cnil)V46=MMcdr(V46);
363          if((V46=MMcdr(V46))==Cnil){          if((V47=MMcdr(V47))==Cnil){
364          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
365          V44= base[0];          V45= base[0];
366          goto T70;}          goto T70;}
367          goto T71;}          goto T71;}
368          goto T70;          goto T70;
369  T70:;  T70:;
370          V47= (*(LnkLI71))();          V48= (*(LnkLI71))();
371          {object V48 = nconc(V44,/* INLINE-ARGS */V47);          {object V49 = nconc(V45,/* INLINE-ARGS */V48);
372          VMR13(V48)}          VMR13(V49)}
373          va_end(ap);          va_end(ap);
374          base[0]=base[0];          base[0]=base[0];
375          return Cnil;}          return Cnil;}
# Line 379  static void L14() Line 380  static void L14()
380  {register object *base=vs_base;  {register object *base=vs_base;
381          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
382          vs_check;          vs_check;
383          {object V49;          {object V50;
         object V50;  
384          object V51;          object V51;
385          V49=(base[0]);          object V52;
386          V50=(base[1]);          V50=(base[0]);
387          V51=(base[2]);          V51=(base[1]);
388            V52=(base[2]);
389          vs_top=sup;          vs_top=sup;
390          goto TTL;          goto TTL;
391  TTL:;  TTL:;
392          if(((VV[11]->s.s_dbind))==Cnil){          if(((VV[11]->s.s_dbind))==Cnil){
393          goto T75;}          goto T75;}
394          base[3]= (V50);          base[3]= (V51);
395          base[4]= VV[12];          base[4]= VV[12];
396          base[6]= (V49);          base[6]= (V50);
397          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
398          Ltype_of();          Ltype_of();
399          vs_top=sup;          vs_top=sup;
400          base[5]= vs_base[0];          base[5]= vs_base[0];
401          base[6]= (*(LnkLI72))((V49));          base[6]= (*(LnkLI72))((V50));
402          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
403          Lformat();          Lformat();
404          return;          return;
405          goto T75;          goto T75;
406  T75:;  T75:;
407          base[3]= (V49);          base[3]= (V50);
408          base[4]= (V50);          base[4]= (V51);
409          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
410          (void) (*Lnk73)();          (void) (*Lnk73)();
411          return;          return;
412          }          }
413  }  }
414  /*      local entry for function progn 'compile2418     */  /*      local entry for function progn 'compile2423     */
415    
416  static object LI15()  static object LI15()
417    
# Line 434  TTL:; Line 435  TTL:;
435          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
436          (void) (*Lnk74)();          (void) (*Lnk74)();
437          vs_top=sup;          vs_top=sup;
438          {object V52 = Cnil;          {object V53 = Cnil;
439          VMR15(V52)}          VMR15(V53)}
440          base[0]=base[0];          base[0]=base[0];
441          return Cnil;          return Cnil;
442  }  }
# Line 445  static object LI16(object first,...) Line 446  static object LI16(object first,...)
446  {        {      
447          va_list ap;          va_list ap;
448          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
449          {object V53;          {object V54;
         object V54;  
450          object V55;          object V55;
451          object V56;          object V56;
452            object V57;
453          va_start(ap,first);          va_start(ap,first);
454          narg= narg - 0;          narg= narg - 0;
455          {          {
456          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap);
457          V53=(Vcs[0]);          V54=(Vcs[0]);
458          V54=(Vcs[1]);          V55=(Vcs[1]);
459          V55=(Vcs[2]);          V56=(Vcs[2]);
460          V56=(Vcs[3]);          V57=(Vcs[3]);
461          base[0]= VV[13];          base[0]= VV[13];
462          base[1]= (V53);          base[1]= (V54);
463          base[2]= (V54);          base[2]= (V55);
464          base[3]= (V55);          base[3]= (V56);
465          base[4]= (V56);          base[4]= (V57);
466          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
467          siLmake_structure();          siLmake_structure();
468          vs_top=sup;          vs_top=sup;
469          {object V57 = vs_base[0];          {object V58 = vs_base[0];
470          VMR16(V57)}          VMR16(V58)}
471          va_end(ap);          va_end(ap);
472          base[0]=base[0];          base[0]=base[0];
473          return Cnil;}          return Cnil;}
474          }}          }}
475  /*      local entry for function progn 'compile2438     */  /*      local entry for function progn 'compile2443     */
476    
477  static object LI17()  static object LI17()
478    
479  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
480          goto TTL;          goto TTL;
481  TTL:;  TTL:;
482          {object V58 = Cnil;          {object V59 = Cnil;
483          VMR17(V58)}          VMR17(V59)}
484          return Cnil;          return Cnil;
485  }  }
486  /*      local entry for function progn 'compile2454     */  /*      local entry for function progn 'compile2459     */
487    
488  static object LI18()  static object LI18()
489    
# Line 493  TTL:; Line 494  TTL:;
494          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
495          (void) (*Lnk69)();          (void) (*Lnk69)();
496          vs_top=sup;          vs_top=sup;
497          {object V59 = Cnil;          {object V60 = Cnil;
498          VMR18(V59)}          VMR18(V60)}
499          base[0]=base[0];          base[0]=base[0];
500          return Cnil;          return Cnil;
501  }  }
502  /*      local entry for function progn 'compile2466     */  /*      local entry for function progn 'compile2471     */
503    
504  static object LI19()  static object LI19()
505    
# Line 513  T108:; Line 514  T108:;
514          (VV[20]->s.s_dbind)= Cnil;          (VV[20]->s.s_dbind)= Cnil;
515          goto T107;          goto T107;
516  T107:;  T107:;
517          {object V60 = Cnil;          {object V61 = Cnil;
518          VMR19(V60)}          VMR19(V61)}
519          return Cnil;          return Cnil;
520  }  }
521  /*      local entry for function progn 'compile2479     */  /*      local entry for function progn 'compile2484     */
522    
523  static object LI20()  static object LI20()
524    
525  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
526          goto TTL;          goto TTL;
527  TTL:;  TTL:;
528          {object V61 = Cnil;          {object V62 = Cnil;
529          VMR20(V61)}          VMR20(V62)}
530          return Cnil;          return Cnil;
531  }  }
532  /*      local entry for function MAKE-KCL-TOP-RESTART   */  /*      local entry for function MAKE-KCL-TOP-RESTART   */
533    
534  static object LI22(V63)  static object LI22(V64)
535    
536  object V63;  object V64;
537  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
538          goto TTL;          goto TTL;
539  TTL:;  TTL:;
540          base[0]=MMcons((V63),Cnil);          base[0]=MMcons((V64),Cnil);
         V64=  
         make_cclosure_new(LC38,Cnil,base[0],Cdata);  
541          V65=          V65=
542            make_cclosure_new(LC38,Cnil,base[0],Cdata);
543            V66=
544          make_cclosure_new(LC39,Cnil,base[0],Cdata);          make_cclosure_new(LC39,Cnil,base[0],Cdata);
545          {object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil));          {object V67 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V65,VV[24],V66,VV[34],Cnil));
546          VMR21(V66)}          VMR21(V67)}
547          base[0]=base[0];          base[0]=base[0];
548          return Cnil;          return Cnil;
549  }  }
550  /*      local entry for function FIND-KCL-TOP-RESTART   */  /*      local entry for function FIND-KCL-TOP-RESTART   */
551    
552  static object LI23(V68)  static object LI23(V69)
553    
554  object V68;  object V69;
555  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
556          goto TTL;          goto TTL;
557  TTL:;{object V70;  TTL:;{object V71;
558          {register object x= (V68),V71= (VV[20]->s.s_dbind);          {register object x= (V69),V72= (VV[20]->s.s_dbind);
559          while(V71!=Cnil)          while(V72!=Cnil)
560          if(eql(x,V71->c.c_car->c.c_car) &&V71->c.c_car != Cnil){          if(eql(x,V72->c.c_car->c.c_car) &&V72->c.c_car != Cnil){
561          V70= (V71->c.c_car);          V71= (V72->c.c_car);
562          goto T116;          goto T116;
563          }else V71=V71->c.c_cdr;          }else V72=V72->c.c_cdr;
564          V70= Cnil;}          V71= Cnil;}
565          goto T116;          goto T116;
566  T116:;  T116:;
567          if(V70==Cnil)goto T115;          if(V71==Cnil)goto T115;
568          V69= V70;          V70= V71;
569          goto T114;          goto T114;
570          goto T115;          goto T115;
571  T115:;}  T115:;}
572          {object V73;          {object V74;
573          V74= (*(LnkLI75))((V68));          V75 = (V69);
574          V73= make_cons((V68),/* INLINE-ARGS */V74);          V76= (*(LnkLI75))((V69));
575          (VV[20]->s.s_dbind)= make_cons((V73),(VV[20]->s.s_dbind));          V74= make_cons(V75,/* INLINE-ARGS */V76);
576          V72= (VV[20]->s.s_dbind);}          (VV[20]->s.s_dbind)= make_cons((V74),(VV[20]->s.s_dbind));
577          V69= CMPcar(V72);          V73= (VV[20]->s.s_dbind);}
578            V70= CMPcar(V73);
579          goto T114;          goto T114;
580  T114:;  T114:;
581          {object V75 = CMPcdr(V69);          {object V77 = CMPcdr(V70);
582          VMR22(V75)}          VMR22(V77)}
583          base[0]=base[0];          base[0]=base[0];
584          return Cnil;          return Cnil;
585  }  }
# Line 588  static object LI24() Line 590  static object LI24()
590  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
591          goto TTL;          goto TTL;
592  TTL:;  TTL:;
593          {object V76;          {object V78;
594          object V77;          object V79;
595          object V78;          object V80;
596          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
597          {object V79;          {object V81;
598          object V80= base[4];          object V82= base[4];
599          if(V80==Cnil){          if(V82==Cnil){
600          V76= Cnil;          V78= Cnil;
601          goto T120;}          goto T120;}
602          base[3]=V79=MMcons(Cnil,Cnil);          base[3]=V81=MMcons(Cnil,Cnil);
603          goto T121;          goto T121;
604  T121:;  T121:;
605          if((CMPcdr((V80->c.c_car)))==Cnil){          if((CMPcdr((V82->c.c_car)))==Cnil){
606          goto T124;}          goto T124;}
607          (V79->c.c_cdr)= make_cons(CMPcdr((V80->c.c_car)),Cnil);          (V81->c.c_cdr)= make_cons(CMPcdr((V82->c.c_car)),Cnil);
608          goto T122;          goto T122;
609          goto T124;          goto T124;
610  T124:;  T124:;
611          (V79->c.c_cdr)= Cnil;          (V81->c.c_cdr)= Cnil;
612          goto T122;          goto T122;
613  T122:;  T122:;
614          while(MMcdr(V79)!=Cnil)V79=MMcdr(V79);          while(MMcdr(V81)!=Cnil)V81=MMcdr(V81);
615          if((V80=MMcdr(V80))==Cnil){          if((V82=MMcdr(V82))==Cnil){
616          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
617          V76= base[3];          V78= base[3];
618          goto T120;}          goto T120;}
619          goto T121;}          goto T121;}
620          goto T120;          goto T120;
621  T120:;  T120:;
622          if(((VV[25]->s.s_dbind))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
623          goto T128;}          goto T128;}
624          V77= make_cons((VV[25]->s.s_dbind),(V76));          V79= make_cons((VV[25]->s.s_dbind),(V78));
625          goto T126;          goto T126;
626          goto T128;          goto T128;
627  T128:;  T128:;
628          V77= (V76);          V79= (V78);
629          goto T126;          goto T126;
630  T126:;  T126:;
631          {object V82;          {object V84;
632          object V83= (V77);          object V85= (V79);
633          if(V83==Cnil){          if(V85==Cnil){
634          V78= Cnil;          V80= Cnil;
635          goto T130;}          goto T130;}
636          base[3]=V82=MMcons(Cnil,Cnil);          base[3]=V84=MMcons(Cnil,Cnil);
637          goto T131;          goto T131;
638  T131:;  T131:;
639          (V82->c.c_car)= (*(LnkLI76))((V83->c.c_car));          (V84->c.c_car)= (*(LnkLI76))((V85->c.c_car));
640          if((V83=MMcdr(V83))==Cnil){          if((V85=MMcdr(V85))==Cnil){
641          V78= base[3];          V80= base[3];
642          goto T130;}          goto T130;}
643          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          V84=MMcdr(V84)=MMcons(Cnil,Cnil);
644          goto T131;}          goto T131;}
645          goto T130;          goto T130;
646  T130:;  T130:;
647          {object V84;          {object V86;
648          object V85= (V77);          object V87= (V79);
649          object V86= (V78);          object V88= (V80);
650          if(V85==Cnil||V86==Cnil){          if(V87==Cnil||V88==Cnil){
651          (VV[20]->s.s_dbind)= Cnil;          (VV[20]->s.s_dbind)= Cnil;
652          goto T134;}          goto T134;}
653          base[3]=V84=MMcons(Cnil,Cnil);          base[3]=V86=MMcons(Cnil,Cnil);
654          goto T135;          goto T135;
655  T135:;  T135:;
656          (V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car));          (V86->c.c_car)= make_cons((V87->c.c_car),(V88->c.c_car));
657          if((V85=MMcdr(V85))==Cnil||(V86=MMcdr(V86))==Cnil){          if((V87=MMcdr(V87))==Cnil||(V88=MMcdr(V88))==Cnil){
658          (VV[20]->s.s_dbind)= base[3];          (VV[20]->s.s_dbind)= base[3];
659          goto T134;}          goto T134;}
660          V84=MMcdr(V84)=MMcons(Cnil,Cnil);          V86=MMcdr(V86)=MMcons(Cnil,Cnil);
661          goto T135;}          goto T135;}
662          goto T134;          goto T134;
663  T134:;  T134:;
664          {object V87 = (V78);          {object V89 = (V80);
665          VMR23(V87)}}          VMR23(V89)}}
666          base[0]=base[0];          base[0]=base[0];
667          return Cnil;          return Cnil;
668  }  }
# Line 670  static void L25() Line 672  static void L25()
672  {register object *base=vs_base;  {register object *base=vs_base;
673          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
674          vs_check;          vs_check;
675          {object V88;          {object V90;
676          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
677          V88=(base[1]);          V90=(base[1]);
678          vs_top=sup;          vs_top=sup;
679          {object V89;          {object V91;
680          V89= STREF(object,(base[0]->c.c_car),8);          V91= STREF(object,(base[0]->c.c_car),8);
681          if(((V89))==Cnil){          if(((V91))==Cnil){
682          goto T140;}          goto T140;}
683          base[2]= (V89);          base[2]= (V91);
684          goto T137;          goto T137;
685          goto T140;          goto T140;
686  T140:;  T140:;
# Line 688  T140:; Line 690  T140:;
690          make_cclosure_new(LC40,Cnil,base[3],Cdata);}          make_cclosure_new(LC40,Cnil,base[3],Cdata);}
691          goto T137;          goto T137;
692  T137:;  T137:;
693          base[3]= (V88);          base[3]= (V90);
694          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
695          {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))
696                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 704  static void L26() Line 706  static void L26()
706          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
707          vs_check;          vs_check;
708          vs_top=sup;          vs_top=sup;
709          {object V90=base[0]->c.c_cdr;          {object V92=base[0]->c.c_cdr;
710          base[2]= (V90->c.c_car);          base[2]= (V92->c.c_car);
711          V90=V90->c.c_cdr;          V92=V92->c.c_cdr;
712          base[3]= V90;}          base[3]= V92;}
713          {object V92;          {object V94;
714          object V93= base[2];          object V95= base[2];
715          if(V93==Cnil){          if(V95==Cnil){
716          V91= Cnil;          V93= Cnil;
717          goto T144;}          goto T144;}
718          base[4]=V92=MMcons(Cnil,Cnil);          base[4]=V94=MMcons(Cnil,Cnil);
719          goto T145;          goto T145;
720  T145:;  T145:;
721          (V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V93->c.c_car))),VV[23],CMPcadr((V93->c.c_car)),CMPcddr((V93->c.c_car)));          (V94->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V95->c.c_car))),VV[23],CMPcadr((V95->c.c_car)),CMPcddr((V95->c.c_car)));
722          if((V93=MMcdr(V93))==Cnil){          if((V95=MMcdr(V95))==Cnil){
723          V91= base[4];          V93= base[4];
724          goto T144;}          goto T144;}
725          V92=MMcdr(V92)=MMcons(Cnil,Cnil);          V94=MMcdr(V94)=MMcons(Cnil,Cnil);
726          goto T145;}          goto T145;}
727          goto T144;          goto T144;
728  T144:;  T144:;
729          V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10]));          V97= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V93),VV[10]));
730          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]);          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V97,Cnil),base[3]);
731          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
732          return;          return;
733  }  }
734  /*      local entry for function FIND-RESTART   */  /*      local entry for function FIND-RESTART   */
735    
736  static object LI27(object V96,object first,...)  static object LI27(object V98,object first,...)
737  {        {      
738          va_list ap;          va_list ap;
739          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
740          {register object V97;          {register object V99;
741          object V98;          object V100;
742          va_start(ap,first);          va_start(ap,first);
743          V97= V96;          V99= V98;
744          narg = narg - 1;          narg = narg - 1;
745          if (narg <= 0) goto T147;          if (narg <= 0) goto T147;
746          else {          else {
747          V98= first;}          V100= first;}
748          --narg; goto T148;          --narg; goto T148;
749          goto T147;          goto T147;
750  T147:;  T147:;
751          V98= Cnil;          V100= Cnil;
752          goto T148;          goto T148;
753  T148:;  T148:;
754          {register object V99;          {register object V101;
755          object V100;          object V102;
756          V99= (VV[10]->s.s_dbind);          V101= (VV[10]->s.s_dbind);
757          V100= CMPcar((V99));          V102= CMPcar((V101));
758          goto T154;          goto T154;
759  T154:;  T154:;
760          if(!(((V99))==Cnil)){          if(!(((V101))==Cnil)){
761          goto T155;}          goto T155;}
762          goto T150;          goto T150;
763          goto T155;          goto T155;
764  T155:;  T155:;
765          {register object V101;          {register object V103;
766          register object V102;          register object V104;
767          V101= (V100);          V103= (V102);
768          V102= CMPcar((V101));          V104= CMPcar((V103));
769          goto T163;          goto T163;
770  T163:;  T163:;
771          if(!(((V101))==Cnil)){          if(!(((V103))==Cnil)){
772          goto T164;}          goto T164;}
773          goto T159;          goto T159;
774          goto T164;          goto T164;
775  T164:;  T164:;
776          if(((V102))==((V97))){          if(((V104))==((V99))){
777          goto T169;}          goto T169;}
778          if(!((STREF(object,(V102),0))==((V97)))){          if(!((STREF(object,(V104),0))==((V99)))){
779          goto T168;}          goto T168;}
780          goto T169;          goto T169;
781  T169:;  T169:;
782          {object V103 = (V102);          {object V105 = (V104);
783          VMR26(V103)}          VMR26(V105)}
784          goto T168;          goto T168;
785  T168:;  T168:;
786          V101= CMPcdr((V101));          V103= CMPcdr((V103));
787          V102= CMPcar((V101));          V104= CMPcar((V103));
788          goto T163;}          goto T163;}
789          goto T159;          goto T159;
790  T159:;  T159:;
791          V99= CMPcdr((V99));          V101= CMPcdr((V101));
792          V100= CMPcar((V99));          V102= CMPcar((V101));
793          goto T154;}          goto T154;}
794          goto T150;          goto T150;
795  T150:;  T150:;
796          {object V104;          {object V106;
797          V104= (*(LnkLI71))();          V106= (*(LnkLI71))();
798          {register object V105;          {register object V107;
799          register object V106;          register object V108;
800          V105= (V104);          V107= (V106);
801          V106= CMPcar((V105));          V108= CMPcar((V107));
802          goto T187;          goto T187;
803  T187:;  T187:;
804          if(!(((V105))==Cnil)){          if(!(((V107))==Cnil)){
805          goto T188;}          goto T188;}
806          {object V107 = Cnil;          {object V109 = Cnil;
807          VMR26(V107)}          VMR26(V109)}
808          goto T188;          goto T188;
809  T188:;  T188:;
810          if(((V106))==((V97))){          if(((V108))==((V99))){
811          goto T193;}          goto T193;}
812          if(!((STREF(object,(V106),0))==((V97)))){          if(!((STREF(object,(V108),0))==((V99)))){
813          goto T192;}          goto T192;}
814          goto T193;          goto T193;
815  T193:;  T193:;
816          {object V108 = (V106);          {object V110 = (V108);
817          VMR26(V108)}          VMR26(V110)}
818          goto T192;          goto T192;
819  T192:;  T192:;
820          V105= CMPcdr((V105));          V107= CMPcdr((V107));
821          V106= CMPcar((V105));          V108= CMPcar((V107));
822          goto T187;}}          goto T187;}}
823          va_end(ap);          va_end(ap);
824          base[0]=base[0];          base[0]=base[0];
# Line 828  static void L28() Line 830  static void L28()
830  {register object *base=vs_base;  {register object *base=vs_base;
831          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
832          vs_check;          vs_check;
833          {object V109;          {object V111;
834          object V110;          object V112;
835          V109=(base[0]);          V111=(base[0]);
836          vs_base=vs_base+1;          vs_base=vs_base+1;
837          vs_top[0]=Cnil;          vs_top[0]=Cnil;
838          {object *p=vs_top;          {object *p=vs_top;
839           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
840          V110=(base[1]);          V112=(base[1]);
841          vs_top=sup;          vs_top=sup;
842          {object V111;{object V112;          {object V113;{object V114;
843          V112= (VFUN_NARGS=1,(*(LnkLI77))((V109)));          V114= (VFUN_NARGS=1,(*(LnkLI77))((V111)));
844          if(V112==Cnil)goto T203;          if(V114==Cnil)goto T203;
845          V111= V112;          V113= V114;
846          goto T202;          goto T202;
847          goto T203;          goto T203;
848  T203:;}  T203:;}
849          base[2]= VV[40];          base[2]= VV[40];
850          base[3]= (V109);          base[3]= (V111);
851          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
852          (void) (*Lnk70)();          (void) (*Lnk70)();
853          vs_top=sup;          vs_top=sup;
854          V111= vs_base[0];          V113= vs_base[0];
855          goto T202;          goto T202;
856  T202:;  T202:;
857          base[2]= STREF(object,(V111),4);          base[2]= STREF(object,(V113),4);
858          {object V113;          {object V115;
859          V113= (V110);          V115= (V112);
860           vs_top=base+3;           vs_top=base+3;
861           while(V113!=Cnil)           while(V115!=Cnil)
862           {vs_push((V113)->c.c_car);V113=(V113)->c.c_cdr;}           {vs_push((V115)->c.c_car);V115=(V115)->c.c_cdr;}
863          vs_base=base+3;}          vs_base=base+3;}
864          {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))
865                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 872  static void L29() Line 874  static void L29()
874  {register object *base=vs_base;  {register object *base=vs_base;
875          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
876          vs_check;          vs_check;
877          {object V114;          {object V116;
878          V114=(base[0]);          V116=(base[0]);
879          vs_top=sup;          vs_top=sup;
880          goto TTL;          goto TTL;
881  TTL:;  TTL:;
882          {object V115;{object V116;          {object V117;{object V118;
883          V116= (VFUN_NARGS=1,(*(LnkLI77))((V114)));          V118= (VFUN_NARGS=1,(*(LnkLI77))((V116)));
884          if(V116==Cnil)goto T210;          if(V118==Cnil)goto T210;
885          V115= V116;          V117= V118;
886          goto T209;          goto T209;
887          goto T210;          goto T210;
888  T210:;}  T210:;}
889          base[1]= VV[41];          base[1]= VV[41];
890          base[2]= (V114);          base[2]= (V116);
891          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
892          (void) (*Lnk70)();          (void) (*Lnk70)();
893          vs_top=sup;          vs_top=sup;
894          V115= vs_base[0];          V117= vs_base[0];
895          goto T209;          goto T209;
896  T209:;  T209:;
897          base[1]= STREF(object,(V115),4);          base[1]= STREF(object,(V117),4);
898          {object V117;          {object V119;
899          {object V118;          {object V120;
900          V118= STREF(object,(V115),12);          V120= STREF(object,(V117),12);
901          if(((V118))==Cnil){          if(((V120))==Cnil){
902          goto T218;}          goto T218;}
903          vs_base=vs_top;          vs_base=vs_top;
904          {object _funobj = (V118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
905                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
906                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
907                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
908          vs_top=sup;          vs_top=sup;
909          V117= vs_base[0];          V119= vs_base[0];
910          goto T215;          goto T215;
911          goto T218;          goto T218;
912  T218:;  T218:;
913          V117= Cnil;}          V119= Cnil;}
914          goto T215;          goto T215;
915  T215:;  T215:;
916           vs_top=base+2;           vs_top=base+2;
917           while(V117!=Cnil)           while(V119!=Cnil)
918           {vs_push((V117)->c.c_car);V117=(V117)->c.c_cdr;}           {vs_push((V119)->c.c_car);V119=(V119)->c.c_cdr;}
919          vs_base=base+2;}          vs_base=base+2;}
920          {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))
921                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 929  static void L30() Line 931  static void L30()
931          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
932          vs_check;          vs_check;
933          vs_top=sup;          vs_top=sup;
934          {object V119=base[0]->c.c_cdr;          {object V121=base[0]->c.c_cdr;
935          base[2]= (V119->c.c_car);          base[2]= (V121->c.c_car);
936          V119=V119->c.c_cdr;          V121=V121->c.c_cdr;
937          base[3]= V119;}          base[3]= V121;}
938          {object V120;          {object V122;
939          object V121;          object V123;
940          object V122;          object V124;
941          vs_base=vs_top;          vs_base=vs_top;
942          Lgensym();          Lgensym();
943          vs_top=sup;          vs_top=sup;
944          V120= vs_base[0];          V122= vs_base[0];
945          vs_base=vs_top;          vs_base=vs_top;
946          Lgensym();          Lgensym();
947          vs_top=sup;          vs_top=sup;
948          V121= vs_base[0];          V123= vs_base[0];
949          {object V123;          {object V125;
950          object V124= base[3];          object V126= base[3];
951          if(V124==Cnil){          if(V126==Cnil){
952          V122= Cnil;          V124= Cnil;
953          goto T222;}          goto T222;}
954          base[4]=V123=MMcons(Cnil,Cnil);          base[4]=V125=MMcons(Cnil,Cnil);
955          goto T223;          goto T223;
956  T223:;  T223:;
957          {object V126;          {object V128;
958          object V127;          object V129;
959          base[5]= CMPcddr((V124->c.c_car));          base[5]= CMPcddr((V126->c.c_car));
960          base[6]= VV[42];          base[6]= VV[42];
961          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
962          (void) (*Lnk6)();          (void) (*Lnk6)();
963          if(vs_base>=vs_top){vs_top=sup;goto T228;}          if(vs_base>=vs_top){vs_top=sup;goto T228;}
964          V126= vs_base[0];          V128= vs_base[0];
965          vs_base++;          vs_base++;
966          if(vs_base>=vs_top){vs_top=sup;goto T229;}          if(vs_base>=vs_top){vs_top=sup;goto T229;}
967          V127= vs_base[0];          V129= vs_base[0];
968          vs_top=sup;          vs_top=sup;
969          goto T230;          goto T230;
970          goto T228;          goto T228;
971  T228:;  T228:;
972          V126= Cnil;          V128= Cnil;
973          goto T229;          goto T229;
974  T229:;  T229:;
975          V127= Cnil;          V129= Cnil;
976          goto T230;          goto T230;
977  T230:;  T230:;
978          {object V128;          {object V130;
979          object V129;          object V131;
980          base[5]= (V126);          base[5]= (V128);
981          base[6]= VV[43];          base[6]= VV[43];
982          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
983          Lgetf();          Lgetf();
984          vs_top=sup;          vs_top=sup;
985          V128= vs_base[0];          V130= vs_base[0];
986          base[5]= (V126);          base[5]= (V128);
987          base[6]= VV[44];          base[6]= VV[44];
988          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
989          Lgetf();          Lgetf();
990          vs_top=sup;          vs_top=sup;
991          V129= vs_base[0];          V131= vs_base[0];
992          V130= CMPcar((V124->c.c_car));          V132= CMPcar((V126->c.c_car));
993          vs_base=vs_top;          vs_base=vs_top;
994          Lgensym();          Lgensym();
995          vs_top=sup;          vs_top=sup;
996          V131= vs_base[0];          V133= vs_base[0];
997          base[5]= VV[43];          base[5]= VV[43];
998          base[6]= (V128);          base[6]= (V130);
999          base[7]= VV[44];          base[7]= VV[44];
1000          base[8]= (V129);          base[8]= (V131);
1001          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1002          L31(base);          L31(base);
1003          vs_top=sup;          vs_top=sup;
1004          V132= vs_base[0];          V134= vs_base[0];
1005          (V123->c.c_car)= list(5,/* INLINE-ARGS */V130,V131,V132,CMPcadr((V124->c.c_car)),(V127));}}          V135 = (V129);
1006          if((V124=MMcdr(V124))==Cnil){          (V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,CMPcadr((V126->c.c_car)),V135);}}
1007          V122= base[4];          if((V126=MMcdr(V126))==Cnil){
1008            V124= base[4];
1009          goto T222;}          goto T222;}
1010          V123=MMcdr(V123)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
1011          goto T223;}          goto T223;}
1012          goto T222;          goto T222;
1013  T222:;  T222:;
1014          V133= list(2,(V121),Cnil);          V136= list(2,(V123),Cnil);
1015          V134= make_cons(/* INLINE-ARGS */V133,Cnil);          V137= make_cons(/* INLINE-ARGS */V136,Cnil);
1016          {object V136;          {object V139;
1017          object V137= (V122);          object V140= (V124);
1018          if(V137==Cnil){          if(V140==Cnil){
1019          V135= Cnil;          V138= Cnil;
1020          goto T243;}          goto T243;}
1021          base[4]=V136=MMcons(Cnil,Cnil);          base[4]=V139=MMcons(Cnil,Cnil);
1022          goto T244;          goto T244;
1023  T244:;  T244:;
1024          {object V139;          {object V142;
1025          object V140;          object V143;
1026          object V141;          object V144;
1027          V139= CMPcar((V137->c.c_car));          V142= CMPcar((V140->c.c_car));
1028          V140= CMPcadr((V137->c.c_car));          V143= CMPcadr((V140->c.c_car));
1029          V141= CMPcaddr((V137->c.c_car));          V144= CMPcaddr((V140->c.c_car));
1030          V142= list(3,VV[51],(V121),VV[52]);          V145= list(3,VV[51],(V123),VV[52]);
1031          (V136->c.c_car)= listA(3,(V139),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V142,list(2,VV[53],(V140)))),(V141));}          (V139->c.c_car)= listA(3,(V142),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V145,list(2,VV[53],(V143)))),(V144));}
1032          if((V137=MMcdr(V137))==Cnil){          if((V140=MMcdr(V140))==Cnil){
1033          V135= base[4];          V138= base[4];
1034          goto T243;}          goto T243;}
1035          V136=MMcdr(V136)=MMcons(Cnil,Cnil);          V139=MMcdr(V139)=MMcons(Cnil,Cnil);
1036          goto T244;}          goto T244;}
1037          goto T243;          goto T243;
1038  T243:;  T243:;
1039          V143= list(3,VV[47],V135,list(3,VV[54],(V120),base[2]));          V146= list(3,VV[47],V138,list(3,VV[54],(V122),base[2]));
1040          {object V145;          {object V148;
1041          object V146= (V122);          object V149= (V124);
1042          if(V146==Cnil){          if(V149==Cnil){
1043          V144= Cnil;          V147= Cnil;
1044          goto T249;}          goto T249;}
1045          base[4]=V145=MMcons(Cnil,Cnil);          base[4]=V148=MMcons(Cnil,Cnil);
1046          goto T250;          goto T250;
1047  T250:;  T250:;
1048          {object V148;          {object V151;
1049          object V149;          object V152;
1050          object V150;          object V153;
1051          V148= CMPcadr((V146->c.c_car));          V151= CMPcadr((V149->c.c_car));
1052          V149= CMPcadddr((V146->c.c_car));          V152= CMPcadddr((V149->c.c_car));
1053          V150= CMPcar(CMPcddddr((V146->c.c_car)));          V153= CMPcar(CMPcddddr((V149->c.c_car)));
1054          (V145->c.c_cdr)= list(2,(V148),list(3,VV[54],(V120),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V149),(V150))),(V121))));}          (V148->c.c_cdr)= list(2,(V151),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V152),(V153))),(V123))));}
1055          while(MMcdr(V145)!=Cnil)V145=MMcdr(V145);          while(MMcdr(V148)!=Cnil)V148=MMcdr(V148);
1056          if((V146=MMcdr(V146))==Cnil){          if((V149=MMcdr(V149))==Cnil){
1057          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
1058          V144= base[4];          V147= base[4];
1059          goto T249;}          goto T249;}
1060          goto T250;}          goto T250;}
1061          goto T249;          goto T249;
1062  T249:;  T249:;
1063          base[4]= list(3,VV[45],(V120),list(3,VV[8],/* INLINE-ARGS */V134,listA(3,VV[46],/* INLINE-ARGS */V143,V144)));          base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V137,listA(3,VV[46],/* INLINE-ARGS */V146,V147)));
1064          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1065          return;}          return;}
1066  }  }
# Line 1068  static void L32() Line 1071  static void L32()
1071          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1072          vs_check;          vs_check;
1073          vs_top=sup;          vs_top=sup;
1074          {object V151=base[0]->c.c_cdr;          {object V154=base[0]->c.c_cdr;
1075          {object V152= (V151->c.c_car);          {object V155= (V154->c.c_car);
1076          base[2]= (V152->c.c_car);          base[2]= (V155->c.c_car);
1077          V152=V152->c.c_cdr;          V155=V155->c.c_cdr;
1078          base[3]= (V152->c.c_car);          base[3]= (V155->c.c_car);
1079          V152=V152->c.c_cdr;          V155=V155->c.c_cdr;
1080          base[4]= V152;}          base[4]= V155;}
1081          V151=V151->c.c_cdr;          V154=V154->c.c_cdr;
1082          base[5]= V151;}          base[5]= V154;}
1083          V153= make_cons(VV[60],base[5]);          V156= make_cons(VV[60],base[5]);
1084          base[6]= list(3,VV[59],/* INLINE-ARGS */V153,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));          base[6]= list(3,VV[59],/* INLINE-ARGS */V156,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));
1085          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1086          return;          return;
1087  }  }
# Line 1134  static void L36() Line 1137  static void L36()
1137  {register object *base=vs_base;  {register object *base=vs_base;
1138          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1139          vs_check;          vs_check;
1140          {object V154;          {object V157;
1141          V154=(base[0]);          V157=(base[0]);
1142          vs_top=sup;          vs_top=sup;
1143          goto TTL;          goto TTL;
1144  TTL:;  TTL:;
1145          base[1]= VV[67];          base[1]= VV[67];
1146          base[2]= (V154);          base[2]= (V157);
1147          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1148          (void) (*Lnk78)();          (void) (*Lnk78)();
1149          return;          return;
# Line 1152  static void L37() Line 1155  static void L37()
1155  {register object *base=vs_base;  {register object *base=vs_base;
1156          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1157          vs_check;          vs_check;
1158          {object V155;          {object V158;
1159          V155=(base[0]);          V158=(base[0]);
1160          vs_top=sup;          vs_top=sup;
1161          goto TTL;          goto TTL;
1162  TTL:;  TTL:;
1163          base[1]= VV[68];          base[1]= VV[68];
1164          base[2]= (V155);          base[2]= (V158);
1165          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1166          (void) (*Lnk78)();          (void) (*Lnk78)();
1167          return;          return;
# Line 1171  register object *base0; Line 1174  register object *base0;
1174  {       register object *base=vs_base;  {       register object *base=vs_base;
1175          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
1176          vs_check;          vs_check;
1177          {register object V156;          {register object V159;
1178          object V157;          object V160;
1179          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);
1180          vs_top=sup;          vs_top=sup;
1181          V156=(base[0]);          V159=(base[0]);
1182          V157=(base[1]);          V160=(base[1]);
1183          {register object V158;          {register object V161;
1184          V158= Cnil;          V161= Cnil;
1185          if(((V156))==Cnil){          if(((V159))==Cnil){
1186          goto T264;}          goto T264;}
1187          if(!(type_of((V156))==t_string)){          if(!(type_of((V159))==t_string)){
1188          goto T270;}          goto T270;}
1189          V159= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V156),VV[58])));          V162= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V159),VV[58])));
1190          goto T268;          goto T268;
1191          goto T270;          goto T270;
1192  T270:;  T270:;
1193          V159= list(2,VV[48],(V156));          V162= list(2,VV[48],(V159));
1194          goto T268;          goto T268;
1195  T268:;  T268:;
1196          V158= listA(3,V159,VV[24],(V158));          V163 = (V161);
1197            V161= listA(3,V162,VV[24],V163);
1198          goto T264;          goto T264;
1199  T264:;  T264:;
1200          if(((V157))==Cnil){          if(((V160))==Cnil){
1201          goto T272;}          goto T272;}
1202          V158= listA(3,list(2,VV[48],(V157)),VV[34],(V158));          V161= listA(3,list(2,VV[48],(V160)),VV[34],(V161));
1203          goto T272;          goto T272;
1204  T272:;  T272:;
1205          base[4]= nreverse((V158));          base[4]= nreverse((V161));
1206          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1207          return;}          return;}
1208          }          }
# Line 1210  register object *base0; Line 1214  register object *base0;
1214  {       register object *base=vs_base;  {       register object *base=vs_base;
1215          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
1216          vs_check;          vs_check;
1217          {object V160;          {object V164;
1218          V160=(base[0]);          V164=(base[0]);
1219          vs_top=sup;          vs_top=sup;
1220          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
1221          goto T277;}          goto T277;}
1222          base[1]= (V160);          base[1]= (V164);
1223          base[2]= VV[35];          base[2]= VV[35];
1224          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
1225          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 1223  register object *base0; Line 1227  register object *base0;
1227          return;          return;
1228          goto T277;          goto T277;
1229  T277:;  T277:;
1230          base[1]= (V160);          base[1]= (V164);
1231          base[2]= VV[36];          base[2]= VV[36];
1232          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1233          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 1238  register object *base0; Line 1242  register object *base0;
1242  {       register object *base=vs_base;  {       register object *base=vs_base;
1243          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
1244          vs_check;          vs_check;
1245          {object V161;          {object V165;
1246          V161=(base[0]);          V165=(base[0]);
1247          vs_top=sup;          vs_top=sup;
1248          {object V162;          {object V166;
1249          if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){          if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){
1250          goto T287;}          goto T287;}
1251          V162= (VV[26]->s.s_dbind);          V166= (VV[26]->s.s_dbind);
1252          goto T285;          goto T285;
1253          goto T287;          goto T287;
1254  T287:;{object V164;  T287:;{object V168;
1255          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1256          base[2]= (VV[27]->s.s_dbind);          base[2]= (VV[27]->s.s_dbind);
1257          base[3]= VV[28];          base[3]= VV[28];
# Line 1255  T287:;{object V164; Line 1259  T287:;{object V164;
1259          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1260          (void) (*Lnk80)();          (void) (*Lnk80)();
1261          vs_top=sup;          vs_top=sup;
1262          V164= vs_base[0];          V168= vs_base[0];
1263          if(V164==Cnil)goto T290;          if(V168==Cnil)goto T290;
1264          V163= V164;          V167= V168;
1265          goto T289;          goto T289;
1266          goto T290;          goto T290;
1267  T290:;}  T290:;}
1268          V163= VV[29];          V167= VV[29];
1269          goto T289;          goto T289;
1270  T289:;  T289:;
1271          V162= CMPcar(V163);          V166= CMPcar(V167);
1272          goto T285;          goto T285;
1273  T285:;  T285:;
1274          if(!(((V162))==(VV[30]))){          if(!(((V166))==(VV[30]))){
1275          goto T297;}          goto T297;}
1276          base[1]= (V161);          base[1]= (V165);
1277          base[2]= VV[31];          base[2]= VV[31];
1278          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1279          Lformat();          Lformat();
1280          return;          return;
1281          goto T297;          goto T297;
1282  T297:;  T297:;
1283          if(((V162))!=Cnil){          if(((V166))!=Cnil){
1284          goto T302;}          goto T302;}
1285          base[1]= (V161);          base[1]= (V165);
1286          base[2]= VV[32];          base[2]= VV[32];
1287          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1288          Lformat();          Lformat();
1289          return;          return;
1290          goto T302;          goto T302;
1291  T302:;  T302:;
1292          base[1]= (V161);          base[1]= (V165);
1293          base[2]= VV[33];          base[2]= VV[33];
1294          base[3]= CMPmake_fixnum((long)length((V162)));          base[3]= CMPmake_fixnum((long)length((V166)));
1295          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1296          Lformat();          Lformat();
1297          return;}          return;}
# Line 1302  register object *base0; Line 1306  register object *base0;
1306          vs_check;          vs_check;
1307          vs_top=sup;          vs_top=sup;
1308          {frame_ptr fr;          {frame_ptr fr;
1309          V165= make_cons((base0[0]->c.c_car),Cnil);          V169= make_cons((base0[0]->c.c_car),Cnil);
1310          base[0]= CMPcar(/* INLINE-ARGS */V165);          base[0]= CMPcar(/* INLINE-ARGS */V169);
1311          fr=frs_sch_catch(base[0]);          fr=frs_sch_catch(base[0]);
1312          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);
1313          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);

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

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