1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpmulti.h" |
#include "cmpmulti.h" |
4 |
init_cmpmulti(){do_init(VV);} |
void init_cmpmulti(){do_init(VV);} |
5 |
/* local entry for function C1MULTIPLE-VALUE-CALL */ |
/* local entry for function C1MULTIPLE-VALUE-CALL */ |
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 |
{object V3; |
{object V3; |
14 |
object V4; |
object V4; |
17 |
if(!(endp((V2)))){ |
if(!(endp((V2)))){ |
18 |
goto T3;} |
goto T3;} |
19 |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
20 |
|
goto T3; |
21 |
T3:; |
T3:; |
22 |
if(!(endp(cdr((V2))))){ |
if(!(endp(cdr((V2))))){ |
23 |
goto T7;} |
goto T7;} |
24 |
{object V5 = (*(LnkLI39))((V2)); |
{object V5 = (*(LnkLI39))((V2)); |
25 |
VMR1(V5)} |
VMR1(V5)} |
26 |
|
goto T7; |
27 |
T7:; |
T7:; |
28 |
V4= (*(LnkLI40))(car((V2))); |
V4= (*(LnkLI40))(car((V2))); |
29 |
base[0]= cadr((V4)); |
base[0]= cadr((V4)); |
34 |
V2= (*(LnkLI42))(cdr((V2)),(V3)); |
V2= (*(LnkLI42))(cdr((V2)),(V3)); |
35 |
{object V6 = list(4,VV[0],(V3),(V4),(V2)); |
{object V6 = list(4,VV[0],(V3),(V4),(V2)); |
36 |
VMR1(V6)}} |
VMR1(V6)}} |
37 |
|
base[0]=base[0]; |
38 |
|
return Cnil; |
39 |
} |
} |
40 |
/* local entry for function C2MULTIPLE-VALUE-CALL */ |
/* local entry for function C2MULTIPLE-VALUE-CALL */ |
41 |
|
|
44 |
register object V9;object V10; |
register object V9;object V10; |
45 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
46 |
bds_check; |
bds_check; |
47 |
|
goto TTL; |
48 |
TTL:; |
TTL:; |
49 |
{register object V11; |
{register object V11; |
50 |
register object V12; |
register object V12; |
60 |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
61 |
bds_unwind1; |
bds_unwind1; |
62 |
VMR2(V14)} |
VMR2(V14)} |
63 |
|
goto T19; |
64 |
T19:; |
T19:; |
65 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
66 |
V12= symbol_value(VV[5]); |
V12= symbol_value(VV[5]); |
75 |
register object V16; |
register object V16; |
76 |
V15= (V10); |
V15= (V10); |
77 |
V16= car((V15)); |
V16= car((V15)); |
78 |
|
goto T41; |
79 |
T41:; |
T41:; |
80 |
if(!(endp((V15)))){ |
if(!(endp((V15)))){ |
81 |
goto T42;} |
goto T42;} |
82 |
goto T37; |
goto T37; |
83 |
|
goto T42; |
84 |
T42:; |
T42:; |
85 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
86 |
V17= (*(LnkLI47))((V16),(V12)); |
V17= (*(LnkLI47))((V16),(V12)); |
94 |
V15= cdr((V15)); |
V15= cdr((V15)); |
95 |
V16= car((V15)); |
V16= car((V15)); |
96 |
goto T41;} |
goto T41;} |
97 |
|
goto T37; |
98 |
T37:; |
T37:; |
99 |
princ_str("\n vs_base=base+",VV[6]); |
princ_str("\n vs_base=base+",VV[6]); |
100 |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
107 |
{object V18 = Cnil; |
{object V18 = Cnil; |
108 |
bds_unwind1; |
bds_unwind1; |
109 |
VMR2(V18)}} |
VMR2(V18)}} |
110 |
|
base[0]=base[0]; |
111 |
|
return Cnil; |
112 |
} |
} |
113 |
/* local entry for function C1MULTIPLE-VALUE-PROG1 */ |
/* local entry for function C1MULTIPLE-VALUE-PROG1 */ |
114 |
|
|
116 |
|
|
117 |
register object V20; |
register object V20; |
118 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
119 |
|
goto TTL; |
120 |
TTL:; |
TTL:; |
121 |
{object V21; |
{object V21; |
122 |
object V22; |
object V22; |
125 |
if(!(endp((V20)))){ |
if(!(endp((V20)))){ |
126 |
goto T72;} |
goto T72;} |
127 |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
128 |
|
goto T72; |
129 |
T72:; |
T72:; |
130 |
V22= (*(LnkLI49))(car((V20)),(V21)); |
V22= (*(LnkLI49))(car((V20)),(V21)); |
131 |
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
132 |
{object V23 = list(4,VV[8],(V21),(V22),(V20)); |
{object V23 = list(4,VV[8],(V21),(V22),(V20)); |
133 |
VMR3(V23)}} |
VMR3(V23)}} |
134 |
|
base[0]=base[0]; |
135 |
|
return Cnil; |
136 |
} |
} |
137 |
/* local entry for function C2MULTIPLE-VALUE-PROG1 */ |
/* local entry for function C2MULTIPLE-VALUE-PROG1 */ |
138 |
|
|
141 |
object V26;object V27; |
object V26;object V27; |
142 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
143 |
bds_check; |
bds_check; |
144 |
|
goto TTL; |
145 |
TTL:; |
TTL:; |
146 |
{object V28; |
{object V28; |
147 |
register object V29; |
register object V29; |
168 |
register object V32; |
register object V32; |
169 |
V31= (V27); |
V31= (V27); |
170 |
V32= car((V31)); |
V32= car((V31)); |
171 |
|
goto T99; |
172 |
T99:; |
T99:; |
173 |
if(!(endp((V31)))){ |
if(!(endp((V31)))){ |
174 |
goto T100;} |
goto T100;} |
175 |
goto T95; |
goto T95; |
176 |
|
goto T100; |
177 |
T100:; |
T100:; |
178 |
bds_bind(VV[2],VV[10]); |
bds_bind(VV[2],VV[10]); |
179 |
V33= (*(LnkLI47))((V32),(V29)); |
V33= (*(LnkLI47))((V32),(V29)); |
181 |
V31= cdr((V31)); |
V31= cdr((V31)); |
182 |
V32= car((V31)); |
V32= car((V31)); |
183 |
goto T99;} |
goto T99;} |
184 |
|
goto T95; |
185 |
T95:; |
T95:; |
186 |
princ_str("\n vs_base=V",VV[6]); |
princ_str("\n vs_base=V",VV[6]); |
187 |
(void)((*(LnkLI46))((V28))); |
(void)((*(LnkLI46))((V28))); |
192 |
goto T118;} |
goto T118;} |
193 |
V34= car((V30)); |
V34= car((V30)); |
194 |
goto T116; |
goto T116; |
195 |
|
goto T118; |
196 |
T118:; |
T118:; |
197 |
V34= Cnil; |
V34= Cnil; |
198 |
|
goto T116; |
199 |
T116:; |
T116:; |
200 |
{object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34)); |
{object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34)); |
201 |
VMR4(V35)}} |
VMR4(V35)}} |
202 |
|
base[0]=base[0]; |
203 |
|
return Cnil; |
204 |
} |
} |
205 |
/* local entry for function C1VALUES */ |
/* local entry for function C1VALUES */ |
206 |
|
|
208 |
|
|
209 |
register object V37; |
register object V37; |
210 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
211 |
|
goto TTL; |
212 |
TTL:; |
TTL:; |
213 |
{object V38; |
{object V38; |
214 |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
227 |
if(!(type_of((V39))!=t_cons)){ |
if(!(type_of((V39))!=t_cons)){ |
228 |
goto T133;} |
goto T133;} |
229 |
goto T131; |
goto T131; |
230 |
|
goto T133; |
231 |
T133:; |
T133:; |
232 |
if(type_of((V39))==t_cons){ |
if(type_of((V39))==t_cons){ |
233 |
goto T135;} |
goto T135;} |
234 |
goto T122; |
goto T122; |
235 |
|
goto T135; |
236 |
T135:; |
T135:; |
237 |
if((cdr((V39)))==Cnil){ |
if((cdr((V39)))==Cnil){ |
238 |
goto T137;} |
goto T137;} |
239 |
goto T122; |
goto T122; |
240 |
|
goto T137; |
241 |
T137:; |
T137:; |
242 |
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
243 |
goto T122;}} |
goto T122;}} |
244 |
|
goto T131; |
245 |
T131:; |
T131:; |
246 |
|
goto T121; |
247 |
T121:; |
T121:; |
248 |
{object V40 = (*(LnkLI52))(car((V37))); |
{object V40 = (*(LnkLI52))(car((V37))); |
249 |
VMR5(V40)} |
VMR5(V40)} |
250 |
|
goto T122; |
251 |
T122:; |
T122:; |
252 |
V37= (*(LnkLI42))((V37),(V38)); |
V37= (*(LnkLI42))((V37),(V38)); |
253 |
{object V41 = list(3,VV[13],(V38),(V37)); |
{object V41 = list(3,VV[13],(V38),(V37)); |
254 |
VMR5(V41)}} |
VMR5(V41)}} |
255 |
|
base[0]=base[0]; |
256 |
|
return Cnil; |
257 |
} |
} |
258 |
/* local entry for function C2VALUES */ |
/* local entry for function C2VALUES */ |
259 |
|
|
262 |
register object V43; |
register object V43; |
263 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
264 |
bds_check; |
bds_check; |
265 |
|
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
{object V44; |
{object V44; |
268 |
V44= symbol_value(VV[1]); |
V44= symbol_value(VV[1]); |
276 |
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
277 |
goto T142;} |
goto T142;} |
278 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
279 |
|
goto T142; |
280 |
T142:; |
T142:; |
281 |
if(((V43))!=Cnil){ |
if(((V43))!=Cnil){ |
282 |
goto T153;} |
goto T153;} |
286 |
setq(VV[7],Ct); |
setq(VV[7],Ct); |
287 |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
288 |
goto T151; |
goto T151; |
289 |
|
goto T153; |
290 |
T153:; |
T153:; |
291 |
{register object V45; |
{register object V45; |
292 |
register object V46; |
register object V46; |
293 |
V45= (V43); |
V45= (V43); |
294 |
V46= car((V45)); |
V46= car((V45)); |
295 |
|
goto T166; |
296 |
T166:; |
T166:; |
297 |
if(!(endp((V45)))){ |
if(!(endp((V45)))){ |
298 |
goto T167;} |
goto T167;} |
299 |
goto T162; |
goto T162; |
300 |
|
goto T167; |
301 |
T167:; |
T167:; |
302 |
base[2]= list(2,VV[18],(*(LnkLI54))()); |
base[2]= list(2,VV[18],(*(LnkLI54))()); |
303 |
bds_bind(VV[2],base[2]); |
bds_bind(VV[2],base[2]); |
306 |
V45= cdr((V45)); |
V45= cdr((V45)); |
307 |
V46= car((V45)); |
V46= car((V45)); |
308 |
goto T166;} |
goto T166;} |
309 |
|
goto T162; |
310 |
T162:; |
T162:; |
311 |
princ_str("\n vs_top=(vs_base=base+",VV[6]); |
princ_str("\n vs_top=(vs_base=base+",VV[6]); |
312 |
(void)((*(LnkLI46))((V44))); |
(void)((*(LnkLI46))((V44))); |
315 |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
316 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
317 |
setq(VV[7],Ct); |
setq(VV[7],Ct); |
318 |
|
goto T151; |
319 |
T151:; |
T151:; |
320 |
V49 = make_fixnum(length((V43))); |
V49 = make_fixnum(length((V43))); |
321 |
V50= make_cons(VV[13],V49); |
V50= make_cons(VV[13],V49); |
322 |
{object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50)); |
{object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50)); |
323 |
bds_unwind1; |
bds_unwind1; |
324 |
VMR6(V51)}} |
VMR6(V51)}} |
325 |
|
base[0]=base[0]; |
326 |
|
return Cnil; |
327 |
} |
} |
328 |
/* local entry for function C1MULTIPLE-VALUE-SETQ */ |
/* local entry for function C1MULTIPLE-VALUE-SETQ */ |
329 |
|
|
331 |
|
|
332 |
object V53; |
object V53; |
333 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
334 |
|
goto TTL; |
335 |
TTL:; |
TTL:; |
336 |
{register object V54; |
{register object V54; |
337 |
register object V55; |
register object V55; |
341 |
goto T188;} |
goto T188;} |
342 |
if(!(endp(cdr((V53))))){ |
if(!(endp(cdr((V53))))){ |
343 |
goto T187;} |
goto T187;} |
344 |
|
goto T188; |
345 |
T188:; |
T188:; |
346 |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
347 |
|
goto T187; |
348 |
T187:; |
T187:; |
349 |
if(endp(cddr((V53)))){ |
if(endp(cddr((V53)))){ |
350 |
goto T192;} |
goto T192;} |
351 |
V56 = make_fixnum(length((V53))); |
V56 = make_fixnum(length((V53))); |
352 |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
353 |
|
goto T192; |
354 |
T192:; |
T192:; |
355 |
{register object V57; |
{register object V57; |
356 |
register object V58; |
register object V58; |
357 |
V57= car((V53)); |
V57= car((V53)); |
358 |
V58= car((V57)); |
V58= car((V57)); |
359 |
|
goto T199; |
360 |
T199:; |
T199:; |
361 |
if(!(endp((V57)))){ |
if(!(endp((V57)))){ |
362 |
goto T200;} |
goto T200;} |
363 |
goto T195; |
goto T195; |
364 |
|
goto T200; |
365 |
T200:; |
T200:; |
366 |
if(type_of((V58))==t_symbol){ |
if(type_of((V58))==t_symbol){ |
367 |
goto T204;} |
goto T204;} |
368 |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58)))); |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58)))); |
369 |
|
goto T204; |
370 |
T204:; |
T204:; |
371 |
base[3]= (V58); |
base[3]= (V58); |
372 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
375 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
376 |
goto T207;} |
goto T207;} |
377 |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58)))); |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58)))); |
378 |
|
goto T207; |
379 |
T207:; |
T207:; |
380 |
V58= (*(LnkLI57))((V58)); |
V58= (*(LnkLI57))((V58)); |
381 |
V55= make_cons((V58),(V55)); |
V55= make_cons((V58),(V55)); |
389 |
V57= cdr((V57)); |
V57= cdr((V57)); |
390 |
V58= car((V57)); |
V58= car((V57)); |
391 |
goto T199;} |
goto T199;} |
392 |
|
goto T195; |
393 |
T195:; |
T195:; |
394 |
V63= reverse((V55)); |
V63= reverse((V55)); |
395 |
{object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54))); |
{object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54))); |
396 |
VMR7(V64)}} |
VMR7(V64)}} |
397 |
|
base[0]=base[0]; |
398 |
|
return Cnil; |
399 |
} |
} |
400 |
/* local entry for function MULTIPLE-VALUE-CHECK */ |
/* local entry for function MULTIPLE-VALUE-CHECK */ |
401 |
|
|
403 |
|
|
404 |
object V67;object V68; |
object V67;object V68; |
405 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
406 |
|
goto TTL; |
407 |
TTL:; |
TTL:; |
408 |
if((cdr((V67)))!=Cnil){ |
if((cdr((V67)))!=Cnil){ |
409 |
goto T223;} |
goto T223;} |
410 |
{object V69 = Cnil; |
{object V69 = Cnil; |
411 |
VMR8(V69)} |
VMR8(V69)} |
412 |
|
goto T223; |
413 |
T223:; |
T223:; |
414 |
if((car((V68)))==(VV[23])){ |
if((car((V68)))==(VV[23])){ |
415 |
goto T225;} |
goto T225;} |
416 |
{object V70 = Cnil; |
{object V70 = Cnil; |
417 |
VMR8(V70)} |
VMR8(V70)} |
418 |
|
goto T225; |
419 |
T225:; |
T225:; |
420 |
{object V71; |
{object V71; |
421 |
V71= caddr((V68)); |
V71= caddr((V68)); |
428 |
if(type_of((V72))==t_cons){ |
if(type_of((V72))==t_cons){ |
429 |
goto T234;} |
goto T234;} |
430 |
goto T229; |
goto T229; |
431 |
|
goto T234; |
432 |
T234:; |
T234:; |
433 |
if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){ |
if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){ |
434 |
goto T236;} |
goto T236;} |
435 |
goto T229; |
goto T229; |
436 |
|
goto T236; |
437 |
T236:; |
T236:; |
438 |
if(!((cdr((V72)))==Cnil)){ |
if(!((cdr((V72)))==Cnil)){ |
439 |
goto T229;}} |
goto T229;}} |
440 |
{object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71))); |
{object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71))); |
441 |
VMR8(V73)} |
VMR8(V73)} |
442 |
|
goto T229; |
443 |
T229:; |
T229:; |
444 |
{object V74 = Cnil; |
{object V74 = Cnil; |
445 |
VMR8(V74)}} |
VMR8(V74)}} |
446 |
|
return Cnil; |
447 |
} |
} |
448 |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
449 |
|
|
452 |
register object V77;object V78; |
register object V77;object V78; |
453 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
454 |
bds_check; |
bds_check; |
455 |
|
goto TTL; |
456 |
TTL:; |
TTL:; |
457 |
{object V79; |
{object V79; |
458 |
V79= Cnil; |
V79= Cnil; |
466 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
467 |
goto T243;} |
goto T243;} |
468 |
(void)((*(LnkLI59))(Cnil,car((V79)))); |
(void)((*(LnkLI59))(Cnil,car((V79)))); |
469 |
|
goto T243; |
470 |
T243:; |
T243:; |
471 |
{register object V80; |
{register object V80; |
472 |
V80= (V77); |
V80= (V77); |
473 |
|
goto T246; |
474 |
T246:; |
T246:; |
475 |
if(!(endp((V80)))){ |
if(!(endp((V80)))){ |
476 |
goto T247;} |
goto T247;} |
477 |
goto T244; |
goto T244; |
478 |
|
goto T247; |
479 |
T247:; |
T247:; |
480 |
{register object V81; |
{register object V81; |
481 |
V81= car((V80)); |
V81= car((V80)); |
484 |
if(endp(cdr((V80)))){ |
if(endp(cdr((V80)))){ |
485 |
goto T256;} |
goto T256;} |
486 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
487 |
|
goto T256; |
488 |
T256:; |
T256:; |
489 |
princ_str("\n }else{",VV[6]); |
princ_str("\n }else{",VV[6]); |
490 |
(void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81)))); |
(void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81)))); |
491 |
princ_char(125,VV[6]);} |
princ_char(125,VV[6]);} |
492 |
V80= cdr((V80)); |
V80= cdr((V80)); |
493 |
goto T246;} |
goto T246;} |
494 |
|
goto T244; |
495 |
T244:; |
T244:; |
496 |
if(((V77))!=Cnil){ |
if(((V77))!=Cnil){ |
497 |
goto T268;} |
goto T268;} |
498 |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
499 |
{object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
{object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
500 |
VMR9(V82)} |
VMR9(V82)} |
501 |
|
goto T268; |
502 |
T268:; |
T268:; |
503 |
if((symbol_value(VV[28]))==(VV[29])){ |
if((symbol_value(VV[28]))==(VV[29])){ |
504 |
goto T272;} |
goto T272;} |
505 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
506 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
507 |
|
goto T272; |
508 |
T272:; |
T272:; |
509 |
V83= make_cons(VV[30],car((V77))); |
V83= make_cons(VV[30],car((V77))); |
510 |
{object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83)); |
{object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83)); |
511 |
VMR9(V84)}} |
VMR9(V84)}} |
512 |
|
base[0]=base[0]; |
513 |
|
return Cnil; |
514 |
} |
} |
515 |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
516 |
|
|
519 |
object V86; |
object V86; |
520 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
521 |
bds_check; |
bds_check; |
522 |
|
goto TTL; |
523 |
TTL:; |
TTL:; |
524 |
{object V87; |
{object V87; |
525 |
register object V88; |
register object V88; |
544 |
goto T286;} |
goto T286;} |
545 |
if(!(endp(cdr((V86))))){ |
if(!(endp(cdr((V86))))){ |
546 |
goto T285;} |
goto T285;} |
547 |
|
goto T286; |
548 |
T286:; |
T286:; |
549 |
V96 = make_fixnum(length((V86))); |
V96 = make_fixnum(length((V86))); |
550 |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V96)); |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V96)); |
551 |
|
goto T285; |
552 |
T285:; |
T285:; |
553 |
base[2]= cddr((V86)); |
base[2]= cddr((V86)); |
554 |
base[3]= Cnil; |
base[3]= Cnil; |
584 |
register object V98; |
register object V98; |
585 |
V97= car((V86)); |
V97= car((V86)); |
586 |
V98= car((V97)); |
V98= car((V97)); |
587 |
|
goto T299; |
588 |
T299:; |
T299:; |
589 |
if(!(endp((V97)))){ |
if(!(endp((V97)))){ |
590 |
goto T300;} |
goto T300;} |
591 |
goto T295; |
goto T295; |
592 |
|
goto T300; |
593 |
T300:; |
T300:; |
594 |
{object V99; |
{object V99; |
595 |
V99= (*(LnkLI64))((V98),(V91),(V92),(V93)); |
V99= (*(LnkLI64))((V98),(V91),(V92),(V93)); |
598 |
V97= cdr((V97)); |
V97= cdr((V97)); |
599 |
V98= car((V97)); |
V98= car((V97)); |
600 |
goto T299;} |
goto T299;} |
601 |
|
goto T295; |
602 |
T295:; |
T295:; |
603 |
V90= (*(LnkLI49))(cadr((V86)),(V87)); |
V90= (*(LnkLI49))(cadr((V86)),(V87)); |
604 |
{register object V100; |
{register object V100; |
605 |
object V101; |
object V101; |
606 |
V100= reverse((V88)); |
V100= reverse((V88)); |
607 |
V101= car((V100)); |
V101= car((V100)); |
608 |
|
goto T320; |
609 |
T320:; |
T320:; |
610 |
if(!(endp((V100)))){ |
if(!(endp((V100)))){ |
611 |
goto T321;} |
goto T321;} |
612 |
goto T316; |
goto T316; |
613 |
|
goto T321; |
614 |
T321:; |
T321:; |
615 |
(VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind)); |
(VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind)); |
616 |
V100= cdr((V100)); |
V100= cdr((V100)); |
617 |
V101= car((V100)); |
V101= car((V100)); |
618 |
goto T320;} |
goto T320;} |
619 |
|
goto T316; |
620 |
T316:; |
T316:; |
621 |
(void)((*(LnkLI65))((V89),(V93),(V92))); |
(void)((*(LnkLI65))((V89),(V93),(V92))); |
622 |
V94= (*(LnkLI66))((V95),(V94)); |
V94= (*(LnkLI66))((V95),(V94)); |
627 |
object V104; |
object V104; |
628 |
V103= (V88); |
V103= (V88); |
629 |
V104= car((V103)); |
V104= car((V103)); |
630 |
|
goto T341; |
631 |
T341:; |
T341:; |
632 |
if(!(endp((V103)))){ |
if(!(endp((V103)))){ |
633 |
goto T342;} |
goto T342;} |
634 |
goto T337; |
goto T337; |
635 |
|
goto T342; |
636 |
T342:; |
T342:; |
637 |
(void)((*(LnkLI68))((V104))); |
(void)((*(LnkLI68))((V104))); |
638 |
V103= cdr((V103)); |
V103= cdr((V103)); |
639 |
V104= car((V103)); |
V104= car((V103)); |
640 |
goto T341;} |
goto T341;} |
641 |
|
goto T337; |
642 |
T337:; |
T337:; |
643 |
{object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94)); |
{object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94)); |
644 |
bds_unwind1; |
bds_unwind1; |
645 |
VMR10(V105)}} |
VMR10(V105)}} |
646 |
|
base[0]=base[0]; |
647 |
|
return Cnil; |
648 |
} |
} |
649 |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
650 |
|
|
653 |
object V109;object V110;object V111; |
object V109;object V110;object V111; |
654 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
655 |
bds_check; |
bds_check; |
656 |
|
goto TTL; |
657 |
TTL:; |
TTL:; |
658 |
{object V112; |
{object V112; |
659 |
register object V113; |
register object V113; |
670 |
register object V116; |
register object V116; |
671 |
V115= (V109); |
V115= (V109); |
672 |
V116= car((V115)); |
V116= car((V115)); |
673 |
|
goto T360; |
674 |
T360:; |
T360:; |
675 |
if(!(endp((V115)))){ |
if(!(endp((V115)))){ |
676 |
goto T361;} |
goto T361;} |
677 |
goto T356; |
goto T356; |
678 |
|
goto T361; |
679 |
T361:; |
T361:; |
680 |
{object V117; |
{object V117; |
681 |
V117= (*(LnkLI69))((V116)); |
V117= (*(LnkLI69))((V116)); |
691 |
goto T375;} |
goto T375;} |
692 |
princ_char(123,VV[6]); |
princ_char(123,VV[6]); |
693 |
V112= Ct; |
V112= Ct; |
694 |
|
goto T375; |
695 |
T375:; |
T375:; |
696 |
base[5]= (V116); |
base[5]= (V116); |
697 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
698 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
699 |
vs_top=sup; |
vs_top=sup; |
700 |
goto T365;} |
goto T365;} |
701 |
|
goto T368; |
702 |
T368:; |
T368:; |
703 |
V119= (*(LnkLI54))(); |
V119= (*(LnkLI54))(); |
704 |
(void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));} |
(void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));} |
705 |
|
goto T365; |
706 |
T365:; |
T365:; |
707 |
V115= cdr((V115)); |
V115= cdr((V115)); |
708 |
V116= car((V115)); |
V116= car((V115)); |
709 |
goto T360;} |
goto T360;} |
710 |
|
goto T356; |
711 |
T356:; |
T356:; |
712 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
713 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
718 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
719 |
goto T390;} |
goto T390;} |
720 |
(void)((*(LnkLI59))(Cnil,car((V114)))); |
(void)((*(LnkLI59))(Cnil,car((V114)))); |
721 |
|
goto T390; |
722 |
T390:; |
T390:; |
723 |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
724 |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
725 |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
726 |
{register object V120; |
{register object V120; |
727 |
V120= (V109); |
V120= (V109); |
728 |
|
goto T393; |
729 |
T393:; |
T393:; |
730 |
if(!(endp((V120)))){ |
if(!(endp((V120)))){ |
731 |
goto T394;} |
goto T394;} |
733 |
bds_unwind1; |
bds_unwind1; |
734 |
bds_unwind1; |
bds_unwind1; |
735 |
goto T391; |
goto T391; |
736 |
|
goto T394; |
737 |
T394:; |
T394:; |
738 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
739 |
V121= make_cons(symbol_value(VV[36]),Cnil); |
V121= make_cons(symbol_value(VV[36]),Cnil); |
751 |
if(endp(cdr((V120)))){ |
if(endp(cdr((V120)))){ |
752 |
goto T412;} |
goto T412;} |
753 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
754 |
|
goto T412; |
755 |
T412:; |
T412:; |
756 |
V120= cdr((V120)); |
V120= cdr((V120)); |
757 |
goto T393;} |
goto T393;} |
758 |
|
goto T391; |
759 |
T391:; |
T391:; |
760 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
761 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
773 |
object V124; |
object V124; |
774 |
V123= (V109); |
V123= (V109); |
775 |
V124= car((V123)); |
V124= car((V123)); |
776 |
|
goto T436; |
777 |
T436:; |
T436:; |
778 |
if(!(endp((V123)))){ |
if(!(endp((V123)))){ |
779 |
goto T437;} |
goto T437;} |
780 |
goto T432; |
goto T432; |
781 |
|
goto T437; |
782 |
T437:; |
T437:; |
783 |
if((cdr(car((V113))))==Cnil){ |
if((cdr(car((V113))))==Cnil){ |
784 |
goto T441;} |
goto T441;} |
785 |
|
princ_str("\ngoto T",VV[6]); |
786 |
|
(void)((*(LnkLI46))(car(car((V113))))); |
787 |
|
princ_char(59,VV[6]); |
788 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
789 |
(void)((*(LnkLI46))(car(car((V113))))); |
(void)((*(LnkLI46))(car(car((V113))))); |
790 |
princ_str(":;",VV[6]); |
princ_str(":;",VV[6]); |
791 |
|
goto T441; |
792 |
T441:; |
T441:; |
793 |
{object V125; |
{object V125; |
794 |
V125= car((V113)); |
V125= car((V113)); |
797 |
V123= cdr((V123)); |
V123= cdr((V123)); |
798 |
V124= car((V123)); |
V124= car((V123)); |
799 |
goto T436;} |
goto T436;} |
800 |
|
goto T432; |
801 |
T432:; |
T432:; |
802 |
if((cdr((V122)))==Cnil){ |
if((cdr((V122)))==Cnil){ |
803 |
goto T421;} |
goto T421;} |
804 |
|
princ_str("\ngoto T",VV[6]); |
805 |
|
(void)((*(LnkLI46))(car((V122)))); |
806 |
|
princ_char(59,VV[6]); |
807 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
808 |
(void)((*(LnkLI46))(car((V122)))); |
(void)((*(LnkLI46))(car((V122)))); |
809 |
princ_str(":;",VV[6]);} |
princ_str(":;",VV[6]);} |
810 |
|
goto T421; |
811 |
T421:; |
T421:; |
812 |
base[4]= (V111); |
base[4]= (V111); |
813 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
814 |
(void) (*Lnk72)(); |
(void) (*Lnk72)(); |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
if(((V112))==Cnil){ |
if(((V112))==Cnil){ |
817 |
goto T465;} |
goto T473;} |
818 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
819 |
{object V126 = Cnil; |
{object V126 = Cnil; |
820 |
bds_unwind1; |
bds_unwind1; |
822 |
bds_unwind1; |
bds_unwind1; |
823 |
bds_unwind1; |
bds_unwind1; |
824 |
VMR11(V126)} |
VMR11(V126)} |
825 |
T465:; |
goto T473; |
826 |
|
T473:; |
827 |
{object V127 = Cnil; |
{object V127 = Cnil; |
828 |
bds_unwind1; |
bds_unwind1; |
829 |
bds_unwind1; |
bds_unwind1; |
830 |
bds_unwind1; |
bds_unwind1; |
831 |
bds_unwind1; |
bds_unwind1; |
832 |
VMR11(V127)}} |
VMR11(V127)}} |
833 |
|
base[0]=base[0]; |
834 |
|
return Cnil; |
835 |
} |
} |
836 |
static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* C2EXPR */ |
static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* C2EXPR */ |
837 |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,2,ap);} /* C2BIND-LOC */ |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,2,ap);} /* C2BIND-LOC */ |
838 |
static LnkT70(){ call_or_link(VV[70],&Lnk70);} /* WT-VAR-DECL */ |
static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* WT-VAR-DECL */ |
839 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* C2VAR-KIND */ |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,1,ap);} /* C2VAR-KIND */ |
840 |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,1,ap);} /* CHECK-VREF */ |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,1,ap);} /* CHECK-VREF */ |
841 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* ADD-INFO */ |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* ADD-INFO */ |
842 |
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,2,ap);} /* C1DECL-BODY */ |
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],(void **)&LnkLI66,2,ap);} /* C1DECL-BODY */ |
843 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,3,ap);} /* CHECK-VDECL */ |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,3,ap);} /* CHECK-VDECL */ |
844 |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,4,ap);} /* C1MAKE-VAR */ |
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,4,ap);} /* C1MAKE-VAR */ |
845 |
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* C1ADD-GLOBALS */ |
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],(void **)&LnkLI63,1,ap);} /* C1ADD-GLOBALS */ |
846 |
static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* C1BODY */ |
static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* C1BODY */ |
847 |
static object LnkTLI61(){return call_proc0(VV[61],&LnkLI61);} /* RESET-TOP */ |
static object LnkTLI61(){return call_proc0(VV[61],(void **)&LnkLI61);} /* RESET-TOP */ |
848 |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* SET-VAR */ |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,3,ap);} /* SET-VAR */ |
849 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* RECORD-CALL-INFO */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* RECORD-CALL-INFO */ |
850 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* MULTIPLE-VALUE-CHECK */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,2,ap);} /* MULTIPLE-VALUE-CHECK */ |
851 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C1VREF */ |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* C1VREF */ |
852 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],&LnkLI56,ap);} /* CMPERR */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],(void **)&LnkLI56,ap);} /* CMPERR */ |
853 |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* TOO-MANY-ARGS */ |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,3,ap);} /* TOO-MANY-ARGS */ |
854 |
static object LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* VS-PUSH */ |
static object LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* VS-PUSH */ |
855 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],&LnkLI53,ap);} /* CMPWARN */ |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],(void **)&LnkLI53,ap);} /* CMPWARN */ |
856 |
static object LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,1,ap);} /* C1EXPR */ |
static object LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],(void **)&LnkLI52,1,ap);} /* C1EXPR */ |
857 |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* GET-RETURN-TYPE */ |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* GET-RETURN-TYPE */ |
858 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* UNWIND-EXIT */ |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* UNWIND-EXIT */ |
859 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1EXPR* */ |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1EXPR* */ |
860 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */ |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */ |
861 |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C2EXPR-TOP* */ |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,2,ap);} /* C2EXPR-TOP* */ |
862 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* WT1 */ |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* WT1 */ |
863 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* C2FUNCALL */ |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* C2FUNCALL */ |
864 |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,1,ap);} /* C2EXPR* */ |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,1,ap);} /* C2EXPR* */ |
865 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,1,ap);} /* SAVE-FUNOB */ |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,1,ap);} /* SAVE-FUNOB */ |
866 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,2,ap);} /* C1ARGS */ |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,2,ap);} /* C1ARGS */ |
867 |
static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* COPY-INFO */ |
static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* COPY-INFO */ |
868 |
static object LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],&LnkLI40,1,ap);} /* C1FUNOB */ |
static object LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],(void **)&LnkLI40,1,ap);} /* C1FUNOB */ |
869 |
static object LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[39],&LnkLI39,1,ap);} /* C1FUNCALL */ |
static object LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[39],(void **)&LnkLI39,1,ap);} /* C1FUNCALL */ |
870 |
static object LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[38],&LnkLI38,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[38],(void **)&LnkLI38,3,ap);} /* TOO-FEW-ARGS */ |
871 |
|
|
872 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
873 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |