1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmptag.h" |
4 |
|
void init_gcl_cmptag(){do_init(VV);} |
5 |
|
/* local entry for function MAKE-TAG */ |
6 |
|
|
7 |
|
static object LI1(object first,...) |
8 |
|
{ |
9 |
|
va_list ap; |
10 |
|
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
|
{object V1; |
12 |
|
object V2; |
13 |
|
object V3; |
14 |
|
object V4; |
15 |
|
object V5; |
16 |
|
object V6; |
17 |
|
object V7; |
18 |
|
object V8; |
19 |
|
va_start(ap,first); |
20 |
|
narg= narg - 0; |
21 |
|
{ |
22 |
|
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap); |
23 |
|
V1=(Vcs[0]); |
24 |
|
V2=(Vcs[1]); |
25 |
|
V3=(Vcs[2]); |
26 |
|
V4=(Vcs[3]); |
27 |
|
V5=(Vcs[4]); |
28 |
|
V6=(Vcs[5]); |
29 |
|
V7=(Vcs[6]); |
30 |
|
V8=(Vcs[7]); |
31 |
|
base[0]= VV[0]; |
32 |
|
base[1]= (V1); |
33 |
|
base[2]= (V2); |
34 |
|
base[3]= (V3); |
35 |
|
base[4]= (V4); |
36 |
|
base[5]= (V5); |
37 |
|
base[6]= (V6); |
38 |
|
base[7]= (V7); |
39 |
|
base[8]= (V8); |
40 |
|
vs_top=(vs_base=base+0)+9; |
41 |
|
siLmake_structure(); |
42 |
|
vs_top=sup; |
43 |
|
{object V9 = vs_base[0]; |
44 |
|
VMR1(V9)} |
45 |
|
va_end(ap); |
46 |
|
base[0]=base[0]; |
47 |
|
return Cnil;} |
48 |
|
}} |
49 |
|
/* local entry for function JUMPS-TO-P */ |
50 |
|
|
51 |
|
static object LI2(V12,V13) |
52 |
|
|
53 |
|
register object V12;object V13; |
54 |
|
{ VMB2 VMS2 VMV2 |
55 |
|
goto TTL; |
56 |
|
TTL:; |
57 |
|
{object V14; |
58 |
|
V14= Cnil; |
59 |
|
if(!(type_of((V12))!=t_cons)){ |
60 |
|
goto T12;} |
61 |
|
{object V15 = Cnil; |
62 |
|
VMR2(V15)} |
63 |
|
goto T12; |
64 |
|
T12:; |
65 |
|
{object V16; |
66 |
|
if((car((V12)))==(VV[1])){ |
67 |
|
goto T15;} |
68 |
|
V16= Cnil; |
69 |
|
goto T14; |
70 |
|
goto T15; |
71 |
|
T15:; |
72 |
|
V14= cadddr(cdr((V12))); |
73 |
|
base[0]= (V14); |
74 |
|
base[1]= VV[0]; |
75 |
|
vs_top=(vs_base=base+0)+2; |
76 |
|
(void) (*Lnk45)(); |
77 |
|
vs_top=sup; |
78 |
|
if((vs_base[0])!=Cnil){ |
79 |
|
goto T17;} |
80 |
|
V16= Cnil; |
81 |
|
goto T14; |
82 |
|
goto T17; |
83 |
|
T17:; |
84 |
|
V17= structure_ref((V14),VV[0],0); |
85 |
|
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
86 |
|
goto T14; |
87 |
|
T14:; |
88 |
|
if(((V16))==Cnil){ |
89 |
|
goto T23;} |
90 |
|
{object V18 = (V16); |
91 |
|
VMR2(V18)} |
92 |
|
goto T23; |
93 |
|
T23:;{object V19; |
94 |
|
V19= (*(LnkLI46))(car((V12)),(V13)); |
95 |
|
if(V19==Cnil)goto T25; |
96 |
|
{object V20 = V19; |
97 |
|
VMR2(V20)} |
98 |
|
goto T25; |
99 |
|
T25:;} |
100 |
|
V12= cdr((V12)); |
101 |
|
goto TTL;}} |
102 |
|
base[0]=base[0]; |
103 |
|
return Cnil; |
104 |
|
} |
105 |
|
/* local entry for function ADD-REG1 */ |
106 |
|
|
107 |
|
static object LI3(V22) |
108 |
|
|
109 |
|
register object V22; |
110 |
|
{ VMB3 VMS3 VMV3 |
111 |
|
goto TTL; |
112 |
|
TTL:; |
113 |
|
if(!(type_of((V22))!=t_cons)){ |
114 |
|
goto T31;} |
115 |
|
base[0]= (V22); |
116 |
|
base[1]= VV[2]; |
117 |
|
vs_top=(vs_base=base+0)+2; |
118 |
|
(void) (*Lnk45)(); |
119 |
|
vs_top=sup; |
120 |
|
if((vs_base[0])==Cnil){ |
121 |
|
goto T34;} |
122 |
|
{long V23= fix(structure_ref((V22),VV[2],6)); |
123 |
|
V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
124 |
|
{object V25 = structure_set((V22),VV[2],6,V24); |
125 |
|
VMR3(V25)}} |
126 |
|
goto T34; |
127 |
|
T34:; |
128 |
|
{object V26 = Cnil; |
129 |
|
VMR3(V26)} |
130 |
|
goto T31; |
131 |
|
T31:; |
132 |
|
(void)((*(LnkLI47))(car((V22)))); |
133 |
|
V22= cdr((V22)); |
134 |
|
goto TTL; |
135 |
|
base[0]=base[0]; |
136 |
|
return Cnil; |
137 |
|
} |
138 |
|
/* local entry for function ADD-LOOP-REGISTERS */ |
139 |
|
|
140 |
|
static object LI4(V28) |
141 |
|
|
142 |
|
object V28; |
143 |
|
{ VMB4 VMS4 VMV4 |
144 |
|
goto TTL; |
145 |
|
TTL:; |
146 |
|
{register object V29; |
147 |
|
register object V30; |
148 |
|
register object V31; |
149 |
|
V29= (V28); |
150 |
|
V30= Cnil; |
151 |
|
V31= Cnil; |
152 |
|
goto T42; |
153 |
|
T42:; |
154 |
|
if(((V29))!=Cnil){ |
155 |
|
goto T43;} |
156 |
|
{register object V32; |
157 |
|
V32= (V31); |
158 |
|
goto T47; |
159 |
|
T47:; |
160 |
|
if(!(((V32))==((V30)))){ |
161 |
|
goto T48;} |
162 |
|
{object V33 = (*(LnkLI47))(car((V32))); |
163 |
|
VMR4(V33)} |
164 |
|
goto T48; |
165 |
|
T48:; |
166 |
|
(void)((*(LnkLI47))(car((V32)))); |
167 |
|
V32= cdr((V32)); |
168 |
|
goto T47;} |
169 |
|
goto T43; |
170 |
|
T43:; |
171 |
|
base[0]= car((V29)); |
172 |
|
base[1]= VV[0]; |
173 |
|
vs_top=(vs_base=base+0)+2; |
174 |
|
(void) (*Lnk45)(); |
175 |
|
vs_top=sup; |
176 |
|
if((vs_base[0])==Cnil){ |
177 |
|
goto T57;} |
178 |
|
if((V31)!=Cnil){ |
179 |
|
goto T62;} |
180 |
|
V31= (V29); |
181 |
|
goto T62; |
182 |
|
T62:; |
183 |
|
{register object V34; |
184 |
|
register object V35; |
185 |
|
V34= cdr((V29)); |
186 |
|
V35= structure_ref(car((V29)),VV[0],0); |
187 |
|
goto T67; |
188 |
|
T67:; |
189 |
|
if(((V34))!=Cnil){ |
190 |
|
goto T68;} |
191 |
|
goto T57; |
192 |
|
goto T68; |
193 |
|
T68:; |
194 |
|
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
195 |
|
goto T72;} |
196 |
|
V30= (V34); |
197 |
|
goto T72; |
198 |
|
T72:; |
199 |
|
V34= cdr((V34)); |
200 |
|
goto T67;} |
201 |
|
goto T57; |
202 |
|
T57:; |
203 |
|
V29= cdr((V29)); |
204 |
|
goto T42;} |
205 |
|
base[0]=base[0]; |
206 |
|
return Cnil; |
207 |
|
} |
208 |
|
/* local entry for function C1TAGBODY */ |
209 |
|
|
210 |
|
static object LI5(V37) |
211 |
|
|
212 |
|
object V37; |
213 |
|
{ VMB5 VMS5 VMV5 |
214 |
|
bds_check; |
215 |
|
goto TTL; |
216 |
|
TTL:; |
217 |
|
{register object V38; |
218 |
|
bds_bind(VV[4],symbol_value(VV[4])); |
219 |
|
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
220 |
|
{object V39; |
221 |
|
object V40= (V37); |
222 |
|
if(endp(V40)){ |
223 |
|
V37= Cnil; |
224 |
|
goto T84;} |
225 |
|
base[2]=V39=MMcons(Cnil,Cnil); |
226 |
|
goto T85; |
227 |
|
T85:; |
228 |
|
if(type_of((V40->c.c_car))==t_symbol){ |
229 |
|
goto T87;} |
230 |
|
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
231 |
|
goto T88;} |
232 |
|
goto T87; |
233 |
|
T87:; |
234 |
|
{object V42; |
235 |
|
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
236 |
|
(VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind)); |
237 |
|
(V39->c.c_car)= (V42); |
238 |
|
goto T86;} |
239 |
|
goto T88; |
240 |
|
T88:; |
241 |
|
(V39->c.c_car)= (V40->c.c_car); |
242 |
|
goto T86; |
243 |
|
T86:; |
244 |
|
V40=MMcdr(V40); |
245 |
|
if(endp(V40)){ |
246 |
|
V37= base[2]; |
247 |
|
goto T84;} |
248 |
|
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
249 |
|
goto T85;} |
250 |
|
goto T84; |
251 |
|
T84:; |
252 |
|
{object V44; |
253 |
|
object V45= (V37); |
254 |
|
if(endp(V45)){ |
255 |
|
V37= Cnil; |
256 |
|
goto T96;} |
257 |
|
base[2]=V44=MMcons(Cnil,Cnil); |
258 |
|
goto T97; |
259 |
|
T97:; |
260 |
|
base[3]= (V45->c.c_car); |
261 |
|
base[4]= VV[0]; |
262 |
|
vs_top=(vs_base=base+3)+2; |
263 |
|
(void) (*Lnk45)(); |
264 |
|
vs_top=sup; |
265 |
|
if((vs_base[0])==Cnil){ |
266 |
|
goto T100;} |
267 |
|
(V44->c.c_car)= (V45->c.c_car); |
268 |
|
goto T98; |
269 |
|
goto T100; |
270 |
|
T100:; |
271 |
|
(V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38)); |
272 |
|
goto T98; |
273 |
|
T98:; |
274 |
|
V45=MMcdr(V45); |
275 |
|
if(endp(V45)){ |
276 |
|
V37= base[2]; |
277 |
|
goto T96;} |
278 |
|
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
279 |
|
goto T97;} |
280 |
|
goto T96; |
281 |
|
T96:; |
282 |
|
{register object V47; |
283 |
|
register object V48; |
284 |
|
register object V49; |
285 |
|
register object V50; |
286 |
|
register object V51; |
287 |
|
V47= (V37); |
288 |
|
V48= Cnil; |
289 |
|
V49= Cnil; |
290 |
|
V50= Cnil; |
291 |
|
V51= Cnil; |
292 |
|
goto T105; |
293 |
|
T105:; |
294 |
|
if(!(endp_prop((V47)))){ |
295 |
|
goto T106;} |
296 |
|
if(((V51))!=Cnil){ |
297 |
|
goto T109;} |
298 |
|
if(((V50))!=Cnil){ |
299 |
|
goto T109;} |
300 |
|
if(((V49))==Cnil){ |
301 |
|
goto T110;} |
302 |
|
goto T109; |
303 |
|
T109:; |
304 |
|
V48= reverse((V48)); |
305 |
|
if(((V50))!=Cnil){ |
306 |
|
goto T119;} |
307 |
|
if(((V51))==Cnil){ |
308 |
|
goto T120;} |
309 |
|
goto T119; |
310 |
|
T119:; |
311 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
312 |
|
goto T118; |
313 |
|
goto T120; |
314 |
|
T120:; |
315 |
|
(void)((*(LnkLI51))((V48))); |
316 |
|
goto T118; |
317 |
|
T118:; |
318 |
|
{object V52 = list(5,VV[10],(V38),(V50),(V51),(V48)); |
319 |
|
bds_unwind1; |
320 |
|
VMR5(V52)} |
321 |
|
goto T110; |
322 |
|
T110:; |
323 |
|
V53= (*(LnkLI52))(); |
324 |
|
V54= make_cons(/* INLINE-ARGS */V53,(V48)); |
325 |
|
{object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54)); |
326 |
|
bds_unwind1; |
327 |
|
VMR5(V55)} |
328 |
|
goto T106; |
329 |
|
T106:; |
330 |
|
base[2]= car((V47)); |
331 |
|
base[3]= VV[0]; |
332 |
|
vs_top=(vs_base=base+2)+2; |
333 |
|
(void) (*Lnk45)(); |
334 |
|
vs_top=sup; |
335 |
|
if((vs_base[0])==Cnil){ |
336 |
|
goto T128;} |
337 |
|
if((structure_ref(car((V47)),VV[0],3))==Cnil){ |
338 |
|
goto T133;} |
339 |
|
{object V56; |
340 |
|
V56= car((V47)); |
341 |
|
V48= make_cons((V56),(V48));} |
342 |
|
V57= car((V47)); |
343 |
|
V58= structure_ref(car((V47)),VV[0],0); |
344 |
|
V59= (*(LnkLI53))(/* INLINE-ARGS */V58); |
345 |
|
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59)); |
346 |
|
V51= Ct; |
347 |
|
goto T126; |
348 |
|
goto T133; |
349 |
|
T133:; |
350 |
|
if((structure_ref(car((V47)),VV[0],2))==Cnil){ |
351 |
|
goto T141;} |
352 |
|
{object V60; |
353 |
|
V60= car((V47)); |
354 |
|
V48= make_cons((V60),(V48));} |
355 |
|
V61= car((V47)); |
356 |
|
V62= structure_ref(car((V47)),VV[0],0); |
357 |
|
V63= (*(LnkLI53))(/* INLINE-ARGS */V62); |
358 |
|
(void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63)); |
359 |
|
V50= Ct; |
360 |
|
goto T126; |
361 |
|
goto T141; |
362 |
|
T141:; |
363 |
|
if((structure_ref(car((V47)),VV[0],1))==Cnil){ |
364 |
|
goto T126;} |
365 |
|
{object V64; |
366 |
|
V64= car((V47)); |
367 |
|
V48= make_cons((V64),(V48));} |
368 |
|
V49= Ct; |
369 |
|
goto T126; |
370 |
|
goto T128; |
371 |
|
T128:; |
372 |
|
{object V65; |
373 |
|
V65= car((V47)); |
374 |
|
V48= make_cons((V65),(V48));} |
375 |
|
goto T126; |
376 |
|
T126:; |
377 |
|
V47= cdr((V47)); |
378 |
|
goto T105;}} |
379 |
|
base[0]=base[0]; |
380 |
|
return Cnil; |
381 |
|
} |
382 |
|
/* local entry for function C2TAGBODY */ |
383 |
|
|
384 |
|
static object LI6(V69,V70,V71) |
385 |
|
|
386 |
|
object V69;object V70;object V71; |
387 |
|
{ VMB6 VMS6 VMV6 |
388 |
|
goto TTL; |
389 |
|
TTL:; |
390 |
|
if(((V70))==Cnil){ |
391 |
|
goto T160;} |
392 |
|
{object V72 = (*(LnkLI54))((V71)); |
393 |
|
VMR6(V72)} |
394 |
|
goto T160; |
395 |
|
T160:; |
396 |
|
if(((V69))==Cnil){ |
397 |
|
goto T163;} |
398 |
|
{object V73 = (*(LnkLI55))((V71)); |
399 |
|
VMR6(V73)} |
400 |
|
goto T163; |
401 |
|
T163:; |
402 |
|
{object V74 = (*(LnkLI56))((V71)); |
403 |
|
VMR6(V74)} |
404 |
|
return Cnil; |
405 |
|
} |
406 |
|
/* local entry for function C2TAGBODY-LOCAL */ |
407 |
|
|
408 |
|
static object LI7(V76) |
409 |
|
|
410 |
|
object V76; |
411 |
|
{ VMB7 VMS7 VMV7 |
412 |
|
bds_check; |
413 |
|
goto TTL; |
414 |
|
TTL:; |
415 |
|
{register object V77; |
416 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
417 |
|
V77= make_cons(symbol_value(VV[12]),Cnil); |
418 |
|
{register object V78; |
419 |
|
register object V79; |
420 |
|
V78= (V76); |
421 |
|
V79= car((V78)); |
422 |
|
goto T171; |
423 |
|
T171:; |
424 |
|
if(!(endp_prop((V78)))){ |
425 |
|
goto T172;} |
426 |
|
goto T167; |
427 |
|
goto T172; |
428 |
|
T172:; |
429 |
|
base[2]= (V79); |
430 |
|
base[3]= VV[0]; |
431 |
|
vs_top=(vs_base=base+2)+2; |
432 |
|
(void) (*Lnk45)(); |
433 |
|
vs_top=sup; |
434 |
|
if((vs_base[0])==Cnil){ |
435 |
|
goto T176;} |
436 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
437 |
|
V80= make_cons(symbol_value(VV[12]),Ct); |
438 |
|
(void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80)); |
439 |
|
(void)(structure_set((V79),VV[0],5,(V77))); |
440 |
|
goto T176; |
441 |
|
T176:; |
442 |
|
V78= cdr((V78)); |
443 |
|
V79= car((V78)); |
444 |
|
goto T171;} |
445 |
|
goto T167; |
446 |
|
T167:; |
447 |
|
base[1]= make_cons((V77),symbol_value(VV[13])); |
448 |
|
bds_bind(VV[13],base[1]); |
449 |
|
{object V81 = (*(LnkLI57))((V76)); |
450 |
|
bds_unwind1; |
451 |
|
VMR7(V81)}} |
452 |
|
base[0]=base[0]; |
453 |
|
return Cnil; |
454 |
|
} |
455 |
|
/* local entry for function C2TAGBODY-BODY */ |
456 |
|
|
457 |
|
static object LI8(V83) |
458 |
|
|
459 |
|
object V83; |
460 |
|
{ VMB8 VMS8 VMV8 |
461 |
|
bds_check; |
462 |
|
goto TTL; |
463 |
|
TTL:; |
464 |
|
{register object V84; |
465 |
|
register object V85; |
466 |
|
V84= (V83); |
467 |
|
V85= Cnil; |
468 |
|
goto T190; |
469 |
|
T190:; |
470 |
|
if(!(endp_prop(cdr((V84))))){ |
471 |
|
goto T191;} |
472 |
|
if(((V85))==Cnil){ |
473 |
|
goto T195;} |
474 |
|
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
475 |
|
VMR8(V86)} |
476 |
|
goto T195; |
477 |
|
T195:; |
478 |
|
base[0]= car((V84)); |
479 |
|
base[1]= VV[0]; |
480 |
|
vs_top=(vs_base=base+0)+2; |
481 |
|
(void) (*Lnk45)(); |
482 |
|
vs_top=sup; |
483 |
|
if((vs_base[0])==Cnil){ |
484 |
|
goto T198;} |
485 |
|
V87= structure_ref(car((V84)),VV[0],7); |
486 |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V87)); |
487 |
|
V88= structure_ref(car((V84)),VV[0],4); |
488 |
|
if((cdr(/* INLINE-ARGS */V88))==Cnil){ |
489 |
|
goto T203;} |
490 |
|
princ_str("\n goto T",VV[14]); |
491 |
|
V89= structure_ref(car((V84)),VV[0],4); |
492 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89))); |
493 |
|
princ_char(59,VV[14]); |
494 |
|
princ_str("\nT",VV[14]); |
495 |
|
V90= structure_ref(car((V84)),VV[0],4); |
496 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
497 |
|
princ_str(":;",VV[14]); |
498 |
|
goto T203; |
499 |
|
T203:; |
500 |
|
{object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
501 |
|
VMR8(V91)} |
502 |
|
goto T198; |
503 |
|
T198:; |
504 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
505 |
|
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
506 |
|
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
507 |
|
bds_bind(VV[16],VV[17]); |
508 |
|
base[3]= car((V84)); |
509 |
|
vs_top=(vs_base=base+3)+1; |
510 |
|
(void) (*Lnk61)(); |
511 |
|
vs_top=sup; |
512 |
|
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
513 |
|
bds_unwind1; |
514 |
|
bds_unwind1; |
515 |
|
bds_unwind1; |
516 |
|
goto T213;} |
517 |
|
princ_str("\n goto T",VV[14]); |
518 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
519 |
|
princ_char(59,VV[14]); |
520 |
|
princ_str("\nT",VV[14]); |
521 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
522 |
|
princ_str(":;",VV[14]); |
523 |
|
bds_unwind1; |
524 |
|
bds_unwind1; |
525 |
|
bds_unwind1; |
526 |
|
goto T213; |
527 |
|
T213:; |
528 |
|
if((caar((V84)))==(VV[1])){ |
529 |
|
goto T229;} |
530 |
|
{object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
531 |
|
VMR8(V92)} |
532 |
|
goto T229; |
533 |
|
T229:; |
534 |
|
{object V93 = Cnil; |
535 |
|
VMR8(V93)} |
536 |
|
goto T191; |
537 |
|
T191:; |
538 |
|
if(((V85))==Cnil){ |
539 |
|
goto T234;} |
540 |
|
V85= Cnil; |
541 |
|
goto T232; |
542 |
|
goto T234; |
543 |
|
T234:; |
544 |
|
base[0]= car((V84)); |
545 |
|
base[1]= VV[0]; |
546 |
|
vs_top=(vs_base=base+0)+2; |
547 |
|
(void) (*Lnk45)(); |
548 |
|
vs_top=sup; |
549 |
|
if((vs_base[0])==Cnil){ |
550 |
|
goto T238;} |
551 |
|
V94= structure_ref(car((V84)),VV[0],7); |
552 |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V94)); |
553 |
|
V95= structure_ref(car((V84)),VV[0],4); |
554 |
|
if((cdr(/* INLINE-ARGS */V95))==Cnil){ |
555 |
|
goto T232;} |
556 |
|
princ_str("\n goto T",VV[14]); |
557 |
|
V96= structure_ref(car((V84)),VV[0],4); |
558 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V96))); |
559 |
|
princ_char(59,VV[14]); |
560 |
|
princ_str("\nT",VV[14]); |
561 |
|
V97= structure_ref(car((V84)),VV[0],4); |
562 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V97))); |
563 |
|
princ_str(":;",VV[14]); |
564 |
|
goto T232; |
565 |
|
goto T238; |
566 |
|
T238:; |
567 |
|
base[3]= cadr((V84)); |
568 |
|
base[4]= VV[0]; |
569 |
|
vs_top=(vs_base=base+3)+2; |
570 |
|
(void) (*Lnk45)(); |
571 |
|
vs_top=sup; |
572 |
|
if((vs_base[0])==Cnil){ |
573 |
|
goto T254;} |
574 |
|
V85= Ct; |
575 |
|
bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4)); |
576 |
|
goto T252; |
577 |
|
goto T254; |
578 |
|
T254:; |
579 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
580 |
|
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
581 |
|
goto T252; |
582 |
|
T252:; |
583 |
|
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
584 |
|
bds_bind(VV[16],VV[17]); |
585 |
|
base[3]= car((V84)); |
586 |
|
vs_top=(vs_base=base+3)+1; |
587 |
|
(void) (*Lnk61)(); |
588 |
|
vs_top=sup; |
589 |
|
base[3]= cadr((V84)); |
590 |
|
base[4]= VV[0]; |
591 |
|
vs_top=(vs_base=base+3)+2; |
592 |
|
(void) (*Lnk45)(); |
593 |
|
vs_top=sup; |
594 |
|
if((vs_base[0])!=Cnil){ |
595 |
|
goto T265;} |
596 |
|
goto T264; |
597 |
|
goto T265; |
598 |
|
T265:; |
599 |
|
V98= structure_ref(cadr((V84)),VV[0],7); |
600 |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V98)); |
601 |
|
goto T264; |
602 |
|
T264:; |
603 |
|
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
604 |
|
bds_unwind1; |
605 |
|
bds_unwind1; |
606 |
|
bds_unwind1; |
607 |
|
goto T232;} |
608 |
|
princ_str("\n goto T",VV[14]); |
609 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
610 |
|
princ_char(59,VV[14]); |
611 |
|
princ_str("\nT",VV[14]); |
612 |
|
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
613 |
|
princ_str(":;",VV[14]); |
614 |
|
bds_unwind1; |
615 |
|
bds_unwind1; |
616 |
|
bds_unwind1; |
617 |
|
goto T232; |
618 |
|
T232:; |
619 |
|
V84= cdr((V84)); |
620 |
|
goto T190;} |
621 |
|
base[0]=base[0]; |
622 |
|
return Cnil; |
623 |
|
} |
624 |
|
/* local entry for function C2TAGBODY-CLB */ |
625 |
|
|
626 |
|
static object LI9(V100) |
627 |
|
|
628 |
|
object V100; |
629 |
|
{ VMB9 VMS9 VMV9 |
630 |
|
bds_check; |
631 |
|
goto TTL; |
632 |
|
TTL:; |
633 |
|
{register object V101; |
634 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
635 |
|
V101= make_cons(symbol_value(VV[12]),Cnil); |
636 |
|
bds_bind(VV[18],symbol_value(VV[18])); |
637 |
|
{register object V102; |
638 |
|
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
639 |
|
V102= (*(LnkLI62))(); |
640 |
|
bds_bind(VV[13],base[2]); |
641 |
|
princ_str("\n ",VV[14]); |
642 |
|
(void)((*(LnkLI63))((V102))); |
643 |
|
princ_str("=alloc_frame_id();",VV[14]); |
644 |
|
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
645 |
|
(void)((*(LnkLI63))((V102))); |
646 |
|
princ_str(");",VV[14]); |
647 |
|
princ_str("\n if(nlj_active){",VV[14]); |
648 |
|
princ_str("\n nlj_active=FALSE;",VV[14]); |
649 |
|
{register object V103; |
650 |
|
register object V104; |
651 |
|
V103= (V100); |
652 |
|
V104= car((V103)); |
653 |
|
goto T302; |
654 |
|
T302:; |
655 |
|
if(!(endp_prop((V103)))){ |
656 |
|
goto T303;} |
657 |
|
goto T298; |
658 |
|
goto T303; |
659 |
|
T303:; |
660 |
|
base[4]= (V104); |
661 |
|
base[5]= VV[0]; |
662 |
|
vs_top=(vs_base=base+4)+2; |
663 |
|
(void) (*Lnk45)(); |
664 |
|
vs_top=sup; |
665 |
|
if((vs_base[0])==Cnil){ |
666 |
|
goto T307;} |
667 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
668 |
|
V105= make_cons(symbol_value(VV[12]),Ct); |
669 |
|
(void)(structure_set((V104),VV[0],4,/* INLINE-ARGS */V105)); |
670 |
|
(void)(structure_set((V104),VV[0],5,(V101))); |
671 |
|
if((structure_ref((V104),VV[0],2))==Cnil){ |
672 |
|
goto T307;} |
673 |
|
(void)(structure_set((V104),VV[0],2,(V102))); |
674 |
|
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
675 |
|
V106= structure_ref((V104),VV[0],6); |
676 |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V106)); |
677 |
|
princ_str("]))",VV[14]); |
678 |
|
V107= structure_ref((V104),VV[0],4); |
679 |
|
if(type_of(/* INLINE-ARGS */V107)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V107); |
680 |
|
(/* INLINE-ARGS */V107)->c.c_cdr = Ct; |
681 |
|
princ_str("goto T",VV[14]); |
682 |
|
V108= structure_ref((V104),VV[0],4); |
683 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V108))); |
684 |
|
princ_char(59,VV[14]); |
685 |
|
goto T307; |
686 |
|
T307:; |
687 |
|
V103= cdr((V103)); |
688 |
|
V104= car((V103)); |
689 |
|
goto T302;} |
690 |
|
goto T298; |
691 |
|
T298:; |
692 |
|
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
693 |
|
princ_str("\n }",VV[14]); |
694 |
|
base[3]= make_cons((V101),(VV[13]->s.s_dbind)); |
695 |
|
bds_bind(VV[13],base[3]); |
696 |
|
{object V109 = (*(LnkLI57))((V100)); |
697 |
|
bds_unwind1; |
698 |
|
bds_unwind1; |
699 |
|
bds_unwind1; |
700 |
|
VMR9(V109)}}} |
701 |
|
base[0]=base[0]; |
702 |
|
return Cnil; |
703 |
|
} |
704 |
|
/* local entry for function C2TAGBODY-CCB */ |
705 |
|
|
706 |
|
static object LI10(V111) |
707 |
|
|
708 |
|
object V111; |
709 |
|
{ VMB10 VMS10 VMV10 |
710 |
|
bds_check; |
711 |
|
goto TTL; |
712 |
|
TTL:; |
713 |
|
{register object V112; |
714 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
715 |
|
V112= make_cons(symbol_value(VV[12]),Cnil); |
716 |
|
bds_bind(VV[18],symbol_value(VV[18])); |
717 |
|
bds_bind(VV[20],symbol_value(VV[20])); |
718 |
|
bds_bind(VV[21],symbol_value(VV[21])); |
719 |
|
{register object V113; |
720 |
|
register object V114; |
721 |
|
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
722 |
|
V113= (*(LnkLI62))(); |
723 |
|
bds_bind(VV[13],base[4]); |
724 |
|
V114= Cnil; |
725 |
|
princ_str("\n ",VV[14]); |
726 |
|
(void)((*(LnkLI63))((V113))); |
727 |
|
princ_str("=alloc_frame_id();",VV[14]); |
728 |
|
princ_str("\n ",VV[14]); |
729 |
|
(void)((*(LnkLI63))((V113))); |
730 |
|
princ_str("=MMcons(",VV[14]); |
731 |
|
(void)((*(LnkLI63))((V113))); |
732 |
|
princ_char(44,VV[14]); |
733 |
|
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
734 |
|
princ_str(");",VV[14]); |
735 |
|
(void)((*(LnkLI65))((V113))); |
736 |
|
V114= (*(LnkLI66))(); |
737 |
|
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
738 |
|
(void)((*(LnkLI67))((V113))); |
739 |
|
princ_str(");",VV[14]); |
740 |
|
princ_str("\n if(nlj_active){",VV[14]); |
741 |
|
princ_str("\n nlj_active=FALSE;",VV[14]); |
742 |
|
{register object V115; |
743 |
|
register object V116; |
744 |
|
V115= (V111); |
745 |
|
V116= car((V115)); |
746 |
|
goto T370; |
747 |
|
T370:; |
748 |
|
if(!(endp_prop((V115)))){ |
749 |
|
goto T371;} |
750 |
|
goto T366; |
751 |
|
goto T371; |
752 |
|
T371:; |
753 |
|
base[6]= (V116); |
754 |
|
base[7]= VV[0]; |
755 |
|
vs_top=(vs_base=base+6)+2; |
756 |
|
(void) (*Lnk45)(); |
757 |
|
vs_top=sup; |
758 |
|
if((vs_base[0])==Cnil){ |
759 |
|
goto T375;} |
760 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
761 |
|
V117= make_cons(symbol_value(VV[12]),Ct); |
762 |
|
(void)(structure_set((V116),VV[0],4,/* INLINE-ARGS */V117)); |
763 |
|
(void)(structure_set((V116),VV[0],5,(V112))); |
764 |
|
if((structure_ref((V116),VV[0],2))!=Cnil){ |
765 |
|
goto T383;} |
766 |
|
if((structure_ref((V116),VV[0],3))==Cnil){ |
767 |
|
goto T375;} |
768 |
|
goto T383; |
769 |
|
T383:; |
770 |
|
(void)(structure_set((V116),VV[0],2,(V113))); |
771 |
|
if((structure_ref((V116),VV[0],3))==Cnil){ |
772 |
|
goto T388;} |
773 |
|
(void)(structure_set((V116),VV[0],3,(V114))); |
774 |
|
goto T388; |
775 |
|
T388:; |
776 |
|
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
777 |
|
V118= structure_ref((V116),VV[0],6); |
778 |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V118)); |
779 |
|
princ_str("]))",VV[14]); |
780 |
|
V119= structure_ref((V116),VV[0],4); |
781 |
|
if(type_of(/* INLINE-ARGS */V119)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V119); |
782 |
|
(/* INLINE-ARGS */V119)->c.c_cdr = Ct; |
783 |
|
princ_str("goto T",VV[14]); |
784 |
|
V120= structure_ref((V116),VV[0],4); |
785 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V120))); |
786 |
|
princ_char(59,VV[14]); |
787 |
|
goto T375; |
788 |
|
T375:; |
789 |
|
V115= cdr((V115)); |
790 |
|
V116= car((V115)); |
791 |
|
goto T370;} |
792 |
|
goto T366; |
793 |
|
T366:; |
794 |
|
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
795 |
|
princ_str("\n }",VV[14]); |
796 |
|
base[5]= make_cons((V112),(VV[13]->s.s_dbind)); |
797 |
|
bds_bind(VV[13],base[5]); |
798 |
|
{object V121 = (*(LnkLI57))((V111)); |
799 |
|
bds_unwind1; |
800 |
|
bds_unwind1; |
801 |
|
bds_unwind1; |
802 |
|
bds_unwind1; |
803 |
|
bds_unwind1; |
804 |
|
VMR10(V121)}}} |
805 |
|
base[0]=base[0]; |
806 |
|
return Cnil; |
807 |
|
} |
808 |
|
/* local entry for function C1GO */ |
809 |
|
|
810 |
|
static object LI11(V123) |
811 |
|
|
812 |
|
object V123; |
813 |
|
{ VMB11 VMS11 VMV11 |
814 |
|
goto TTL; |
815 |
|
TTL:; |
816 |
|
if(!(endp_prop((V123)))){ |
817 |
|
goto T411;} |
818 |
|
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
819 |
|
goto T409; |
820 |
|
goto T411; |
821 |
|
T411:; |
822 |
|
if(endp_prop(cdr((V123)))){ |
823 |
|
goto T414;} |
824 |
|
V124 = make_fixnum((long)length((V123))); |
825 |
|
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V124)); |
826 |
|
goto T409; |
827 |
|
goto T414; |
828 |
|
T414:; |
829 |
|
if(type_of(car((V123)))==t_symbol){ |
830 |
|
goto T409;} |
831 |
|
{object V125= car((V123)); |
832 |
|
if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){ |
833 |
|
goto T409;}} |
834 |
|
(void)(car((V123))); |
835 |
|
goto T409; |
836 |
|
T409:; |
837 |
|
{register object V126; |
838 |
|
register object V127; |
839 |
|
register object V128; |
840 |
|
register object V129; |
841 |
|
V126= symbol_value(VV[4]); |
842 |
|
V127= car((V123)); |
843 |
|
V128= Cnil; |
844 |
|
V129= Cnil; |
845 |
|
goto T424; |
846 |
|
T424:; |
847 |
|
if(!(endp_prop((V126)))){ |
848 |
|
goto T425;} |
849 |
|
{object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127))); |
850 |
|
VMR11(V130)} |
851 |
|
goto T425; |
852 |
|
T425:; |
853 |
|
{object V131= car((V126)); |
854 |
|
if((V131!= VV[71]))goto T430; |
855 |
|
V128= Ct; |
856 |
|
goto T429; |
857 |
|
goto T430; |
858 |
|
T430:; |
859 |
|
if((V131!= VV[72]))goto T432; |
860 |
|
V129= Ct; |
861 |
|
goto T429; |
862 |
|
goto T432; |
863 |
|
T432:; |
864 |
|
V132= structure_ref(car((V126)),VV[0],0); |
865 |
|
if(!((/* INLINE-ARGS */V132)==((V127)))){ |
866 |
|
goto T429;} |
867 |
|
{register object V133; |
868 |
|
V133= car((V126)); |
869 |
|
if(((V128))==Cnil){ |
870 |
|
goto T439;} |
871 |
|
(void)(structure_set((V133),VV[0],3,Ct)); |
872 |
|
goto T437; |
873 |
|
goto T439; |
874 |
|
T439:; |
875 |
|
if(((V129))==Cnil){ |
876 |
|
goto T442;} |
877 |
|
(void)(structure_set((V133),VV[0],2,Ct)); |
878 |
|
goto T437; |
879 |
|
goto T442; |
880 |
|
T442:; |
881 |
|
(void)(structure_set((V133),VV[0],1,Ct)); |
882 |
|
goto T437; |
883 |
|
T437:; |
884 |
|
{object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133)); |
885 |
|
VMR11(V134)}}} |
886 |
|
goto T429; |
887 |
|
T429:; |
888 |
|
V126= cdr((V126)); |
889 |
|
goto T424;} |
890 |
|
return Cnil; |
891 |
|
} |
892 |
|
/* local entry for function C2GO */ |
893 |
|
|
894 |
|
static object LI12(V138,V139,V140) |
895 |
|
|
896 |
|
object V138;object V139;object V140; |
897 |
|
{ VMB12 VMS12 VMV12 |
898 |
|
goto TTL; |
899 |
|
TTL:; |
900 |
|
if(((V139))==Cnil){ |
901 |
|
goto T448;} |
902 |
|
{object V141 = (*(LnkLI73))((V140)); |
903 |
|
VMR12(V141)} |
904 |
|
goto T448; |
905 |
|
T448:; |
906 |
|
if(((V138))==Cnil){ |
907 |
|
goto T451;} |
908 |
|
{object V142 = (*(LnkLI74))((V140)); |
909 |
|
VMR12(V142)} |
910 |
|
goto T451; |
911 |
|
T451:; |
912 |
|
{object V143 = (*(LnkLI75))((V140)); |
913 |
|
VMR12(V143)} |
914 |
|
return Cnil; |
915 |
|
} |
916 |
|
/* local entry for function C2GO-LOCAL */ |
917 |
|
|
918 |
|
static object LI13(V145) |
919 |
|
|
920 |
|
object V145; |
921 |
|
{ VMB13 VMS13 VMV13 |
922 |
|
goto TTL; |
923 |
|
TTL:; |
924 |
|
V146= structure_ref((V145),VV[0],5); |
925 |
|
(void)((*(LnkLI76))(/* INLINE-ARGS */V146)); |
926 |
|
princ_str("\n ",VV[14]); |
927 |
|
V147= structure_ref((V145),VV[0],4); |
928 |
|
if(type_of(/* INLINE-ARGS */V147)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V147); |
929 |
|
(/* INLINE-ARGS */V147)->c.c_cdr = Ct; |
930 |
|
princ_str("goto T",VV[14]); |
931 |
|
V148= structure_ref((V145),VV[0],4); |
932 |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V148))); |
933 |
|
princ_char(59,VV[14]); |
934 |
|
{object V149 = Cnil; |
935 |
|
VMR13(V149)} |
936 |
|
return Cnil; |
937 |
|
} |
938 |
|
/* local entry for function C2GO-CLB */ |
939 |
|
|
940 |
|
static object LI14(V151) |
941 |
|
|
942 |
|
register object V151; |
943 |
|
{ VMB14 VMS14 VMV14 |
944 |
|
goto TTL; |
945 |
|
TTL:; |
946 |
|
princ_str("\n vs_base=vs_top;",VV[14]); |
947 |
|
princ_str("\n unwind(frs_sch(",VV[14]); |
948 |
|
if((structure_ref((V151),VV[0],3))==Cnil){ |
949 |
|
goto T465;} |
950 |
|
V152= structure_ref((V151),VV[0],2); |
951 |
|
(void)((*(LnkLI67))(/* INLINE-ARGS */V152)); |
952 |
|
goto T463; |
953 |
|
goto T465; |
954 |
|
T465:; |
955 |
|
V153= structure_ref((V151),VV[0],2); |
956 |
|
(void)((*(LnkLI63))(/* INLINE-ARGS */V153)); |
957 |
|
goto T463; |
958 |
|
T463:; |
959 |
|
princ_str("),VV[",VV[14]); |
960 |
|
V154= structure_ref((V151),VV[0],6); |
961 |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V154)); |
962 |
|
princ_str("]);",VV[14]); |
963 |
|
{object V155 = Cnil; |
964 |
|
VMR14(V155)} |
965 |
|
return Cnil; |
966 |
|
} |
967 |
|
/* local entry for function C2GO-CCB */ |
968 |
|
|
969 |
|
static object LI15(V157) |
970 |
|
|
971 |
|
object V157; |
972 |
|
{ VMB15 VMS15 VMV15 |
973 |
|
goto TTL; |
974 |
|
TTL:; |
975 |
|
princ_str("\n {frame_ptr fr;",VV[14]); |
976 |
|
princ_str("\n fr=frs_sch(",VV[14]); |
977 |
|
V158= structure_ref((V157),VV[0],3); |
978 |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V158)); |
979 |
|
princ_str(");",VV[14]); |
980 |
|
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
981 |
|
V159= structure_ref((V157),VV[0],6); |
982 |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V159)); |
983 |
|
princ_str("]);",VV[14]); |
984 |
|
princ_str("\n vs_base=vs_top;",VV[14]); |
985 |
|
princ_str("\n unwind(fr,VV[",VV[14]); |
986 |
|
V160= structure_ref((V157),VV[0],6); |
987 |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V160)); |
988 |
|
princ_str("]);}",VV[14]); |
989 |
|
{object V161 = Cnil; |
990 |
|
VMR15(V161)} |
991 |
|
return Cnil; |
992 |
|
} |
993 |
|
/* local entry for function WT-SWITCH-CASE */ |
994 |
|
|
995 |
|
static object LI16(V163) |
996 |
|
|
997 |
|
register object V163; |
998 |
|
{ VMB16 VMS16 VMV16 |
999 |
|
goto TTL; |
1000 |
|
TTL:; |
1001 |
|
if(((V163))==Cnil){ |
1002 |
|
goto T487;} |
1003 |
|
princ_str("\n ",VV[14]); |
1004 |
|
if(!(type_of((V163))==t_fixnum)){ |
1005 |
|
goto T493;} |
1006 |
|
V164= VV[25]; |
1007 |
|
goto T491; |
1008 |
|
goto T493; |
1009 |
|
T493:; |
1010 |
|
V164= VV[26]; |
1011 |
|
goto T491; |
1012 |
|
T491:; |
1013 |
|
(void)((*(LnkLI60))(V164)); |
1014 |
|
(void)((*(LnkLI60))((V163))); |
1015 |
|
princ_char(58,VV[14]); |
1016 |
|
{object V165 = Cnil; |
1017 |
|
VMR16(V165)} |
1018 |
|
goto T487; |
1019 |
|
T487:; |
1020 |
|
{object V166 = Cnil; |
1021 |
|
VMR16(V166)} |
1022 |
|
return Cnil; |
1023 |
|
} |
1024 |
|
/* local entry for function C1SWITCH */ |
1025 |
|
|
1026 |
|
static object LI17(V168) |
1027 |
|
|
1028 |
|
object V168; |
1029 |
|
{ VMB17 VMS17 VMV17 |
1030 |
|
bds_check; |
1031 |
|
goto TTL; |
1032 |
|
TTL:; |
1033 |
|
bds_bind(VV[4],symbol_value(VV[4])); |
1034 |
|
{object V169; |
1035 |
|
register object V170; |
1036 |
|
object V171; |
1037 |
|
V169= car((V168)); |
1038 |
|
V170= cdr((V168)); |
1039 |
|
V171= (*(LnkLI78))((V169)); |
1040 |
|
base[4]= cadr((V171)); |
1041 |
|
base[5]= VV[27]; |
1042 |
|
vs_top=(vs_base=base+4)+2; |
1043 |
|
(void) (*Lnk45)(); |
1044 |
|
vs_top=sup; |
1045 |
|
if((vs_base[0])==Cnil){ |
1046 |
|
goto T501;} |
1047 |
|
base[4]= structure_ref(cadr((V171)),VV[27],2); |
1048 |
|
base[5]= VV[28]; |
1049 |
|
vs_top=(vs_base=base+4)+2; |
1050 |
|
(void) (*Lnk79)(); |
1051 |
|
vs_top=sup; |
1052 |
|
if((vs_base[0])==Cnil){ |
1053 |
|
goto T501;}{object V172; |
1054 |
|
{register object x= Ct,V173= (V170); |
1055 |
|
while(!endp(V173)) |
1056 |
|
if(eql(x,V173->c.c_car)){ |
1057 |
|
V172= V173; |
1058 |
|
goto T511; |
1059 |
|
}else V173=V173->c.c_cdr; |
1060 |
|
V172= Cnil;} |
1061 |
|
goto T511; |
1062 |
|
T511:; |
1063 |
|
if(V172==Cnil)goto T510; |
1064 |
|
goto T509; |
1065 |
|
goto T510; |
1066 |
|
T510:;} |
1067 |
|
V174= make_cons(Ct,Cnil); |
1068 |
|
V170= append((V170),/* INLINE-ARGS */V174); |
1069 |
|
goto T509; |
1070 |
|
T509:; |
1071 |
|
{object V175; |
1072 |
|
object V176= (V170); |
1073 |
|
if(endp(V176)){ |
1074 |
|
V170= Cnil; |
1075 |
|
goto T514;} |
1076 |
|
base[4]=V175=MMcons(Cnil,Cnil); |
1077 |
|
goto T515; |
1078 |
|
T515:; |
1079 |
|
{register object V177; |
1080 |
|
V177= (V176->c.c_car); |
1081 |
|
if(type_of((V177))==t_symbol){ |
1082 |
|
goto T517;} |
1083 |
|
if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){ |
1084 |
|
goto T518;} |
1085 |
|
goto T517; |
1086 |
|
T517:; |
1087 |
|
{register object V178; |
1088 |
|
V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
1089 |
|
if(!(type_of((V177))==t_fixnum)){ |
1090 |
|
goto T525;} |
1091 |
|
(void)(structure_set((V178),VV[0],1,Ct)); |
1092 |
|
(void)(structure_set((V178),VV[0],7,(V177))); |
1093 |
|
goto T523; |
1094 |
|
goto T525; |
1095 |
|
T525:; |
1096 |
|
if(!((Ct)==((V177)))){ |
1097 |
|
goto T523;} |
1098 |
|
(void)(structure_set((V178),VV[0],1,Ct)); |
1099 |
|
(void)(structure_set((V178),VV[0],7,VV[29])); |
1100 |
|
goto T523; |
1101 |
|
T523:; |
1102 |
|
(V175->c.c_car)= (V178); |
1103 |
|
goto T516;} |
1104 |
|
goto T518; |
1105 |
|
T518:; |
1106 |
|
(V175->c.c_car)= (V177);} |
1107 |
|
goto T516; |
1108 |
|
T516:; |
1109 |
|
V176=MMcdr(V176); |
1110 |
|
if(endp(V176)){ |
1111 |
|
V170= base[4]; |
1112 |
|
goto T514;} |
1113 |
|
V175=MMcdr(V175)=MMcons(Cnil,Cnil); |
1114 |
|
goto T515;} |
1115 |
|
goto T514; |
1116 |
|
T514:; |
1117 |
|
{object V179; |
1118 |
|
V180= append((V170),VV[30]); |
1119 |
|
V179= (*(LnkLI80))(/* INLINE-ARGS */V180); |
1120 |
|
V181= list(3,VV[31],cadr((V179)),(V171)); |
1121 |
|
{object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179))); |
1122 |
|
bds_unwind1; |
1123 |
|
VMR17(V182)}} |
1124 |
|
goto T501; |
1125 |
|
T501:; |
1126 |
|
V183= make_cons(VV[31],(V168)); |
1127 |
|
V184= (*(LnkLI81))(/* INLINE-ARGS */V183); |
1128 |
|
{object V185 = (*(LnkLI78))(/* INLINE-ARGS */V184); |
1129 |
|
bds_unwind1; |
1130 |
|
VMR17(V185)}} |
1131 |
|
base[0]=base[0]; |
1132 |
|
return Cnil; |
1133 |
|
} |
1134 |
|
/* local entry for function C2SWITCH */ |
1135 |
|
|
1136 |
|
static object LI18(V190,V191,V192,V193) |
1137 |
|
|
1138 |
|
object V190;object V191;object V192;object V193; |
1139 |
|
{ VMB18 VMS18 VMV18 |
1140 |
|
bds_check; |
1141 |
|
goto TTL; |
1142 |
|
TTL:; |
1143 |
|
bds_bind(VV[32],small_fixnum(0)); |
1144 |
|
bds_bind(VV[18],symbol_value(VV[18])); |
1145 |
|
{object V194; |
1146 |
|
V195= make_cons((V190),Cnil); |
1147 |
|
V194= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V195,VV[33])); |
1148 |
|
base[2]= VV[34]; |
1149 |
|
base[3]= (V194); |
1150 |
|
vs_top=(vs_base=base+2)+2; |
1151 |
|
(void) (*Lnk83)(); |
1152 |
|
vs_top=sup; |
1153 |
|
if(((V192))==Cnil){ |
1154 |
|
goto T538;} |
1155 |
|
(void)((*(LnkLI54))((V193))); |
1156 |
|
goto T536; |
1157 |
|
goto T538; |
1158 |
|
T538:; |
1159 |
|
if(((V191))==Cnil){ |
1160 |
|
goto T541;} |
1161 |
|
(void)((*(LnkLI55))((V193))); |
1162 |
|
goto T536; |
1163 |
|
goto T541; |
1164 |
|
T541:; |
1165 |
|
(void)((*(LnkLI56))((V193))); |
1166 |
|
goto T536; |
1167 |
|
T536:; |
1168 |
|
princ_char(125,VV[14]); |
1169 |
|
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
1170 |
|
{object V196 = (*(LnkLI84))(); |
1171 |
|
bds_unwind1; |
1172 |
|
bds_unwind1; |
1173 |
|
VMR18(V196)}} |
1174 |
|
base[0]=base[0]; |
1175 |
|
return Cnil; |
1176 |
|
} |
1177 |
|
/* macro definition for SWITCH */ |
1178 |
|
|
1179 |
|
static void L19() |
1180 |
|
{register object *base=vs_base; |
1181 |
|
register object *sup=base+VM19; VC19 |
1182 |
|
vs_reserve(VM19); |
1183 |
|
check_arg(2); |
1184 |
|
vs_top=sup; |
1185 |
|
{object V197=base[0]->c.c_cdr; |
1186 |
|
if(endp(V197))invalid_macro_call(); |
1187 |
|
base[2]= (V197->c.c_car); |
1188 |
|
V197=V197->c.c_cdr; |
1189 |
|
base[3]= V197; |
1190 |
|
base[4]= Cnil;} |
1191 |
|
{register object V198; |
1192 |
|
register object V199; |
1193 |
|
V198= base[3]; |
1194 |
|
V199= car((V198)); |
1195 |
|
goto T551; |
1196 |
|
T551:; |
1197 |
|
if(!(endp_prop((V198)))){ |
1198 |
|
goto T552;} |
1199 |
|
goto T547; |
1200 |
|
goto T552; |
1201 |
|
T552:; |
1202 |
|
if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){ |
1203 |
|
goto T556;} |
1204 |
|
{register object V200; |
1205 |
|
V201= list(3,VV[36],(V199),base[2]); |
1206 |
|
V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil); |
1207 |
|
base[4]= make_cons((V200),base[4]);} |
1208 |
|
goto T556; |
1209 |
|
T556:; |
1210 |
|
V198= cdr((V198)); |
1211 |
|
V199= car((V198)); |
1212 |
|
goto T551;} |
1213 |
|
goto T547; |
1214 |
|
T547:; |
1215 |
|
V202= nreverse(base[4]); |
1216 |
|
base[5]= base[3]; |
1217 |
|
{register object x= Ct,V204= base[3]; |
1218 |
|
while(!endp(V204)) |
1219 |
|
if(eql(x,V204->c.c_car)){ |
1220 |
|
goto T571; |
1221 |
|
}else V204=V204->c.c_cdr; |
1222 |
|
goto T570;} |
1223 |
|
goto T571; |
1224 |
|
T571:; |
1225 |
|
base[6]= Cnil; |
1226 |
|
goto T568; |
1227 |
|
goto T570; |
1228 |
|
T570:; |
1229 |
|
base[6]= VV[38]; |
1230 |
|
goto T568; |
1231 |
|
T568:; |
1232 |
|
base[7]= VV[39]; |
1233 |
|
vs_top=(vs_base=base+5)+3; |
1234 |
|
Lappend(); |
1235 |
|
vs_top=sup; |
1236 |
|
V203= vs_base[0]; |
1237 |
|
V205= make_cons(VV[37],V203); |
1238 |
|
V206= append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V205); |
1239 |
|
base[5]= make_cons(VV[10],/* INLINE-ARGS */V206); |
1240 |
|
vs_top=(vs_base=base+5)+1; |
1241 |
|
return; |
1242 |
|
} |
1243 |
|
/* macro definition for SWITCH-FINISH */ |
1244 |
|
|
1245 |
|
static void L20() |
1246 |
|
{register object *base=vs_base; |
1247 |
|
register object *sup=base+VM20; VC20 |
1248 |
|
vs_reserve(VM20); |
1249 |
|
check_arg(2); |
1250 |
|
vs_top=sup; |
1251 |
|
{object V207=base[0]->c.c_cdr; |
1252 |
|
if(!endp(V207))invalid_macro_call();} |
1253 |
|
base[2]= VV[40]; |
1254 |
|
vs_top=(vs_base=base+2)+1; |
1255 |
|
return; |
1256 |
|
} |
1257 |
|
static object LnkTLI84(){return call_proc0(VV[84],(void **)(void *)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */ |
1258 |
|
static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* WT-INLINE-LOC */ |
1259 |
|
static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
1260 |
|
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */ |
1261 |
|
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* C1TAGBODY */ |
1262 |
|
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SUBTYPEP */ |
1263 |
|
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
1264 |
|
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */ |
1265 |
|
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */ |
1266 |
|
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* C2GO-LOCAL */ |
1267 |
|
static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C2GO-CLB */ |
1268 |
|
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* C2GO-CCB */ |
1269 |
|
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPERR */ |
1270 |
|
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */ |
1271 |
|
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
1272 |
|
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WT-VS* */ |
1273 |
|
static object LnkTLI66(){return call_proc0(VV[66],(void **)(void *)&LnkLI66);} /* CCB-VS-PUSH */ |
1274 |
|
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CLINK */ |
1275 |
|
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[64],(void **)(void *)&LnkLI64,first,ap);va_end(ap);return V1;} /* WT-CLINK */ |
1276 |
|
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;} /* WT-VS */ |
1277 |
|
static object LnkTLI62(){return call_proc0(VV[62],(void **)(void *)&LnkLI62);} /* VS-PUSH */ |
1278 |
|
static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* C2EXPR */ |
1279 |
|
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1280 |
|
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-SWITCH-CASE */ |
1281 |
|
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1282 |
|
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;} /* C2TAGBODY-BODY */ |
1283 |
|
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-LOCAL */ |
1284 |
|
static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CLB */ |
1285 |
|
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CCB */ |
1286 |
|
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
1287 |
|
static object LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* C1NIL */ |
1288 |
|
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;} /* ADD-LOOP-REGISTERS */ |
1289 |
|
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */ |
1290 |
|
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)(void *)&LnkLI49,first,ap);va_end(ap);return V1;} /* MAKE-TAG */ |
1291 |
|
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 */ |
1292 |
|
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,1,first,ap);va_end(ap);return V1;} /* ADD-REG1 */ |
1293 |
|
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,2,first,ap);va_end(ap);return V1;} /* JUMPS-TO-P */ |
1294 |
|
static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* STRUCTURE-SUBTYPE-P */ |
1295 |
|
|
1296 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1297 |
|
SYSTEM_SPECIAL_INIT |
1298 |
|
#endif |
1299 |
|
|