1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpspecial.h" |
4 |
|
void init_gcl_cmpspecial(){do_init(VV);} |
5 |
|
/* local entry for function C1QUOTE */ |
6 |
|
|
7 |
|
static object LI1(V2) |
8 |
|
|
9 |
|
register object V2; |
10 |
|
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
|
TTL:; |
13 |
|
if(!(endp_prop((V2)))){ |
14 |
|
goto T1;} |
15 |
|
(void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0))); |
16 |
|
goto T1; |
17 |
|
T1:; |
18 |
|
if(endp_prop(cdr((V2)))){ |
19 |
|
goto T4;} |
20 |
|
V3 = make_fixnum((long)length((V2))); |
21 |
|
(void)((*(LnkLI46))(VV[0],small_fixnum(1),V3)); |
22 |
|
goto T4; |
23 |
|
T4:; |
24 |
|
{object V4 = (*(LnkLI47))(car((V2)),Ct); |
25 |
|
VMR1(V4)} |
26 |
|
return Cnil; |
27 |
|
} |
28 |
|
/* local entry for function C1EVAL-WHEN */ |
29 |
|
|
30 |
|
static object LI2(V6) |
31 |
|
|
32 |
|
register object V6; |
33 |
|
{ VMB2 VMS2 VMV2 |
34 |
|
goto TTL; |
35 |
|
TTL:; |
36 |
|
if(!(endp_prop((V6)))){ |
37 |
|
goto T7;} |
38 |
|
(void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0))); |
39 |
|
goto T7; |
40 |
|
T7:; |
41 |
|
{register object V7; |
42 |
|
register object V8; |
43 |
|
V7= car((V6)); |
44 |
|
V8= car((V7)); |
45 |
|
goto T13; |
46 |
|
T13:; |
47 |
|
if(!(endp_prop((V7)))){ |
48 |
|
goto T14;} |
49 |
|
{object V9 = (*(LnkLI48))(); |
50 |
|
VMR2(V9)} |
51 |
|
goto T14; |
52 |
|
T14:; |
53 |
|
{object V10= (V8); |
54 |
|
if((V10!= VV[49]))goto T19; |
55 |
|
{object V11 = (*(LnkLI50))(cdr((V6))); |
56 |
|
VMR2(V11)} |
57 |
|
goto T19; |
58 |
|
T19:; |
59 |
|
if((V10!= VV[51]) |
60 |
|
&& (V10!= VV[52]))goto T20; |
61 |
|
goto T18; |
62 |
|
goto T20; |
63 |
|
T20:; |
64 |
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));} |
65 |
|
goto T18; |
66 |
|
T18:; |
67 |
|
V7= cdr((V7)); |
68 |
|
V8= car((V7)); |
69 |
|
goto T13;} |
70 |
|
base[0]=base[0]; |
71 |
|
return Cnil; |
72 |
|
} |
73 |
|
/* local entry for function C1DECLARE */ |
74 |
|
|
75 |
|
static object LI3(V13) |
76 |
|
|
77 |
|
object V13; |
78 |
|
{ VMB3 VMS3 VMV3 |
79 |
|
goto TTL; |
80 |
|
TTL:; |
81 |
|
V14= make_cons(VV[4],(V13)); |
82 |
|
{object V15 = (VFUN_NARGS=2,(*(LnkLI53))(VV[3],/* INLINE-ARGS */V14)); |
83 |
|
VMR3(V15)} |
84 |
|
return Cnil; |
85 |
|
} |
86 |
|
/* local entry for function C1THE */ |
87 |
|
|
88 |
|
static object LI4(V17) |
89 |
|
|
90 |
|
register object V17; |
91 |
|
{ VMB4 VMS4 VMV4 |
92 |
|
goto TTL; |
93 |
|
TTL:; |
94 |
|
{register object V18; |
95 |
|
register object V19; |
96 |
|
object V20; |
97 |
|
V18= Cnil; |
98 |
|
V19= Cnil; |
99 |
|
V20= Cnil; |
100 |
|
if(endp_prop((V17))){ |
101 |
|
goto T30;} |
102 |
|
if(!(endp_prop(cdr((V17))))){ |
103 |
|
goto T29;} |
104 |
|
goto T30; |
105 |
|
T30:; |
106 |
|
V21 = make_fixnum((long)length((V17))); |
107 |
|
(void)((*(LnkLI45))(VV[5],small_fixnum(2),V21)); |
108 |
|
goto T29; |
109 |
|
T29:; |
110 |
|
if(endp_prop(cddr((V17)))){ |
111 |
|
goto T34;} |
112 |
|
V22 = make_fixnum((long)length((V17))); |
113 |
|
(void)((*(LnkLI46))(VV[5],small_fixnum(2),V22)); |
114 |
|
goto T34; |
115 |
|
T34:; |
116 |
|
V19= (*(LnkLI54))(cadr((V17))); |
117 |
|
base[0]= cadr((V19)); |
118 |
|
vs_top=(vs_base=base+0)+1; |
119 |
|
(void) (*Lnk55)(); |
120 |
|
vs_top=sup; |
121 |
|
V18= vs_base[0]; |
122 |
|
V23= (*(LnkLI57))(car((V17))); |
123 |
|
V24= structure_ref((V18),VV[6],2); |
124 |
|
V20= (*(LnkLI56))(/* INLINE-ARGS */V23,/* INLINE-ARGS */V24); |
125 |
|
if(((V20))!=Cnil){ |
126 |
|
goto T44;} |
127 |
|
V25= make_cons(VV[5],(V17)); |
128 |
|
(void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V25))); |
129 |
|
goto T44; |
130 |
|
T44:; |
131 |
|
(void)(structure_set((V18),VV[6],2,(V20))); |
132 |
|
{object V26 = listA(3,car((V19)),(V18),cddr((V19))); |
133 |
|
VMR4(V26)}} |
134 |
|
base[0]=base[0]; |
135 |
|
return Cnil; |
136 |
|
} |
137 |
|
/* local entry for function C1COMPILER-LET */ |
138 |
|
|
139 |
|
static object LI5(V28) |
140 |
|
|
141 |
|
object V28; |
142 |
|
{ VMB5 VMS5 VMV5 |
143 |
|
goto TTL; |
144 |
|
TTL:; |
145 |
|
{register object V29; |
146 |
|
register object V30; |
147 |
|
V29= Cnil; |
148 |
|
V30= Cnil; |
149 |
|
if(!(endp_prop((V28)))){ |
150 |
|
goto T50;} |
151 |
|
(void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0))); |
152 |
|
goto T50; |
153 |
|
T50:; |
154 |
|
{register object V31; |
155 |
|
register object V32; |
156 |
|
V31= car((V28)); |
157 |
|
V32= car((V31)); |
158 |
|
goto T57; |
159 |
|
T57:; |
160 |
|
if(!(endp_prop((V31)))){ |
161 |
|
goto T58;} |
162 |
|
goto T53; |
163 |
|
goto T58; |
164 |
|
T58:; |
165 |
|
if(!(type_of((V32))==t_cons)){ |
166 |
|
goto T64;} |
167 |
|
if(!(type_of(car((V32)))==t_symbol)){ |
168 |
|
goto T67;} |
169 |
|
if(endp_prop(cdr((V32)))){ |
170 |
|
goto T66;} |
171 |
|
if(endp_prop(cddr((V32)))){ |
172 |
|
goto T66;} |
173 |
|
goto T67; |
174 |
|
T67:; |
175 |
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32)))); |
176 |
|
goto T66; |
177 |
|
T66:; |
178 |
|
{register object V33; |
179 |
|
V33= car((V32)); |
180 |
|
V29= make_cons((V33),(V29));} |
181 |
|
{register object V34; |
182 |
|
if(!(endp_prop(cdr((V32))))){ |
183 |
|
goto T78;} |
184 |
|
V34= Cnil; |
185 |
|
goto T76; |
186 |
|
goto T78; |
187 |
|
T78:; |
188 |
|
base[3]= cadr((V32)); |
189 |
|
vs_top=(vs_base=base+3)+1; |
190 |
|
Leval(); |
191 |
|
vs_top=sup; |
192 |
|
V34= vs_base[0]; |
193 |
|
goto T76; |
194 |
|
T76:; |
195 |
|
V30= make_cons((V34),(V30)); |
196 |
|
goto T62;} |
197 |
|
goto T64; |
198 |
|
T64:; |
199 |
|
if(!(type_of((V32))==t_symbol)){ |
200 |
|
goto T83;} |
201 |
|
{register object V35; |
202 |
|
V35= (V32); |
203 |
|
V29= make_cons((V35),(V29));} |
204 |
|
{register object V36; |
205 |
|
V36= Cnil; |
206 |
|
V30= make_cons((V36),(V30)); |
207 |
|
goto T62;} |
208 |
|
goto T83; |
209 |
|
T83:; |
210 |
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32)))); |
211 |
|
goto T62; |
212 |
|
T62:; |
213 |
|
V31= cdr((V31)); |
214 |
|
V32= car((V31)); |
215 |
|
goto T57;} |
216 |
|
goto T53; |
217 |
|
T53:; |
218 |
|
V29= reverse((V29)); |
219 |
|
V30= reverse((V30)); |
220 |
|
{object symbols,values; |
221 |
|
bds_ptr V37=bds_top; |
222 |
|
base[0]= (V29); |
223 |
|
symbols= base[0]; |
224 |
|
base[1]= (V30); |
225 |
|
values= base[1]; |
226 |
|
while(!endp(symbols)){ |
227 |
|
if(type_of(MMcar(symbols))!=t_symbol) |
228 |
|
FEinvalid_variable("~s is not a symbol.",MMcar(symbols)); |
229 |
|
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
230 |
|
else{bds_bind(MMcar(symbols),MMcar(values)); |
231 |
|
values=MMcdr(values);} |
232 |
|
symbols=MMcdr(symbols);} |
233 |
|
V38= (*(LnkLI50))(cdr((V28))); |
234 |
|
bds_unwind(V37); |
235 |
|
V28= V38;} |
236 |
|
{object V39 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28)); |
237 |
|
VMR5(V39)}} |
238 |
|
base[0]=base[0]; |
239 |
|
return Cnil; |
240 |
|
} |
241 |
|
/* function definition for C2COMPILER-LET */ |
242 |
|
|
243 |
|
static void L6() |
244 |
|
{register object *base=vs_base; |
245 |
|
register object *sup=base+VM6; VC6 |
246 |
|
vs_reserve(VM6); |
247 |
|
{object V40; |
248 |
|
object V41; |
249 |
|
object V42; |
250 |
|
check_arg(3); |
251 |
|
V40=(base[0]); |
252 |
|
V41=(base[1]); |
253 |
|
V42=(base[2]); |
254 |
|
vs_top=sup; |
255 |
|
goto TTL; |
256 |
|
TTL:; |
257 |
|
{object symbols,values; |
258 |
|
bds_ptr V43=bds_top; |
259 |
|
base[3]= (V40); |
260 |
|
symbols= base[3]; |
261 |
|
base[4]= (V41); |
262 |
|
values= base[4]; |
263 |
|
while(!endp(symbols)){ |
264 |
|
if(type_of(MMcar(symbols))!=t_symbol) |
265 |
|
FEinvalid_variable("~s is not a symbol.",MMcar(symbols)); |
266 |
|
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
267 |
|
else{bds_bind(MMcar(symbols),MMcar(values)); |
268 |
|
values=MMcdr(values);} |
269 |
|
symbols=MMcdr(symbols);} |
270 |
|
base[3]= (V42); |
271 |
|
vs_top=(vs_base=base+3)+1; |
272 |
|
(void) (*Lnk59)(); |
273 |
|
bds_unwind(V43); |
274 |
|
return;} |
275 |
|
} |
276 |
|
} |
277 |
|
/* local entry for function C1FUNCTION */ |
278 |
|
|
279 |
|
static object LI7(V45) |
280 |
|
|
281 |
|
register object V45; |
282 |
|
{ VMB7 VMS7 VMV7 |
283 |
|
bds_check; |
284 |
|
goto TTL; |
285 |
|
TTL:; |
286 |
|
{object V46; |
287 |
|
V46= Cnil; |
288 |
|
if(!(endp_prop((V45)))){ |
289 |
|
goto T107;} |
290 |
|
(void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0))); |
291 |
|
goto T107; |
292 |
|
T107:; |
293 |
|
if(endp_prop(cdr((V45)))){ |
294 |
|
goto T110;} |
295 |
|
V47 = make_fixnum((long)length((V45))); |
296 |
|
(void)((*(LnkLI46))(VV[11],small_fixnum(1),V47)); |
297 |
|
goto T110; |
298 |
|
T110:; |
299 |
|
{register object V48; |
300 |
|
V48= car((V45)); |
301 |
|
if(!(type_of((V48))==t_symbol)){ |
302 |
|
goto T115;} |
303 |
|
V46= (*(LnkLI60))((V48)); |
304 |
|
if(((V46))==Cnil){ |
305 |
|
goto T118;} |
306 |
|
if(!((car((V46)))==(VV[12]))){ |
307 |
|
goto T118;} |
308 |
|
{object V49 = list(3,VV[11],symbol_value(VV[13]),(V46)); |
309 |
|
VMR7(V49)} |
310 |
|
goto T118; |
311 |
|
T118:; |
312 |
|
{object V50; |
313 |
|
V51= get((V48),VV[15],Cnil); |
314 |
|
V50= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V51)==Cnil?Ct:Cnil))); |
315 |
|
{object V52 = list(3,VV[11],(V50),list(3,VV[16],(V50),(V48))); |
316 |
|
VMR7(V52)}} |
317 |
|
goto T115; |
318 |
|
T115:; |
319 |
|
if(!(type_of((V48))==t_cons)){ |
320 |
|
goto T126;} |
321 |
|
if(!((car((V48)))==(VV[17]))){ |
322 |
|
goto T126;} |
323 |
|
if(!(endp_prop(cdr((V48))))){ |
324 |
|
goto T130;} |
325 |
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48)))); |
326 |
|
goto T130; |
327 |
|
T130:; |
328 |
|
base[0]= make_cons(VV[20],symbol_value(VV[19])); |
329 |
|
base[1]= make_cons(VV[20],symbol_value(VV[21])); |
330 |
|
base[2]= make_cons(VV[20],symbol_value(VV[22])); |
331 |
|
base[3]= make_cons(VV[20],symbol_value(VV[23])); |
332 |
|
bds_bind(VV[19],base[0]); |
333 |
|
bds_bind(VV[21],base[1]); |
334 |
|
bds_bind(VV[22],base[2]); |
335 |
|
bds_bind(VV[23],base[3]); |
336 |
|
V48= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V48)))); |
337 |
|
{object V53 = list(3,VV[11],cadr((V48)),(V48)); |
338 |
|
bds_unwind1; |
339 |
|
bds_unwind1; |
340 |
|
bds_unwind1; |
341 |
|
bds_unwind1; |
342 |
|
VMR7(V53)} |
343 |
|
goto T126; |
344 |
|
T126:; |
345 |
|
{object V54 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48))); |
346 |
|
VMR7(V54)}}} |
347 |
|
base[0]=base[0]; |
348 |
|
return Cnil; |
349 |
|
} |
350 |
|
/* local entry for function C2FUNCTION */ |
351 |
|
|
352 |
|
static object LI8(V56) |
353 |
|
|
354 |
|
register object V56; |
355 |
|
{ VMB8 VMS8 VMV8 |
356 |
|
goto TTL; |
357 |
|
TTL:; |
358 |
|
{object V57= car((V56)); |
359 |
|
if((V57!= VV[16]))goto T139; |
360 |
|
V58= list(2,VV[25],(*(LnkLI64))(caddr((V56)))); |
361 |
|
{object V59 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V58)); |
362 |
|
VMR8(V59)} |
363 |
|
goto T139; |
364 |
|
T139:; |
365 |
|
if((V57!= VV[12]))goto T140; |
366 |
|
if((cadddr((V56)))==Cnil){ |
367 |
|
goto T142;} |
368 |
|
V60= list(2,VV[26],structure_ref(caddr((V56)),VV[27],2)); |
369 |
|
{object V61 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V60)); |
370 |
|
VMR8(V61)} |
371 |
|
goto T142; |
372 |
|
T142:; |
373 |
|
V62= list(2,VV[28],structure_ref(caddr((V56)),VV[27],1)); |
374 |
|
{object V63 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V62)); |
375 |
|
VMR8(V63)} |
376 |
|
goto T140; |
377 |
|
T140:; |
378 |
|
{register object V64; |
379 |
|
setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1))); |
380 |
|
V64= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32]))); |
381 |
|
{object V65; |
382 |
|
if((symbol_value(VV[33]))!=Cnil){ |
383 |
|
goto T150;} |
384 |
|
V66= Cnil; |
385 |
|
goto T148; |
386 |
|
goto T150; |
387 |
|
T150:; |
388 |
|
V66= make_cons(small_fixnum(0),small_fixnum(0)); |
389 |
|
goto T148; |
390 |
|
T148:; |
391 |
|
V65= list(5,VV[30],V66,symbol_value(VV[34]),(V64),(V56)); |
392 |
|
setq(VV[35],make_cons((V65),symbol_value(VV[35])));} |
393 |
|
setq(VV[36],make_cons(V64,symbol_value(VV[36]))); |
394 |
|
if((symbol_value(VV[33]))==Cnil){ |
395 |
|
goto T156;} |
396 |
|
V68= list(3,VV[37],structure_ref((V64),VV[27],3),symbol_value(VV[33])); |
397 |
|
{object V69 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V68)); |
398 |
|
VMR8(V69)} |
399 |
|
goto T156; |
400 |
|
T156:; |
401 |
|
(void)((*(LnkLI66))(Cnil));{object V70; |
402 |
|
V70= symbol_value(VV[39]); |
403 |
|
V71= structure_ref((V64),VV[27],3); |
404 |
|
V72= list(3,VV[38],V70,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V71))); |
405 |
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));} |
406 |
|
V73= list(2,VV[42],symbol_value(VV[39])); |
407 |
|
{object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73)); |
408 |
|
VMR8(V74)}}} |
409 |
|
base[0]=base[0]; |
410 |
|
return Cnil; |
411 |
|
} |
412 |
|
/* local entry for function WT-SYMBOL-FUNCTION */ |
413 |
|
|
414 |
|
static object LI9(V76) |
415 |
|
|
416 |
|
object V76; |
417 |
|
{ VMB9 VMS9 VMV9 |
418 |
|
goto TTL; |
419 |
|
TTL:; |
420 |
|
if((symbol_value(VV[43]))==Cnil){ |
421 |
|
goto T161;} |
422 |
|
princ_str("symbol_function(VV[",VV[44]); |
423 |
|
(void)((*(LnkLI69))((V76))); |
424 |
|
princ_str("])",VV[44]); |
425 |
|
{object V77 = Cnil; |
426 |
|
VMR9(V77)} |
427 |
|
goto T161; |
428 |
|
T161:; |
429 |
|
princ_str("(VV[",VV[44]); |
430 |
|
(void)((*(LnkLI69))((V76))); |
431 |
|
princ_str("]->s.s_gfdef)",VV[44]); |
432 |
|
{object V78 = Cnil; |
433 |
|
VMR9(V78)} |
434 |
|
return Cnil; |
435 |
|
} |
436 |
|
/* local entry for function WT-MAKE-CCLOSURE */ |
437 |
|
|
438 |
|
static object LI10(V81,V82) |
439 |
|
|
440 |
|
object V81;object V82; |
441 |
|
{ VMB10 VMS10 VMV10 |
442 |
|
goto TTL; |
443 |
|
TTL:; |
444 |
|
princ_str("\n make_cclosure_new(LC",VV[44]); |
445 |
|
(void)((*(LnkLI69))((V81))); |
446 |
|
princ_str(",Cnil,",VV[44]); |
447 |
|
(void)((VFUN_NARGS=1,(*(LnkLI70))((V82)))); |
448 |
|
princ_str(",Cdata)",VV[44]); |
449 |
|
{object V83 = Cnil; |
450 |
|
VMR10(V83)} |
451 |
|
return Cnil; |
452 |
|
} |
453 |
|
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* WT-CLINK */ |
454 |
|
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
455 |
|
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
456 |
|
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
457 |
|
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
458 |
|
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[65],(void **)(void *)&LnkLI65,first,ap);va_end(ap);return V1;} /* MAKE-FUN */ |
459 |
|
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
460 |
|
static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[63],(void **)(void *)&LnkLI63,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
461 |
|
static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[62],(void **)(void *)&LnkLI62,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
462 |
|
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[61],(void **)(void *)&LnkLI61,first,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
463 |
|
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-CLOSURE */ |
464 |
|
static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* C2EXPR */ |
465 |
|
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
466 |
|
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
467 |
|
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
468 |
|
static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* COPY-INFO */ |
469 |
|
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
470 |
|
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPERR */ |
471 |
|
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C1PROGN */ |
472 |
|
static object LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* C1NIL */ |
473 |
|
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */ |
474 |
|
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */ |
475 |
|
static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[45],(void **)(void *)&LnkLI45,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
476 |
|
|
477 |
|
#ifdef SYSTEM_SPECIAL_INIT |
478 |
|
SYSTEM_SPECIAL_INIT |
479 |
|
#endif |
480 |
|
|