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

Diff of /gcl/cmpnew/cmputil.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmputil.h"  #include "cmputil.h"
4  init_cmputil(){do_init(VV);}  void init_cmputil(){do_init(VV);}
5  /*      macro definition for SAFE-COMPILE       */  /*      macro definition for SAFE-COMPILE       */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 27  static object LI2(V2,va_alist) Line 27  static object LI2(V2,va_alist)
27          bds_check;          bds_check;
28          {object V3;          {object V3;
29          object V4;          object V4;
30            Vcs[0]=Vcs[0];
31            va_start(ap);
32          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
33          V3= V2;          V3= V2;
34          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
35          V5 = list_vector(narg,ap);          V5 = list_vector(narg,ap);
36          V4= V5;          V4= V5;
37          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
# Line 56  static object LI2(V2,va_alist) Line 57  static object LI2(V2,va_alist)
57          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]);
58          base[1]= VV[7];          base[1]= VV[7];
59          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
60          unwind(fr,VV[6]);}}          unwind(fr,VV[6]);}
61            va_end(ap);
62            base[0]=base[0];
63            return Cnil;}
64          }          }
65  /*      macro definition for CMPCK      */  /*      macro definition for CMPCK      */
66    
67  static L3()  static void L3()
68  {register object *base=vs_base;  {register object *base=vs_base;
69          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
70          vs_reserve(VM3);          vs_reserve(VM3);
# Line 85  static object LI4(V11,V12,V13) Line 89  static object LI4(V11,V12,V13)
89  object V11;object V12;object V13;  object V11;object V12;object V13;
90  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
91          bds_check;          bds_check;
92    goto TTL;
93  TTL:;  TTL:;
94          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
95          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 103  TTL:; Line 108  TTL:;
108          base[1]= VV[7];          base[1]= VV[7];
109          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
110          unwind(fr,VV[6]);}          unwind(fr,VV[6]);}
111            base[0]=base[0];
112            return Cnil;
113  }  }
114  /*      local entry for function TOO-FEW-ARGS   */  /*      local entry for function TOO-FEW-ARGS   */
115    
# Line 111  static object LI5(V17,V18,V19) Line 118  static object LI5(V17,V18,V19)
118  object V17;object V18;object V19;  object V17;object V18;object V19;
119  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
120          bds_check;          bds_check;
121    goto TTL;
122  TTL:;  TTL:;
123          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
124          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 129  TTL:; Line 137  TTL:;
137          base[1]= VV[7];          base[1]= VV[7];
138          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
139          unwind(fr,VV[6]);}          unwind(fr,VV[6]);}
140            base[0]=base[0];
141            return Cnil;
142  }  }
143  /*      local entry for function CMPWARN        */  /*      local entry for function CMPWARN        */
144    
# Line 141  static object LI6(V20,va_alist) Line 151  static object LI6(V20,va_alist)
151          bds_check;          bds_check;
152          {object V21;          {object V21;
153          object V22;          object V22;
154            Vcs[0]=Vcs[0];
155            va_start(ap);
156          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
157          V21= V20;          V21= V20;
158          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
159          V23 = list_vector(narg,ap);          V23 = list_vector(narg,ap);
160          V22= V23;          V22= V23;
161          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
# Line 167  static object LI6(V20,va_alist) Line 178  static object LI6(V20,va_alist)
178          Lformat();          Lformat();
179          vs_top=sup;          vs_top=sup;
180          princ_char(10,Cnil);          princ_char(10,Cnil);
181    goto T32;
182  T32:;  T32:;
183          {object V25 = Cnil;          {object V25 = Cnil;
184          bds_unwind1;          bds_unwind1;
185          VMR6(V25)}}          VMR6(V25)}
186            va_end(ap);
187            base[0]=base[0];
188            return Cnil;}
189          }          }
190  /*      local entry for function CMPNOTE        */  /*      local entry for function CMPNOTE        */
191    
# Line 183  static object LI7(V26,va_alist) Line 198  static object LI7(V26,va_alist)
198          bds_check;          bds_check;
199          {object V27;          {object V27;
200          object V28;          object V28;
201            Vcs[0]=Vcs[0];
202            va_start(ap);
203          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
204          V27= V26;          V27= V26;
205          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
206          V29 = list_vector(narg,ap);          V29 = list_vector(narg,ap);
207          V28= V29;          V28= V29;
208          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
# Line 208  static object LI7(V26,va_alist) Line 224  static object LI7(V26,va_alist)
224          vs_base=base+1;}          vs_base=base+1;}
225          Lformat();          Lformat();
226          vs_top=sup;          vs_top=sup;
227    goto T43;
228  T43:;  T43:;
229          {object V31 = Cnil;          {object V31 = Cnil;
230          bds_unwind1;          bds_unwind1;
231          VMR7(V31)}}          VMR7(V31)}
232            va_end(ap);
233            base[0]=base[0];
234            return Cnil;}
235          }          }
236  /*      local entry for function PRINT-CURRENT-FORM     */  /*      local entry for function PRINT-CURRENT-FORM     */
237    
# Line 219  static object LI8() Line 239  static object LI8()
239    
240  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
241          bds_check;          bds_check;
242    goto TTL;
243  TTL:;  TTL:;
244          if((symbol_value(VV[16]))==Cnil){          if((symbol_value(VV[16]))==Cnil){
245          goto T53;}          goto T53;}
# Line 237  TTL:; Line 258  TTL:;
258          Lformat();          Lformat();
259          vs_top=sup;          vs_top=sup;
260          goto T53;          goto T53;
261    goto T60;
262  T60:;  T60:;
263          bds_bind(VV[20],small_fixnum(2));          bds_bind(VV[20],small_fixnum(2));
264          bds_bind(VV[21],small_fixnum(2));          bds_bind(VV[21],small_fixnum(2));
# Line 248  T60:; Line 270  T60:;
270          vs_top=sup;          vs_top=sup;
271          bds_unwind1;          bds_unwind1;
272          bds_unwind1;          bds_unwind1;
273    goto T53;
274  T53:;  T53:;
275          {object V32 = Cnil;          {object V32 = Cnil;
276          VMR8(V32)}          VMR8(V32)}
277            base[0]=base[0];
278            return Cnil;
279  }  }
280  /*      local entry for function UNDEFINED-VARIABLE     */  /*      local entry for function UNDEFINED-VARIABLE     */
281    
# Line 259  static object LI9(V34) Line 284  static object LI9(V34)
284  object V34;  object V34;
285  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
286          bds_check;          bds_check;
287    goto TTL;
288  TTL:;  TTL:;
289          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
290          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 271  TTL:; Line 297  TTL:;
297          {object V35 = Cnil;          {object V35 = Cnil;
298          bds_unwind1;          bds_unwind1;
299          VMR9(V35)}          VMR9(V35)}
300            base[0]=base[0];
301            return Cnil;
302  }  }
303  /*      local entry for function BABOON */  /*      local entry for function BABOON */
304    
# Line 278  static object LI10() Line 306  static object LI10()
306    
307  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
308          bds_check;          bds_check;
309    goto TTL;
310  TTL:;  TTL:;
311          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
312          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 290  TTL:; Line 319  TTL:;
319          {object V36 = (VFUN_NARGS=0,(*(LnkLI59))());          {object V36 = (VFUN_NARGS=0,(*(LnkLI59))());
320          bds_unwind1;          bds_unwind1;
321          VMR10(V36)}          VMR10(V36)}
322            base[0]=base[0];
323            return Cnil;
324  }  }
325  /*      macro definition for DOLIST*    */  /*      macro definition for DOLIST*    */
326    
327  static L11()  static void L11()
328  {register object *base=vs_base;  {register object *base=vs_base;
329          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
330          vs_reserve(VM11);          vs_reserve(VM11);
# Line 331  static L11() Line 362  static L11()
362  }  }
363  /*      macro definition for DOLIST**   */  /*      macro definition for DOLIST**   */
364    
365  static L12()  static void L12()
366  {register object *base=vs_base;  {register object *base=vs_base;
367          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
368          vs_reserve(VM12);          vs_reserve(VM12);
# Line 369  static L12() Line 400  static L12()
400  }  }
401  /*      macro definition for DOTIMES*   */  /*      macro definition for DOTIMES*   */
402    
403  static L13()  static void L13()
404  {register object *base=vs_base;  {register object *base=vs_base;
405          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
406          vs_reserve(VM13);          vs_reserve(VM13);
# Line 406  static L13() Line 437  static L13()
437  }  }
438  /*      macro definition for DOTIMES**  */  /*      macro definition for DOTIMES**  */
439    
440  static L14()  static void L14()
441  {register object *base=vs_base;  {register object *base=vs_base;
442          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
443          vs_reserve(VM14);          vs_reserve(VM14);
# Line 443  static L14() Line 474  static L14()
474  }  }
475  /*      function definition for CMP-EVAL        */  /*      function definition for CMP-EVAL        */
476    
477  static L15()  static void L15()
478  {register object *base=vs_base;  {register object *base=vs_base;
479          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
480          vs_reserve(VM15);          vs_reserve(VM15);
# Line 452  static L15() Line 483  static L15()
483          check_arg(1);          check_arg(1);
484          V63=(base[0]);          V63=(base[0]);
485          vs_top=sup;          vs_top=sup;
486    goto TTL;
487  TTL:;  TTL:;
488          {object V64;          {object V64;
489          base[1]= list(2,VV[34],list(2,VV[35],(V63)));          base[1]= list(2,VV[34],list(2,VV[35],(V63)));
# Line 475  TTL:; Line 507  TTL:;
507          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
508          bds_unwind1;          bds_unwind1;
509          return;          return;
510    goto T93;
511  T93:;  T93:;
512          base[1]= cdr((V64));          base[1]= cdr((V64));
513          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 489  static object LI16(V66) Line 522  static object LI16(V66)
522  object V66;  object V66;
523  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
524          bds_check;          bds_check;
525    goto TTL;
526  TTL:;  TTL:;
527          {register object V67;          {register object V67;
528          V67= Cnil;          V67= Cnil;
# Line 496  TTL:; Line 530  TTL:;
530          register object V69;          register object V69;
531          V68= symbol_value(VV[37]);          V68= symbol_value(VV[37]);
532          V69= car((V68));          V69= car((V68));
533    goto T108;
534  T108:;  T108:;
535          if(!(endp((V68)))){          if(!(endp((V68)))){
536          goto T109;}          goto T109;}
537          goto T104;          goto T104;
538    goto T109;
539  T109:;  T109:;
540          if(!(type_of((V69))==t_cons)){          if(!(type_of((V69))==t_cons)){
541          goto T113;}          goto T113;}
542          V70= list(3,car((V69)),VV[38],cadr((V69)));          V70= list(3,car((V69)),VV[38],cadr((V69)));
543          V67= make_cons(/* INLINE-ARGS */V70,(V67));          V67= make_cons(/* INLINE-ARGS */V70,(V67));
544    goto T113;
545  T113:;  T113:;
546          V68= cdr((V68));          V68= cdr((V68));
547          V69= car((V68));          V69= car((V68));
548          goto T108;}          goto T108;}
549    goto T104;
550  T104:;  T104:;
551          if(((V67))==Cnil){          if(((V67))==Cnil){
552          goto T122;}          goto T122;}
553          V71= nreverse((V67));          V71= nreverse((V67));
554          V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil);          V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil);
555    goto T122;
556  T122:;  T122:;
557          {object V72;          {object V72;
558          V73= list(2,VV[35],(V66));          V73= list(2,VV[35],(V66));
# Line 537  T122:; Line 576  T122:;
576          {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66)));          {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66)));
577          bds_unwind1;          bds_unwind1;
578          VMR16(V74)}          VMR16(V74)}
579    goto T130;
580  T130:;  T130:;
581          {object V75 = cadr((V72));          {object V75 = cadr((V72));
582          VMR16(V75)}}}          VMR16(V75)}}}
583            base[0]=base[0];
584            return Cnil;
585  }  }
586  /*      local entry for function CMP-MACROEXPAND-1      */  /*      local entry for function CMP-MACROEXPAND-1      */
587    
# Line 548  static object LI17(V77) Line 590  static object LI17(V77)
590  object V77;  object V77;
591  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
592          bds_check;          bds_check;
593    goto TTL;
594  TTL:;  TTL:;
595          {register object V78;          {register object V78;
596          V78= Cnil;          V78= Cnil;
# Line 555  TTL:; Line 598  TTL:;
598          register object V80;          register object V80;
599          V79= symbol_value(VV[37]);          V79= symbol_value(VV[37]);
600          V80= car((V79));          V80= car((V79));
601    goto T144;
602  T144:;  T144:;
603          if(!(endp((V79)))){          if(!(endp((V79)))){
604          goto T145;}          goto T145;}
605          goto T140;          goto T140;
606    goto T145;
607  T145:;  T145:;
608          if(!(type_of((V80))==t_cons)){          if(!(type_of((V80))==t_cons)){
609          goto T149;}          goto T149;}
610          V81= list(3,car((V80)),VV[38],cadr((V80)));          V81= list(3,car((V80)),VV[38],cadr((V80)));
611          V78= make_cons(/* INLINE-ARGS */V81,(V78));          V78= make_cons(/* INLINE-ARGS */V81,(V78));
612    goto T149;
613  T149:;  T149:;
614          V79= cdr((V79));          V79= cdr((V79));
615          V80= car((V79));          V80= car((V79));
616          goto T144;}          goto T144;}
617    goto T140;
618  T140:;  T140:;
619          {object V82;          {object V82;
620          V83= list(2,VV[35],(V77));          V83= list(2,VV[35],(V77));
# Line 591  T140:; Line 638  T140:;
638          {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77)));          {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77)));
639          bds_unwind1;          bds_unwind1;
640          VMR17(V84)}          VMR17(V84)}
641    goto T162;
642  T162:;  T162:;
643          {object V85 = cadr((V82));          {object V85 = cadr((V82));
644          VMR17(V85)}}}          VMR17(V85)}}}
645            base[0]=base[0];
646            return Cnil;
647  }  }
648  /*      local entry for function CMP-EXPAND-MACRO       */  /*      local entry for function CMP-EXPAND-MACRO       */
649    
# Line 602  static object LI18(V89,V90,V91) Line 652  static object LI18(V89,V90,V91)
652  object V89;register object V90;object V91;  object V89;register object V90;object V91;
653  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
654          bds_check;          bds_check;
655    goto TTL;
656  TTL:;  TTL:;
657          {register object V92;          {register object V92;
658          V92= Cnil;          V92= Cnil;
# Line 609  TTL:; Line 660  TTL:;
660          register object V94;          register object V94;
661          V93= symbol_value(VV[37]);          V93= symbol_value(VV[37]);
662          V94= car((V93));          V94= car((V93));
663    goto T176;
664  T176:;  T176:;
665          if(!(endp((V93)))){          if(!(endp((V93)))){
666          goto T177;}          goto T177;}
667          goto T172;          goto T172;
668    goto T177;
669  T177:;  T177:;
670          if(!(type_of((V94))==t_cons)){          if(!(type_of((V94))==t_cons)){
671          goto T181;}          goto T181;}
672          V95= list(3,car((V94)),VV[38],cadr((V94)));          V95= list(3,car((V94)),VV[38],cadr((V94)));
673          V92= make_cons(/* INLINE-ARGS */V95,(V92));          V92= make_cons(/* INLINE-ARGS */V95,(V92));
674    goto T181;
675  T181:;  T181:;
676          V93= cdr((V93));          V93= cdr((V93));
677          V94= car((V93));          V94= car((V93));
678          goto T176;}          goto T176;}
679    goto T172;
680  T172:;  T172:;
681          if(symbol_value(VV[46])==Cnil){          if(symbol_value(VV[46])==Cnil){
682          goto T190;}          goto T190;}
683          (void)((*(LnkLI61))((V90)));          (void)((*(LnkLI61))((V90)));
684    goto T190;
685  T190:;  T190:;
686          if(((V92))==Cnil){          if(((V92))==Cnil){
687          goto T191;}          goto T191;}
688          V96= nreverse((V92));          V96= nreverse((V92));
689          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);
690    goto T191;
691  T191:;  T191:;
692          {object V97;          {object V97;
693          V98= list(2,VV[35],(V89));          V98= list(2,VV[35],(V89));
# Line 655  T191:; Line 712  T191:;
712          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));
713          bds_unwind1;          bds_unwind1;
714          VMR18(V100)}          VMR18(V100)}
715    goto T199;
716  T199:;  T199:;
717          {object V101 = cadr((V97));          {object V101 = cadr((V97));
718          VMR18(V101)}}}          VMR18(V101)}}}
719            base[0]=base[0];
720            return Cnil;
721  }  }
722  /*      function definition for CMP-TOPLEVEL-EVAL       */  /*      function definition for CMP-TOPLEVEL-EVAL       */
723    
724  static L19()  static void L19()
725  {register object *base=vs_base;  {register object *base=vs_base;
726          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
727          vs_reserve(VM19);          vs_reserve(VM19);
# Line 670  static L19() Line 730  static L19()
730          check_arg(1);          check_arg(1);
731          V102=(base[0]);          V102=(base[0]);
732          vs_top=sup;          vs_top=sup;
733    goto TTL;
734  TTL:;  TTL:;
735          bds_bind(VV[51],symbol_value(VV[52]));          bds_bind(VV[51],symbol_value(VV[52]));
736          vs_base=vs_top;          vs_base=vs_top;
# Line 700  static object LI20(V107,V108) Line 761  static object LI20(V107,V108)
761    
762  object V107;object V108;  object V107;object V108;
763  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
764    goto TTL;
765  TTL:;  TTL:;
766          {object V109 = Cnil;          {object V109 = Cnil;
767          VMR20(V109)}          VMR20(V109)}
768            return Cnil;
769  }  }
770  /*      local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES     */  /*      local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES     */
771    
# Line 710  static object LI21(V112,V113) Line 773  static object LI21(V112,V113)
773    
774  register object V112;object V113;  register object V112;object V113;
775  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
776    goto TTL;
777  TTL:;  TTL:;
778          {register object V114;          {register object V114;
779          register object V115;          register object V115;
# Line 719  TTL:; Line 783  TTL:;
783          vs_top=sup;          vs_top=sup;
784          V114= vs_base[0];          V114= vs_base[0];
785          V115= Cnil;          V115= Cnil;
786    goto T221;
787  T221:;  T221:;
788          V115= car((V114));          V115= car((V114));
789          if(!(type_of((V115))==t_symbol)){          if(!(type_of((V115))==t_symbol)){
# Line 728  T221:; Line 793  T221:;
793          V114= cddr((V114));          V114= cddr((V114));
794          (void)(remprop((V112),(V115)));          (void)(remprop((V112),(V115)));
795          goto T224;          goto T224;
796    goto T226;
797  T226:;  T226:;
798          V114= cddr((V114));          V114= cddr((V114));
799    goto T224;
800  T224:;  T224:;
801          if(!(((V114))==Cnil)){          if(!(((V114))==Cnil)){
802          goto T234;}          goto T234;}
803          goto T233;          goto T233;
804    goto T234;
805  T234:;  T234:;
806          goto T221;          goto T221;
807    goto T233;
808  T233:;  T233:;
809          goto T219;          goto T219;
810    goto T219;
811  T219:;  T219:;
812          {object V116 = (*(LnkLI64))((V112),(V113));          {object V116 = (*(LnkLI64))((V112),(V113));
813          VMR21(V116)}}          VMR21(V116)}}
814            base[0]=base[0];
815            return Cnil;
816  }  }
817  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */
818  static LnkT63(){ call_or_link(VV[63],&Lnk63);} /* ERROR-SET */  static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* ERROR-SET */
819  static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* IHS-TOP */  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* IHS-TOP */
820  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */
821  static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* CMP-TOPLEVEL-EVAL */  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* CMP-TOPLEVEL-EVAL */
822  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],&LnkLI59,ap);} /* BREAK */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],(void **)&LnkLI59,ap);} /* BREAK */
823  static object  LnkTLI58(){return call_proc0(VV[58],&LnkLI58);} /* PRINT-CURRENT-FORM */  static object  LnkTLI58(){return call_proc0(VV[58],(void **)&LnkLI58);} /* PRINT-CURRENT-FORM */
824    
825  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
826  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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