1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpcall.h" |
4 |
|
void init_gcl_cmpcall(){do_init(VV);} |
5 |
|
/* local entry for function FAST-LINK-PROCLAIMED-TYPE-P */ |
6 |
|
|
7 |
|
static object LI1(object V1,object first,...) |
8 |
|
{ |
9 |
|
va_list ap; |
10 |
|
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
|
{register object V2; |
12 |
|
object V3; |
13 |
|
va_start(ap,first); |
14 |
|
if(narg <1) too_few_arguments(); |
15 |
|
V2= V1; |
16 |
|
narg = narg - 1; |
17 |
|
if (narg <= 0) goto T1; |
18 |
|
else { |
19 |
|
V3= first;} |
20 |
|
--narg; goto T2; |
21 |
|
goto T1; |
22 |
|
T1:; |
23 |
|
V3= Cnil; |
24 |
|
goto T2; |
25 |
|
T2:; |
26 |
|
if(type_of((V2))==t_symbol){ |
27 |
|
goto T4;} |
28 |
|
{object V4 = Cnil; |
29 |
|
VMR1(V4)} |
30 |
|
goto T4; |
31 |
|
T4:; |
32 |
|
if(((long)length((V3)))<(64)){ |
33 |
|
goto T6;} |
34 |
|
{object V5 = Cnil; |
35 |
|
VMR1(V5)} |
36 |
|
goto T6; |
37 |
|
T6:;{object V6; |
38 |
|
if((get((V2),VV[0],Cnil))!=Cnil){ |
39 |
|
goto T10;} |
40 |
|
V6= Cnil; |
41 |
|
goto T9; |
42 |
|
goto T10; |
43 |
|
T10:; |
44 |
|
V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil); |
45 |
|
goto T9; |
46 |
|
T9:; |
47 |
|
if(V6==Cnil)goto T8; |
48 |
|
{object V7 = V6; |
49 |
|
VMR1(V7)} |
50 |
|
goto T8; |
51 |
|
T8:;} |
52 |
|
if((get((V2),VV[1],Cnil))!=Cnil){ |
53 |
|
goto T12;} |
54 |
|
{object V8 = Cnil; |
55 |
|
VMR1(V8)} |
56 |
|
goto T12; |
57 |
|
T12:; |
58 |
|
{object V9; |
59 |
|
V9= get((V2),VV[2],Cnil); |
60 |
|
{register object x= (V9),V11= VV[3]; |
61 |
|
while(!endp(V11)) |
62 |
|
if(eql(x,V11->c.c_car)){ |
63 |
|
V10= V11; |
64 |
|
goto T17; |
65 |
|
}else V11=V11->c.c_cdr; |
66 |
|
V10= Cnil;} |
67 |
|
goto T17; |
68 |
|
T17:; |
69 |
|
if((V10)==Cnil){ |
70 |
|
goto T14;}} |
71 |
|
{object V12 = Cnil; |
72 |
|
VMR1(V12)} |
73 |
|
goto T14; |
74 |
|
T14:; |
75 |
|
{register object V13; |
76 |
|
register object V14; |
77 |
|
V13= get((V2),VV[4],Cnil); |
78 |
|
V14= car((V13)); |
79 |
|
goto T21; |
80 |
|
T21:; |
81 |
|
if(!(endp_prop((V13)))){ |
82 |
|
goto T22;} |
83 |
|
{object V15 = Ct; |
84 |
|
VMR1(V15)} |
85 |
|
goto T22; |
86 |
|
T22:; |
87 |
|
if(!(((V14))==(VV[5]))){ |
88 |
|
goto T27;} |
89 |
|
goto T26; |
90 |
|
goto T27; |
91 |
|
T27:;{object V16; |
92 |
|
{register object V17; |
93 |
|
V17= (V14); |
94 |
|
{register object x= (V17),V19= VV[3]; |
95 |
|
while(!endp(V19)) |
96 |
|
if(eql(x,V19->c.c_car)){ |
97 |
|
V18= V19; |
98 |
|
goto T31; |
99 |
|
}else V19=V19->c.c_cdr; |
100 |
|
V18= Cnil;} |
101 |
|
goto T31; |
102 |
|
T31:; |
103 |
|
V16= ((V18)==Cnil?Ct:Cnil);} |
104 |
|
if(V16==Cnil)goto T29; |
105 |
|
goto T26; |
106 |
|
goto T29; |
107 |
|
T29:;} |
108 |
|
{object V20 = Cnil; |
109 |
|
VMR1(V20)} |
110 |
|
goto T26; |
111 |
|
T26:; |
112 |
|
V13= cdr((V13)); |
113 |
|
V14= car((V13)); |
114 |
|
goto T21;} |
115 |
|
va_end(ap); |
116 |
|
base[0]=base[0]; |
117 |
|
return Cnil;} |
118 |
|
} |
119 |
|
/* local entry for function CMP-MACRO-FUNCTION */ |
120 |
|
|
121 |
|
static object LI2(V22) |
122 |
|
|
123 |
|
object V22; |
124 |
|
{ VMB2 VMS2 VMV2 |
125 |
|
goto TTL; |
126 |
|
TTL:; |
127 |
|
{object V23; |
128 |
|
V23= Cnil; |
129 |
|
V23= (*(LnkLI100))((V22)); |
130 |
|
if(((V23))==Cnil){ |
131 |
|
goto T39;} |
132 |
|
if(!((car((V23)))==(VV[6]))){ |
133 |
|
goto T43;} |
134 |
|
{object V24 = Cnil; |
135 |
|
VMR2(V24)} |
136 |
|
goto T43; |
137 |
|
T43:; |
138 |
|
{object V25 = (V23); |
139 |
|
VMR2(V25)} |
140 |
|
goto T39; |
141 |
|
T39:; |
142 |
|
base[0]= (V22); |
143 |
|
vs_top=(vs_base=base+0)+1; |
144 |
|
Lmacro_function(); |
145 |
|
vs_top=sup; |
146 |
|
{object V26 = vs_base[0]; |
147 |
|
VMR2(V26)}} |
148 |
|
base[0]=base[0]; |
149 |
|
return Cnil; |
150 |
|
} |
151 |
|
/* local entry for function C1FUNOB */ |
152 |
|
|
153 |
|
static object LI3(V28) |
154 |
|
|
155 |
|
register object V28; |
156 |
|
{ VMB3 VMS3 VMV3 |
157 |
|
bds_check; |
158 |
|
goto TTL; |
159 |
|
TTL:; |
160 |
|
{register object V29; |
161 |
|
V29= Cnil; |
162 |
|
if(!(type_of((V28))==t_cons)){ |
163 |
|
goto T47;} |
164 |
|
if(!(type_of(car((V28)))==t_symbol)){ |
165 |
|
goto T47;} |
166 |
|
if(((*(LnkLI101))(car((V28))))==Cnil){ |
167 |
|
goto T47;} |
168 |
|
V28= (*(LnkLI102))((V28)); |
169 |
|
goto T47; |
170 |
|
T47:;{object V30; |
171 |
|
if(type_of((V28))==t_cons){ |
172 |
|
goto T57;} |
173 |
|
V30= Cnil; |
174 |
|
goto T56; |
175 |
|
goto T57; |
176 |
|
T57:;{object V31; |
177 |
|
if((car((V28)))==(VV[7])){ |
178 |
|
goto T61;} |
179 |
|
V31= Cnil; |
180 |
|
goto T60; |
181 |
|
goto T61; |
182 |
|
T61:; |
183 |
|
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
184 |
|
goto T63;} |
185 |
|
V31= Cnil; |
186 |
|
goto T60; |
187 |
|
goto T63; |
188 |
|
T63:; |
189 |
|
if(endp_prop(cddr((V28)))){ |
190 |
|
goto T65;} |
191 |
|
V31= Cnil; |
192 |
|
goto T60; |
193 |
|
goto T65; |
194 |
|
T65:;{object V32; |
195 |
|
if(type_of(cadr((V28)))==t_cons){ |
196 |
|
goto T69;} |
197 |
|
V32= Cnil; |
198 |
|
goto T68; |
199 |
|
goto T69; |
200 |
|
T69:; |
201 |
|
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
202 |
|
goto T71;} |
203 |
|
V32= Cnil; |
204 |
|
goto T68; |
205 |
|
goto T71; |
206 |
|
T71:; |
207 |
|
if((caadr((V28)))==(VV[8])){ |
208 |
|
goto T73;} |
209 |
|
V32= Cnil; |
210 |
|
goto T68; |
211 |
|
goto T73; |
212 |
|
T73:; |
213 |
|
bds_bind(VV[9],Cnil); |
214 |
|
bds_bind(VV[10],Cnil); |
215 |
|
bds_bind(VV[11],Cnil); |
216 |
|
bds_bind(VV[12],Cnil); |
217 |
|
{object V33; |
218 |
|
V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
219 |
|
V34= list(3,VV[13],cadr((V33)),(V33)); |
220 |
|
bds_unwind1; |
221 |
|
bds_unwind1; |
222 |
|
bds_unwind1; |
223 |
|
bds_unwind1; |
224 |
|
V32= V34;} |
225 |
|
goto T68; |
226 |
|
T68:; |
227 |
|
if(V32==Cnil)goto T67; |
228 |
|
V31= V32; |
229 |
|
goto T60; |
230 |
|
goto T67; |
231 |
|
T67:;} |
232 |
|
if(type_of(cadr((V28)))==t_symbol){ |
233 |
|
goto T76;} |
234 |
|
V31= Cnil; |
235 |
|
goto T60; |
236 |
|
goto T76; |
237 |
|
T76:;{object V35; |
238 |
|
V29= (*(LnkLI100))(cadr((V28))); |
239 |
|
if(((V29))!=Cnil){ |
240 |
|
goto T80;} |
241 |
|
V35= Cnil; |
242 |
|
goto T79; |
243 |
|
goto T80; |
244 |
|
T80:; |
245 |
|
if((car((V29)))==(VV[6])){ |
246 |
|
goto T83;} |
247 |
|
V35= Cnil; |
248 |
|
goto T79; |
249 |
|
goto T83; |
250 |
|
T83:; |
251 |
|
V35= (V29); |
252 |
|
goto T79; |
253 |
|
T79:; |
254 |
|
if(V35==Cnil)goto T78; |
255 |
|
V31= V35; |
256 |
|
goto T60; |
257 |
|
goto T78; |
258 |
|
T78:;} |
259 |
|
V36= get(cadr((V28)),VV[16],Cnil); |
260 |
|
V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil))); |
261 |
|
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
262 |
|
goto T60; |
263 |
|
T60:; |
264 |
|
if(V31==Cnil)goto T59; |
265 |
|
V30= V31; |
266 |
|
goto T56; |
267 |
|
goto T59; |
268 |
|
T59:;} |
269 |
|
if((car((V28)))==(VV[17])){ |
270 |
|
goto T86;} |
271 |
|
V30= Cnil; |
272 |
|
goto T56; |
273 |
|
goto T86; |
274 |
|
T86:; |
275 |
|
if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){ |
276 |
|
goto T88;} |
277 |
|
V30= Cnil; |
278 |
|
goto T56; |
279 |
|
goto T88; |
280 |
|
T88:; |
281 |
|
if(endp_prop(cddr((V28)))){ |
282 |
|
goto T90;} |
283 |
|
V30= Cnil; |
284 |
|
goto T56; |
285 |
|
goto T90; |
286 |
|
T90:;{object V38; |
287 |
|
if(type_of(cadr((V28)))==t_cons){ |
288 |
|
goto T94;} |
289 |
|
V38= Cnil; |
290 |
|
goto T93; |
291 |
|
goto T94; |
292 |
|
T94:; |
293 |
|
if((caadr((V28)))==(VV[8])){ |
294 |
|
goto T96;} |
295 |
|
V38= Cnil; |
296 |
|
goto T93; |
297 |
|
goto T96; |
298 |
|
T96:; |
299 |
|
if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){ |
300 |
|
goto T98;} |
301 |
|
V38= Cnil; |
302 |
|
goto T93; |
303 |
|
goto T98; |
304 |
|
T98:; |
305 |
|
{object V39; |
306 |
|
V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
307 |
|
V38= list(3,VV[13],cadr((V39)),(V39));} |
308 |
|
goto T93; |
309 |
|
T93:; |
310 |
|
if(V38==Cnil)goto T92; |
311 |
|
V30= V38; |
312 |
|
goto T56; |
313 |
|
goto T92; |
314 |
|
T92:;} |
315 |
|
if(type_of(cadr((V28)))==t_symbol){ |
316 |
|
goto T101;} |
317 |
|
V30= Cnil; |
318 |
|
goto T56; |
319 |
|
goto T101; |
320 |
|
T101:;{object V40; |
321 |
|
V29= (*(LnkLI100))(cadr((V28))); |
322 |
|
if(((V29))!=Cnil){ |
323 |
|
goto T105;} |
324 |
|
V40= Cnil; |
325 |
|
goto T104; |
326 |
|
goto T105; |
327 |
|
T105:; |
328 |
|
if((car((V29)))==(VV[6])){ |
329 |
|
goto T108;} |
330 |
|
V40= Cnil; |
331 |
|
goto T104; |
332 |
|
goto T108; |
333 |
|
T108:; |
334 |
|
V40= (V29); |
335 |
|
goto T104; |
336 |
|
T104:; |
337 |
|
if(V40==Cnil)goto T103; |
338 |
|
V30= V40; |
339 |
|
goto T56; |
340 |
|
goto T103; |
341 |
|
T103:;} |
342 |
|
V41= get(cadr((V28)),VV[16],Cnil); |
343 |
|
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil))); |
344 |
|
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
345 |
|
goto T56; |
346 |
|
T56:; |
347 |
|
if(V30==Cnil)goto T55; |
348 |
|
{object V43 = V30; |
349 |
|
VMR3(V43)} |
350 |
|
goto T55; |
351 |
|
T55:;} |
352 |
|
{object V44; |
353 |
|
object V45; |
354 |
|
V44= (*(LnkLI105))((V28)); |
355 |
|
V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct)); |
356 |
|
(void)((*(LnkLI106))((V45),cadr((V44)))); |
357 |
|
{object V46 = list(3,VV[18],(V45),(V44)); |
358 |
|
VMR3(V46)}}} |
359 |
|
base[0]=base[0]; |
360 |
|
return Cnil; |
361 |
|
} |
362 |
|
/* local entry for function C2FUNCALL-AUX */ |
363 |
|
|
364 |
|
static object LI4(V48) |
365 |
|
|
366 |
|
register object V48; |
367 |
|
{ VMB4 VMS4 VMV4 |
368 |
|
goto TTL; |
369 |
|
TTL:; |
370 |
|
{object V49; |
371 |
|
object V50; |
372 |
|
object V51; |
373 |
|
object V52; |
374 |
|
V49= cadr((V48)); |
375 |
|
V50= caddr((V48)); |
376 |
|
V51= cadddr((V48)); |
377 |
|
V52= car(cddddr((V48))); |
378 |
|
{object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49))); |
379 |
|
VMR4(V53)}} |
380 |
|
base[0]=base[0]; |
381 |
|
return Cnil; |
382 |
|
} |
383 |
|
/* local entry for function C2FUNCALL */ |
384 |
|
|
385 |
|
static object LI5(object V55,object V54,object first,...) |
386 |
|
{ |
387 |
|
va_list ap; |
388 |
|
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
389 |
|
bds_check; |
390 |
|
{register object V56; |
391 |
|
register object V57; |
392 |
|
register object V58; |
393 |
|
object V59; |
394 |
|
va_start(ap,first); |
395 |
|
if(narg <2) too_few_arguments(); |
396 |
|
V56= V55; |
397 |
|
V57= V54; |
398 |
|
narg = narg - 2; |
399 |
|
if (narg <= 0) goto T118; |
400 |
|
else { |
401 |
|
V58= first;} |
402 |
|
if (--narg <= 0) goto T119; |
403 |
|
else { |
404 |
|
V59= va_arg(ap,object);} |
405 |
|
--narg; goto T120; |
406 |
|
goto T118; |
407 |
|
T118:; |
408 |
|
V58= Cnil; |
409 |
|
goto T119; |
410 |
|
T119:; |
411 |
|
V59= Cnil; |
412 |
|
goto T120; |
413 |
|
T120:; |
414 |
|
{object V60= car((V56)); |
415 |
|
if((V60!= VV[14]))goto T123; |
416 |
|
{object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct); |
417 |
|
VMR5(V61)} |
418 |
|
goto T123; |
419 |
|
T123:; |
420 |
|
if((V60!= VV[6]))goto T124; |
421 |
|
{object V62 = (*(LnkLI109))(cddr((V56)),(V57)); |
422 |
|
VMR5(V62)} |
423 |
|
goto T124; |
424 |
|
T124:; |
425 |
|
if((V60!= VV[13]))goto T125; |
426 |
|
{object V63 = (*(LnkLI110))(caddr((V56)),(V57)); |
427 |
|
VMR5(V63)} |
428 |
|
goto T125; |
429 |
|
T125:; |
430 |
|
if((V60!= VV[18]))goto T126; |
431 |
|
{register object V64; |
432 |
|
base[0]= symbol_value(VV[19]); |
433 |
|
V64= caddr((V56)); |
434 |
|
bds_bind(VV[19],base[0]); |
435 |
|
if(!(type_of((V57))==t_cons||((V57))==Cnil)){ |
436 |
|
goto T129;} |
437 |
|
if((symbol_value(VV[20]))==Cnil){ |
438 |
|
goto T129;} |
439 |
|
if((symbol_value(VV[21]))==(VV[22])){ |
440 |
|
goto T130;} |
441 |
|
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
442 |
|
goto T137;} |
443 |
|
if((car(symbol_value(VV[21])))==(VV[23])){ |
444 |
|
goto T130;} |
445 |
|
goto T137; |
446 |
|
T137:; |
447 |
|
if(((V59))==Cnil){ |
448 |
|
goto T129;} |
449 |
|
V65= structure_ref((V59),VV[24],2); |
450 |
|
if(!(equal(/* INLINE-ARGS */V65,VV[25]))){ |
451 |
|
goto T129;} |
452 |
|
goto T130; |
453 |
|
T130:; |
454 |
|
(void)((*(LnkLI111))((V64),(V57),(V59))); |
455 |
|
{object V66 = Cnil; |
456 |
|
bds_unwind1; |
457 |
|
VMR5(V66)} |
458 |
|
goto T129; |
459 |
|
T129:; |
460 |
|
if(((V58))!=Cnil){ |
461 |
|
goto T145;} |
462 |
|
if(type_of((V57))==t_cons||((V57))==Cnil){ |
463 |
|
goto T148;} |
464 |
|
(void)((*(LnkLI112))()); |
465 |
|
goto T148; |
466 |
|
T148:; |
467 |
|
if(!((car((V64)))==(VV[26]))){ |
468 |
|
goto T152;} |
469 |
|
V58= caddr((V64)); |
470 |
|
goto T145; |
471 |
|
goto T152; |
472 |
|
T152:; |
473 |
|
if(!((car((V64)))==(VV[23]))){ |
474 |
|
goto T156;} |
475 |
|
if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){ |
476 |
|
goto T156;} |
477 |
|
V58= make_cons(VV[23],caddr((V64))); |
478 |
|
goto T145; |
479 |
|
goto T156; |
480 |
|
T156:; |
481 |
|
V58= list(2,VV[27],(*(LnkLI114))()); |
482 |
|
bds_bind(VV[21],(V58)); |
483 |
|
V67= (*(LnkLI115))(caddr((V56))); |
484 |
|
bds_unwind1; |
485 |
|
goto T145; |
486 |
|
T145:; |
487 |
|
(void)((*(LnkLI116))((V57))); |
488 |
|
if((symbol_value(VV[28]))==Cnil){ |
489 |
|
goto T166;} |
490 |
|
princ_str("\n super_funcall(",VV[29]); |
491 |
|
(void)((*(LnkLI117))((V58))); |
492 |
|
princ_str(");",VV[29]); |
493 |
|
goto T164; |
494 |
|
goto T166; |
495 |
|
T166:; |
496 |
|
if((symbol_value(VV[30]))==Cnil){ |
497 |
|
goto T172;} |
498 |
|
(void)(( |
499 |
|
(type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)): |
500 |
|
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
501 |
|
goto T164; |
502 |
|
goto T172; |
503 |
|
T172:; |
504 |
|
princ_str("\n super_funcall_no_event(",VV[29]); |
505 |
|
(void)((*(LnkLI117))((V58))); |
506 |
|
princ_str(");",VV[29]); |
507 |
|
goto T164; |
508 |
|
T164:; |
509 |
|
{object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
510 |
|
bds_unwind1; |
511 |
|
VMR5(V68)}} |
512 |
|
goto T126; |
513 |
|
T126:; |
514 |
|
{object V69 = (*(LnkLI112))(); |
515 |
|
VMR5(V69)}} |
516 |
|
va_end(ap); |
517 |
|
base[0]=base[0]; |
518 |
|
return Cnil;} |
519 |
|
} |
520 |
|
/* local entry for function FCALLN-INLINE */ |
521 |
|
|
522 |
|
static object LI6(object first,...) |
523 |
|
{ |
524 |
|
va_list ap; |
525 |
|
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
526 |
|
{register object V70; |
527 |
|
va_start(ap,first); |
528 |
|
narg= narg - 0; |
529 |
|
V71 = list_vector_new(narg,first,ap); |
530 |
|
V70= V71; |
531 |
|
{register object V72; |
532 |
|
object V73; |
533 |
|
V72= car((V70)); |
534 |
|
V73= Cnil; |
535 |
|
(void)((*(LnkLI117))(VV[32])); |
536 |
|
if(!(type_of((V72))==t_cons)){ |
537 |
|
goto T182;} |
538 |
|
if((car((V72)))==(VV[23])){ |
539 |
|
goto T181;} |
540 |
|
goto T182; |
541 |
|
T182:; |
542 |
|
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
543 |
|
princ_str("\n ",VV[29]); |
544 |
|
(void)((*(LnkLI117))((V72))); |
545 |
|
princ_str(" = ",VV[29]); |
546 |
|
(void)((*(LnkLI117))(car((V70)))); |
547 |
|
princ_char(44,VV[29]); |
548 |
|
goto T181; |
549 |
|
T181:; |
550 |
|
princ_str("\n (type_of(",VV[29]); |
551 |
|
(void)((*(LnkLI117))((V72))); |
552 |
|
princ_str(") == t_sfun ?",VV[29]); |
553 |
|
princ_str("(*((",VV[29]); |
554 |
|
(void)((*(LnkLI117))((V72))); |
555 |
|
princ_str(")->sfn.sfn_self)):",VV[29]); |
556 |
|
if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){ |
557 |
|
goto T200;} |
558 |
|
V73= Ct; |
559 |
|
princ_str("\n (fcall.argd=",VV[29]); |
560 |
|
V74 = make_fixnum((long)length(cdr((V70)))); |
561 |
|
(void)((*(LnkLI117))(V74)); |
562 |
|
princ_str(",type_of(",VV[29]); |
563 |
|
(void)((*(LnkLI117))((V72))); |
564 |
|
princ_str(")==t_vfun) ?",VV[29]); |
565 |
|
princ_str("\n (*((",VV[29]); |
566 |
|
(void)((*(LnkLI117))((V72))); |
567 |
|
princ_str(")->sfn.sfn_self)):",VV[29]); |
568 |
|
goto T200; |
569 |
|
T200:; |
570 |
|
princ_str("\n (fcall.fun=(",VV[29]); |
571 |
|
(void)((*(LnkLI117))((V72))); |
572 |
|
princ_str("),",VV[29]); |
573 |
|
if(((V73))!=Cnil){ |
574 |
|
goto T218;} |
575 |
|
princ_str("fcall.argd=",VV[29]); |
576 |
|
V75 = make_fixnum((long)length(cdr((V70)))); |
577 |
|
(void)((*(LnkLI117))(V75)); |
578 |
|
princ_char(44,VV[29]); |
579 |
|
goto T218; |
580 |
|
T218:; |
581 |
|
princ_str("fcalln))(",VV[29]); |
582 |
|
if((cdr((V70)))==Cnil){ |
583 |
|
goto T226;} |
584 |
|
(void)((*(LnkLI117))(cadr((V70)))); |
585 |
|
{register object V76; |
586 |
|
register object V77; |
587 |
|
V76= cddr((V70)); |
588 |
|
V77= car((V76)); |
589 |
|
goto T234; |
590 |
|
T234:; |
591 |
|
if(!(endp_prop((V76)))){ |
592 |
|
goto T235;} |
593 |
|
goto T226; |
594 |
|
goto T235; |
595 |
|
T235:; |
596 |
|
(void)((*(LnkLI117))(VV[35])); |
597 |
|
(void)((*(LnkLI117))((V77))); |
598 |
|
V76= cdr((V76)); |
599 |
|
V77= car((V76)); |
600 |
|
goto T234;} |
601 |
|
goto T226; |
602 |
|
T226:; |
603 |
|
(void)((*(LnkLI117))(VV[36])); |
604 |
|
(void)((*(LnkLI117))(VV[36])); |
605 |
|
{object V78 = Cnil; |
606 |
|
VMR6(V78)}} |
607 |
|
va_end(ap); |
608 |
|
base[0]=base[0]; |
609 |
|
return Cnil;} |
610 |
|
} |
611 |
|
/* local entry for function C2CALL-LAMBDA */ |
612 |
|
|
613 |
|
static object LI7(V81,V82) |
614 |
|
|
615 |
|
object V81;register object V82; |
616 |
|
{ VMB7 VMS7 VMV7 |
617 |
|
bds_check; |
618 |
|
goto TTL; |
619 |
|
TTL:; |
620 |
|
{register object V83; |
621 |
|
V83= caddr((V81)); |
622 |
|
if((cadr((V83)))!=Cnil){ |
623 |
|
goto T250;} |
624 |
|
if((caddr((V83)))!=Cnil){ |
625 |
|
goto T250;} |
626 |
|
if((cadddr((V83)))!=Cnil){ |
627 |
|
goto T250;} |
628 |
|
if(type_of((V82))==t_cons||((V82))==Cnil){ |
629 |
|
goto T251;} |
630 |
|
goto T250; |
631 |
|
T250:; |
632 |
|
if(!(type_of((V82))==t_cons||((V82))==Cnil)){ |
633 |
|
goto T259;} |
634 |
|
{object V84; |
635 |
|
V84= symbol_value(VV[19]); |
636 |
|
bds_bind(VV[19],symbol_value(VV[19])); |
637 |
|
(void)((*(LnkLI120))((V82))); |
638 |
|
if(((*(LnkLI121))((V83)))==Cnil){ |
639 |
|
bds_unwind1; |
640 |
|
goto T259;} |
641 |
|
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
642 |
|
(void)((*(LnkLI117))((V84))); |
643 |
|
princ_str(")+",VV[29]); |
644 |
|
V85= number_minus((VV[19]->s.s_dbind),(V84)); |
645 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V85)); |
646 |
|
princ_char(59,VV[29]); |
647 |
|
setq(VV[37],Ct); |
648 |
|
bds_unwind1;} |
649 |
|
goto T259; |
650 |
|
T259:; |
651 |
|
{object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81))))); |
652 |
|
VMR7(V86)} |
653 |
|
goto T251; |
654 |
|
T251:; |
655 |
|
{object V87; |
656 |
|
object V88; |
657 |
|
V87= make_fixnum((long)length(car((V83)))); |
658 |
|
V88= make_fixnum((long)length((V82))); |
659 |
|
if(!(eql((V88),(V87)))){ |
660 |
|
goto T276;} |
661 |
|
goto T273; |
662 |
|
goto T276; |
663 |
|
T276:; |
664 |
|
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));} |
665 |
|
goto T273; |
666 |
|
T273:; |
667 |
|
{object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81)))); |
668 |
|
VMR7(V89)}} |
669 |
|
base[0]=base[0]; |
670 |
|
return Cnil; |
671 |
|
} |
672 |
|
/* local entry for function CHECK-FNAME-ARGS */ |
673 |
|
|
674 |
|
static object LI8(V92,V93) |
675 |
|
|
676 |
|
object V92;object V93; |
677 |
|
{ VMB8 VMS8 VMV8 |
678 |
|
goto TTL; |
679 |
|
TTL:; |
680 |
|
{register object V94; |
681 |
|
V94= get((V92),VV[39],Ct); |
682 |
|
if((Ct)==((V94))){ |
683 |
|
goto T280;} |
684 |
|
goto T279; |
685 |
|
goto T280; |
686 |
|
T280:; |
687 |
|
if((get((V92),VV[40],Cnil))!=Cnil){ |
688 |
|
goto T282;} |
689 |
|
goto T279; |
690 |
|
goto T282; |
691 |
|
T282:; |
692 |
|
V94= VV[41]; |
693 |
|
goto T279; |
694 |
|
T279:; |
695 |
|
if(!(type_of((V94))==t_cons||((V94))==Cnil)){ |
696 |
|
goto T286;} |
697 |
|
if(!(type_of((V93))==t_cons||((V93))==Cnil)){ |
698 |
|
goto T286;} |
699 |
|
{register object x= VV[5],V95= (V94); |
700 |
|
while(!endp(V95)) |
701 |
|
if(eql(x,V95->c.c_car)){ |
702 |
|
goto T286; |
703 |
|
}else V95=V95->c.c_cdr;} |
704 |
|
if(!(((long)length((V94)))==((long)length((V93))))){ |
705 |
|
goto T292;} |
706 |
|
{object V96 = Ct; |
707 |
|
VMR8(V96)} |
708 |
|
goto T292; |
709 |
|
T292:; |
710 |
|
V97 = make_fixnum((long)length((V93))); |
711 |
|
V98 = make_fixnum((long)length((V94))); |
712 |
|
{object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98)); |
713 |
|
VMR8(V99)} |
714 |
|
goto T286; |
715 |
|
T286:; |
716 |
|
{object V100 = Cnil; |
717 |
|
VMR8(V100)}} |
718 |
|
return Cnil; |
719 |
|
} |
720 |
|
/* function definition for SAVE-AVMA */ |
721 |
|
|
722 |
|
static void L9() |
723 |
|
{register object *base=vs_base; |
724 |
|
register object *sup=base+VM9; VC9 |
725 |
|
vs_reserve(VM9); |
726 |
|
{object V101; |
727 |
|
check_arg(1); |
728 |
|
V101=(base[0]); |
729 |
|
vs_top=sup; |
730 |
|
goto TTL; |
731 |
|
TTL:; |
732 |
|
if((symbol_value(VV[43]))!=Cnil){ |
733 |
|
goto T295;}{object V102; |
734 |
|
{register object x= VV[44],V103= car((V101)); |
735 |
|
while(!endp(V103)) |
736 |
|
if(eql(x,V103->c.c_car)){ |
737 |
|
V102= V103; |
738 |
|
goto T301; |
739 |
|
}else V103=V103->c.c_cdr; |
740 |
|
V102= Cnil;} |
741 |
|
goto T301; |
742 |
|
T301:; |
743 |
|
if(V102==Cnil)goto T300; |
744 |
|
setq(VV[43],V102); |
745 |
|
goto T299; |
746 |
|
goto T300; |
747 |
|
T300:;} |
748 |
|
if(!((cadr((V101)))==(VV[44]))){ |
749 |
|
goto T302;} |
750 |
|
setq(VV[43],Ct); |
751 |
|
goto T299; |
752 |
|
goto T302; |
753 |
|
T302:; |
754 |
|
base[1]= small_fixnum(4); |
755 |
|
base[2]= caddr((V101)); |
756 |
|
vs_top=(vs_base=base+1)+2; |
757 |
|
Llogbitp(); |
758 |
|
vs_top=sup; |
759 |
|
setq(VV[43],vs_base[0]); |
760 |
|
goto T299; |
761 |
|
T299:; |
762 |
|
if((symbol_value(VV[43]))==Cnil){ |
763 |
|
goto T295;} |
764 |
|
princ_str("\n { save_avma;",VV[29]); |
765 |
|
vs_base=vs_top; |
766 |
|
(void) (*Lnk126)(); |
767 |
|
vs_top=sup; |
768 |
|
if(!(type_of(symbol_value(VV[45]))==t_cons)){ |
769 |
|
goto T309;} |
770 |
|
base[1]= Ct; |
771 |
|
vs_top=(vs_base=base+1)+1; |
772 |
|
return; |
773 |
|
goto T309; |
774 |
|
T309:; |
775 |
|
setq(VV[45],make_cons(symbol_value(VV[45]),VV[46])); |
776 |
|
base[1]= symbol_value(VV[45]); |
777 |
|
vs_top=(vs_base=base+1)+1; |
778 |
|
return; |
779 |
|
goto T295; |
780 |
|
T295:; |
781 |
|
base[1]= Cnil; |
782 |
|
vs_top=(vs_base=base+1)+1; |
783 |
|
return; |
784 |
|
} |
785 |
|
} |
786 |
|
/* local entry for function C2CALL-GLOBAL */ |
787 |
|
|
788 |
|
static object LI10(V108,V109,V110,V111) |
789 |
|
|
790 |
|
register object V108;register object V109;object V110;object V111; |
791 |
|
{ VMB10 VMS10 VMV10 |
792 |
|
bds_check; |
793 |
|
goto TTL; |
794 |
|
TTL:; |
795 |
|
{register object V112; |
796 |
|
V112= Cnil; |
797 |
|
bds_bind(VV[19],symbol_value(VV[19])); |
798 |
|
if(((*(LnkLI127))((V108)))==Cnil){ |
799 |
|
goto T314;} |
800 |
|
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
801 |
|
goto T317;} |
802 |
|
if((symbol_value(VV[47]))==Cnil){ |
803 |
|
goto T317;} |
804 |
|
if((symbol_value(VV[48]))==Cnil){ |
805 |
|
goto T317;} |
806 |
|
if(!((car(symbol_value(VV[48])))==((V108)))){ |
807 |
|
goto T317;} |
808 |
|
{register object x= symbol_value(VV[49]),V113= VV[50]; |
809 |
|
while(!endp(V113)) |
810 |
|
if(eql(x,V113->c.c_car)){ |
811 |
|
goto T327; |
812 |
|
}else V113=V113->c.c_cdr; |
813 |
|
goto T317;} |
814 |
|
goto T327; |
815 |
|
T327:; |
816 |
|
if(((*(LnkLI128))())==Cnil){ |
817 |
|
goto T317;} |
818 |
|
if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){ |
819 |
|
goto T317;} |
820 |
|
bds_bind(VV[21],VV[22]); |
821 |
|
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
822 |
|
bds_bind(VV[49],make_cons(symbol_value(VV[51]),Cnil)); |
823 |
|
bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),symbol_value(VV[52]))); |
824 |
|
{object V115; |
825 |
|
object V116= cdr(symbol_value(VV[48])); |
826 |
|
if(endp(V116)){ |
827 |
|
V114= Cnil; |
828 |
|
goto T336;} |
829 |
|
base[4]=V115=MMcons(Cnil,Cnil); |
830 |
|
goto T337; |
831 |
|
T337:; |
832 |
|
(V115->c.c_car)= list(2,(V116->c.c_car),Cnil); |
833 |
|
V116=MMcdr(V116); |
834 |
|
if(endp(V116)){ |
835 |
|
V114= base[4]; |
836 |
|
goto T336;} |
837 |
|
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
838 |
|
goto T337;} |
839 |
|
goto T336; |
840 |
|
T336:; |
841 |
|
(void)((*(LnkLI129))(V114,(V109))); |
842 |
|
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
843 |
|
bds_unwind1; |
844 |
|
bds_unwind1; |
845 |
|
bds_unwind1; |
846 |
|
goto T331;} |
847 |
|
princ_str("\n goto T",VV[29]); |
848 |
|
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
849 |
|
princ_char(59,VV[29]); |
850 |
|
princ_str("\nT",VV[29]); |
851 |
|
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
852 |
|
princ_str(":;",VV[29]); |
853 |
|
bds_unwind1; |
854 |
|
bds_unwind1; |
855 |
|
bds_unwind1; |
856 |
|
goto T331; |
857 |
|
T331:; |
858 |
|
(void)((*(LnkLI130))(VV[53])); |
859 |
|
princ_str("\n goto TTL;",VV[29]); |
860 |
|
{object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108))); |
861 |
|
bds_unwind1; |
862 |
|
VMR10(V118)} |
863 |
|
goto T317; |
864 |
|
T317:; |
865 |
|
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
866 |
|
goto T352;} |
867 |
|
if(((V110))!=Cnil){ |
868 |
|
goto T352;} |
869 |
|
V112= (*(LnkLI132))((V108),(V109),(V111)); |
870 |
|
if(((V112))==Cnil){ |
871 |
|
goto T352;} |
872 |
|
bds_bind(VV[45],small_fixnum(0)); |
873 |
|
bds_bind(VV[43],symbol_value(VV[43])); |
874 |
|
base[3]= (V112); |
875 |
|
vs_top=(vs_base=base+3)+1; |
876 |
|
(void) (*Lnk133)(); |
877 |
|
vs_top=sup; |
878 |
|
V119= (*(LnkLI134))((V112),(V109)); |
879 |
|
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108)))); |
880 |
|
{object V120 = (*(LnkLI135))(); |
881 |
|
bds_unwind1; |
882 |
|
bds_unwind1; |
883 |
|
bds_unwind1; |
884 |
|
VMR10(V120)} |
885 |
|
goto T352; |
886 |
|
T352:;{object V121; |
887 |
|
V121= get((V108),VV[55],Cnil); |
888 |
|
if(V121==Cnil)goto T366; |
889 |
|
V112= V121; |
890 |
|
goto T365; |
891 |
|
goto T366; |
892 |
|
T366:;} |
893 |
|
V112= get((V108),VV[56],Cnil); |
894 |
|
goto T365; |
895 |
|
T365:; |
896 |
|
if(((V112))==Cnil){ |
897 |
|
goto T363;} |
898 |
|
(void)((*(LnkLI136))((V108),(V109))); |
899 |
|
(void)((*(LnkLI116))((V109))); |
900 |
|
princ_str("\n ",VV[29]); |
901 |
|
(void)((*(LnkLI117))((V112))); |
902 |
|
princ_str("();",VV[29]); |
903 |
|
{object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
904 |
|
bds_unwind1; |
905 |
|
VMR10(V122)} |
906 |
|
goto T363; |
907 |
|
T363:; |
908 |
|
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
909 |
|
goto T375;} |
910 |
|
if(!(((long)length((V109)))<(10))){ |
911 |
|
goto T375;} |
912 |
|
if((symbol_value(VV[57]))!=Cnil){ |
913 |
|
goto T380;} |
914 |
|
if((get((V108),VV[58],Cnil))==Cnil){ |
915 |
|
goto T375;} |
916 |
|
goto T380; |
917 |
|
T380:; |
918 |
|
if(!((symbol_value(VV[21]))==(VV[59]))){ |
919 |
|
goto T386;} |
920 |
|
base[1]= Ct; |
921 |
|
base[2]= VV[60]; |
922 |
|
base[3]= (V108); |
923 |
|
vs_top=(vs_base=base+1)+3; |
924 |
|
Lformat(); |
925 |
|
vs_top=sup; |
926 |
|
goto T386; |
927 |
|
T386:; |
928 |
|
if((VV[59])==(symbol_value(VV[21]))){ |
929 |
|
goto T375;} |
930 |
|
if(((V110))!=Cnil){ |
931 |
|
goto T375;} |
932 |
|
bds_bind(VV[45],small_fixnum(0)); |
933 |
|
V123= (*(LnkLI137))((V108),(V109)); |
934 |
|
V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109)); |
935 |
|
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108)))); |
936 |
|
{object V125 = (*(LnkLI135))(); |
937 |
|
bds_unwind1; |
938 |
|
bds_unwind1; |
939 |
|
VMR10(V125)} |
940 |
|
goto T375; |
941 |
|
T375:; |
942 |
|
(void)((*(LnkLI116))((V109))); |
943 |
|
{object V126; |
944 |
|
V126= (*(LnkLI138))((V108),Cnil,(V109)); |
945 |
|
princ_str("\n (void) (*Lnk",VV[29]); |
946 |
|
(void)((*(LnkLI117))((V126))); |
947 |
|
princ_str(")(",VV[29]); |
948 |
|
if((get((V108),VV[61],Cnil))==Cnil){ |
949 |
|
goto T402;} |
950 |
|
princ_str("Lclptr",VV[29]); |
951 |
|
(void)((*(LnkLI117))((V126))); |
952 |
|
goto T402; |
953 |
|
T402:; |
954 |
|
princ_str(");",VV[29]); |
955 |
|
{object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
956 |
|
bds_unwind1; |
957 |
|
VMR10(V127)}} |
958 |
|
goto T314; |
959 |
|
T314:; |
960 |
|
{object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil); |
961 |
|
bds_unwind1; |
962 |
|
VMR10(V128)}} |
963 |
|
base[0]=base[0]; |
964 |
|
return Cnil; |
965 |
|
} |
966 |
|
/* local entry for function ADD-FAST-LINK */ |
967 |
|
|
968 |
|
static object LI11(V132,V133,V134) |
969 |
|
|
970 |
|
register object V132;object V133;object V134; |
971 |
|
{ VMB11 VMS11 VMV11 |
972 |
|
goto TTL; |
973 |
|
TTL:; |
974 |
|
{object V135; |
975 |
|
object V136; |
976 |
|
object V137; |
977 |
|
register object V138; |
978 |
|
V137= (*(LnkLI140))((V132)); |
979 |
|
V135= Cnil; |
980 |
|
V136= Cnil; |
981 |
|
V138= Cnil; |
982 |
|
if(((V133))==Cnil){ |
983 |
|
goto T412;} |
984 |
|
{object V139; |
985 |
|
object V140; |
986 |
|
object V141; |
987 |
|
base[0]=MMcons(Cnil,Cnil); |
988 |
|
V139= Cnil; |
989 |
|
V140= Cnil; |
990 |
|
if(type_of((V134))==t_cons||((V134))==Cnil){ |
991 |
|
goto T417;} |
992 |
|
V141= Cnil; |
993 |
|
goto T416; |
994 |
|
goto T417; |
995 |
|
T417:; |
996 |
|
V141= make_fixnum((long)length((V134))); |
997 |
|
goto T416; |
998 |
|
T416:; |
999 |
|
if((get((V132),VV[1],Cnil))==Cnil){ |
1000 |
|
goto T422;} |
1001 |
|
V140= get((V132),VV[4],Cnil); |
1002 |
|
goto T420; |
1003 |
|
goto T422; |
1004 |
|
T422:; |
1005 |
|
V139= get((V132),VV[0],Cnil); |
1006 |
|
if(((V139))==Cnil){ |
1007 |
|
goto T425;} |
1008 |
|
if(!(type_of((V139))==t_fixnum)){ |
1009 |
|
goto T430;} |
1010 |
|
if(!(equal((V141),(V139)))){ |
1011 |
|
goto T432;} |
1012 |
|
goto T428; |
1013 |
|
goto T432; |
1014 |
|
T432:; |
1015 |
|
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132)))); |
1016 |
|
goto T428; |
1017 |
|
goto T430; |
1018 |
|
T430:; |
1019 |
|
(void)(sputprop((V132),VV[0],(V141))); |
1020 |
|
goto T428; |
1021 |
|
T428:; |
1022 |
|
base[2]= (V141); |
1023 |
|
base[3]= VV[63]; |
1024 |
|
base[4]= Ct; |
1025 |
|
vs_top=(vs_base=base+2)+3; |
1026 |
|
Lmake_list(); |
1027 |
|
vs_top=sup; |
1028 |
|
V140= vs_base[0]; |
1029 |
|
goto T420; |
1030 |
|
goto T425; |
1031 |
|
T425:; |
1032 |
|
V140= Cnil; |
1033 |
|
goto T420; |
1034 |
|
T420:; |
1035 |
|
if((V141)==Cnil){ |
1036 |
|
goto T437;} |
1037 |
|
V142 = make_fixnum((long)length((V140))); |
1038 |
|
if(!(eql((V141),V142))){ |
1039 |
|
goto T438;} |
1040 |
|
goto T437; |
1041 |
|
goto T438; |
1042 |
|
T438:;{object V143; |
1043 |
|
{register object x= VV[5],V144= (V140); |
1044 |
|
while(!endp(V144)) |
1045 |
|
if(eql(x,V144->c.c_car)){ |
1046 |
|
V143= V144; |
1047 |
|
goto T441; |
1048 |
|
}else V144=V144->c.c_cdr; |
1049 |
|
V143= Cnil;} |
1050 |
|
goto T441; |
1051 |
|
T441:; |
1052 |
|
if(V143==Cnil)goto T440; |
1053 |
|
goto T437; |
1054 |
|
goto T440; |
1055 |
|
T440:;} |
1056 |
|
V145 = make_fixnum((long)length((V140))); |
1057 |
|
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145))); |
1058 |
|
goto T437; |
1059 |
|
T437:; |
1060 |
|
{register object x= (V132),V146= symbol_value(VV[65]); |
1061 |
|
while(!endp(V146)) |
1062 |
|
if(type_of(V146->c.c_car)==t_cons &&eql(x,V146->c.c_car->c.c_car)){ |
1063 |
|
V136= (V146->c.c_car); |
1064 |
|
goto T444; |
1065 |
|
}else V146=V146->c.c_cdr; |
1066 |
|
V136= Cnil;} |
1067 |
|
goto T444; |
1068 |
|
T444:; |
1069 |
|
if((cddr((V136)))!=Cnil){ |
1070 |
|
goto T410;} |
1071 |
|
{register object V147; |
1072 |
|
vs_base=vs_top; |
1073 |
|
(void) (*Lnk141)(); |
1074 |
|
vs_top=sup; |
1075 |
|
V147= vs_base[0]; |
1076 |
|
base[2]= (V147); |
1077 |
|
base[3]= VV[66]; |
1078 |
|
base[4]= (V137); |
1079 |
|
vs_top=(vs_base=base+2)+3; |
1080 |
|
Lformat(); |
1081 |
|
vs_top=sup; |
1082 |
|
{register object V148; |
1083 |
|
register object V149; |
1084 |
|
register object V150; |
1085 |
|
V148= Cnil; |
1086 |
|
V149= (V140); |
1087 |
|
V150= small_fixnum(0); |
1088 |
|
goto T454; |
1089 |
|
T454:; |
1090 |
|
if(((V149))!=Cnil){ |
1091 |
|
goto T455;} |
1092 |
|
goto T452; |
1093 |
|
goto T455; |
1094 |
|
T455:; |
1095 |
|
if(!((car((V149)))==(VV[5]))){ |
1096 |
|
goto T461;} |
1097 |
|
V138= Ct; |
1098 |
|
(void)(princ(VV[67],(V147))); |
1099 |
|
goto T459; |
1100 |
|
goto T461; |
1101 |
|
T461:; |
1102 |
|
if(((V148))==Cnil){ |
1103 |
|
goto T467;} |
1104 |
|
(void)(princ(VV[68],(V147))); |
1105 |
|
goto T465; |
1106 |
|
goto T467; |
1107 |
|
T467:; |
1108 |
|
V148= Ct; |
1109 |
|
goto T465; |
1110 |
|
T465:; |
1111 |
|
base[2]= (V147); |
1112 |
|
base[3]= VV[69]; |
1113 |
|
base[4]= (V150); |
1114 |
|
vs_top=(vs_base=base+2)+3; |
1115 |
|
Lformat(); |
1116 |
|
vs_top=sup; |
1117 |
|
goto T459; |
1118 |
|
T459:; |
1119 |
|
V149= cdr((V149)); |
1120 |
|
V150= number_plus(small_fixnum(1),(V150)); |
1121 |
|
goto T454;} |
1122 |
|
goto T452; |
1123 |
|
T452:; |
1124 |
|
(void)(princ(VV[70],(V147))); |
1125 |
|
base[2]= (V147); |
1126 |
|
vs_top=(vs_base=base+2)+1; |
1127 |
|
(void) (*Lnk142)(); |
1128 |
|
vs_top=sup; |
1129 |
|
(base[0]->c.c_car)= vs_base[0];} |
1130 |
|
if(((V138))==Cnil){ |
1131 |
|
goto T479;} |
1132 |
|
V135= |
1133 |
|
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
1134 |
|
goto T479; |
1135 |
|
T479:; |
1136 |
|
{object V151;{object V153; |
1137 |
|
V153= get((V132),VV[2],Cnil); |
1138 |
|
if(V153==Cnil)goto T486; |
1139 |
|
V152= V153; |
1140 |
|
goto T485; |
1141 |
|
goto T486; |
1142 |
|
T486:;} |
1143 |
|
V152= Ct; |
1144 |
|
goto T485; |
1145 |
|
T485:; |
1146 |
|
if((V135)!=Cnil){ |
1147 |
|
V154= (V135); |
1148 |
|
goto T488;} |
1149 |
|
V154= (base[0]->c.c_car); |
1150 |
|
goto T488; |
1151 |
|
T488:; |
1152 |
|
V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]); |
1153 |
|
setq(VV[72],make_cons((V151),symbol_value(VV[72])));} |
1154 |
|
base[2]= Cnil; |
1155 |
|
base[3]= VV[73]; |
1156 |
|
base[4]= (V137); |
1157 |
|
vs_top=(vs_base=base+2)+3; |
1158 |
|
Lformat(); |
1159 |
|
vs_top=sup; |
1160 |
|
V155= vs_base[0];{object V157; |
1161 |
|
V157= get((V132),VV[2],Cnil); |
1162 |
|
if(V157==Cnil)goto T496; |
1163 |
|
V156= V157; |
1164 |
|
goto T495; |
1165 |
|
goto T496; |
1166 |
|
T496:;} |
1167 |
|
V156= Ct; |
1168 |
|
goto T495; |
1169 |
|
T495:; |
1170 |
|
V136= list(4,(V132),V155,V156,(V140)); |
1171 |
|
goto T410;} |
1172 |
|
goto T412; |
1173 |
|
T412:; |
1174 |
|
(void)((*(LnkLI136))((V132),(V134))); |
1175 |
|
if((get((V132),VV[61],Cnil))==Cnil){ |
1176 |
|
goto T502;} |
1177 |
|
V158= VV[61]; |
1178 |
|
goto T500; |
1179 |
|
goto T502; |
1180 |
|
T502:; |
1181 |
|
V158= Cnil; |
1182 |
|
goto T500; |
1183 |
|
T500:; |
1184 |
|
V136= list(3,(V132),(V137),V158); |
1185 |
|
goto T410; |
1186 |
|
T410:; |
1187 |
|
base[0]= V136; |
1188 |
|
base[1]= symbol_value(VV[65]); |
1189 |
|
base[2]= VV[74]; |
1190 |
|
base[3]= VV[75]; |
1191 |
|
vs_top=(vs_base=base+0)+4; |
1192 |
|
Ladjoin(); |
1193 |
|
vs_top=sup; |
1194 |
|
setq(VV[65],vs_base[0]); |
1195 |
|
{object V160 = (V137); |
1196 |
|
VMR11(V160)}} |
1197 |
|
base[0]=base[0]; |
1198 |
|
return Cnil; |
1199 |
|
} |
1200 |
|
/* function definition for DECLARATION-TYPE */ |
1201 |
|
|
1202 |
|
static void L12() |
1203 |
|
{register object *base=vs_base; |
1204 |
|
register object *sup=base+VM12; VC12 |
1205 |
|
vs_reserve(VM12); |
1206 |
|
{object V161; |
1207 |
|
check_arg(1); |
1208 |
|
V161=(base[0]); |
1209 |
|
vs_top=sup; |
1210 |
|
goto TTL; |
1211 |
|
TTL:; |
1212 |
|
if(!(equal((V161),VV[76]))){ |
1213 |
|
goto T511;} |
1214 |
|
base[1]= VV[77]; |
1215 |
|
vs_top=(vs_base=base+1)+1; |
1216 |
|
return; |
1217 |
|
goto T511; |
1218 |
|
T511:; |
1219 |
|
if(!(equal((V161),VV[78]))){ |
1220 |
|
goto T514;} |
1221 |
|
base[1]= VV[79]; |
1222 |
|
vs_top=(vs_base=base+1)+1; |
1223 |
|
return; |
1224 |
|
goto T514; |
1225 |
|
T514:; |
1226 |
|
base[1]= (V161); |
1227 |
|
vs_top=(vs_base=base+1)+1; |
1228 |
|
return; |
1229 |
|
} |
1230 |
|
} |
1231 |
|
/* local entry for function WT-FUNCTION-LINK */ |
1232 |
|
|
1233 |
|
static object LI13(V163) |
1234 |
|
|
1235 |
|
register object V163; |
1236 |
|
{ VMB13 VMS13 VMV13 |
1237 |
|
goto TTL; |
1238 |
|
TTL:; |
1239 |
|
{register object V164; |
1240 |
|
register object V165; |
1241 |
|
register object V166; |
1242 |
|
object V167; |
1243 |
|
V164= car((V163)); |
1244 |
|
V165= cadr((V163)); |
1245 |
|
V166= caddr((V163)); |
1246 |
|
V167= cadddr((V163)); |
1247 |
|
if(((V166))!=Cnil){ |
1248 |
|
goto T522;} |
1249 |
|
princ_str("\nstatic void LnkT",VV[29]); |
1250 |
|
(void)((*(LnkLI117))((V165))); |
1251 |
|
princ_str("(){ call_or_link(VV[",VV[29]); |
1252 |
|
(void)((*(LnkLI117))((V165))); |
1253 |
|
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1254 |
|
(void)((*(LnkLI117))((V165))); |
1255 |
|
princ_str(");}",VV[29]); |
1256 |
|
goto T520; |
1257 |
|
goto T522; |
1258 |
|
T522:; |
1259 |
|
if(!(eql((V166),VV[61]))){ |
1260 |
|
goto T532;} |
1261 |
|
princ_str("\nstatic void LnkT",VV[29]); |
1262 |
|
(void)((*(LnkLI117))((V165))); |
1263 |
|
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
1264 |
|
(void)((*(LnkLI117))((V165))); |
1265 |
|
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1266 |
|
(void)((*(LnkLI117))((V165))); |
1267 |
|
princ_str(",(void **)(void *)&Lclptr",VV[29]); |
1268 |
|
(void)((*(LnkLI117))((V165))); |
1269 |
|
princ_str(");}",VV[29]); |
1270 |
|
goto T520; |
1271 |
|
goto T532; |
1272 |
|
T532:; |
1273 |
|
princ_str("\nstatic ",VV[29]); |
1274 |
|
base[0]= (*(LnkLI143))((V166)); |
1275 |
|
vs_top=(vs_base=base+0)+1; |
1276 |
|
(void) (*Lnk144)(); |
1277 |
|
vs_top=sup; |
1278 |
|
V168= vs_base[0]; |
1279 |
|
(void)((*(LnkLI117))(V168)); |
1280 |
|
princ_str(" LnkT",VV[29]); |
1281 |
|
(void)((*(LnkLI117))((V165))); |
1282 |
|
if(((V167))!=Cnil){ |
1283 |
|
goto T550;} |
1284 |
|
if((Ct)==((V166))){ |
1285 |
|
goto T551;} |
1286 |
|
goto T550; |
1287 |
|
T550:; |
1288 |
|
{object V169; |
1289 |
|
{register object x= VV[5],V170= (V167); |
1290 |
|
while(!endp(V170)) |
1291 |
|
if(eql(x,V170->c.c_car)){ |
1292 |
|
V169= V170; |
1293 |
|
goto T555; |
1294 |
|
}else V170=V170->c.c_cdr; |
1295 |
|
V169= Cnil;} |
1296 |
|
goto T555; |
1297 |
|
T555:; |
1298 |
|
princ_str("(object first,...){",VV[29]); |
1299 |
|
base[0]= (*(LnkLI143))((V166)); |
1300 |
|
vs_top=(vs_base=base+0)+1; |
1301 |
|
(void) (*Lnk144)(); |
1302 |
|
vs_top=sup; |
1303 |
|
V171= vs_base[0]; |
1304 |
|
(void)((*(LnkLI117))(V171)); |
1305 |
|
princ_str("V1;",VV[29]); |
1306 |
|
princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]); |
1307 |
|
if(((V169))==Cnil){ |
1308 |
|
goto T566;} |
1309 |
|
V172= VV[80]; |
1310 |
|
goto T564; |
1311 |
|
goto T566; |
1312 |
|
T566:; |
1313 |
|
V172= VV[81]; |
1314 |
|
goto T564; |
1315 |
|
T564:; |
1316 |
|
(void)((*(LnkLI117))(V172)); |
1317 |
|
princ_str("proc_new(VV[",VV[29]); |
1318 |
|
V173= (*(LnkLI145))((V164)); |
1319 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V173)); |
1320 |
|
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1321 |
|
(void)((*(LnkLI117))((V165))); |
1322 |
|
if((V169)!=Cnil){ |
1323 |
|
goto T572;} |
1324 |
|
princ_char(44,VV[29]); |
1325 |
|
V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166))); |
1326 |
|
(void)((*(LnkLI117))(V174)); |
1327 |
|
goto T572; |
1328 |
|
T572:; |
1329 |
|
princ_str(",first,ap);va_end(ap);return V1;}",VV[29]); |
1330 |
|
goto T520;} |
1331 |
|
goto T551; |
1332 |
|
T551:; |
1333 |
|
princ_str("(){return call_proc0(VV[",VV[29]); |
1334 |
|
V175= (*(LnkLI145))((V164)); |
1335 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V175)); |
1336 |
|
princ_str("],(void **)(void *)&Lnk",VV[29]); |
1337 |
|
(void)((*(LnkLI117))((V165))); |
1338 |
|
princ_str(");}",VV[29]); |
1339 |
|
goto T520; |
1340 |
|
T520:; |
1341 |
|
V164= symbol_name((V164)); |
1342 |
|
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){ |
1343 |
|
goto T583;} |
1344 |
|
V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164))); |
1345 |
|
goto T583; |
1346 |
|
T583:; |
1347 |
|
princ_str(" /* ",VV[29]); |
1348 |
|
(void)((*(LnkLI117))((V164))); |
1349 |
|
princ_str(" */",VV[29]); |
1350 |
|
{object V176 = Cnil; |
1351 |
|
VMR13(V176)}} |
1352 |
|
base[0]=base[0]; |
1353 |
|
return Cnil; |
1354 |
|
} |
1355 |
|
/* local entry for function WT-FUNCALL-C */ |
1356 |
|
|
1357 |
|
static object LI14(V178) |
1358 |
|
|
1359 |
|
register object V178; |
1360 |
|
{ VMB14 VMS14 VMV14 |
1361 |
|
bds_check; |
1362 |
|
goto TTL; |
1363 |
|
TTL:; |
1364 |
|
{object V179; |
1365 |
|
object V180; |
1366 |
|
register object V181; |
1367 |
|
V179= car((V178)); |
1368 |
|
V180= cdr((V178)); |
1369 |
|
V181= Cnil; |
1370 |
|
if(!(eql(car((V179)),VV[23]))){ |
1371 |
|
goto T595;} |
1372 |
|
{object V182; |
1373 |
|
V182= make_cons(car((V179)),caddr((V179))); |
1374 |
|
if((symbol_value(VV[83]))==Cnil){ |
1375 |
|
goto T598;} |
1376 |
|
princ_str("\n (type_of(",VV[29]); |
1377 |
|
base[0]= (V182); |
1378 |
|
vs_top=(vs_base=base+0)+1; |
1379 |
|
(void) (*Lnk149)(); |
1380 |
|
vs_top=sup; |
1381 |
|
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
1382 |
|
base[0]= (V182); |
1383 |
|
vs_top=(vs_base=base+0)+1; |
1384 |
|
(void) (*Lnk149)(); |
1385 |
|
vs_top=sup; |
1386 |
|
princ_str(");",VV[29]); |
1387 |
|
goto T598; |
1388 |
|
T598:; |
1389 |
|
(void)((*(LnkLI116))((V180))); |
1390 |
|
princ_str("\n (",VV[29]); |
1391 |
|
base[0]= (V182); |
1392 |
|
vs_top=(vs_base=base+0)+1; |
1393 |
|
(void) (*Lnk149)(); |
1394 |
|
vs_top=sup; |
1395 |
|
goto T593;} |
1396 |
|
goto T595; |
1397 |
|
T595:; |
1398 |
|
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
1399 |
|
V181= list(2,VV[33],symbol_value(VV[84])); |
1400 |
|
bds_bind(VV[21],(V181)); |
1401 |
|
princ_str("\n {object V",VV[29]); |
1402 |
|
(void)((*(LnkLI117))(cadr((V181)))); |
1403 |
|
princ_char(59,VV[29]); |
1404 |
|
(void)((*(LnkLI115))(car((V178)))); |
1405 |
|
(void)((*(LnkLI116))(cdr((V178)))); |
1406 |
|
princ_str("(V",VV[29]); |
1407 |
|
(void)((*(LnkLI117))(cadr((V181)))); |
1408 |
|
bds_unwind1; |
1409 |
|
goto T593; |
1410 |
|
T593:; |
1411 |
|
princ_str(")->cf.cf_self ();",VV[29]); |
1412 |
|
if((V181)==Cnil){ |
1413 |
|
goto T590;} |
1414 |
|
princ_char(125,VV[29]);} |
1415 |
|
goto T590; |
1416 |
|
T590:; |
1417 |
|
{object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1418 |
|
VMR14(V183)} |
1419 |
|
base[0]=base[0]; |
1420 |
|
return Cnil; |
1421 |
|
} |
1422 |
|
/* local entry for function INLINE-PROC */ |
1423 |
|
|
1424 |
|
static object LI15(V186,V187) |
1425 |
|
|
1426 |
|
object V186;object V187; |
1427 |
|
{ VMB15 VMS15 VMV15 |
1428 |
|
goto TTL; |
1429 |
|
TTL:; |
1430 |
|
{register object V188; |
1431 |
|
register object V189; |
1432 |
|
object V190; |
1433 |
|
V188= make_fixnum((long)length((V187))); |
1434 |
|
V189= Cnil; |
1435 |
|
V190= (*(LnkLI145))((V186)); |
1436 |
|
base[2]= Ct; |
1437 |
|
base[3]= VV[85]; |
1438 |
|
base[4]= (V186); |
1439 |
|
vs_top=(vs_base=base+2)+3; |
1440 |
|
Lformat(); |
1441 |
|
vs_top=sup; |
1442 |
|
{object V191; |
1443 |
|
{object V192= (V188); |
1444 |
|
if(!eql(V192,VV[86]))goto T636; |
1445 |
|
base[2]= Cnil; |
1446 |
|
base[3]= VV[88]; |
1447 |
|
base[4]= (V190); |
1448 |
|
vs_top=(vs_base=base+2)+3; |
1449 |
|
Lformat(); |
1450 |
|
vs_top=sup; |
1451 |
|
V193= vs_base[0]; |
1452 |
|
V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]); |
1453 |
|
goto T635; |
1454 |
|
goto T636; |
1455 |
|
T636:; |
1456 |
|
if(!eql(V192,VV[89]))goto T641; |
1457 |
|
base[2]= Cnil; |
1458 |
|
base[3]= VV[91]; |
1459 |
|
base[4]= (V190); |
1460 |
|
vs_top=(vs_base=base+2)+3; |
1461 |
|
Lformat(); |
1462 |
|
vs_top=sup; |
1463 |
|
V194= vs_base[0]; |
1464 |
|
V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]); |
1465 |
|
goto T635; |
1466 |
|
goto T641; |
1467 |
|
T641:; |
1468 |
|
base[2]= (V188); |
1469 |
|
base[3]= VV[63]; |
1470 |
|
base[4]= Ct; |
1471 |
|
vs_top=(vs_base=base+2)+3; |
1472 |
|
Lmake_list(); |
1473 |
|
vs_top=sup; |
1474 |
|
V195= vs_base[0]; |
1475 |
|
base[2]= Cnil; |
1476 |
|
base[3]= VV[92]; |
1477 |
|
base[4]= (V190); |
1478 |
|
base[5]= (V188); |
1479 |
|
{register object V197; |
1480 |
|
register object V198; |
1481 |
|
V197= (V188); |
1482 |
|
V198= small_fixnum(0); |
1483 |
|
goto T659; |
1484 |
|
T659:; |
1485 |
|
if(!(number_compare((V198),(V197))>=0)){ |
1486 |
|
goto T660;} |
1487 |
|
base[6]= nreverse((V189)); |
1488 |
|
goto T655; |
1489 |
|
goto T660; |
1490 |
|
T660:; |
1491 |
|
{register object V199; |
1492 |
|
V199= (V198); |
1493 |
|
V189= make_cons((V199),(V189));} |
1494 |
|
V198= one_plus((V198)); |
1495 |
|
goto T659;} |
1496 |
|
goto T655; |
1497 |
|
T655:; |
1498 |
|
vs_top=(vs_base=base+2)+5; |
1499 |
|
Lformat(); |
1500 |
|
vs_top=sup; |
1501 |
|
V196= vs_base[0]; |
1502 |
|
V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);} |
1503 |
|
goto T635; |
1504 |
|
T635:; |
1505 |
|
{object V200; |
1506 |
|
V200= make_cons((V186),(V191)); |
1507 |
|
setq(VV[72],make_cons((V200),symbol_value(VV[72])));} |
1508 |
|
{object V201 = (V191); |
1509 |
|
VMR15(V201)}}} |
1510 |
|
base[0]=base[0]; |
1511 |
|
return Cnil; |
1512 |
|
} |
1513 |
|
/* local entry for function WT-SIMPLE-CALL */ |
1514 |
|
|
1515 |
|
static object LI16(object V204,object V203,object V202,object first,...) |
1516 |
|
{ |
1517 |
|
va_list ap; |
1518 |
|
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1519 |
|
{object V205; |
1520 |
|
object V206; |
1521 |
|
object V207; |
1522 |
|
object V208; |
1523 |
|
va_start(ap,first); |
1524 |
|
if(narg <3) too_few_arguments(); |
1525 |
|
V205= V204; |
1526 |
|
V206= V203; |
1527 |
|
V207= V202; |
1528 |
|
narg = narg - 3; |
1529 |
|
if (narg <= 0) goto T673; |
1530 |
|
else { |
1531 |
|
V208= first;} |
1532 |
|
--narg; goto T674; |
1533 |
|
goto T673; |
1534 |
|
T673:; |
1535 |
|
V208= Cnil; |
1536 |
|
goto T674; |
1537 |
|
T674:; |
1538 |
|
princ_str("simple_",VV[29]); |
1539 |
|
(void)((*(LnkLI117))((V205))); |
1540 |
|
princ_char(40,VV[29]); |
1541 |
|
if(((V208))==Cnil){ |
1542 |
|
goto T680;} |
1543 |
|
princ_str("VV[",VV[29]); |
1544 |
|
(void)((*(LnkLI117))((V208))); |
1545 |
|
princ_str("],",VV[29]); |
1546 |
|
goto T680; |
1547 |
|
T680:; |
1548 |
|
princ_str("base+",VV[29]); |
1549 |
|
(void)((*(LnkLI117))((V206))); |
1550 |
|
princ_char(44,VV[29]); |
1551 |
|
(void)((*(LnkLI117))((V207))); |
1552 |
|
princ_char(41,VV[29]); |
1553 |
|
setq(VV[37],Ct); |
1554 |
|
{object V209 = Ct; |
1555 |
|
VMR16(V209)} |
1556 |
|
va_end(ap); |
1557 |
|
return Cnil;} |
1558 |
|
} |
1559 |
|
/* local entry for function SAVE-FUNOB */ |
1560 |
|
|
1561 |
|
static object LI17(V211) |
1562 |
|
|
1563 |
|
register object V211; |
1564 |
|
{ VMB17 VMS17 VMV17 |
1565 |
|
bds_check; |
1566 |
|
goto TTL; |
1567 |
|
TTL:; |
1568 |
|
{object V212= car((V211)); |
1569 |
|
if((V212!= VV[13]) |
1570 |
|
&& (V212!= VV[150]) |
1571 |
|
&& (V212!= VV[6]))goto T693; |
1572 |
|
{object V213 = Cnil; |
1573 |
|
VMR17(V213)} |
1574 |
|
goto T693; |
1575 |
|
T693:; |
1576 |
|
if((V212!= VV[14]))goto T694; |
1577 |
|
if(((*(LnkLI127))(caddr((V211))))==Cnil){ |
1578 |
|
goto T695;} |
1579 |
|
if((get(caddr((V211)),VV[55],Cnil))!=Cnil){ |
1580 |
|
goto T696;} |
1581 |
|
if((get(caddr((V211)),VV[56],Cnil))!=Cnil){ |
1582 |
|
goto T696;} |
1583 |
|
{register object x= caddr((V211)),V214= symbol_value(VV[93]); |
1584 |
|
while(!endp(V214)) |
1585 |
|
if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){ |
1586 |
|
goto T696; |
1587 |
|
}else V214=V214->c.c_cdr;} |
1588 |
|
goto T695; |
1589 |
|
T695:; |
1590 |
|
{object V215; |
1591 |
|
V215= list(2,VV[27],(*(LnkLI114))()); |
1592 |
|
if((symbol_value(VV[83]))==Cnil){ |
1593 |
|
goto T707;} |
1594 |
|
princ_str("\n ",VV[29]); |
1595 |
|
(void)((*(LnkLI117))((V215))); |
1596 |
|
princ_str("=symbol_function(VV[",VV[29]); |
1597 |
|
V216= (*(LnkLI140))(caddr((V211))); |
1598 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V216)); |
1599 |
|
princ_str("]);",VV[29]); |
1600 |
|
goto T705; |
1601 |
|
goto T707; |
1602 |
|
T707:; |
1603 |
|
princ_str("\n ",VV[29]); |
1604 |
|
(void)((*(LnkLI117))((V215))); |
1605 |
|
princ_str("=VV[",VV[29]); |
1606 |
|
V217= (*(LnkLI140))(caddr((V211))); |
1607 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V217)); |
1608 |
|
princ_str("]->s.s_gfdef;",VV[29]); |
1609 |
|
goto T705; |
1610 |
|
T705:; |
1611 |
|
{object V218 = (V215); |
1612 |
|
VMR17(V218)}} |
1613 |
|
goto T696; |
1614 |
|
T696:; |
1615 |
|
{object V219 = Cnil; |
1616 |
|
VMR17(V219)} |
1617 |
|
goto T694; |
1618 |
|
T694:; |
1619 |
|
if((V212!= VV[18]))goto T719; |
1620 |
|
{object V220; |
1621 |
|
V220= list(2,VV[27],(*(LnkLI114))()); |
1622 |
|
bds_bind(VV[21],(V220)); |
1623 |
|
(void)((*(LnkLI115))(caddr((V211)))); |
1624 |
|
{object V221 = (V220); |
1625 |
|
bds_unwind1; |
1626 |
|
VMR17(V221)}} |
1627 |
|
goto T719; |
1628 |
|
T719:; |
1629 |
|
{object V222 = (*(LnkLI112))(); |
1630 |
|
VMR17(V222)}} |
1631 |
|
base[0]=base[0]; |
1632 |
|
return Cnil; |
1633 |
|
} |
1634 |
|
/* local entry for function PUSH-ARGS */ |
1635 |
|
|
1636 |
|
static object LI18(V224) |
1637 |
|
|
1638 |
|
object V224; |
1639 |
|
{ VMB18 VMS18 VMV18 |
1640 |
|
bds_check; |
1641 |
|
goto TTL; |
1642 |
|
TTL:; |
1643 |
|
if(((V224))!=Cnil){ |
1644 |
|
goto T723;} |
1645 |
|
princ_str("\n vs_base=vs_top;",VV[29]); |
1646 |
|
{object V225 = Cnil; |
1647 |
|
VMR18(V225)} |
1648 |
|
goto T723; |
1649 |
|
T723:; |
1650 |
|
if(!(type_of((V224))==t_cons)){ |
1651 |
|
goto T727;} |
1652 |
|
{object V226; |
1653 |
|
V226= symbol_value(VV[19]); |
1654 |
|
bds_bind(VV[19],symbol_value(VV[19])); |
1655 |
|
{register object V227; |
1656 |
|
register object V228; |
1657 |
|
V227= (V224); |
1658 |
|
V228= car((V227)); |
1659 |
|
goto T734; |
1660 |
|
T734:; |
1661 |
|
if(!(endp_prop((V227)))){ |
1662 |
|
goto T735;} |
1663 |
|
goto T730; |
1664 |
|
goto T735; |
1665 |
|
T735:; |
1666 |
|
base[2]= list(2,VV[27],(*(LnkLI114))()); |
1667 |
|
bds_bind(VV[21],base[2]); |
1668 |
|
V229= (*(LnkLI115))((V228)); |
1669 |
|
bds_unwind1; |
1670 |
|
V227= cdr((V227)); |
1671 |
|
V228= car((V227)); |
1672 |
|
goto T734;} |
1673 |
|
goto T730; |
1674 |
|
T730:; |
1675 |
|
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
1676 |
|
(void)((*(LnkLI117))((V226))); |
1677 |
|
princ_str(")+",VV[29]); |
1678 |
|
V230= number_minus((VV[19]->s.s_dbind),(V226)); |
1679 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V230)); |
1680 |
|
princ_char(59,VV[29]); |
1681 |
|
setq(VV[37],Ct); |
1682 |
|
{object V231 = Ct; |
1683 |
|
bds_unwind1; |
1684 |
|
VMR18(V231)}} |
1685 |
|
goto T727; |
1686 |
|
T727:; |
1687 |
|
{object V232 = Cnil; |
1688 |
|
VMR18(V232)} |
1689 |
|
base[0]=base[0]; |
1690 |
|
return Cnil; |
1691 |
|
} |
1692 |
|
/* local entry for function PUSH-ARGS-LISPCALL */ |
1693 |
|
|
1694 |
|
static object LI19(V234) |
1695 |
|
|
1696 |
|
object V234; |
1697 |
|
{ VMB19 VMS19 VMV19 |
1698 |
|
bds_check; |
1699 |
|
goto TTL; |
1700 |
|
TTL:; |
1701 |
|
{register object V235; |
1702 |
|
register object V236; |
1703 |
|
V235= (V234); |
1704 |
|
V236= car((V235)); |
1705 |
|
goto T756; |
1706 |
|
T756:; |
1707 |
|
if(!(endp_prop((V235)))){ |
1708 |
|
goto T757;} |
1709 |
|
{object V237 = Cnil; |
1710 |
|
VMR19(V237)} |
1711 |
|
goto T757; |
1712 |
|
T757:; |
1713 |
|
base[1]= list(2,VV[27],(*(LnkLI114))()); |
1714 |
|
bds_bind(VV[21],base[1]); |
1715 |
|
V238= (*(LnkLI115))((V236)); |
1716 |
|
bds_unwind1; |
1717 |
|
V235= cdr((V235)); |
1718 |
|
V236= car((V235)); |
1719 |
|
goto T756;} |
1720 |
|
base[0]=base[0]; |
1721 |
|
return Cnil; |
1722 |
|
} |
1723 |
|
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
1724 |
|
|
1725 |
|
static object LI20(V243,V244,V245,V246) |
1726 |
|
|
1727 |
|
register object V243;register object V244;register object V245;register object V246; |
1728 |
|
{ VMB20 VMS20 VMV20 |
1729 |
|
goto TTL; |
1730 |
|
TTL:; |
1731 |
|
if((symbol_value(VV[28]))==Cnil){ |
1732 |
|
goto T769;} |
1733 |
|
if(((V245))!=Cnil){ |
1734 |
|
goto T771;} |
1735 |
|
V245= list(2,VV[27],(*(LnkLI114))()); |
1736 |
|
princ_str("\n ",VV[29]); |
1737 |
|
(void)((*(LnkLI117))((V245))); |
1738 |
|
princ_str("=symbol_function(VV[",VV[29]); |
1739 |
|
V247= (*(LnkLI140))((V243)); |
1740 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V247)); |
1741 |
|
princ_str("]);",VV[29]); |
1742 |
|
goto T771; |
1743 |
|
T771:; |
1744 |
|
(void)((*(LnkLI116))((V244))); |
1745 |
|
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
1746 |
|
V248= (*(LnkLI140))((V243)); |
1747 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V248)); |
1748 |
|
princ_str("],",VV[29]); |
1749 |
|
(void)((*(LnkLI117))((V245))); |
1750 |
|
princ_str(");",VV[29]); |
1751 |
|
{object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1752 |
|
VMR20(V249)} |
1753 |
|
goto T769; |
1754 |
|
T769:; |
1755 |
|
if(((V245))==Cnil){ |
1756 |
|
goto T789;} |
1757 |
|
(void)((*(LnkLI116))((V244))); |
1758 |
|
if(((V246))==Cnil){ |
1759 |
|
goto T794;} |
1760 |
|
if((symbol_value(VV[83]))==Cnil){ |
1761 |
|
goto T797;} |
1762 |
|
princ_str("\n funcall_no_event(",VV[29]); |
1763 |
|
(void)((*(LnkLI117))((V245))); |
1764 |
|
princ_str(");",VV[29]); |
1765 |
|
goto T792; |
1766 |
|
goto T797; |
1767 |
|
T797:; |
1768 |
|
princ_str("\n CMPfuncall(",VV[29]); |
1769 |
|
(void)((*(LnkLI117))((V245))); |
1770 |
|
princ_str(");",VV[29]); |
1771 |
|
goto T792; |
1772 |
|
goto T794; |
1773 |
|
T794:; |
1774 |
|
princ_str("\n funcall(",VV[29]); |
1775 |
|
(void)((*(LnkLI117))((V245))); |
1776 |
|
princ_str(");",VV[29]); |
1777 |
|
goto T792; |
1778 |
|
T792:; |
1779 |
|
{object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1780 |
|
VMR20(V250)} |
1781 |
|
goto T789; |
1782 |
|
T789:; |
1783 |
|
if(((*(LnkLI151))((V244)))==Cnil){ |
1784 |
|
goto T809;} |
1785 |
|
{object V251; |
1786 |
|
V251= symbol_value(VV[19]); |
1787 |
|
V245= list(2,VV[27],(*(LnkLI114))()); |
1788 |
|
if((symbol_value(VV[83]))==Cnil){ |
1789 |
|
goto T815;} |
1790 |
|
princ_str("\n ",VV[29]); |
1791 |
|
(void)((*(LnkLI117))((V245))); |
1792 |
|
princ_str("=symbol_function(VV[",VV[29]); |
1793 |
|
V252= (*(LnkLI140))((V243)); |
1794 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V252)); |
1795 |
|
princ_str("]);",VV[29]); |
1796 |
|
goto T813; |
1797 |
|
goto T815; |
1798 |
|
T815:; |
1799 |
|
princ_str("\n ",VV[29]); |
1800 |
|
(void)((*(LnkLI117))((V245))); |
1801 |
|
princ_str("=(VV[",VV[29]); |
1802 |
|
V253= (*(LnkLI140))((V243)); |
1803 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V253)); |
1804 |
|
princ_str("]->s.s_gfdef);",VV[29]); |
1805 |
|
goto T813; |
1806 |
|
T813:; |
1807 |
|
(void)((*(LnkLI120))((V244))); |
1808 |
|
if((symbol_value(VV[21]))==(VV[94])){ |
1809 |
|
goto T828;} |
1810 |
|
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1811 |
|
goto T829;} |
1812 |
|
goto T828; |
1813 |
|
T828:; |
1814 |
|
princ_str("\n lispcall",VV[29]); |
1815 |
|
if(((V246))==Cnil){ |
1816 |
|
goto T835;} |
1817 |
|
princ_str("_no_event",VV[29]); |
1818 |
|
goto T835; |
1819 |
|
T835:; |
1820 |
|
princ_str("(base+",VV[29]); |
1821 |
|
(void)((*(LnkLI117))((V251))); |
1822 |
|
princ_char(44,VV[29]); |
1823 |
|
V254 = make_fixnum((long)length((V244))); |
1824 |
|
(void)((*(LnkLI117))(V254)); |
1825 |
|
princ_str(");",VV[29]); |
1826 |
|
setq(VV[37],Ct); |
1827 |
|
{object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1828 |
|
VMR20(V255)} |
1829 |
|
goto T829; |
1830 |
|
T829:; |
1831 |
|
if(((V246))==Cnil){ |
1832 |
|
goto T849;} |
1833 |
|
V256= VV[96]; |
1834 |
|
goto T847; |
1835 |
|
goto T849; |
1836 |
|
T849:; |
1837 |
|
V256= VV[97]; |
1838 |
|
goto T847; |
1839 |
|
T847:; |
1840 |
|
V257 = make_fixnum((long)length((V244))); |
1841 |
|
V258= list(4,VV[95],V256,(V251),V257); |
1842 |
|
{object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258)); |
1843 |
|
VMR20(V259)}} |
1844 |
|
goto T809; |
1845 |
|
T809:; |
1846 |
|
{object V260; |
1847 |
|
V260= symbol_value(VV[19]); |
1848 |
|
(void)((*(LnkLI120))((V244))); |
1849 |
|
if((symbol_value(VV[21]))==(VV[94])){ |
1850 |
|
goto T852;} |
1851 |
|
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1852 |
|
goto T853;} |
1853 |
|
goto T852; |
1854 |
|
T852:; |
1855 |
|
princ_str("\n symlispcall",VV[29]); |
1856 |
|
if(((V246))==Cnil){ |
1857 |
|
goto T859;} |
1858 |
|
princ_str("_no_event",VV[29]); |
1859 |
|
goto T859; |
1860 |
|
T859:; |
1861 |
|
princ_str("(VV[",VV[29]); |
1862 |
|
V261= (*(LnkLI140))((V243)); |
1863 |
|
(void)((*(LnkLI117))(/* INLINE-ARGS */V261)); |
1864 |
|
princ_str("],base+",VV[29]); |
1865 |
|
(void)((*(LnkLI117))((V260))); |
1866 |
|
princ_char(44,VV[29]); |
1867 |
|
V262 = make_fixnum((long)length((V244))); |
1868 |
|
(void)((*(LnkLI117))(V262)); |
1869 |
|
princ_str(");",VV[29]); |
1870 |
|
setq(VV[37],Ct); |
1871 |
|
{object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1872 |
|
VMR20(V263)} |
1873 |
|
goto T853; |
1874 |
|
T853:; |
1875 |
|
if(((V246))==Cnil){ |
1876 |
|
goto T875;} |
1877 |
|
V264= VV[98]; |
1878 |
|
goto T873; |
1879 |
|
goto T875; |
1880 |
|
T875:; |
1881 |
|
V264= VV[99]; |
1882 |
|
goto T873; |
1883 |
|
T873:; |
1884 |
|
V265 = make_fixnum((long)length((V244))); |
1885 |
|
V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243))); |
1886 |
|
{object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243))); |
1887 |
|
VMR20(V267)}} |
1888 |
|
return Cnil; |
1889 |
|
} |
1890 |
|
/* local function CLOSURE */ |
1891 |
|
|
1892 |
|
static void LC21(base0) |
1893 |
|
register object *base0; |
1894 |
|
{ register object *base=vs_base; |
1895 |
|
register object *sup=base+VM21; VC21 |
1896 |
|
vs_reserve(VM21); |
1897 |
|
{object V268; |
1898 |
|
vs_top[0]=Cnil; |
1899 |
|
{object *p=vs_top; |
1900 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1901 |
|
V268=(base[0]); |
1902 |
|
vs_top=sup; |
1903 |
|
princ_str("(VFUN_NARGS=",VV[29]); |
1904 |
|
V269 = make_fixnum((long)length((V268))); |
1905 |
|
(void)((*(LnkLI117))(V269)); |
1906 |
|
princ_char(44,VV[29]); |
1907 |
|
base[1]= (base0[0]->c.c_car); |
1908 |
|
base[2]= (V268); |
1909 |
|
vs_top=(vs_base=base+1)+2; |
1910 |
|
(void) (*Lnk152)(); |
1911 |
|
vs_top=sup; |
1912 |
|
princ_char(41,VV[29]); |
1913 |
|
base[1]= Cnil; |
1914 |
|
vs_top=(vs_base=base+1)+1; |
1915 |
|
return; |
1916 |
|
} |
1917 |
|
} |
1918 |
|
static void LnkT152(){ call_or_link(VV[152],(void **)(void *)&Lnk152);} /* WT-INLINE-LOC */ |
1919 |
|
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */ |
1920 |
|
static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* WT-LOC */ |
1921 |
|
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[148],(void **)(void *)&LnkLI148,first,ap);va_end(ap);return V1;} /* REMOVE */ |
1922 |
|
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */ |
1923 |
|
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
1924 |
|
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
1925 |
|
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* DECLARATION-TYPE */ |
1926 |
|
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
1927 |
|
static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */ |
1928 |
|
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */ |
1929 |
|
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
1930 |
|
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */ |
1931 |
|
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
1932 |
|
static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,2,first,ap);va_end(ap);return V1;} /* INLINE-PROC */ |
1933 |
|
static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */ |
1934 |
|
static object LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */ |
1935 |
|
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
1936 |
|
static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SAVE-AVMA */ |
1937 |
|
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
1938 |
|
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */ |
1939 |
|
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */ |
1940 |
|
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */ |
1941 |
|
static object LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */ |
1942 |
|
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
1943 |
|
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* INC-INLINE-BLOCKS */ |
1944 |
|
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
1945 |
|
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */ |
1946 |
|
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */ |
1947 |
|
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)(void *)&LnkLI122,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
1948 |
|
static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */ |
1949 |
|
static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */ |
1950 |
|
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
1951 |
|
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1952 |
|
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1953 |
|
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */ |
1954 |
|
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */ |
1955 |
|
static object LnkTLI114(){return call_proc0(VV[114],(void **)(void *)&LnkLI114);} /* VS-PUSH */ |
1956 |
|
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
1957 |
|
static object LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* BABOON */ |
1958 |
|
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,3,first,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */ |
1959 |
|
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */ |
1960 |
|
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,2,first,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */ |
1961 |
|
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */ |
1962 |
|
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)(void *)&LnkLI107,first,ap);va_end(ap);return V1;} /* C2FUNCALL */ |
1963 |
|
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
1964 |
|
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
1965 |
|
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
1966 |
|
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)(void *)&LnkLI103,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
1967 |
|
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */ |
1968 |
|
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* CMP-MACRO-FUNCTION */ |
1969 |
|
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */ |
1970 |
|
|
1971 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1972 |
|
SYSTEM_SPECIAL_INIT |
1973 |
|
#endif |
1974 |
|
|