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 |
|
|
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 |
|
|
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 |
|
|
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; |
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)); |
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 |
|
|
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; |
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;} |
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)); |
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); |
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; |
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)); |
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;} |
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])); |
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 |
|
|
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){ |
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))); |
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]))); |
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]); |
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 |
|
|
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;} |
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 |
|
|
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))); |
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 |