1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpenv.h" |
#include "cmpenv.h" |
4 |
init_cmpenv(){do_init(VV);} |
void init_cmpenv(){do_init(VV);} |
5 |
/* local entry for function INIT-ENV */ |
/* local entry for function INIT-ENV */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
9 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
10 |
|
goto TTL; |
11 |
TTL:; |
TTL:; |
12 |
setq(VV[0],small_fixnum(0)); |
setq(VV[0],small_fixnum(0)); |
13 |
setq(VV[1],small_fixnum(0)); |
setq(VV[1],small_fixnum(0)); |
30 |
setq(VV[18],Cnil); |
setq(VV[18],Cnil); |
31 |
{object V1 = Cnil; |
{object V1 = Cnil; |
32 |
VMR1(V1)} |
VMR1(V1)} |
33 |
|
return Cnil; |
34 |
} |
} |
35 |
/* macro definition for NEXT-CFUN */ |
/* macro definition for NEXT-CFUN */ |
36 |
|
|
37 |
static L2() |
static void L2() |
38 |
{register object *base=vs_base; |
{register object *base=vs_base; |
39 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
40 |
vs_reserve(VM2); |
vs_reserve(VM2); |
52 |
|
|
53 |
object V4; |
object V4; |
54 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
55 |
|
goto TTL; |
56 |
TTL:; |
TTL:; |
57 |
{object V5; |
{object V5; |
58 |
{register object x= (V4),V6= symbol_value(VV[5]); |
{register object x= (V4),V6= symbol_value(VV[5]); |
62 |
goto T38; |
goto T38; |
63 |
}else V6=V6->c.c_cdr; |
}else V6=V6->c.c_cdr; |
64 |
V5= Cnil;} |
V5= Cnil;} |
65 |
|
goto T38; |
66 |
T38:; |
T38:; |
67 |
if(((V5))==Cnil){ |
if(((V5))==Cnil){ |
68 |
goto T40;} |
goto T40;} |
69 |
{object V7 = cadr((V5)); |
{object V7 = cadr((V5)); |
70 |
VMR3(V7)} |
VMR3(V7)} |
71 |
|
goto T40; |
72 |
T40:; |
T40:; |
73 |
(void)((*(LnkLI113))((V4))); |
(void)((*(LnkLI113))((V4))); |
74 |
V8= list(2,(V4),symbol_value(VV[2])); |
V8= list(2,(V4),symbol_value(VV[2])); |
75 |
setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5]))); |
setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5]))); |
76 |
{object V9 = symbol_value(VV[2]); |
{object V9 = symbol_value(VV[2]); |
77 |
VMR3(V9)}} |
VMR3(V9)}} |
78 |
|
return Cnil; |
79 |
} |
} |
80 |
/* function definition for WT-TO-STRING */ |
/* function definition for WT-TO-STRING */ |
81 |
|
|
82 |
static L4() |
static void L4() |
83 |
{register object *base=vs_base; |
{register object *base=vs_base; |
84 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
85 |
vs_reserve(VM4); |
vs_reserve(VM4); |
88 |
check_arg(1); |
check_arg(1); |
89 |
V10=(base[0]); |
V10=(base[0]); |
90 |
vs_top=sup; |
vs_top=sup; |
91 |
|
goto TTL; |
92 |
TTL:; |
TTL:; |
93 |
vs_base=vs_top; |
vs_base=vs_top; |
94 |
(void) (*Lnk114)(); |
(void) (*Lnk114)(); |
110 |
|
|
111 |
register object V12; |
register object V12; |
112 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
113 |
|
goto TTL; |
114 |
TTL:; |
TTL:; |
115 |
{object V13; |
{object V13; |
116 |
V13= Cnil; |
V13= Cnil; |
132 |
goto T55;} |
goto T55;} |
133 |
V12= cdr((V12)); |
V12= cdr((V12)); |
134 |
goto T53; |
goto T53; |
135 |
|
goto T55; |
136 |
T55:; |
T55:; |
137 |
base[0]= (V12); |
base[0]= (V12); |
138 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
V14= vs_base[0]; |
V14= vs_base[0]; |
142 |
V12= list(2,VV[23],V14); |
V12= list(2,VV[23],V14); |
143 |
|
goto T53; |
144 |
T53:; |
T53:; |
145 |
(void)((*(LnkLI113))(Cnil)); |
(void)((*(LnkLI113))(Cnil)); |
146 |
V15= list(2,symbol_value(VV[2]),(V12)); |
V15= list(2,symbol_value(VV[2]),(V12)); |
147 |
setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24]))); |
setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24]))); |
148 |
{object V16 = symbol_value(VV[2]); |
{object V16 = symbol_value(VV[2]); |
149 |
VMR5(V16)} |
VMR5(V16)} |
150 |
|
goto T50; |
151 |
T50:; |
T50:; |
152 |
{register object x= (V12),V17= symbol_value(VV[5]); |
{register object x= (V12),V17= symbol_value(VV[5]); |
153 |
while(!endp(V17)) |
while(!endp(V17)) |
156 |
goto T72; |
goto T72; |
157 |
}else V17=V17->c.c_cdr; |
}else V17=V17->c.c_cdr; |
158 |
V13= Cnil;} |
V13= Cnil;} |
159 |
|
goto T72; |
160 |
T72:; |
T72:; |
161 |
if(((V13))==Cnil){ |
if(((V13))==Cnil){ |
162 |
goto T70;} |
goto T70;} |
163 |
{object V18 = cadr((V13)); |
{object V18 = cadr((V13)); |
164 |
VMR5(V18)} |
VMR5(V18)} |
165 |
|
goto T70; |
166 |
T70:; |
T70:; |
167 |
base[0]= (V12); |
base[0]= (V12); |
168 |
base[1]= VV[25]; |
base[1]= VV[25]; |
181 |
if(V21==Cnil)goto T82; |
if(V21==Cnil)goto T82; |
182 |
V20= V21; |
V20= V21; |
183 |
goto T81; |
goto T81; |
184 |
|
goto T82; |
185 |
T82:;} |
T82:;} |
186 |
V20= (VFUN_NARGS=1,(*(LnkLI121))(VV[27])); |
V20= (VFUN_NARGS=1,(*(LnkLI121))(VV[27])); |
187 |
|
goto T81; |
188 |
T81:; |
T81:; |
189 |
V22= list(2,V19,list(2,VV[26],V20)); |
V22= list(2,V19,list(2,VV[26],V20)); |
190 |
setq(VV[24],make_cons(/* INLINE-ARGS */V22,symbol_value(VV[24])));} |
setq(VV[24],make_cons(/* INLINE-ARGS */V22,symbol_value(VV[24])));} |
191 |
{object V23 = symbol_value(VV[2]); |
{object V23 = symbol_value(VV[2]); |
192 |
VMR5(V23)} |
VMR5(V23)} |
193 |
|
goto T74; |
194 |
T74:; |
T74:; |
195 |
(void)((*(LnkLI113))((V12))); |
(void)((*(LnkLI113))((V12))); |
196 |
V24= list(2,(V12),symbol_value(VV[2])); |
V24= list(2,(V12),symbol_value(VV[2])); |
197 |
setq(VV[5],make_cons(/* INLINE-ARGS */V24,symbol_value(VV[5]))); |
setq(VV[5],make_cons(/* INLINE-ARGS */V24,symbol_value(VV[5]))); |
198 |
{object V25 = symbol_value(VV[2]); |
{object V25 = symbol_value(VV[2]); |
199 |
VMR5(V25)}} |
VMR5(V25)}} |
200 |
|
base[0]=base[0]; |
201 |
|
return Cnil; |
202 |
} |
} |
203 |
/* local entry for function ADD-CONSTANT */ |
/* local entry for function ADD-CONSTANT */ |
204 |
|
|
206 |
|
|
207 |
object V27; |
object V27; |
208 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
209 |
|
goto TTL; |
210 |
TTL:; |
TTL:; |
211 |
{object V28; |
{object V28; |
212 |
V28= Cnil; |
V28= Cnil; |
217 |
goto T92; |
goto T92; |
218 |
}else V29=V29->c.c_cdr; |
}else V29=V29->c.c_cdr; |
219 |
V28= Cnil;} |
V28= Cnil;} |
220 |
|
goto T92; |
221 |
T92:; |
T92:; |
222 |
if(((V28))==Cnil){ |
if(((V28))==Cnil){ |
223 |
goto T90;} |
goto T90;} |
224 |
{object V30 = cadr((V28)); |
{object V30 = cadr((V28)); |
225 |
VMR6(V30)} |
VMR6(V30)} |
226 |
|
goto T90; |
227 |
T90:; |
T90:; |
228 |
(void)((*(LnkLI113))(Cnil)); |
(void)((*(LnkLI113))(Cnil)); |
229 |
V31= list(2,symbol_value(VV[2]),(V27)); |
V31= list(2,symbol_value(VV[2]),(V27)); |
232 |
setq(VV[6],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6]))); |
setq(VV[6],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6]))); |
233 |
{object V33 = symbol_value(VV[2]); |
{object V33 = symbol_value(VV[2]); |
234 |
VMR6(V33)}} |
VMR6(V33)}} |
235 |
|
return Cnil; |
236 |
} |
} |
237 |
/* macro definition for NEXT-CVAR */ |
/* macro definition for NEXT-CVAR */ |
238 |
|
|
239 |
static L7() |
static void L7() |
240 |
{register object *base=vs_base; |
{register object *base=vs_base; |
241 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
242 |
vs_reserve(VM7); |
vs_reserve(VM7); |
250 |
} |
} |
251 |
/* macro definition for NEXT-CMACRO */ |
/* macro definition for NEXT-CMACRO */ |
252 |
|
|
253 |
static L8() |
static void L8() |
254 |
{register object *base=vs_base; |
{register object *base=vs_base; |
255 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
256 |
vs_reserve(VM8); |
vs_reserve(VM8); |
268 |
|
|
269 |
object V37; |
object V37; |
270 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
271 |
|
goto TTL; |
272 |
TTL:; |
TTL:; |
273 |
{object V38; |
{object V38; |
274 |
register object V39; |
register object V39; |
280 |
register long V42; |
register long V42; |
281 |
V42= 0; |
V42= 0; |
282 |
V41= (V37); |
V41= (V37); |
283 |
|
goto T105; |
284 |
T105:; |
T105:; |
285 |
if(!(endp((V41)))){ |
if(!(endp((V41)))){ |
286 |
goto T106;} |
goto T106;} |
287 |
V40= reverse((V39)); |
V40= reverse((V39)); |
288 |
goto T102; |
goto T102; |
289 |
|
goto T106; |
290 |
T106:; |
T106:; |
291 |
{register object x= car((V41)),V43= VV[30]; |
{register object x= car((V41)),V43= VV[30]; |
292 |
while(!endp(V43)) |
while(!endp(V43)) |
295 |
}else V43=V43->c.c_cdr;} |
}else V43=V43->c.c_cdr;} |
296 |
if(!(equal(car((V41)),VV[31]))){ |
if(!(equal(car((V41)),VV[31]))){ |
297 |
goto T110;} |
goto T110;} |
298 |
|
goto T111; |
299 |
T111:; |
T111:; |
300 |
V38= Ct; |
V38= Ct; |
301 |
V44= make_cons(VV[31],(V39)); |
V44= make_cons(VV[31],(V39)); |
302 |
V40= reverse(/* INLINE-ARGS */V44); |
V40= reverse(/* INLINE-ARGS */V44); |
303 |
goto T102; |
goto T102; |
304 |
|
goto T110; |
305 |
T110:; |
T110:; |
306 |
if(!((V42)<(9))){ |
if(!((V42)<(9))){ |
307 |
goto T121;} |
goto T121;} |
311 |
goto T125;} |
goto T125;} |
312 |
V45= Ct; |
V45= Ct; |
313 |
goto T119; |
goto T119; |
314 |
|
goto T125; |
315 |
T125:; |
T125:; |
316 |
V45= (V46); |
V45= (V46); |
317 |
goto T119;} |
goto T119;} |
318 |
|
goto T121; |
319 |
T121:; |
T121:; |
320 |
if(!((car((V41)))==(VV[31]))){ |
if(!((car((V41)))==(VV[31]))){ |
321 |
goto T128;} |
goto T128;} |
322 |
V45= VV[31]; |
V45= VV[31]; |
323 |
goto T119; |
goto T119; |
324 |
|
goto T128; |
325 |
T128:; |
T128:; |
326 |
V45= Ct; |
V45= Ct; |
327 |
|
goto T119; |
328 |
T119:; |
T119:; |
329 |
V39= make_cons(V45,(V39)); |
V39= make_cons(V45,(V39)); |
330 |
V41= cdr((V41)); |
V41= cdr((V41)); |
331 |
V42= (1)+(V42); |
V42= (1)+(V42); |
332 |
goto T105;} |
goto T105;} |
333 |
|
goto T102; |
334 |
T102:; |
T102:; |
335 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
336 |
goto T134;} |
goto T134;} |
337 |
{register object V47; |
{register object V47; |
338 |
V47= (V40); |
V47= (V40); |
339 |
|
goto T138; |
340 |
T138:; |
T138:; |
341 |
if(((V47))!=Cnil){ |
if(((V47))!=Cnil){ |
342 |
goto T139;} |
goto T139;} |
343 |
goto T134; |
goto T134; |
344 |
|
goto T139; |
345 |
T139:; |
T139:; |
346 |
{register object V49; |
{register object V49; |
347 |
if(!((car((V47)))==(VV[31]))){ |
if(!((car((V47)))==(VV[31]))){ |
348 |
goto T146;} |
goto T146;} |
349 |
V49= VV[31]; |
V49= VV[31]; |
350 |
goto T144; |
goto T144; |
351 |
|
goto T146; |
352 |
T146:; |
T146:; |
353 |
V49= Ct; |
V49= Ct; |
354 |
|
goto T144; |
355 |
T144:; |
T144:; |
356 |
if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47); |
if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47); |
357 |
(V47)->c.c_car = (V49);} |
(V47)->c.c_car = (V49);} |
358 |
V47= cdr((V47)); |
V47= cdr((V47)); |
359 |
goto T138;} |
goto T138;} |
360 |
|
goto T134; |
361 |
T134:; |
T134:; |
362 |
{object V50 = (V40); |
{object V50 = (V40); |
363 |
VMR9(V50)}} |
VMR9(V50)}} |
364 |
|
base[0]=base[0]; |
365 |
|
return Cnil; |
366 |
} |
} |
367 |
/* local entry for function FUNCTION-RETURN-TYPE */ |
/* local entry for function FUNCTION-RETURN-TYPE */ |
368 |
|
|
370 |
|
|
371 |
register object V52; |
register object V52; |
372 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
373 |
|
goto TTL; |
374 |
TTL:; |
TTL:; |
375 |
if((car((V52)))==(VV[33])){ |
if((car((V52)))==(VV[33])){ |
376 |
goto T153;} |
goto T153;} |
377 |
goto T152; |
goto T152; |
378 |
|
goto T153; |
379 |
T153:; |
T153:; |
380 |
V52= cdr((V52)); |
V52= cdr((V52)); |
381 |
|
goto T152; |
382 |
T152:; |
T152:; |
383 |
if(!(endp((V52)))){ |
if(!(endp((V52)))){ |
384 |
goto T157;} |
goto T157;} |
385 |
{object V53 = Cnil; |
{object V53 = Cnil; |
386 |
VMR10(V53)} |
VMR10(V53)} |
387 |
|
goto T157; |
388 |
T157:; |
T157:; |
389 |
if(!(type_of(car((V52)))==t_cons)){ |
if(!(type_of(car((V52)))==t_cons)){ |
390 |
goto T160;} |
goto T160;} |
392 |
goto T160;} |
goto T160;} |
393 |
V52= cdr(car((V52))); |
V52= cdr(car((V52))); |
394 |
goto TTL; |
goto TTL; |
395 |
|
goto T160; |
396 |
T160:; |
T160:; |
397 |
{register object V54; |
{register object V54; |
398 |
register object V55; |
register object V55; |
399 |
V54= (V52); |
V54= (V52); |
400 |
V55= Cnil; |
V55= Cnil; |
401 |
|
goto T167; |
402 |
T167:; |
T167:; |
403 |
if(!(endp((V54)))){ |
if(!(endp((V54)))){ |
404 |
goto T168;} |
goto T168;} |
405 |
if(!(((V54))==Cnil)){ |
if(!(((V54))==Cnil)){ |
406 |
goto T172;} |
goto T172;} |
407 |
goto T171; |
goto T171; |
408 |
|
goto T172; |
409 |
T172:; |
T172:; |
410 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52)))); |
411 |
|
goto T171; |
412 |
T171:; |
T171:; |
413 |
{object V56 = nreverse((V55)); |
{object V56 = nreverse((V55)); |
414 |
VMR10(V56)} |
VMR10(V56)} |
415 |
|
goto T168; |
416 |
T168:; |
T168:; |
417 |
{register object V57; |
{register object V57; |
418 |
if(!((car((V54)))==(VV[31]))){ |
if(!((car((V54)))==(VV[31]))){ |
419 |
goto T178;} |
goto T178;} |
420 |
V57= VV[31]; |
V57= VV[31]; |
421 |
goto T176; |
goto T176; |
422 |
|
goto T178; |
423 |
T178:; |
T178:; |
424 |
V57= (*(LnkLI122))(car((V54))); |
V57= (*(LnkLI122))(car((V54))); |
425 |
|
goto T176; |
426 |
T176:; |
T176:; |
427 |
if(!(((V57))==(VV[32]))){ |
if(!(((V57))==(VV[32]))){ |
428 |
goto T180;} |
goto T180;} |
429 |
V57= Ct; |
V57= Ct; |
430 |
|
goto T180; |
431 |
T180:; |
T180:; |
432 |
V55= make_cons((V57),(V55));} |
V55= make_cons((V57),(V55));} |
433 |
V54= cdr((V54)); |
V54= cdr((V54)); |
434 |
goto T167;} |
goto T167;} |
435 |
|
return Cnil; |
436 |
} |
} |
437 |
/* local entry for function ADD-FUNCTION-PROCLAMATION */ |
/* local entry for function ADD-FUNCTION-PROCLAMATION */ |
438 |
|
|
440 |
|
|
441 |
object V61;register object V62;register object V63; |
object V61;register object V62;register object V63; |
442 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
443 |
|
goto TTL; |
444 |
TTL:; |
TTL:; |
445 |
{register object V64; |
{register object V64; |
446 |
register object V65; |
register object V65; |
459 |
goto T199;} |
goto T199;} |
460 |
if(!((car((V62)))==(VV[31]))){ |
if(!((car((V62)))==(VV[31]))){ |
461 |
goto T200;} |
goto T200;} |
462 |
|
goto T199; |
463 |
T199:; |
T199:; |
464 |
V65= VV[35]; |
V65= VV[35]; |
465 |
goto T198; |
goto T198; |
466 |
|
goto T200; |
467 |
T200:; |
T200:; |
468 |
V65= (*(LnkLI124))(car((V62))); |
V65= (*(LnkLI124))(car((V62))); |
469 |
|
goto T198; |
470 |
T198:; |
T198:; |
471 |
V66= (*(LnkLI125))(cdr((V62))); |
V66= (*(LnkLI125))(cdr((V62))); |
472 |
if(!(type_of((V66))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
479 |
goto T221;} |
goto T221;} |
480 |
V69= Cnil; |
V69= Cnil; |
481 |
goto T220; |
goto T220; |
482 |
|
goto T221; |
483 |
T221:; |
T221:; |
484 |
V69= (V65); |
V69= (V65); |
485 |
|
goto T220; |
486 |
T220:; |
T220:; |
487 |
{register object x= VV[31],V68= V69; |
{register object x= VV[31],V68= V69; |
488 |
while(!endp(V68)) |
while(!endp(V68)) |
490 |
goto T219; |
goto T219; |
491 |
}else V68=V68->c.c_cdr; |
}else V68=V68->c.c_cdr; |
492 |
goto T218;} |
goto T218;} |
493 |
|
goto T219; |
494 |
T219:; |
T219:; |
495 |
V66= Ct; |
V66= Ct; |
496 |
goto T216; |
goto T216; |
497 |
|
goto T218; |
498 |
T218:; |
T218:; |
499 |
V66= car((V66)); |
V66= car((V66)); |
500 |
|
goto T216; |
501 |
T216:; |
T216:; |
502 |
goto T208; |
goto T208; |
503 |
|
goto T210; |
504 |
T210:; |
T210:; |
505 |
V64= Cnil; |
V64= Cnil; |
506 |
|
goto T208; |
507 |
T208:; |
T208:; |
508 |
{object V70; |
{object V70; |
509 |
if(type_of((V65))==t_cons||((V65))==Cnil){ |
if(type_of((V65))==t_cons||((V65))==Cnil){ |
510 |
goto T226;} |
goto T226;} |
511 |
V70= Cnil; |
V70= Cnil; |
512 |
goto T225; |
goto T225; |
513 |
|
goto T226; |
514 |
T226:; |
T226:; |
515 |
V70= ((length((V65)))<(64)?Ct:Cnil); |
V70= ((length((V65)))<(64)?Ct:Cnil); |
516 |
|
goto T225; |
517 |
T225:; |
T225:; |
518 |
if(((V70))==Cnil){ |
if(((V70))==Cnil){ |
519 |
goto T229;} |
goto T229;} |
520 |
goto T224; |
goto T224; |
521 |
|
goto T229; |
522 |
T229:; |
T229:; |
523 |
V64= Cnil;} |
V64= Cnil;} |
524 |
|
goto T224; |
525 |
T224:; |
T224:; |
526 |
{register object V71; |
{register object V71; |
527 |
V71= (V61); |
V71= (V61); |
528 |
|
goto T233; |
529 |
T233:; |
T233:; |
530 |
if(!(type_of((V71))==t_symbol)){ |
if(!(type_of((V71))==t_symbol)){ |
531 |
goto T237;} |
goto T237;} |
532 |
goto T236; |
goto T236; |
533 |
|
goto T237; |
534 |
T237:; |
T237:; |
535 |
V61= (V71); |
V61= (V71); |
536 |
V63= Cnil; |
V63= Cnil; |
537 |
goto TTL; |
goto TTL; |
538 |
|
goto T236; |
539 |
T236:; |
T236:; |
540 |
if(!(((V65))==(VV[31]))){ |
if(!(((V65))==(VV[31]))){ |
541 |
goto T245;} |
goto T245;} |
542 |
(void)(remprop((V71),VV[36])); |
(void)(remprop((V71),VV[36])); |
543 |
goto T243; |
goto T243; |
544 |
|
goto T245; |
545 |
T245:; |
T245:; |
546 |
(void)(putprop((V71),(V65),VV[36])); |
(void)(putprop((V71),(V65),VV[36])); |
547 |
|
goto T243; |
548 |
T243:; |
T243:; |
549 |
(void)(putprop((V71),(V66),VV[37])); |
(void)(putprop((V71),(V66),VV[37])); |
550 |
if(((V64))==Cnil){ |
if(((V64))==Cnil){ |
551 |
goto T250;} |
goto T250;} |
552 |
(void)(putprop((V71),Ct,VV[38])); |
(void)(putprop((V71),Ct,VV[38])); |
553 |
goto T248; |
goto T248; |
554 |
|
goto T250; |
555 |
T250:; |
T250:; |
556 |
(void)(remprop((V71),VV[38])); |
(void)(remprop((V71),VV[38])); |
557 |
|
goto T248; |
558 |
T248:; |
T248:; |
559 |
V63= cdr((V63)); |
V63= cdr((V63)); |
560 |
if(!(type_of((V63))==t_cons)){ |
if(!(type_of((V63))==t_cons)){ |
561 |
goto T255;} |
goto T255;} |
562 |
goto T254; |
goto T254; |
563 |
|
goto T255; |
564 |
T255:; |
T255:; |
565 |
{object V72 = VV[39]; |
{object V72 = VV[39]; |
566 |
VMR11(V72)} |
VMR11(V72)} |
567 |
|
goto T254; |
568 |
T254:; |
T254:; |
569 |
V71= car((V63)); |
V71= car((V63)); |
570 |
goto T233;} |
goto T233;} |
571 |
|
goto T192; |
572 |
T192:; |
T192:; |
573 |
{object V73 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V61),(V62))); |
{object V73 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V61),(V62))); |
574 |
VMR11(V73)}} |
VMR11(V73)}} |
575 |
|
return Cnil; |
576 |
} |
} |
577 |
/* local entry for function ADD-FUNCTION-DECLARATION */ |
/* local entry for function ADD-FUNCTION-DECLARATION */ |
578 |
|
|
580 |
|
|
581 |
object V77;object V78;object V79; |
object V77;object V78;object V79; |
582 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
583 |
|
goto TTL; |
584 |
TTL:; |
TTL:; |
585 |
if(!(type_of((V77))==t_symbol)){ |
if(!(type_of((V77))==t_symbol)){ |
586 |
goto T261;} |
goto T261;} |
590 |
setq(VV[15],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[15]))); |
setq(VV[15],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[15]))); |
591 |
{object V83 = symbol_value(VV[15]); |
{object V83 = symbol_value(VV[15]); |
592 |
VMR12(V83)} |
VMR12(V83)} |
593 |
|
goto T261; |
594 |
T261:; |
T261:; |
595 |
{object V84 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V77))); |
{object V84 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V77))); |
596 |
VMR12(V84)} |
VMR12(V84)} |
597 |
|
return Cnil; |
598 |
} |
} |
599 |
/* local entry for function GET-ARG-TYPES */ |
/* local entry for function GET-ARG-TYPES */ |
600 |
|
|
602 |
|
|
603 |
object V86; |
object V86; |
604 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
605 |
|
goto TTL; |
606 |
TTL:; |
TTL:; |
607 |
{object V87; |
{object V87; |
608 |
V87= Cnil; |
V87= Cnil; |
613 |
goto T268; |
goto T268; |
614 |
}else V88=V88->c.c_cdr; |
}else V88=V88->c.c_cdr; |
615 |
V87= Cnil;} |
V87= Cnil;} |
616 |
|
goto T268; |
617 |
T268:; |
T268:; |
618 |
if(((V87))==Cnil){ |
if(((V87))==Cnil){ |
619 |
goto T266;} |
goto T266;} |
620 |
{object V89 = cadr((V87)); |
{object V89 = cadr((V87)); |
621 |
VMR13(V89)} |
VMR13(V89)} |
622 |
|
goto T266; |
623 |
T266:; |
T266:; |
624 |
{object V90 = get((V86),VV[36],Cnil); |
{object V90 = get((V86),VV[36],Cnil); |
625 |
VMR13(V90)}} |
VMR13(V90)}} |
626 |
|
return Cnil; |
627 |
} |
} |
628 |
/* local entry for function GET-RETURN-TYPE */ |
/* local entry for function GET-RETURN-TYPE */ |
629 |
|
|
631 |
|
|
632 |
register object V92; |
register object V92; |
633 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
634 |
|
goto TTL; |
635 |
TTL:; |
TTL:; |
636 |
{object V93; |
{object V93; |
637 |
object V94; |
object V94; |
643 |
goto T269; |
goto T269; |
644 |
}else V96=V96->c.c_cdr; |
}else V96=V96->c.c_cdr; |
645 |
V93= Cnil;} |
V93= Cnil;} |
646 |
|
goto T269; |
647 |
T269:; |
T269:; |
648 |
if(((V93))==Cnil){ |
if(((V93))==Cnil){ |
649 |
goto T272;} |
goto T272;} |
650 |
V94= caddr((V93)); |
V94= caddr((V93)); |
651 |
goto T270; |
goto T270; |
652 |
|
goto T272; |
653 |
T272:; |
T272:; |
654 |
V94= get((V92),VV[37],Cnil); |
V94= get((V92),VV[37],Cnil); |
655 |
|
goto T270; |
656 |
T270:; |
T270:; |
657 |
if((get((V92),VV[42],Cnil))==Cnil){ |
if((get((V92),VV[42],Cnil))==Cnil){ |
658 |
goto T276;} |
goto T276;} |
659 |
V95= VV[43]; |
V95= VV[43]; |
660 |
goto T274; |
goto T274; |
661 |
|
goto T276; |
662 |
T276:; |
T276:; |
663 |
V95= get((V92),VV[44],Cnil); |
V95= get((V92),VV[44],Cnil); |
664 |
|
goto T274; |
665 |
T274:; |
T274:; |
666 |
if(((V94))==Cnil){ |
if(((V94))==Cnil){ |
667 |
goto T279;} |
goto T279;} |
672 |
goto T285;} |
goto T285;} |
673 |
{object V97 = (V95); |
{object V97 = (V95); |
674 |
VMR14(V97)} |
VMR14(V97)} |
675 |
|
goto T285; |
676 |
T285:; |
T285:; |
677 |
{object V98 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V92))); |
{object V98 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V92))); |
678 |
VMR14(V98)} |
VMR14(V98)} |
679 |
|
goto T282; |
680 |
T282:; |
T282:; |
681 |
{object V99 = (V94); |
{object V99 = (V94); |
682 |
VMR14(V99)} |
VMR14(V99)} |
683 |
|
goto T279; |
684 |
T279:; |
T279:; |
685 |
{object V100 = (V95); |
{object V100 = (V95); |
686 |
VMR14(V100)}} |
VMR14(V100)}} |
687 |
|
base[0]=base[0]; |
688 |
|
return Cnil; |
689 |
} |
} |
690 |
/* local entry for function GET-LOCAL-ARG-TYPES */ |
/* local entry for function GET-LOCAL-ARG-TYPES */ |
691 |
|
|
693 |
|
|
694 |
object V102; |
object V102; |
695 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
696 |
|
goto TTL; |
697 |
TTL:; |
TTL:; |
698 |
{object V103; |
{object V103; |
699 |
V103= Cnil; |
V103= Cnil; |
704 |
goto T292; |
goto T292; |
705 |
}else V104=V104->c.c_cdr; |
}else V104=V104->c.c_cdr; |
706 |
V103= Cnil;} |
V103= Cnil;} |
707 |
|
goto T292; |
708 |
T292:; |
T292:; |
709 |
if(((V103))==Cnil){ |
if(((V103))==Cnil){ |
710 |
goto T290;} |
goto T290;} |
711 |
{object V105 = cadr((V103)); |
{object V105 = cadr((V103)); |
712 |
VMR15(V105)} |
VMR15(V105)} |
713 |
|
goto T290; |
714 |
T290:; |
T290:; |
715 |
{object V106 = Cnil; |
{object V106 = Cnil; |
716 |
VMR15(V106)}} |
VMR15(V106)}} |
717 |
|
return Cnil; |
718 |
} |
} |
719 |
/* local entry for function GET-LOCAL-RETURN-TYPE */ |
/* local entry for function GET-LOCAL-RETURN-TYPE */ |
720 |
|
|
722 |
|
|
723 |
object V108; |
object V108; |
724 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
725 |
|
goto TTL; |
726 |
TTL:; |
TTL:; |
727 |
{object V109; |
{object V109; |
728 |
V109= Cnil; |
V109= Cnil; |
733 |
goto T297; |
goto T297; |
734 |
}else V110=V110->c.c_cdr; |
}else V110=V110->c.c_cdr; |
735 |
V109= Cnil;} |
V109= Cnil;} |
736 |
|
goto T297; |
737 |
T297:; |
T297:; |
738 |
if(((V109))==Cnil){ |
if(((V109))==Cnil){ |
739 |
goto T295;} |
goto T295;} |
740 |
{object V111 = caddr((V109)); |
{object V111 = caddr((V109)); |
741 |
VMR16(V111)} |
VMR16(V111)} |
742 |
|
goto T295; |
743 |
T295:; |
T295:; |
744 |
{object V112 = Cnil; |
{object V112 = Cnil; |
745 |
VMR16(V112)}} |
VMR16(V112)}} |
746 |
|
return Cnil; |
747 |
} |
} |
748 |
/* local entry for function RESET-TOP */ |
/* local entry for function RESET-TOP */ |
749 |
|
|
750 |
static object LI17() |
static object LI17() |
751 |
|
|
752 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
753 |
|
goto TTL; |
754 |
TTL:; |
TTL:; |
755 |
princ_str("vs_top=sup;",VV[46]); |
princ_str("vs_top=sup;",VV[46]); |
756 |
setq(VV[47],Ct); |
setq(VV[47],Ct); |
757 |
{object V113 = Ct; |
{object V113 = Ct; |
758 |
VMR17(V113)} |
VMR17(V113)} |
759 |
|
return Cnil; |
760 |
} |
} |
761 |
/* macro definition for BASE-USED */ |
/* macro definition for BASE-USED */ |
762 |
|
|
763 |
static L18() |
static void L18() |
764 |
{register object *base=vs_base; |
{register object *base=vs_base; |
765 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
766 |
vs_reserve(VM18); |
vs_reserve(VM18); |
778 |
|
|
779 |
object V116; |
object V116; |
780 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
781 |
|
goto TTL; |
782 |
TTL:; |
TTL:; |
783 |
if(symbol_value(VV[49])!=Cnil){ |
if(symbol_value(VV[49])!=Cnil){ |
784 |
V117= symbol_value(VV[49]); |
V117= symbol_value(VV[49]); |
790 |
goto T303; |
goto T303; |
791 |
}else V119=V119->c.c_cdr; |
}else V119=V119->c.c_cdr; |
792 |
V118= Cnil;} |
V118= Cnil;} |
793 |
|
goto T303; |
794 |
T303:; |
T303:; |
795 |
if(V118==Cnil)goto T302; |
if(V118==Cnil)goto T302; |
796 |
V117= V118; |
V117= V118; |
797 |
goto T301; |
goto T301; |
798 |
|
goto T302; |
799 |
T302:;} |
T302:;} |
800 |
V117= get((V116),VV[50],Cnil); |
V117= get((V116),VV[50],Cnil); |
801 |
|
goto T301; |
802 |
T301:; |
T301:; |
803 |
{object V120 = ((V117)==Cnil?Ct:Cnil); |
{object V120 = ((V117)==Cnil?Ct:Cnil); |
804 |
VMR19(V120)} |
VMR19(V120)} |
805 |
|
return Cnil; |
806 |
} |
} |
807 |
/* local entry for function PROCLAIM */ |
/* local entry for function PROCLAIM */ |
808 |
|
|
810 |
|
|
811 |
object V122; |
object V122; |
812 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
813 |
|
goto TTL; |
814 |
TTL:; |
TTL:; |
815 |
{object V123= car((V122)); |
{object V123= car((V122)); |
816 |
if((V123!= VV[129]))goto T305; |
if((V123!= VV[129]))goto T305; |
818 |
object V125; |
object V125; |
819 |
V124= cdr((V122)); |
V124= cdr((V122)); |
820 |
V125= car((V124)); |
V125= car((V124)); |
821 |
|
goto T309; |
822 |
T309:; |
T309:; |
823 |
if(!(endp((V124)))){ |
if(!(endp((V124)))){ |
824 |
goto T310;} |
goto T310;} |
825 |
goto T304; |
goto T304; |
826 |
|
goto T310; |
827 |
T310:; |
T310:; |
828 |
if(!(type_of((V125))==t_symbol)){ |
if(!(type_of((V125))==t_symbol)){ |
829 |
goto T316;} |
goto T316;} |
832 |
(void) (*Lnk130)(); |
(void) (*Lnk130)(); |
833 |
vs_top=sup; |
vs_top=sup; |
834 |
goto T314; |
goto T314; |
835 |
|
goto T316; |
836 |
T316:; |
T316:; |
837 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V125)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V125)))); |
838 |
|
goto T314; |
839 |
T314:; |
T314:; |
840 |
V124= cdr((V124)); |
V124= cdr((V124)); |
841 |
V125= car((V124)); |
V125= car((V124)); |
842 |
goto T309;} |
goto T309;} |
843 |
|
goto T305; |
844 |
T305:; |
T305:; |
845 |
if((V123!= VV[131]))goto T324; |
if((V123!= VV[131]))goto T324; |
846 |
{register object V126; |
{register object V126; |
847 |
register object V127; |
register object V127; |
848 |
V126= cdr((V122)); |
V126= cdr((V122)); |
849 |
V127= car((V126)); |
V127= car((V126)); |
850 |
|
goto T328; |
851 |
T328:; |
T328:; |
852 |
if(!(endp((V126)))){ |
if(!(endp((V126)))){ |
853 |
goto T329;} |
goto T329;} |
854 |
goto T304; |
goto T304; |
855 |
|
goto T329; |
856 |
T329:; |
T329:; |
857 |
if(!(type_of((V127))==t_symbol)){ |
if(!(type_of((V127))==t_symbol)){ |
858 |
goto T333;} |
goto T333;} |
859 |
V127= list(2,(V127),small_fixnum(3)); |
V127= list(2,(V127),small_fixnum(3)); |
860 |
|
goto T333; |
861 |
T333:; |
T333:; |
862 |
if(!(type_of((V127))==t_cons)){ |
if(!(type_of((V127))==t_cons)){ |
863 |
goto T338;} |
goto T338;} |
879 |
vs_top=sup; |
vs_top=sup; |
880 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
881 |
goto T339;} |
goto T339;} |
882 |
|
goto T338; |
883 |
T338:; |
T338:; |
884 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V127)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V127)))); |
885 |
goto T337; |
goto T337; |
886 |
|
goto T339; |
887 |
T339:; |
T339:; |
888 |
{object V129= car((V127)); |
{object V129= car((V127)); |
889 |
if((V129!= VV[85]))goto T350; |
if((V129!= VV[85]))goto T350; |
891 |
setq(VV[54],(number_compare(cadr((V127)),small_fixnum(2))>=0?Ct:Cnil)); |
setq(VV[54],(number_compare(cadr((V127)),small_fixnum(2))>=0?Ct:Cnil)); |
892 |
setq(VV[49],(number_compare(cadr((V127)),small_fixnum(3))>=0?Ct:Cnil)); |
setq(VV[49],(number_compare(cadr((V127)),small_fixnum(3))>=0?Ct:Cnil)); |
893 |
goto T337; |
goto T337; |
894 |
|
goto T350; |
895 |
T350:; |
T350:; |
896 |
if((V129!= VV[86]))goto T356; |
if((V129!= VV[86]))goto T356; |
897 |
setq(VV[55],cadr((V127))); |
setq(VV[55],cadr((V127))); |
898 |
goto T337; |
goto T337; |
899 |
|
goto T356; |
900 |
T356:; |
T356:; |
901 |
if((V129!= VV[132]))goto T358; |
if((V129!= VV[132]))goto T358; |
902 |
setq(VV[56],cadr((V127))); |
setq(VV[56],cadr((V127))); |
903 |
goto T337; |
goto T337; |
904 |
|
goto T358; |
905 |
T358:; |
T358:; |
906 |
if((V129!= VV[133]))goto T360; |
if((V129!= VV[133]))goto T360; |
907 |
setq(VV[56],number_minus(small_fixnum(3),cadr((V127)))); |
setq(VV[56],number_minus(small_fixnum(3),cadr((V127)))); |
908 |
goto T337; |
goto T337; |
909 |
|
goto T360; |
910 |
T360:; |
T360:; |
911 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V127)))));} |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V127)))));} |
912 |
|
goto T337; |
913 |
T337:; |
T337:; |
914 |
V126= cdr((V126)); |
V126= cdr((V126)); |
915 |
V127= car((V126)); |
V127= car((V126)); |
916 |
goto T328;} |
goto T328;} |
917 |
|
goto T324; |
918 |
T324:; |
T324:; |
919 |
if((V123!= VV[134]))goto T367; |
if((V123!= VV[134]))goto T367; |
920 |
if(!(type_of(cdr((V122)))==t_cons)){ |
if(!(type_of(cdr((V122)))==t_cons)){ |
921 |
goto T369;} |
goto T369;} |
922 |
(void)((*(LnkLI135))(cadr((V122)),cddr((V122)))); |
(void)((*(LnkLI135))(cadr((V122)),cddr((V122)))); |
923 |
goto T304; |
goto T304; |
924 |
|
goto T369; |
925 |
T369:; |
T369:; |
926 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V122)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V122)))); |
927 |
goto T304; |
goto T304; |
928 |
|
goto T367; |
929 |
T367:; |
T367:; |
930 |
if((V123!= VV[136]) |
if((V123!= VV[136]) |
931 |
&& (V123!= VV[137]) |
&& (V123!= VV[137]) |
933 |
&& (V123!= VV[139]))goto T371; |
&& (V123!= VV[139]))goto T371; |
934 |
(void)((*(LnkLI135))(car((V122)),cdr((V122)))); |
(void)((*(LnkLI135))(car((V122)),cdr((V122)))); |
935 |
goto T304; |
goto T304; |
936 |
|
goto T371; |
937 |
T371:; |
T371:; |
938 |
if((V123!= VV[140]))goto T372; |
if((V123!= VV[140]))goto T372; |
939 |
if(!(type_of(cdr((V122)))==t_cons)){ |
if(!(type_of(cdr((V122)))==t_cons)){ |
944 |
goto T374;} |
goto T374;} |
945 |
(void)((*(LnkLI141))(caddr((V122)),cdr(cadr((V122))),cddr((V122)))); |
(void)((*(LnkLI141))(caddr((V122)),cdr(cadr((V122))),cddr((V122)))); |
946 |
goto T304; |
goto T304; |
947 |
|
goto T374; |
948 |
T374:; |
T374:; |
949 |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V122)))); |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V122)))); |
950 |
goto T304; |
goto T304; |
951 |
|
goto T372; |
952 |
T372:; |
T372:; |
953 |
if((V123!= VV[26]))goto T380; |
if((V123!= VV[26]))goto T380; |
954 |
if(!(type_of(cdr((V122)))==t_cons)){ |
if(!(type_of(cdr((V122)))==t_cons)){ |
955 |
goto T382;} |
goto T382;} |
956 |
(void)((*(LnkLI141))(cadr((V122)),cddr((V122)),Cnil)); |
(void)((*(LnkLI141))(cadr((V122)),cddr((V122)),Cnil)); |
957 |
goto T304; |
goto T304; |
958 |
|
goto T382; |
959 |
T382:; |
T382:; |
960 |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V122)))); |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V122)))); |
961 |
goto T304; |
goto T304; |
962 |
|
goto T380; |
963 |
T380:; |
T380:; |
964 |
if((V123!= VV[90]))goto T384; |
if((V123!= VV[90]))goto T384; |
965 |
{register object V130; |
{register object V130; |
966 |
object V131; |
object V131; |
967 |
V130= cdr((V122)); |
V130= cdr((V122)); |
968 |
V131= car((V130)); |
V131= car((V130)); |
969 |
|
goto T388; |
970 |
T388:; |
T388:; |
971 |
if(!(endp((V130)))){ |
if(!(endp((V130)))){ |
972 |
goto T389;} |
goto T389;} |
973 |
goto T304; |
goto T304; |
974 |
|
goto T389; |
975 |
T389:; |
T389:; |
976 |
if(!(type_of((V131))==t_symbol)){ |
if(!(type_of((V131))==t_symbol)){ |
977 |
goto T395;} |
goto T395;} |
978 |
(void)(remprop((V131),VV[50])); |
(void)(remprop((V131),VV[50])); |
979 |
goto T393; |
goto T393; |
980 |
|
goto T395; |
981 |
T395:; |
T395:; |
982 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V131)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V131)))); |
983 |
|
goto T393; |
984 |
T393:; |
T393:; |
985 |
V130= cdr((V130)); |
V130= cdr((V130)); |
986 |
V131= car((V130)); |
V131= car((V130)); |
987 |
goto T388;} |
goto T388;} |
988 |
|
goto T384; |
989 |
T384:; |
T384:; |
990 |
if((V123!= VV[92]))goto T402; |
if((V123!= VV[92]))goto T402; |
991 |
{register object V132; |
{register object V132; |
992 |
object V133; |
object V133; |
993 |
V132= cdr((V122)); |
V132= cdr((V122)); |
994 |
V133= car((V132)); |
V133= car((V132)); |
995 |
|
goto T406; |
996 |
T406:; |
T406:; |
997 |
if(!(endp((V132)))){ |
if(!(endp((V132)))){ |
998 |
goto T407;} |
goto T407;} |
999 |
goto T304; |
goto T304; |
1000 |
|
goto T407; |
1001 |
T407:; |
T407:; |
1002 |
if(!(type_of((V133))==t_symbol)){ |
if(!(type_of((V133))==t_symbol)){ |
1003 |
goto T413;} |
goto T413;} |
1004 |
(void)(putprop((V133),Ct,VV[50])); |
(void)(putprop((V133),Ct,VV[50])); |
1005 |
goto T411; |
goto T411; |
1006 |
|
goto T413; |
1007 |
T413:; |
T413:; |
1008 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V133)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V133)))); |
1009 |
|
goto T411; |
1010 |
T411:; |
T411:; |
1011 |
V132= cdr((V132)); |
V132= cdr((V132)); |
1012 |
V133= car((V132)); |
V133= car((V132)); |
1013 |
goto T406;} |
goto T406;} |
1014 |
|
goto T402; |
1015 |
T402:; |
T402:; |
1016 |
if((V123!= VV[79]) |
if((V123!= VV[79]) |
1017 |
&& (V123!= VV[142]))goto T420; |
&& (V123!= VV[142]))goto T420; |
1019 |
object V135; |
object V135; |
1020 |
V134= cdr((V122)); |
V134= cdr((V122)); |
1021 |
V135= car((V134)); |
V135= car((V134)); |
1022 |
|
goto T424; |
1023 |
T424:; |
T424:; |
1024 |
if(!(endp((V134)))){ |
if(!(endp((V134)))){ |
1025 |
goto T425;} |
goto T425;} |
1026 |
goto T304; |
goto T304; |
1027 |
|
goto T425; |
1028 |
T425:; |
T425:; |
1029 |
if(type_of((V135))==t_symbol){ |
if(type_of((V135))==t_symbol){ |
1030 |
goto T429;} |
goto T429;} |
1031 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V135)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V135)))); |
1032 |
|
goto T429; |
1033 |
T429:; |
T429:; |
1034 |
V134= cdr((V134)); |
V134= cdr((V134)); |
1035 |
V135= car((V134)); |
V135= car((V134)); |
1036 |
goto T424;} |
goto T424;} |
1037 |
|
goto T420; |
1038 |
T420:; |
T420:; |
1039 |
if((V123!= VV[143]))goto T437; |
if((V123!= VV[143]))goto T437; |
1040 |
{register object V136; |
{register object V136; |
1041 |
register object V137; |
register object V137; |
1042 |
V136= cdr((V122)); |
V136= cdr((V122)); |
1043 |
V137= car((V136)); |
V137= car((V136)); |
1044 |
|
goto T441; |
1045 |
T441:; |
T441:; |
1046 |
if(!(endp((V136)))){ |
if(!(endp((V136)))){ |
1047 |
goto T442;} |
goto T442;} |
1048 |
goto T304; |
goto T304; |
1049 |
|
goto T442; |
1050 |
T442:; |
T442:; |
1051 |
if(!(type_of((V137))==t_symbol)){ |
if(!(type_of((V137))==t_symbol)){ |
1052 |
goto T448;} |
goto T448;} |
1057 |
}else V138=V138->c.c_cdr;} |
}else V138=V138->c.c_cdr;} |
1058 |
setq(VV[64],make_cons((V137),symbol_value(VV[64]))); |
setq(VV[64],make_cons((V137),symbol_value(VV[64]))); |
1059 |
goto T446; |
goto T446; |
1060 |
|
goto T448; |
1061 |
T448:; |
T448:; |
1062 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V137)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V137)))); |
1063 |
|
goto T446; |
1064 |
T446:; |
T446:; |
1065 |
V136= cdr((V136)); |
V136= cdr((V136)); |
1066 |
V137= car((V136)); |
V137= car((V136)); |
1067 |
goto T441;} |
goto T441;} |
1068 |
|
goto T437; |
1069 |
T437:; |
T437:; |
1070 |
if((V123== VV[144]) |
if((V123== VV[144]) |
1071 |
|| (V123== VV[145]) |
|| (V123== VV[145]) |
1110 |
if((V123!= VV[176]) |
if((V123!= VV[176]) |
1111 |
&& (V123!= VV[177]) |
&& (V123!= VV[177]) |
1112 |
&& (V123!= VV[178]))goto T458; |
&& (V123!= VV[178]))goto T458; |
1113 |
|
goto T459; |
1114 |
T459:; |
T459:; |
1115 |
(void)((*(LnkLI135))(car((V122)),cdr((V122)))); |
(void)((*(LnkLI135))(car((V122)),cdr((V122)))); |
1116 |
goto T304; |
goto T304; |
1117 |
|
goto T458; |
1118 |
T458:; |
T458:; |
1119 |
{register object x= car((V122)),V139= symbol_value(VV[64]); |
{register object x= car((V122)),V139= symbol_value(VV[64]); |
1120 |
while(!endp(V139)) |
while(!endp(V139)) |
1122 |
goto T460; |
goto T460; |
1123 |
}else V139=V139->c.c_cdr;} |
}else V139=V139->c.c_cdr;} |
1124 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V122))))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V122))))); |
1125 |
|
goto T460; |
1126 |
T460:; |
T460:; |
1127 |
base[0]= get(car((V122)),VV[67],Cnil); |
base[0]= get(car((V122)),VV[67],Cnil); |
1128 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1131 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1132 |
goto T463;} |
goto T463;} |
1133 |
goto T304; |
goto T304; |
1134 |
|
goto T463; |
1135 |
T463:; |
T463:; |
1136 |
{register object V140; |
{register object V140; |
1137 |
object V141; |
object V141; |
1138 |
V140= cdr((V122)); |
V140= cdr((V122)); |
1139 |
V141= car((V140)); |
V141= car((V140)); |
1140 |
|
goto T469; |
1141 |
T469:; |
T469:; |
1142 |
if(!(endp((V140)))){ |
if(!(endp((V140)))){ |
1143 |
goto T470;} |
goto T470;} |
1144 |
goto T304; |
goto T304; |
1145 |
|
goto T470; |
1146 |
T470:; |
T470:; |
1147 |
V142= get(car((V122)),VV[67],Cnil); |
V142= get(car((V122)),VV[67],Cnil); |
1148 |
(void)(( |
(void)(( |
1152 |
V140= cdr((V140)); |
V140= cdr((V140)); |
1153 |
V141= car((V140)); |
V141= car((V140)); |
1154 |
goto T469;}} |
goto T469;}} |
1155 |
|
goto T304; |
1156 |
T304:; |
T304:; |
1157 |
{object V144 = Cnil; |
{object V144 = Cnil; |
1158 |
VMR20(V144)} |
VMR20(V144)} |
1159 |
|
base[0]=base[0]; |
1160 |
|
return Cnil; |
1161 |
} |
} |
1162 |
/* local entry for function PROCLAIM-VAR */ |
/* local entry for function PROCLAIM-VAR */ |
1163 |
|
|
1165 |
|
|
1166 |
register object V147;object V148; |
register object V147;object V148; |
1167 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1168 |
|
goto TTL; |
1169 |
TTL:; |
TTL:; |
1170 |
V147= (*(LnkLI122))((V147)); |
V147= (*(LnkLI122))((V147)); |
1171 |
{register object V149; |
{register object V149; |
1172 |
register object V150; |
register object V150; |
1173 |
V149= (V148); |
V149= (V148); |
1174 |
V150= car((V149)); |
V150= car((V149)); |
1175 |
|
goto T486; |
1176 |
T486:; |
T486:; |
1177 |
if(!(endp((V149)))){ |
if(!(endp((V149)))){ |
1178 |
goto T487;} |
goto T487;} |
1179 |
{object V151 = Cnil; |
{object V151 = Cnil; |
1180 |
VMR21(V151)} |
VMR21(V151)} |
1181 |
|
goto T487; |
1182 |
T487:; |
T487:; |
1183 |
if(!(type_of((V150))==t_symbol)){ |
if(!(type_of((V150))==t_symbol)){ |
1184 |
goto T493;} |
goto T493;} |
1190 |
goto T500;} |
goto T500;} |
1191 |
V152= (*(LnkLI127))((V152),(V147)); |
V152= (*(LnkLI127))((V152),(V147)); |
1192 |
goto T498; |
goto T498; |
1193 |
|
goto T500; |
1194 |
T500:; |
T500:; |
1195 |
V152= (V147); |
V152= (V147); |
1196 |
|
goto T498; |
1197 |
T498:; |
T498:; |
1198 |
if(((V153))==Cnil){ |
if(((V153))==Cnil){ |
1199 |
goto T502;} |
goto T502;} |
1200 |
V154= structure_ref((V153),VV[69],5); |
V154= structure_ref((V153),VV[69],5); |
1201 |
V152= (*(LnkLI127))((V152),/* INLINE-ARGS */V154); |
V152= (*(LnkLI127))((V152),/* INLINE-ARGS */V154); |
1202 |
|
goto T502; |
1203 |
T502:; |
T502:; |
1204 |
if(((V152))!=Cnil){ |
if(((V152))!=Cnil){ |
1205 |
goto T506;} |
goto T506;} |
1206 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V150)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V150)))); |
1207 |
|
goto T506; |
1208 |
T506:; |
T506:; |
1209 |
(void)(putprop((V150),(V152),VV[68])); |
(void)(putprop((V150),(V152),VV[68])); |
1210 |
if(((V153))==Cnil){ |
if(((V153))==Cnil){ |
1211 |
goto T491;} |
goto T491;} |
1212 |
(void)(structure_set((V153),VV[69],5,(V152))); |
(void)(structure_set((V153),VV[69],5,(V152))); |
1213 |
goto T491;} |
goto T491;} |
1214 |
|
goto T493; |
1215 |
T493:; |
T493:; |
1216 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V150)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V150)))); |
1217 |
|
goto T491; |
1218 |
T491:; |
T491:; |
1219 |
V149= cdr((V149)); |
V149= cdr((V149)); |
1220 |
V150= car((V149)); |
V150= car((V149)); |
1221 |
goto T486;} |
goto T486;} |
1222 |
|
base[0]=base[0]; |
1223 |
|
return Cnil; |
1224 |
} |
} |
1225 |
/* function definition for C1BODY */ |
/* function definition for C1BODY */ |
1226 |
|
|
1227 |
static L22() |
static void L22() |
1228 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1229 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1230 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1234 |
V155=(base[0]); |
V155=(base[0]); |
1235 |
V156=(base[1]); |
V156=(base[1]); |
1236 |
vs_top=sup; |
vs_top=sup; |
1237 |
|
goto TTL; |
1238 |
TTL:; |
TTL:; |
1239 |
{object V157; |
{object V157; |
1240 |
object V158; |
object V158; |
1248 |
V160= Cnil; |
V160= Cnil; |
1249 |
V161= Cnil; |
V161= Cnil; |
1250 |
V162= Cnil; |
V162= Cnil; |
1251 |
|
goto T525; |
1252 |
T525:; |
T525:; |
1253 |
if(!(endp((V155)))){ |
if(!(endp((V155)))){ |
1254 |
goto T527;} |
goto T527;} |
1255 |
goto T523; |
goto T523; |
1256 |
|
goto T527; |
1257 |
T527:; |
T527:; |
1258 |
V162= (*(LnkLI180))(car((V155))); |
V162= (*(LnkLI180))(car((V155))); |
1259 |
if(!(type_of((V162))==t_string)){ |
if(!(type_of((V162))==t_string)){ |
1264 |
goto T537;} |
goto T537;} |
1265 |
if(((V161))==Cnil){ |
if(((V161))==Cnil){ |
1266 |
goto T536;} |
goto T536;} |
1267 |
|
goto T537; |
1268 |
T537:; |
T537:; |
1269 |
goto T523; |
goto T523; |
1270 |
|
goto T536; |
1271 |
T536:; |
T536:; |
1272 |
V161= (V162); |
V161= (V162); |
1273 |
goto T532; |
goto T532; |
1274 |
|
goto T534; |
1275 |
T534:; |
T534:; |
1276 |
if(!(type_of((V162))==t_cons)){ |
if(!(type_of((V162))==t_cons)){ |
1277 |
goto T545;} |
goto T545;} |
1281 |
register object V164; |
register object V164; |
1282 |
V163= cdr((V162)); |
V163= cdr((V162)); |
1283 |
V164= car((V163)); |
V164= car((V163)); |
1284 |
|
goto T552; |
1285 |
T552:; |
T552:; |
1286 |
if(!(endp((V163)))){ |
if(!(endp((V163)))){ |
1287 |
goto T553;} |
goto T553;} |
1288 |
goto T532; |
goto T532; |
1289 |
|
goto T553; |
1290 |
T553:; |
T553:; |
1291 |
if(!(type_of((V164))==t_cons)){ |
if(!(type_of((V164))==t_cons)){ |
1292 |
goto T558;} |
goto T558;} |
1293 |
if(type_of(car((V164)))==t_symbol){ |
if(type_of(car((V164)))==t_symbol){ |
1294 |
goto T557;} |
goto T557;} |
1295 |
|
goto T558; |
1296 |
T558:; |
T558:; |
1297 |
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V164)))); |
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V164)))); |
1298 |
|
goto T557; |
1299 |
T557:; |
T557:; |
1300 |
{object V165= car((V164)); |
{object V165= car((V164)); |
1301 |
if((V165!= VV[129]))goto T563; |
if((V165!= VV[129]))goto T563; |
1303 |
object V167; |
object V167; |
1304 |
V166= cdr((V164)); |
V166= cdr((V164)); |
1305 |
V167= car((V166)); |
V167= car((V166)); |
1306 |
|
goto T567; |
1307 |
T567:; |
T567:; |
1308 |
if(!(endp((V166)))){ |
if(!(endp((V166)))){ |
1309 |
goto T568;} |
goto T568;} |
1310 |
goto T562; |
goto T562; |
1311 |
|
goto T568; |
1312 |
T568:; |
T568:; |
1313 |
if(type_of((V167))==t_symbol){ |
if(type_of((V167))==t_symbol){ |
1314 |
goto T572;} |
goto T572;} |
1315 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V164),(V167)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V164),(V167)))); |
1316 |
|
goto T572; |
1317 |
T572:; |
T572:; |
1318 |
V157= make_cons((V167),(V157)); |
V157= make_cons((V167),(V157)); |
1319 |
V166= cdr((V166)); |
V166= cdr((V166)); |
1320 |
V167= car((V166)); |
V167= car((V166)); |
1321 |
goto T567;} |
goto T567;} |
1322 |
|
goto T563; |
1323 |
T563:; |
T563:; |
1324 |
if((V165!= VV[142]))goto T582; |
if((V165!= VV[142]))goto T582; |
1325 |
{register object V168; |
{register object V168; |
1326 |
object V169; |
object V169; |
1327 |
V168= cdr((V164)); |
V168= cdr((V164)); |
1328 |
V169= car((V168)); |
V169= car((V168)); |
1329 |
|
goto T586; |
1330 |
T586:; |
T586:; |
1331 |
if(!(endp((V168)))){ |
if(!(endp((V168)))){ |
1332 |
goto T587;} |
goto T587;} |
1333 |
goto T562; |
goto T562; |
1334 |
|
goto T587; |
1335 |
T587:; |
T587:; |
1336 |
if(type_of((V169))==t_symbol){ |
if(type_of((V169))==t_symbol){ |
1337 |
goto T591;} |
goto T591;} |
1338 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V164),(V169)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V164),(V169)))); |
1339 |
|
goto T591; |
1340 |
T591:; |
T591:; |
1341 |
V158= make_cons((V169),(V158)); |
V158= make_cons((V169),(V158)); |
1342 |
V168= cdr((V168)); |
V168= cdr((V168)); |
1343 |
V169= car((V168)); |
V169= car((V168)); |
1344 |
goto T586;} |
goto T586;} |
1345 |
|
goto T582; |
1346 |
T582:; |
T582:; |
1347 |
if((V165!= VV[134]))goto T601; |
if((V165!= VV[134]))goto T601; |
1348 |
if(!(endp(cdr((V164))))){ |
if(!(endp(cdr((V164))))){ |
1349 |
goto T602;} |
goto T602;} |
1350 |
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V164)))); |
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V164)))); |
1351 |
|
goto T602; |
1352 |
T602:; |
T602:; |
1353 |
{object V170; |
{object V170; |
1354 |
V170= (*(LnkLI122))(cadr((V164))); |
V170= (*(LnkLI122))(cadr((V164))); |
1358 |
object V172; |
object V172; |
1359 |
V171= cddr((V164)); |
V171= cddr((V164)); |
1360 |
V172= car((V171)); |
V172= car((V171)); |
1361 |
|
goto T611; |
1362 |
T611:; |
T611:; |
1363 |
if(!(endp((V171)))){ |
if(!(endp((V171)))){ |
1364 |
goto T612;} |
goto T612;} |
1365 |
goto T562; |
goto T562; |
1366 |
|
goto T612; |
1367 |
T612:; |
T612:; |
1368 |
if(type_of((V172))==t_symbol){ |
if(type_of((V172))==t_symbol){ |
1369 |
goto T616;} |
goto T616;} |
1370 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V164),(V172)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V164),(V172)))); |
1371 |
|
goto T616; |
1372 |
T616:; |
T616:; |
1373 |
V173= make_cons((V172),(V170)); |
V173= make_cons((V172),(V170)); |
1374 |
V159= make_cons(/* INLINE-ARGS */V173,(V159)); |
V159= make_cons(/* INLINE-ARGS */V173,(V159)); |
1375 |
V171= cdr((V171)); |
V171= cdr((V171)); |
1376 |
V172= car((V171)); |
V172= car((V171)); |
1377 |
goto T611;}} |
goto T611;}} |
1378 |
|
goto T601; |
1379 |
T601:; |
T601:; |
1380 |
if((V165!= VV[79]))goto T626; |
if((V165!= VV[79]))goto T626; |
1381 |
{register object V174; |
{register object V174; |
1382 |
object V175; |
object V175; |
1383 |
V174= cdr((V164)); |
V174= cdr((V164)); |
1384 |
V175= car((V174)); |
V175= car((V174)); |
1385 |
|
goto T630; |
1386 |
T630:; |
T630:; |
1387 |
if(!(endp((V174)))){ |
if(!(endp((V174)))){ |
1388 |
goto T631;} |
goto T631;} |
1389 |
goto T562; |
goto T562; |
1390 |
|
goto T631; |
1391 |
T631:; |
T631:; |
1392 |
if(type_of((V175))==t_symbol){ |
if(type_of((V175))==t_symbol){ |
1393 |
goto T635;} |
goto T635;} |
1394 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V164),(V175)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V164),(V175)))); |
1395 |
|
goto T635; |
1396 |
T635:; |
T635:; |
1397 |
V176= make_cons((V175),VV[79]); |
V176= make_cons((V175),VV[79]); |
1398 |
V159= make_cons(/* INLINE-ARGS */V176,(V159)); |
V159= make_cons(/* INLINE-ARGS */V176,(V159)); |
1399 |
V174= cdr((V174)); |
V174= cdr((V174)); |
1400 |
V175= car((V174)); |
V175= car((V174)); |
1401 |
goto T630;} |
goto T630;} |
1402 |
|
goto T626; |
1403 |
T626:; |
T626:; |
1404 |
if((V165!= VV[181]))goto T645; |
if((V165!= VV[181]))goto T645; |
1405 |
{register object V177; |
{register object V177; |
1406 |
object V178; |
object V178; |
1407 |
V177= cdr((V164)); |
V177= cdr((V164)); |
1408 |
V178= car((V177)); |
V178= car((V177)); |
1409 |
|
goto T649; |
1410 |
T649:; |
T649:; |
1411 |
if(!(endp((V177)))){ |
if(!(endp((V177)))){ |
1412 |
goto T650;} |
goto T650;} |
1413 |
goto T562; |
goto T562; |
1414 |
|
goto T650; |
1415 |
T650:; |
T650:; |
1416 |
if(type_of((V178))==t_symbol){ |
if(type_of((V178))==t_symbol){ |
1417 |
goto T654;} |
goto T654;} |
1418 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V164),(V178)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V164),(V178)))); |
1419 |
|
goto T654; |
1420 |
T654:; |
T654:; |
1421 |
V179= make_cons((V178),VV[81]); |
V179= make_cons((V178),VV[81]); |
1422 |
V159= make_cons(/* INLINE-ARGS */V179,(V159)); |
V159= make_cons(/* INLINE-ARGS */V179,(V159)); |
1423 |
V177= cdr((V177)); |
V177= cdr((V177)); |
1424 |
V178= car((V177)); |
V178= car((V177)); |
1425 |
goto T649;} |
goto T649;} |
1426 |
|
goto T645; |
1427 |
T645:; |
T645:; |
1428 |
if((V165== VV[136]) |
if((V165== VV[136]) |
1429 |
|| (V165== VV[137]) |
|| (V165== VV[137]) |
1469 |
&& (V165!= VV[177]) |
&& (V165!= VV[177]) |
1470 |
&& (V165!= VV[178]) |
&& (V165!= VV[178]) |
1471 |
&& (V165!= VV[82]))goto T664; |
&& (V165!= VV[82]))goto T664; |
1472 |
|
goto T665; |
1473 |
T665:; |
T665:; |
1474 |
{object V180; |
{object V180; |
1475 |
if(!((car((V164)))==(VV[82]))){ |
if(!((car((V164)))==(VV[82]))){ |
1476 |
goto T668;} |
goto T668;} |
1477 |
V180= car((V164)); |
V180= car((V164)); |
1478 |
goto T666; |
goto T666; |
1479 |
|
goto T668; |
1480 |
T668:; |
T668:; |
1481 |
V180= (*(LnkLI122))(car((V164))); |
V180= (*(LnkLI122))(car((V164))); |
1482 |
|
goto T666; |
1483 |
T666:; |
T666:; |
1484 |
if(((V180))==Cnil){ |
if(((V180))==Cnil){ |
1485 |
goto T562;} |
goto T562;} |
1487 |
object V182; |
object V182; |
1488 |
V181= cdr((V164)); |
V181= cdr((V164)); |
1489 |
V182= car((V181)); |
V182= car((V181)); |
1490 |
|
goto T675; |
1491 |
T675:; |
T675:; |
1492 |
if(!(endp((V181)))){ |
if(!(endp((V181)))){ |
1493 |
goto T676;} |
goto T676;} |
1494 |
goto T562; |
goto T562; |
1495 |
|
goto T676; |
1496 |
T676:; |
T676:; |
1497 |
if(type_of((V182))==t_symbol){ |
if(type_of((V182))==t_symbol){ |
1498 |
goto T680;} |
goto T680;} |
1499 |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V164),(V182)))); |
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V164),(V182)))); |
1500 |
|
goto T680; |
1501 |
T680:; |
T680:; |
1502 |
V183= make_cons((V182),(V180)); |
V183= make_cons((V182),(V180)); |
1503 |
V159= make_cons(/* INLINE-ARGS */V183,(V159)); |
V159= make_cons(/* INLINE-ARGS */V183,(V159)); |
1504 |
V181= cdr((V181)); |
V181= cdr((V181)); |
1505 |
V182= car((V181)); |
V182= car((V181)); |
1506 |
goto T675;}} |
goto T675;}} |
1507 |
|
goto T664; |
1508 |
T664:; |
T664:; |
1509 |
V160= make_cons((V164),(V160));} |
V160= make_cons((V164),(V160));} |
1510 |
|
goto T562; |
1511 |
T562:; |
T562:; |
1512 |
V163= cdr((V163)); |
V163= cdr((V163)); |
1513 |
V164= car((V163)); |
V164= car((V163)); |
1514 |
goto T552;} |
goto T552;} |
1515 |
|
goto T545; |
1516 |
T545:; |
T545:; |
1517 |
goto T523; |
goto T523; |
1518 |
|
goto T532; |
1519 |
T532:; |
T532:; |
1520 |
{object V184; |
{object V184; |
1521 |
V184= car((V155)); |
V184= car((V155)); |
1522 |
V155= cdr((V155));} |
V155= cdr((V155));} |
1523 |
goto T525; |
goto T525; |
1524 |
|
goto T523; |
1525 |
T523:; |
T523:; |
1526 |
base[2]= (V155); |
base[2]= (V155); |
1527 |
base[3]= (V157); |
base[3]= (V157); |
1540 |
object V187;object V188; |
object V187;object V188; |
1541 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1542 |
bds_check; |
bds_check; |
1543 |
|
goto TTL; |
1544 |
TTL:; |
TTL:; |
1545 |
{register object V189; |
{register object V189; |
1546 |
V189= Cnil; |
V189= Cnil; |
1548 |
goto T708;} |
goto T708;} |
1549 |
{object V190 = (*(LnkLI182))((V188)); |
{object V190 = (*(LnkLI182))((V188)); |
1550 |
VMR23(V190)} |
VMR23(V190)} |
1551 |
|
goto T708; |
1552 |
T708:; |
T708:; |
1553 |
bds_bind(VV[15],symbol_value(VV[15])); |
bds_bind(VV[15],symbol_value(VV[15])); |
1554 |
bds_bind(VV[64],symbol_value(VV[64])); |
bds_bind(VV[64],symbol_value(VV[64])); |
1559 |
register object V192; |
register object V192; |
1560 |
V191= (V187); |
V191= (V187); |
1561 |
V192= car((V191)); |
V192= car((V191)); |
1562 |
|
goto T714; |
1563 |
T714:; |
T714:; |
1564 |
if(!(endp((V191)))){ |
if(!(endp((V191)))){ |
1565 |
goto T715;} |
goto T715;} |
1566 |
goto T710; |
goto T710; |
1567 |
|
goto T715; |
1568 |
T715:; |
T715:; |
1569 |
{object V193= car((V192)); |
{object V193= car((V192)); |
1570 |
if((V193!= VV[131]))goto T720; |
if((V193!= VV[131]))goto T720; |
1572 |
register object V195; |
register object V195; |
1573 |
V194= cdr((V192)); |
V194= cdr((V192)); |
1574 |
V195= car((V194)); |
V195= car((V194)); |
1575 |
|
goto T724; |
1576 |
T724:; |
T724:; |
1577 |
if(!(endp((V194)))){ |
if(!(endp((V194)))){ |
1578 |
goto T725;} |
goto T725;} |
1579 |
goto T719; |
goto T719; |
1580 |
|
goto T725; |
1581 |
T725:; |
T725:; |
1582 |
if(!(type_of((V195))==t_symbol)){ |
if(!(type_of((V195))==t_symbol)){ |
1583 |
goto T729;} |
goto T729;} |
1584 |
V195= list(2,(V195),small_fixnum(3)); |
V195= list(2,(V195),small_fixnum(3)); |
1585 |
|
goto T729; |
1586 |
T729:; |
T729:; |
1587 |
if(!(type_of((V195))==t_cons)){ |
if(!(type_of((V195))==t_cons)){ |
1588 |
goto T734;} |
goto T734;} |
1604 |
vs_top=sup; |
vs_top=sup; |
1605 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1606 |
goto T735;} |
goto T735;} |
1607 |
|
goto T734; |
1608 |
T734:; |
T734:; |
1609 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V195)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V195)))); |
1610 |
goto T733; |
goto T733; |
1611 |
|
goto T735; |
1612 |
T735:; |
T735:; |
1613 |
{object V197= car((V195)); |
{object V197= car((V195)); |
1614 |
if((V197!= VV[85]))goto T746; |
if((V197!= VV[85]))goto T746; |
1616 |
V198= list(2,VV[85],cadr((V195))); |
V198= list(2,VV[85],cadr((V195))); |
1617 |
V189= make_cons(/* INLINE-ARGS */V198,(V189)); |
V189= make_cons(/* INLINE-ARGS */V198,(V189)); |
1618 |
goto T733; |
goto T733; |
1619 |
|
goto T746; |
1620 |
T746:; |
T746:; |
1621 |
if((V197!= VV[86]))goto T750; |
if((V197!= VV[86]))goto T750; |
1622 |
(VV[55]->s.s_dbind)= cadr((V195)); |
(VV[55]->s.s_dbind)= cadr((V195)); |
1623 |
V199= list(2,VV[86],cadr((V195))); |
V199= list(2,VV[86],cadr((V195))); |
1624 |
V189= make_cons(/* INLINE-ARGS */V199,(V189)); |
V189= make_cons(/* INLINE-ARGS */V199,(V189)); |
1625 |
goto T733; |
goto T733; |
1626 |
|
goto T750; |
1627 |
T750:; |
T750:; |
1628 |
if((V197!= VV[132]) |
if((V197!= VV[132]) |
1629 |
&& (V197!= VV[133]))goto T754; |
&& (V197!= VV[133]))goto T754; |
1630 |
goto T733; |
goto T733; |
1631 |
|
goto T754; |
1632 |
T754:; |
T754:; |
1633 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V195)))));} |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V195)))));} |
1634 |
|
goto T733; |
1635 |
T733:; |
T733:; |
1636 |
V194= cdr((V194)); |
V194= cdr((V194)); |
1637 |
V195= car((V194)); |
V195= car((V194)); |
1638 |
goto T724;} |
goto T724;} |
1639 |
|
goto T720; |
1640 |
T720:; |
T720:; |
1641 |
if((V193!= VV[140]))goto T760; |
if((V193!= VV[140]))goto T760; |
1642 |
if(endp(cdr((V192)))){ |
if(endp(cdr((V192)))){ |
1647 |
goto T761;} |
goto T761;} |
1648 |
if(!(endp(cdadr((V192))))){ |
if(!(endp(cdadr((V192))))){ |
1649 |
goto T762;} |
goto T762;} |
1650 |
|
goto T761; |
1651 |
T761:; |
T761:; |
1652 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V192)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V192)))); |
1653 |
goto T719; |
goto T719; |
1654 |
|
goto T762; |
1655 |
T762:; |
T762:; |
1656 |
{object V200; |
{object V200; |
1657 |
object V201; |
object V201; |
1658 |
V200= cddr((V192)); |
V200= cddr((V192)); |
1659 |
V201= car((V200)); |
V201= car((V200)); |
1660 |
|
goto T773; |
1661 |
T773:; |
T773:; |
1662 |
if(!(endp((V200)))){ |
if(!(endp((V200)))){ |
1663 |
goto T774;} |
goto T774;} |
1664 |
goto T719; |
goto T719; |
1665 |
|
goto T774; |
1666 |
T774:; |
T774:; |
1667 |
(void)((*(LnkLI183))((V201),cadadr((V192)),cddadr((V192)))); |
(void)((*(LnkLI183))((V201),cadadr((V192)),cddadr((V192)))); |
1668 |
V200= cdr((V200)); |
V200= cdr((V200)); |
1669 |
V201= car((V200)); |
V201= car((V200)); |
1670 |
goto T773;} |
goto T773;} |
1671 |
|
goto T760; |
1672 |
T760:; |
T760:; |
1673 |
if((V193!= VV[26]))goto T784; |
if((V193!= VV[26]))goto T784; |
1674 |
if(endp(cdr((V192)))){ |
if(endp(cdr((V192)))){ |
1677 |
goto T785;} |
goto T785;} |
1678 |
if(type_of(cadr((V192)))==t_symbol){ |
if(type_of(cadr((V192)))==t_symbol){ |
1679 |
goto T786;} |
goto T786;} |
1680 |
|
goto T785; |
1681 |
T785:; |
T785:; |
1682 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V192)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V192)))); |
1683 |
goto T719; |
goto T719; |
1684 |
|
goto T786; |
1685 |
T786:; |
T786:; |
1686 |
(void)((*(LnkLI183))(cadr((V192)),caddr((V192)),cdddr((V192)))); |
(void)((*(LnkLI183))(cadr((V192)),caddr((V192)),cdddr((V192)))); |
1687 |
goto T719; |
goto T719; |
1688 |
|
goto T784; |
1689 |
T784:; |
T784:; |
1690 |
if((V193!= VV[90]))goto T792; |
if((V193!= VV[90]))goto T792; |
1691 |
{object V202; |
{object V202; |
1692 |
register object V203; |
register object V203; |
1693 |
V202= cdr((V192)); |
V202= cdr((V192)); |
1694 |
V203= car((V202)); |
V203= car((V202)); |
1695 |
|
goto T796; |
1696 |
T796:; |
T796:; |
1697 |
if(!(endp((V202)))){ |
if(!(endp((V202)))){ |
1698 |
goto T797;} |
goto T797;} |
1699 |
goto T719; |
goto T719; |
1700 |
|
goto T797; |
1701 |
T797:; |
T797:; |
1702 |
if(!(type_of((V203))==t_symbol)){ |
if(!(type_of((V203))==t_symbol)){ |
1703 |
goto T803;} |
goto T803;} |
1705 |
V189= make_cons(/* INLINE-ARGS */V204,(V189)); |
V189= make_cons(/* INLINE-ARGS */V204,(V189)); |
1706 |
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V203),(VV[18]->s.s_dbind))); |
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V203),(VV[18]->s.s_dbind))); |
1707 |
goto T801; |
goto T801; |
1708 |
|
goto T803; |
1709 |
T803:; |
T803:; |
1710 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V203)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V203)))); |
1711 |
|
goto T801; |
1712 |
T801:; |
T801:; |
1713 |
V202= cdr((V202)); |
V202= cdr((V202)); |
1714 |
V203= car((V202)); |
V203= car((V202)); |
1715 |
goto T796;} |
goto T796;} |
1716 |
|
goto T792; |
1717 |
T792:; |
T792:; |
1718 |
if((V193!= VV[92]))goto T813; |
if((V193!= VV[92]))goto T813; |
1719 |
{object V205; |
{object V205; |
1720 |
register object V206; |
register object V206; |
1721 |
V205= cdr((V192)); |
V205= cdr((V192)); |
1722 |
V206= car((V205)); |
V206= car((V205)); |
1723 |
|
goto T817; |
1724 |
T817:; |
T817:; |
1725 |
if(!(endp((V205)))){ |
if(!(endp((V205)))){ |
1726 |
goto T818;} |
goto T818;} |
1727 |
goto T719; |
goto T719; |
1728 |
|
goto T818; |
1729 |
T818:; |
T818:; |
1730 |
if(!(type_of((V206))==t_symbol)){ |
if(!(type_of((V206))==t_symbol)){ |
1731 |
goto T824;} |
goto T824;} |
1733 |
V189= make_cons(/* INLINE-ARGS */V207,(V189)); |
V189= make_cons(/* INLINE-ARGS */V207,(V189)); |
1734 |
(VV[18]->s.s_dbind)= make_cons((V206),(VV[18]->s.s_dbind)); |
(VV[18]->s.s_dbind)= make_cons((V206),(VV[18]->s.s_dbind)); |
1735 |
goto T822; |
goto T822; |
1736 |
|
goto T824; |
1737 |
T824:; |
T824:; |
1738 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V206)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V206)))); |
1739 |
|
goto T822; |
1740 |
T822:; |
T822:; |
1741 |
V205= cdr((V205)); |
V205= cdr((V205)); |
1742 |
V206= car((V205)); |
V206= car((V205)); |
1743 |
goto T817;} |
goto T817;} |
1744 |
|
goto T813; |
1745 |
T813:; |
T813:; |
1746 |
if((V193!= VV[143]))goto T834; |
if((V193!= VV[143]))goto T834; |
1747 |
{object V208; |
{object V208; |
1748 |
register object V209; |
register object V209; |
1749 |
V208= cdr((V192)); |
V208= cdr((V192)); |
1750 |
V209= car((V208)); |
V209= car((V208)); |
1751 |
|
goto T838; |
1752 |
T838:; |
T838:; |
1753 |
if(!(endp((V208)))){ |
if(!(endp((V208)))){ |
1754 |
goto T839;} |
goto T839;} |
1755 |
goto T719; |
goto T719; |
1756 |
|
goto T839; |
1757 |
T839:; |
T839:; |
1758 |
if(!(type_of((V209))==t_symbol)){ |
if(!(type_of((V209))==t_symbol)){ |
1759 |
goto T845;} |
goto T845;} |
1764 |
}else V210=V210->c.c_cdr;} |
}else V210=V210->c.c_cdr;} |
1765 |
(VV[64]->s.s_dbind)= make_cons((V209),(VV[64]->s.s_dbind)); |
(VV[64]->s.s_dbind)= make_cons((V209),(VV[64]->s.s_dbind)); |
1766 |
goto T843; |
goto T843; |
1767 |
|
goto T845; |
1768 |
T845:; |
T845:; |
1769 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V209)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V209)))); |
1770 |
|
goto T843; |
1771 |
T843:; |
T843:; |
1772 |
V208= cdr((V208)); |
V208= cdr((V208)); |
1773 |
V209= car((V208)); |
V209= car((V208)); |
1774 |
goto T838;} |
goto T838;} |
1775 |
|
goto T834; |
1776 |
T834:; |
T834:; |
1777 |
{register object x= car((V192)),V211= (VV[64]->s.s_dbind); |
{register object x= car((V192)),V211= (VV[64]->s.s_dbind); |
1778 |
while(!endp(V211)) |
while(!endp(V211)) |
1780 |
goto T719; |
goto T719; |
1781 |
}else V211=V211->c.c_cdr;} |
}else V211=V211->c.c_cdr;} |
1782 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V192)))));} |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V192)))));} |
1783 |
|
goto T719; |
1784 |
T719:; |
T719:; |
1785 |
V191= cdr((V191)); |
V191= cdr((V191)); |
1786 |
V192= car((V191)); |
V192= car((V191)); |
1787 |
goto T714;} |
goto T714;} |
1788 |
|
goto T710; |
1789 |
T710:; |
T710:; |
1790 |
V188= (*(LnkLI182))((V188)); |
V188= (*(LnkLI182))((V188)); |
1791 |
{object V212 = list(4,VV[96],cadr((V188)),(V189),(V188)); |
{object V212 = list(4,VV[96],cadr((V188)),(V189),(V188)); |
1795 |
bds_unwind1; |
bds_unwind1; |
1796 |
bds_unwind1; |
bds_unwind1; |
1797 |
VMR23(V212)}} |
VMR23(V212)}} |
1798 |
|
base[0]=base[0]; |
1799 |
|
return Cnil; |
1800 |
} |
} |
1801 |
/* function definition for C2DECL-BODY */ |
/* function definition for C2DECL-BODY */ |
1802 |
|
|
1803 |
static L24() |
static void L24() |
1804 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1805 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1806 |
vs_reserve(VM24); |
vs_reserve(VM24); |
1811 |
V213=(base[0]); |
V213=(base[0]); |
1812 |
V214=(base[1]); |
V214=(base[1]); |
1813 |
vs_top=sup; |
vs_top=sup; |
1814 |
|
goto TTL; |
1815 |
TTL:; |
TTL:; |
1816 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],symbol_value(VV[53])); |
1817 |
bds_bind(VV[54],symbol_value(VV[54])); |
bds_bind(VV[54],symbol_value(VV[54])); |
1822 |
register object V216; |
register object V216; |
1823 |
V215= (V213); |
V215= (V213); |
1824 |
V216= car((V215)); |
V216= car((V215)); |
1825 |
|
goto T868; |
1826 |
T868:; |
T868:; |
1827 |
if(!(endp((V215)))){ |
if(!(endp((V215)))){ |
1828 |
goto T869;} |
goto T869;} |
1829 |
goto T864; |
goto T864; |
1830 |
|
goto T869; |
1831 |
T869:; |
T869:; |
1832 |
{object V217= car((V216)); |
{object V217= car((V216)); |
1833 |
if((V217!= VV[85]))goto T874; |
if((V217!= VV[85]))goto T874; |
1837 |
(VV[54]->s.s_dbind)= ((V218)>=(2)?Ct:Cnil); |
(VV[54]->s.s_dbind)= ((V218)>=(2)?Ct:Cnil); |
1838 |
(VV[49]->s.s_dbind)= ((V218)>=(3)?Ct:Cnil); |
(VV[49]->s.s_dbind)= ((V218)>=(3)?Ct:Cnil); |
1839 |
goto T873;} |
goto T873;} |
1840 |
|
goto T874; |
1841 |
T874:; |
T874:; |
1842 |
if((V217!= VV[86]))goto T881; |
if((V217!= VV[86]))goto T881; |
1843 |
(VV[55]->s.s_dbind)= cadr((V216)); |
(VV[55]->s.s_dbind)= cadr((V216)); |
1844 |
goto T873; |
goto T873; |
1845 |
|
goto T881; |
1846 |
T881:; |
T881:; |
1847 |
if((V217!= VV[92]))goto T883; |
if((V217!= VV[92]))goto T883; |
1848 |
(VV[18]->s.s_dbind)= make_cons(cadr((V216)),(VV[18]->s.s_dbind)); |
(VV[18]->s.s_dbind)= make_cons(cadr((V216)),(VV[18]->s.s_dbind)); |
1849 |
goto T873; |
goto T873; |
1850 |
|
goto T883; |
1851 |
T883:; |
T883:; |
1852 |
if((V217!= VV[90]))goto T885; |
if((V217!= VV[90]))goto T885; |
1853 |
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V216)),(VV[18]->s.s_dbind))); |
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V216)),(VV[18]->s.s_dbind))); |
1854 |
goto T873; |
goto T873; |
1855 |
|
goto T885; |
1856 |
T885:; |
T885:; |
1857 |
(void)((*(LnkLI185))());} |
(void)((*(LnkLI185))());} |
1858 |
|
goto T873; |
1859 |
T873:; |
T873:; |
1860 |
V215= cdr((V215)); |
V215= cdr((V215)); |
1861 |
V216= car((V215)); |
V216= car((V215)); |
1862 |
goto T868;} |
goto T868;} |
1863 |
|
goto T864; |
1864 |
T864:; |
T864:; |
1865 |
base[7]= (V214); |
base[7]= (V214); |
1866 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1879 |
|
|
1880 |
register object V222;object V223;object V224; |
register object V222;object V223;object V224; |
1881 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1882 |
|
goto TTL; |
1883 |
TTL:; |
TTL:; |
1884 |
{register object V225; |
{register object V225; |
1885 |
register object V226; |
register object V226; |
1886 |
V225= (V223); |
V225= (V223); |
1887 |
V226= car((V225)); |
V226= car((V225)); |
1888 |
|
goto T897; |
1889 |
T897:; |
T897:; |
1890 |
if(!(endp((V225)))){ |
if(!(endp((V225)))){ |
1891 |
goto T898;} |
goto T898;} |
1892 |
goto T893; |
goto T893; |
1893 |
|
goto T898; |
1894 |
T898:; |
T898:; |
1895 |
{register object x= car((V226)),V227= (V222); |
{register object x= car((V226)),V227= (V222); |
1896 |
while(!endp(V227)) |
while(!endp(V227)) |
1898 |
goto T902; |
goto T902; |
1899 |
}else V227=V227->c.c_cdr;} |
}else V227=V227->c.c_cdr;} |
1900 |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V226))))); |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V226))))); |
1901 |
|
goto T902; |
1902 |
T902:; |
T902:; |
1903 |
V225= cdr((V225)); |
V225= cdr((V225)); |
1904 |
V226= car((V225)); |
V226= car((V225)); |
1905 |
goto T897;} |
goto T897;} |
1906 |
|
goto T893; |
1907 |
T893:; |
T893:; |
1908 |
{register object V228; |
{register object V228; |
1909 |
register object V229; |
register object V229; |
1910 |
V228= (V224); |
V228= (V224); |
1911 |
V229= car((V228)); |
V229= car((V228)); |
1912 |
|
goto T913; |
1913 |
T913:; |
T913:; |
1914 |
if(!(endp((V228)))){ |
if(!(endp((V228)))){ |
1915 |
goto T914;} |
goto T914;} |
1916 |
{object V230 = Cnil; |
{object V230 = Cnil; |
1917 |
VMR25(V230)} |
VMR25(V230)} |
1918 |
|
goto T914; |
1919 |
T914:; |
T914:; |
1920 |
{register object x= (V229),V231= (V222); |
{register object x= (V229),V231= (V222); |
1921 |
while(!endp(V231)) |
while(!endp(V231)) |
1923 |
goto T918; |
goto T918; |
1924 |
}else V231=V231->c.c_cdr;} |
}else V231=V231->c.c_cdr;} |
1925 |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V229)))); |
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V229)))); |
1926 |
|
goto T918; |
1927 |
T918:; |
T918:; |
1928 |
V228= cdr((V228)); |
V228= cdr((V228)); |
1929 |
V229= car((V228)); |
V229= car((V228)); |
1930 |
goto T913;} |
goto T913;} |
1931 |
|
base[0]=base[0]; |
1932 |
|
return Cnil; |
1933 |
} |
} |
1934 |
/* local entry for function PROCLAMATION */ |
/* local entry for function PROCLAMATION */ |
1935 |
|
|
1937 |
|
|
1938 |
object V233; |
object V233; |
1939 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1940 |
|
goto TTL; |
1941 |
TTL:; |
TTL:; |
1942 |
{object V234= car((V233)); |
{object V234= car((V233)); |
1943 |
if((V234!= VV[129]))goto T926; |
if((V234!= VV[129]))goto T926; |
1945 |
object V236; |
object V236; |
1946 |
V235= cdr((V233)); |
V235= cdr((V233)); |
1947 |
V236= car((V235)); |
V236= car((V235)); |
1948 |
|
goto T930; |
1949 |
T930:; |
T930:; |
1950 |
if(!(endp((V235)))){ |
if(!(endp((V235)))){ |
1951 |
goto T931;} |
goto T931;} |
1952 |
{object V237 = Ct; |
{object V237 = Ct; |
1953 |
VMR26(V237)} |
VMR26(V237)} |
1954 |
|
goto T931; |
1955 |
T931:; |
T931:; |
1956 |
if(!(type_of((V236))==t_symbol)){ |
if(!(type_of((V236))==t_symbol)){ |
1957 |
goto T937;} |
goto T937;} |
1963 |
goto T935;} |
goto T935;} |
1964 |
{object V238 = Cnil; |
{object V238 = Cnil; |
1965 |
VMR26(V238)} |
VMR26(V238)} |
1966 |
|
goto T937; |
1967 |
T937:; |
T937:; |
1968 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V236)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V236)))); |
1969 |
|
goto T935; |
1970 |
T935:; |
T935:; |
1971 |
V235= cdr((V235)); |
V235= cdr((V235)); |
1972 |
V236= car((V235)); |
V236= car((V235)); |
1973 |
goto T930;} |
goto T930;} |
1974 |
|
goto T926; |
1975 |
T926:; |
T926:; |
1976 |
if((V234!= VV[131]))goto T947; |
if((V234!= VV[131]))goto T947; |
1977 |
{register object V239; |
{register object V239; |
1978 |
register object V240; |
register object V240; |
1979 |
V239= cdr((V233)); |
V239= cdr((V233)); |
1980 |
V240= car((V239)); |
V240= car((V239)); |
1981 |
|
goto T951; |
1982 |
T951:; |
T951:; |
1983 |
if(!(endp((V239)))){ |
if(!(endp((V239)))){ |
1984 |
goto T952;} |
goto T952;} |
1985 |
{object V241 = Ct; |
{object V241 = Ct; |
1986 |
VMR26(V241)} |
VMR26(V241)} |
1987 |
|
goto T952; |
1988 |
T952:; |
T952:; |
1989 |
if(!(type_of((V240))==t_symbol)){ |
if(!(type_of((V240))==t_symbol)){ |
1990 |
goto T956;} |
goto T956;} |
1991 |
V240= list(2,(V240),small_fixnum(3)); |
V240= list(2,(V240),small_fixnum(3)); |
1992 |
|
goto T956; |
1993 |
T956:; |
T956:; |
1994 |
if(!(type_of((V240))==t_cons)){ |
if(!(type_of((V240))==t_cons)){ |
1995 |
goto T961;} |
goto T961;} |
2011 |
vs_top=sup; |
vs_top=sup; |
2012 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2013 |
goto T962;} |
goto T962;} |
2014 |
|
goto T961; |
2015 |
T961:; |
T961:; |
2016 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V240)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V240)))); |
2017 |
goto T960; |
goto T960; |
2018 |
|
goto T962; |
2019 |
T962:; |
T962:; |
2020 |
{object V243= car((V240)); |
{object V243= car((V240)); |
2021 |
if((V243!= VV[85]))goto T973; |
if((V243!= VV[85]))goto T973; |
2024 |
goto T978;} |
goto T978;} |
2025 |
V245= small_fixnum(0); |
V245= small_fixnum(0); |
2026 |
goto T976; |
goto T976; |
2027 |
|
goto T978; |
2028 |
T978:; |
T978:; |
2029 |
if((symbol_value(VV[54]))!=Cnil){ |
if((symbol_value(VV[54]))!=Cnil){ |
2030 |
goto T981;} |
goto T981;} |
2031 |
V245= small_fixnum(1); |
V245= small_fixnum(1); |
2032 |
goto T976; |
goto T976; |
2033 |
|
goto T981; |
2034 |
T981:; |
T981:; |
2035 |
if((symbol_value(VV[49]))!=Cnil){ |
if((symbol_value(VV[49]))!=Cnil){ |
2036 |
goto T984;} |
goto T984;} |
2037 |
V245= small_fixnum(2); |
V245= small_fixnum(2); |
2038 |
goto T976; |
goto T976; |
2039 |
|
goto T984; |
2040 |
T984:; |
T984:; |
2041 |
V245= small_fixnum(3); |
V245= small_fixnum(3); |
2042 |
|
goto T976; |
2043 |
T976:; |
T976:; |
2044 |
if(number_compare(/* INLINE-ARGS */V244,V245)==0){ |
if(number_compare(/* INLINE-ARGS */V244,V245)==0){ |
2045 |
goto T960;} |
goto T960;} |
2046 |
{object V246 = Cnil; |
{object V246 = Cnil; |
2047 |
VMR26(V246)} |
VMR26(V246)} |
2048 |
|
goto T973; |
2049 |
T973:; |
T973:; |
2050 |
if((V243!= VV[86]))goto T986; |
if((V243!= VV[86]))goto T986; |
2051 |
if(number_compare(cadr((V240)),symbol_value(VV[55]))==0){ |
if(number_compare(cadr((V240)),symbol_value(VV[55]))==0){ |
2052 |
goto T960;} |
goto T960;} |
2053 |
{object V247 = Cnil; |
{object V247 = Cnil; |
2054 |
VMR26(V247)} |
VMR26(V247)} |
2055 |
|
goto T986; |
2056 |
T986:; |
T986:; |
2057 |
if((V243!= VV[132]))goto T989; |
if((V243!= VV[132]))goto T989; |
2058 |
if(number_compare(cadr((V240)),symbol_value(VV[56]))==0){ |
if(number_compare(cadr((V240)),symbol_value(VV[56]))==0){ |
2059 |
goto T960;} |
goto T960;} |
2060 |
{object V248 = Cnil; |
{object V248 = Cnil; |
2061 |
VMR26(V248)} |
VMR26(V248)} |
2062 |
|
goto T989; |
2063 |
T989:; |
T989:; |
2064 |
if((V243!= VV[133]))goto T992; |
if((V243!= VV[133]))goto T992; |
2065 |
V249= number_minus(small_fixnum(3),cadr((V240))); |
V249= number_minus(small_fixnum(3),cadr((V240))); |
2067 |
goto T960;} |
goto T960;} |
2068 |
{object V250 = Cnil; |
{object V250 = Cnil; |
2069 |
VMR26(V250)} |
VMR26(V250)} |
2070 |
|
goto T992; |
2071 |
T992:; |
T992:; |
2072 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V240)))));} |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V240)))));} |
2073 |
|
goto T960; |
2074 |
T960:; |
T960:; |
2075 |
V239= cdr((V239)); |
V239= cdr((V239)); |
2076 |
V240= car((V239)); |
V240= car((V239)); |
2077 |
goto T951;} |
goto T951;} |
2078 |
|
goto T947; |
2079 |
T947:; |
T947:; |
2080 |
if((V234!= VV[134]))goto T1000; |
if((V234!= VV[134]))goto T1000; |
2081 |
if(!(type_of(cdr((V233)))==t_cons)){ |
if(!(type_of(cdr((V233)))==t_cons)){ |
2088 |
object V254; |
object V254; |
2089 |
V253= cddr((V233)); |
V253= cddr((V233)); |
2090 |
V254= car((V253)); |
V254= car((V253)); |
2091 |
|
goto T1008; |
2092 |
T1008:; |
T1008:; |
2093 |
if(!(endp((V253)))){ |
if(!(endp((V253)))){ |
2094 |
goto T1009;} |
goto T1009;} |
2095 |
{object V255 = Ct; |
{object V255 = Ct; |
2096 |
VMR26(V255)} |
VMR26(V255)} |
2097 |
|
goto T1009; |
2098 |
T1009:; |
T1009:; |
2099 |
if(!(type_of((V254))==t_symbol)){ |
if(!(type_of((V254))==t_symbol)){ |
2100 |
goto T1015;} |
goto T1015;} |
2103 |
goto T1017;} |
goto T1017;} |
2104 |
if(equal((V252),(V251))){ |
if(equal((V252),(V251))){ |
2105 |
goto T1013;} |
goto T1013;} |
2106 |
|
goto T1017; |
2107 |
T1017:; |
T1017:; |
2108 |
{object V256 = Cnil; |
{object V256 = Cnil; |
2109 |
VMR26(V256)} |
VMR26(V256)} |
2110 |
|
goto T1015; |
2111 |
T1015:; |
T1015:; |
2112 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V254)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V254)))); |
2113 |
|
goto T1013; |
2114 |
T1013:; |
T1013:; |
2115 |
V253= cdr((V253)); |
V253= cdr((V253)); |
2116 |
V254= car((V253)); |
V254= car((V253)); |
2117 |
goto T1008;}} |
goto T1008;}} |
2118 |
|
goto T1002; |
2119 |
T1002:; |
T1002:; |
2120 |
{object V257 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V233))); |
{object V257 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V233))); |
2121 |
VMR26(V257)} |
VMR26(V257)} |
2122 |
|
goto T1000; |
2123 |
T1000:; |
T1000:; |
2124 |
if((V234!= VV[136]) |
if((V234!= VV[136]) |
2125 |
&& (V234!= VV[137]) |
&& (V234!= VV[137]) |
2133 |
object V261; |
object V261; |
2134 |
V260= cdr((V233)); |
V260= cdr((V233)); |
2135 |
V261= car((V260)); |
V261= car((V260)); |
2136 |
|
goto T1032; |
2137 |
T1032:; |
T1032:; |
2138 |
if(!(endp((V260)))){ |
if(!(endp((V260)))){ |
2139 |
goto T1033;} |
goto T1033;} |
2140 |
{object V262 = Ct; |
{object V262 = Ct; |
2141 |
VMR26(V262)} |
VMR26(V262)} |
2142 |
|
goto T1033; |
2143 |
T1033:; |
T1033:; |
2144 |
if(!(type_of((V261))==t_symbol)){ |
if(!(type_of((V261))==t_symbol)){ |
2145 |
goto T1039;} |
goto T1039;} |
2148 |
goto T1041;} |
goto T1041;} |
2149 |
if(equal((V259),(V258))){ |
if(equal((V259),(V258))){ |
2150 |
goto T1037;} |
goto T1037;} |
2151 |
|
goto T1041; |
2152 |
T1041:; |
T1041:; |
2153 |
{object V263 = Cnil; |
{object V263 = Cnil; |
2154 |
VMR26(V263)} |
VMR26(V263)} |
2155 |
|
goto T1039; |
2156 |
T1039:; |
T1039:; |
2157 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V261)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V261)))); |
2158 |
|
goto T1037; |
2159 |
T1037:; |
T1037:; |
2160 |
V260= cdr((V260)); |
V260= cdr((V260)); |
2161 |
V261= car((V260)); |
V261= car((V260)); |
2162 |
goto T1032;}} |
goto T1032;}} |
2163 |
|
goto T1027; |
2164 |
T1027:; |
T1027:; |
2165 |
if((V234!= VV[140]))goto T1051; |
if((V234!= VV[140]))goto T1051; |
2166 |
if(endp(cdr((V233)))){ |
if(endp(cdr((V233)))){ |
2171 |
goto T1052;} |
goto T1052;} |
2172 |
if(!(endp(cdadr((V233))))){ |
if(!(endp(cdadr((V233))))){ |
2173 |
goto T1053;} |
goto T1053;} |
2174 |
|
goto T1052; |
2175 |
T1052:; |
T1052:; |
2176 |
{object V264 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V233))); |
{object V264 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V233))); |
2177 |
VMR26(V264)} |
VMR26(V264)} |
2178 |
|
goto T1053; |
2179 |
T1053:; |
T1053:; |
2180 |
{register object V265; |
{register object V265; |
2181 |
object V266; |
object V266; |
2182 |
V265= cddr((V233)); |
V265= cddr((V233)); |
2183 |
V266= car((V265)); |
V266= car((V265)); |
2184 |
|
goto T1064; |
2185 |
T1064:; |
T1064:; |
2186 |
if(!(endp((V265)))){ |
if(!(endp((V265)))){ |
2187 |
goto T1065;} |
goto T1065;} |
2188 |
{object V267 = Ct; |
{object V267 = Ct; |
2189 |
VMR26(V267)} |
VMR26(V267)} |
2190 |
|
goto T1065; |
2191 |
T1065:; |
T1065:; |
2192 |
if((get((V266),VV[38],Cnil))==Cnil){ |
if((get((V266),VV[38],Cnil))==Cnil){ |
2193 |
goto T1070;} |
goto T1070;} |
2199 |
V271= get((V266),VV[37],Cnil); |
V271= get((V266),VV[37],Cnil); |
2200 |
if(equal(/* INLINE-ARGS */V270,V271)){ |
if(equal(/* INLINE-ARGS */V270,V271)){ |
2201 |
goto T1069;} |
goto T1069;} |
2202 |
|
goto T1070; |
2203 |
T1070:; |
T1070:; |
2204 |
{object V272 = Cnil; |
{object V272 = Cnil; |
2205 |
VMR26(V272)} |
VMR26(V272)} |
2206 |
|
goto T1069; |
2207 |
T1069:; |
T1069:; |
2208 |
V265= cdr((V265)); |
V265= cdr((V265)); |
2209 |
V266= car((V265)); |
V266= car((V265)); |
2210 |
goto T1064;} |
goto T1064;} |
2211 |
|
goto T1051; |
2212 |
T1051:; |
T1051:; |
2213 |
if((V234!= VV[26]))goto T1083; |
if((V234!= VV[26]))goto T1083; |
2214 |
if(endp(cdr((V233)))){ |
if(endp(cdr((V233)))){ |
2215 |
goto T1084;} |
goto T1084;} |
2216 |
if(!(endp(cddr((V233))))){ |
if(!(endp(cddr((V233))))){ |
2217 |
goto T1085;} |
goto T1085;} |
2218 |
|
goto T1084; |
2219 |
T1084:; |
T1084:; |
2220 |
{object V273 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V233))); |
{object V273 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V233))); |
2221 |
VMR26(V273)} |
VMR26(V273)} |
2222 |
|
goto T1085; |
2223 |
T1085:; |
T1085:; |
2224 |
if((get(cadr((V233)),VV[38],Cnil))!=Cnil){ |
if((get(cadr((V233)),VV[38],Cnil))!=Cnil){ |
2225 |
goto T1089;} |
goto T1089;} |
2226 |
{object V274 = Cnil; |
{object V274 = Cnil; |
2227 |
VMR26(V274)} |
VMR26(V274)} |
2228 |
|
goto T1089; |
2229 |
T1089:; |
T1089:; |
2230 |
V275= (*(LnkLI124))(caddr((V233))); |
V275= (*(LnkLI124))(caddr((V233))); |
2231 |
V276= get(cadr((V233)),VV[36],Cnil); |
V276= get(cadr((V233)),VV[36],Cnil); |
2233 |
goto T1091;} |
goto T1091;} |
2234 |
{object V277 = Cnil; |
{object V277 = Cnil; |
2235 |
VMR26(V277)} |
VMR26(V277)} |
2236 |
|
goto T1091; |
2237 |
T1091:; |
T1091:; |
2238 |
V278= (*(LnkLI125))(cdddr((V233))); |
V278= (*(LnkLI125))(cdddr((V233))); |
2239 |
V279= get(cadr((V233)),VV[37],Cnil); |
V279= get(cadr((V233)),VV[37],Cnil); |
2240 |
{object V280 = (equal(/* INLINE-ARGS */V278,V279)?Ct:Cnil); |
{object V280 = (equal(/* INLINE-ARGS */V278,V279)?Ct:Cnil); |
2241 |
VMR26(V280)} |
VMR26(V280)} |
2242 |
|
goto T1083; |
2243 |
T1083:; |
T1083:; |
2244 |
if((V234!= VV[90]))goto T1095; |
if((V234!= VV[90]))goto T1095; |
2245 |
{register object V281; |
{register object V281; |
2246 |
object V282; |
object V282; |
2247 |
V281= cdr((V233)); |
V281= cdr((V233)); |
2248 |
V282= car((V281)); |
V282= car((V281)); |
2249 |
|
goto T1099; |
2250 |
T1099:; |
T1099:; |
2251 |
if(!(endp((V281)))){ |
if(!(endp((V281)))){ |
2252 |
goto T1100;} |
goto T1100;} |
2253 |
{object V283 = Ct; |
{object V283 = Ct; |
2254 |
VMR26(V283)} |
VMR26(V283)} |
2255 |
|
goto T1100; |
2256 |
T1100:; |
T1100:; |
2257 |
if(!(type_of((V282))==t_symbol)){ |
if(!(type_of((V282))==t_symbol)){ |
2258 |
goto T1106;} |
goto T1106;} |
2260 |
goto T1104;} |
goto T1104;} |
2261 |
{object V284 = Cnil; |
{object V284 = Cnil; |
2262 |
VMR26(V284)} |
VMR26(V284)} |
2263 |
|
goto T1106; |
2264 |
T1106:; |
T1106:; |
2265 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V282)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V282)))); |
2266 |
|
goto T1104; |
2267 |
T1104:; |
T1104:; |
2268 |
V281= cdr((V281)); |
V281= cdr((V281)); |
2269 |
V282= car((V281)); |
V282= car((V281)); |
2270 |
goto T1099;} |
goto T1099;} |
2271 |
|
goto T1095; |
2272 |
T1095:; |
T1095:; |
2273 |
if((V234!= VV[92]))goto T1115; |
if((V234!= VV[92]))goto T1115; |
2274 |
{register object V285; |
{register object V285; |
2275 |
object V286; |
object V286; |
2276 |
V285= cdr((V233)); |
V285= cdr((V233)); |
2277 |
V286= car((V285)); |
V286= car((V285)); |
2278 |
|
goto T1119; |
2279 |
T1119:; |
T1119:; |
2280 |
if(!(endp((V285)))){ |
if(!(endp((V285)))){ |
2281 |
goto T1120;} |
goto T1120;} |
2282 |
{object V287 = Ct; |
{object V287 = Ct; |
2283 |
VMR26(V287)} |
VMR26(V287)} |
2284 |
|
goto T1120; |
2285 |
T1120:; |
T1120:; |
2286 |
if(!(type_of((V286))==t_symbol)){ |
if(!(type_of((V286))==t_symbol)){ |
2287 |
goto T1126;} |
goto T1126;} |
2289 |
goto T1124;} |
goto T1124;} |
2290 |
{object V288 = Cnil; |
{object V288 = Cnil; |
2291 |
VMR26(V288)} |
VMR26(V288)} |
2292 |
|
goto T1126; |
2293 |
T1126:; |
T1126:; |
2294 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V286)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V286)))); |
2295 |
|
goto T1124; |
2296 |
T1124:; |
T1124:; |
2297 |
V285= cdr((V285)); |
V285= cdr((V285)); |
2298 |
V286= car((V285)); |
V286= car((V285)); |
2299 |
goto T1119;} |
goto T1119;} |
2300 |
|
goto T1115; |
2301 |
T1115:; |
T1115:; |
2302 |
if((V234!= VV[79]) |
if((V234!= VV[79]) |
2303 |
&& (V234!= VV[142]))goto T1135; |
&& (V234!= VV[142]))goto T1135; |
2305 |
object V290; |
object V290; |
2306 |
V289= cdr((V233)); |
V289= cdr((V233)); |
2307 |
V290= car((V289)); |
V290= car((V289)); |
2308 |
|
goto T1139; |
2309 |
T1139:; |
T1139:; |
2310 |
if(!(endp((V289)))){ |
if(!(endp((V289)))){ |
2311 |
goto T1140;} |
goto T1140;} |
2312 |
{object V291 = Ct; |
{object V291 = Ct; |
2313 |
VMR26(V291)} |
VMR26(V291)} |
2314 |
|
goto T1140; |
2315 |
T1140:; |
T1140:; |
2316 |
if(type_of((V290))==t_symbol){ |
if(type_of((V290))==t_symbol){ |
2317 |
goto T1144;} |
goto T1144;} |
2318 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V290)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V290)))); |
2319 |
|
goto T1144; |
2320 |
T1144:; |
T1144:; |
2321 |
V289= cdr((V289)); |
V289= cdr((V289)); |
2322 |
V290= car((V289)); |
V290= car((V289)); |
2323 |
goto T1139;} |
goto T1139;} |
2324 |
|
goto T1135; |
2325 |
T1135:; |
T1135:; |
2326 |
if((V234!= VV[143]))goto T1152; |
if((V234!= VV[143]))goto T1152; |
2327 |
{register object V292; |
{register object V292; |
2328 |
object V293; |
object V293; |
2329 |
V292= cdr((V233)); |
V292= cdr((V233)); |
2330 |
V293= car((V292)); |
V293= car((V292)); |
2331 |
|
goto T1156; |
2332 |
T1156:; |
T1156:; |
2333 |
if(!(endp((V292)))){ |
if(!(endp((V292)))){ |
2334 |
goto T1157;} |
goto T1157;} |
2335 |
{object V294 = Ct; |
{object V294 = Ct; |
2336 |
VMR26(V294)} |
VMR26(V294)} |
2337 |
|
goto T1157; |
2338 |
T1157:; |
T1157:; |
2339 |
if(!(type_of((V293))==t_symbol)){ |
if(!(type_of((V293))==t_symbol)){ |
2340 |
goto T1163;} |
goto T1163;} |
2345 |
}else V295=V295->c.c_cdr;} |
}else V295=V295->c.c_cdr;} |
2346 |
{object V296 = Cnil; |
{object V296 = Cnil; |
2347 |
VMR26(V296)} |
VMR26(V296)} |
2348 |
|
goto T1163; |
2349 |
T1163:; |
T1163:; |
2350 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V293)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V293)))); |
2351 |
|
goto T1161; |
2352 |
T1161:; |
T1161:; |
2353 |
V292= cdr((V292)); |
V292= cdr((V292)); |
2354 |
V293= car((V292)); |
V293= car((V292)); |
2355 |
goto T1156;} |
goto T1156;} |
2356 |
|
goto T1152; |
2357 |
T1152:; |
T1152:; |
2358 |
if((V234== VV[144]) |
if((V234== VV[144]) |
2359 |
|| (V234== VV[145]) |
|| (V234== VV[145]) |
2398 |
if((V234!= VV[176]) |
if((V234!= VV[176]) |
2399 |
&& (V234!= VV[177]) |
&& (V234!= VV[177]) |
2400 |
&& (V234!= VV[178]))goto T1172; |
&& (V234!= VV[178]))goto T1172; |
2401 |
|
goto T1173; |
2402 |
T1173:; |
T1173:; |
2403 |
{object V297; |
{object V297; |
2404 |
V297= (*(LnkLI122))(car((V233))); |
V297= (*(LnkLI122))(car((V233))); |
2406 |
object V299; |
object V299; |
2407 |
V298= cdr((V233)); |
V298= cdr((V233)); |
2408 |
V299= car((V298)); |
V299= car((V298)); |
2409 |
|
goto T1178; |
2410 |
T1178:; |
T1178:; |
2411 |
if(!(endp((V298)))){ |
if(!(endp((V298)))){ |
2412 |
goto T1179;} |
goto T1179;} |
2413 |
{object V300 = Ct; |
{object V300 = Ct; |
2414 |
VMR26(V300)} |
VMR26(V300)} |
2415 |
|
goto T1179; |
2416 |
T1179:; |
T1179:; |
2417 |
if(!(type_of((V299))==t_symbol)){ |
if(!(type_of((V299))==t_symbol)){ |
2418 |
goto T1185;} |
goto T1185;} |
2421 |
goto T1183;} |
goto T1183;} |
2422 |
{object V302 = Cnil; |
{object V302 = Cnil; |
2423 |
VMR26(V302)} |
VMR26(V302)} |
2424 |
|
goto T1185; |
2425 |
T1185:; |
T1185:; |
2426 |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V299)))); |
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V299)))); |
2427 |
|
goto T1183; |
2428 |
T1183:; |
T1183:; |
2429 |
V298= cdr((V298)); |
V298= cdr((V298)); |
2430 |
V299= car((V298)); |
V299= car((V298)); |
2431 |
goto T1178;}} |
goto T1178;}} |
2432 |
|
goto T1172; |
2433 |
T1172:; |
T1172:; |
2434 |
{register object x= car((V233)),V303= symbol_value(VV[64]); |
{register object x= car((V233)),V303= symbol_value(VV[64]); |
2435 |
while(!endp(V303)) |
while(!endp(V303)) |
2438 |
}else V303=V303->c.c_cdr;} |
}else V303=V303->c.c_cdr;} |
2439 |
{object V304 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V233)))); |
{object V304 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V233)))); |
2440 |
VMR26(V304)} |
VMR26(V304)} |
2441 |
|
goto T1196; |
2442 |
T1196:; |
T1196:; |
2443 |
{object V305 = Cnil; |
{object V305 = Cnil; |
2444 |
VMR26(V305)}} |
VMR26(V305)}} |
2445 |
|
base[0]=base[0]; |
2446 |
|
return Cnil; |
2447 |
} |
} |
2448 |
static LnkT186(){ call_or_link(VV[186],&Lnk186);} /* C2EXPR */ |
static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */ |
2449 |
static object LnkTLI185(){return call_proc0(VV[185],&LnkLI185);} /* BABOON */ |
static object LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */ |
2450 |
static object LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],&LnkLI184,ap);} /* REMOVE */ |
static object LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],(void **)&LnkLI184,ap);} /* REMOVE */ |
2451 |
static object LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */ |
static object LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],(void **)&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */ |
2452 |
static object LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],&LnkLI182,1,ap);} /* C1PROGN */ |
static object LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],(void **)&LnkLI182,1,ap);} /* C1PROGN */ |
2453 |
static object LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],&LnkLI180,1,ap);} /* CMP-MACROEXPAND */ |
static object LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* CMP-MACROEXPAND */ |
2454 |
static object LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],&LnkLI179,1,ap);} /* SCH-GLOBAL */ |
static object LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],(void **)&LnkLI179,1,ap);} /* SCH-GLOBAL */ |
2455 |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */ |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */ |
2456 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],&LnkLI135,2,ap);} /* PROCLAIM-VAR */ |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,2,ap);} /* PROCLAIM-VAR */ |
2457 |
static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* *MAKE-SPECIAL */ |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */ |
2458 |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],&LnkLI128,ap);} /* CMPWARN */ |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],(void **)&LnkLI128,ap);} /* CMPWARN */ |
2459 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],&LnkLI127,2,ap);} /* TYPE-AND */ |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],(void **)&LnkLI127,2,ap);} /* TYPE-AND */ |
2460 |
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */ |
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */ |
2461 |
static object LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */ |
static object LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */ |
2462 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */ |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */ |
2463 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* WARN */ |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* WARN */ |
2464 |
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],&LnkLI122,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],(void **)&LnkLI122,1,ap);} /* TYPE-FILTER */ |
2465 |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* CMPERR */ |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPERR */ |
2466 |
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */ |
2467 |
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* TYPEP */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */ |
2468 |
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* WT-TO-STRING */ |
static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */ |
2469 |
static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* CONTAINS-SHARP-COMMA */ |
static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */ |
2470 |
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* GET-OUTPUT-STREAM-STRING */ |
static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */ |
2471 |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,1,ap);} /* WT-DATA1 */ |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,1,ap);} /* WT-DATA1 */ |
2472 |
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */ |
2473 |
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* PUSH-DATA-INCF */ |
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* PUSH-DATA-INCF */ |
2474 |
|
|
2475 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2476 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |