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

Diff of /gcl/cmpnew/cmpspecial.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 "cmpspecial.h"  #include "cmpspecial.h"
4  init_cmpspecial(){do_init(VV);}  void init_cmpspecial(){do_init(VV);}
5  /*      local entry for function C1QUOTE        */  /*      local entry for function C1QUOTE        */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          if(!(endp((V2)))){          if(!(endp((V2)))){
14          goto T1;}          goto T1;}
15          (void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0)));
16    goto T1;
17  T1:;  T1:;
18          if(endp(cdr((V2)))){          if(endp(cdr((V2)))){
19          goto T4;}          goto T4;}
20          V3 = make_fixnum(length((V2)));          V3 = make_fixnum(length((V2)));
21          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));
22    goto T4;
23  T4:;  T4:;
24          {object V4 = (*(LnkLI47))(car((V2)),Ct);          {object V4 = (*(LnkLI47))(car((V2)),Ct);
25          VMR1(V4)}          VMR1(V4)}
26            return Cnil;
27  }  }
28  /*      local entry for function C1EVAL-WHEN    */  /*      local entry for function C1EVAL-WHEN    */
29    
# Line 27  static object LI2(V6) Line 31  static object LI2(V6)
31    
32  register object V6;  register object V6;
33  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
34    goto TTL;
35  TTL:;  TTL:;
36          if(!(endp((V6)))){          if(!(endp((V6)))){
37          goto T7;}          goto T7;}
38          (void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0)));
39    goto T7;
40  T7:;  T7:;
41          {register object V7;          {register object V7;
42          register object V8;          register object V8;
43          V7= car((V6));          V7= car((V6));
44          V8= car((V7));          V8= car((V7));
45    goto T13;
46  T13:;  T13:;
47          if(!(endp((V7)))){          if(!(endp((V7)))){
48          goto T14;}          goto T14;}
49          {object V9 = (*(LnkLI48))();          {object V9 = (*(LnkLI48))();
50          VMR2(V9)}          VMR2(V9)}
51    goto T14;
52  T14:;  T14:;
53          {object V10= (V8);          {object V10= (V8);
54          if((V10!= VV[49]))goto T19;          if((V10!= VV[49]))goto T19;
55          {object V11 = (*(LnkLI50))(cdr((V6)));          {object V11 = (*(LnkLI50))(cdr((V6)));
56          VMR2(V11)}          VMR2(V11)}
57    goto T19;
58  T19:;  T19:;
59          if((V10!= VV[51])          if((V10!= VV[51])
60          && (V10!= VV[52]))goto T20;          && (V10!= VV[52]))goto T20;
61          goto T18;          goto T18;
62    goto T20;
63  T20:;  T20:;
64          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));}          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));}
65    goto T18;
66  T18:;  T18:;
67          V7= cdr((V7));          V7= cdr((V7));
68          V8= car((V7));          V8= car((V7));
69          goto T13;}          goto T13;}
70            base[0]=base[0];
71            return Cnil;
72  }  }
73  /*      local entry for function C1DECLARE      */  /*      local entry for function C1DECLARE      */
74    
# Line 63  static object LI3(V13) Line 76  static object LI3(V13)
76    
77  object V13;  object V13;
78  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
79    goto TTL;
80  TTL:;  TTL:;
81          V14= make_cons(VV[4],(V13));          V14= make_cons(VV[4],(V13));
82          {object V15 = (VFUN_NARGS=2,(*(LnkLI53))(VV[3],/* INLINE-ARGS */V14));          {object V15 = (VFUN_NARGS=2,(*(LnkLI53))(VV[3],/* INLINE-ARGS */V14));
83          VMR3(V15)}          VMR3(V15)}
84            return Cnil;
85  }  }
86  /*      local entry for function C1THE  */  /*      local entry for function C1THE  */
87    
# Line 74  static object LI4(V17) Line 89  static object LI4(V17)
89    
90  register object V17;  register object V17;
91  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
92    goto TTL;
93  TTL:;  TTL:;
94          {register object V18;          {register object V18;
95          register object V19;          register object V19;
# Line 85  TTL:; Line 101  TTL:;
101          goto T30;}          goto T30;}
102          if(!(endp(cdr((V17))))){          if(!(endp(cdr((V17))))){
103          goto T29;}          goto T29;}
104    goto T30;
105  T30:;  T30:;
106          V21 = make_fixnum(length((V17)));          V21 = make_fixnum(length((V17)));
107          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));
108    goto T29;
109  T29:;  T29:;
110          if(endp(cddr((V17)))){          if(endp(cddr((V17)))){
111          goto T34;}          goto T34;}
112          V22 = make_fixnum(length((V17)));          V22 = make_fixnum(length((V17)));
113          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));
114    goto T34;
115  T34:;  T34:;
116          V19= (*(LnkLI54))(cadr((V17)));          V19= (*(LnkLI54))(cadr((V17)));
117          base[0]= cadr((V19));          base[0]= cadr((V19));
# Line 107  T34:; Line 126  T34:;
126          goto T44;}          goto T44;}
127          V25= make_cons(VV[5],(V17));          V25= make_cons(VV[5],(V17));
128          (void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V25)));          (void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V25)));
129    goto T44;
130  T44:;  T44:;
131          (void)(structure_set((V18),VV[6],2,(V20)));          (void)(structure_set((V18),VV[6],2,(V20)));
132          {object V26 = listA(3,car((V19)),(V18),cddr((V19)));          {object V26 = listA(3,car((V19)),(V18),cddr((V19)));
133          VMR4(V26)}}          VMR4(V26)}}
134            base[0]=base[0];
135            return Cnil;
136  }  }
137  /*      local entry for function C1COMPILER-LET */  /*      local entry for function C1COMPILER-LET */
138    
# Line 118  static object LI5(V28) Line 140  static object LI5(V28)
140    
141  register object V28;  register object V28;
142  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
143    goto TTL;
144  TTL:;  TTL:;
145          {register object V29;          {register object V29;
146          register object V30;          register object V30;
# Line 126  TTL:; Line 149  TTL:;
149          if(!(endp((V28)))){          if(!(endp((V28)))){
150          goto T50;}          goto T50;}
151          (void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0)));
152    goto T50;
153  T50:;  T50:;
154          {register object V31;          {register object V31;
155          register object V32;          register object V32;
156          V31= car((V28));          V31= car((V28));
157          V32= car((V31));          V32= car((V31));
158    goto T57;
159  T57:;  T57:;
160          if(!(endp((V31)))){          if(!(endp((V31)))){
161          goto T58;}          goto T58;}
162          goto T53;          goto T53;
163    goto T58;
164  T58:;  T58:;
165          if(!(type_of((V32))==t_cons)){          if(!(type_of((V32))==t_cons)){
166          goto T64;}          goto T64;}
# Line 144  T58:; Line 170  T58:;
170          goto T66;}          goto T66;}
171          if(endp(cddr((V32)))){          if(endp(cddr((V32)))){
172          goto T66;}          goto T66;}
173    goto T67;
174  T67:;  T67:;
175          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32))));
176    goto T66;
177  T66:;  T66:;
178          V29= make_cons(car((V32)),(V29));          V29= make_cons(car((V32)),(V29));
179          if(!(endp(cdr((V32))))){          if(!(endp(cdr((V32))))){
180          goto T78;}          goto T78;}
181          V33= Cnil;          V33= Cnil;
182          goto T76;          goto T76;
183    goto T78;
184  T78:;  T78:;
185          base[2]= cadr((V32));          base[2]= cadr((V32));
186          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
187          Leval();          Leval();
188          vs_top=sup;          vs_top=sup;
189          V33= vs_base[0];          V33= vs_base[0];
190    goto T76;
191  T76:;  T76:;
192          V30= make_cons(V33,(V30));          V30= make_cons(V33,(V30));
193          goto T62;          goto T62;
194    goto T64;
195  T64:;  T64:;
196          if(!(type_of((V32))==t_symbol)){          if(!(type_of((V32))==t_symbol)){
197          goto T82;}          goto T82;}
198          V29= make_cons((V32),(V29));          V29= make_cons((V32),(V29));
199          V30= make_cons(Cnil,(V30));          V30= make_cons(Cnil,(V30));
200          goto T62;          goto T62;
201    goto T82;
202  T82:;  T82:;
203          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32))));
204    goto T62;
205  T62:;  T62:;
206          V31= cdr((V31));          V31= cdr((V31));
207          V32= car((V31));          V32= car((V31));
208          goto T57;}          goto T57;}
209    goto T53;
210  T53:;  T53:;
211          V29= reverse((V29));          V29= reverse((V29));
212          V30= reverse((V30));          V30= reverse((V30));
# Line 194  T53:; Line 228  T53:;
228          V28= V35;}          V28= V35;}
229          {object V36 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28));          {object V36 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28));
230          VMR5(V36)}}          VMR5(V36)}}
231            base[0]=base[0];
232            return Cnil;
233  }  }
234  /*      function definition for C2COMPILER-LET  */  /*      function definition for C2COMPILER-LET  */
235    
236  static L6()  static void L6()
237  {register object *base=vs_base;  {register object *base=vs_base;
238          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
239          vs_reserve(VM6);          vs_reserve(VM6);
# Line 209  static L6() Line 245  static L6()
245          V38=(base[1]);          V38=(base[1]);
246          V39=(base[2]);          V39=(base[2]);
247          vs_top=sup;          vs_top=sup;
248    goto TTL;
249  TTL:;  TTL:;
250          {object symbols,values;          {object symbols,values;
251          bds_ptr V40=bds_top;          bds_ptr V40=bds_top;
# Line 237  static object LI7(V42) Line 274  static object LI7(V42)
274  register object V42;  register object V42;
275  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
276          bds_check;          bds_check;
277    goto TTL;
278  TTL:;  TTL:;
279          {object V43;          {object V43;
280          V43= Cnil;          V43= Cnil;
281          if(!(endp((V42)))){          if(!(endp((V42)))){
282          goto T104;}          goto T104;}
283          (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));
284    goto T104;
285  T104:;  T104:;
286          if(endp(cdr((V42)))){          if(endp(cdr((V42)))){
287          goto T107;}          goto T107;}
288          V44 = make_fixnum(length((V42)));          V44 = make_fixnum(length((V42)));
289          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));
290    goto T107;
291  T107:;  T107:;
292          {register object V45;          {register object V45;
293          V45= car((V42));          V45= car((V42));
# Line 260  T107:; Line 300  T107:;
300          goto T115;}          goto T115;}
301          {object V46 = list(3,VV[11],symbol_value(VV[13]),(V43));          {object V46 = list(3,VV[11],symbol_value(VV[13]),(V43));
302          VMR7(V46)}          VMR7(V46)}
303    goto T115;
304  T115:;  T115:;
305          {object V47;          {object V47;
306          V48= get((V45),VV[15],Cnil);          V48= get((V45),VV[15],Cnil);
307          V47= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V48)==Cnil?Ct:Cnil)));          V47= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V48)==Cnil?Ct:Cnil)));
308          {object V49 = list(3,VV[11],(V47),list(3,VV[16],(V47),(V45)));          {object V49 = list(3,VV[11],(V47),list(3,VV[16],(V47),(V45)));
309          VMR7(V49)}}          VMR7(V49)}}
310    goto T112;
311  T112:;  T112:;
312          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
313          goto T123;}          goto T123;}
# Line 274  T112:; Line 316  T112:;
316          if(!(endp(cdr((V45))))){          if(!(endp(cdr((V45))))){
317          goto T127;}          goto T127;}
318          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45))));
319    goto T127;
320  T127:;  T127:;
321          base[0]= make_cons(VV[20],symbol_value(VV[19]));          base[0]= make_cons(VV[20],symbol_value(VV[19]));
322          base[1]= make_cons(VV[20],symbol_value(VV[21]));          base[1]= make_cons(VV[20],symbol_value(VV[21]));
# Line 290  T127:; Line 333  T127:;
333          bds_unwind1;          bds_unwind1;
334          bds_unwind1;          bds_unwind1;
335          VMR7(V50)}          VMR7(V50)}
336    goto T123;
337  T123:;  T123:;
338          {object V51 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V45)));          {object V51 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V45)));
339          VMR7(V51)}}}          VMR7(V51)}}}
340            base[0]=base[0];
341            return Cnil;
342  }  }
343  /*      local entry for function C2FUNCTION     */  /*      local entry for function C2FUNCTION     */
344    
# Line 300  static object LI8(V53) Line 346  static object LI8(V53)
346    
347  register object V53;  register object V53;
348  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
349    goto TTL;
350  TTL:;  TTL:;
351          {object V54= car((V53));          {object V54= car((V53));
352          if((V54!= VV[16]))goto T136;          if((V54!= VV[16]))goto T136;
353          V55= list(2,VV[25],(*(LnkLI64))(caddr((V53))));          V55= list(2,VV[25],(*(LnkLI64))(caddr((V53))));
354          {object V56 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V55));          {object V56 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V55));
355          VMR8(V56)}          VMR8(V56)}
356    goto T136;
357  T136:;  T136:;
358          if((V54!= VV[12]))goto T137;          if((V54!= VV[12]))goto T137;
359          if((cadddr((V53)))==Cnil){          if((cadddr((V53)))==Cnil){
# Line 313  T136:; Line 361  T136:;
361          V57= list(2,VV[26],structure_ref(caddr((V53)),VV[27],2));          V57= list(2,VV[26],structure_ref(caddr((V53)),VV[27],2));
362          {object V58 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V57));          {object V58 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V57));
363          VMR8(V58)}          VMR8(V58)}
364    goto T139;
365  T139:;  T139:;
366          V59= list(2,VV[28],structure_ref(caddr((V53)),VV[27],1));          V59= list(2,VV[28],structure_ref(caddr((V53)),VV[27],1));
367          {object V60 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V59));          {object V60 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V59));
368          VMR8(V60)}          VMR8(V60)}
369    goto T137;
370  T137:;  T137:;
371          {register object V61;          {register object V61;
372          setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1)));          setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1)));
# Line 325  T137:; Line 375  T137:;
375          goto T147;}          goto T147;}
376          V62= Cnil;          V62= Cnil;
377          goto T145;          goto T145;
378    goto T147;
379  T147:;  T147:;
380          V62= make_cons(small_fixnum(0),small_fixnum(0));          V62= make_cons(small_fixnum(0),small_fixnum(0));
381    goto T145;
382  T145:;  T145:;
383          V63= list(5,VV[30],V62,symbol_value(VV[35]),(V61),(V53));          V63= list(5,VV[30],V62,symbol_value(VV[35]),(V61),(V53));
384          setq(VV[33],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[33])));          setq(VV[33],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[33])));
# Line 336  T145:; Line 388  T145:;
388          V64= list(3,VV[37],structure_ref((V61),VV[27],3),symbol_value(VV[34]));          V64= list(3,VV[37],structure_ref((V61),VV[27],3),symbol_value(VV[34]));
389          {object V65 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V64));          {object V65 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V64));
390          VMR8(V65)}          VMR8(V65)}
391    goto T152;
392  T152:;  T152:;
393          (void)((*(LnkLI66))(Cnil));{object V66;          (void)((*(LnkLI66))(Cnil));{object V66;
394          V66= symbol_value(VV[39]);          V66= symbol_value(VV[39]);
# Line 345  T152:; Line 398  T152:;
398          V69= list(2,VV[42],symbol_value(VV[39]));          V69= list(2,VV[42],symbol_value(VV[39]));
399          {object V70 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V69));          {object V70 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V69));
400          VMR8(V70)}}}          VMR8(V70)}}}
401            return Cnil;
402  }  }
403  /*      local entry for function WT-SYMBOL-FUNCTION     */  /*      local entry for function WT-SYMBOL-FUNCTION     */
404    
# Line 352  static object LI9(V72) Line 406  static object LI9(V72)
406    
407  object V72;  object V72;
408  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
409    goto TTL;
410  TTL:;  TTL:;
411          if((symbol_value(VV[43]))==Cnil){          if((symbol_value(VV[43]))==Cnil){
412          goto T157;}          goto T157;}
# Line 360  TTL:; Line 415  TTL:;
415          princ_str("])",VV[44]);          princ_str("])",VV[44]);
416          {object V73 = Cnil;          {object V73 = Cnil;
417          VMR9(V73)}          VMR9(V73)}
418    goto T157;
419  T157:;  T157:;
420          princ_str("(VV[",VV[44]);          princ_str("(VV[",VV[44]);
421          (void)((*(LnkLI69))((V72)));          (void)((*(LnkLI69))((V72)));
422          princ_str("]->s.s_gfdef)",VV[44]);          princ_str("]->s.s_gfdef)",VV[44]);
423          {object V74 = Cnil;          {object V74 = Cnil;
424          VMR9(V74)}          VMR9(V74)}
425            return Cnil;
426  }  }
427  /*      local entry for function WT-MAKE-CCLOSURE       */  /*      local entry for function WT-MAKE-CCLOSURE       */
428    
# Line 373  static object LI10(V77,V78) Line 430  static object LI10(V77,V78)
430    
431  object V77;object V78;  object V77;object V78;
432  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
433    goto TTL;
434  TTL:;  TTL:;
435          princ_str("\n   make_cclosure_new(LC",VV[44]);          princ_str("\n   make_cclosure_new(LC",VV[44]);
436          (void)((*(LnkLI69))((V77)));          (void)((*(LnkLI69))((V77)));
# Line 381  TTL:; Line 439  TTL:;
439          princ_str(",Cdata)",VV[44]);          princ_str(",Cdata)",VV[44]);
440          {object V79 = Cnil;          {object V79 = Cnil;
441          VMR10(V79)}          VMR10(V79)}
442            return Cnil;
443  }  }
444  static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* WT-CLINK */  static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],(void **)&LnkLI70,ap);} /* WT-CLINK */
445  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* WT1 */  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,1,ap);} /* WT1 */
446  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,2,ap);} /* ADD-ADDRESS */  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* ADD-ADDRESS */
447  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* ADD-INIT */  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* ADD-INIT */
448  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,1,ap);} /* PUSH-DATA-INCF */  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],(void **)&LnkLI66,1,ap);} /* PUSH-DATA-INCF */
449  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* MAKE-FUN */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* MAKE-FUN */
450  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,1,ap);} /* ADD-SYMBOL */
451  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[63],&LnkLI63,ap);} /* UNWIND-EXIT */  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[63],(void **)&LnkLI63,ap);} /* UNWIND-EXIT */
452  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],(void **)&LnkLI62,ap);} /* C1LAMBDA-EXPR */
453  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[61],&LnkLI61,ap);} /* MAKE-INFO */  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[61],(void **)&LnkLI61,ap);} /* MAKE-INFO */
454  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,1,ap);} /* C1LOCAL-CLOSURE */  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,1,ap);} /* C1LOCAL-CLOSURE */
455  static LnkT59(){ call_or_link(VV[59],&Lnk59);} /* C2EXPR */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* C2EXPR */
456  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],&LnkLI58,ap);} /* CMPWARN */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],(void **)&LnkLI58,ap);} /* CMPWARN */
457  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* TYPE-FILTER */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* TYPE-FILTER */
458  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,2,ap);} /* TYPE-AND */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,2,ap);} /* TYPE-AND */
459  static LnkT55(){ call_or_link(VV[55],&Lnk55);} /* COPY-INFO */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* COPY-INFO */
460  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* C1EXPR */  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* C1EXPR */
461  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],&LnkLI53,ap);} /* CMPERR */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],(void **)&LnkLI53,ap);} /* CMPERR */
462  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,1,ap);} /* C1PROGN */  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,1,ap);} /* C1PROGN */
463  static object  LnkTLI48(){return call_proc0(VV[48],&LnkLI48);} /* C1NIL */  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* C1NIL */
464  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C1CONSTANT-VALUE */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,2,ap);} /* C1CONSTANT-VALUE */
465  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,3,ap);} /* TOO-MANY-ARGS */
466  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,3,ap);} /* TOO-FEW-ARGS */
467    
468  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
469  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