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

Diff of /gcl/pcl/pcl_low.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Thu Oct 23 15:30:19 2003 UTC
# Line 274  TTL:; Line 274  TTL:;
274          vs_top=sup;          vs_top=sup;
275          {register object V38;          {register object V38;
276          V38= (*(LnkLI73))((V35));          V38= (*(LnkLI73))((V35));
277          V39 = (V38);          V39= (VFUN_NARGS=2,(*(LnkLI74))(VV[25],Cnil));
278          V40= (VFUN_NARGS=2,(*(LnkLI74))(VV[25],Cnil));          if(((V38))==(/* INLINE-ARGS */V39)){
         if((V39)==(/* INLINE-ARGS */V40)){  
279          goto T12;}          goto T12;}
280          V41 = (V38);          V40= (VFUN_NARGS=2,(*(LnkLI74))(VV[26],Cnil));
281          V42= (VFUN_NARGS=2,(*(LnkLI74))(VV[26],Cnil));          if(((V38))==(/* INLINE-ARGS */V40)){
         if((V41)==(/* INLINE-ARGS */V42)){  
282          goto T12;}          goto T12;}
283          V43 = (V38);          V41= (VFUN_NARGS=2,(*(LnkLI74))(VV[27],Cnil));
284          V44= (VFUN_NARGS=2,(*(LnkLI74))(VV[27],Cnil));          if(!(((V38))==(/* INLINE-ARGS */V41))){
         if(!((V43)==(/* INLINE-ARGS */V44))){  
285          goto T13;}          goto T13;}
286          goto T12;          goto T12;
287  T12:;  T12:;
# Line 317  T10:; Line 314  T10:;
314          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
315          Lformat();          Lformat();
316          vs_top=sup;          vs_top=sup;
317          {object V45 = vs_base[0];          {object V42 = vs_base[0];
318          VMR14(V45)}          VMR14(V42)}
319          base[0]=base[0];          base[0]=base[0];
320          return Cnil;          return Cnil;
321  }  }
# Line 330  static void L15() Line 327  static void L15()
327          vs_check;          vs_check;
328          check_arg(2);          check_arg(2);
329          vs_top=sup;          vs_top=sup;
330          {object V46=base[0]->c.c_cdr;          {object V43=base[0]->c.c_cdr;
331          if(endp(V46))invalid_macro_call();          if(endp(V43))invalid_macro_call();
332          base[2]= (V46->c.c_car);          base[2]= (V43->c.c_car);
333          V46=V46->c.c_cdr;          V43=V43->c.c_cdr;
334          if(!endp(V46))invalid_macro_call();}          if(!endp(V43))invalid_macro_call();}
335          base[3]= listA(3,VV[32],base[2],VV[33]);          base[3]= listA(3,VV[32],base[2],VV[33]);
336          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
337          return;          return;
# Line 347  static void L16() Line 344  static void L16()
344          vs_check;          vs_check;
345          check_arg(2);          check_arg(2);
346          vs_top=sup;          vs_top=sup;
347          {object V47=base[0]->c.c_cdr;          {object V44=base[0]->c.c_cdr;
348          if(endp(V47))invalid_macro_call();          if(endp(V44))invalid_macro_call();
349          base[2]= (V47->c.c_car);          base[2]= (V44->c.c_car);
350          V47=V47->c.c_cdr;          V44=V44->c.c_cdr;
351          if(!endp(V47))invalid_macro_call();}          if(!endp(V44))invalid_macro_call();}
352          base[3]= list(2,VV[34],list(2,VV[17],base[2]));          base[3]= list(2,VV[34],list(2,VV[17],base[2]));
353          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
354          return;          return;
355  }  }
356  /*      local entry for function FUNCTION-PRETTY-ARGLIST        */  /*      local entry for function FUNCTION-PRETTY-ARGLIST        */
357    
358  static object LI17(V49)  static object LI17(V46)
359    
360  object V49;  object V46;
361  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
362          goto TTL;          goto TTL;
363  TTL:;  TTL:;
364          {object V50 = Cnil;          {object V47 = Cnil;
365          VMR17(V50)}          VMR17(V47)}
366          return Cnil;          return Cnil;
367  }  }
368  /*      local entry for function SET-FUNCTION-PRETTY-ARGLIST    */  /*      local entry for function SET-FUNCTION-PRETTY-ARGLIST    */
369    
370  static object LI18(V53,V54)  static object LI18(V50,V51)
371    
372  object V53;object V54;  object V50;object V51;
373  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
374          goto TTL;          goto TTL;
375  TTL:;  TTL:;
376          {object V55 = (V54);          {object V52 = (V51);
377          VMR18(V55)}          VMR18(V52)}
378          return Cnil;          return Cnil;
379  }  }
380  /*      function definition for SET-FUNCTION-NAME       */  /*      function definition for SET-FUNCTION-NAME       */
# Line 386  static void L19() Line 383  static void L19()
383  {register object *base=vs_base;  {register object *base=vs_base;
384          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
385          vs_check;          vs_check;
386          {object V56;          {object V53;
387          object V57;          object V54;
388          check_arg(2);          check_arg(2);
389          V56=(base[0]);          V53=(base[0]);
390          V57=(base[1]);          V54=(base[1]);
391          vs_top=sup;          vs_top=sup;
392          goto TTL;          goto TTL;
393  TTL:;  TTL:;
394          base[2]=(VV[77]->s.s_gfdef);          base[2]=(VV[77]->s.s_gfdef);
395          base[3]= (V56);          base[3]= (V53);
396          base[5]= (V57);          base[5]= (V54);
397          base[4]= simple_symlispcall(VV[78],base+5,1);          base[4]= simple_symlispcall(VV[78],base+5,1);
398          base[5]= (V57);          base[5]= (V54);
399          lispcall(base+2,3);          lispcall(base+2,3);
400          return;          return;
401          }          }
402  }  }
403  /*      local entry for function SET-FUNCTION-NAME-1    */  /*      local entry for function SET-FUNCTION-NAME-1    */
404    
405  static object LI20(V61,V62,V63)  static object LI20(V58,V59,V60)
406    
407  object V61;object V62;object V63;  object V58;object V59;object V60;
408  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
409          goto TTL;          goto TTL;
410  TTL:;  TTL:;
411          {object V64 = (V61);          {object V61 = (V58);
412          VMR20(V64)}          VMR20(V61)}
413          return Cnil;          return Cnil;
414  }  }
415  /*      local entry for function INTERN-FUNCTION-NAME   */  /*      local entry for function INTERN-FUNCTION-NAME   */
416    
417  static object LI21(V66)  static object LI21(V63)
418    
419  register object V66;  register object V63;
420  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
421          bds_check;          bds_check;
422          goto TTL;          goto TTL;
423  TTL:;  TTL:;
424          if(!(type_of((V66))==t_symbol)){          if(!(type_of((V63))==t_symbol)){
425          goto T37;}          goto T37;}
426          {object V67 = (V66);          {object V64 = (V63);
427          VMR21(V67)}          VMR21(V64)}
428          goto T37;          goto T37;
429  T37:;  T37:;
430          if(!(type_of((V66))==t_cons||((V66))==Cnil)){          if(!(type_of((V63))==t_cons||((V63))==Cnil)){
431          goto T40;}          goto T40;}
432          bds_bind(VV[35],(VV[36]->s.s_dbind));          bds_bind(VV[35],(VV[36]->s.s_dbind));
433          bds_bind(VV[37],VV[38]);          bds_bind(VV[37],VV[38]);
# Line 438  T37:; Line 435  T37:;
435          bds_bind(VV[40],Ct);          bds_bind(VV[40],Ct);
436          base[5]= Cnil;          base[5]= Cnil;
437          base[6]= VV[41];          base[6]= VV[41];
438          base[7]= (V66);          base[7]= (V63);
439          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
440          Lformat();          Lformat();
441          vs_top=sup;          vs_top=sup;
# Line 451  T37:; Line 448  T37:;
448          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
449          Lintern();          Lintern();
450          vs_top=sup;          vs_top=sup;
451          {object V68 = vs_base[0];          {object V65 = vs_base[0];
452          VMR21(V68)}          VMR21(V65)}
453          goto T40;          goto T40;
454  T40:;  T40:;
455          {object V69 = Cnil;          {object V66 = Cnil;
456          VMR21(V69)}          VMR21(V66)}
457          base[0]=base[0];          base[0]=base[0];
458          return Cnil;          return Cnil;
459  }  }
# Line 467  static object LI22() Line 464  static object LI22()
464  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
465          goto TTL;          goto TTL;
466  TTL:;  TTL:;
467          {object V70 = (VV[42]->s.s_dbind);          {object V67 = (VV[42]->s.s_dbind);
468          VMR22(V70)}          VMR22(V67)}
469          return Cnil;          return Cnil;
470  }  }
471  /*      function definition for COMPILE-LAMBDA  */  /*      function definition for COMPILE-LAMBDA  */
# Line 477  static void L23() Line 474  static void L23()
474  {register object *base=vs_base;  {register object *base=vs_base;
475          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
476          vs_check;          vs_check;
477          {register object V71;          {register object V68;
478          object V72;          object V69;
479          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
480          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
481          V71=(base[0]);          V68=(base[0]);
482          vs_base=vs_base+1;          vs_base=vs_base+1;
483          if(vs_base>=vs_top){vs_top=sup;goto T47;}          if(vs_base>=vs_top){vs_top=sup;goto T47;}
484          V72=(base[1]);          V69=(base[1]);
485          vs_top=sup;          vs_top=sup;
486          goto T48;          goto T48;
487          goto T47;          goto T47;
488  T47:;  T47:;
489          V72= VV[43];          V69= VV[43];
490          goto T48;          goto T48;
491  T48:;  T48:;
492          if(((VV[44]->s.s_dbind))==Cnil){          if(((VV[44]->s.s_dbind))==Cnil){
# Line 501  T48:; Line 498  T48:;
498  T50:;  T50:;
499          if(((VV[45]->s.s_dbind))!=Cnil){          if(((VV[45]->s.s_dbind))!=Cnil){
500          goto T54;}          goto T54;}
501          base[2]= (*(LnkLI80))((V71));          base[2]= (*(LnkLI80))((V68));
502          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
503          return;          return;
504          goto T54;          goto T54;
# Line 510  T54:; Line 507  T54:;
507          goto T57;}          goto T57;}
508          if(((*(LnkLI81))())==Cnil){          if(((*(LnkLI81))())==Cnil){
509          goto T57;}          goto T57;}
510          base[2]= (*(LnkLI82))((V71));          base[2]= (*(LnkLI82))((V68));
511          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
512          return;          return;
513          goto T57;          goto T57;
514  T57:;  T57:;
515          if(!(((V72))==(VV[43]))){          if(!(((V69))==(VV[43]))){
516          goto T62;}          goto T62;}
517          base[2]= Cnil;          base[2]= Cnil;
518          base[3]= (V71);          base[3]= (V68);
519          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
520          (void) (*Lnk83)();          (void) (*Lnk83)();
521          return;          return;
522          goto T62;          goto T62;
523  T62:;  T62:;
524          if(!(((V72))==(VV[47]))){          if(!(((V69))==(VV[47]))){
525          goto T67;}          goto T67;}
526          {register object x= (VV[48]->s.s_dbind),V73= VV[49];          {register object x= (VV[48]->s.s_dbind),V70= VV[49];
527          while(V73!=Cnil)          while(V70!=Cnil)
528          if(eql(x,V73->c.c_car)){          if(eql(x,V70->c.c_car)){
529          goto T70;          goto T70;
530          }else V73=V73->c.c_cdr;          }else V70=V70->c.c_cdr;
531          goto T67;}          goto T67;}
532          goto T70;          goto T70;
533  T70:;  T70:;
534          base[2]= Cnil;          base[2]= Cnil;
535          base[3]= (V71);          base[3]= (V68);
536          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
537          (void) (*Lnk83)();          (void) (*Lnk83)();
538          return;          return;
539          goto T67;          goto T67;
540  T67:;  T67:;
541          if(!(((V72))==(VV[50]))){          if(!(((V69))==(VV[50]))){
542          goto T74;}          goto T74;}
543          if(!(((VV[48]->s.s_dbind))==(VV[43]))){          if(!(((VV[48]->s.s_dbind))==(VV[43]))){
544          goto T74;}          goto T74;}
545          base[2]= Cnil;          base[2]= Cnil;
546          base[3]= (V71);          base[3]= (V68);
547          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
548          (void) (*Lnk83)();          (void) (*Lnk83)();
549          return;          return;
550          goto T74;          goto T74;
551  T74:;  T74:;
552          base[2]= (*(LnkLI80))((V71));          base[2]= (*(LnkLI80))((V68));
553          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
554          return;          return;
555          }          }
556  }  }
557  /*      local entry for function COMPILE-LAMBDA-UNCOMPILED      */  /*      local entry for function COMPILE-LAMBDA-UNCOMPILED      */
558    
559  static object LI25(V75)  static object LI25(V72)
560    
561  object V75;  object V72;
562  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
563          goto TTL;          goto TTL;
564  TTL:;  TTL:;
565          base[0]=MMcons((V75),Cnil);          base[0]=MMcons((V72),Cnil);
566          {object V76 =          {object V73 =
567          make_cclosure_new(LC45,Cnil,base[0],Cdata);          make_cclosure_new(LC45,Cnil,base[0],Cdata);
568          VMR24(V76)}          VMR24(V73)}
569          base[0]=base[0];          base[0]=base[0];
570          return Cnil;          return Cnil;
571  }  }
572  /*      local entry for function COMPILE-LAMBDA-DEFERRED        */  /*      local entry for function COMPILE-LAMBDA-DEFERRED        */
573    
574  static object LI27(V78)  static object LI27(V75)
575    
576  object V78;  object V75;
577  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
578          goto TTL;          goto TTL;
579  TTL:;  TTL:;
580          base[0]=MMcons((V78),Cnil);          base[0]=MMcons((V75),Cnil);
581          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
582          base[4]= VV[51];          base[4]= VV[51];
583          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 589  TTL:; Line 586  TTL:;
586          base[1]= vs_base[0];          base[1]= vs_base[0];
587          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
588          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
589          {object V79 =          {object V76 =
590          make_cclosure_new(LC46,Cnil,base[2],Cdata);          make_cclosure_new(LC46,Cnil,base[2],Cdata);
591          VMR25(V79)}          VMR25(V76)}
592          base[0]=base[0];          base[0]=base[0];
593          return Cnil;          return Cnil;
594  }  }
# Line 603  static void L28() Line 600  static void L28()
600          vs_check;          vs_check;
601          check_arg(2);          check_arg(2);
602          vs_top=sup;          vs_top=sup;
603          {object V80=base[0]->c.c_cdr;          {object V77=base[0]->c.c_cdr;
604          if(endp(V80)){          if(endp(V77)){
605          base[2]= Cnil;          base[2]= Cnil;
606          } else {          } else {
607          base[2]= (V80->c.c_car);          base[2]= (V77->c.c_car);
608          V80=V80->c.c_cdr;}          V77=V77->c.c_cdr;}
609          if(!endp(V80))invalid_macro_call();}          if(!endp(V77))invalid_macro_call();}
610          V81= list(2,VV[53],base[2]);          V78= list(2,VV[53],base[2]);
611          V82= list(2,VV[54],base[2]);          V79= list(2,VV[54],base[2]);
612          base[3]= list(6,VV[10],VV[52],/* INLINE-ARGS */V81,/* INLINE-ARGS */V82,list(2,VV[55],base[2]),VV[56]);          base[3]= list(6,VV[10],VV[52],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,list(2,VV[55],base[2]),VV[56]);
613          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
614          return;          return;
615  }  }
616  /*      local entry for function RECORD-DEFINITION      */  /*      local entry for function RECORD-DEFINITION      */
617    
618  static object LI29(object V84,object V83,object first,...)  static object LI29(object V81,object V80,object first,...)
619  {        {      
620          va_list ap;          va_list ap;
621          int narg = VFUN_NARGS; VMB27 VMS27 VMV27          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
622          {object V85;          {object V82;
623          object V86;          object V83;
624          object V87;          object V84;
625          va_start(ap,first);          va_start(ap,first);
626          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
627          V85= V84;          V82= V81;
628          V86= V83;          V83= V80;
629          narg= narg - 2;          narg= narg - 2;
630          V88 = list_vector_new(narg,first,ap);          V85 = list_vector_new(narg,first,ap);
631          V87= V88;          V84= V85;
632          {object V89 = Cnil;          {object V86 = Cnil;
633          VMR27(V89)}          VMR27(V86)}
634          va_end(ap);          va_end(ap);
635          return Cnil;}          return Cnil;}
636          }          }
637  /*      local entry for function DOCTOR-DFUN-FOR-THE-DEBUGGER   */  /*      local entry for function DOCTOR-DFUN-FOR-THE-DEBUGGER   */
638    
639  static object LI30(V92,V93)  static object LI30(V89,V90)
640    
641  object V92;object V93;  object V89;object V90;
642  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
643          goto TTL;          goto TTL;
644  TTL:;  TTL:;
645          {object V94 = (V93);          {object V91 = (V90);
646          VMR28(V94)}          VMR28(V91)}
647          return Cnil;          return Cnil;
648  }  }
649  /*      macro definition for BUILT-IN-OR-STRUCTURE-WRAPPER      */  /*      macro definition for BUILT-IN-OR-STRUCTURE-WRAPPER      */
# Line 657  static void L31() Line 654  static void L31()
654          vs_check;          vs_check;
655          check_arg(2);          check_arg(2);
656          vs_top=sup;          vs_top=sup;
657          {object V95=base[0]->c.c_cdr;          {object V92=base[0]->c.c_cdr;
658          if(endp(V95))invalid_macro_call();          if(endp(V92))invalid_macro_call();
659          base[2]= (V95->c.c_car);          base[2]= (V92->c.c_car);
660          V95=V95->c.c_cdr;          V92=V92->c.c_cdr;
661          if(!endp(V95))invalid_macro_call();}          if(!endp(V92))invalid_macro_call();}
662          {object V96;          {object V93;
663          object V97;          object V94;
664          object V98;          object V95;
665          V96= Cnil;          V93= Cnil;
666          V97= Cnil;          V94= Cnil;
667          {register object V99;          {register object V96;
668          if(type_of(base[2])==t_symbol){          if(type_of(base[2])==t_symbol){
669          goto T88;}          goto T88;}
670          if(type_of(base[2])==t_fixnum||          if(type_of(base[2])==t_fixnum||
# Line 679  type_of(base[2])==t_complex){ Line 676  type_of(base[2])==t_complex){
676          goto T88;}          goto T88;}
677          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){          if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){
678          goto T89;}          goto T89;}
679          {register object x= CMPcar(base[2]),V100= VV[57];          {register object x= CMPcar(base[2]),V97= VV[57];
680          while(V100!=Cnil)          while(V97!=Cnil)
681          if(eql(x,V100->c.c_car)){          if(eql(x,V97->c.c_car)){
682          goto T96;          goto T96;
683          }else V100=V100->c.c_cdr;          }else V97=V97->c.c_cdr;
684          goto T89;}          goto T89;}
685          goto T96;          goto T96;
686  T96:;  T96:;
687          goto T88;          goto T88;
688  T88:;  T88:;
689          V99= base[2];          V96= base[2];
690          goto T87;          goto T87;
691          goto T89;          goto T89;
692  T89:;  T89:;
693          {object V101;          {object V98;
694          vs_base=vs_top;          vs_base=vs_top;
695          Lgensym();          Lgensym();
696          vs_top=sup;          vs_top=sup;
697          V101= vs_base[0];          V98= vs_base[0];
698          V96= make_cons(V101,(V96));          V93= make_cons(V98,(V93));
699          V97= make_cons(base[2],(V97));          V94= make_cons(base[2],(V94));
700          V99= (V101);}          V96= (V98);}
701          goto T87;          goto T87;
702  T87:;  T87:;
703          if(((*(LnkLI85))())==Cnil){          if(((*(LnkLI85))())==Cnil){
704          goto T103;}          goto T103;}
705          V104= list(2,VV[59],(V99));          V101= list(2,VV[59],(V96));
706          V105= list(2,VV[60],(V99));          V102= list(2,VV[60],(V96));
707          V106= list(2,VV[61],(V99));          V103= list(2,VV[61],(V96));
708          V107= listA(3,VV[58],(V99),VV[62]);          V104= listA(3,VV[58],(V96),VV[62]);
709          V98= list(4,VV[58],/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,list(4,VV[58],/* INLINE-ARGS */V106,/* INLINE-ARGS */V107,list(2,VV[63],(V99))));          V95= list(4,VV[58],/* INLINE-ARGS */V101,/* INLINE-ARGS */V102,list(4,VV[58],/* INLINE-ARGS */V103,/* INLINE-ARGS */V104,list(2,VV[63],(V96))));
710          goto T86;          goto T86;
711          goto T103;          goto T103;
712  T103:;  T103:;
713          V108= list(2,VV[61],(V99));          V105= list(2,VV[61],(V96));
714          V109= list(3,VV[65],/* INLINE-ARGS */V108,listA(3,VV[58],(V99),VV[66]));          V106= list(3,VV[65],/* INLINE-ARGS */V105,listA(3,VV[58],(V96),VV[66]));
715          V98= list(3,VV[64],/* INLINE-ARGS */V109,list(2,VV[67],(V99)));}          V95= list(3,VV[64],/* INLINE-ARGS */V106,list(2,VV[67],(V96)));}
716          goto T86;          goto T86;
717  T86:;  T86:;
718          V114= reverse((V96));          V111= reverse((V93));
719          V115= reverse((V97));          V112= reverse((V94));
720          {object V111;          {object V108;
721          object V112= /* INLINE-ARGS */V114;          object V109= /* INLINE-ARGS */V111;
722          object V113= /* INLINE-ARGS */V115;          object V110= /* INLINE-ARGS */V112;
723          if(V112==Cnil||V113==Cnil){          if(V109==Cnil||V110==Cnil){
724          V110= Cnil;          V107= Cnil;
725          goto T105;}          goto T105;}
726          base[4]=V111=MMcons(Cnil,Cnil);          base[4]=V108=MMcons(Cnil,Cnil);
727          goto T106;          goto T106;
728  T106:;  T106:;
729          (V111->c.c_car)= list(2,(V112->c.c_car),(V113->c.c_car));          (V108->c.c_car)= list(2,(V109->c.c_car),(V110->c.c_car));
730          if((V112=MMcdr(V112))==Cnil||(V113=MMcdr(V113))==Cnil){          if((V109=MMcdr(V109))==Cnil||(V110=MMcdr(V110))==Cnil){
731          V110= base[4];          V107= base[4];
732          goto T105;}          goto T105;}
733          V111=MMcdr(V111)=MMcons(Cnil,Cnil);          V108=MMcdr(V108)=MMcons(Cnil,Cnil);
734          goto T106;}          goto T106;}
735          goto T105;          goto T105;
736  T105:;  T105:;
737          V116 = (V98);          base[4]= list(3,VV[68],V107,(V95));
         base[4]= list(3,VV[68],V110,V116);  
738          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
739          return;}          return;}
740  }  }
# Line 750  static void L32() Line 746  static void L32()
746          vs_check;          vs_check;
747          check_arg(2);          check_arg(2);
748          vs_top=sup;          vs_top=sup;
749          {object V117=base[0]->c.c_cdr;          {object V113=base[0]->c.c_cdr;
750          if(endp(V117))invalid_macro_call();          if(endp(V113))invalid_macro_call();
751          base[2]= (V117->c.c_car);          base[2]= (V113->c.c_car);
752          V117=V117->c.c_cdr;          V113=V113->c.c_cdr;
753          if(!endp(V117))invalid_macro_call();}          if(!endp(V113))invalid_macro_call();}
754          V118= list(2,VV[16],base[2]);          V114= list(2,VV[16],base[2]);
755          V119= list(2,/* INLINE-ARGS */V118,list(2,VV[17],base[2]));          V115= list(2,/* INLINE-ARGS */V114,list(2,VV[17],base[2]));
756          V120= list(2,VV[18],base[2]);          V116= list(2,VV[18],base[2]);
757          V121= list(2,/* INLINE-ARGS */V120,list(2,VV[19],base[2]));          V117= list(2,/* INLINE-ARGS */V116,list(2,VV[19],base[2]));
758          base[3]= list(4,VV[15],/* INLINE-ARGS */V119,/* INLINE-ARGS */V121,list(2,Ct,list(2,VV[69],base[2])));          base[3]= list(4,VV[15],/* INLINE-ARGS */V115,/* INLINE-ARGS */V117,list(2,Ct,list(2,VV[69],base[2])));
759          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
760          return;          return;
761  }  }
762  /*      local entry for function DECLARE-STRUCTURE      */  /*      local entry for function DECLARE-STRUCTURE      */
763    
764  static object LI33(V125,V126,V127)  static object LI33(V121,V122,V123)
765    
766  object V125;object V126;object V127;  object V121;object V122;object V123;
767  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
768          goto TTL;          goto TTL;
769  TTL:;  TTL:;
770          {object V129;          {object V125;
771          object V130;          object V126;
772          V129= (VV[70]->s.s_dbind);          V125= (VV[70]->s.s_dbind);
773          V130= make_cons((V126),(V127));          V126= make_cons((V122),(V123));
774          base[1]= V125;          base[1]= V121;
775          base[2]= (V129);          base[2]= (V125);
776          base[3]= (V130);          base[3]= (V126);
777          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
778          siLhash_set();          siLhash_set();
779          vs_top=sup;          vs_top=sup;
780          {object V131 = vs_base[0];          {object V127 = vs_base[0];
781          VMR31(V131)}}          VMR31(V127)}}
782          base[0]=base[0];          base[0]=base[0];
783          return Cnil;          return Cnil;
784  }  }
785  /*      local entry for function DEFAULT-STRUCTUREP     */  /*      local entry for function DEFAULT-STRUCTUREP     */
786    
787  static object LI34(V133)  static object LI34(V129)
788    
789  object V133;  object V129;
790  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
791          goto TTL;          goto TTL;
792  TTL:;  TTL:;
793          base[0]= (V133);          base[0]= (V129);
794          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
795          Ltype_of();          Ltype_of();
796          vs_top=sup;          vs_top=sup;
797          V134= vs_base[0];          V130= vs_base[0];
798          {object V135 = (*(LnkLI86))(V134);          {object V131 = (*(LnkLI86))(V130);
799          VMR32(V135)}          VMR32(V131)}
800          base[0]=base[0];          base[0]=base[0];
801          return Cnil;          return Cnil;
802  }  }
803  /*      local entry for function DEFAULT-STRUCTURE-INSTANCE-P   */  /*      local entry for function DEFAULT-STRUCTURE-INSTANCE-P   */
804    
805  static object LI35(V137)  static object LI35(V133)
806    
807  object V137;  object V133;
808  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
809          goto TTL;          goto TTL;
810  TTL:;  TTL:;
811          {object V138;          {object V134;
812          base[0]= (V137);          base[0]= (V133);
813          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
814          Ltype_of();          Ltype_of();
815          vs_top=sup;          vs_top=sup;
816          V138= vs_base[0];          V134= vs_base[0];
817          if(((((V138))==(VV[11])?Ct:Cnil))==Cnil){          if(((((V134))==(VV[11])?Ct:Cnil))==Cnil){
818          goto T117;}          goto T117;}
819          {object V139 = Cnil;          {object V135 = Cnil;
820          VMR33(V139)}          VMR33(V135)}
821          goto T117;          goto T117;
822  T117:;  T117:;
823          {object V140 = (*(LnkLI86))((V138));          {object V136 = (*(LnkLI86))((V134));
824          VMR33(V140)}}          VMR33(V136)}}
825          base[0]=base[0];          base[0]=base[0];
826          return Cnil;          return Cnil;
827  }  }
828  /*      local entry for function DEFAULT-STRUCTURE-TYPE */  /*      local entry for function DEFAULT-STRUCTURE-TYPE */
829    
830  static object LI36(V142)  static object LI36(V138)
831    
832  object V142;  object V138;
833  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
834          goto TTL;          goto TTL;
835  TTL:;  TTL:;
836          base[0]= (V142);          base[0]= (V138);
837          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
838          Ltype_of();          Ltype_of();
839          vs_top=sup;          vs_top=sup;
840          {object V143 = vs_base[0];          {object V139 = vs_base[0];
841          VMR34(V143)}          VMR34(V139)}
842          base[0]=base[0];          base[0]=base[0];
843          return Cnil;          return Cnil;
844  }  }
845  /*      local entry for function STRUCTURE-TYPE-P       */  /*      local entry for function STRUCTURE-TYPE-P       */
846    
847  static object LI37(V145)  static object LI37(V141)
848    
849  object V145;  object V141;
850  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
851          goto TTL;          goto TTL;
852  TTL:;  TTL:;
853          base[0]= (V145);          base[0]= (V141);
854          base[1]= (VV[70]->s.s_dbind);          base[1]= (VV[70]->s.s_dbind);
855          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
856          Lgethash();          Lgethash();
857          vs_top=sup;          vs_top=sup;
858          V146= vs_base[0];          V142= vs_base[0];
859          {object V147 = ((((V146)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V143 = ((((V142)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
860          VMR35(V147)}          VMR35(V143)}
861          base[0]=base[0];          base[0]=base[0];
862          return Cnil;          return Cnil;
863  }  }
864  /*      local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME      */  /*      local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME      */
865    
866  static object LI38(V149)  static object LI38(V145)
867    
868  object V149;  object V145;
869  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
870          goto TTL;          goto TTL;
871  TTL:;  TTL:;
872          base[0]= (V149);          base[0]= (V145);
873          base[1]= (VV[70]->s.s_dbind);          base[1]= (VV[70]->s.s_dbind);
874          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
875          Lgethash();          Lgethash();
876          vs_top=sup;          vs_top=sup;
877          V150= vs_base[0];          V146= vs_base[0];
878          {object V151 = CMPcar(V150);          {object V147 = CMPcar(V146);
879          VMR36(V151)}          VMR36(V147)}
880          base[0]=base[0];          base[0]=base[0];
881          return Cnil;          return Cnil;
882  }  }
883  /*      local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST   */  /*      local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST   */
884    
885  static object LI39(V153)  static object LI39(V149)
886    
887  object V153;  object V149;
888  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
889          goto TTL;          goto TTL;
890  TTL:;  TTL:;
891          base[0]= (V153);          base[0]= (V149);
892          base[1]= (VV[70]->s.s_dbind);          base[1]= (VV[70]->s.s_dbind);
893          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
894          Lgethash();          Lgethash();
895          vs_top=sup;          vs_top=sup;
896          V154= vs_base[0];          V150= vs_base[0];
897          {object V155 = CMPcdr(V154);          {object V151 = CMPcdr(V150);
898          VMR37(V155)}          VMR37(V151)}
899          base[0]=base[0];          base[0]=base[0];
900          return Cnil;          return Cnil;
901  }  }
902  /*      local entry for function STRUCTURE-SLOTD-NAME   */  /*      local entry for function STRUCTURE-SLOTD-NAME   */
903    
904  static object LI40(V157)  static object LI40(V153)
905    
906  object V157;  object V153;
907  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
908          goto TTL;          goto TTL;
909  TTL:;  TTL:;
910          {object V158 = CMPcar((V157));          {object V154 = CMPcar((V153));
911          VMR38(V158)}          VMR38(V154)}
912          return Cnil;          return Cnil;
913  }  }
914  /*      local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL        */  /*      local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL        */
915    
916  static object LI41(V160)  static object LI41(V156)
917    
918  object V160;  object V156;
919  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
920          goto TTL;          goto TTL;
921  TTL:;  TTL:;
922          {object V161 = CMPcadr((V160));          {object V157 = CMPcadr((V156));
923          VMR39(V161)}          VMR39(V157)}
924          return Cnil;          return Cnil;
925  }  }
926  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */
927    
928  static object LI42(V163)  static object LI42(V159)
929    
930  object V163;  object V159;
931  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
932          goto TTL;          goto TTL;
933  TTL:;  TTL:;
934          {object V164 = CMPcaddr((V163));          {object V160 = CMPcaddr((V159));
935          VMR40(V164)}          VMR40(V160)}
936          return Cnil;          return Cnil;
937  }  }
938  /*      local entry for function STRUCTURE-SLOTD-TYPE   */  /*      local entry for function STRUCTURE-SLOTD-TYPE   */
939    
940  static object LI43(V166)  static object LI43(V162)
941    
942  object V166;  object V162;
943  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
944          goto TTL;          goto TTL;
945  TTL:;  TTL:;
946          {object V167 = CMPcadddr((V166));          {object V163 = CMPcadddr((V162));
947          VMR41(V167)}          VMR41(V163)}
948          return Cnil;          return Cnil;
949  }  }
950  /*      function definition for STRUCTURE-SLOTD-INIT-FORM       */  /*      function definition for STRUCTURE-SLOTD-INIT-FORM       */
# Line 957  static void L44() Line 953  static void L44()
953  {register object *base=vs_base;  {register object *base=vs_base;
954          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
955          vs_check;          vs_check;
956          {object V168;          {object V164;
957          check_arg(1);          check_arg(1);
958          V168=(base[0]);          V164=(base[0]);
959          vs_top=sup;          vs_top=sup;
960          goto TTL;          goto TTL;
961  TTL:;  TTL:;
962          base[1]= (V168);          base[1]= (V164);
963          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
964          (void) (*Lnk87)();          (void) (*Lnk87)();
965          return;          return;
# Line 976  register object *base0; Line 972  register object *base0;
972  {       register object *base=vs_base;  {       register object *base=vs_base;
973          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
974          vs_check;          vs_check;
975          {object V169;          {object V165;
976          vs_top[0]=Cnil;          vs_top[0]=Cnil;
977          {object *p=vs_top;          {object *p=vs_top;
978           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
979          V169=(base[0]);          V165=(base[0]);
980          vs_top=sup;          vs_top=sup;
981          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
982          goto T131;}          goto T131;}
983          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
984          {object V170;          {object V166;
985          V170= (V169);          V166= (V165);
986           vs_top=base+2;           vs_top=base+2;
987           while(V170!=Cnil)           while(V166!=Cnil)
988           {vs_push((V170)->c.c_car);V170=(V170)->c.c_cdr;}           {vs_push((V166)->c.c_car);V166=(V166)->c.c_cdr;}
989          vs_base=base+2;}          vs_base=base+2;}
990          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
991          return;          return;
# Line 998  T131:; Line 994  T131:;
994          if(((*(LnkLI81))())==Cnil){          if(((*(LnkLI81))())==Cnil){
995          goto T136;}          goto T136;}
996          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
997          {object V171;          {object V167;
998          V171= (V169);          V167= (V165);
999           vs_top=base+2;           vs_top=base+2;
1000           while(V171!=Cnil)           while(V167!=Cnil)
1001           {vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;}           {vs_push((V167)->c.c_car);V167=(V167)->c.c_cdr;}
1002          vs_base=base+2;}          vs_base=base+2;}
1003          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1004          return;          return;
# Line 1015  T136:; Line 1011  T136:;
1011          vs_top=sup;          vs_top=sup;
1012          (base0[0]->c.c_car)= vs_base[0];          (base0[0]->c.c_car)= vs_base[0];
1013          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1014          {object V172;          {object V168;
1015          V172= (V169);          V168= (V165);
1016           vs_top=base+2;           vs_top=base+2;
1017           while(V172!=Cnil)           while(V168!=Cnil)
1018           {vs_push((V172)->c.c_car);V172=(V172)->c.c_cdr;}           {vs_push((V168)->c.c_car);V168=(V168)->c.c_cdr;}
1019          vs_base=base+2;}          vs_base=base+2;}
1020          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1021          return;          return;
# Line 1032  register object *base0; Line 1028  register object *base0;
1028  {       register object *base=vs_base;  {       register object *base=vs_base;
1029          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
1030          vs_check;          vs_check;
1031          {object V173;          {object V169;
1032          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1033          {object *p=vs_top;          {object *p=vs_top;
1034           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1035          V173=(base[0]);          V169=(base[0]);
1036          vs_top=sup;          vs_top=sup;
1037          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
1038          base[3]= VV[51];          base[3]= VV[51];
# Line 1044  register object *base0; Line 1040  register object *base0;
1040          (void) (*Lnk84)();          (void) (*Lnk84)();
1041          vs_top=sup;          vs_top=sup;
1042          base[1]= vs_base[0];          base[1]= vs_base[0];
1043          {object V174;          {object V170;
1044          V174= (V173);          V170= (V169);
1045           vs_top=base+2;           vs_top=base+2;
1046           while(V174!=Cnil)           while(V170!=Cnil)
1047           {vs_push((V174)->c.c_car);V174=(V174)->c.c_cdr;}           {vs_push((V170)->c.c_car);V170=(V170)->c.c_cdr;}
1048          vs_base=base+2;}          vs_base=base+2;}
1049          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1050          return;          return;

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

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