1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpeval.h" |
#include "cmpeval.h" |
4 |
init_cmpeval(){do_init(VV);} |
void init_cmpeval(){do_init(VV);} |
5 |
/* local entry for function C1EXPR* */ |
/* local entry for function C1EXPR* */ |
6 |
|
|
7 |
static object LI1(V3,V4) |
static object LI1(V3,V4) |
8 |
|
|
9 |
register object V3;object V4; |
register object V3;object V4; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
V3= (*(LnkLI123))((V3)); |
V3= (*(LnkLI123))((V3)); |
14 |
(void)((*(LnkLI124))((V4),cadr((V3)))); |
(void)((*(LnkLI124))((V4),cadr((V3)))); |
15 |
{object V5 = (V3); |
{object V5 = (V3); |
16 |
VMR1(V5)} |
VMR1(V5)} |
17 |
|
return Cnil; |
18 |
} |
} |
19 |
/* local entry for function C1EXPR */ |
/* local entry for function C1EXPR */ |
20 |
|
|
22 |
|
|
23 |
VOL object V7; |
VOL object V7; |
24 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
25 |
|
goto TTL; |
26 |
TTL:; |
TTL:; |
27 |
frs_push(FRS_CATCH,VV[0]); |
frs_push(FRS_CATCH,VV[0]); |
28 |
if(nlj_active) |
if(nlj_active) |
39 |
frs_pop(); |
frs_pop(); |
40 |
V7= V8; |
V7= V8; |
41 |
goto T5; |
goto T5; |
42 |
|
goto T11; |
43 |
T11:; |
T11:; |
44 |
if(!(((V7))==(Ct))){ |
if(!(((V7))==(Ct))){ |
45 |
goto T14;} |
goto T14;} |
47 |
frs_pop(); |
frs_pop(); |
48 |
V7= V9; |
V7= V9; |
49 |
goto T5; |
goto T5; |
50 |
|
goto T14; |
51 |
T14:; |
T14:; |
52 |
if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){ |
if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){ |
53 |
goto T17;} |
goto T17;} |
57 |
frs_pop(); |
frs_pop(); |
58 |
V7= V12; |
V7= V12; |
59 |
goto T5; |
goto T5; |
60 |
|
goto T17; |
61 |
T17:; |
T17:; |
62 |
base[0]= (V7); |
base[0]= (V7); |
63 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
76 |
frs_pop(); |
frs_pop(); |
77 |
V7= V14; |
V7= V14; |
78 |
goto T5; |
goto T5; |
79 |
|
goto T25; |
80 |
T25:;} |
T25:;} |
81 |
V15= (*(LnkLI128))((V13)); |
V15= (*(LnkLI128))((V13)); |
82 |
V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15)); |
V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15)); |
84 |
frs_pop(); |
frs_pop(); |
85 |
V7= V17; |
V7= V17; |
86 |
goto T5;} |
goto T5;} |
87 |
|
goto T20; |
88 |
T20:; |
T20:; |
89 |
V18= (*(LnkLI132))((V7)); |
V18= (*(LnkLI132))((V7)); |
90 |
frs_pop(); |
frs_pop(); |
91 |
V7= V18; |
V7= V18; |
92 |
goto T5; |
goto T5; |
93 |
|
goto T8; |
94 |
T8:; |
T8:; |
95 |
if(!(type_of((V7))==t_cons)){ |
if(!(type_of((V7))==t_cons)){ |
96 |
goto T28;} |
goto T28;} |
106 |
frs_pop(); |
frs_pop(); |
107 |
V7= vs_base[0]; |
V7= vs_base[0]; |
108 |
goto T5; |
goto T5; |
109 |
|
goto T32; |
110 |
T32:; |
T32:; |
111 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
112 |
goto T37;} |
goto T37;} |
116 |
frs_pop(); |
frs_pop(); |
117 |
V7= V20; |
V7= V20; |
118 |
goto T5; |
goto T5; |
119 |
|
goto T37; |
120 |
T37:; |
T37:; |
121 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
122 |
goto T42;} |
goto T42;} |
126 |
frs_pop(); |
frs_pop(); |
127 |
V7= V21; |
V7= V21; |
128 |
goto T5; |
goto T5; |
129 |
|
goto T42; |
130 |
T42:; |
T42:; |
131 |
V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19))); |
V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19))); |
132 |
frs_pop(); |
frs_pop(); |
133 |
V7= V22; |
V7= V22; |
134 |
goto T5;} |
goto T5;} |
135 |
|
goto T28; |
136 |
T28:; |
T28:; |
137 |
V23= (*(LnkLI130))((V7),Ct); |
V23= (*(LnkLI130))((V7),Ct); |
138 |
frs_pop(); |
frs_pop(); |
139 |
V7= V23;} |
V7= V23;} |
140 |
|
goto T5; |
141 |
T5:; |
T5:; |
142 |
if(!(((V7))==(VV[8]))){ |
if(!(((V7))==(VV[8]))){ |
143 |
goto T47;} |
goto T47;} |
144 |
{object V24 = (*(LnkLI125))(); |
{object V24 = (*(LnkLI125))(); |
145 |
VMR2(V24)} |
VMR2(V24)} |
146 |
|
goto T47; |
147 |
T47:; |
T47:; |
148 |
{object V25 = (V7); |
{object V25 = (V7); |
149 |
VMR2(V25)} |
VMR2(V25)} |
150 |
|
base[0]=base[0]; |
151 |
|
return Cnil; |
152 |
} |
} |
153 |
/* local entry for function C1SHARP-COMMA */ |
/* local entry for function C1SHARP-COMMA */ |
154 |
|
|
156 |
|
|
157 |
object V27; |
object V27; |
158 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
159 |
|
goto TTL; |
160 |
TTL:; |
TTL:; |
161 |
V28= make_cons(VV[5],(V27)); |
V28= make_cons(VV[5],(V27)); |
162 |
{object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct); |
{object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct); |
163 |
VMR3(V29)} |
VMR3(V29)} |
164 |
|
return Cnil; |
165 |
} |
} |
166 |
/* local entry for function C1DEFINE-STRUCTURE */ |
/* local entry for function C1DEFINE-STRUCTURE */ |
167 |
|
|
170 |
object V31; |
object V31; |
171 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
172 |
bds_check; |
bds_check; |
173 |
|
goto TTL; |
174 |
TTL:; |
TTL:; |
175 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
176 |
base[1]= make_cons(VV[10],(V31)); |
base[1]= make_cons(VV[10],(V31)); |
183 |
{object V33 = Cnil; |
{object V33 = Cnil; |
184 |
bds_unwind1; |
bds_unwind1; |
185 |
VMR4(V33)} |
VMR4(V33)} |
186 |
|
base[0]=base[0]; |
187 |
|
return Cnil; |
188 |
} |
} |
189 |
/* local entry for function C1NIL */ |
/* local entry for function C1NIL */ |
190 |
|
|
191 |
static object LI5() |
static object LI5() |
192 |
|
|
193 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
194 |
|
goto TTL; |
195 |
TTL:; |
TTL:; |
196 |
{object V34 = symbol_value(VV[11]); |
{object V34 = symbol_value(VV[11]); |
197 |
VMR5(V34)} |
VMR5(V34)} |
198 |
|
return Cnil; |
199 |
} |
} |
200 |
/* local entry for function C1T */ |
/* local entry for function C1T */ |
201 |
|
|
202 |
static object LI6() |
static object LI6() |
203 |
|
|
204 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
205 |
|
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
{object V35 = symbol_value(VV[12]); |
{object V35 = symbol_value(VV[12]); |
208 |
VMR6(V35)} |
VMR6(V35)} |
209 |
|
return Cnil; |
210 |
} |
} |
211 |
/* function definition for FLAGS-POS */ |
/* function definition for FLAGS-POS */ |
212 |
|
|
213 |
static L7() |
static void L7() |
214 |
{register object *base=vs_base; |
{register object *base=vs_base; |
215 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
216 |
vs_reserve(VM7); |
vs_reserve(VM7); |
218 |
check_arg(1); |
check_arg(1); |
219 |
V36=(base[0]); |
V36=(base[0]); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
|
goto TTL; |
222 |
TTL:; |
TTL:; |
223 |
{register long V37; |
{register long V37; |
224 |
V37= 0; |
V37= 0; |
226 |
register object V39; |
register object V39; |
227 |
V38= VV[13]; |
V38= VV[13]; |
228 |
V39= car((V38)); |
V39= car((V38)); |
229 |
|
goto T58; |
230 |
T58:; |
T58:; |
231 |
if(!(endp((V38)))){ |
if(!(endp((V38)))){ |
232 |
goto T59;} |
goto T59;} |
233 |
goto T54; |
goto T54; |
234 |
|
goto T59; |
235 |
T59:; |
T59:; |
236 |
{register object x= (V36),V40= (V39); |
{register object x= (V36),V40= (V39); |
237 |
while(!endp(V40)) |
while(!endp(V40)) |
239 |
goto T65; |
goto T65; |
240 |
}else V40=V40->c.c_cdr; |
}else V40=V40->c.c_cdr; |
241 |
goto T63;} |
goto T63;} |
242 |
|
goto T65; |
243 |
T65:; |
T65:; |
244 |
base[2]= make_fixnum(V37); |
base[2]= make_fixnum(V37); |
245 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
246 |
return; |
return; |
247 |
|
goto T63; |
248 |
T63:; |
T63:; |
249 |
V37= (V37)+(1); |
V37= (V37)+(1); |
250 |
V38= cdr((V38)); |
V38= cdr((V38)); |
251 |
V39= car((V38)); |
V39= car((V38)); |
252 |
goto T58;} |
goto T58;} |
253 |
|
goto T54; |
254 |
T54:; |
T54:; |
255 |
base[1]= VV[14]; |
base[1]= VV[14]; |
256 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
260 |
} |
} |
261 |
/* macro definition for FLAG-P */ |
/* macro definition for FLAG-P */ |
262 |
|
|
263 |
static L8() |
static void L8() |
264 |
{register object *base=vs_base; |
{register object *base=vs_base; |
265 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
266 |
vs_reserve(VM8); |
vs_reserve(VM8); |
285 |
} |
} |
286 |
/* function definition for FIX-OPT */ |
/* function definition for FIX-OPT */ |
287 |
|
|
288 |
static L9() |
static void L9() |
289 |
{register object *base=vs_base; |
{register object *base=vs_base; |
290 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
291 |
vs_reserve(VM9); |
vs_reserve(VM9); |
293 |
check_arg(1); |
check_arg(1); |
294 |
V43=(base[0]); |
V43=(base[0]); |
295 |
vs_top=sup; |
vs_top=sup; |
296 |
|
goto TTL; |
297 |
TTL:; |
TTL:; |
298 |
{register object V44; |
{register object V44; |
299 |
V44= cddr((V43)); |
V44= cddr((V43)); |
302 |
if((symbol_value(VV[16]))==Cnil){ |
if((symbol_value(VV[16]))==Cnil){ |
303 |
goto T80;} |
goto T80;} |
304 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43)))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43)))); |
305 |
|
goto T80; |
306 |
T80:; |
T80:; |
307 |
{object V46; |
{object V46; |
308 |
if((car((V44)))==Cnil){ |
if((car((V44)))==Cnil){ |
309 |
goto T87;} |
goto T87;} |
310 |
base[2]= small_fixnum(2); |
base[2]= small_fixnum(2); |
311 |
goto T85; |
goto T85; |
312 |
|
goto T87; |
313 |
T87:; |
T87:; |
314 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
315 |
|
goto T85; |
316 |
T85:; |
T85:; |
317 |
if((cadr((V44)))==Cnil){ |
if((cadr((V44)))==Cnil){ |
318 |
goto T91;} |
goto T91;} |
319 |
base[3]= small_fixnum(1); |
base[3]= small_fixnum(1); |
320 |
goto T89; |
goto T89; |
321 |
|
goto T91; |
322 |
T91:; |
T91:; |
323 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
324 |
|
goto T89; |
325 |
T89:; |
T89:; |
326 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
327 |
Llogior(); |
Llogior(); |
331 |
if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43)); |
if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43)); |
332 |
(cdr(V43))->c.c_cdr = (V46); |
(cdr(V43))->c.c_cdr = (V46); |
333 |
(void)(cdr(V43));} |
(void)(cdr(V43));} |
334 |
|
goto T77; |
335 |
T77:; |
T77:; |
336 |
base[1]= (V43); |
base[1]= (V43); |
337 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
340 |
} |
} |
341 |
/* function definition for RESULT-TYPE-FROM-ARGS */ |
/* function definition for RESULT-TYPE-FROM-ARGS */ |
342 |
|
|
343 |
static L10() |
static void L10() |
344 |
{register object *base=vs_base; |
{register object *base=vs_base; |
345 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
346 |
vs_reserve(VM10); |
vs_reserve(VM10); |
350 |
V48=(base[0]); |
V48=(base[0]); |
351 |
V49=(base[1]); |
V49=(base[1]); |
352 |
vs_top=sup; |
vs_top=sup; |
353 |
|
goto TTL; |
354 |
TTL:; |
TTL:; |
355 |
{object V50; |
{object V50; |
356 |
V50= Cnil; |
V50= Cnil; |
365 |
object V52; |
object V52; |
366 |
V51= VV[20]; |
V51= VV[20]; |
367 |
V52= car((V51)); |
V52= car((V51)); |
368 |
|
goto T106; |
369 |
T106:; |
T106:; |
370 |
if(!(endp((V51)))){ |
if(!(endp((V51)))){ |
371 |
goto T107;} |
goto T107;} |
372 |
base[3]= Cnil; |
base[3]= Cnil; |
373 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
374 |
return; |
return; |
375 |
|
goto T107; |
376 |
T107:; |
T107:; |
377 |
{register object V53; |
{register object V53; |
378 |
register object V54; |
register object V54; |
379 |
V53= get((V48),(V52),Cnil); |
V53= get((V48),(V52),Cnil); |
380 |
V54= car((V53)); |
V54= car((V53)); |
381 |
|
goto T115; |
382 |
T115:; |
T115:; |
383 |
if(!(endp((V53)))){ |
if(!(endp((V53)))){ |
384 |
goto T116;} |
goto T116;} |
385 |
goto T111; |
goto T111; |
386 |
|
goto T116; |
387 |
T116:; |
T116:; |
388 |
base[5]= (V54); |
base[5]= (V54); |
389 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
402 |
register object V56; |
register object V56; |
403 |
V56= car((V54)); |
V56= car((V54)); |
404 |
V55= (V49); |
V55= (V49); |
405 |
|
goto T133; |
406 |
T133:; |
T133:; |
407 |
if(((V55))!=Cnil){ |
if(((V55))!=Cnil){ |
408 |
goto T134;} |
goto T134;} |
409 |
goto T130; |
goto T130; |
410 |
|
goto T134; |
411 |
T134:; |
T134:; |
412 |
if((car((V55)))==(car((V56)))){ |
if((car((V55)))==(car((V56)))){ |
413 |
goto T138;} |
goto T138;} |
414 |
if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){ |
if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){ |
415 |
goto T138;} |
goto T138;} |
416 |
goto T122; |
goto T122; |
417 |
|
goto T138; |
418 |
T138:; |
T138:; |
419 |
V55= cdr((V55)); |
V55= cdr((V55)); |
420 |
V56= cdr((V56)); |
V56= cdr((V56)); |
421 |
goto T133;} |
goto T133;} |
422 |
|
goto T130; |
423 |
T130:; |
T130:; |
424 |
base[5]= cadr((V54)); |
base[5]= cadr((V54)); |
425 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
426 |
return; |
return; |
427 |
|
goto T122; |
428 |
T122:; |
T122:; |
429 |
V53= cdr((V53)); |
V53= cdr((V53)); |
430 |
V54= car((V53)); |
V54= car((V53)); |
431 |
goto T115;} |
goto T115;} |
432 |
|
goto T111; |
433 |
T111:; |
T111:; |
434 |
V51= cdr((V51)); |
V51= cdr((V51)); |
435 |
V52= car((V51)); |
V52= car((V51)); |
436 |
goto T106;} |
goto T106;} |
437 |
|
goto T96; |
438 |
T96:; |
T96:; |
439 |
base[2]= Cnil; |
base[2]= Cnil; |
440 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
443 |
} |
} |
444 |
/* macro definition for FLAGS */ |
/* macro definition for FLAGS */ |
445 |
|
|
446 |
static L11() |
static void L11() |
447 |
{register object *base=vs_base; |
{register object *base=vs_base; |
448 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
449 |
vs_reserve(VM11); |
vs_reserve(VM11); |
456 |
register object V59; |
register object V59; |
457 |
V58= base[2]; |
V58= base[2]; |
458 |
V59= car((V58)); |
V59= car((V58)); |
459 |
|
goto T162; |
460 |
T162:; |
T162:; |
461 |
if(!(endp((V58)))){ |
if(!(endp((V58)))){ |
462 |
goto T163;} |
goto T163;} |
463 |
goto T158; |
goto T158; |
464 |
|
goto T163; |
465 |
T163:; |
T163:; |
466 |
base[5]= base[3]; |
base[5]= base[3]; |
467 |
base[7]= small_fixnum(1); |
base[7]= small_fixnum(1); |
481 |
V58= cdr((V58)); |
V58= cdr((V58)); |
482 |
V59= car((V58)); |
V59= car((V58)); |
483 |
goto T162;} |
goto T162;} |
484 |
|
goto T158; |
485 |
T158:; |
T158:; |
486 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
487 |
return; |
return; |
488 |
} |
} |
489 |
/* function definition for C1SYMBOL-FUN */ |
/* function definition for C1SYMBOL-FUN */ |
490 |
|
|
491 |
static L12() |
static void L12() |
492 |
{register object *base=vs_base; |
{register object *base=vs_base; |
493 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
494 |
vs_reserve(VM12); |
vs_reserve(VM12); |
498 |
V60=(base[0]); |
V60=(base[0]); |
499 |
V61=(base[1]); |
V61=(base[1]); |
500 |
vs_top=sup; |
vs_top=sup; |
501 |
|
goto TTL; |
502 |
TTL:; |
TTL:; |
503 |
{object V62; |
{object V62; |
504 |
V62= Cnil; |
V62= Cnil; |
509 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
510 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V62)); |
511 |
return; |
return; |
512 |
|
goto T181; |
513 |
T181:; |
T181:; |
514 |
{object V63; |
{object V63; |
515 |
V62= get((V60),VV[22],Cnil); |
V62= get((V60),VV[22],Cnil); |
517 |
goto T186;} |
goto T186;} |
518 |
V63= Cnil; |
V63= Cnil; |
519 |
goto T185; |
goto T185; |
520 |
|
goto T186; |
521 |
T186:; |
T186:; |
522 |
V63= ( |
V63= ( |
523 |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
524 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
525 |
|
goto T185; |
526 |
T185:; |
T185:; |
527 |
if(((V63))==Cnil){ |
if(((V63))==Cnil){ |
528 |
goto T190;} |
goto T190;} |
529 |
base[2]= (V63); |
base[2]= (V63); |
530 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
531 |
return; |
return; |
532 |
|
goto T190; |
533 |
T190:; |
T190:; |
534 |
V62= (*(LnkLI141))((V60)); |
V62= (*(LnkLI141))((V60)); |
535 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
545 |
if(((V66))==Cnil){ |
if(((V66))==Cnil){ |
546 |
goto T201;} |
goto T201;} |
547 |
(void)(structure_set((V64),VV[25],2,(V66)));} |
(void)(structure_set((V64),VV[25],2,(V66)));} |
548 |
|
goto T201; |
549 |
T201:; |
T201:; |
550 |
{register object V67; |
{register object V67; |
551 |
V67= (*(LnkLI144))(caddr((V62))); |
V67= (*(LnkLI144))(caddr((V62))); |
557 |
object V70; |
object V70; |
558 |
V69= (V65); |
V69= (V65); |
559 |
V70= car((V69)); |
V70= car((V69)); |
560 |
|
goto T213; |
561 |
T213:; |
T213:; |
562 |
if(!(endp((V69)))){ |
if(!(endp((V69)))){ |
563 |
goto T214;} |
goto T214;} |
564 |
goto T209; |
goto T209; |
565 |
|
goto T214; |
566 |
T214:; |
T214:; |
567 |
if(!(endp((V67)))){ |
if(!(endp((V67)))){ |
568 |
goto T220;} |
goto T220;} |
569 |
V68= make_cons((V70),(V68)); |
V68= make_cons((V70),(V68)); |
570 |
goto T218; |
goto T218; |
571 |
|
goto T220; |
572 |
T220:; |
T220:; |
573 |
V71= (*(LnkLI145))(car((V67)),(V70),car((V61))); |
V71= (*(LnkLI145))(car((V67)),(V70),car((V61))); |
574 |
V68= make_cons(/* INLINE-ARGS */V71,(V68)); |
V68= make_cons(/* INLINE-ARGS */V71,(V68)); |
578 |
{object V73; |
{object V73; |
579 |
V73= car((V61)); |
V73= car((V61)); |
580 |
V61= cdr((V61));} |
V61= cdr((V61));} |
581 |
|
goto T218; |
582 |
T218:; |
T218:; |
583 |
V69= cdr((V69)); |
V69= cdr((V69)); |
584 |
V70= car((V69)); |
V70= car((V69)); |
585 |
goto T213;} |
goto T213;} |
586 |
|
goto T209; |
587 |
T209:; |
T209:; |
588 |
V65= reverse((V68));}} |
V65= reverse((V68));}} |
589 |
|
goto T205; |
590 |
T205:; |
T205:; |
591 |
base[4]= list(4,VV[23],(V64),cddr((V62)),(V65)); |
base[4]= list(4,VV[23],(V64),cddr((V62)),(V65)); |
592 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
593 |
return;} |
return;} |
594 |
|
goto T197; |
595 |
T197:; |
T197:; |
596 |
V74= (*(LnkLI146))((V62),(V60),(V61)); |
V74= (*(LnkLI146))((V62),(V60),(V61)); |
597 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V74); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V74); |
598 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
599 |
return; |
return; |
600 |
|
goto T193; |
601 |
T193:; |
T193:; |
602 |
{object V75; |
{object V75; |
603 |
V62= get((V60),VV[26],Cnil); |
V62= get((V60),VV[26],Cnil); |
605 |
goto T239;} |
goto T239;} |
606 |
V75= Cnil; |
V75= Cnil; |
607 |
goto T238; |
goto T238; |
608 |
|
goto T239; |
609 |
T239:; |
T239:; |
610 |
if(((*(LnkLI147))((V60)))!=Cnil){ |
if(((*(LnkLI147))((V60)))!=Cnil){ |
611 |
goto T242;} |
goto T242;} |
612 |
V75= Cnil; |
V75= Cnil; |
613 |
goto T238; |
goto T238; |
614 |
|
goto T242; |
615 |
T242:; |
T242:; |
616 |
V75= ( |
V75= ( |
617 |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)): |
618 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
619 |
|
goto T238; |
620 |
T238:; |
T238:; |
621 |
if(((V75))==Cnil){ |
if(((V75))==Cnil){ |
622 |
goto T245;} |
goto T245;} |
623 |
base[2]= (V75); |
base[2]= (V75); |
624 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
625 |
return; |
return; |
626 |
|
goto T245; |
627 |
T245:; |
T245:; |
628 |
V62= get((V60),VV[27],Cnil); |
V62= get((V60),VV[27],Cnil); |
629 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
634 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
635 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V62)); |
636 |
return; |
return; |
637 |
|
goto T248; |
638 |
T248:; |
T248:; |
639 |
V62= get((V60),VV[28],Cnil); |
V62= get((V60),VV[28],Cnil); |
640 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
653 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
654 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
655 |
return; |
return; |
656 |
|
goto T255; |
657 |
T255:; |
T255:; |
658 |
{object V76; |
{object V76; |
659 |
base[2]= (V60); |
base[2]= (V60); |
669 |
if((V77)==(V78)){ |
if((V77)==(V78)){ |
670 |
goto T268;} |
goto T268;} |
671 |
goto T267; |
goto T267; |
672 |
|
goto T268; |
673 |
T268:; |
T268:; |
674 |
base[2]= (V60); |
base[2]= (V60); |
675 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
679 |
if((V79)==Cnil){ |
if((V79)==Cnil){ |
680 |
goto T274;} |
goto T274;} |
681 |
goto T267; |
goto T267; |
682 |
|
goto T274; |
683 |
T274:; |
T274:; |
684 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60)))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60)))); |
685 |
|
goto T267; |
686 |
T267:; |
T267:; |
687 |
if(symbol_value(VV[31])==Cnil){ |
if(symbol_value(VV[31])==Cnil){ |
688 |
goto T278;} |
goto T278;} |
689 |
(void)((*(LnkLI32))(VV[32],(V60))); |
(void)((*(LnkLI32))(VV[32],(V60))); |
690 |
|
goto T278; |
691 |
T278:; |
T278:; |
692 |
V76= Cnil; |
V76= Cnil; |
693 |
if(((V76))==Cnil){ |
if(((V76))==Cnil){ |
695 |
base[2]= (V76); |
base[2]= (V76); |
696 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
697 |
return; |
return; |
698 |
|
goto T280; |
699 |
T280:; |
T280:; |
700 |
base[2]= (V60); |
base[2]= (V60); |
701 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
708 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V80); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V80); |
709 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
710 |
return; |
return; |
711 |
|
goto T283; |
712 |
T283:; |
T283:; |
713 |
V62= get((V60),VV[33],Cnil); |
V62= get((V60),VV[33],Cnil); |
714 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
722 |
base[2]= (*(LnkLI123))(V81); |
base[2]= (*(LnkLI123))(V81); |
723 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
724 |
return; |
return; |
725 |
|
goto T288; |
726 |
T288:; |
T288:; |
727 |
V62= get((V60),VV[36],Cnil); |
V62= get((V60),VV[36],Cnil); |
728 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
743 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V84); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V84); |
744 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
745 |
return; |
return; |
746 |
|
goto T307; |
747 |
T307:; |
T307:; |
748 |
if((V83!= VV[113]))goto T308; |
if((V83!= VV[113]))goto T308; |
749 |
V85= list(3,VV[38],cdr((V62)),car((V61))); |
V85= list(3,VV[38],cdr((V62)),car((V61))); |
750 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85); |
751 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
752 |
return; |
return; |
753 |
|
goto T308; |
754 |
T308:; |
T308:; |
755 |
base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62))); |
base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62))); |
756 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
757 |
return;} |
return;} |
758 |
|
goto T294; |
759 |
T294:; |
T294:; |
760 |
if(!(((V60))==(VV[5]))){ |
if(!(((V60))==(VV[5]))){ |
761 |
goto T310;} |
goto T310;} |
762 |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
763 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
764 |
return; |
return; |
765 |
|
goto T310; |
766 |
T310:; |
T310:; |
767 |
{object V86; |
{object V86; |
768 |
object V87; |
object V87; |
777 |
goto T320;} |
goto T320;} |
778 |
V89= Cnil; |
V89= Cnil; |
779 |
goto T315; |
goto T315; |
780 |
|
goto T320; |
781 |
T320:; |
T320:; |
782 |
(void)(structure_set((V86),VV[25],2,(V89)));} |
(void)(structure_set((V86),VV[25],2,(V89)));} |
783 |
|
goto T315; |
784 |
T315:; |
T315:; |
785 |
{register object V90; |
{register object V90; |
786 |
V90= (*(LnkLI151))((V60)); |
V90= (*(LnkLI151))((V60)); |
792 |
V91= (V87); |
V91= (V87); |
793 |
V92= Cnil; |
V92= Cnil; |
794 |
V93= (V61); |
V93= (V61); |
795 |
|
goto T328; |
796 |
T328:; |
T328:; |
797 |
if(!(endp((V91)))){ |
if(!(endp((V91)))){ |
798 |
goto T329;} |
goto T329;} |
799 |
V87= reverse((V92)); |
V87= reverse((V92)); |
800 |
goto T323; |
goto T323; |
801 |
|
goto T329; |
802 |
T329:; |
T329:; |
803 |
if(!(endp((V90)))){ |
if(!(endp((V90)))){ |
804 |
goto T336;} |
goto T336;} |
805 |
V92= make_cons(car((V91)),(V92)); |
V92= make_cons(car((V91)),(V92)); |
806 |
goto T334; |
goto T334; |
807 |
|
goto T336; |
808 |
T336:; |
T336:; |
809 |
V94= (*(LnkLI145))(car((V90)),car((V91)),car((V93))); |
V94= (*(LnkLI145))(car((V90)),car((V91)),car((V93))); |
810 |
V92= make_cons(/* INLINE-ARGS */V94,(V92)); |
V92= make_cons(/* INLINE-ARGS */V94,(V92)); |
811 |
{object V95; |
{object V95; |
812 |
V95= car((V90)); |
V95= car((V90)); |
813 |
V90= cdr((V90));} |
V90= cdr((V90));} |
814 |
|
goto T334; |
815 |
T334:; |
T334:; |
816 |
V91= cdr((V91)); |
V91= cdr((V91)); |
817 |
V93= cdr((V93)); |
V93= cdr((V93)); |
818 |
goto T328;}} |
goto T328;}} |
819 |
|
goto T323; |
820 |
T323:; |
T323:; |
821 |
{register object V96; |
{register object V96; |
822 |
V96= get((V60),VV[42],Cnil); |
V96= get((V60),VV[42],Cnil); |
826 |
object V98; |
object V98; |
827 |
V97= (V87); |
V97= (V87); |
828 |
V98= (V61); |
V98= (V61); |
829 |
|
goto T353; |
830 |
T353:; |
T353:; |
831 |
if(endp((V96))){ |
if(endp((V96))){ |
832 |
goto T355;} |
goto T355;} |
833 |
if(!(endp((V97)))){ |
if(!(endp((V97)))){ |
834 |
goto T354;} |
goto T354;} |
835 |
|
goto T355; |
836 |
T355:; |
T355:; |
837 |
goto T348; |
goto T348; |
838 |
|
goto T354; |
839 |
T354:; |
T354:; |
840 |
(void)((*(LnkLI152))(car((V96)),car((V97)),car((V98)))); |
(void)((*(LnkLI152))(car((V96)),car((V97)),car((V98)))); |
841 |
{object V99; |
{object V99; |
844 |
V97= cdr((V97)); |
V97= cdr((V97)); |
845 |
V98= cdr((V98)); |
V98= cdr((V98)); |
846 |
goto T353;}} |
goto T353;}} |
847 |
|
goto T348; |
848 |
T348:; |
T348:; |
849 |
{object V100= (V60); |
{object V100= (V60); |
850 |
if((V100!= VV[153]))goto T370; |
if((V100!= VV[153]))goto T370; |
855 |
V101= VV[44]; |
V101= VV[44]; |
856 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
857 |
goto T372;} |
goto T372;} |
858 |
|
goto T373; |
859 |
T373:; |
T373:; |
860 |
if(!(type_of((V101))==t_cons)){ |
if(!(type_of((V101))==t_cons)){ |
861 |
goto T369;} |
goto T369;} |
863 |
goto T380;} |
goto T380;} |
864 |
if(!((car((V101)))==(VV[46]))){ |
if(!((car((V101)))==(VV[46]))){ |
865 |
goto T369;} |
goto T369;} |
866 |
|
goto T380; |
867 |
T380:; |
T380:; |
868 |
V101= cadr((V101)); |
V101= cadr((V101)); |
869 |
if(((V101))==Cnil){ |
if(((V101))==Cnil){ |
870 |
goto T369;} |
goto T369;} |
871 |
|
goto T372; |
872 |
T372:; |
T372:; |
873 |
V102= structure_ref((V86),VV[25],2); |
V102= structure_ref((V86),VV[25],2); |
874 |
V101= (*(LnkLI154))(/* INLINE-ARGS */V102,(V101)); |
V101= (*(LnkLI154))(/* INLINE-ARGS */V102,(V101)); |
876 |
goto T388;} |
goto T388;} |
877 |
V103= make_cons((V60),(V61)); |
V103= make_cons((V60),(V61)); |
878 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V103))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V103))); |
879 |
|
goto T388; |
880 |
T388:; |
T388:; |
881 |
(void)(structure_set((V86),VV[25],2,(V101))); |
(void)(structure_set((V86),VV[25],2,(V101))); |
882 |
goto T369;} |
goto T369;} |
883 |
|
goto T370; |
884 |
T370:; |
T370:; |
885 |
if((V100!= VV[155]))goto T391; |
if((V100!= VV[155]))goto T391; |
886 |
{object V104; |
{object V104; |
890 |
V104= VV[44]; |
V104= VV[44]; |
891 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
892 |
goto T393;} |
goto T393;} |
893 |
|
goto T394; |
894 |
T394:; |
T394:; |
895 |
if(!(type_of((V104))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
896 |
goto T369;} |
goto T369;} |
898 |
goto T401;} |
goto T401;} |
899 |
if(!((car((V104)))==(VV[46]))){ |
if(!((car((V104)))==(VV[46]))){ |
900 |
goto T369;} |
goto T369;} |
901 |
|
goto T401; |
902 |
T401:; |
T401:; |
903 |
V104= cadr((V104)); |
V104= cadr((V104)); |
904 |
if(((V104))==Cnil){ |
if(((V104))==Cnil){ |
905 |
goto T369;} |
goto T369;} |
906 |
|
goto T393; |
907 |
T393:; |
T393:; |
908 |
V105= structure_ref((V86),VV[25],2); |
V105= structure_ref((V86),VV[25],2); |
909 |
base[4]= (V87); |
base[4]= (V87); |
918 |
goto T411;} |
goto T411;} |
919 |
V109= make_cons((V60),(V61)); |
V109= make_cons((V60),(V61)); |
920 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V109))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V109))); |
921 |
|
goto T411; |
922 |
T411:; |
T411:; |
923 |
(void)(structure_set((V86),VV[25],2,(V104))); |
(void)(structure_set((V86),VV[25],2,(V104))); |
924 |
base[4]= (V87); |
base[4]= (V87); |
928 |
V110= vs_base[0]; |
V110= vs_base[0]; |
929 |
(void)(structure_set(cadar(V110),VV[25],2,(V104))); |
(void)(structure_set(cadar(V110),VV[25],2,(V104))); |
930 |
goto T369;} |
goto T369;} |
931 |
|
goto T391; |
932 |
T391:;} |
T391:;} |
933 |
|
goto T369; |
934 |
T369:; |
T369:; |
935 |
{object V111; |
{object V111; |
936 |
base[4]= (V60); |
base[4]= (V60); |
940 |
base[5]= Cnil; |
base[5]= Cnil; |
941 |
goto T420;} |
goto T420;} |
942 |
base[6]=V112=MMcons(Cnil,Cnil); |
base[6]=V112=MMcons(Cnil,Cnil); |
943 |
|
goto T421; |
944 |
T421:; |
T421:; |
945 |
(V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2); |
(V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2); |
946 |
if(endp(V113=MMcdr(V113))){ |
if(endp(V113=MMcdr(V113))){ |
948 |
goto T420;} |
goto T420;} |
949 |
V112=MMcdr(V112)=MMcons(Cnil,Cnil); |
V112=MMcdr(V112)=MMcons(Cnil,Cnil); |
950 |
goto T421;} |
goto T421;} |
951 |
|
goto T420; |
952 |
T420:; |
T420:; |
953 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
954 |
(void) (*Lnk156)(); |
(void) (*Lnk156)(); |
959 |
V115= structure_ref((V86),VV[25],2); |
V115= structure_ref((V86),VV[25],2); |
960 |
V111= (*(LnkLI154))((V111),/* INLINE-ARGS */V115); |
V111= (*(LnkLI154))((V111),/* INLINE-ARGS */V115); |
961 |
(void)(structure_set((V86),VV[25],2,(V111)));} |
(void)(structure_set((V86),VV[25],2,(V111)));} |
962 |
|
goto T417; |
963 |
T417:; |
T417:; |
964 |
base[4]= list(4,VV[49],(V86),(V60),(V87)); |
base[4]= list(4,VV[49],(V86),(V60),(V87)); |
965 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
972 |
|
|
973 |
object V117; |
object V117; |
974 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
975 |
|
goto TTL; |
976 |
TTL:; |
TTL:; |
977 |
{register object V118; |
{register object V118; |
978 |
register object V119; |
register object V119; |
980 |
V119= Cnil; |
V119= Cnil; |
981 |
{register object V120; |
{register object V120; |
982 |
V120= (V117); |
V120= (V117); |
983 |
|
goto T430; |
984 |
T430:; |
T430:; |
985 |
if(((V120))!=Cnil){ |
if(((V120))!=Cnil){ |
986 |
goto T431;} |
goto T431;} |
987 |
{object V121 = (V118); |
{object V121 = (V118); |
988 |
VMR13(V121)} |
VMR13(V121)} |
989 |
|
goto T431; |
990 |
T431:; |
T431:; |
991 |
base[0]= car((V120)); |
base[0]= car((V120)); |
992 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1008 |
goto T436;} |
goto T436;} |
1009 |
if(!(type_of((V119))==t_character)){ |
if(!(type_of((V119))==t_character)){ |
1010 |
goto T435;} |
goto T435;} |
1011 |
|
goto T436; |
1012 |
T436:; |
T436:; |
1013 |
V118= Ct; |
V118= Ct; |
1014 |
{register object V122; |
{register object V122; |
1017 |
V123= (V119); |
V123= (V119); |
1018 |
if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122)); |
if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122)); |
1019 |
((V122))->c.c_car = (V123);} |
((V122))->c.c_car = (V123);} |
1020 |
|
goto T435; |
1021 |
T435:; |
T435:; |
1022 |
V120= cdr((V120)); |
V120= cdr((V120)); |
1023 |
goto T430;}} |
goto T430;}} |
1024 |
|
base[0]=base[0]; |
1025 |
|
return Cnil; |
1026 |
} |
} |
1027 |
/* local entry for function C1LAMBDA-FUN */ |
/* local entry for function C1LAMBDA-FUN */ |
1028 |
|
|
1030 |
|
|
1031 |
register object V126;object V127; |
register object V126;object V127; |
1032 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1033 |
|
goto TTL; |
1034 |
TTL:; |
TTL:; |
1035 |
{object V128; |
{object V128; |
1036 |
V128= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
V128= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
1039 |
(void)((*(LnkLI124))((V128),cadr((V126)))); |
(void)((*(LnkLI124))((V128),cadr((V126)))); |
1040 |
{object V129 = list(4,VV[50],(V128),(V126),(V127)); |
{object V129 = list(4,VV[50],(V128),(V126),(V127)); |
1041 |
VMR14(V129)}} |
VMR14(V129)}} |
1042 |
|
base[0]=base[0]; |
1043 |
|
return Cnil; |
1044 |
} |
} |
1045 |
/* function definition for C2EXPR */ |
/* function definition for C2EXPR */ |
1046 |
|
|
1047 |
static L15() |
static void L15() |
1048 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1049 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1050 |
vs_reserve(VM15); |
vs_reserve(VM15); |
1053 |
check_arg(1); |
check_arg(1); |
1054 |
V130=(base[0]); |
V130=(base[0]); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
|
goto TTL; |
1057 |
TTL:; |
TTL:; |
1058 |
if(!((car((V130)))==(VV[49]))){ |
if(!((car((V130)))==(VV[49]))){ |
1059 |
goto T460;} |
goto T460;} |
1063 |
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V131,/* INLINE-ARGS */V132,Cnil,/* INLINE-ARGS */V133); |
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V131,/* INLINE-ARGS */V132,Cnil,/* INLINE-ARGS */V133); |
1064 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1065 |
return; |
return; |
1066 |
|
goto T460; |
1067 |
T460:; |
T460:; |
1068 |
if((car((V130)))==(VV[51])){ |
if((car((V130)))==(VV[51])){ |
1069 |
goto T462;} |
goto T462;} |
1070 |
if(!((car((V130)))==(VV[52]))){ |
if(!((car((V130)))==(VV[52]))){ |
1071 |
goto T463;} |
goto T463;} |
1072 |
|
goto T462; |
1073 |
T462:; |
T462:; |
1074 |
base[1]= (*(LnkLI159))(cadr((V130))); |
base[1]= (*(LnkLI159))(cadr((V130))); |
1075 |
bds_bind(VV[53],base[1]); |
bds_bind(VV[53],base[1]); |
1083 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
1084 |
bds_unwind1; |
bds_unwind1; |
1085 |
return; |
return; |
1086 |
|
goto T463; |
1087 |
T463:; |
T463:; |
1088 |
{register object V135; |
{register object V135; |
1089 |
V135= get(car((V130)),VV[54],Cnil); |
V135= get(car((V130)),VV[54],Cnil); |
1098 |
vs_base=base+2;} |
vs_base=base+2;} |
1099 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1100 |
return; |
return; |
1101 |
|
goto T472; |
1102 |
T472:; |
T472:; |
1103 |
V135= get(car((V130)),VV[55],Cnil); |
V135= get(car((V130)),VV[55],Cnil); |
1104 |
if(((V135))==Cnil){ |
if(((V135))==Cnil){ |
1107 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1108 |
super_funcall_no_event((V135)); |
super_funcall_no_event((V135)); |
1109 |
return; |
return; |
1110 |
|
goto T477; |
1111 |
T477:; |
T477:; |
1112 |
base[1]= (*(LnkLI160))(); |
base[1]= (*(LnkLI160))(); |
1113 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1121 |
object V140;object V141;object V142; |
object V140;object V141;object V142; |
1122 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1123 |
bds_check; |
bds_check; |
1124 |
|
goto TTL; |
1125 |
TTL:; |
TTL:; |
1126 |
{object V143; |
{object V143; |
1127 |
object V144; |
object V144; |
1141 |
{object V147 = (*(LnkLI163))(); |
{object V147 = (*(LnkLI163))(); |
1142 |
bds_unwind1; |
bds_unwind1; |
1143 |
VMR16(V147)}} |
VMR16(V147)}} |
1144 |
|
base[0]=base[0]; |
1145 |
|
return Cnil; |
1146 |
} |
} |
1147 |
/* local entry for function C2EXPR* */ |
/* local entry for function C2EXPR* */ |
1148 |
|
|
1151 |
object V149; |
object V149; |
1152 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1153 |
bds_check; |
bds_check; |
1154 |
|
goto TTL; |
1155 |
TTL:; |
TTL:; |
1156 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1157 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
1162 |
vs_top=sup; |
vs_top=sup; |
1163 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
1164 |
goto T497;} |
goto T497;} |
1165 |
|
princ_str("\ngoto T",VV[62]); |
1166 |
|
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1167 |
|
princ_char(59,VV[62]); |
1168 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1169 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1170 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1172 |
bds_unwind1; |
bds_unwind1; |
1173 |
bds_unwind1; |
bds_unwind1; |
1174 |
VMR17(V150)} |
VMR17(V150)} |
1175 |
|
goto T497; |
1176 |
T497:; |
T497:; |
1177 |
{object V151 = Cnil; |
{object V151 = Cnil; |
1178 |
bds_unwind1; |
bds_unwind1; |
1179 |
bds_unwind1; |
bds_unwind1; |
1180 |
VMR17(V151)} |
VMR17(V151)} |
1181 |
|
base[0]=base[0]; |
1182 |
|
return Cnil; |
1183 |
} |
} |
1184 |
/* local entry for function C2EXPR-TOP */ |
/* local entry for function C2EXPR-TOP */ |
1185 |
|
|
1188 |
object V154;object V155; |
object V154;object V155; |
1189 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1190 |
bds_check; |
bds_check; |
1191 |
|
goto TTL; |
1192 |
TTL:; |
TTL:; |
1193 |
bds_bind(VV[63],small_fixnum(0)); |
bds_bind(VV[63],small_fixnum(0)); |
1194 |
bds_bind(VV[64],small_fixnum(0)); |
bds_bind(VV[64],small_fixnum(0)); |
1206 |
princ_str("\n register object *sup=vs_base+VM",VV[62]); |
princ_str("\n register object *sup=vs_base+VM",VV[62]); |
1207 |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
1208 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1209 |
|
princ_str("\n base",VV[62]); |
1210 |
|
V157= one_minus((VV[65]->s.s_dbind)); |
1211 |
|
(void)((*(LnkLI165))(/* INLINE-ARGS */V157)); |
1212 |
|
princ_str("[0]=base",VV[62]); |
1213 |
|
V158= one_minus((VV[65]->s.s_dbind)); |
1214 |
|
(void)((*(LnkLI165))(/* INLINE-ARGS */V158)); |
1215 |
|
princ_str("[0];",VV[62]); |
1216 |
|
princ_str("\n base[0]=base[0];",VV[62]); |
1217 |
if((symbol_value(VV[69]))==Cnil){ |
if((symbol_value(VV[69]))==Cnil){ |
1218 |
goto T521;} |
goto T533;} |
1219 |
princ_str("\n vs_reserve(VM",VV[62]); |
princ_str("\n vs_reserve(VM",VV[62]); |
1220 |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
1221 |
princ_str(");",VV[62]); |
princ_str(");",VV[62]); |
1222 |
goto T519; |
goto T531; |
1223 |
T521:; |
goto T533; |
1224 |
|
T533:; |
1225 |
princ_str("\n vs_check;",VV[62]); |
princ_str("\n vs_check;",VV[62]); |
1226 |
T519:; |
goto T531; |
1227 |
|
T531:; |
1228 |
princ_str("\n ",VV[62]); |
princ_str("\n ",VV[62]); |
1229 |
(void)((*(LnkLI166))()); |
(void)((*(LnkLI166))()); |
1230 |
base[4]= (V154); |
base[4]= (V154); |
1231 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1232 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1233 |
vs_top=sup; |
vs_top=sup; |
1234 |
V157= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind)); |
V159= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind)); |
1235 |
setq(VV[70],make_cons(/* INLINE-ARGS */V157,symbol_value(VV[70]))); |
setq(VV[70],make_cons(/* INLINE-ARGS */V159,symbol_value(VV[70]))); |
1236 |
princ_str("\n }}",VV[62]); |
princ_str("\n }}",VV[62]); |
1237 |
{object V158 = Cnil; |
{object V160 = Cnil; |
1238 |
bds_unwind1; |
bds_unwind1; |
1239 |
bds_unwind1; |
bds_unwind1; |
1240 |
bds_unwind1; |
bds_unwind1; |
1241 |
bds_unwind1; |
bds_unwind1; |
1242 |
VMR18(V158)} |
VMR18(V160)} |
1243 |
|
base[0]=base[0]; |
1244 |
|
return Cnil; |
1245 |
} |
} |
1246 |
/* local entry for function C2EXPR-TOP* */ |
/* local entry for function C2EXPR-TOP* */ |
1247 |
|
|
1248 |
static object LI19(V161,V162) |
static object LI19(V163,V164) |
1249 |
|
|
1250 |
object V161;object V162; |
object V163;object V164; |
1251 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1252 |
bds_check; |
bds_check; |
1253 |
|
goto TTL; |
1254 |
TTL:; |
TTL:; |
1255 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1256 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
1257 |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
1258 |
(void)((*(LnkLI167))((V161),(V162))); |
(void)((*(LnkLI167))((V163),(V164))); |
1259 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
1260 |
goto T539;} |
goto T551;} |
1261 |
|
princ_str("\ngoto T",VV[62]); |
1262 |
|
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1263 |
|
princ_char(59,VV[62]); |
1264 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1265 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1266 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1267 |
{object V163 = Cnil; |
{object V165 = Cnil; |
1268 |
bds_unwind1; |
bds_unwind1; |
1269 |
bds_unwind1; |
bds_unwind1; |
1270 |
VMR19(V163)} |
VMR19(V165)} |
1271 |
T539:; |
goto T551; |
1272 |
{object V164 = Cnil; |
T551:; |
1273 |
|
{object V166 = Cnil; |
1274 |
bds_unwind1; |
bds_unwind1; |
1275 |
bds_unwind1; |
bds_unwind1; |
1276 |
VMR19(V164)} |
VMR19(V166)} |
1277 |
|
base[0]=base[0]; |
1278 |
|
return Cnil; |
1279 |
} |
} |
1280 |
/* local entry for function C1PROGN */ |
/* local entry for function C1PROGN */ |
1281 |
|
|
1282 |
static object LI20(V166) |
static object LI20(V168) |
1283 |
|
|
1284 |
register object V166; |
register object V168; |
1285 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1286 |
|
goto TTL; |
1287 |
TTL:; |
TTL:; |
1288 |
{register object V167; |
{register object V169; |
1289 |
V167= Cnil; |
V169= Cnil; |
1290 |
if(!(endp((V166)))){ |
if(!(endp((V168)))){ |
1291 |
goto T546;} |
goto T562;} |
1292 |
{object V168 = (*(LnkLI125))(); |
{object V170 = (*(LnkLI125))(); |
1293 |
VMR20(V168)} |
VMR20(V170)} |
1294 |
T546:; |
goto T562; |
1295 |
if(!(endp(cdr((V166))))){ |
T562:; |
1296 |
goto T549;} |
if(!(endp(cdr((V168))))){ |
1297 |
{object V169 = (*(LnkLI123))(car((V166))); |
goto T565;} |
1298 |
VMR20(V169)} |
{object V171 = (*(LnkLI123))(car((V168))); |
1299 |
T549:; |
VMR20(V171)} |
1300 |
{register object V170; |
goto T565; |
1301 |
V170= (VFUN_NARGS=0,(*(LnkLI127))()); |
T565:; |
1302 |
{register object V171; |
{register object V172; |
1303 |
register object V172; |
V172= (VFUN_NARGS=0,(*(LnkLI127))()); |
1304 |
V171= (V166); |
{register object V173; |
1305 |
V172= car((V171)); |
register object V174; |
1306 |
T556:; |
V173= (V168); |
1307 |
if(!(endp((V171)))){ |
V174= car((V173)); |
1308 |
goto T557;} |
goto T572; |
1309 |
goto T552; |
T572:; |
1310 |
T557:; |
if(!(endp((V173)))){ |
1311 |
V172= (*(LnkLI123))((V172)); |
goto T573;} |
1312 |
V167= make_cons((V172),(V167)); |
goto T568; |
1313 |
(void)((*(LnkLI124))((V170),cadr((V172)))); |
goto T573; |
1314 |
V171= cdr((V171)); |
T573:; |
1315 |
V172= car((V171)); |
V174= (*(LnkLI123))((V174)); |
1316 |
goto T556;} |
V169= make_cons((V174),(V169)); |
1317 |
T552:; |
(void)((*(LnkLI124))((V172),cadr((V174)))); |
1318 |
V173= structure_ref(cadar((V167)),VV[25],2); |
V173= cdr((V173)); |
1319 |
(void)(structure_set((V170),VV[25],2,/* INLINE-ARGS */V173)); |
V174= car((V173)); |
1320 |
{object V174 = list(3,VV[71],(V170),reverse((V167))); |
goto T572;} |
1321 |
VMR20(V174)}}} |
goto T568; |
1322 |
|
T568:; |
1323 |
|
V175= structure_ref(cadar((V169)),VV[25],2); |
1324 |
|
(void)(structure_set((V172),VV[25],2,/* INLINE-ARGS */V175)); |
1325 |
|
{object V176 = list(3,VV[71],(V172),reverse((V169))); |
1326 |
|
VMR20(V176)}}} |
1327 |
|
base[0]=base[0]; |
1328 |
|
return Cnil; |
1329 |
} |
} |
1330 |
/* local entry for function C1PROGN* */ |
/* local entry for function C1PROGN* */ |
1331 |
|
|
1332 |
static object LI21(V177,V178) |
static object LI21(V179,V180) |
1333 |
|
|
1334 |
register object V177;object V178; |
register object V179;object V180; |
1335 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1336 |
|
goto TTL; |
1337 |
TTL:; |
TTL:; |
1338 |
V177= (*(LnkLI168))((V177)); |
V179= (*(LnkLI168))((V179)); |
1339 |
(void)((*(LnkLI124))((V178),cadr((V177)))); |
(void)((*(LnkLI124))((V180),cadr((V179)))); |
1340 |
{object V179 = (V177); |
{object V181 = (V179); |
1341 |
VMR21(V179)} |
VMR21(V181)} |
1342 |
|
return Cnil; |
1343 |
} |
} |
1344 |
/* function definition for C2PROGN */ |
/* function definition for C2PROGN */ |
1345 |
|
|
1346 |
static L22() |
static void L22() |
1347 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1348 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1349 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1350 |
bds_check; |
bds_check; |
1351 |
{object V180; |
{object V182; |
1352 |
check_arg(1); |
check_arg(1); |
1353 |
V180=(base[0]); |
V182=(base[0]); |
1354 |
vs_top=sup; |
vs_top=sup; |
1355 |
|
goto TTL; |
1356 |
TTL:; |
TTL:; |
1357 |
{register object V181; |
{register object V183; |
1358 |
V181= (V180); |
V183= (V182); |
1359 |
T576:; |
goto T592; |
1360 |
if(!(endp(cdr((V181))))){ |
T592:; |
1361 |
goto T577;} |
if(!(endp(cdr((V183))))){ |
1362 |
base[1]= car((V181)); |
goto T593;} |
1363 |
|
base[1]= car((V183)); |
1364 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1365 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1366 |
return; |
return; |
1367 |
T577:; |
goto T593; |
1368 |
|
T593:; |
1369 |
bds_bind(VV[72],VV[73]); |
bds_bind(VV[72],VV[73]); |
1370 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1371 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
1372 |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
1373 |
base[4]= car((V181)); |
base[4]= car((V183)); |
1374 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1375 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1376 |
vs_top=sup; |
vs_top=sup; |
1378 |
bds_unwind1; |
bds_unwind1; |
1379 |
bds_unwind1; |
bds_unwind1; |
1380 |
bds_unwind1; |
bds_unwind1; |
1381 |
goto T582;} |
goto T598;} |
1382 |
|
princ_str("\ngoto T",VV[62]); |
1383 |
|
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1384 |
|
princ_char(59,VV[62]); |
1385 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1386 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1387 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1388 |
bds_unwind1; |
bds_unwind1; |
1389 |
bds_unwind1; |
bds_unwind1; |
1390 |
bds_unwind1; |
bds_unwind1; |
1391 |
T582:; |
goto T598; |
1392 |
V181= cdr((V181)); |
T598:; |
1393 |
goto T576;} |
V183= cdr((V183)); |
1394 |
|
goto T592;} |
1395 |
} |
} |
1396 |
} |
} |
1397 |
/* local entry for function C1ARGS */ |
/* local entry for function C1ARGS */ |
1398 |
|
|
1399 |
static object LI23(V184,V185) |
static object LI23(V186,V187) |
1400 |
|
|
1401 |
object V184;object V185; |
object V186;object V187; |
1402 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1403 |
|
goto TTL; |
1404 |
TTL:; |
TTL:; |
1405 |
{object V186; |
{object V188; |
1406 |
object V187= (V184); |
object V189= (V186); |
1407 |
if(endp(V187)){ |
if(endp(V189)){ |
1408 |
{object V188 = Cnil; |
{object V190 = Cnil; |
|
VMR23(V188)}} |
|
|
base[0]=V186=MMcons(Cnil,Cnil); |
|
|
T596:; |
|
|
(V186->c.c_car)= (*(LnkLI169))((V187->c.c_car),(V185)); |
|
|
if(endp(V187=MMcdr(V187))){ |
|
|
{object V190 = base[0]; |
|
1409 |
VMR23(V190)}} |
VMR23(V190)}} |
1410 |
V186=MMcdr(V186)=MMcons(Cnil,Cnil); |
base[0]=V188=MMcons(Cnil,Cnil); |
1411 |
goto T596;} |
goto T616; |
1412 |
|
T616:; |
1413 |
|
(V188->c.c_car)= (*(LnkLI169))((V189->c.c_car),(V187)); |
1414 |
|
if(endp(V189=MMcdr(V189))){ |
1415 |
|
{object V192 = base[0]; |
1416 |
|
VMR23(V192)}} |
1417 |
|
V188=MMcdr(V188)=MMcons(Cnil,Cnil); |
1418 |
|
goto T616;} |
1419 |
|
base[0]=base[0]; |
1420 |
|
return Cnil; |
1421 |
} |
} |
1422 |
/* local entry for function C1STRUCTURE-REF */ |
/* local entry for function C1STRUCTURE-REF */ |
1423 |
|
|
1424 |
static object LI24(V192) |
static object LI24(V194) |
1425 |
|
|
1426 |
register object V192; |
register object V194; |
1427 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1428 |
|
goto TTL; |
1429 |
TTL:; |
TTL:; |
1430 |
if((symbol_value(VV[69]))!=Cnil){ |
if((symbol_value(VV[69]))!=Cnil){ |
1431 |
goto T599;} |
goto T619;} |
1432 |
if(endp((V192))){ |
if(endp((V194))){ |
1433 |
goto T599;} |
goto T619;} |
1434 |
if(endp(cdr((V192)))){ |
if(endp(cdr((V194)))){ |
1435 |
goto T599;} |
goto T619;} |
1436 |
if(!(type_of(cadr((V192)))==t_cons)){ |
if(!(type_of(cadr((V194)))==t_cons)){ |
1437 |
goto T599;} |
goto T619;} |
1438 |
if(!((caadr((V192)))==(VV[35]))){ |
if(!((caadr((V194)))==(VV[35]))){ |
1439 |
goto T599;} |
goto T619;} |
1440 |
if(endp(cdadr((V192)))){ |
if(endp(cdadr((V194)))){ |
1441 |
goto T599;} |
goto T619;} |
1442 |
if(!(type_of(cadadr((V192)))==t_symbol)){ |
if(!(type_of(cadadr((V194)))==t_symbol)){ |
1443 |
goto T599;} |
goto T619;} |
1444 |
if(!(endp(cddadr((V192))))){ |
if(!(endp(cddadr((V194))))){ |
1445 |
goto T599;} |
goto T619;} |
1446 |
if(endp(cddr((V192)))){ |
if(endp(cddr((V194)))){ |
1447 |
goto T599;} |
goto T619;} |
1448 |
if(!(type_of(caddr((V192)))==t_fixnum)){ |
if(!(type_of(caddr((V194)))==t_fixnum)){ |
1449 |
goto T599;} |
goto T619;} |
1450 |
if(!(endp(cdddr((V192))))){ |
if(!(endp(cdddr((V194))))){ |
1451 |
goto T599;} |
goto T619;} |
1452 |
{object V193 = (*(LnkLI149))(car((V192)),cadadr((V192)),caddr((V192))); |
{object V195 = (*(LnkLI149))(car((V194)),cadadr((V194)),caddr((V194))); |
1453 |
VMR24(V193)} |
VMR24(V195)} |
1454 |
T599:; |
goto T619; |
1455 |
{object V194; |
T619:; |
1456 |
V194= (VFUN_NARGS=0,(*(LnkLI127))()); |
{object V196; |
1457 |
{object V195 = list(4,VV[49],(V194),VV[74],(*(LnkLI142))((V192),(V194))); |
V196= (VFUN_NARGS=0,(*(LnkLI127))()); |
1458 |
VMR24(V195)}} |
{object V197 = list(4,VV[49],(V196),VV[74],(*(LnkLI142))((V194),(V196))); |
1459 |
|
VMR24(V197)}} |
1460 |
|
return Cnil; |
1461 |
} |
} |
1462 |
/* local entry for function C1STRUCTURE-REF1 */ |
/* local entry for function C1STRUCTURE-REF1 */ |
1463 |
|
|
1464 |
static object LI25(V199,V200,V201) |
static object LI25(V201,V202,V203) |
1465 |
|
|
1466 |
object V199;object V200;object V201; |
object V201;object V202;object V203; |
1467 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1468 |
|
goto TTL; |
1469 |
TTL:; |
TTL:; |
1470 |
{object V202; |
{object V204; |
1471 |
V202= (VFUN_NARGS=0,(*(LnkLI127))()); |
V204= (VFUN_NARGS=0,(*(LnkLI127))()); |
1472 |
if((symbol_value(VV[69]))==Cnil){ |
if((symbol_value(VV[69]))==Cnil){ |
1473 |
goto T624;} |
goto T644;} |
1474 |
V203= list(4,VV[74],(V199),list(2,VV[35],(V200)),(V201)); |
V205= list(4,VV[74],(V201),list(2,VV[35],(V202)),(V203)); |
1475 |
{object V204 = (*(LnkLI123))(/* INLINE-ARGS */V203); |
{object V206 = (*(LnkLI123))(/* INLINE-ARGS */V205); |
1476 |
VMR25(V204)} |
VMR25(V206)} |
1477 |
T624:; |
goto T644; |
1478 |
{object V205; |
T644:; |
1479 |
object V206; |
{object V207; |
1480 |
V205= get((V200),VV[76],Cnil); |
object V208; |
1481 |
V207= structure_ref((V205),VV[76],2); |
V207= get((V202),VV[76],Cnil); |
1482 |
V206= aref1(/* INLINE-ARGS */V207,fixint((V201))); |
V209= structure_ref((V207),VV[76],2); |
1483 |
V208= aref1(symbol_value(VV[75]),fixint((V206))); |
V208= aref1(/* INLINE-ARGS */V209,fixint((V203))); |
1484 |
V209= (*(LnkLI170))(/* INLINE-ARGS */V208); |
V210= aref1(symbol_value(VV[75]),fixint((V208))); |
1485 |
(void)(structure_set((V202),VV[25],2,/* INLINE-ARGS */V209)); |
V211= (*(LnkLI170))(/* INLINE-ARGS */V210); |
1486 |
V210= (*(LnkLI169))((V199),(V202)); |
(void)(structure_set((V204),VV[25],2,/* INLINE-ARGS */V211)); |
1487 |
V211= (*(LnkLI171))((V200)); |
V212= (*(LnkLI169))((V201),(V204)); |
1488 |
{object V212 = list(6,VV[77],(V202),/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,(V201),(V205)); |
V213= (*(LnkLI171))((V202)); |
1489 |
VMR25(V212)}}} |
{object V214 = list(6,VV[77],(V204),/* INLINE-ARGS */V212,/* INLINE-ARGS */V213,(V203),(V207)); |
1490 |
|
VMR25(V214)}}} |
1491 |
|
base[0]=base[0]; |
1492 |
|
return Cnil; |
1493 |
} |
} |
1494 |
/* local entry for function COERCE-LOC-STRUCTURE-REF */ |
/* local entry for function COERCE-LOC-STRUCTURE-REF */ |
1495 |
|
|
1496 |
static object LI26(V215,V216) |
static object LI26(V217,V218) |
1497 |
|
|
1498 |
object V215;object V216; |
object V217;object V218; |
1499 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1500 |
|
goto TTL; |
1501 |
TTL:; |
TTL:; |
1502 |
{object V217; |
{object V219; |
1503 |
V217= cdr((V215)); |
V219= cdr((V217)); |
|
{object V218; |
|
|
object V219; |
|
|
V218= cadddr((V217)); |
|
|
V219= caddr((V217)); |
|
|
if(((V218))==Cnil){ |
|
|
goto T633;} |
|
1504 |
{object V220; |
{object V220; |
1505 |
register object V221; |
object V221; |
1506 |
V222= structure_ref((V218),VV[76],2); |
V220= cadddr((V219)); |
1507 |
V220= aref1(/* INLINE-ARGS */V222,fixint((V219))); |
V221= caddr((V219)); |
1508 |
V221= aref1(symbol_value(VV[75]),fixint((V220))); |
if(((V220))==Cnil){ |
1509 |
V223= (*(LnkLI170))((V221)); |
goto T653;} |
1510 |
V224= (*(LnkLI172))(/* INLINE-ARGS */V223); |
{object V222; |
1511 |
if(!((/* INLINE-ARGS */V224)==(VV[78]))){ |
register object V223; |
1512 |
goto T637;} |
V224= structure_ref((V220),VV[76],2); |
1513 |
if(!(eql((V220),small_fixnum(0)))){ |
V222= aref1(/* INLINE-ARGS */V224,fixint((V221))); |
1514 |
goto T640;} |
V223= aref1(symbol_value(VV[75]),fixint((V222))); |
1515 |
goto T637; |
V225= (*(LnkLI170))((V223)); |
1516 |
T640:; |
V226= (*(LnkLI172))(/* INLINE-ARGS */V225); |
1517 |
|
if(!((/* INLINE-ARGS */V226)==(VV[78]))){ |
1518 |
|
goto T657;} |
1519 |
|
if(!(eql((V222),small_fixnum(0)))){ |
1520 |
|
goto T660;} |
1521 |
|
goto T657; |
1522 |
|
goto T660; |
1523 |
|
T660:; |
1524 |
base[5]= VV[79]; |
base[5]= VV[79]; |
1525 |
base[6]= (V221); |
base[6]= (V223); |
1526 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1527 |
Lerror(); |
Lerror(); |
1528 |
vs_top=sup; |
vs_top=sup; |
1529 |
T637:; |
goto T657; |
1530 |
V225= car((V215)); |
T657:; |
1531 |
V226= (*(LnkLI170))((V221)); |
V227= car((V217)); |
1532 |
(void)(structure_set(/* INLINE-ARGS */V225,VV[25],2,/* INLINE-ARGS */V226)); |
V228= (*(LnkLI170))((V223)); |
1533 |
V227= (*(LnkLI170))((V221)); |
(void)(structure_set(/* INLINE-ARGS */V227,VV[25],2,/* INLINE-ARGS */V228)); |
1534 |
V228= (*(LnkLI172))(/* INLINE-ARGS */V227); |
V229= (*(LnkLI170))((V223)); |
1535 |
V229= make_cons(car((V217)),Cnil); |
V230= (*(LnkLI172))(/* INLINE-ARGS */V229); |
1536 |
V230= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V229,VV[81])); |
V231= make_cons(car((V219)),Cnil); |
1537 |
V231= list(4,/* INLINE-ARGS */V228,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V230),VV[82],(V219),(V218))); |
V232= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V231,VV[81])); |
1538 |
V232= (*(LnkLI170))((V216)); |
V233= list(4,/* INLINE-ARGS */V230,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V232),VV[82],(V221),(V220))); |
1539 |
{object V233 = (*(LnkLI173))(/* INLINE-ARGS */V231,/* INLINE-ARGS */V232); |
V234= (*(LnkLI170))((V218)); |
1540 |
VMR26(V233)}} |
{object V235 = (*(LnkLI173))(/* INLINE-ARGS */V233,/* INLINE-ARGS */V234); |
1541 |
T633:; |
VMR26(V235)}} |
1542 |
{object V234 = (*(LnkLI175))(); |
goto T653; |
1543 |
VMR26(V234)}}} |
T653:; |
1544 |
|
{object V236 = (*(LnkLI175))(); |
1545 |
|
VMR26(V236)}}} |
1546 |
|
base[0]=base[0]; |
1547 |
|
return Cnil; |
1548 |
} |
} |
1549 |
/* local entry for function C2STRUCTURE-REF */ |
/* local entry for function C2STRUCTURE-REF */ |
1550 |
|
|
1551 |
static object LI27(V239,V240,V241,V242) |
static object LI27(V241,V242,V243,V244) |
1552 |
|
|
1553 |
object V239;object V240;object V241;object V242; |
object V241;object V242;object V243;object V244; |
1554 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1555 |
bds_check; |
bds_check; |
1556 |
|
goto TTL; |
1557 |
TTL:; |
TTL:; |
1558 |
bds_bind(VV[63],symbol_value(VV[63])); |
bds_bind(VV[63],symbol_value(VV[63])); |
1559 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1560 |
{object V243; |
{object V245; |
1561 |
object V244; |
object V246; |
1562 |
V245= make_cons((V239),Cnil); |
V247= make_cons((V241),Cnil); |
1563 |
V246= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V245,VV[83])); |
V248= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V247,VV[83])); |
1564 |
V243= car(/* INLINE-ARGS */V246);{object V247; |
V245= car(/* INLINE-ARGS */V248);{object V249; |
1565 |
V247= symbol_value(VV[75]); |
V249= symbol_value(VV[75]); |
1566 |
V248= structure_ref((V242),VV[76],2); |
V250= structure_ref((V244),VV[76],2); |
1567 |
V249= aref1(/* INLINE-ARGS */V248,fixint((V241))); |
V251= aref1(/* INLINE-ARGS */V250,fixint((V243))); |
1568 |
V244= aref1(V247,fixint(/* INLINE-ARGS */V249));} |
V246= aref1(V249,fixint(/* INLINE-ARGS */V251));} |
1569 |
V250= (*(LnkLI170))((V244)); |
V252= (*(LnkLI170))((V246)); |
1570 |
V251= (*(LnkLI172))(/* INLINE-ARGS */V250); |
V253= (*(LnkLI172))(/* INLINE-ARGS */V252); |
1571 |
V252= list(4,/* INLINE-ARGS */V251,small_fixnum(0),VV[80],list(4,(V243),(V240),(V241),(V242))); |
V254= list(4,/* INLINE-ARGS */V253,small_fixnum(0),VV[80],list(4,(V245),(V242),(V243),(V244))); |
1572 |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V252)));} |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V254)));} |
1573 |
{object V253 = (*(LnkLI163))(); |
{object V255 = (*(LnkLI163))(); |
1574 |
bds_unwind1; |
bds_unwind1; |
1575 |
bds_unwind1; |
bds_unwind1; |
1576 |
VMR27(V253)} |
VMR27(V255)} |
1577 |
|
base[0]=base[0]; |
1578 |
|
return Cnil; |
1579 |
} |
} |
1580 |
/* local entry for function MY-CALL */ |
/* local entry for function MY-CALL */ |
1581 |
|
|
1582 |
static object LI28(V258,V259,V260,V261) |
static object LI28(V260,V261,V262,V263) |
1583 |
|
|
1584 |
object V258;object V259;object V260;object V261; |
object V260;object V261;object V262;object V263; |
1585 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1586 |
|
goto TTL; |
1587 |
TTL:; |
TTL:; |
1588 |
{object V262; |
{object V264; |
1589 |
object V263; |
object V265; |
1590 |
V262= structure_ref((V261),VV[76],2); |
V264= structure_ref((V263),VV[76],2); |
1591 |
V263= structure_ref((V261),VV[76],8); |
V265= structure_ref((V263),VV[76],8); |
1592 |
if((symbol_value(VV[69]))==Cnil){ |
if((symbol_value(VV[69]))==Cnil){ |
1593 |
goto T652;} |
goto T672;} |
1594 |
{object V264 = (*(LnkLI175))(); |
{object V266 = (*(LnkLI175))(); |
1595 |
VMR28(V264)} |
VMR28(V266)} |
1596 |
T652:; |
goto T672; |
1597 |
princ_str("STREF(",VV[62]);{object V265; |
T672:; |
1598 |
V265= symbol_value(VV[75]); |
princ_str("STREF(",VV[62]);{object V267; |
1599 |
V266= aref1((V262),fixint((V260))); |
V267= symbol_value(VV[75]); |
1600 |
V267= aref1(V265,fixint(/* INLINE-ARGS */V266)); |
V268= aref1((V264),fixint((V262))); |
1601 |
V268= (*(LnkLI176))(/* INLINE-ARGS */V267); |
V269= aref1(V267,fixint(/* INLINE-ARGS */V268)); |
1602 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V268));} |
V270= (*(LnkLI176))(/* INLINE-ARGS */V269); |
1603 |
|
(void)((*(LnkLI165))(/* INLINE-ARGS */V270));} |
1604 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1605 |
(void)((*(LnkLI165))((V258))); |
(void)((*(LnkLI165))((V260))); |
1606 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1607 |
V269= aref1((V263),fixint((V260))); |
V271= aref1((V265),fixint((V262))); |
1608 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V269)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V271)); |
1609 |
princ_char(41,VV[62]); |
princ_char(41,VV[62]); |
1610 |
{object V270 = Cnil; |
{object V272 = Cnil; |
1611 |
VMR28(V270)}} |
VMR28(V272)}} |
1612 |
|
base[0]=base[0]; |
1613 |
|
return Cnil; |
1614 |
} |
} |
1615 |
/* local entry for function C1STRUCTURE-SET */ |
/* local entry for function C1STRUCTURE-SET */ |
1616 |
|
|
1617 |
static object LI29(V272) |
static object LI29(V274) |
1618 |
|
|
1619 |
register object V272; |
register object V274; |
1620 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1621 |
|
goto TTL; |
1622 |
TTL:; |
TTL:; |
1623 |
{register object V273; |
{register object V275; |
1624 |
V273= (VFUN_NARGS=0,(*(LnkLI127))()); |
V275= (VFUN_NARGS=0,(*(LnkLI127))()); |
1625 |
if(endp((V272))){ |
if(endp((V274))){ |
1626 |
goto T663;} |
goto T683;} |
1627 |
if((symbol_value(VV[69]))!=Cnil){ |
if((symbol_value(VV[69]))!=Cnil){ |
1628 |
goto T663;} |
goto T683;} |
1629 |
if(endp(cdr((V272)))){ |
if(endp(cdr((V274)))){ |
1630 |
goto T663;} |
goto T683;} |
1631 |
if(!(type_of(cadr((V272)))==t_cons)){ |
if(!(type_of(cadr((V274)))==t_cons)){ |
1632 |
goto T663;} |
goto T683;} |
1633 |
if(!((caadr((V272)))==(VV[35]))){ |
if(!((caadr((V274)))==(VV[35]))){ |
1634 |
goto T663;} |
goto T683;} |
1635 |
if(endp(cdadr((V272)))){ |
if(endp(cdadr((V274)))){ |
1636 |
goto T663;} |
goto T683;} |
1637 |
if(!(type_of(cadadr((V272)))==t_symbol)){ |
if(!(type_of(cadadr((V274)))==t_symbol)){ |
1638 |
goto T663;} |
goto T683;} |
1639 |
if(!(endp(cddadr((V272))))){ |
if(!(endp(cddadr((V274))))){ |
1640 |
goto T663;} |
goto T683;} |
1641 |
if(endp(cddr((V272)))){ |
if(endp(cddr((V274)))){ |
1642 |
goto T663;} |
goto T683;} |
1643 |
if(!(type_of(caddr((V272)))==t_fixnum)){ |
if(!(type_of(caddr((V274)))==t_fixnum)){ |
1644 |
goto T663;} |
goto T683;} |
1645 |
if(endp(cdddr((V272)))){ |
if(endp(cdddr((V274)))){ |
1646 |
goto T663;} |
goto T683;} |
1647 |
if(!(endp(cddddr((V272))))){ |
if(!(endp(cddddr((V274))))){ |
1648 |
goto T663;} |
goto T683;} |
1649 |
{object V274; |
{object V276; |
1650 |
object V275; |
object V277; |
1651 |
V274= (*(LnkLI123))(car((V272))); |
V276= (*(LnkLI123))(car((V274))); |
1652 |
V275= (*(LnkLI123))(cadddr((V272))); |
V277= (*(LnkLI123))(cadddr((V274))); |
1653 |
(void)((*(LnkLI124))((V273),cadr((V274)))); |
(void)((*(LnkLI124))((V275),cadr((V276)))); |
1654 |
(void)((*(LnkLI124))((V273),cadr((V275)))); |
(void)((*(LnkLI124))((V275),cadr((V277)))); |
1655 |
V276= structure_ref(cadr((V275)),VV[25],2); |
V278= structure_ref(cadr((V277)),VV[25],2); |
1656 |
(void)(structure_set((V273),VV[25],2,/* INLINE-ARGS */V276)); |
(void)(structure_set((V275),VV[25],2,/* INLINE-ARGS */V278)); |
1657 |
V277= (*(LnkLI171))(cadadr((V272))); |
V279= (*(LnkLI171))(cadadr((V274))); |
1658 |
V278= caddr((V272)); |
V280= caddr((V274)); |
1659 |
V279= get(cadadr((V272)),VV[76],Cnil); |
V281= get(cadadr((V274)),VV[76],Cnil); |
1660 |
{object V280 = list(7,VV[84],(V273),(V274),/* INLINE-ARGS */V277,/* INLINE-ARGS */V278,(V275),V279); |
{object V282 = list(7,VV[84],(V275),(V276),/* INLINE-ARGS */V279,/* INLINE-ARGS */V280,(V277),V281); |
1661 |
VMR29(V280)}} |
VMR29(V282)}} |
1662 |
T663:; |
goto T683; |
1663 |
{object V281 = list(4,VV[49],(V273),VV[85],(*(LnkLI142))((V272),(V273))); |
T683:; |
1664 |
VMR29(V281)}} |
{object V283 = list(4,VV[49],(V275),VV[85],(*(LnkLI142))((V274),(V275))); |
1665 |
|
VMR29(V283)}} |
1666 |
|
base[0]=base[0]; |
1667 |
|
return Cnil; |
1668 |
} |
} |
1669 |
/* local entry for function C2STRUCTURE-SET */ |
/* local entry for function C2STRUCTURE-SET */ |
1670 |
|
|
1671 |
static object LI30(V287,V288,V289,V290,V291) |
static object LI30(V289,V290,V291,V292,V293) |
1672 |
|
|
1673 |
object V287;object V288;object V289;object V290;object V291; |
object V289;object V290;object V291;object V292;object V293; |
1674 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1675 |
bds_check; |
bds_check; |
1676 |
|
goto TTL; |
1677 |
TTL:; |
TTL:; |
1678 |
{object V292; |
{object V294; |
1679 |
V292= Cnil; |
V294= Cnil; |
1680 |
bds_bind(VV[63],symbol_value(VV[63])); |
bds_bind(VV[63],symbol_value(VV[63])); |
1681 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1682 |
{object V293; |
{object V295; |
|
object V294; |
|
|
object V295; |
|
1683 |
object V296; |
object V296; |
1684 |
object V297; |
object V297; |
1685 |
object V298; |
object V298; |
1686 |
V293= structure_ref((V291),VV[76],2);{object V299; |
object V299; |
1687 |
V299= symbol_value(VV[75]); |
object V300; |
1688 |
V300= aref1((V293),fixint((V289))); |
V295= structure_ref((V293),VV[76],2);{object V301; |
1689 |
V294= aref1(V299,fixint(/* INLINE-ARGS */V300));} |
V301= symbol_value(VV[75]); |
1690 |
V295= structure_ref((V291),VV[76],8); |
V302= aref1((V295),fixint((V291))); |
1691 |
V296= (*(LnkLI170))((V294)); |
V296= aref1(V301,fixint(/* INLINE-ARGS */V302));} |
1692 |
V297= Cnil; |
V297= structure_ref((V293),VV[76],8); |
1693 |
V298= Cnil; |
V298= (*(LnkLI170))((V296)); |
1694 |
V301= (VFUN_NARGS=0,(*(LnkLI127))()); |
V299= Cnil; |
1695 |
V302= list(3,(V287),(V290),list(4,VV[49],/* INLINE-ARGS */V301,VV[86],Cnil)); |
V300= Cnil; |
1696 |
if(!(((V294))==(Ct))){ |
V303= (VFUN_NARGS=0,(*(LnkLI127))()); |
1697 |
goto T705;} |
V304= list(3,(V289),(V292),list(4,VV[49],/* INLINE-ARGS */V303,VV[86],Cnil)); |
1698 |
V303= VV[87]; |
if(!(((V296))==(Ct))){ |
1699 |
goto T703; |
goto T725;} |
1700 |
T705:; |
V305= VV[87]; |
1701 |
V303= list(3,Ct,(V296),Ct); |
goto T723; |
1702 |
T703:; |
goto T725; |
1703 |
V292= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V302,V303)); |
T725:; |
1704 |
V297= car((V292)); |
V305= list(3,Ct,(V298),Ct); |
1705 |
V298= cadr((V292)); |
goto T723; |
1706 |
|
T723:; |
1707 |
|
V294= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V304,V305)); |
1708 |
|
V299= car((V294)); |
1709 |
|
V300= cadr((V294)); |
1710 |
if((symbol_value(VV[69]))==Cnil){ |
if((symbol_value(VV[69]))==Cnil){ |
1711 |
goto T711;} |
goto T731;} |
1712 |
(void)((*(LnkLI175))()); |
(void)((*(LnkLI175))()); |
1713 |
T711:; |
goto T731; |
1714 |
|
T731:; |
1715 |
princ_str("\n STSET(",VV[62]); |
princ_str("\n STSET(",VV[62]); |
1716 |
V304= (*(LnkLI176))((V294)); |
V306= (*(LnkLI176))((V296)); |
1717 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V304)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V306)); |
1718 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1719 |
(void)((*(LnkLI165))((V297))); |
(void)((*(LnkLI165))((V299))); |
1720 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1721 |
V305= aref1((V295),fixint((V289))); |
V307= aref1((V297),fixint((V291))); |
1722 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V305)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V307)); |
1723 |
princ_str(", ",VV[62]); |
princ_str(", ",VV[62]); |
1724 |
(void)((*(LnkLI165))((V298))); |
(void)((*(LnkLI165))((V300))); |
1725 |
princ_str(");",VV[62]); |
princ_str(");",VV[62]); |
1726 |
V306= (*(LnkLI172))((V296)); |
V308= (*(LnkLI172))((V298)); |
1727 |
V307= list(4,/* INLINE-ARGS */V306,small_fixnum(0),VV[88],make_cons((V298),Cnil)); |
V309= list(4,/* INLINE-ARGS */V308,small_fixnum(0),VV[88],make_cons((V300),Cnil)); |
1728 |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V307))); |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V309))); |
1729 |
{object V308 = (*(LnkLI163))(); |
{object V310 = (*(LnkLI163))(); |
1730 |
bds_unwind1; |
bds_unwind1; |
1731 |
bds_unwind1; |
bds_unwind1; |
1732 |
VMR30(V308)}}} |
VMR30(V310)}}} |
1733 |
|
base[0]=base[0]; |
1734 |
|
return Cnil; |
1735 |
} |
} |
1736 |
/* local entry for function C1CONSTANT-VALUE */ |
/* local entry for function C1CONSTANT-VALUE */ |
1737 |
|
|
1738 |
static object LI31(V311,V312) |
static object LI31(V313,V314) |
1739 |
|
|
1740 |
register object V311;object V312; |
register object V313;object V314; |
1741 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1742 |
|
goto TTL; |
1743 |
TTL:; |
TTL:; |
1744 |
if(!(((V311))==(Cnil))){ |
if(!(((V313))==(Cnil))){ |
1745 |
goto T726;} |
goto T746;} |
1746 |
{object V313 = (*(LnkLI125))(); |
{object V315 = (*(LnkLI125))(); |
1747 |
VMR31(V313)} |
VMR31(V315)} |
1748 |
T726:; |
goto T746; |
1749 |
if(!(((V311))==(Ct))){ |
T746:; |
1750 |
goto T729;} |
if(!(((V313))==(Ct))){ |
1751 |
{object V314 = (*(LnkLI126))(); |
goto T749;} |
1752 |
VMR31(V314)} |
{object V316 = (*(LnkLI126))(); |
1753 |
T729:; |
VMR31(V316)} |
1754 |
if(!(type_of((V311))==t_fixnum)){ |
goto T749; |
1755 |
goto T732;} |
T749:; |
1756 |
V315= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89])); |
if(!(type_of((V313))==t_fixnum)){ |
1757 |
V317= (*(LnkLI177))((V311)); |
goto T752;} |
1758 |
if(number_compare(/* INLINE-ARGS */V317,VV[91])>=0){ |
V317= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89])); |
1759 |
goto T735;} |
V319= (*(LnkLI177))((V313)); |
1760 |
V316= Cnil; |
if(number_compare(/* INLINE-ARGS */V319,VV[91])>=0){ |
1761 |
goto T734; |
goto T755;} |
1762 |
T735:; |
V318= Cnil; |
1763 |
V316= (*(LnkLI129))((V311)); |
goto T754; |
1764 |
T734:; |
goto T755; |
1765 |
{object V318 = list(3,VV[1],/* INLINE-ARGS */V315,list(3,VV[90],V316,(V311))); |
T755:; |
1766 |
VMR31(V318)} |
V318= (*(LnkLI129))((V313)); |
1767 |
T732:; |
goto T754; |
1768 |
if(!(type_of((V311))==t_character)){ |
T754:; |
1769 |
goto T738;} |
{object V320 = list(3,VV[1],/* INLINE-ARGS */V317,list(3,VV[90],V318,(V313))); |
1770 |
V319= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44])); |
VMR31(V320)} |
1771 |
V320= (*(LnkLI129))((V311)); |
goto T752; |
1772 |
base[0]= (V311); |
T752:; |
1773 |
|
if(!(type_of((V313))==t_character)){ |
1774 |
|
goto T758;} |
1775 |
|
V321= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44])); |
1776 |
|
V322= (*(LnkLI129))((V313)); |
1777 |
|
base[0]= (V313); |
1778 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1779 |
Lchar_code(); |
Lchar_code(); |
1780 |
vs_top=sup; |
vs_top=sup; |
1781 |
V321= vs_base[0]; |
V323= vs_base[0]; |
1782 |
{object V322 = list(3,VV[1],/* INLINE-ARGS */V319,list(3,VV[92],/* INLINE-ARGS */V320,V321)); |
{object V324 = list(3,VV[1],/* INLINE-ARGS */V321,list(3,VV[92],/* INLINE-ARGS */V322,V323)); |
1783 |
VMR31(V322)} |
VMR31(V324)} |
1784 |
T738:; |
goto T758; |
1785 |
if(!(type_of((V311))==t_longfloat)){ |
T758:; |
1786 |
goto T743;} |
if(!(type_of((V313))==t_longfloat)){ |
1787 |
{object V323; |
goto T763;} |
1788 |
object V324; |
{object V325; |
1789 |
V323= Cnil; |
object V326; |
1790 |
V324= Cnil; |
V325= Cnil; |
1791 |
{register object x= (V311),V326= symbol_value(VV[93]); |
V326= Cnil; |
1792 |
while(!endp(V326)) |
{register object x= (V313),V328= symbol_value(VV[93]); |
1793 |
if(type_of(V326->c.c_car)==t_cons &&eql(x,V326->c.c_car->c.c_car)){ |
while(!endp(V328)) |
1794 |
V325= (V326->c.c_car); |
if(type_of(V328->c.c_car)==t_cons &&eql(x,V328->c.c_car->c.c_car)){ |
1795 |
goto T749; |
V327= (V328->c.c_car); |
1796 |
}else V326=V326->c.c_cdr; |
goto T769; |
1797 |
V325= Cnil;} |
}else V328=V328->c.c_cdr; |
1798 |
T749:; |
V327= Cnil;} |
1799 |
V323= cadr(V325); |
goto T769; |
1800 |
if(((V323))!=Cnil){ |
T769:; |
1801 |
goto T745;} |
V325= cadr(V327); |
1802 |
V324= (*(LnkLI177))((V311)); |
if(((V325))!=Cnil){ |
1803 |
|
goto T765;} |
1804 |
|
V326= (*(LnkLI177))((V313)); |
1805 |
base[0]= VV[94]; |
base[0]= VV[94]; |
1806 |
base[1]= small_fixnum(2); |
base[1]= small_fixnum(2); |
1807 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1808 |
Ldivide(); |
Ldivide(); |
1809 |
vs_top=sup; |
vs_top=sup; |
1810 |
V327= vs_base[0]; |
V329= vs_base[0]; |
1811 |
if(!(number_compare((V324),V327)>0)){ |
if(!(number_compare((V326),V329)>0)){ |
1812 |
goto T751;} |
goto T771;} |
1813 |
base[0]= (V311); |
base[0]= (V313); |
1814 |
base[1]= VV[94]; |
base[1]= VV[94]; |
1815 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1816 |
Ldivide(); |
Ldivide(); |
1817 |
vs_top=sup; |
vs_top=sup; |
1818 |
V328= vs_base[0]; |
V330= vs_base[0]; |
1819 |
V329= list(4,VV[5],VV[19],V328,VV[95]); |
V331= list(4,VV[5],VV[19],V330,VV[95]); |
1820 |
if(((*(LnkLI123))(/* INLINE-ARGS */V329))!=Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V331))!=Cnil){ |
1821 |
goto T750;} |
goto T770;} |
1822 |
T751:; |
goto T771; |
1823 |
V330 = make_longfloat((double)(4.9406564584124650e-324)*(double)(1.0000000e+20)); |
T771:; |
1824 |
if(!(number_compare((V324),V330)<0)){ |
V332 = make_longfloat((double)(4.9406564584124650e-324)*(double)(1.0000000e+20)); |
1825 |
goto T745;} |
if(!(number_compare((V326),V332)<0)){ |
1826 |
base[0]= (V311); |
goto T765;} |
1827 |
|
base[0]= (V313); |
1828 |
base[1]= VV[96]; |
base[1]= VV[96]; |
1829 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1830 |
Ldivide(); |
Ldivide(); |
1831 |
vs_top=sup; |
vs_top=sup; |
1832 |
V331= vs_base[0]; |
V333= vs_base[0]; |
1833 |
V332= list(4,VV[5],VV[19],V331,VV[98]); |
V334= list(4,VV[5],VV[19],V333,VV[98]); |
1834 |
if(((*(LnkLI123))(/* INLINE-ARGS */V332))==Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V334))==Cnil){ |
1835 |
goto T745;} |
goto T765;} |
1836 |
T750:; |
goto T770; |
|
V323= symbol_value(VV[99]); |
|
|
V333= list(2,(V311),(V323)); |
|
|
setq(VV[93],make_cons(/* INLINE-ARGS */V333,symbol_value(VV[93]))); |
|
|
T745:; |
|
|
V334= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
|
|
if((V323)!=Cnil){ |
|
|
V335= (V323); |
|
|
goto T770;} |
|
|
V335= (*(LnkLI129))((V311)); |
|
1837 |
T770:; |
T770:; |
1838 |
{object V336 = list(3,VV[1],/* INLINE-ARGS */V334,list(3,VV[101],V335,(V311))); |
V325= symbol_value(VV[99]); |
1839 |
VMR31(V336)}} |
V335= list(2,(V313),(V325)); |
1840 |
T743:; |
setq(VV[93],make_cons(/* INLINE-ARGS */V335,symbol_value(VV[93]))); |
1841 |
if(!(type_of((V311))==t_shortfloat)){ |
goto T765; |
1842 |
goto T772;} |
T765:; |
1843 |
V337= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102])); |
V336= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
1844 |
V338= (*(LnkLI129))((V311)); |
if((V325)!=Cnil){ |
1845 |
{object V339 = list(3,VV[1],/* INLINE-ARGS */V337,list(3,VV[103],/* INLINE-ARGS */V338,(V311))); |
V337= (V325); |
1846 |
VMR31(V339)} |
goto T790;} |
1847 |
T772:; |
V337= (*(LnkLI129))((V313)); |
1848 |
if(((V312))==Cnil){ |
goto T790; |
1849 |
goto T775;} |
T790:; |
1850 |
V340= (*(LnkLI128))((V311)); |
{object V338 = list(3,VV[1],/* INLINE-ARGS */V336,list(3,VV[101],V337,(V313))); |
1851 |
V341= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V340)); |
VMR31(V338)}} |
1852 |
{object V342 = list(3,VV[1],/* INLINE-ARGS */V341,list(2,VV[3],(*(LnkLI129))((V311)))); |
goto T763; |
1853 |
VMR31(V342)} |
T763:; |
1854 |
T775:; |
if(!(type_of((V313))==t_shortfloat)){ |
1855 |
{object V343 = Cnil; |
goto T792;} |
1856 |
VMR31(V343)} |
V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102])); |
1857 |
|
V340= (*(LnkLI129))((V313)); |
1858 |
|
{object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[103],/* INLINE-ARGS */V340,(V313))); |
1859 |
|
VMR31(V341)} |
1860 |
|
goto T792; |
1861 |
|
T792:; |
1862 |
|
if(((V314))==Cnil){ |
1863 |
|
goto T795;} |
1864 |
|
V342= (*(LnkLI128))((V313)); |
1865 |
|
V343= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V342)); |
1866 |
|
{object V344 = list(3,VV[1],/* INLINE-ARGS */V343,list(2,VV[3],(*(LnkLI129))((V313)))); |
1867 |
|
VMR31(V344)} |
1868 |
|
goto T795; |
1869 |
|
T795:; |
1870 |
|
{object V345 = Cnil; |
1871 |
|
VMR31(V345)} |
1872 |
|
base[0]=base[0]; |
1873 |
|
return Cnil; |
1874 |
} |
} |
1875 |
/* macro definition for DEFINE-COMPILER-MACRO */ |
/* macro definition for DEFINE-COMPILER-MACRO */ |
1876 |
|
|
1877 |
static L32() |
static void L32() |
1878 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1879 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
1880 |
vs_reserve(VM32); |
vs_reserve(VM32); |
1881 |
check_arg(2); |
check_arg(2); |
1882 |
vs_top=sup; |
vs_top=sup; |
1883 |
{object V344=base[0]->c.c_cdr; |
{object V346=base[0]->c.c_cdr; |
1884 |
if(endp(V344))invalid_macro_call(); |
if(endp(V346))invalid_macro_call(); |
1885 |
base[2]= (V344->c.c_car); |
base[2]= (V346->c.c_car); |
1886 |
V344=V344->c.c_cdr; |
V346=V346->c.c_cdr; |
1887 |
if(endp(V344))invalid_macro_call(); |
if(endp(V346))invalid_macro_call(); |
1888 |
base[3]= (V344->c.c_car); |
base[3]= (V346->c.c_car); |
1889 |
V344=V344->c.c_cdr; |
V346=V346->c.c_cdr; |
1890 |
base[4]= V344;} |
base[4]= V346;} |
1891 |
V345= list(2,VV[35],base[2]); |
V347= list(2,VV[35],base[2]); |
1892 |
V346= list(2,VV[35],base[2]); |
V348= list(2,VV[35],base[2]); |
1893 |
V347= list(2,VV[35],base[3]); |
V349= list(2,VV[35],base[3]); |
1894 |
V348= list(4,VV[104],/* INLINE-ARGS */V345,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V346,/* INLINE-ARGS */V347,list(2,VV[35],base[4]))),VV[107]); |
V350= list(4,VV[104],/* INLINE-ARGS */V347,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V348,/* INLINE-ARGS */V349,list(2,VV[35],base[4]))),VV[107]); |
1895 |
base[5]= list(3,VV[71],/* INLINE-ARGS */V348,list(2,VV[35],base[2])); |
base[5]= list(3,VV[71],/* INLINE-ARGS */V350,list(2,VV[35],base[2])); |
1896 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1897 |
return; |
return; |
1898 |
} |
} |
1899 |
/* local entry for function UNDEF-COMPILER-MACRO */ |
/* local entry for function UNDEF-COMPILER-MACRO */ |
1900 |
|
|
1901 |
static object LI33(V350) |
static object LI33(V352) |
1902 |
|
|
1903 |
object V350; |
object V352; |
1904 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1905 |
|
goto TTL; |
1906 |
TTL:; |
TTL:; |
1907 |
{object V351 = remprop((V350),VV[33]); |
{object V353 = remprop((V352),VV[33]); |
1908 |
VMR33(V351)} |
VMR33(V353)} |
1909 |
|
return Cnil; |
1910 |
} |
} |
1911 |
/* macro definition for DEFINE-INLINE-FUNCTION */ |
/* macro definition for DEFINE-INLINE-FUNCTION */ |
1912 |
|
|
1913 |
static L34() |
static void L34() |
1914 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1915 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1916 |
vs_reserve(VM34); |
vs_reserve(VM34); |
1917 |
bds_check; |
bds_check; |
1918 |
check_arg(2); |
check_arg(2); |
1919 |
vs_top=sup; |
vs_top=sup; |
1920 |
{object V352=base[0]->c.c_cdr; |
{object V354=base[0]->c.c_cdr; |
1921 |
if(endp(V352))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
1922 |
base[2]= (V352->c.c_car); |
base[2]= (V354->c.c_car); |
1923 |
V352=V352->c.c_cdr; |
V354=V354->c.c_cdr; |
1924 |
if(endp(V352))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
1925 |
base[3]= (V352->c.c_car); |
base[3]= (V354->c.c_car); |
1926 |
V352=V352->c.c_cdr; |
V354=V354->c.c_cdr; |
1927 |
base[4]= V352;} |
base[4]= V354;} |
1928 |
{register object V353; |
{register object V355; |
1929 |
V353= Cnil; |
V355= Cnil; |
1930 |
bds_bind(VV[108],symbol_value(VV[108])); |
bds_bind(VV[108],symbol_value(VV[108])); |
1931 |
{register object V354; |
{register object V356; |
1932 |
register object V355; |
register object V357; |
1933 |
V354= base[3]; |
V356= base[3]; |
1934 |
V355= car((V354)); |
V357= car((V356)); |
1935 |
T781:; |
goto T801; |
1936 |
if(!(endp((V354)))){ |
T801:; |
1937 |
goto T782;} |
if(!(endp((V356)))){ |
1938 |
goto T777; |
goto T802;} |
1939 |
T782:; |
goto T797; |
1940 |
if(!(type_of((V355))==t_symbol)){ |
goto T802; |
1941 |
goto T788;} |
T802:; |
1942 |
{register object x= (V355),V356= VV[109]; |
if(!(type_of((V357))==t_symbol)){ |
1943 |
while(!endp(V356)) |
goto T808;} |
1944 |
if(x==(V356->c.c_car)){ |
{register object x= (V357),V358= VV[109]; |
1945 |
goto T788; |
while(!endp(V358)) |
1946 |
}else V356=V356->c.c_cdr;}{object V358; |
if(x==(V358->c.c_car)){ |
1947 |
{register object V359; |
goto T808; |
1948 |
V359= car((VV[108]->s.s_dbind)); |
}else V358=V358->c.c_cdr;}{object V360; |
1949 |
|
{register object V361; |
1950 |
|
V361= car((VV[108]->s.s_dbind)); |
1951 |
(VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind)); |
(VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind)); |
1952 |
V358= (V359);} |
V360= (V361);} |
1953 |
if(V358==Cnil)goto T794; |
if(V360==Cnil)goto T814; |
1954 |
V357= V358; |
V359= V360; |
1955 |
goto T793; |
goto T813; |
1956 |
T794:;} |
goto T814; |
1957 |
|
T814:;} |
1958 |
base[7]= VV[110]; |
base[7]= VV[110]; |
1959 |
base[9]= VV[111]; |
base[9]= VV[111]; |
1960 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1964 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1965 |
Lgentemp(); |
Lgentemp(); |
1966 |
vs_top=sup; |
vs_top=sup; |
1967 |
V357= vs_base[0]; |
V359= vs_base[0]; |
1968 |
T793:; |
goto T813; |
1969 |
V353= make_cons(V357,(V353)); |
T813:; |
1970 |
goto T786; |
V355= make_cons(V359,(V355)); |
1971 |
T788:; |
goto T806; |
1972 |
|
goto T808; |
1973 |
|
T808:; |
1974 |
base[7]= VV[112]; |
base[7]= VV[112]; |
1975 |
base[8]= (V355); |
base[8]= (V357); |
1976 |
base[9]= base[2]; |
base[9]= base[2]; |
1977 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1978 |
Lerror(); |
Lerror(); |
1979 |
vs_top=sup; |
vs_top=sup; |
1980 |
T786:; |
goto T806; |
1981 |
V354= cdr((V354)); |
T806:; |
1982 |
V355= car((V354)); |
V356= cdr((V356)); |
1983 |
goto T781;} |
V357= car((V356)); |
1984 |
T777:; |
goto T801;} |
1985 |
{object V360; |
goto T797; |
1986 |
|
T797:; |
1987 |
{object V362; |
{object V362; |
1988 |
object V363= base[3]; |
{object V364; |
1989 |
object V364= (V353); |
object V365= base[3]; |
1990 |
if(endp(V363)||endp(V364)){ |
object V366= (V355); |
1991 |
V361= Cnil; |
if(endp(V365)||endp(V366)){ |
1992 |
goto T811;} |
V363= Cnil; |
1993 |
base[6]=V362=MMcons(Cnil,Cnil); |
goto T831;} |
1994 |
T812:; |
base[6]=V364=MMcons(Cnil,Cnil); |
1995 |
(V362->c.c_car)= list(3,VV[113],list(2,VV[35],(V363->c.c_car)),(V364->c.c_car)); |
goto T832; |
1996 |
if(endp(V363=MMcdr(V363))||endp(V364=MMcdr(V364))){ |
T832:; |
1997 |
V361= base[6]; |
(V364->c.c_car)= list(3,VV[113],list(2,VV[35],(V365->c.c_car)),(V366->c.c_car)); |
1998 |
goto T811;} |
if(endp(V365=MMcdr(V365))||endp(V366=MMcdr(V366))){ |
1999 |
V362=MMcdr(V362)=MMcons(Cnil,Cnil); |
V363= base[6]; |
2000 |
goto T812;} |
goto T831;} |
2001 |
T811:; |
V364=MMcdr(V364)=MMcons(Cnil,Cnil); |
2002 |
V360= make_cons(VV[113],V361); |
goto T832;} |
2003 |
V367= listA(4,VV[114],base[2],base[3],base[4]); |
goto T831; |
2004 |
base[6]= list(3,VV[71],/* INLINE-ARGS */V367,list(4,VV[115],base[2],(V353),list(4,VV[116],VV[117],(V360),list(2,VV[35],base[4])))); |
T831:; |
2005 |
|
V362= make_cons(VV[113],V363); |
2006 |
|
V369= listA(4,VV[114],base[2],base[3],base[4]); |
2007 |
|
base[6]= list(3,VV[71],/* INLINE-ARGS */V369,list(4,VV[115],base[2],(V355),list(4,VV[116],VV[117],(V362),list(2,VV[35],base[4])))); |
2008 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2009 |
bds_unwind1; |
bds_unwind1; |
2010 |
return;}} |
return;}} |
2011 |
} |
} |
2012 |
/* local entry for function NAME-TO-SD */ |
/* local entry for function NAME-TO-SD */ |
2013 |
|
|
2014 |
static object LI35(V369) |
static object LI35(V371) |
2015 |
|
|
2016 |
object V369; |
object V371; |
2017 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2018 |
|
goto TTL; |
2019 |
TTL:; |
TTL:; |
2020 |
{object V370; |
{object V372; |
2021 |
V370= Cnil;{object V371; |
V372= Cnil;{object V373; |
2022 |
if(type_of((V369))==t_symbol){ |
if(type_of((V371))==t_symbol){ |
2023 |
goto T818;} |
goto T838;} |
2024 |
V371= Cnil; |
V373= Cnil; |
2025 |
goto T817; |
goto T837; |
2026 |
T818:; |
goto T838; |
2027 |
V370= get((V369),VV[76],Cnil); |
T838:; |
2028 |
V371= (V370); |
V372= get((V371),VV[76],Cnil); |
2029 |
T817:; |
V373= (V372); |
2030 |
if(V371==Cnil)goto T816; |
goto T837; |
2031 |
goto T815; |
T837:; |
2032 |
T816:;} |
if(V373==Cnil)goto T836; |
2033 |
|
goto T835; |
2034 |
|
goto T836; |
2035 |
|
T836:;} |
2036 |
base[0]= VV[118]; |
base[0]= VV[118]; |
2037 |
base[1]= (V369); |
base[1]= (V371); |
2038 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2039 |
Lerror(); |
Lerror(); |
2040 |
vs_top=sup; |
vs_top=sup; |
2041 |
T815:; |
goto T835; |
2042 |
{object V372 = (V370); |
T835:; |
2043 |
VMR35(V372)}} |
{object V374 = (V372); |
2044 |
|
VMR35(V374)}} |
2045 |
|
base[0]=base[0]; |
2046 |
|
return Cnil; |
2047 |
} |
} |
2048 |
/* local entry for function NAME-SD1 */ |
/* local entry for function NAME-SD1 */ |
2049 |
|
|
2050 |
static object LI36(V374) |
static object LI36(V376) |
2051 |
|
|
2052 |
object V374; |
object V376; |
2053 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2054 |
TTL:;{object V375; |
goto TTL; |
2055 |
V375= get((V374),VV[119],Cnil); |
TTL:;{object V377; |
2056 |
if(V375==Cnil)goto T823; |
V377= get((V376),VV[119],Cnil); |
2057 |
{object V376 = V375; |
if(V377==Cnil)goto T843; |
2058 |
VMR36(V376)} |
{object V378 = V377; |
|
T823:;} |
|
|
V377= list(3,VV[5],VV[119],list(2,VV[35],(V374))); |
|
|
{object V378 = sputprop((V374),VV[120],/* INLINE-ARGS */V377); |
|
2059 |
VMR36(V378)} |
VMR36(V378)} |
2060 |
|
goto T843; |
2061 |
|
T843:;} |
2062 |
|
V379= list(3,VV[5],VV[119],list(2,VV[35],(V376))); |
2063 |
|
{object V380 = sputprop((V376),VV[120],/* INLINE-ARGS */V379); |
2064 |
|
VMR36(V380)} |
2065 |
|
return Cnil; |
2066 |
} |
} |
2067 |
/* local entry for function CO1STRUCTURE-PREDICATE */ |
/* local entry for function CO1STRUCTURE-PREDICATE */ |
2068 |
|
|
2069 |
static object LI37(V381,V382) |
static object LI37(V383,V384) |
2070 |
|
|
2071 |
object V381;object V382; |
object V383;object V384; |
2072 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
2073 |
|
goto TTL; |
2074 |
TTL:; |
TTL:; |
2075 |
{object V383; |
{object V385; |
2076 |
V383= Cnil; |
V385= Cnil; |
2077 |
if(!(type_of((V381))==t_symbol)){ |
if(!(type_of((V383))==t_symbol)){ |
2078 |
goto T827;} |
goto T847;} |
2079 |
V383= get((V381),VV[121],Cnil); |
V385= get((V383),VV[121],Cnil); |
2080 |
if(((V383))==Cnil){ |
if(((V385))==Cnil){ |
2081 |
goto T827;} |
goto T847;} |
2082 |
V384= car((V382)); |
V386= car((V384)); |
2083 |
V385= list(3,VV[122],/* INLINE-ARGS */V384,list(2,VV[35],(V383))); |
V387= list(3,VV[122],/* INLINE-ARGS */V386,list(2,VV[35],(V385))); |
2084 |
{object V386 = (*(LnkLI123))(/* INLINE-ARGS */V385); |
{object V388 = (*(LnkLI123))(/* INLINE-ARGS */V387); |
2085 |
VMR37(V386)} |
VMR37(V388)} |
2086 |
T827:; |
goto T847; |
2087 |
{object V387 = Cnil; |
T847:; |
2088 |
VMR37(V387)}} |
{object V389 = Cnil; |
2089 |
} |
VMR37(V389)}} |
2090 |
static object LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],&LnkLI177,1,ap);} /* ABS */ |
return Cnil; |
2091 |
static object LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],&LnkLI176,1,ap);} /* AET-C-TYPE */ |
} |
2092 |
static object LnkTLI175(){return call_proc0(VV[175],&LnkLI175);} /* WFS-ERROR */ |
static object LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],(void **)&LnkLI177,1,ap);} /* ABS */ |
2093 |
static object LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],&LnkLI174,ap);} /* INLINE-ARGS */ |
static object LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],(void **)&LnkLI176,1,ap);} /* AET-C-TYPE */ |
2094 |
static object LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],&LnkLI173,2,ap);} /* COERCE-LOC */ |
static object LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */ |
2095 |
static object LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],&LnkLI172,1,ap);} /* INLINE-TYPE */ |
static object LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],(void **)&LnkLI174,ap);} /* INLINE-ARGS */ |
2096 |
static object LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],&LnkLI171,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],(void **)&LnkLI173,2,ap);} /* COERCE-LOC */ |
2097 |
static object LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],&LnkLI170,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],(void **)&LnkLI172,1,ap);} /* INLINE-TYPE */ |
2098 |
static object LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],&LnkLI169,2,ap);} /* C1EXPR* */ |
static object LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* ADD-SYMBOL */ |
2099 |
static object LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],&LnkLI168,1,ap);} /* C1PROGN */ |
static object LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],(void **)&LnkLI170,1,ap);} /* TYPE-FILTER */ |
2100 |
static object LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],&LnkLI167,2,ap);} /* C2EXPR-TOP */ |
static object LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],(void **)&LnkLI169,2,ap);} /* C1EXPR* */ |
2101 |
static object LnkTLI166(){return call_proc0(VV[166],&LnkLI166);} /* RESET-TOP */ |
static object LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],(void **)&LnkLI168,1,ap);} /* C1PROGN */ |
2102 |
static object LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],&LnkLI165,1,ap);} /* WT1 */ |
static object LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],(void **)&LnkLI167,2,ap);} /* C2EXPR-TOP */ |
2103 |
static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* C2EXPR */ |
static object LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */ |
2104 |
static object LnkTLI163(){return call_proc0(VV[163],&LnkLI163);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],(void **)&LnkLI165,1,ap);} /* WT1 */ |
2105 |
static object LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],&LnkLI162,ap);} /* UNWIND-EXIT */ |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */ |
2106 |
static object LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],&LnkLI161,2,ap);} /* GET-INLINE-LOC */ |
static object LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */ |
2107 |
static object LnkTLI160(){return call_proc0(VV[160],&LnkLI160);} /* BABOON */ |
static object LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],(void **)&LnkLI162,ap);} /* UNWIND-EXIT */ |
2108 |
static object LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],&LnkLI159,1,ap);} /* VOLATILE */ |
static object LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],(void **)&LnkLI161,2,ap);} /* GET-INLINE-LOC */ |
2109 |
static object LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],&LnkLI158,4,ap);} /* C2CALL-GLOBAL */ |
static object LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */ |
2110 |
static object LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],&LnkLI157,ap);} /* C1LAMBDA-EXPR */ |
static object LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],(void **)&LnkLI159,1,ap);} /* VOLATILE */ |
2111 |
static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* RESULT-TYPE-FROM-ARGS */ |
static object LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],(void **)&LnkLI158,4,ap);} /* C2CALL-GLOBAL */ |
2112 |
static object LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],&LnkLI154,2,ap);} /* TYPE-AND */ |
static object LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],(void **)&LnkLI157,ap);} /* C1LAMBDA-EXPR */ |
2113 |
static object LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */ |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */ |
2114 |
static object LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],&LnkLI151,1,ap);} /* GET-ARG-TYPES */ |
static object LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],(void **)&LnkLI154,2,ap);} /* TYPE-AND */ |
2115 |
static object LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],&LnkLI150,1,ap);} /* GET-RETURN-TYPE */ |
static object LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],(void **)&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */ |
2116 |
static object LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */ |
static object LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],(void **)&LnkLI151,1,ap);} /* GET-ARG-TYPES */ |
2117 |
static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* CMP-EVAL */ |
static object LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],(void **)&LnkLI150,1,ap);} /* GET-RETURN-TYPE */ |
2118 |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,2,ap);} /* RECORD-CALL-INFO */ |
static object LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],(void **)&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */ |
2119 |
static object LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],&LnkLI147,1,ap);} /* INLINE-POSSIBLE */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */ |
2120 |
static object LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */ |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,2,ap);} /* RECORD-CALL-INFO */ |
2121 |
static object LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],&LnkLI145,3,ap);} /* AND-FORM-TYPE */ |
static object LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],(void **)&LnkLI147,1,ap);} /* INLINE-POSSIBLE */ |
2122 |
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */ |
static object LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */ |
2123 |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */ |
static object LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],(void **)&LnkLI145,3,ap);} /* AND-FORM-TYPE */ |
2124 |
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,2,ap);} /* C1ARGS */ |
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */ |
2125 |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,1,ap);} /* C1LOCAL-FUN */ |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */ |
2126 |
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,2,ap);} /* TYPE>= */ |
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* C1ARGS */ |
2127 |
static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* FIX-OPT */ |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,1,ap);} /* C1LOCAL-FUN */ |
2128 |
static object LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],&LnkLI138,ap);} /* CMPWARN */ |
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,2,ap);} /* TYPE>= */ |
2129 |
static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* FLAGS-POS */ |
static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */ |
2130 |
static object LnkTLI136(){return call_proc0(VV[136],&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],(void **)&LnkLI138,ap);} /* CMPWARN */ |
2131 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* CMPERR */ |
static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */ |
2132 |
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,2,ap);} /* C1LAMBDA-FUN */ |
static object LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
2133 |
static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* C1SYMBOL-FUN */ |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* CMPERR */ |
2134 |
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],&LnkLI132,1,ap);} /* C1VAR */ |
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,2,ap);} /* C1LAMBDA-FUN */ |
2135 |
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,1,ap);} /* ADD-CONSTANT */ |
static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */ |
2136 |
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */ |
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,1,ap);} /* C1VAR */ |
2137 |
static object LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],&LnkLI129,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,1,ap);} /* ADD-CONSTANT */ |
2138 |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,1,ap);} /* OBJECT-TYPE */ |
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */ |
2139 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* MAKE-INFO */ |
static object LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],(void **)&LnkLI129,1,ap);} /* ADD-OBJECT */ |
2140 |
static object LnkTLI126(){return call_proc0(VV[126],&LnkLI126);} /* C1T */ |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,1,ap);} /* OBJECT-TYPE */ |
2141 |
static object LnkTLI125(){return call_proc0(VV[125],&LnkLI125);} /* C1NIL */ |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* MAKE-INFO */ |
2142 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,2,ap);} /* ADD-INFO */ |
static object LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */ |
2143 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,1,ap);} /* C1EXPR */ |
static object LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */ |
2144 |
|
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* ADD-INFO */ |
2145 |
|
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* C1EXPR */ |
2146 |
|
|
2147 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2148 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |