1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpmulti.h" |
4 |
|
void init_gcl_cmpmulti(){do_init(VV);} |
5 |
|
/* local entry for function C1MULTIPLE-VALUE-CALL */ |
6 |
|
|
7 |
|
static object LI1(V2) |
8 |
|
|
9 |
|
register object V2; |
10 |
|
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
|
TTL:; |
13 |
|
{object V3; |
14 |
|
object V4; |
15 |
|
V3= Cnil; |
16 |
|
V4= Cnil; |
17 |
|
if(!(endp_prop((V2)))){ |
18 |
|
goto T3;} |
19 |
|
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
20 |
|
goto T3; |
21 |
|
T3:; |
22 |
|
if(!(endp_prop(cdr((V2))))){ |
23 |
|
goto T7;} |
24 |
|
{object V5 = (*(LnkLI39))((V2)); |
25 |
|
VMR1(V5)} |
26 |
|
goto T7; |
27 |
|
T7:; |
28 |
|
V4= (*(LnkLI40))(car((V2))); |
29 |
|
base[0]= cadr((V4)); |
30 |
|
vs_top=(vs_base=base+0)+1; |
31 |
|
(void) (*Lnk41)(); |
32 |
|
vs_top=sup; |
33 |
|
V3= vs_base[0]; |
34 |
|
V2= (*(LnkLI42))(cdr((V2)),(V3)); |
35 |
|
{object V6 = list(4,VV[0],(V3),(V4),(V2)); |
36 |
|
VMR1(V6)}} |
37 |
|
base[0]=base[0]; |
38 |
|
return Cnil; |
39 |
|
} |
40 |
|
/* local entry for function C2MULTIPLE-VALUE-CALL */ |
41 |
|
|
42 |
|
static object LI2(V9,V10) |
43 |
|
|
44 |
|
register object V9;object V10; |
45 |
|
{ VMB2 VMS2 VMV2 |
46 |
|
bds_check; |
47 |
|
goto TTL; |
48 |
|
TTL:; |
49 |
|
{register object V11; |
50 |
|
register object V12; |
51 |
|
bds_bind(VV[1],symbol_value(VV[1])); |
52 |
|
V11= Cnil; |
53 |
|
V12= Cnil; |
54 |
|
if(!(endp_prop(cdr((V10))))){ |
55 |
|
goto T19;} |
56 |
|
V11= (*(LnkLI43))((V9)); |
57 |
|
bds_bind(VV[2],VV[3]); |
58 |
|
V13= (*(LnkLI44))(car((V10))); |
59 |
|
bds_unwind1; |
60 |
|
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
61 |
|
bds_unwind1; |
62 |
|
VMR2(V14)} |
63 |
|
goto T19; |
64 |
|
T19:; |
65 |
|
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
66 |
|
V12= symbol_value(VV[5]); |
67 |
|
V11= (*(LnkLI43))((V9)); |
68 |
|
princ_str("\n {object *V",VV[6]); |
69 |
|
(void)((*(LnkLI46))((V12))); |
70 |
|
princ_str("=base+",VV[6]); |
71 |
|
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
72 |
|
princ_char(59,VV[6]); |
73 |
|
setq(VV[7],Ct); |
74 |
|
{register object V15; |
75 |
|
register object V16; |
76 |
|
V15= (V10); |
77 |
|
V16= car((V15)); |
78 |
|
goto T41; |
79 |
|
T41:; |
80 |
|
if(!(endp_prop((V15)))){ |
81 |
|
goto T42;} |
82 |
|
goto T37; |
83 |
|
goto T42; |
84 |
|
T42:; |
85 |
|
bds_bind(VV[2],VV[3]); |
86 |
|
V17= (*(LnkLI47))((V16),(V12)); |
87 |
|
bds_unwind1; |
88 |
|
princ_str("\n while(vs_base<vs_top)",VV[6]); |
89 |
|
princ_str("\n {V",VV[6]); |
90 |
|
(void)((*(LnkLI46))((V12))); |
91 |
|
princ_str("[0]=vs_base[0];V",VV[6]); |
92 |
|
(void)((*(LnkLI46))((V12))); |
93 |
|
princ_str("++;vs_base++;}",VV[6]); |
94 |
|
V15= cdr((V15)); |
95 |
|
V16= car((V15)); |
96 |
|
goto T41;} |
97 |
|
goto T37; |
98 |
|
T37:; |
99 |
|
princ_str("\n vs_base=base+",VV[6]); |
100 |
|
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
101 |
|
princ_str(";vs_top=V",VV[6]); |
102 |
|
(void)((*(LnkLI46))((V12))); |
103 |
|
princ_char(59,VV[6]); |
104 |
|
setq(VV[7],Ct); |
105 |
|
(void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)))); |
106 |
|
princ_char(125,VV[6]); |
107 |
|
{object V18 = Cnil; |
108 |
|
bds_unwind1; |
109 |
|
VMR2(V18)}} |
110 |
|
base[0]=base[0]; |
111 |
|
return Cnil; |
112 |
|
} |
113 |
|
/* local entry for function C1MULTIPLE-VALUE-PROG1 */ |
114 |
|
|
115 |
|
static object LI3(V20) |
116 |
|
|
117 |
|
register object V20; |
118 |
|
{ VMB3 VMS3 VMV3 |
119 |
|
goto TTL; |
120 |
|
TTL:; |
121 |
|
{object V21; |
122 |
|
object V22; |
123 |
|
V21= (VFUN_NARGS=0,(*(LnkLI48))()); |
124 |
|
V22= Cnil; |
125 |
|
if(!(endp_prop((V20)))){ |
126 |
|
goto T72;} |
127 |
|
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
128 |
|
goto T72; |
129 |
|
T72:; |
130 |
|
V22= (*(LnkLI49))(car((V20)),(V21)); |
131 |
|
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
132 |
|
{object V23 = list(4,VV[8],(V21),(V22),(V20)); |
133 |
|
VMR3(V23)}} |
134 |
|
base[0]=base[0]; |
135 |
|
return Cnil; |
136 |
|
} |
137 |
|
/* local entry for function C2MULTIPLE-VALUE-PROG1 */ |
138 |
|
|
139 |
|
static object LI4(V26,V27) |
140 |
|
|
141 |
|
object V26;object V27; |
142 |
|
{ VMB4 VMS4 VMV4 |
143 |
|
bds_check; |
144 |
|
goto TTL; |
145 |
|
TTL:; |
146 |
|
{object V28; |
147 |
|
register object V29; |
148 |
|
object V30; |
149 |
|
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
150 |
|
V28= symbol_value(VV[5]); |
151 |
|
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
152 |
|
V29= symbol_value(VV[5]); |
153 |
|
V30= Cnil; |
154 |
|
bds_bind(VV[2],VV[3]); |
155 |
|
bds_bind(VV[9],Cnil); |
156 |
|
(void)((*(LnkLI44))((V26))); |
157 |
|
V30= (VV[9]->s.s_dbind); |
158 |
|
bds_unwind1; |
159 |
|
bds_unwind1; |
160 |
|
princ_str("\n {object *V",VV[6]); |
161 |
|
(void)((*(LnkLI46))((V29))); |
162 |
|
princ_str("=vs_top;object *V",VV[6]); |
163 |
|
(void)((*(LnkLI46))((V28))); |
164 |
|
princ_str("=vs_base; vs_base=V",VV[6]); |
165 |
|
(void)((*(LnkLI46))((V29))); |
166 |
|
princ_char(59,VV[6]); |
167 |
|
{register object V31; |
168 |
|
register object V32; |
169 |
|
V31= (V27); |
170 |
|
V32= car((V31)); |
171 |
|
goto T99; |
172 |
|
T99:; |
173 |
|
if(!(endp_prop((V31)))){ |
174 |
|
goto T100;} |
175 |
|
goto T95; |
176 |
|
goto T100; |
177 |
|
T100:; |
178 |
|
bds_bind(VV[2],VV[10]); |
179 |
|
V33= (*(LnkLI47))((V32),(V29)); |
180 |
|
bds_unwind1; |
181 |
|
V31= cdr((V31)); |
182 |
|
V32= car((V31)); |
183 |
|
goto T99;} |
184 |
|
goto T95; |
185 |
|
T95:; |
186 |
|
princ_str("\n vs_base=V",VV[6]); |
187 |
|
(void)((*(LnkLI46))((V28))); |
188 |
|
princ_str(";vs_top=V",VV[6]); |
189 |
|
(void)((*(LnkLI46))((V29))); |
190 |
|
princ_str(";}",VV[6]); |
191 |
|
if(((V30))==Cnil){ |
192 |
|
goto T118;} |
193 |
|
V34= car((V30)); |
194 |
|
goto T116; |
195 |
|
goto T118; |
196 |
|
T118:; |
197 |
|
V34= Cnil; |
198 |
|
goto T116; |
199 |
|
T116:; |
200 |
|
{object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34)); |
201 |
|
VMR4(V35)}} |
202 |
|
base[0]=base[0]; |
203 |
|
return Cnil; |
204 |
|
} |
205 |
|
/* local entry for function C1VALUES */ |
206 |
|
|
207 |
|
static object LI5(V37) |
208 |
|
|
209 |
|
register object V37; |
210 |
|
{ VMB5 VMS5 VMV5 |
211 |
|
goto TTL; |
212 |
|
TTL:; |
213 |
|
{object V38; |
214 |
|
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
215 |
|
if(((V37))==Cnil){ |
216 |
|
goto T122;} |
217 |
|
if((cdr((V37)))!=Cnil){ |
218 |
|
goto T122;} |
219 |
|
if(!(type_of(car((V37)))==t_cons)){ |
220 |
|
goto T121;} |
221 |
|
if(!(type_of(caar((V37)))==t_symbol)){ |
222 |
|
goto T122;} |
223 |
|
{register object V39; |
224 |
|
V39= (*(LnkLI51))(caar((V37))); |
225 |
|
if((V39)==Cnil){ |
226 |
|
goto T122;} |
227 |
|
if(!(type_of((V39))!=t_cons)){ |
228 |
|
goto T133;} |
229 |
|
goto T131; |
230 |
|
goto T133; |
231 |
|
T133:; |
232 |
|
if(type_of((V39))==t_cons){ |
233 |
|
goto T135;} |
234 |
|
goto T122; |
235 |
|
goto T135; |
236 |
|
T135:; |
237 |
|
if((cdr((V39)))==Cnil){ |
238 |
|
goto T137;} |
239 |
|
goto T122; |
240 |
|
goto T137; |
241 |
|
T137:; |
242 |
|
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
243 |
|
goto T122;}} |
244 |
|
goto T131; |
245 |
|
T131:; |
246 |
|
goto T121; |
247 |
|
T121:; |
248 |
|
{object V40 = (*(LnkLI52))(car((V37))); |
249 |
|
VMR5(V40)} |
250 |
|
goto T122; |
251 |
|
T122:; |
252 |
|
V37= (*(LnkLI42))((V37),(V38)); |
253 |
|
{object V41 = list(3,VV[13],(V38),(V37)); |
254 |
|
VMR5(V41)}} |
255 |
|
base[0]=base[0]; |
256 |
|
return Cnil; |
257 |
|
} |
258 |
|
/* local entry for function C2VALUES */ |
259 |
|
|
260 |
|
static object LI6(V43) |
261 |
|
|
262 |
|
register object V43; |
263 |
|
{ VMB6 VMS6 VMV6 |
264 |
|
bds_check; |
265 |
|
goto TTL; |
266 |
|
TTL:; |
267 |
|
{object V44; |
268 |
|
V44= symbol_value(VV[1]); |
269 |
|
bds_bind(VV[1],symbol_value(VV[1])); |
270 |
|
if(!((symbol_value(VV[2]))==(VV[14]))){ |
271 |
|
goto T142;} |
272 |
|
if((cdr((V43)))==Cnil){ |
273 |
|
goto T142;} |
274 |
|
if(!(type_of(symbol_value(VV[15]))==t_cons)){ |
275 |
|
goto T142;} |
276 |
|
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
277 |
|
goto T142;} |
278 |
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
279 |
|
goto T142; |
280 |
|
T142:; |
281 |
|
if(((V43))!=Cnil){ |
282 |
|
goto T153;} |
283 |
|
princ_str("\n vs_base=vs_top=base+",VV[6]); |
284 |
|
(void)((*(LnkLI46))((V44))); |
285 |
|
princ_char(59,VV[6]); |
286 |
|
setq(VV[7],Ct); |
287 |
|
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
288 |
|
goto T151; |
289 |
|
goto T153; |
290 |
|
T153:; |
291 |
|
{register object V45; |
292 |
|
register object V46; |
293 |
|
V45= (V43); |
294 |
|
V46= car((V45)); |
295 |
|
goto T166; |
296 |
|
T166:; |
297 |
|
if(!(endp_prop((V45)))){ |
298 |
|
goto T167;} |
299 |
|
goto T162; |
300 |
|
goto T167; |
301 |
|
T167:; |
302 |
|
base[2]= list(2,VV[18],(*(LnkLI54))()); |
303 |
|
bds_bind(VV[2],base[2]); |
304 |
|
V47= (*(LnkLI44))((V46)); |
305 |
|
bds_unwind1; |
306 |
|
V45= cdr((V45)); |
307 |
|
V46= car((V45)); |
308 |
|
goto T166;} |
309 |
|
goto T162; |
310 |
|
T162:; |
311 |
|
princ_str("\n vs_top=(vs_base=base+",VV[6]); |
312 |
|
(void)((*(LnkLI46))((V44))); |
313 |
|
princ_str(")+",VV[6]); |
314 |
|
V48= number_minus((VV[1]->s.s_dbind),(V44)); |
315 |
|
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
316 |
|
princ_char(59,VV[6]); |
317 |
|
setq(VV[7],Ct); |
318 |
|
goto T151; |
319 |
|
T151:; |
320 |
|
V49 = make_fixnum((long)length((V43))); |
321 |
|
V50= make_cons(VV[13],V49); |
322 |
|
{object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50)); |
323 |
|
bds_unwind1; |
324 |
|
VMR6(V51)}} |
325 |
|
base[0]=base[0]; |
326 |
|
return Cnil; |
327 |
|
} |
328 |
|
/* local entry for function C1MULTIPLE-VALUE-SETQ */ |
329 |
|
|
330 |
|
static object LI7(V53) |
331 |
|
|
332 |
|
object V53; |
333 |
|
{ VMB7 VMS7 VMV7 |
334 |
|
goto TTL; |
335 |
|
TTL:; |
336 |
|
{object V54; |
337 |
|
register object V55; |
338 |
|
V54= (VFUN_NARGS=0,(*(LnkLI48))()); |
339 |
|
V55= Cnil; |
340 |
|
if(endp_prop((V53))){ |
341 |
|
goto T188;} |
342 |
|
if(!(endp_prop(cdr((V53))))){ |
343 |
|
goto T187;} |
344 |
|
goto T188; |
345 |
|
T188:; |
346 |
|
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
347 |
|
goto T187; |
348 |
|
T187:; |
349 |
|
if(endp_prop(cddr((V53)))){ |
350 |
|
goto T192;} |
351 |
|
V56 = make_fixnum((long)length((V53))); |
352 |
|
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
353 |
|
goto T192; |
354 |
|
T192:; |
355 |
|
{register object V57; |
356 |
|
register object V58; |
357 |
|
V57= car((V53)); |
358 |
|
V58= car((V57)); |
359 |
|
goto T199; |
360 |
|
T199:; |
361 |
|
if(!(endp_prop((V57)))){ |
362 |
|
goto T200;} |
363 |
|
goto T195; |
364 |
|
goto T200; |
365 |
|
T200:; |
366 |
|
if(type_of((V58))==t_symbol){ |
367 |
|
goto T204;} |
368 |
|
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58)))); |
369 |
|
goto T204; |
370 |
|
T204:; |
371 |
|
base[3]= (V58); |
372 |
|
vs_top=(vs_base=base+3)+1; |
373 |
|
Lconstantp(); |
374 |
|
vs_top=sup; |
375 |
|
if((vs_base[0])==Cnil){ |
376 |
|
goto T207;} |
377 |
|
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58)))); |
378 |
|
goto T207; |
379 |
|
T207:; |
380 |
|
V58= (*(LnkLI57))((V58)); |
381 |
|
{register object V59; |
382 |
|
V59= (V58); |
383 |
|
V55= make_cons((V59),(V55));} |
384 |
|
{register object V60; |
385 |
|
register object V61; |
386 |
|
register object V62; |
387 |
|
V60= car((V58)); |
388 |
|
V61= (V54); |
389 |
|
V63= structure_ref((V61),VV[22],0); |
390 |
|
V62= make_cons((V60),/* INLINE-ARGS */V63); |
391 |
|
(void)(structure_set((V61),VV[22],0,(V62)));} |
392 |
|
V57= cdr((V57)); |
393 |
|
V58= car((V57)); |
394 |
|
goto T199;} |
395 |
|
goto T195; |
396 |
|
T195:; |
397 |
|
V64= reverse((V55)); |
398 |
|
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54))); |
399 |
|
VMR7(V65)}} |
400 |
|
base[0]=base[0]; |
401 |
|
return Cnil; |
402 |
|
} |
403 |
|
/* local entry for function MULTIPLE-VALUE-CHECK */ |
404 |
|
|
405 |
|
static object LI8(V68,V69) |
406 |
|
|
407 |
|
object V68;object V69; |
408 |
|
{ VMB8 VMS8 VMV8 |
409 |
|
goto TTL; |
410 |
|
TTL:; |
411 |
|
if((cdr((V68)))!=Cnil){ |
412 |
|
goto T225;} |
413 |
|
{object V70 = Cnil; |
414 |
|
VMR8(V70)} |
415 |
|
goto T225; |
416 |
|
T225:; |
417 |
|
if((car((V69)))==(VV[23])){ |
418 |
|
goto T227;} |
419 |
|
{object V71 = Cnil; |
420 |
|
VMR8(V71)} |
421 |
|
goto T227; |
422 |
|
T227:; |
423 |
|
{object V72; |
424 |
|
V72= caddr((V69)); |
425 |
|
if(!(type_of((V72))==t_symbol)){ |
426 |
|
goto T231;} |
427 |
|
{register object V73; |
428 |
|
V73= get((V72),VV[24],Cnil); |
429 |
|
if((V73)==Cnil){ |
430 |
|
goto T231;} |
431 |
|
if(type_of((V73))==t_cons){ |
432 |
|
goto T236;} |
433 |
|
goto T231; |
434 |
|
goto T236; |
435 |
|
T236:; |
436 |
|
if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){ |
437 |
|
goto T238;} |
438 |
|
goto T231; |
439 |
|
goto T238; |
440 |
|
T238:; |
441 |
|
if(!((cdr((V73)))==Cnil)){ |
442 |
|
goto T231;}} |
443 |
|
{object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
444 |
|
VMR8(V74)} |
445 |
|
goto T231; |
446 |
|
T231:; |
447 |
|
{object V75 = Cnil; |
448 |
|
VMR8(V75)}} |
449 |
|
return Cnil; |
450 |
|
} |
451 |
|
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
452 |
|
|
453 |
|
static object LI9(V78,V79) |
454 |
|
|
455 |
|
register object V78;object V79; |
456 |
|
{ VMB9 VMS9 VMV9 |
457 |
|
bds_check; |
458 |
|
goto TTL; |
459 |
|
TTL:; |
460 |
|
{object V80; |
461 |
|
V80= Cnil; |
462 |
|
(void)((*(LnkLI58))((V78),(V79))); |
463 |
|
bds_bind(VV[2],VV[3]); |
464 |
|
bds_bind(VV[9],Cnil); |
465 |
|
(void)((*(LnkLI44))((V79))); |
466 |
|
V80= (VV[9]->s.s_dbind); |
467 |
|
bds_unwind1; |
468 |
|
bds_unwind1; |
469 |
|
if(symbol_value(VV[27])==Cnil){ |
470 |
|
goto T245;} |
471 |
|
(void)((*(LnkLI59))(Cnil,car((V80)))); |
472 |
|
goto T245; |
473 |
|
T245:; |
474 |
|
{register object V81; |
475 |
|
V81= (V78); |
476 |
|
goto T248; |
477 |
|
T248:; |
478 |
|
if(!(endp_prop((V81)))){ |
479 |
|
goto T249;} |
480 |
|
goto T246; |
481 |
|
goto T249; |
482 |
|
T249:; |
483 |
|
{register object V82; |
484 |
|
V82= car((V81)); |
485 |
|
princ_str("\n if(vs_base<vs_top){",VV[6]); |
486 |
|
(void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82)))); |
487 |
|
if(endp_prop(cdr((V81)))){ |
488 |
|
goto T258;} |
489 |
|
princ_str("\n vs_base++;",VV[6]); |
490 |
|
goto T258; |
491 |
|
T258:; |
492 |
|
princ_str("\n }else{",VV[6]); |
493 |
|
(void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82)))); |
494 |
|
princ_char(125,VV[6]);} |
495 |
|
V81= cdr((V81)); |
496 |
|
goto T248;} |
497 |
|
goto T246; |
498 |
|
T246:; |
499 |
|
if(((V78))!=Cnil){ |
500 |
|
goto T270;} |
501 |
|
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
502 |
|
{object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
503 |
|
VMR9(V83)} |
504 |
|
goto T270; |
505 |
|
T270:; |
506 |
|
if((symbol_value(VV[28]))==(VV[29])){ |
507 |
|
goto T274;} |
508 |
|
princ_str("\n ",VV[6]); |
509 |
|
(void)((*(LnkLI61))()); |
510 |
|
goto T274; |
511 |
|
T274:; |
512 |
|
V84= make_cons(VV[30],car((V78))); |
513 |
|
{object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84)); |
514 |
|
VMR9(V85)}} |
515 |
|
base[0]=base[0]; |
516 |
|
return Cnil; |
517 |
|
} |
518 |
|
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
519 |
|
|
520 |
|
static object LI10(V87) |
521 |
|
|
522 |
|
object V87; |
523 |
|
{ VMB10 VMS10 VMV10 |
524 |
|
bds_check; |
525 |
|
goto TTL; |
526 |
|
TTL:; |
527 |
|
{object V88; |
528 |
|
register object V89; |
529 |
|
register object V90; |
530 |
|
object V91; |
531 |
|
object V92; |
532 |
|
object V93; |
533 |
|
object V94; |
534 |
|
object V95; |
535 |
|
object V96; |
536 |
|
V88= (VFUN_NARGS=0,(*(LnkLI48))()); |
537 |
|
V89= Cnil; |
538 |
|
V90= Cnil; |
539 |
|
V91= Cnil; |
540 |
|
V92= Cnil; |
541 |
|
V93= Cnil; |
542 |
|
V94= Cnil; |
543 |
|
V95= Cnil; |
544 |
|
V96= Cnil; |
545 |
|
bds_bind(VV[31],symbol_value(VV[31])); |
546 |
|
if(endp_prop((V87))){ |
547 |
|
goto T288;} |
548 |
|
if(!(endp_prop(cdr((V87))))){ |
549 |
|
goto T287;} |
550 |
|
goto T288; |
551 |
|
T288:; |
552 |
|
V97 = make_fixnum((long)length((V87))); |
553 |
|
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V97)); |
554 |
|
goto T287; |
555 |
|
T287:; |
556 |
|
base[2]= cddr((V87)); |
557 |
|
base[3]= Cnil; |
558 |
|
vs_top=(vs_base=base+2)+2; |
559 |
|
(void) (*Lnk62)(); |
560 |
|
if(vs_base<vs_top){ |
561 |
|
V95= vs_base[0]; |
562 |
|
vs_base++; |
563 |
|
}else{ |
564 |
|
V95= Cnil;} |
565 |
|
if(vs_base<vs_top){ |
566 |
|
V92= vs_base[0]; |
567 |
|
vs_base++; |
568 |
|
}else{ |
569 |
|
V92= Cnil;} |
570 |
|
if(vs_base<vs_top){ |
571 |
|
V94= vs_base[0]; |
572 |
|
vs_base++; |
573 |
|
}else{ |
574 |
|
V94= Cnil;} |
575 |
|
if(vs_base<vs_top){ |
576 |
|
V93= vs_base[0]; |
577 |
|
vs_base++; |
578 |
|
}else{ |
579 |
|
V93= Cnil;} |
580 |
|
if(vs_base<vs_top){ |
581 |
|
V96= vs_base[0]; |
582 |
|
}else{ |
583 |
|
V96= Cnil;} |
584 |
|
vs_top=sup; |
585 |
|
(void)((*(LnkLI63))((V92))); |
586 |
|
{register object V98; |
587 |
|
register object V99; |
588 |
|
V98= car((V87)); |
589 |
|
V99= car((V98)); |
590 |
|
goto T301; |
591 |
|
T301:; |
592 |
|
if(!(endp_prop((V98)))){ |
593 |
|
goto T302;} |
594 |
|
goto T297; |
595 |
|
goto T302; |
596 |
|
T302:; |
597 |
|
{object V100; |
598 |
|
V100= (*(LnkLI64))((V99),(V92),(V93),(V94)); |
599 |
|
V90= make_cons(V99,(V90)); |
600 |
|
V89= make_cons(V100,(V89));} |
601 |
|
V98= cdr((V98)); |
602 |
|
V99= car((V98)); |
603 |
|
goto T301;} |
604 |
|
goto T297; |
605 |
|
T297:; |
606 |
|
V91= (*(LnkLI49))(cadr((V87)),(V88)); |
607 |
|
{register object V103; |
608 |
|
object V104; |
609 |
|
V103= reverse((V89)); |
610 |
|
V104= car((V103)); |
611 |
|
goto T322; |
612 |
|
T322:; |
613 |
|
if(!(endp_prop((V103)))){ |
614 |
|
goto T323;} |
615 |
|
goto T318; |
616 |
|
goto T323; |
617 |
|
T323:; |
618 |
|
(VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind)); |
619 |
|
V103= cdr((V103)); |
620 |
|
V104= car((V103)); |
621 |
|
goto T322;} |
622 |
|
goto T318; |
623 |
|
T318:; |
624 |
|
(void)((*(LnkLI65))((V90),(V94),(V93))); |
625 |
|
V95= (*(LnkLI66))((V96),(V95)); |
626 |
|
(void)((*(LnkLI67))((V88),cadr((V95)))); |
627 |
|
V106= structure_ref(cadr((V95)),VV[22],2); |
628 |
|
(void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106)); |
629 |
|
{register object V107; |
630 |
|
object V108; |
631 |
|
V107= (V89); |
632 |
|
V108= car((V107)); |
633 |
|
goto T343; |
634 |
|
T343:; |
635 |
|
if(!(endp_prop((V107)))){ |
636 |
|
goto T344;} |
637 |
|
goto T339; |
638 |
|
goto T344; |
639 |
|
T344:; |
640 |
|
(void)((*(LnkLI68))((V108))); |
641 |
|
V107= cdr((V107)); |
642 |
|
V108= car((V107)); |
643 |
|
goto T343;} |
644 |
|
goto T339; |
645 |
|
T339:; |
646 |
|
{object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95)); |
647 |
|
bds_unwind1; |
648 |
|
VMR10(V109)}} |
649 |
|
base[0]=base[0]; |
650 |
|
return Cnil; |
651 |
|
} |
652 |
|
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
653 |
|
|
654 |
|
static object LI11(V113,V114,V115) |
655 |
|
|
656 |
|
object V113;object V114;object V115; |
657 |
|
{ VMB11 VMS11 VMV11 |
658 |
|
bds_check; |
659 |
|
goto TTL; |
660 |
|
TTL:; |
661 |
|
{object V116; |
662 |
|
register object V117; |
663 |
|
object V118; |
664 |
|
V116= Cnil; |
665 |
|
V117= Cnil; |
666 |
|
bds_bind(VV[33],symbol_value(VV[33])); |
667 |
|
bds_bind(VV[1],symbol_value(VV[1])); |
668 |
|
bds_bind(VV[34],symbol_value(VV[34])); |
669 |
|
bds_bind(VV[35],symbol_value(VV[35])); |
670 |
|
V118= Cnil; |
671 |
|
(void)((*(LnkLI58))((V113),(V114))); |
672 |
|
{register object V119; |
673 |
|
register object V120; |
674 |
|
V119= (V113); |
675 |
|
V120= car((V119)); |
676 |
|
goto T362; |
677 |
|
T362:; |
678 |
|
if(!(endp_prop((V119)))){ |
679 |
|
goto T363;} |
680 |
|
goto T358; |
681 |
|
goto T363; |
682 |
|
T363:; |
683 |
|
{object V121; |
684 |
|
V121= (*(LnkLI69))((V120)); |
685 |
|
if(((V121))==Cnil){ |
686 |
|
goto T370;} |
687 |
|
{object V122; |
688 |
|
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
689 |
|
V122= symbol_value(VV[5]); |
690 |
|
(void)(structure_set((V120),VV[30],1,(V121))); |
691 |
|
(void)(structure_set((V120),VV[30],4,(V122))); |
692 |
|
princ_str("\n ",VV[6]); |
693 |
|
if(((V116))!=Cnil){ |
694 |
|
goto T377;} |
695 |
|
princ_char(123,VV[6]); |
696 |
|
V116= Ct; |
697 |
|
goto T377; |
698 |
|
T377:; |
699 |
|
base[5]= (V120); |
700 |
|
vs_top=(vs_base=base+5)+1; |
701 |
|
(void) (*Lnk70)(); |
702 |
|
vs_top=sup; |
703 |
|
goto T367;} |
704 |
|
goto T370; |
705 |
|
T370:; |
706 |
|
V123= (*(LnkLI54))(); |
707 |
|
(void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));} |
708 |
|
goto T367; |
709 |
|
T367:; |
710 |
|
V119= cdr((V119)); |
711 |
|
V120= car((V119)); |
712 |
|
goto T362;} |
713 |
|
goto T358; |
714 |
|
T358:; |
715 |
|
bds_bind(VV[2],VV[3]); |
716 |
|
bds_bind(VV[9],Cnil); |
717 |
|
(void)((*(LnkLI44))((V114))); |
718 |
|
V118= (VV[9]->s.s_dbind); |
719 |
|
bds_unwind1; |
720 |
|
bds_unwind1; |
721 |
|
if(symbol_value(VV[27])==Cnil){ |
722 |
|
goto T392;} |
723 |
|
(void)((*(LnkLI59))(Cnil,car((V118)))); |
724 |
|
goto T392; |
725 |
|
T392:; |
726 |
|
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
727 |
|
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
728 |
|
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
729 |
|
{register object V124; |
730 |
|
V124= (V113); |
731 |
|
goto T395; |
732 |
|
T395:; |
733 |
|
if(!(endp_prop((V124)))){ |
734 |
|
goto T396;} |
735 |
|
bds_unwind1; |
736 |
|
bds_unwind1; |
737 |
|
bds_unwind1; |
738 |
|
goto T393; |
739 |
|
goto T396; |
740 |
|
T396:; |
741 |
|
{object V125; |
742 |
|
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
743 |
|
V125= make_cons(symbol_value(VV[36]),Cnil); |
744 |
|
V117= make_cons((V125),(V117));} |
745 |
|
princ_str("\n if(vs_base>=vs_top){",VV[6]); |
746 |
|
(void)((*(LnkLI61))()); |
747 |
|
if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117))); |
748 |
|
(car((V117)))->c.c_cdr = Ct; |
749 |
|
(void)(car((V117))); |
750 |
|
princ_str("goto T",VV[6]); |
751 |
|
(void)((*(LnkLI46))(car(car((V117))))); |
752 |
|
princ_char(59,VV[6]); |
753 |
|
princ_char(125,VV[6]); |
754 |
|
(void)((*(LnkLI71))(car((V124)),VV[37])); |
755 |
|
if(endp_prop(cdr((V124)))){ |
756 |
|
goto T415;} |
757 |
|
princ_str("\n vs_base++;",VV[6]); |
758 |
|
goto T415; |
759 |
|
T415:; |
760 |
|
V124= cdr((V124)); |
761 |
|
goto T395;} |
762 |
|
goto T393; |
763 |
|
T393:; |
764 |
|
princ_str("\n ",VV[6]); |
765 |
|
(void)((*(LnkLI61))()); |
766 |
|
{object V126; |
767 |
|
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
768 |
|
V126= make_cons(symbol_value(VV[36]),Cnil); |
769 |
|
princ_str("\n ",VV[6]); |
770 |
|
if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126)); |
771 |
|
((V126))->c.c_cdr = Ct; |
772 |
|
princ_str("goto T",VV[6]); |
773 |
|
(void)((*(LnkLI46))(car((V126)))); |
774 |
|
princ_char(59,VV[6]); |
775 |
|
V117= reverse((V117)); |
776 |
|
{register object V127; |
777 |
|
object V128; |
778 |
|
V127= (V113); |
779 |
|
V128= car((V127)); |
780 |
|
goto T439; |
781 |
|
T439:; |
782 |
|
if(!(endp_prop((V127)))){ |
783 |
|
goto T440;} |
784 |
|
goto T435; |
785 |
|
goto T440; |
786 |
|
T440:; |
787 |
|
if((cdr(car((V117))))==Cnil){ |
788 |
|
goto T444;} |
789 |
|
princ_str("\n goto T",VV[6]); |
790 |
|
(void)((*(LnkLI46))(car(car((V117))))); |
791 |
|
princ_char(59,VV[6]); |
792 |
|
princ_str("\nT",VV[6]); |
793 |
|
(void)((*(LnkLI46))(car(car((V117))))); |
794 |
|
princ_str(":;",VV[6]); |
795 |
|
goto T444; |
796 |
|
T444:; |
797 |
|
{object V129; |
798 |
|
V129= car((V117)); |
799 |
|
V117= cdr((V117));} |
800 |
|
(void)((*(LnkLI71))((V128),Cnil)); |
801 |
|
V127= cdr((V127)); |
802 |
|
V128= car((V127)); |
803 |
|
goto T439;} |
804 |
|
goto T435; |
805 |
|
T435:; |
806 |
|
if((cdr((V126)))==Cnil){ |
807 |
|
goto T424;} |
808 |
|
princ_str("\n goto T",VV[6]); |
809 |
|
(void)((*(LnkLI46))(car((V126)))); |
810 |
|
princ_char(59,VV[6]); |
811 |
|
princ_str("\nT",VV[6]); |
812 |
|
(void)((*(LnkLI46))(car((V126)))); |
813 |
|
princ_str(":;",VV[6]);} |
814 |
|
goto T424; |
815 |
|
T424:; |
816 |
|
base[4]= (V115); |
817 |
|
vs_top=(vs_base=base+4)+1; |
818 |
|
(void) (*Lnk72)(); |
819 |
|
vs_top=sup; |
820 |
|
if(((V116))==Cnil){ |
821 |
|
goto T476;} |
822 |
|
princ_char(125,VV[6]); |
823 |
|
{object V130 = Cnil; |
824 |
|
bds_unwind1; |
825 |
|
bds_unwind1; |
826 |
|
bds_unwind1; |
827 |
|
bds_unwind1; |
828 |
|
VMR11(V130)} |
829 |
|
goto T476; |
830 |
|
T476:; |
831 |
|
{object V131 = Cnil; |
832 |
|
bds_unwind1; |
833 |
|
bds_unwind1; |
834 |
|
bds_unwind1; |
835 |
|
bds_unwind1; |
836 |
|
VMR11(V131)}} |
837 |
|
base[0]=base[0]; |
838 |
|
return Cnil; |
839 |
|
} |
840 |
|
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */ |
841 |
|
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
842 |
|
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* WT-VAR-DECL */ |
843 |
|
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
844 |
|
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */ |
845 |
|
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
846 |
|
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */ |
847 |
|
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */ |
848 |
|
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */ |
849 |
|
static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)(void *)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */ |
850 |
|
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */ |
851 |
|
static object LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */ |
852 |
|
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* SET-VAR */ |
853 |
|
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
854 |
|
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */ |
855 |
|
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */ |
856 |
|
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */ |
857 |
|
static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */ |
858 |
|
static object LnkTLI54(){return call_proc0(VV[54],(void **)(void *)&LnkLI54);} /* VS-PUSH */ |
859 |
|
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
860 |
|
static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
861 |
|
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */ |
862 |
|
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)(void *)&LnkLI50,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
863 |
|
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */ |
864 |
|
static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)(void *)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
865 |
|
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2EXPR-TOP* */ |
866 |
|
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
867 |
|
static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)(void *)&LnkLI45,first,ap);va_end(ap);return V1;} /* C2FUNCALL */ |
868 |
|
static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */ |
869 |
|
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */ |
870 |
|
static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,2,first,ap);va_end(ap);return V1;} /* C1ARGS */ |
871 |
|
static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* COPY-INFO */ |
872 |
|
static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */ |
873 |
|
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[39],(void **)(void *)&LnkLI39,1,first,ap);va_end(ap);return V1;} /* C1FUNCALL */ |
874 |
|
static object LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)(void *)&LnkLI38,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
875 |
|
|
876 |
|
#ifdef SYSTEM_SPECIAL_INIT |
877 |
|
SYSTEM_SPECIAL_INIT |
878 |
|
#endif |
879 |
|
|