1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpenv.h" |
4 |
|
void init_gcl_cmpenv(){do_init(VV);} |
5 |
|
/* local entry for function INIT-ENV */ |
6 |
|
|
7 |
|
static object LI1() |
8 |
|
|
9 |
|
{ VMB1 VMS1 VMV1 |
10 |
|
goto TTL; |
11 |
|
TTL:; |
12 |
|
setq(VV[0],small_fixnum(0)); |
13 |
|
setq(VV[1],small_fixnum(0)); |
14 |
|
setq(VV[2],small_fixnum(-1)); |
15 |
|
setq(VV[3],small_fixnum(0)); |
16 |
|
setq(VV[4],small_fixnum(0)); |
17 |
|
setq(VV[5],Cnil); |
18 |
|
setq(VV[6],Cnil); |
19 |
|
setq(VV[7],Cnil); |
20 |
|
setq(VV[8],Cnil); |
21 |
|
setq(VV[9],Cnil); |
22 |
|
setq(VV[10],Cnil); |
23 |
|
setq(VV[11],Cnil); |
24 |
|
setq(VV[12],Cnil); |
25 |
|
setq(VV[13],Cnil); |
26 |
|
setq(VV[14],Cnil); |
27 |
|
setq(VV[15],Cnil); |
28 |
|
setq(VV[16],Cnil); |
29 |
|
setq(VV[17],small_fixnum(0)); |
30 |
|
setq(VV[18],Cnil); |
31 |
|
{object V1 = Cnil; |
32 |
|
VMR1(V1)} |
33 |
|
return Cnil; |
34 |
|
} |
35 |
|
/* macro definition for NEXT-CFUN */ |
36 |
|
|
37 |
|
static void L2() |
38 |
|
{register object *base=vs_base; |
39 |
|
register object *sup=base+VM2; VC2 |
40 |
|
vs_reserve(VM2); |
41 |
|
check_arg(2); |
42 |
|
vs_top=sup; |
43 |
|
{object V2=base[0]->c.c_cdr; |
44 |
|
if(!endp(V2))invalid_macro_call();} |
45 |
|
base[2]= VV[19]; |
46 |
|
vs_top=(vs_base=base+2)+1; |
47 |
|
return; |
48 |
|
} |
49 |
|
/* local entry for function ADD-SYMBOL */ |
50 |
|
|
51 |
|
static object LI3(V4) |
52 |
|
|
53 |
|
object V4; |
54 |
|
{ VMB3 VMS3 VMV3 |
55 |
|
goto TTL; |
56 |
|
TTL:; |
57 |
|
{object V5; |
58 |
|
{register object x= (V4),V6= symbol_value(VV[5]); |
59 |
|
while(!endp(V6)) |
60 |
|
if(type_of(V6->c.c_car)==t_cons &&eql(x,V6->c.c_car->c.c_car)){ |
61 |
|
V5= (V6->c.c_car); |
62 |
|
goto T38; |
63 |
|
}else V6=V6->c.c_cdr; |
64 |
|
V5= Cnil;} |
65 |
|
goto T38; |
66 |
|
T38:; |
67 |
|
if(((V5))==Cnil){ |
68 |
|
goto T40;} |
69 |
|
{object V7 = cadr((V5)); |
70 |
|
VMR3(V7)} |
71 |
|
goto T40; |
72 |
|
T40:; |
73 |
|
(void)((*(LnkLI113))((V4))); |
74 |
|
{object V8; |
75 |
|
V8= list(2,(V4),symbol_value(VV[2])); |
76 |
|
setq(VV[5],make_cons((V8),symbol_value(VV[5])));} |
77 |
|
{object V9 = symbol_value(VV[2]); |
78 |
|
VMR3(V9)}} |
79 |
|
base[0]=base[0]; |
80 |
|
return Cnil; |
81 |
|
} |
82 |
|
/* function definition for WT-TO-STRING */ |
83 |
|
|
84 |
|
static void L4() |
85 |
|
{register object *base=vs_base; |
86 |
|
register object *sup=base+VM4; VC4 |
87 |
|
vs_reserve(VM4); |
88 |
|
bds_check; |
89 |
|
{object V10; |
90 |
|
check_arg(1); |
91 |
|
V10=(base[0]); |
92 |
|
vs_top=sup; |
93 |
|
goto TTL; |
94 |
|
TTL:; |
95 |
|
vs_base=vs_top; |
96 |
|
(void) (*Lnk114)(); |
97 |
|
vs_top=sup; |
98 |
|
bds_bind(VV[20],vs_base[0]); |
99 |
|
bds_bind(VV[21],Cnil); |
100 |
|
(void)((*(LnkLI115))((V10))); |
101 |
|
base[3]= (VV[20]->s.s_dbind); |
102 |
|
vs_top=(vs_base=base+3)+1; |
103 |
|
(void) (*Lnk116)(); |
104 |
|
bds_unwind1; |
105 |
|
bds_unwind1; |
106 |
|
return; |
107 |
|
} |
108 |
|
} |
109 |
|
/* local entry for function ADD-OBJECT */ |
110 |
|
|
111 |
|
static object LI5(V12) |
112 |
|
|
113 |
|
register object V12; |
114 |
|
{ VMB5 VMS5 VMV5 |
115 |
|
goto TTL; |
116 |
|
TTL:; |
117 |
|
{object V13; |
118 |
|
V13= Cnil; |
119 |
|
base[0]= (V12); |
120 |
|
vs_top=(vs_base=base+0)+1; |
121 |
|
(void) (*Lnk117)(); |
122 |
|
vs_top=sup; |
123 |
|
if((vs_base[0])==Cnil){ |
124 |
|
goto T51;} |
125 |
|
if(!(type_of((V12))==t_cons)){ |
126 |
|
goto T56;} |
127 |
|
if(!((car((V12)))==(VV[22]))){ |
128 |
|
goto T56;} |
129 |
|
base[0]= cdr((V12)); |
130 |
|
vs_top=(vs_base=base+0)+1; |
131 |
|
(void) (*Lnk117)(); |
132 |
|
vs_top=sup; |
133 |
|
if((vs_base[0])!=Cnil){ |
134 |
|
goto T56;} |
135 |
|
V12= cdr((V12)); |
136 |
|
goto T54; |
137 |
|
goto T56; |
138 |
|
T56:; |
139 |
|
base[0]= (V12); |
140 |
|
vs_top=(vs_base=base+0)+1; |
141 |
|
(void) (*Lnk118)(); |
142 |
|
vs_top=sup; |
143 |
|
V14= vs_base[0]; |
144 |
|
V12= list(2,VV[23],V14); |
145 |
|
goto T54; |
146 |
|
T54:; |
147 |
|
(void)((*(LnkLI113))(Cnil)); |
148 |
|
{object V15; |
149 |
|
V15= list(2,symbol_value(VV[2]),(V12)); |
150 |
|
setq(VV[24],make_cons((V15),symbol_value(VV[24])));} |
151 |
|
{object V16 = symbol_value(VV[2]); |
152 |
|
VMR5(V16)} |
153 |
|
goto T51; |
154 |
|
T51:; |
155 |
|
{register object x= (V12),V17= symbol_value(VV[5]); |
156 |
|
while(!endp(V17)) |
157 |
|
if(type_of(V17->c.c_car)==t_cons &&eql(x,V17->c.c_car->c.c_car)){ |
158 |
|
V13= (V17->c.c_car); |
159 |
|
goto T74; |
160 |
|
}else V17=V17->c.c_cdr; |
161 |
|
V13= Cnil;} |
162 |
|
goto T74; |
163 |
|
T74:; |
164 |
|
if(((V13))==Cnil){ |
165 |
|
goto T72;} |
166 |
|
{object V18 = cadr((V13)); |
167 |
|
VMR5(V18)} |
168 |
|
goto T72; |
169 |
|
T72:; |
170 |
|
base[0]= (V12); |
171 |
|
base[1]= VV[25]; |
172 |
|
vs_top=(vs_base=base+0)+2; |
173 |
|
(void) (*Lnk119)(); |
174 |
|
vs_top=sup; |
175 |
|
if((vs_base[0])==Cnil){ |
176 |
|
goto T76;} |
177 |
|
(void)((*(LnkLI113))(Cnil)); |
178 |
|
{object V19;{object V20; |
179 |
|
V20= symbol_value(VV[2]);{object V22; |
180 |
|
base[1]= (V12); |
181 |
|
vs_top=(vs_base=base+1)+1; |
182 |
|
(void) (*Lnk120)(); |
183 |
|
vs_top=sup; |
184 |
|
V22= vs_base[0]; |
185 |
|
if(V22==Cnil)goto T84; |
186 |
|
V21= V22; |
187 |
|
goto T83; |
188 |
|
goto T84; |
189 |
|
T84:;} |
190 |
|
V21= (VFUN_NARGS=1,(*(LnkLI121))(VV[27])); |
191 |
|
goto T83; |
192 |
|
T83:; |
193 |
|
V19= list(2,V20,list(2,VV[26],V21));} |
194 |
|
setq(VV[24],make_cons((V19),symbol_value(VV[24])));} |
195 |
|
{object V23 = symbol_value(VV[2]); |
196 |
|
VMR5(V23)} |
197 |
|
goto T76; |
198 |
|
T76:; |
199 |
|
(void)((*(LnkLI113))((V12))); |
200 |
|
{object V24; |
201 |
|
V24= list(2,(V12),symbol_value(VV[2])); |
202 |
|
setq(VV[5],make_cons((V24),symbol_value(VV[5])));} |
203 |
|
{object V25 = symbol_value(VV[2]); |
204 |
|
VMR5(V25)}} |
205 |
|
base[0]=base[0]; |
206 |
|
return Cnil; |
207 |
|
} |
208 |
|
/* local entry for function ADD-CONSTANT */ |
209 |
|
|
210 |
|
static object LI6(V27) |
211 |
|
|
212 |
|
object V27; |
213 |
|
{ VMB6 VMS6 VMV6 |
214 |
|
goto TTL; |
215 |
|
TTL:; |
216 |
|
{object V28; |
217 |
|
V28= Cnil; |
218 |
|
{register object x= (V27),V29= symbol_value(VV[6]); |
219 |
|
while(!endp(V29)) |
220 |
|
if(type_of(V29->c.c_car)==t_cons &&eql(x,V29->c.c_car->c.c_car)){ |
221 |
|
V28= (V29->c.c_car); |
222 |
|
goto T96; |
223 |
|
}else V29=V29->c.c_cdr; |
224 |
|
V28= Cnil;} |
225 |
|
goto T96; |
226 |
|
T96:; |
227 |
|
if(((V28))==Cnil){ |
228 |
|
goto T94;} |
229 |
|
{object V30 = cadr((V28)); |
230 |
|
VMR6(V30)} |
231 |
|
goto T94; |
232 |
|
T94:; |
233 |
|
(void)((*(LnkLI113))(Cnil)); |
234 |
|
{object V31; |
235 |
|
V31= list(2,symbol_value(VV[2]),(V27)); |
236 |
|
setq(VV[24],make_cons((V31),symbol_value(VV[24])));} |
237 |
|
{object V32; |
238 |
|
V32= list(2,(V27),symbol_value(VV[2])); |
239 |
|
setq(VV[6],make_cons((V32),symbol_value(VV[6])));} |
240 |
|
{object V33 = symbol_value(VV[2]); |
241 |
|
VMR6(V33)}} |
242 |
|
base[0]=base[0]; |
243 |
|
return Cnil; |
244 |
|
} |
245 |
|
/* macro definition for NEXT-CVAR */ |
246 |
|
|
247 |
|
static void L7() |
248 |
|
{register object *base=vs_base; |
249 |
|
register object *sup=base+VM7; VC7 |
250 |
|
vs_reserve(VM7); |
251 |
|
check_arg(2); |
252 |
|
vs_top=sup; |
253 |
|
{object V34=base[0]->c.c_cdr; |
254 |
|
if(!endp(V34))invalid_macro_call();} |
255 |
|
base[2]= VV[28]; |
256 |
|
vs_top=(vs_base=base+2)+1; |
257 |
|
return; |
258 |
|
} |
259 |
|
/* macro definition for NEXT-CMACRO */ |
260 |
|
|
261 |
|
static void L8() |
262 |
|
{register object *base=vs_base; |
263 |
|
register object *sup=base+VM8; VC8 |
264 |
|
vs_reserve(VM8); |
265 |
|
check_arg(2); |
266 |
|
vs_top=sup; |
267 |
|
{object V35=base[0]->c.c_cdr; |
268 |
|
if(!endp(V35))invalid_macro_call();} |
269 |
|
base[2]= VV[29]; |
270 |
|
vs_top=(vs_base=base+2)+1; |
271 |
|
return; |
272 |
|
} |
273 |
|
/* local entry for function FUNCTION-ARG-TYPES */ |
274 |
|
|
275 |
|
static object LI9(V37) |
276 |
|
|
277 |
|
object V37; |
278 |
|
{ VMB9 VMS9 VMV9 |
279 |
|
goto TTL; |
280 |
|
TTL:; |
281 |
|
{object V38; |
282 |
|
register object V39; |
283 |
|
object V40; |
284 |
|
V38= Cnil; |
285 |
|
V39= Cnil; |
286 |
|
V40= Cnil; |
287 |
|
{register object V41; |
288 |
|
register long V42; |
289 |
|
V42= 0; |
290 |
|
V41= (V37); |
291 |
|
goto T111; |
292 |
|
T111:; |
293 |
|
if(!(endp_prop((V41)))){ |
294 |
|
goto T112;} |
295 |
|
V40= reverse((V39)); |
296 |
|
goto T108; |
297 |
|
goto T112; |
298 |
|
T112:; |
299 |
|
{register object x= car((V41)),V43= VV[30]; |
300 |
|
while(!endp(V43)) |
301 |
|
if(eql(x,V43->c.c_car)){ |
302 |
|
goto T117; |
303 |
|
}else V43=V43->c.c_cdr;} |
304 |
|
if(!(equal(car((V41)),VV[31]))){ |
305 |
|
goto T116;} |
306 |
|
goto T117; |
307 |
|
T117:; |
308 |
|
V38= Ct; |
309 |
|
V44= make_cons(VV[31],(V39)); |
310 |
|
V40= reverse(/* INLINE-ARGS */V44); |
311 |
|
goto T108; |
312 |
|
goto T116; |
313 |
|
T116:; |
314 |
|
{object V45; |
315 |
|
if(!((V42)<(9))){ |
316 |
|
goto T126;} |
317 |
|
{register object V46; |
318 |
|
V46= (*(LnkLI122))(car((V41))); |
319 |
|
if(!((VV[32])==((V46)))){ |
320 |
|
goto T130;} |
321 |
|
V45= Ct; |
322 |
|
goto T124; |
323 |
|
goto T130; |
324 |
|
T130:; |
325 |
|
V45= (V46); |
326 |
|
goto T124;} |
327 |
|
goto T126; |
328 |
|
T126:; |
329 |
|
if(!((car((V41)))==(VV[31]))){ |
330 |
|
goto T133;} |
331 |
|
V45= VV[31]; |
332 |
|
goto T124; |
333 |
|
goto T133; |
334 |
|
T133:; |
335 |
|
V45= Ct; |
336 |
|
goto T124; |
337 |
|
T124:; |
338 |
|
V39= make_cons((V45),(V39));} |
339 |
|
V41= cdr((V41)); |
340 |
|
V42= (long)(1)+(V42); |
341 |
|
goto T111;} |
342 |
|
goto T108; |
343 |
|
T108:; |
344 |
|
if(((V38))==Cnil){ |
345 |
|
goto T140;} |
346 |
|
{register object V47; |
347 |
|
V47= (V40); |
348 |
|
goto T144; |
349 |
|
T144:; |
350 |
|
if(((V47))!=Cnil){ |
351 |
|
goto T145;} |
352 |
|
goto T140; |
353 |
|
goto T145; |
354 |
|
T145:; |
355 |
|
{register object V49; |
356 |
|
if(!((car((V47)))==(VV[31]))){ |
357 |
|
goto T152;} |
358 |
|
V49= VV[31]; |
359 |
|
goto T150; |
360 |
|
goto T152; |
361 |
|
T152:; |
362 |
|
V49= Ct; |
363 |
|
goto T150; |
364 |
|
T150:; |
365 |
|
if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47); |
366 |
|
(V47)->c.c_car = (V49);} |
367 |
|
V47= cdr((V47)); |
368 |
|
goto T144;} |
369 |
|
goto T140; |
370 |
|
T140:; |
371 |
|
{object V50 = (V40); |
372 |
|
VMR9(V50)}} |
373 |
|
base[0]=base[0]; |
374 |
|
return Cnil; |
375 |
|
} |
376 |
|
/* local entry for function FUNCTION-RETURN-TYPE */ |
377 |
|
|
378 |
|
static object LI10(V52) |
379 |
|
|
380 |
|
register object V52; |
381 |
|
{ VMB10 VMS10 VMV10 |
382 |
|
goto TTL; |
383 |
|
TTL:; |
384 |
|
if((car((V52)))==(VV[33])){ |
385 |
|
goto T159;} |
386 |
|
goto T158; |
387 |
|
goto T159; |
388 |
|
T159:; |
389 |
|
V52= cdr((V52)); |
390 |
|
goto T158; |
391 |
|
T158:; |
392 |
|
if(!(endp_prop((V52)))){ |
393 |
|
goto T163;} |
394 |
|
{object V53 = Cnil; |
395 |
|
VMR10(V53)} |
396 |
|
goto T163; |
397 |
|
T163:; |
398 |
|
if(!(type_of(car((V52)))==t_cons)){ |
399 |
|
goto T166;} |
400 |
|
if(!((caar((V52)))==(VV[33]))){ |
401 |
|
goto T166;} |
402 |
|
V52= cdr(car((V52))); |
403 |
|
goto TTL; |
404 |
|
goto T166; |
405 |
|
T166:; |
406 |
|
{register object V54; |
407 |
|
register object V55; |
408 |
|
V54= (V52); |
409 |
|
V55= Cnil; |
410 |
|
goto T173; |
411 |
|
T173:; |
412 |
|
if(!(endp_prop((V54)))){ |
413 |
|
goto T174;} |
414 |
|
if(!(((V54))==Cnil)){ |
415 |
|
goto T178;} |
416 |
|
goto T177; |
417 |
|
goto T178; |
418 |
|
T178:; |
419 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52)))); |
420 |
|
goto T177; |
421 |
|
T177:; |
422 |
|
{object V56 = nreverse((V55)); |
423 |
|
VMR10(V56)} |
424 |
|
goto T174; |
425 |
|
T174:; |
426 |
|
{register object V57; |
427 |
|
if(!((car((V54)))==(VV[31]))){ |
428 |
|
goto T184;} |
429 |
|
V57= VV[31]; |
430 |
|
goto T182; |
431 |
|
goto T184; |
432 |
|
T184:; |
433 |
|
V57= (*(LnkLI122))(car((V54))); |
434 |
|
goto T182; |
435 |
|
T182:; |
436 |
|
if(!(((V57))==(VV[32]))){ |
437 |
|
goto T186;} |
438 |
|
V57= Ct; |
439 |
|
goto T186; |
440 |
|
T186:; |
441 |
|
{register object V58; |
442 |
|
V58= (V57); |
443 |
|
V55= make_cons((V58),(V55));}} |
444 |
|
V54= cdr((V54)); |
445 |
|
goto T173;} |
446 |
|
return Cnil; |
447 |
|
} |
448 |
|
/* local entry for function ADD-FUNCTION-PROCLAMATION */ |
449 |
|
|
450 |
|
static object LI11(V62,V63,V64) |
451 |
|
|
452 |
|
object V62;register object V63;register object V64; |
453 |
|
{ VMB11 VMS11 VMV11 |
454 |
|
goto TTL; |
455 |
|
TTL:; |
456 |
|
{register object V65; |
457 |
|
register object V66; |
458 |
|
register object V67; |
459 |
|
V65= Ct; |
460 |
|
V66= Cnil; |
461 |
|
V67= Cnil; |
462 |
|
if(!(type_of((V62))==t_symbol)){ |
463 |
|
goto T199;} |
464 |
|
if(!(type_of((V63))==t_cons||((V63))==Cnil)){ |
465 |
|
goto T199;} |
466 |
|
{object V68= cdr((V63)); |
467 |
|
if(!(type_of(V68)==t_cons||(V68)==Cnil)){ |
468 |
|
goto T199;}} |
469 |
|
if(((V63))==Cnil){ |
470 |
|
goto T206;} |
471 |
|
if(!((car((V63)))==(VV[31]))){ |
472 |
|
goto T207;} |
473 |
|
goto T206; |
474 |
|
T206:; |
475 |
|
V66= VV[35]; |
476 |
|
goto T205; |
477 |
|
goto T207; |
478 |
|
T207:; |
479 |
|
V66= (*(LnkLI124))(car((V63))); |
480 |
|
goto T205; |
481 |
|
T205:; |
482 |
|
V67= (*(LnkLI125))(cdr((V63))); |
483 |
|
if(!(type_of((V67))==t_cons)){ |
484 |
|
goto T217;} |
485 |
|
if(!(endp_prop(cdr((V67))))){ |
486 |
|
goto T217;} |
487 |
|
if((car((V67)))==(VV[31])){ |
488 |
|
goto T217;} |
489 |
|
if(type_of((V66))==t_cons){ |
490 |
|
goto T228;} |
491 |
|
V70= Cnil; |
492 |
|
goto T227; |
493 |
|
goto T228; |
494 |
|
T228:; |
495 |
|
V70= (V66); |
496 |
|
goto T227; |
497 |
|
T227:; |
498 |
|
{register object x= VV[31],V69= V70; |
499 |
|
while(!endp(V69)) |
500 |
|
if(eql(x,V69->c.c_car)){ |
501 |
|
goto T226; |
502 |
|
}else V69=V69->c.c_cdr; |
503 |
|
goto T225;} |
504 |
|
goto T226; |
505 |
|
T226:; |
506 |
|
V67= Ct; |
507 |
|
goto T223; |
508 |
|
goto T225; |
509 |
|
T225:; |
510 |
|
V67= car((V67)); |
511 |
|
goto T223; |
512 |
|
T223:; |
513 |
|
goto T215; |
514 |
|
goto T217; |
515 |
|
T217:; |
516 |
|
V65= Cnil; |
517 |
|
goto T215; |
518 |
|
T215:; |
519 |
|
{object V71; |
520 |
|
if(type_of((V66))==t_cons||((V66))==Cnil){ |
521 |
|
goto T233;} |
522 |
|
V71= Cnil; |
523 |
|
goto T232; |
524 |
|
goto T233; |
525 |
|
T233:; |
526 |
|
V71= (((long)length((V66)))<(64)?Ct:Cnil); |
527 |
|
goto T232; |
528 |
|
T232:; |
529 |
|
if(((V71))==Cnil){ |
530 |
|
goto T236;} |
531 |
|
goto T231; |
532 |
|
goto T236; |
533 |
|
T236:; |
534 |
|
V65= Cnil;} |
535 |
|
goto T231; |
536 |
|
T231:; |
537 |
|
{register object V72; |
538 |
|
V72= (V62); |
539 |
|
goto T240; |
540 |
|
T240:; |
541 |
|
if(!(type_of((V72))==t_symbol)){ |
542 |
|
goto T244;} |
543 |
|
goto T243; |
544 |
|
goto T244; |
545 |
|
T244:; |
546 |
|
V62= (V72); |
547 |
|
V64= Cnil; |
548 |
|
goto TTL; |
549 |
|
goto T243; |
550 |
|
T243:; |
551 |
|
if(!(((V66))==(VV[31]))){ |
552 |
|
goto T252;} |
553 |
|
(void)(remprop((V72),VV[36])); |
554 |
|
goto T250; |
555 |
|
goto T252; |
556 |
|
T252:; |
557 |
|
(void)(putprop((V72),(V66),VV[36])); |
558 |
|
goto T250; |
559 |
|
T250:; |
560 |
|
(void)(putprop((V72),(V67),VV[37])); |
561 |
|
if(((V65))==Cnil){ |
562 |
|
goto T257;} |
563 |
|
(void)(putprop((V72),Ct,VV[38])); |
564 |
|
goto T255; |
565 |
|
goto T257; |
566 |
|
T257:; |
567 |
|
(void)(remprop((V72),VV[38])); |
568 |
|
goto T255; |
569 |
|
T255:; |
570 |
|
V64= cdr((V64)); |
571 |
|
if(!(type_of((V64))==t_cons)){ |
572 |
|
goto T262;} |
573 |
|
goto T261; |
574 |
|
goto T262; |
575 |
|
T262:; |
576 |
|
{object V73 = VV[39]; |
577 |
|
VMR11(V73)} |
578 |
|
goto T261; |
579 |
|
T261:; |
580 |
|
V72= car((V64)); |
581 |
|
goto T240;} |
582 |
|
goto T199; |
583 |
|
T199:; |
584 |
|
{object V74 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V62),(V63))); |
585 |
|
VMR11(V74)}} |
586 |
|
return Cnil; |
587 |
|
} |
588 |
|
/* local entry for function ADD-FUNCTION-DECLARATION */ |
589 |
|
|
590 |
|
static object LI12(V78,V79,V80) |
591 |
|
|
592 |
|
object V78;object V79;object V80; |
593 |
|
{ VMB12 VMS12 VMV12 |
594 |
|
goto TTL; |
595 |
|
TTL:; |
596 |
|
if(!(type_of((V78))==t_symbol)){ |
597 |
|
goto T268;} |
598 |
|
{object V81; |
599 |
|
V82= (*(LnkLI126))((V78)); |
600 |
|
V83= (*(LnkLI124))((V79)); |
601 |
|
V81= list(3,/* INLINE-ARGS */V82,/* INLINE-ARGS */V83,(*(LnkLI125))((V80))); |
602 |
|
setq(VV[15],make_cons((V81),symbol_value(VV[15]))); |
603 |
|
{object V84 = symbol_value(VV[15]); |
604 |
|
VMR12(V84)}} |
605 |
|
goto T268; |
606 |
|
T268:; |
607 |
|
{object V85 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V78))); |
608 |
|
VMR12(V85)} |
609 |
|
base[0]=base[0]; |
610 |
|
return Cnil; |
611 |
|
} |
612 |
|
/* local entry for function GET-ARG-TYPES */ |
613 |
|
|
614 |
|
static object LI13(V87) |
615 |
|
|
616 |
|
object V87; |
617 |
|
{ VMB13 VMS13 VMV13 |
618 |
|
goto TTL; |
619 |
|
TTL:; |
620 |
|
{object V88; |
621 |
|
V88= Cnil; |
622 |
|
{register object x= (V87),V89= symbol_value(VV[15]); |
623 |
|
while(!endp(V89)) |
624 |
|
if(type_of(V89->c.c_car)==t_cons &&eql(x,V89->c.c_car->c.c_car)){ |
625 |
|
V88= (V89->c.c_car); |
626 |
|
goto T276; |
627 |
|
}else V89=V89->c.c_cdr; |
628 |
|
V88= Cnil;} |
629 |
|
goto T276; |
630 |
|
T276:; |
631 |
|
if(((V88))==Cnil){ |
632 |
|
goto T274;} |
633 |
|
{object V90 = cadr((V88)); |
634 |
|
VMR13(V90)} |
635 |
|
goto T274; |
636 |
|
T274:; |
637 |
|
{object V91 = get((V87),VV[36],Cnil); |
638 |
|
VMR13(V91)}} |
639 |
|
return Cnil; |
640 |
|
} |
641 |
|
/* local entry for function GET-RETURN-TYPE */ |
642 |
|
|
643 |
|
static object LI14(V93) |
644 |
|
|
645 |
|
register object V93; |
646 |
|
{ VMB14 VMS14 VMV14 |
647 |
|
goto TTL; |
648 |
|
TTL:; |
649 |
|
{object V94; |
650 |
|
object V95; |
651 |
|
register object V96; |
652 |
|
{register object x= (V93),V97= symbol_value(VV[15]); |
653 |
|
while(!endp(V97)) |
654 |
|
if(type_of(V97->c.c_car)==t_cons &&eql(x,V97->c.c_car->c.c_car)){ |
655 |
|
V94= (V97->c.c_car); |
656 |
|
goto T277; |
657 |
|
}else V97=V97->c.c_cdr; |
658 |
|
V94= Cnil;} |
659 |
|
goto T277; |
660 |
|
T277:; |
661 |
|
if(((V94))==Cnil){ |
662 |
|
goto T280;} |
663 |
|
V95= caddr((V94)); |
664 |
|
goto T278; |
665 |
|
goto T280; |
666 |
|
T280:; |
667 |
|
V95= get((V93),VV[37],Cnil); |
668 |
|
goto T278; |
669 |
|
T278:; |
670 |
|
if((get((V93),VV[42],Cnil))==Cnil){ |
671 |
|
goto T284;} |
672 |
|
V96= VV[43]; |
673 |
|
goto T282; |
674 |
|
goto T284; |
675 |
|
T284:; |
676 |
|
V96= get((V93),VV[44],Cnil); |
677 |
|
goto T282; |
678 |
|
T282:; |
679 |
|
if(((V95))==Cnil){ |
680 |
|
goto T287;} |
681 |
|
if(((V96))==Cnil){ |
682 |
|
goto T290;} |
683 |
|
V96= (*(LnkLI127))((V96),(V95)); |
684 |
|
if(((V96))==Cnil){ |
685 |
|
goto T293;} |
686 |
|
{object V98 = (V96); |
687 |
|
VMR14(V98)} |
688 |
|
goto T293; |
689 |
|
T293:; |
690 |
|
{object V99 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V93))); |
691 |
|
VMR14(V99)} |
692 |
|
goto T290; |
693 |
|
T290:; |
694 |
|
{object V100 = (V95); |
695 |
|
VMR14(V100)} |
696 |
|
goto T287; |
697 |
|
T287:; |
698 |
|
{object V101 = (V96); |
699 |
|
VMR14(V101)}} |
700 |
|
base[0]=base[0]; |
701 |
|
return Cnil; |
702 |
|
} |
703 |
|
/* local entry for function GET-LOCAL-ARG-TYPES */ |
704 |
|
|
705 |
|
static object LI15(V103) |
706 |
|
|
707 |
|
object V103; |
708 |
|
{ VMB15 VMS15 VMV15 |
709 |
|
goto TTL; |
710 |
|
TTL:; |
711 |
|
{object V104; |
712 |
|
V104= Cnil; |
713 |
|
{register object x= (V103),V105= symbol_value(VV[15]); |
714 |
|
while(!endp(V105)) |
715 |
|
if(type_of(V105->c.c_car)==t_cons &&eql(x,V105->c.c_car->c.c_car)){ |
716 |
|
V104= (V105->c.c_car); |
717 |
|
goto T300; |
718 |
|
}else V105=V105->c.c_cdr; |
719 |
|
V104= Cnil;} |
720 |
|
goto T300; |
721 |
|
T300:; |
722 |
|
if(((V104))==Cnil){ |
723 |
|
goto T298;} |
724 |
|
{object V106 = cadr((V104)); |
725 |
|
VMR15(V106)} |
726 |
|
goto T298; |
727 |
|
T298:; |
728 |
|
{object V107 = Cnil; |
729 |
|
VMR15(V107)}} |
730 |
|
return Cnil; |
731 |
|
} |
732 |
|
/* local entry for function GET-LOCAL-RETURN-TYPE */ |
733 |
|
|
734 |
|
static object LI16(V109) |
735 |
|
|
736 |
|
object V109; |
737 |
|
{ VMB16 VMS16 VMV16 |
738 |
|
goto TTL; |
739 |
|
TTL:; |
740 |
|
{object V110; |
741 |
|
V110= Cnil; |
742 |
|
{register object x= (V109),V111= symbol_value(VV[15]); |
743 |
|
while(!endp(V111)) |
744 |
|
if(type_of(V111->c.c_car)==t_cons &&eql(x,V111->c.c_car->c.c_car)){ |
745 |
|
V110= (V111->c.c_car); |
746 |
|
goto T305; |
747 |
|
}else V111=V111->c.c_cdr; |
748 |
|
V110= Cnil;} |
749 |
|
goto T305; |
750 |
|
T305:; |
751 |
|
if(((V110))==Cnil){ |
752 |
|
goto T303;} |
753 |
|
{object V112 = caddr((V110)); |
754 |
|
VMR16(V112)} |
755 |
|
goto T303; |
756 |
|
T303:; |
757 |
|
{object V113 = Cnil; |
758 |
|
VMR16(V113)}} |
759 |
|
return Cnil; |
760 |
|
} |
761 |
|
/* local entry for function RESET-TOP */ |
762 |
|
|
763 |
|
static object LI17() |
764 |
|
|
765 |
|
{ VMB17 VMS17 VMV17 |
766 |
|
goto TTL; |
767 |
|
TTL:; |
768 |
|
princ_str("vs_top=sup;",VV[46]); |
769 |
|
setq(VV[47],Ct); |
770 |
|
{object V114 = Ct; |
771 |
|
VMR17(V114)} |
772 |
|
return Cnil; |
773 |
|
} |
774 |
|
/* macro definition for BASE-USED */ |
775 |
|
|
776 |
|
static void L18() |
777 |
|
{register object *base=vs_base; |
778 |
|
register object *sup=base+VM18; VC18 |
779 |
|
vs_reserve(VM18); |
780 |
|
check_arg(2); |
781 |
|
vs_top=sup; |
782 |
|
{object V115=base[0]->c.c_cdr; |
783 |
|
if(!endp(V115))invalid_macro_call();} |
784 |
|
base[2]= VV[48]; |
785 |
|
vs_top=(vs_base=base+2)+1; |
786 |
|
return; |
787 |
|
} |
788 |
|
/* local entry for function INLINE-POSSIBLE */ |
789 |
|
|
790 |
|
static object LI19(V117) |
791 |
|
|
792 |
|
object V117; |
793 |
|
{ VMB19 VMS19 VMV19 |
794 |
|
goto TTL; |
795 |
|
TTL:; |
796 |
|
if(symbol_value(VV[49])!=Cnil){ |
797 |
|
V118= symbol_value(VV[49]); |
798 |
|
goto T309;}{object V119; |
799 |
|
{register object x= (V117),V120= symbol_value(VV[18]); |
800 |
|
while(!endp(V120)) |
801 |
|
if(eql(x,V120->c.c_car)){ |
802 |
|
V119= V120; |
803 |
|
goto T311; |
804 |
|
}else V120=V120->c.c_cdr; |
805 |
|
V119= Cnil;} |
806 |
|
goto T311; |
807 |
|
T311:; |
808 |
|
if(V119==Cnil)goto T310; |
809 |
|
V118= V119; |
810 |
|
goto T309; |
811 |
|
goto T310; |
812 |
|
T310:;} |
813 |
|
V118= get((V117),VV[50],Cnil); |
814 |
|
goto T309; |
815 |
|
T309:; |
816 |
|
{object V121 = ((V118)==Cnil?Ct:Cnil); |
817 |
|
VMR19(V121)} |
818 |
|
return Cnil; |
819 |
|
} |
820 |
|
/* local entry for function PROCLAIM */ |
821 |
|
|
822 |
|
static object LI20(V123) |
823 |
|
|
824 |
|
object V123; |
825 |
|
{ VMB20 VMS20 VMV20 |
826 |
|
goto TTL; |
827 |
|
TTL:; |
828 |
|
{object V124= car((V123)); |
829 |
|
if((V124!= VV[129]))goto T313; |
830 |
|
{register object V125; |
831 |
|
object V126; |
832 |
|
V125= cdr((V123)); |
833 |
|
V126= car((V125)); |
834 |
|
goto T317; |
835 |
|
T317:; |
836 |
|
if(!(endp_prop((V125)))){ |
837 |
|
goto T318;} |
838 |
|
goto T312; |
839 |
|
goto T318; |
840 |
|
T318:; |
841 |
|
if(!(type_of((V126))==t_symbol)){ |
842 |
|
goto T324;} |
843 |
|
base[2]= (V126); |
844 |
|
vs_top=(vs_base=base+2)+1; |
845 |
|
(void) (*Lnk130)(); |
846 |
|
vs_top=sup; |
847 |
|
goto T322; |
848 |
|
goto T324; |
849 |
|
T324:; |
850 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V126)))); |
851 |
|
goto T322; |
852 |
|
T322:; |
853 |
|
V125= cdr((V125)); |
854 |
|
V126= car((V125)); |
855 |
|
goto T317;} |
856 |
|
goto T313; |
857 |
|
T313:; |
858 |
|
if((V124!= VV[131]))goto T332; |
859 |
|
{register object V127; |
860 |
|
register object V128; |
861 |
|
V127= cdr((V123)); |
862 |
|
V128= car((V127)); |
863 |
|
goto T336; |
864 |
|
T336:; |
865 |
|
if(!(endp_prop((V127)))){ |
866 |
|
goto T337;} |
867 |
|
goto T312; |
868 |
|
goto T337; |
869 |
|
T337:; |
870 |
|
if(!(type_of((V128))==t_symbol)){ |
871 |
|
goto T341;} |
872 |
|
V128= list(2,(V128),small_fixnum(3)); |
873 |
|
goto T341; |
874 |
|
T341:; |
875 |
|
if(!(type_of((V128))==t_cons)){ |
876 |
|
goto T346;} |
877 |
|
if(!(type_of(cdr((V128)))==t_cons)){ |
878 |
|
goto T346;} |
879 |
|
{object V129= cadr((V128)); |
880 |
|
if(!(type_of(V129)==t_fixnum|| |
881 |
|
type_of(V129)==t_bignum|| |
882 |
|
type_of(V129)==t_ratio|| |
883 |
|
type_of(V129)==t_shortfloat|| |
884 |
|
type_of(V129)==t_longfloat|| |
885 |
|
type_of(V129)==t_complex)){ |
886 |
|
goto T346;}} |
887 |
|
base[2]= small_fixnum(0); |
888 |
|
base[3]= cadr((V128)); |
889 |
|
base[4]= small_fixnum(3); |
890 |
|
vs_top=(vs_base=base+2)+3; |
891 |
|
Lmonotonically_nondecreasing(); |
892 |
|
vs_top=sup; |
893 |
|
if((vs_base[0])!=Cnil){ |
894 |
|
goto T347;} |
895 |
|
goto T346; |
896 |
|
T346:; |
897 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V128)))); |
898 |
|
goto T345; |
899 |
|
goto T347; |
900 |
|
T347:; |
901 |
|
{object V130= car((V128)); |
902 |
|
if((V130!= VV[85]))goto T358; |
903 |
|
setq(VV[53],(number_compare(cadr((V128)),small_fixnum(1))>=0?Ct:Cnil)); |
904 |
|
setq(VV[54],(number_compare(cadr((V128)),small_fixnum(2))>=0?Ct:Cnil)); |
905 |
|
setq(VV[49],(number_compare(cadr((V128)),small_fixnum(3))>=0?Ct:Cnil)); |
906 |
|
goto T345; |
907 |
|
goto T358; |
908 |
|
T358:; |
909 |
|
if((V130!= VV[86]))goto T364; |
910 |
|
setq(VV[55],cadr((V128))); |
911 |
|
goto T345; |
912 |
|
goto T364; |
913 |
|
T364:; |
914 |
|
if((V130!= VV[132]))goto T366; |
915 |
|
setq(VV[56],cadr((V128))); |
916 |
|
goto T345; |
917 |
|
goto T366; |
918 |
|
T366:; |
919 |
|
if((V130!= VV[133]))goto T368; |
920 |
|
setq(VV[56],number_minus(small_fixnum(3),cadr((V128)))); |
921 |
|
goto T345; |
922 |
|
goto T368; |
923 |
|
T368:; |
924 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V128)))));} |
925 |
|
goto T345; |
926 |
|
T345:; |
927 |
|
V127= cdr((V127)); |
928 |
|
V128= car((V127)); |
929 |
|
goto T336;} |
930 |
|
goto T332; |
931 |
|
T332:; |
932 |
|
if((V124!= VV[134]))goto T375; |
933 |
|
if(!(type_of(cdr((V123)))==t_cons)){ |
934 |
|
goto T377;} |
935 |
|
(void)((*(LnkLI135))(cadr((V123)),cddr((V123)))); |
936 |
|
goto T312; |
937 |
|
goto T377; |
938 |
|
T377:; |
939 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V123)))); |
940 |
|
goto T312; |
941 |
|
goto T375; |
942 |
|
T375:; |
943 |
|
if((V124!= VV[136]) |
944 |
|
&& (V124!= VV[137]) |
945 |
|
&& (V124!= VV[138]) |
946 |
|
&& (V124!= VV[139]))goto T379; |
947 |
|
(void)((*(LnkLI135))(car((V123)),cdr((V123)))); |
948 |
|
goto T312; |
949 |
|
goto T379; |
950 |
|
T379:; |
951 |
|
if((V124!= VV[140]))goto T380; |
952 |
|
if(!(type_of(cdr((V123)))==t_cons)){ |
953 |
|
goto T382;} |
954 |
|
if(!(type_of(cadr((V123)))==t_cons)){ |
955 |
|
goto T382;} |
956 |
|
if(!((caadr((V123)))==(VV[26]))){ |
957 |
|
goto T382;} |
958 |
|
(void)((*(LnkLI141))(caddr((V123)),cdr(cadr((V123))),cddr((V123)))); |
959 |
|
goto T312; |
960 |
|
goto T382; |
961 |
|
T382:; |
962 |
|
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V123)))); |
963 |
|
goto T312; |
964 |
|
goto T380; |
965 |
|
T380:; |
966 |
|
if((V124!= VV[26]))goto T388; |
967 |
|
if(!(type_of(cdr((V123)))==t_cons)){ |
968 |
|
goto T390;} |
969 |
|
(void)((*(LnkLI141))(cadr((V123)),cddr((V123)),Cnil)); |
970 |
|
goto T312; |
971 |
|
goto T390; |
972 |
|
T390:; |
973 |
|
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V123)))); |
974 |
|
goto T312; |
975 |
|
goto T388; |
976 |
|
T388:; |
977 |
|
if((V124!= VV[90]))goto T392; |
978 |
|
{register object V131; |
979 |
|
object V132; |
980 |
|
V131= cdr((V123)); |
981 |
|
V132= car((V131)); |
982 |
|
goto T396; |
983 |
|
T396:; |
984 |
|
if(!(endp_prop((V131)))){ |
985 |
|
goto T397;} |
986 |
|
goto T312; |
987 |
|
goto T397; |
988 |
|
T397:; |
989 |
|
if(!(type_of((V132))==t_symbol)){ |
990 |
|
goto T403;} |
991 |
|
(void)(remprop((V132),VV[50])); |
992 |
|
goto T401; |
993 |
|
goto T403; |
994 |
|
T403:; |
995 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V132)))); |
996 |
|
goto T401; |
997 |
|
T401:; |
998 |
|
V131= cdr((V131)); |
999 |
|
V132= car((V131)); |
1000 |
|
goto T396;} |
1001 |
|
goto T392; |
1002 |
|
T392:; |
1003 |
|
if((V124!= VV[92]))goto T410; |
1004 |
|
{register object V133; |
1005 |
|
object V134; |
1006 |
|
V133= cdr((V123)); |
1007 |
|
V134= car((V133)); |
1008 |
|
goto T414; |
1009 |
|
T414:; |
1010 |
|
if(!(endp_prop((V133)))){ |
1011 |
|
goto T415;} |
1012 |
|
goto T312; |
1013 |
|
goto T415; |
1014 |
|
T415:; |
1015 |
|
if(!(type_of((V134))==t_symbol)){ |
1016 |
|
goto T421;} |
1017 |
|
(void)(putprop((V134),Ct,VV[50])); |
1018 |
|
goto T419; |
1019 |
|
goto T421; |
1020 |
|
T421:; |
1021 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V134)))); |
1022 |
|
goto T419; |
1023 |
|
T419:; |
1024 |
|
V133= cdr((V133)); |
1025 |
|
V134= car((V133)); |
1026 |
|
goto T414;} |
1027 |
|
goto T410; |
1028 |
|
T410:; |
1029 |
|
if((V124!= VV[79]) |
1030 |
|
&& (V124!= VV[142]))goto T428; |
1031 |
|
{register object V135; |
1032 |
|
object V136; |
1033 |
|
V135= cdr((V123)); |
1034 |
|
V136= car((V135)); |
1035 |
|
goto T432; |
1036 |
|
T432:; |
1037 |
|
if(!(endp_prop((V135)))){ |
1038 |
|
goto T433;} |
1039 |
|
goto T312; |
1040 |
|
goto T433; |
1041 |
|
T433:; |
1042 |
|
if(type_of((V136))==t_symbol){ |
1043 |
|
goto T437;} |
1044 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V136)))); |
1045 |
|
goto T437; |
1046 |
|
T437:; |
1047 |
|
V135= cdr((V135)); |
1048 |
|
V136= car((V135)); |
1049 |
|
goto T432;} |
1050 |
|
goto T428; |
1051 |
|
T428:; |
1052 |
|
if((V124!= VV[143]))goto T445; |
1053 |
|
{register object V137; |
1054 |
|
register object V138; |
1055 |
|
V137= cdr((V123)); |
1056 |
|
V138= car((V137)); |
1057 |
|
goto T449; |
1058 |
|
T449:; |
1059 |
|
if(!(endp_prop((V137)))){ |
1060 |
|
goto T450;} |
1061 |
|
goto T312; |
1062 |
|
goto T450; |
1063 |
|
T450:; |
1064 |
|
if(!(type_of((V138))==t_symbol)){ |
1065 |
|
goto T456;} |
1066 |
|
{register object x= (V138),V139= symbol_value(VV[64]); |
1067 |
|
while(!endp(V139)) |
1068 |
|
if(eql(x,V139->c.c_car)){ |
1069 |
|
goto T454; |
1070 |
|
}else V139=V139->c.c_cdr;} |
1071 |
|
setq(VV[64],make_cons(V138,symbol_value(VV[64]))); |
1072 |
|
goto T454; |
1073 |
|
goto T456; |
1074 |
|
T456:; |
1075 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V138)))); |
1076 |
|
goto T454; |
1077 |
|
T454:; |
1078 |
|
V137= cdr((V137)); |
1079 |
|
V138= car((V137)); |
1080 |
|
goto T449;} |
1081 |
|
goto T445; |
1082 |
|
T445:; |
1083 |
|
if((V124== VV[144]) |
1084 |
|
|| (V124== VV[145]) |
1085 |
|
|| (V124== VV[146]) |
1086 |
|
|| (V124== VV[147]) |
1087 |
|
|| (V124== VV[148]))goto T467; |
1088 |
|
if((V124== VV[137]) |
1089 |
|
|| (V124== VV[149]) |
1090 |
|
|| (V124== VV[25]) |
1091 |
|
|| (V124== VV[150]) |
1092 |
|
|| (V124== VV[151]))goto T467; |
1093 |
|
if((V124== VV[152]) |
1094 |
|
|| (V124== VV[136]) |
1095 |
|
|| (V124== VV[153]) |
1096 |
|
|| (V124== VV[154]) |
1097 |
|
|| (V124== VV[32]))goto T467; |
1098 |
|
if((V124== VV[155]) |
1099 |
|
|| (V124== VV[156]) |
1100 |
|
|| (V124== VV[139]) |
1101 |
|
|| (V124== Cnil) |
1102 |
|
|| (V124== VV[157]))goto T467; |
1103 |
|
if((V124== VV[158]) |
1104 |
|
|| (V124== VV[159]) |
1105 |
|
|| (V124== VV[160]) |
1106 |
|
|| (V124== VV[161]) |
1107 |
|
|| (V124== VV[162]))goto T467; |
1108 |
|
if((V124== VV[163]) |
1109 |
|
|| (V124== VV[164]) |
1110 |
|
|| (V124== VV[165]) |
1111 |
|
|| (V124== VV[138]) |
1112 |
|
|| (V124== VV[166]))goto T467; |
1113 |
|
if((V124== VV[167]) |
1114 |
|
|| (V124== VV[168]) |
1115 |
|
|| (V124== VV[169]) |
1116 |
|
|| (V124== VV[170]) |
1117 |
|
|| (V124== VV[171]))goto T467; |
1118 |
|
if((V124== VV[172]) |
1119 |
|
|| (V124== VV[173]) |
1120 |
|
|| (V124== VV[174]) |
1121 |
|
|| (V124== VV[175]) |
1122 |
|
|| (V124== Ct))goto T467; |
1123 |
|
if((V124!= VV[176]) |
1124 |
|
&& (V124!= VV[177]) |
1125 |
|
&& (V124!= VV[178]))goto T466; |
1126 |
|
goto T467; |
1127 |
|
T467:; |
1128 |
|
(void)((*(LnkLI135))(car((V123)),cdr((V123)))); |
1129 |
|
goto T312; |
1130 |
|
goto T466; |
1131 |
|
T466:; |
1132 |
|
{register object x= car((V123)),V141= symbol_value(VV[64]); |
1133 |
|
while(!endp(V141)) |
1134 |
|
if(eql(x,V141->c.c_car)){ |
1135 |
|
goto T468; |
1136 |
|
}else V141=V141->c.c_cdr;} |
1137 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V123))))); |
1138 |
|
goto T468; |
1139 |
|
T468:; |
1140 |
|
base[0]= get(car((V123)),VV[67],Cnil); |
1141 |
|
vs_top=(vs_base=base+0)+1; |
1142 |
|
Lfunctionp(); |
1143 |
|
vs_top=sup; |
1144 |
|
if((vs_base[0])!=Cnil){ |
1145 |
|
goto T471;} |
1146 |
|
goto T312; |
1147 |
|
goto T471; |
1148 |
|
T471:; |
1149 |
|
{register object V142; |
1150 |
|
object V143; |
1151 |
|
V142= cdr((V123)); |
1152 |
|
V143= car((V142)); |
1153 |
|
goto T477; |
1154 |
|
T477:; |
1155 |
|
if(!(endp_prop((V142)))){ |
1156 |
|
goto T478;} |
1157 |
|
goto T312; |
1158 |
|
goto T478; |
1159 |
|
T478:; |
1160 |
|
V144= get(car((V123)),VV[67],Cnil); |
1161 |
|
(void)(( |
1162 |
|
V145 = V144, |
1163 |
|
(type_of(V145) == t_sfun ?(*((V145)->sfn.sfn_self)): |
1164 |
|
(fcall.fun=(V145),fcall.argd=1,fcalln))((V143)))); |
1165 |
|
V142= cdr((V142)); |
1166 |
|
V143= car((V142)); |
1167 |
|
goto T477;}} |
1168 |
|
goto T312; |
1169 |
|
T312:; |
1170 |
|
{object V146 = Cnil; |
1171 |
|
VMR20(V146)} |
1172 |
|
base[0]=base[0]; |
1173 |
|
return Cnil; |
1174 |
|
} |
1175 |
|
/* local entry for function PROCLAIM-VAR */ |
1176 |
|
|
1177 |
|
static object LI21(V149,V150) |
1178 |
|
|
1179 |
|
register object V149;object V150; |
1180 |
|
{ VMB21 VMS21 VMV21 |
1181 |
|
goto TTL; |
1182 |
|
TTL:; |
1183 |
|
V149= (*(LnkLI122))((V149)); |
1184 |
|
{register object V151; |
1185 |
|
register object V152; |
1186 |
|
V151= (V150); |
1187 |
|
V152= car((V151)); |
1188 |
|
goto T494; |
1189 |
|
T494:; |
1190 |
|
if(!(endp_prop((V151)))){ |
1191 |
|
goto T495;} |
1192 |
|
{object V153 = Cnil; |
1193 |
|
VMR21(V153)} |
1194 |
|
goto T495; |
1195 |
|
T495:; |
1196 |
|
if(!(type_of((V152))==t_symbol)){ |
1197 |
|
goto T501;} |
1198 |
|
{register object V154; |
1199 |
|
register object V155; |
1200 |
|
V154= get((V152),VV[68],Cnil); |
1201 |
|
V155= (*(LnkLI179))((V152)); |
1202 |
|
if(((V154))==Cnil){ |
1203 |
|
goto T508;} |
1204 |
|
V154= (*(LnkLI127))((V154),(V149)); |
1205 |
|
goto T506; |
1206 |
|
goto T508; |
1207 |
|
T508:; |
1208 |
|
V154= (V149); |
1209 |
|
goto T506; |
1210 |
|
T506:; |
1211 |
|
if(((V155))==Cnil){ |
1212 |
|
goto T510;} |
1213 |
|
V156= structure_ref((V155),VV[69],5); |
1214 |
|
V154= (*(LnkLI127))((V154),/* INLINE-ARGS */V156); |
1215 |
|
goto T510; |
1216 |
|
T510:; |
1217 |
|
if(((V154))!=Cnil){ |
1218 |
|
goto T514;} |
1219 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V152)))); |
1220 |
|
goto T514; |
1221 |
|
T514:; |
1222 |
|
(void)(putprop((V152),(V154),VV[68])); |
1223 |
|
if(((V155))==Cnil){ |
1224 |
|
goto T499;} |
1225 |
|
(void)(structure_set((V155),VV[69],5,(V154))); |
1226 |
|
goto T499;} |
1227 |
|
goto T501; |
1228 |
|
T501:; |
1229 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V152)))); |
1230 |
|
goto T499; |
1231 |
|
T499:; |
1232 |
|
V151= cdr((V151)); |
1233 |
|
V152= car((V151)); |
1234 |
|
goto T494;} |
1235 |
|
base[0]=base[0]; |
1236 |
|
return Cnil; |
1237 |
|
} |
1238 |
|
/* function definition for C1BODY */ |
1239 |
|
|
1240 |
|
static void L22() |
1241 |
|
{register object *base=vs_base; |
1242 |
|
register object *sup=base+VM22; VC22 |
1243 |
|
vs_reserve(VM22); |
1244 |
|
{object V157; |
1245 |
|
object V158; |
1246 |
|
check_arg(2); |
1247 |
|
V157=(base[0]); |
1248 |
|
V158=(base[1]); |
1249 |
|
vs_top=sup; |
1250 |
|
goto TTL; |
1251 |
|
TTL:; |
1252 |
|
{object V159; |
1253 |
|
object V160; |
1254 |
|
register object V161; |
1255 |
|
object V162; |
1256 |
|
object V163; |
1257 |
|
object V164; |
1258 |
|
V159= Cnil; |
1259 |
|
V160= Cnil; |
1260 |
|
V161= Cnil; |
1261 |
|
V162= Cnil; |
1262 |
|
V163= Cnil; |
1263 |
|
V164= Cnil; |
1264 |
|
goto T533; |
1265 |
|
T533:; |
1266 |
|
if(!(endp_prop((V157)))){ |
1267 |
|
goto T535;} |
1268 |
|
goto T531; |
1269 |
|
goto T535; |
1270 |
|
T535:; |
1271 |
|
V164= (*(LnkLI180))(car((V157))); |
1272 |
|
if(!(type_of((V164))==t_string)){ |
1273 |
|
goto T542;} |
1274 |
|
if(((V158))==Cnil){ |
1275 |
|
goto T545;} |
1276 |
|
if(endp_prop(cdr((V157)))){ |
1277 |
|
goto T545;} |
1278 |
|
if(((V163))==Cnil){ |
1279 |
|
goto T544;} |
1280 |
|
goto T545; |
1281 |
|
T545:; |
1282 |
|
goto T531; |
1283 |
|
goto T544; |
1284 |
|
T544:; |
1285 |
|
V163= (V164); |
1286 |
|
goto T540; |
1287 |
|
goto T542; |
1288 |
|
T542:; |
1289 |
|
if(!(type_of((V164))==t_cons)){ |
1290 |
|
goto T553;} |
1291 |
|
if(!((car((V164)))==(VV[72]))){ |
1292 |
|
goto T553;} |
1293 |
|
{object V165; |
1294 |
|
register object V166; |
1295 |
|
V165= cdr((V164)); |
1296 |
|
V166= car((V165)); |
1297 |
|
goto T560; |
1298 |
|
T560:; |
1299 |
|
if(!(endp_prop((V165)))){ |
1300 |
|
goto T561;} |
1301 |
|
goto T540; |
1302 |
|
goto T561; |
1303 |
|
T561:; |
1304 |
|
if(!(type_of((V166))==t_cons)){ |
1305 |
|
goto T566;} |
1306 |
|
if(type_of(car((V166)))==t_symbol){ |
1307 |
|
goto T565;} |
1308 |
|
goto T566; |
1309 |
|
T566:; |
1310 |
|
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V166)))); |
1311 |
|
goto T565; |
1312 |
|
T565:; |
1313 |
|
{object V167= car((V166)); |
1314 |
|
if((V167!= VV[129]))goto T571; |
1315 |
|
{register object V168; |
1316 |
|
object V169; |
1317 |
|
V168= cdr((V166)); |
1318 |
|
V169= car((V168)); |
1319 |
|
goto T575; |
1320 |
|
T575:; |
1321 |
|
if(!(endp_prop((V168)))){ |
1322 |
|
goto T576;} |
1323 |
|
goto T570; |
1324 |
|
goto T576; |
1325 |
|
T576:; |
1326 |
|
if(type_of((V169))==t_symbol){ |
1327 |
|
goto T580;} |
1328 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V166),(V169)))); |
1329 |
|
goto T580; |
1330 |
|
T580:; |
1331 |
|
V159= make_cons(V169,(V159)); |
1332 |
|
V168= cdr((V168)); |
1333 |
|
V169= car((V168)); |
1334 |
|
goto T575;} |
1335 |
|
goto T571; |
1336 |
|
T571:; |
1337 |
|
if((V167!= VV[142]))goto T590; |
1338 |
|
{register object V171; |
1339 |
|
object V172; |
1340 |
|
V171= cdr((V166)); |
1341 |
|
V172= car((V171)); |
1342 |
|
goto T594; |
1343 |
|
T594:; |
1344 |
|
if(!(endp_prop((V171)))){ |
1345 |
|
goto T595;} |
1346 |
|
goto T570; |
1347 |
|
goto T595; |
1348 |
|
T595:; |
1349 |
|
if(type_of((V172))==t_symbol){ |
1350 |
|
goto T599;} |
1351 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V166),(V172)))); |
1352 |
|
goto T599; |
1353 |
|
T599:; |
1354 |
|
V160= make_cons(V172,(V160)); |
1355 |
|
V171= cdr((V171)); |
1356 |
|
V172= car((V171)); |
1357 |
|
goto T594;} |
1358 |
|
goto T590; |
1359 |
|
T590:; |
1360 |
|
if((V167!= VV[134]))goto T609; |
1361 |
|
if(!(endp_prop(cdr((V166))))){ |
1362 |
|
goto T610;} |
1363 |
|
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V166)))); |
1364 |
|
goto T610; |
1365 |
|
T610:; |
1366 |
|
{object V174; |
1367 |
|
V174= (*(LnkLI122))(cadr((V166))); |
1368 |
|
if(((V174))==Cnil){ |
1369 |
|
goto T570;} |
1370 |
|
{register object V175; |
1371 |
|
object V176; |
1372 |
|
V175= cddr((V166)); |
1373 |
|
V176= car((V175)); |
1374 |
|
goto T619; |
1375 |
|
T619:; |
1376 |
|
if(!(endp_prop((V175)))){ |
1377 |
|
goto T620;} |
1378 |
|
goto T570; |
1379 |
|
goto T620; |
1380 |
|
T620:; |
1381 |
|
if(type_of((V176))==t_symbol){ |
1382 |
|
goto T624;} |
1383 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V166),(V176)))); |
1384 |
|
goto T624; |
1385 |
|
T624:; |
1386 |
|
{object V177; |
1387 |
|
V177= make_cons((V176),(V174)); |
1388 |
|
V161= make_cons((V177),(V161));} |
1389 |
|
V175= cdr((V175)); |
1390 |
|
V176= car((V175)); |
1391 |
|
goto T619;}} |
1392 |
|
goto T609; |
1393 |
|
T609:; |
1394 |
|
if((V167!= VV[79]))goto T635; |
1395 |
|
{register object V178; |
1396 |
|
object V179; |
1397 |
|
V178= cdr((V166)); |
1398 |
|
V179= car((V178)); |
1399 |
|
goto T639; |
1400 |
|
T639:; |
1401 |
|
if(!(endp_prop((V178)))){ |
1402 |
|
goto T640;} |
1403 |
|
goto T570; |
1404 |
|
goto T640; |
1405 |
|
T640:; |
1406 |
|
if(type_of((V179))==t_symbol){ |
1407 |
|
goto T644;} |
1408 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V166),(V179)))); |
1409 |
|
goto T644; |
1410 |
|
T644:; |
1411 |
|
{object V180; |
1412 |
|
V180= make_cons((V179),VV[79]); |
1413 |
|
V161= make_cons((V180),(V161));} |
1414 |
|
V178= cdr((V178)); |
1415 |
|
V179= car((V178)); |
1416 |
|
goto T639;} |
1417 |
|
goto T635; |
1418 |
|
T635:; |
1419 |
|
if((V167!= VV[181]))goto T655; |
1420 |
|
{register object V181; |
1421 |
|
object V182; |
1422 |
|
V181= cdr((V166)); |
1423 |
|
V182= car((V181)); |
1424 |
|
goto T659; |
1425 |
|
T659:; |
1426 |
|
if(!(endp_prop((V181)))){ |
1427 |
|
goto T660;} |
1428 |
|
goto T570; |
1429 |
|
goto T660; |
1430 |
|
T660:; |
1431 |
|
if(type_of((V182))==t_symbol){ |
1432 |
|
goto T664;} |
1433 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V166),(V182)))); |
1434 |
|
goto T664; |
1435 |
|
T664:; |
1436 |
|
{object V183; |
1437 |
|
V183= make_cons((V182),VV[81]); |
1438 |
|
V161= make_cons((V183),(V161));} |
1439 |
|
V181= cdr((V181)); |
1440 |
|
V182= car((V181)); |
1441 |
|
goto T659;} |
1442 |
|
goto T655; |
1443 |
|
T655:; |
1444 |
|
if((V167== VV[136]) |
1445 |
|
|| (V167== VV[137]) |
1446 |
|
|| (V167== VV[152]) |
1447 |
|
|| (V167== VV[138]) |
1448 |
|
|| (V167== VV[144]))goto T676; |
1449 |
|
if((V167== VV[145]) |
1450 |
|
|| (V167== VV[146]) |
1451 |
|
|| (V167== VV[147]) |
1452 |
|
|| (V167== VV[148]) |
1453 |
|
|| (V167== VV[149]))goto T676; |
1454 |
|
if((V167== VV[25]) |
1455 |
|
|| (V167== VV[150]) |
1456 |
|
|| (V167== VV[151]) |
1457 |
|
|| (V167== VV[153]) |
1458 |
|
|| (V167== VV[154]))goto T676; |
1459 |
|
if((V167== VV[32]) |
1460 |
|
|| (V167== VV[155]) |
1461 |
|
|| (V167== VV[156]) |
1462 |
|
|| (V167== VV[139]) |
1463 |
|
|| (V167== Cnil))goto T676; |
1464 |
|
if((V167== VV[157]) |
1465 |
|
|| (V167== VV[158]) |
1466 |
|
|| (V167== VV[159]) |
1467 |
|
|| (V167== VV[160]) |
1468 |
|
|| (V167== VV[161]))goto T676; |
1469 |
|
if((V167== VV[162]) |
1470 |
|
|| (V167== VV[163]) |
1471 |
|
|| (V167== VV[164]) |
1472 |
|
|| (V167== VV[165]) |
1473 |
|
|| (V167== VV[166]))goto T676; |
1474 |
|
if((V167== VV[167]) |
1475 |
|
|| (V167== VV[168]) |
1476 |
|
|| (V167== VV[169]) |
1477 |
|
|| (V167== VV[170]) |
1478 |
|
|| (V167== VV[171]))goto T676; |
1479 |
|
if((V167== VV[172]) |
1480 |
|
|| (V167== VV[173]) |
1481 |
|
|| (V167== VV[174]) |
1482 |
|
|| (V167== VV[175]) |
1483 |
|
|| (V167== Ct))goto T676; |
1484 |
|
if((V167!= VV[176]) |
1485 |
|
&& (V167!= VV[177]) |
1486 |
|
&& (V167!= VV[178]) |
1487 |
|
&& (V167!= VV[82]))goto T675; |
1488 |
|
goto T676; |
1489 |
|
T676:; |
1490 |
|
{object V184; |
1491 |
|
if(!((car((V166)))==(VV[82]))){ |
1492 |
|
goto T679;} |
1493 |
|
V184= car((V166)); |
1494 |
|
goto T677; |
1495 |
|
goto T679; |
1496 |
|
T679:; |
1497 |
|
V184= (*(LnkLI122))(car((V166))); |
1498 |
|
goto T677; |
1499 |
|
T677:; |
1500 |
|
if(((V184))==Cnil){ |
1501 |
|
goto T570;} |
1502 |
|
{register object V185; |
1503 |
|
object V186; |
1504 |
|
V185= cdr((V166)); |
1505 |
|
V186= car((V185)); |
1506 |
|
goto T686; |
1507 |
|
T686:; |
1508 |
|
if(!(endp_prop((V185)))){ |
1509 |
|
goto T687;} |
1510 |
|
goto T570; |
1511 |
|
goto T687; |
1512 |
|
T687:; |
1513 |
|
if(type_of((V186))==t_symbol){ |
1514 |
|
goto T691;} |
1515 |
|
(void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V166),(V186)))); |
1516 |
|
goto T691; |
1517 |
|
T691:; |
1518 |
|
{object V187; |
1519 |
|
V187= make_cons((V186),(V184)); |
1520 |
|
V161= make_cons((V187),(V161));} |
1521 |
|
V185= cdr((V185)); |
1522 |
|
V186= car((V185)); |
1523 |
|
goto T686;}} |
1524 |
|
goto T675; |
1525 |
|
T675:; |
1526 |
|
V162= make_cons(V166,(V162));} |
1527 |
|
goto T570; |
1528 |
|
T570:; |
1529 |
|
V165= cdr((V165)); |
1530 |
|
V166= car((V165)); |
1531 |
|
goto T560;} |
1532 |
|
goto T553; |
1533 |
|
T553:; |
1534 |
|
goto T531; |
1535 |
|
goto T540; |
1536 |
|
T540:; |
1537 |
|
{object V189; |
1538 |
|
V189= car((V157)); |
1539 |
|
V157= cdr((V157));} |
1540 |
|
goto T533; |
1541 |
|
goto T531; |
1542 |
|
T531:; |
1543 |
|
base[2]= (V157); |
1544 |
|
base[3]= (V159); |
1545 |
|
base[4]= (V161); |
1546 |
|
base[5]= (V160); |
1547 |
|
base[6]= (V162); |
1548 |
|
base[7]= (V163); |
1549 |
|
vs_top=(vs_base=base+2)+6; |
1550 |
|
return;} |
1551 |
|
} |
1552 |
|
} |
1553 |
|
/* local entry for function C1DECL-BODY */ |
1554 |
|
|
1555 |
|
static object LI23(V192,V193) |
1556 |
|
|
1557 |
|
object V192;object V193; |
1558 |
|
{ VMB23 VMS23 VMV23 |
1559 |
|
bds_check; |
1560 |
|
goto TTL; |
1561 |
|
TTL:; |
1562 |
|
{register object V194; |
1563 |
|
V194= Cnil; |
1564 |
|
if(((V192))!=Cnil){ |
1565 |
|
goto T720;} |
1566 |
|
{object V195 = (*(LnkLI182))((V193)); |
1567 |
|
VMR23(V195)} |
1568 |
|
goto T720; |
1569 |
|
T720:; |
1570 |
|
bds_bind(VV[15],symbol_value(VV[15])); |
1571 |
|
bds_bind(VV[64],symbol_value(VV[64])); |
1572 |
|
bds_bind(VV[18],symbol_value(VV[18])); |
1573 |
|
bds_bind(VV[55],symbol_value(VV[55])); |
1574 |
|
bds_bind(VV[54],symbol_value(VV[54])); |
1575 |
|
{object V196; |
1576 |
|
register object V197; |
1577 |
|
V196= (V192); |
1578 |
|
V197= car((V196)); |
1579 |
|
goto T726; |
1580 |
|
T726:; |
1581 |
|
if(!(endp_prop((V196)))){ |
1582 |
|
goto T727;} |
1583 |
|
goto T722; |
1584 |
|
goto T727; |
1585 |
|
T727:; |
1586 |
|
{object V198= car((V197)); |
1587 |
|
if((V198!= VV[131]))goto T732; |
1588 |
|
{object V199; |
1589 |
|
register object V200; |
1590 |
|
V199= cdr((V197)); |
1591 |
|
V200= car((V199)); |
1592 |
|
goto T736; |
1593 |
|
T736:; |
1594 |
|
if(!(endp_prop((V199)))){ |
1595 |
|
goto T737;} |
1596 |
|
goto T731; |
1597 |
|
goto T737; |
1598 |
|
T737:; |
1599 |
|
if(!(type_of((V200))==t_symbol)){ |
1600 |
|
goto T741;} |
1601 |
|
V200= list(2,(V200),small_fixnum(3)); |
1602 |
|
goto T741; |
1603 |
|
T741:; |
1604 |
|
if(!(type_of((V200))==t_cons)){ |
1605 |
|
goto T746;} |
1606 |
|
if(!(type_of(cdr((V200)))==t_cons)){ |
1607 |
|
goto T746;} |
1608 |
|
{object V201= cadr((V200)); |
1609 |
|
if(!(type_of(V201)==t_fixnum|| |
1610 |
|
type_of(V201)==t_bignum|| |
1611 |
|
type_of(V201)==t_ratio|| |
1612 |
|
type_of(V201)==t_shortfloat|| |
1613 |
|
type_of(V201)==t_longfloat|| |
1614 |
|
type_of(V201)==t_complex)){ |
1615 |
|
goto T746;}} |
1616 |
|
base[8]= small_fixnum(0); |
1617 |
|
base[9]= cadr((V200)); |
1618 |
|
base[10]= small_fixnum(3); |
1619 |
|
vs_top=(vs_base=base+8)+3; |
1620 |
|
Lmonotonically_nondecreasing(); |
1621 |
|
vs_top=sup; |
1622 |
|
if((vs_base[0])!=Cnil){ |
1623 |
|
goto T747;} |
1624 |
|
goto T746; |
1625 |
|
T746:; |
1626 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V200)))); |
1627 |
|
goto T745; |
1628 |
|
goto T747; |
1629 |
|
T747:; |
1630 |
|
{object V202= car((V200)); |
1631 |
|
if((V202!= VV[85]))goto T758; |
1632 |
|
(VV[54]->s.s_dbind)= ((fix(cadr((V200))))>=(2)?Ct:Cnil); |
1633 |
|
{object V203; |
1634 |
|
V203= list(2,VV[85],cadr((V200))); |
1635 |
|
V194= make_cons((V203),(V194)); |
1636 |
|
goto T745;} |
1637 |
|
goto T758; |
1638 |
|
T758:; |
1639 |
|
if((V202!= VV[86]))goto T763; |
1640 |
|
(VV[55]->s.s_dbind)= cadr((V200)); |
1641 |
|
{object V204; |
1642 |
|
V204= list(2,VV[86],cadr((V200))); |
1643 |
|
V194= make_cons((V204),(V194)); |
1644 |
|
goto T745;} |
1645 |
|
goto T763; |
1646 |
|
T763:; |
1647 |
|
if((V202!= VV[132]) |
1648 |
|
&& (V202!= VV[133]))goto T768; |
1649 |
|
goto T745; |
1650 |
|
goto T768; |
1651 |
|
T768:; |
1652 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V200)))));} |
1653 |
|
goto T745; |
1654 |
|
T745:; |
1655 |
|
V199= cdr((V199)); |
1656 |
|
V200= car((V199)); |
1657 |
|
goto T736;} |
1658 |
|
goto T732; |
1659 |
|
T732:; |
1660 |
|
if((V198!= VV[140]))goto T774; |
1661 |
|
if(endp_prop(cdr((V197)))){ |
1662 |
|
goto T775;} |
1663 |
|
if(!(type_of(cadr((V197)))==t_cons)){ |
1664 |
|
goto T775;} |
1665 |
|
if(!((caadr((V197)))==(VV[26]))){ |
1666 |
|
goto T775;} |
1667 |
|
if(!(endp_prop(cdadr((V197))))){ |
1668 |
|
goto T776;} |
1669 |
|
goto T775; |
1670 |
|
T775:; |
1671 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V197)))); |
1672 |
|
goto T731; |
1673 |
|
goto T776; |
1674 |
|
T776:; |
1675 |
|
{object V205; |
1676 |
|
object V206; |
1677 |
|
V205= cddr((V197)); |
1678 |
|
V206= car((V205)); |
1679 |
|
goto T787; |
1680 |
|
T787:; |
1681 |
|
if(!(endp_prop((V205)))){ |
1682 |
|
goto T788;} |
1683 |
|
goto T731; |
1684 |
|
goto T788; |
1685 |
|
T788:; |
1686 |
|
(void)((*(LnkLI183))((V206),cadadr((V197)),cddadr((V197)))); |
1687 |
|
V205= cdr((V205)); |
1688 |
|
V206= car((V205)); |
1689 |
|
goto T787;} |
1690 |
|
goto T774; |
1691 |
|
T774:; |
1692 |
|
if((V198!= VV[26]))goto T798; |
1693 |
|
if(endp_prop(cdr((V197)))){ |
1694 |
|
goto T799;} |
1695 |
|
if(endp_prop(cddr((V197)))){ |
1696 |
|
goto T799;} |
1697 |
|
if(type_of(cadr((V197)))==t_symbol){ |
1698 |
|
goto T800;} |
1699 |
|
goto T799; |
1700 |
|
T799:; |
1701 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V197)))); |
1702 |
|
goto T731; |
1703 |
|
goto T800; |
1704 |
|
T800:; |
1705 |
|
(void)((*(LnkLI183))(cadr((V197)),caddr((V197)),cdddr((V197)))); |
1706 |
|
goto T731; |
1707 |
|
goto T798; |
1708 |
|
T798:; |
1709 |
|
if((V198!= VV[90]))goto T806; |
1710 |
|
{object V207; |
1711 |
|
register object V208; |
1712 |
|
V207= cdr((V197)); |
1713 |
|
V208= car((V207)); |
1714 |
|
goto T810; |
1715 |
|
T810:; |
1716 |
|
if(!(endp_prop((V207)))){ |
1717 |
|
goto T811;} |
1718 |
|
goto T731; |
1719 |
|
goto T811; |
1720 |
|
T811:; |
1721 |
|
if(!(type_of((V208))==t_symbol)){ |
1722 |
|
goto T817;} |
1723 |
|
{object V209; |
1724 |
|
V209= list(2,VV[90],(V208)); |
1725 |
|
V194= make_cons((V209),(V194));} |
1726 |
|
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V208),(VV[18]->s.s_dbind))); |
1727 |
|
goto T815; |
1728 |
|
goto T817; |
1729 |
|
T817:; |
1730 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V208)))); |
1731 |
|
goto T815; |
1732 |
|
T815:; |
1733 |
|
V207= cdr((V207)); |
1734 |
|
V208= car((V207)); |
1735 |
|
goto T810;} |
1736 |
|
goto T806; |
1737 |
|
T806:; |
1738 |
|
if((V198!= VV[92]))goto T828; |
1739 |
|
{object V210; |
1740 |
|
register object V211; |
1741 |
|
V210= cdr((V197)); |
1742 |
|
V211= car((V210)); |
1743 |
|
goto T832; |
1744 |
|
T832:; |
1745 |
|
if(!(endp_prop((V210)))){ |
1746 |
|
goto T833;} |
1747 |
|
goto T731; |
1748 |
|
goto T833; |
1749 |
|
T833:; |
1750 |
|
if(!(type_of((V211))==t_symbol)){ |
1751 |
|
goto T839;} |
1752 |
|
{object V212; |
1753 |
|
V212= list(2,VV[92],(V211)); |
1754 |
|
V194= make_cons((V212),(V194));} |
1755 |
|
(VV[18]->s.s_dbind)= make_cons(V211,(VV[18]->s.s_dbind)); |
1756 |
|
goto T837; |
1757 |
|
goto T839; |
1758 |
|
T839:; |
1759 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V211)))); |
1760 |
|
goto T837; |
1761 |
|
T837:; |
1762 |
|
V210= cdr((V210)); |
1763 |
|
V211= car((V210)); |
1764 |
|
goto T832;} |
1765 |
|
goto T828; |
1766 |
|
T828:; |
1767 |
|
if((V198!= VV[143]))goto T850; |
1768 |
|
{object V214; |
1769 |
|
register object V215; |
1770 |
|
V214= cdr((V197)); |
1771 |
|
V215= car((V214)); |
1772 |
|
goto T854; |
1773 |
|
T854:; |
1774 |
|
if(!(endp_prop((V214)))){ |
1775 |
|
goto T855;} |
1776 |
|
goto T731; |
1777 |
|
goto T855; |
1778 |
|
T855:; |
1779 |
|
if(!(type_of((V215))==t_symbol)){ |
1780 |
|
goto T861;} |
1781 |
|
{register object x= (V215),V216= (VV[64]->s.s_dbind); |
1782 |
|
while(!endp(V216)) |
1783 |
|
if(eql(x,V216->c.c_car)){ |
1784 |
|
goto T859; |
1785 |
|
}else V216=V216->c.c_cdr;} |
1786 |
|
(VV[64]->s.s_dbind)= make_cons(V215,(VV[64]->s.s_dbind)); |
1787 |
|
goto T859; |
1788 |
|
goto T861; |
1789 |
|
T861:; |
1790 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V215)))); |
1791 |
|
goto T859; |
1792 |
|
T859:; |
1793 |
|
V214= cdr((V214)); |
1794 |
|
V215= car((V214)); |
1795 |
|
goto T854;} |
1796 |
|
goto T850; |
1797 |
|
T850:; |
1798 |
|
{register object x= car((V197)),V218= (VV[64]->s.s_dbind); |
1799 |
|
while(!endp(V218)) |
1800 |
|
if(eql(x,V218->c.c_car)){ |
1801 |
|
goto T731; |
1802 |
|
}else V218=V218->c.c_cdr;} |
1803 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V197)))));} |
1804 |
|
goto T731; |
1805 |
|
T731:; |
1806 |
|
V196= cdr((V196)); |
1807 |
|
V197= car((V196)); |
1808 |
|
goto T726;} |
1809 |
|
goto T722; |
1810 |
|
T722:; |
1811 |
|
V193= (*(LnkLI182))((V193)); |
1812 |
|
{object V219 = list(4,VV[96],cadr((V193)),(V194),(V193)); |
1813 |
|
bds_unwind1; |
1814 |
|
bds_unwind1; |
1815 |
|
bds_unwind1; |
1816 |
|
bds_unwind1; |
1817 |
|
bds_unwind1; |
1818 |
|
VMR23(V219)}} |
1819 |
|
base[0]=base[0]; |
1820 |
|
return Cnil; |
1821 |
|
} |
1822 |
|
/* function definition for C2DECL-BODY */ |
1823 |
|
|
1824 |
|
static void L24() |
1825 |
|
{register object *base=vs_base; |
1826 |
|
register object *sup=base+VM24; VC24 |
1827 |
|
vs_reserve(VM24); |
1828 |
|
bds_check; |
1829 |
|
{object V220; |
1830 |
|
object V221; |
1831 |
|
check_arg(2); |
1832 |
|
V220=(base[0]); |
1833 |
|
V221=(base[1]); |
1834 |
|
vs_top=sup; |
1835 |
|
goto TTL; |
1836 |
|
TTL:; |
1837 |
|
bds_bind(VV[53],symbol_value(VV[53])); |
1838 |
|
bds_bind(VV[54],symbol_value(VV[54])); |
1839 |
|
bds_bind(VV[49],symbol_value(VV[49])); |
1840 |
|
bds_bind(VV[18],symbol_value(VV[18])); |
1841 |
|
bds_bind(VV[55],symbol_value(VV[55])); |
1842 |
|
{register object V222; |
1843 |
|
register object V223; |
1844 |
|
V222= (V220); |
1845 |
|
V223= car((V222)); |
1846 |
|
goto T884; |
1847 |
|
T884:; |
1848 |
|
if(!(endp_prop((V222)))){ |
1849 |
|
goto T885;} |
1850 |
|
goto T880; |
1851 |
|
goto T885; |
1852 |
|
T885:; |
1853 |
|
{object V224= car((V223)); |
1854 |
|
if((V224!= VV[85]))goto T890; |
1855 |
|
{register long V225; |
1856 |
|
V225= fix(cadr((V223))); |
1857 |
|
(VV[53]->s.s_dbind)= ((V225)>=(1)?Ct:Cnil); |
1858 |
|
(VV[54]->s.s_dbind)= ((V225)>=(2)?Ct:Cnil); |
1859 |
|
(VV[49]->s.s_dbind)= ((V225)>=(3)?Ct:Cnil); |
1860 |
|
goto T889;} |
1861 |
|
goto T890; |
1862 |
|
T890:; |
1863 |
|
if((V224!= VV[86]))goto T897; |
1864 |
|
(VV[55]->s.s_dbind)= cadr((V223)); |
1865 |
|
goto T889; |
1866 |
|
goto T897; |
1867 |
|
T897:; |
1868 |
|
if((V224!= VV[92]))goto T899; |
1869 |
|
{register object V226; |
1870 |
|
V226= cadr((V223)); |
1871 |
|
(VV[18]->s.s_dbind)= make_cons((V226),(VV[18]->s.s_dbind)); |
1872 |
|
goto T889;} |
1873 |
|
goto T899; |
1874 |
|
T899:; |
1875 |
|
if((V224!= VV[90]))goto T902; |
1876 |
|
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V223)),(VV[18]->s.s_dbind))); |
1877 |
|
goto T889; |
1878 |
|
goto T902; |
1879 |
|
T902:; |
1880 |
|
(void)((*(LnkLI185))());} |
1881 |
|
goto T889; |
1882 |
|
T889:; |
1883 |
|
V222= cdr((V222)); |
1884 |
|
V223= car((V222)); |
1885 |
|
goto T884;} |
1886 |
|
goto T880; |
1887 |
|
T880:; |
1888 |
|
base[7]= (V221); |
1889 |
|
vs_top=(vs_base=base+7)+1; |
1890 |
|
(void) (*Lnk186)(); |
1891 |
|
bds_unwind1; |
1892 |
|
bds_unwind1; |
1893 |
|
bds_unwind1; |
1894 |
|
bds_unwind1; |
1895 |
|
bds_unwind1; |
1896 |
|
return; |
1897 |
|
} |
1898 |
|
} |
1899 |
|
/* local entry for function CHECK-VDECL */ |
1900 |
|
|
1901 |
|
static object LI25(V230,V231,V232) |
1902 |
|
|
1903 |
|
register object V230;object V231;object V232; |
1904 |
|
{ VMB25 VMS25 VMV25 |
1905 |
|
goto TTL; |
1906 |
|
TTL:; |
1907 |
|
{register object V233; |
1908 |
|
register object V234; |
1909 |
|
V233= (V231); |
1910 |
|
V234= car((V233)); |
1911 |
|
goto T914; |
1912 |
|
T914:; |
1913 |
|
if(!(endp_prop((V233)))){ |
1914 |
|
goto T915;} |
1915 |
|
goto T910; |
1916 |
|
goto T915; |
1917 |
|
T915:; |
1918 |
|
{register object x= car((V234)),V235= (V230); |
1919 |
|
while(!endp(V235)) |
1920 |
|
if(eql(x,V235->c.c_car)){ |
1921 |
|
goto T919; |
1922 |
|
}else V235=V235->c.c_cdr;} |
1923 |
|
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V234))))); |
1924 |
|
goto T919; |
1925 |
|
T919:; |
1926 |
|
V233= cdr((V233)); |
1927 |
|
V234= car((V233)); |
1928 |
|
goto T914;} |
1929 |
|
goto T910; |
1930 |
|
T910:; |
1931 |
|
{register object V236; |
1932 |
|
register object V237; |
1933 |
|
V236= (V232); |
1934 |
|
V237= car((V236)); |
1935 |
|
goto T930; |
1936 |
|
T930:; |
1937 |
|
if(!(endp_prop((V236)))){ |
1938 |
|
goto T931;} |
1939 |
|
{object V238 = Cnil; |
1940 |
|
VMR25(V238)} |
1941 |
|
goto T931; |
1942 |
|
T931:; |
1943 |
|
{register object x= (V237),V239= (V230); |
1944 |
|
while(!endp(V239)) |
1945 |
|
if(eql(x,V239->c.c_car)){ |
1946 |
|
goto T935; |
1947 |
|
}else V239=V239->c.c_cdr;} |
1948 |
|
(void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V237)))); |
1949 |
|
goto T935; |
1950 |
|
T935:; |
1951 |
|
V236= cdr((V236)); |
1952 |
|
V237= car((V236)); |
1953 |
|
goto T930;} |
1954 |
|
base[0]=base[0]; |
1955 |
|
return Cnil; |
1956 |
|
} |
1957 |
|
/* local entry for function PROCLAMATION */ |
1958 |
|
|
1959 |
|
static object LI26(V241) |
1960 |
|
|
1961 |
|
object V241; |
1962 |
|
{ VMB26 VMS26 VMV26 |
1963 |
|
goto TTL; |
1964 |
|
TTL:; |
1965 |
|
{object V242= car((V241)); |
1966 |
|
if((V242!= VV[129]))goto T943; |
1967 |
|
{register object V243; |
1968 |
|
object V244; |
1969 |
|
V243= cdr((V241)); |
1970 |
|
V244= car((V243)); |
1971 |
|
goto T947; |
1972 |
|
T947:; |
1973 |
|
if(!(endp_prop((V243)))){ |
1974 |
|
goto T948;} |
1975 |
|
{object V245 = Ct; |
1976 |
|
VMR26(V245)} |
1977 |
|
goto T948; |
1978 |
|
T948:; |
1979 |
|
if(!(type_of((V244))==t_symbol)){ |
1980 |
|
goto T954;} |
1981 |
|
base[2]= (V244); |
1982 |
|
vs_top=(vs_base=base+2)+1; |
1983 |
|
siLspecialp(); |
1984 |
|
vs_top=sup; |
1985 |
|
if((vs_base[0])!=Cnil){ |
1986 |
|
goto T952;} |
1987 |
|
{object V246 = Cnil; |
1988 |
|
VMR26(V246)} |
1989 |
|
goto T954; |
1990 |
|
T954:; |
1991 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V244)))); |
1992 |
|
goto T952; |
1993 |
|
T952:; |
1994 |
|
V243= cdr((V243)); |
1995 |
|
V244= car((V243)); |
1996 |
|
goto T947;} |
1997 |
|
goto T943; |
1998 |
|
T943:; |
1999 |
|
if((V242!= VV[131]))goto T964; |
2000 |
|
{register object V247; |
2001 |
|
register object V248; |
2002 |
|
V247= cdr((V241)); |
2003 |
|
V248= car((V247)); |
2004 |
|
goto T968; |
2005 |
|
T968:; |
2006 |
|
if(!(endp_prop((V247)))){ |
2007 |
|
goto T969;} |
2008 |
|
{object V249 = Ct; |
2009 |
|
VMR26(V249)} |
2010 |
|
goto T969; |
2011 |
|
T969:; |
2012 |
|
if(!(type_of((V248))==t_symbol)){ |
2013 |
|
goto T973;} |
2014 |
|
V248= list(2,(V248),small_fixnum(3)); |
2015 |
|
goto T973; |
2016 |
|
T973:; |
2017 |
|
if(!(type_of((V248))==t_cons)){ |
2018 |
|
goto T978;} |
2019 |
|
if(!(type_of(cdr((V248)))==t_cons)){ |
2020 |
|
goto T978;} |
2021 |
|
{object V250= cadr((V248)); |
2022 |
|
if(!(type_of(V250)==t_fixnum|| |
2023 |
|
type_of(V250)==t_bignum|| |
2024 |
|
type_of(V250)==t_ratio|| |
2025 |
|
type_of(V250)==t_shortfloat|| |
2026 |
|
type_of(V250)==t_longfloat|| |
2027 |
|
type_of(V250)==t_complex)){ |
2028 |
|
goto T978;}} |
2029 |
|
base[2]= small_fixnum(0); |
2030 |
|
base[3]= cadr((V248)); |
2031 |
|
base[4]= small_fixnum(3); |
2032 |
|
vs_top=(vs_base=base+2)+3; |
2033 |
|
Lmonotonically_nondecreasing(); |
2034 |
|
vs_top=sup; |
2035 |
|
if((vs_base[0])!=Cnil){ |
2036 |
|
goto T979;} |
2037 |
|
goto T978; |
2038 |
|
T978:; |
2039 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V248)))); |
2040 |
|
goto T977; |
2041 |
|
goto T979; |
2042 |
|
T979:; |
2043 |
|
{object V251= car((V248)); |
2044 |
|
if((V251!= VV[85]))goto T990; |
2045 |
|
V252= cadr((V248)); |
2046 |
|
if((symbol_value(VV[53]))!=Cnil){ |
2047 |
|
goto T995;} |
2048 |
|
V253= small_fixnum(0); |
2049 |
|
goto T993; |
2050 |
|
goto T995; |
2051 |
|
T995:; |
2052 |
|
if((symbol_value(VV[54]))!=Cnil){ |
2053 |
|
goto T998;} |
2054 |
|
V253= small_fixnum(1); |
2055 |
|
goto T993; |
2056 |
|
goto T998; |
2057 |
|
T998:; |
2058 |
|
if((symbol_value(VV[49]))!=Cnil){ |
2059 |
|
goto T1001;} |
2060 |
|
V253= small_fixnum(2); |
2061 |
|
goto T993; |
2062 |
|
goto T1001; |
2063 |
|
T1001:; |
2064 |
|
V253= small_fixnum(3); |
2065 |
|
goto T993; |
2066 |
|
T993:; |
2067 |
|
if(number_compare(/* INLINE-ARGS */V252,V253)==0){ |
2068 |
|
goto T977;} |
2069 |
|
{object V254 = Cnil; |
2070 |
|
VMR26(V254)} |
2071 |
|
goto T990; |
2072 |
|
T990:; |
2073 |
|
if((V251!= VV[86]))goto T1003; |
2074 |
|
if(number_compare(cadr((V248)),symbol_value(VV[55]))==0){ |
2075 |
|
goto T977;} |
2076 |
|
{object V255 = Cnil; |
2077 |
|
VMR26(V255)} |
2078 |
|
goto T1003; |
2079 |
|
T1003:; |
2080 |
|
if((V251!= VV[132]))goto T1006; |
2081 |
|
if(number_compare(cadr((V248)),symbol_value(VV[56]))==0){ |
2082 |
|
goto T977;} |
2083 |
|
{object V256 = Cnil; |
2084 |
|
VMR26(V256)} |
2085 |
|
goto T1006; |
2086 |
|
T1006:; |
2087 |
|
if((V251!= VV[133]))goto T1009; |
2088 |
|
V257= number_minus(small_fixnum(3),cadr((V248))); |
2089 |
|
if(number_compare(/* INLINE-ARGS */V257,symbol_value(VV[56]))==0){ |
2090 |
|
goto T977;} |
2091 |
|
{object V258 = Cnil; |
2092 |
|
VMR26(V258)} |
2093 |
|
goto T1009; |
2094 |
|
T1009:; |
2095 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V248)))));} |
2096 |
|
goto T977; |
2097 |
|
T977:; |
2098 |
|
V247= cdr((V247)); |
2099 |
|
V248= car((V247)); |
2100 |
|
goto T968;} |
2101 |
|
goto T964; |
2102 |
|
T964:; |
2103 |
|
if((V242!= VV[134]))goto T1017; |
2104 |
|
if(!(type_of(cdr((V241)))==t_cons)){ |
2105 |
|
goto T1019;} |
2106 |
|
{object V259; |
2107 |
|
object V260; |
2108 |
|
V259= (*(LnkLI122))(cadr((V241))); |
2109 |
|
V260= Cnil; |
2110 |
|
{register object V261; |
2111 |
|
object V262; |
2112 |
|
V261= cddr((V241)); |
2113 |
|
V262= car((V261)); |
2114 |
|
goto T1025; |
2115 |
|
T1025:; |
2116 |
|
if(!(endp_prop((V261)))){ |
2117 |
|
goto T1026;} |
2118 |
|
{object V263 = Ct; |
2119 |
|
VMR26(V263)} |
2120 |
|
goto T1026; |
2121 |
|
T1026:; |
2122 |
|
if(!(type_of((V262))==t_symbol)){ |
2123 |
|
goto T1032;} |
2124 |
|
V260= get((V262),VV[68],Cnil); |
2125 |
|
if(((V260))==Cnil){ |
2126 |
|
goto T1034;} |
2127 |
|
if(equal((V260),(V259))){ |
2128 |
|
goto T1030;} |
2129 |
|
goto T1034; |
2130 |
|
T1034:; |
2131 |
|
{object V264 = Cnil; |
2132 |
|
VMR26(V264)} |
2133 |
|
goto T1032; |
2134 |
|
T1032:; |
2135 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V262)))); |
2136 |
|
goto T1030; |
2137 |
|
T1030:; |
2138 |
|
V261= cdr((V261)); |
2139 |
|
V262= car((V261)); |
2140 |
|
goto T1025;}} |
2141 |
|
goto T1019; |
2142 |
|
T1019:; |
2143 |
|
{object V265 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V241))); |
2144 |
|
VMR26(V265)} |
2145 |
|
goto T1017; |
2146 |
|
T1017:; |
2147 |
|
if((V242!= VV[136]) |
2148 |
|
&& (V242!= VV[137]) |
2149 |
|
&& (V242!= VV[138]) |
2150 |
|
&& (V242!= VV[139]))goto T1044; |
2151 |
|
{object V266; |
2152 |
|
object V267; |
2153 |
|
V266= (*(LnkLI122))(car((V241))); |
2154 |
|
V267= Cnil; |
2155 |
|
{register object V268; |
2156 |
|
object V269; |
2157 |
|
V268= cdr((V241)); |
2158 |
|
V269= car((V268)); |
2159 |
|
goto T1049; |
2160 |
|
T1049:; |
2161 |
|
if(!(endp_prop((V268)))){ |
2162 |
|
goto T1050;} |
2163 |
|
{object V270 = Ct; |
2164 |
|
VMR26(V270)} |
2165 |
|
goto T1050; |
2166 |
|
T1050:; |
2167 |
|
if(!(type_of((V269))==t_symbol)){ |
2168 |
|
goto T1056;} |
2169 |
|
V267= get((V269),VV[68],Cnil); |
2170 |
|
if(((V267))==Cnil){ |
2171 |
|
goto T1058;} |
2172 |
|
if(equal((V267),(V266))){ |
2173 |
|
goto T1054;} |
2174 |
|
goto T1058; |
2175 |
|
T1058:; |
2176 |
|
{object V271 = Cnil; |
2177 |
|
VMR26(V271)} |
2178 |
|
goto T1056; |
2179 |
|
T1056:; |
2180 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V269)))); |
2181 |
|
goto T1054; |
2182 |
|
T1054:; |
2183 |
|
V268= cdr((V268)); |
2184 |
|
V269= car((V268)); |
2185 |
|
goto T1049;}} |
2186 |
|
goto T1044; |
2187 |
|
T1044:; |
2188 |
|
if((V242!= VV[140]))goto T1068; |
2189 |
|
if(endp_prop(cdr((V241)))){ |
2190 |
|
goto T1069;} |
2191 |
|
if(!(type_of(cadr((V241)))==t_cons)){ |
2192 |
|
goto T1069;} |
2193 |
|
if(!((caadr((V241)))==(VV[26]))){ |
2194 |
|
goto T1069;} |
2195 |
|
if(!(endp_prop(cdadr((V241))))){ |
2196 |
|
goto T1070;} |
2197 |
|
goto T1069; |
2198 |
|
T1069:; |
2199 |
|
{object V272 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V241))); |
2200 |
|
VMR26(V272)} |
2201 |
|
goto T1070; |
2202 |
|
T1070:; |
2203 |
|
{register object V273; |
2204 |
|
object V274; |
2205 |
|
V273= cddr((V241)); |
2206 |
|
V274= car((V273)); |
2207 |
|
goto T1081; |
2208 |
|
T1081:; |
2209 |
|
if(!(endp_prop((V273)))){ |
2210 |
|
goto T1082;} |
2211 |
|
{object V275 = Ct; |
2212 |
|
VMR26(V275)} |
2213 |
|
goto T1082; |
2214 |
|
T1082:; |
2215 |
|
if((get((V274),VV[38],Cnil))==Cnil){ |
2216 |
|
goto T1087;} |
2217 |
|
V276= (*(LnkLI124))(cadadr((V241))); |
2218 |
|
V277= get((V274),VV[36],Cnil); |
2219 |
|
if(!(equal(/* INLINE-ARGS */V276,V277))){ |
2220 |
|
goto T1087;} |
2221 |
|
V278= (*(LnkLI125))(cddadr((V241))); |
2222 |
|
V279= get((V274),VV[37],Cnil); |
2223 |
|
if(equal(/* INLINE-ARGS */V278,V279)){ |
2224 |
|
goto T1086;} |
2225 |
|
goto T1087; |
2226 |
|
T1087:; |
2227 |
|
{object V280 = Cnil; |
2228 |
|
VMR26(V280)} |
2229 |
|
goto T1086; |
2230 |
|
T1086:; |
2231 |
|
V273= cdr((V273)); |
2232 |
|
V274= car((V273)); |
2233 |
|
goto T1081;} |
2234 |
|
goto T1068; |
2235 |
|
T1068:; |
2236 |
|
if((V242!= VV[26]))goto T1100; |
2237 |
|
if(endp_prop(cdr((V241)))){ |
2238 |
|
goto T1101;} |
2239 |
|
if(!(endp_prop(cddr((V241))))){ |
2240 |
|
goto T1102;} |
2241 |
|
goto T1101; |
2242 |
|
T1101:; |
2243 |
|
{object V281 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V241))); |
2244 |
|
VMR26(V281)} |
2245 |
|
goto T1102; |
2246 |
|
T1102:; |
2247 |
|
if((get(cadr((V241)),VV[38],Cnil))!=Cnil){ |
2248 |
|
goto T1106;} |
2249 |
|
{object V282 = Cnil; |
2250 |
|
VMR26(V282)} |
2251 |
|
goto T1106; |
2252 |
|
T1106:; |
2253 |
|
V283= (*(LnkLI124))(caddr((V241))); |
2254 |
|
V284= get(cadr((V241)),VV[36],Cnil); |
2255 |
|
if(equal(/* INLINE-ARGS */V283,V284)){ |
2256 |
|
goto T1108;} |
2257 |
|
{object V285 = Cnil; |
2258 |
|
VMR26(V285)} |
2259 |
|
goto T1108; |
2260 |
|
T1108:; |
2261 |
|
V286= (*(LnkLI125))(cdddr((V241))); |
2262 |
|
V287= get(cadr((V241)),VV[37],Cnil); |
2263 |
|
{object V288 = (equal(/* INLINE-ARGS */V286,V287)?Ct:Cnil); |
2264 |
|
VMR26(V288)} |
2265 |
|
goto T1100; |
2266 |
|
T1100:; |
2267 |
|
if((V242!= VV[90]))goto T1112; |
2268 |
|
{register object V289; |
2269 |
|
object V290; |
2270 |
|
V289= cdr((V241)); |
2271 |
|
V290= car((V289)); |
2272 |
|
goto T1116; |
2273 |
|
T1116:; |
2274 |
|
if(!(endp_prop((V289)))){ |
2275 |
|
goto T1117;} |
2276 |
|
{object V291 = Ct; |
2277 |
|
VMR26(V291)} |
2278 |
|
goto T1117; |
2279 |
|
T1117:; |
2280 |
|
if(!(type_of((V290))==t_symbol)){ |
2281 |
|
goto T1123;} |
2282 |
|
if((get((V290),VV[50],Cnil))==Cnil){ |
2283 |
|
goto T1121;} |
2284 |
|
{object V292 = Cnil; |
2285 |
|
VMR26(V292)} |
2286 |
|
goto T1123; |
2287 |
|
T1123:; |
2288 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V290)))); |
2289 |
|
goto T1121; |
2290 |
|
T1121:; |
2291 |
|
V289= cdr((V289)); |
2292 |
|
V290= car((V289)); |
2293 |
|
goto T1116;} |
2294 |
|
goto T1112; |
2295 |
|
T1112:; |
2296 |
|
if((V242!= VV[92]))goto T1132; |
2297 |
|
{register object V293; |
2298 |
|
object V294; |
2299 |
|
V293= cdr((V241)); |
2300 |
|
V294= car((V293)); |
2301 |
|
goto T1136; |
2302 |
|
T1136:; |
2303 |
|
if(!(endp_prop((V293)))){ |
2304 |
|
goto T1137;} |
2305 |
|
{object V295 = Ct; |
2306 |
|
VMR26(V295)} |
2307 |
|
goto T1137; |
2308 |
|
T1137:; |
2309 |
|
if(!(type_of((V294))==t_symbol)){ |
2310 |
|
goto T1143;} |
2311 |
|
if((get((V294),VV[50],Cnil))!=Cnil){ |
2312 |
|
goto T1141;} |
2313 |
|
{object V296 = Cnil; |
2314 |
|
VMR26(V296)} |
2315 |
|
goto T1143; |
2316 |
|
T1143:; |
2317 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V294)))); |
2318 |
|
goto T1141; |
2319 |
|
T1141:; |
2320 |
|
V293= cdr((V293)); |
2321 |
|
V294= car((V293)); |
2322 |
|
goto T1136;} |
2323 |
|
goto T1132; |
2324 |
|
T1132:; |
2325 |
|
if((V242!= VV[79]) |
2326 |
|
&& (V242!= VV[142]))goto T1152; |
2327 |
|
{register object V297; |
2328 |
|
object V298; |
2329 |
|
V297= cdr((V241)); |
2330 |
|
V298= car((V297)); |
2331 |
|
goto T1156; |
2332 |
|
T1156:; |
2333 |
|
if(!(endp_prop((V297)))){ |
2334 |
|
goto T1157;} |
2335 |
|
{object V299 = Ct; |
2336 |
|
VMR26(V299)} |
2337 |
|
goto T1157; |
2338 |
|
T1157:; |
2339 |
|
if(type_of((V298))==t_symbol){ |
2340 |
|
goto T1161;} |
2341 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V298)))); |
2342 |
|
goto T1161; |
2343 |
|
T1161:; |
2344 |
|
V297= cdr((V297)); |
2345 |
|
V298= car((V297)); |
2346 |
|
goto T1156;} |
2347 |
|
goto T1152; |
2348 |
|
T1152:; |
2349 |
|
if((V242!= VV[143]))goto T1169; |
2350 |
|
{register object V300; |
2351 |
|
object V301; |
2352 |
|
V300= cdr((V241)); |
2353 |
|
V301= car((V300)); |
2354 |
|
goto T1173; |
2355 |
|
T1173:; |
2356 |
|
if(!(endp_prop((V300)))){ |
2357 |
|
goto T1174;} |
2358 |
|
{object V302 = Ct; |
2359 |
|
VMR26(V302)} |
2360 |
|
goto T1174; |
2361 |
|
T1174:; |
2362 |
|
if(!(type_of((V301))==t_symbol)){ |
2363 |
|
goto T1180;} |
2364 |
|
{register object x= (V301),V303= symbol_value(VV[64]); |
2365 |
|
while(!endp(V303)) |
2366 |
|
if(eql(x,V303->c.c_car)){ |
2367 |
|
goto T1178; |
2368 |
|
}else V303=V303->c.c_cdr;} |
2369 |
|
{object V304 = Cnil; |
2370 |
|
VMR26(V304)} |
2371 |
|
goto T1180; |
2372 |
|
T1180:; |
2373 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V301)))); |
2374 |
|
goto T1178; |
2375 |
|
T1178:; |
2376 |
|
V300= cdr((V300)); |
2377 |
|
V301= car((V300)); |
2378 |
|
goto T1173;} |
2379 |
|
goto T1169; |
2380 |
|
T1169:; |
2381 |
|
if((V242== VV[144]) |
2382 |
|
|| (V242== VV[145]) |
2383 |
|
|| (V242== VV[146]) |
2384 |
|
|| (V242== VV[147]) |
2385 |
|
|| (V242== VV[148]))goto T1190; |
2386 |
|
if((V242== VV[137]) |
2387 |
|
|| (V242== VV[149]) |
2388 |
|
|| (V242== VV[25]) |
2389 |
|
|| (V242== VV[150]) |
2390 |
|
|| (V242== VV[151]))goto T1190; |
2391 |
|
if((V242== VV[152]) |
2392 |
|
|| (V242== VV[136]) |
2393 |
|
|| (V242== VV[153]) |
2394 |
|
|| (V242== VV[154]) |
2395 |
|
|| (V242== VV[32]))goto T1190; |
2396 |
|
if((V242== VV[155]) |
2397 |
|
|| (V242== VV[156]) |
2398 |
|
|| (V242== VV[139]) |
2399 |
|
|| (V242== Cnil) |
2400 |
|
|| (V242== VV[157]))goto T1190; |
2401 |
|
if((V242== VV[158]) |
2402 |
|
|| (V242== VV[159]) |
2403 |
|
|| (V242== VV[160]) |
2404 |
|
|| (V242== VV[161]) |
2405 |
|
|| (V242== VV[162]))goto T1190; |
2406 |
|
if((V242== VV[163]) |
2407 |
|
|| (V242== VV[164]) |
2408 |
|
|| (V242== VV[165]) |
2409 |
|
|| (V242== VV[138]) |
2410 |
|
|| (V242== VV[166]))goto T1190; |
2411 |
|
if((V242== VV[167]) |
2412 |
|
|| (V242== VV[168]) |
2413 |
|
|| (V242== VV[169]) |
2414 |
|
|| (V242== VV[170]) |
2415 |
|
|| (V242== VV[171]))goto T1190; |
2416 |
|
if((V242== VV[172]) |
2417 |
|
|| (V242== VV[173]) |
2418 |
|
|| (V242== VV[174]) |
2419 |
|
|| (V242== VV[175]) |
2420 |
|
|| (V242== Ct))goto T1190; |
2421 |
|
if((V242!= VV[176]) |
2422 |
|
&& (V242!= VV[177]) |
2423 |
|
&& (V242!= VV[178]))goto T1189; |
2424 |
|
goto T1190; |
2425 |
|
T1190:; |
2426 |
|
{object V305; |
2427 |
|
V305= (*(LnkLI122))(car((V241))); |
2428 |
|
{register object V306; |
2429 |
|
object V307; |
2430 |
|
V306= cdr((V241)); |
2431 |
|
V307= car((V306)); |
2432 |
|
goto T1195; |
2433 |
|
T1195:; |
2434 |
|
if(!(endp_prop((V306)))){ |
2435 |
|
goto T1196;} |
2436 |
|
{object V308 = Ct; |
2437 |
|
VMR26(V308)} |
2438 |
|
goto T1196; |
2439 |
|
T1196:; |
2440 |
|
if(!(type_of((V307))==t_symbol)){ |
2441 |
|
goto T1202;} |
2442 |
|
V309= get((V307),VV[68],Cnil); |
2443 |
|
if(equal(V309,(V305))){ |
2444 |
|
goto T1200;} |
2445 |
|
{object V310 = Cnil; |
2446 |
|
VMR26(V310)} |
2447 |
|
goto T1202; |
2448 |
|
T1202:; |
2449 |
|
(void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V307)))); |
2450 |
|
goto T1200; |
2451 |
|
T1200:; |
2452 |
|
V306= cdr((V306)); |
2453 |
|
V307= car((V306)); |
2454 |
|
goto T1195;}} |
2455 |
|
goto T1189; |
2456 |
|
T1189:; |
2457 |
|
{register object x= car((V241)),V311= symbol_value(VV[64]); |
2458 |
|
while(!endp(V311)) |
2459 |
|
if(eql(x,V311->c.c_car)){ |
2460 |
|
goto T1213; |
2461 |
|
}else V311=V311->c.c_cdr;} |
2462 |
|
{object V312 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V241)))); |
2463 |
|
VMR26(V312)} |
2464 |
|
goto T1213; |
2465 |
|
T1213:; |
2466 |
|
{object V313 = Cnil; |
2467 |
|
VMR26(V313)}} |
2468 |
|
base[0]=base[0]; |
2469 |
|
return Cnil; |
2470 |
|
} |
2471 |
|
static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* C2EXPR */ |
2472 |
|
static object LnkTLI185(){return call_proc0(VV[185],(void **)(void *)&LnkLI185);} /* BABOON */ |
2473 |
|
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)(void *)&LnkLI184,first,ap);va_end(ap);return V1;} /* REMOVE */ |
2474 |
|
static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */ |
2475 |
|
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* C1PROGN */ |
2476 |
|
static object LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */ |
2477 |
|
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */ |
2478 |
|
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */ |
2479 |
|
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */ |
2480 |
|
static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* *MAKE-SPECIAL */ |
2481 |
|
static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
2482 |
|
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
2483 |
|
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,1,first,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */ |
2484 |
|
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */ |
2485 |
|
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */ |
2486 |
|
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* WARN */ |
2487 |
|
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2488 |
|
static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[121],(void **)(void *)&LnkLI121,first,ap);va_end(ap);return V1;} /* CMPERR */ |
2489 |
|
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* COMPILED-FUNCTION-NAME */ |
2490 |
|
static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* TYPEP */ |
2491 |
|
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* WT-TO-STRING */ |
2492 |
|
static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* CONTAINS-SHARP-COMMA */ |
2493 |
|
static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */ |
2494 |
|
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */ |
2495 |
|
static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */ |
2496 |
|
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
2497 |
|
|
2498 |
|
#ifdef SYSTEM_SPECIAL_INIT |
2499 |
|
SYSTEM_SPECIAL_INIT |
2500 |
|
#endif |
2501 |
|
|