1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "predlib.h" |
#include "predlib.h" |
4 |
init_predlib(){do_init(VV);} |
void init_predlib(){do_init(VV);} |
5 |
/* macro definition for DEFTYPE */ |
/* macro definition for DEFTYPE */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
22 |
register object V3; |
register object V3; |
23 |
V2= base[3]; |
V2= base[3]; |
24 |
V3= Cnil; |
V3= Cnil; |
25 |
|
goto T3; |
26 |
T3:; |
T3:; |
27 |
if(((V2))!=Cnil){ |
if(((V2))!=Cnil){ |
28 |
goto T4;} |
goto T4;} |
29 |
goto T1; |
goto T1; |
30 |
|
goto T4; |
31 |
T4:; |
T4:; |
32 |
{register object x= car((V2)),V4= VV[0]; |
{register object x= car((V2)),V4= VV[0]; |
33 |
while(!endp(V4)) |
while(!endp(V4)) |
35 |
goto T10; |
goto T10; |
36 |
}else V4=V4->c.c_cdr; |
}else V4=V4->c.c_cdr; |
37 |
goto T8;} |
goto T8;} |
38 |
|
goto T10; |
39 |
T10:; |
T10:; |
40 |
if((car((V2)))==(VV[1])){ |
if((car((V2)))==(VV[1])){ |
41 |
goto T11;} |
goto T11;} |
42 |
goto T1; |
goto T1; |
43 |
|
goto T11; |
44 |
T11:; |
T11:; |
45 |
V3= make_cons(VV[1],(V3)); |
V3= make_cons(VV[1],(V3)); |
46 |
V2= cdr((V2)); |
V2= cdr((V2)); |
47 |
|
goto T20; |
48 |
T20:; |
T20:; |
49 |
if(((V2))==Cnil){ |
if(((V2))==Cnil){ |
50 |
goto T22;} |
goto T22;} |
54 |
goto T25; |
goto T25; |
55 |
}else V5=V5->c.c_cdr; |
}else V5=V5->c.c_cdr; |
56 |
goto T21;} |
goto T21;} |
57 |
|
goto T25; |
58 |
T25:; |
T25:; |
59 |
|
goto T22; |
60 |
T22:; |
T22:; |
61 |
goto T18; |
goto T18; |
62 |
|
goto T21; |
63 |
T21:; |
T21:; |
64 |
if(!(type_of(car((V2)))==t_symbol)){ |
if(!(type_of(car((V2)))==t_symbol)){ |
65 |
goto T29;} |
goto T29;} |
66 |
V6= list(2,car((V2)),VV[2]); |
V6= list(2,car((V2)),VV[2]); |
67 |
V3= make_cons(/* INLINE-ARGS */V6,(V3)); |
V3= make_cons(/* INLINE-ARGS */V6,(V3)); |
68 |
goto T27; |
goto T27; |
69 |
|
goto T29; |
70 |
T29:; |
T29:; |
71 |
V3= make_cons(car((V2)),(V3)); |
V3= make_cons(car((V2)),(V3)); |
72 |
|
goto T27; |
73 |
T27:; |
T27:; |
74 |
V2= cdr((V2)); |
V2= cdr((V2)); |
75 |
goto T20; |
goto T20; |
76 |
|
goto T18; |
77 |
T18:; |
T18:; |
78 |
base[5]= (V3); |
base[5]= (V3); |
79 |
base[6]= (V2); |
base[6]= (V2); |
82 |
vs_top=sup; |
vs_top=sup; |
83 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
84 |
goto T1; |
goto T1; |
85 |
|
goto T8; |
86 |
T8:; |
T8:; |
87 |
{object V7; |
{object V7; |
88 |
V7= cdr((V2)); |
V7= cdr((V2)); |
89 |
V3= make_cons(car((V2)),(V3)); |
V3= make_cons(car((V2)),(V3)); |
90 |
V2= (V7);} |
V2= (V7);} |
91 |
goto T3;} |
goto T3;} |
92 |
|
goto T1; |
93 |
T1:; |
T1:; |
94 |
V8= list(2,VV[6],base[2]); |
V8= list(2,VV[6],base[2]); |
95 |
V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]); |
V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]); |
104 |
} |
} |
105 |
/* function definition for G1024 */ |
/* function definition for G1024 */ |
106 |
|
|
107 |
static L2() |
static void L2() |
108 |
{register object *base=vs_base; |
{register object *base=vs_base; |
109 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
110 |
vs_reserve(VM2); |
vs_reserve(VM2); |
111 |
check_arg(0); |
check_arg(0); |
112 |
vs_top=sup; |
vs_top=sup; |
113 |
|
goto TTL; |
114 |
TTL:; |
TTL:; |
115 |
base[0]= list(3,VV[13],VV[14],VV[15]); |
base[0]= list(3,VV[13],VV[14],VV[15]); |
116 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
118 |
} |
} |
119 |
/* function definition for G1025 */ |
/* function definition for G1025 */ |
120 |
|
|
121 |
static L3() |
static void L3() |
122 |
{register object *base=vs_base; |
{register object *base=vs_base; |
123 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
124 |
vs_reserve(VM3); |
vs_reserve(VM3); |
125 |
check_arg(0); |
check_arg(0); |
126 |
vs_top=sup; |
vs_top=sup; |
127 |
|
goto TTL; |
128 |
TTL:; |
TTL:; |
129 |
base[0]= VV[16]; |
base[0]= VV[16]; |
130 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
132 |
} |
} |
133 |
/* function definition for G1026 */ |
/* function definition for G1026 */ |
134 |
|
|
135 |
static L4() |
static void L4() |
136 |
{register object *base=vs_base; |
{register object *base=vs_base; |
137 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
138 |
vs_reserve(VM4); |
vs_reserve(VM4); |
140 |
check_arg(1); |
check_arg(1); |
141 |
V15=(base[0]); |
V15=(base[0]); |
142 |
vs_top=sup; |
vs_top=sup; |
143 |
|
goto TTL; |
144 |
TTL:; |
TTL:; |
145 |
base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15))); |
base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15))); |
146 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
149 |
} |
} |
150 |
/* function definition for G1027 */ |
/* function definition for G1027 */ |
151 |
|
|
152 |
static L5() |
static void L5() |
153 |
{register object *base=vs_base; |
{register object *base=vs_base; |
154 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
155 |
vs_reserve(VM5); |
vs_reserve(VM5); |
159 |
V16=(base[0]); |
V16=(base[0]); |
160 |
vs_top=sup; |
vs_top=sup; |
161 |
goto T46; |
goto T46; |
162 |
|
goto T45; |
163 |
T45:; |
T45:; |
164 |
V16= VV[17]; |
V16= VV[17]; |
165 |
|
goto T46; |
166 |
T46:; |
T46:; |
167 |
if(!(((V16))==(VV[17]))){ |
if(!(((V16))==(VV[17]))){ |
168 |
goto T49;} |
goto T49;} |
169 |
base[1]= VV[18]; |
base[1]= VV[18]; |
170 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
171 |
return; |
return; |
172 |
|
goto T49; |
173 |
T49:; |
T49:; |
174 |
V17= one_minus((V16)); |
V17= one_minus((V16)); |
175 |
V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17); |
V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17); |
183 |
} |
} |
184 |
/* function definition for G1028 */ |
/* function definition for G1028 */ |
185 |
|
|
186 |
static L6() |
static void L6() |
187 |
{register object *base=vs_base; |
{register object *base=vs_base; |
188 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
189 |
vs_reserve(VM6); |
vs_reserve(VM6); |
193 |
V22=(base[0]); |
V22=(base[0]); |
194 |
vs_top=sup; |
vs_top=sup; |
195 |
goto T52; |
goto T52; |
196 |
|
goto T51; |
197 |
T51:; |
T51:; |
198 |
V22= VV[17]; |
V22= VV[17]; |
199 |
|
goto T52; |
200 |
T52:; |
T52:; |
201 |
if(!(((V22))==(VV[17]))){ |
if(!(((V22))==(VV[17]))){ |
202 |
goto T55;} |
goto T55;} |
203 |
base[1]= VV[19]; |
base[1]= VV[19]; |
204 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
205 |
return; |
return; |
206 |
|
goto T55; |
207 |
T55:; |
T55:; |
208 |
V23= number_expt(small_fixnum(2),(V22)); |
V23= number_expt(small_fixnum(2),(V22)); |
209 |
base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23)); |
base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23)); |
213 |
} |
} |
214 |
/* function definition for G1029 */ |
/* function definition for G1029 */ |
215 |
|
|
216 |
static L7() |
static void L7() |
217 |
{register object *base=vs_base; |
{register object *base=vs_base; |
218 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
219 |
vs_reserve(VM7); |
vs_reserve(VM7); |
220 |
check_arg(0); |
check_arg(0); |
221 |
vs_top=sup; |
vs_top=sup; |
222 |
|
goto TTL; |
223 |
TTL:; |
TTL:; |
224 |
base[0]= list(2,VV[20],small_fixnum(8)); |
base[0]= list(2,VV[20],small_fixnum(8)); |
225 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
227 |
} |
} |
228 |
/* function definition for G1030 */ |
/* function definition for G1030 */ |
229 |
|
|
230 |
static L8() |
static void L8() |
231 |
{register object *base=vs_base; |
{register object *base=vs_base; |
232 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
233 |
vs_reserve(VM8); |
vs_reserve(VM8); |
234 |
check_arg(0); |
check_arg(0); |
235 |
vs_top=sup; |
vs_top=sup; |
236 |
|
goto TTL; |
237 |
TTL:; |
TTL:; |
238 |
base[0]= list(2,VV[21],small_fixnum(8)); |
base[0]= list(2,VV[21],small_fixnum(8)); |
239 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
241 |
} |
} |
242 |
/* function definition for G1031 */ |
/* function definition for G1031 */ |
243 |
|
|
244 |
static L9() |
static void L9() |
245 |
{register object *base=vs_base; |
{register object *base=vs_base; |
246 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
247 |
vs_reserve(VM9); |
vs_reserve(VM9); |
248 |
check_arg(0); |
check_arg(0); |
249 |
vs_top=sup; |
vs_top=sup; |
250 |
|
goto TTL; |
251 |
TTL:; |
TTL:; |
252 |
base[0]= list(2,VV[20],small_fixnum(16)); |
base[0]= list(2,VV[20],small_fixnum(16)); |
253 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
255 |
} |
} |
256 |
/* function definition for G1032 */ |
/* function definition for G1032 */ |
257 |
|
|
258 |
static L10() |
static void L10() |
259 |
{register object *base=vs_base; |
{register object *base=vs_base; |
260 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
261 |
vs_reserve(VM10); |
vs_reserve(VM10); |
262 |
check_arg(0); |
check_arg(0); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
|
goto TTL; |
265 |
TTL:; |
TTL:; |
266 |
base[0]= list(2,VV[21],small_fixnum(16)); |
base[0]= list(2,VV[21],small_fixnum(16)); |
267 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
269 |
} |
} |
270 |
/* function definition for G1033 */ |
/* function definition for G1033 */ |
271 |
|
|
272 |
static L11() |
static void L11() |
273 |
{register object *base=vs_base; |
{register object *base=vs_base; |
274 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
275 |
vs_reserve(VM11); |
vs_reserve(VM11); |
283 |
V25=(base[1]); |
V25=(base[1]); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
goto T59; |
goto T59; |
286 |
|
goto T57; |
287 |
T57:; |
T57:; |
288 |
V24= VV[17]; |
V24= VV[17]; |
289 |
|
goto T58; |
290 |
T58:; |
T58:; |
291 |
V25= VV[17]; |
V25= VV[17]; |
292 |
|
goto T59; |
293 |
T59:; |
T59:; |
294 |
base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil)); |
base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil)); |
295 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
298 |
} |
} |
299 |
/* function definition for G1034 */ |
/* function definition for G1034 */ |
300 |
|
|
301 |
static L12() |
static void L12() |
302 |
{register object *base=vs_base; |
{register object *base=vs_base; |
303 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
304 |
vs_reserve(VM12); |
vs_reserve(VM12); |
308 |
V26=(base[0]); |
V26=(base[0]); |
309 |
vs_top=sup; |
vs_top=sup; |
310 |
goto T63; |
goto T63; |
311 |
|
goto T62; |
312 |
T62:; |
T62:; |
313 |
V26= VV[17]; |
V26= VV[17]; |
314 |
|
goto T63; |
315 |
T63:; |
T63:; |
316 |
base[1]= list(3,VV[23],VV[24],(V26)); |
base[1]= list(3,VV[23],VV[24],(V26)); |
317 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
320 |
} |
} |
321 |
/* function definition for G1035 */ |
/* function definition for G1035 */ |
322 |
|
|
323 |
static L13() |
static void L13() |
324 |
{register object *base=vs_base; |
{register object *base=vs_base; |
325 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
326 |
vs_reserve(VM13); |
vs_reserve(VM13); |
330 |
V27=(base[0]); |
V27=(base[0]); |
331 |
vs_top=sup; |
vs_top=sup; |
332 |
goto T66; |
goto T66; |
333 |
|
goto T65; |
334 |
T65:; |
T65:; |
335 |
V27= VV[17]; |
V27= VV[17]; |
336 |
|
goto T66; |
337 |
T66:; |
T66:; |
338 |
base[1]= list(3,VV[23],VV[25],(V27)); |
base[1]= list(3,VV[23],VV[25],(V27)); |
339 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
342 |
} |
} |
343 |
/* function definition for G1036 */ |
/* function definition for G1036 */ |
344 |
|
|
345 |
static L14() |
static void L14() |
346 |
{register object *base=vs_base; |
{register object *base=vs_base; |
347 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
348 |
vs_reserve(VM14); |
vs_reserve(VM14); |
352 |
V28=(base[0]); |
V28=(base[0]); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
goto T69; |
goto T69; |
355 |
|
goto T68; |
356 |
T68:; |
T68:; |
357 |
V28= VV[17]; |
V28= VV[17]; |
358 |
|
goto T69; |
359 |
T69:; |
T69:; |
360 |
base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil)); |
base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil)); |
361 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
364 |
} |
} |
365 |
/* function definition for G1037 */ |
/* function definition for G1037 */ |
366 |
|
|
367 |
static L15() |
static void L15() |
368 |
{register object *base=vs_base; |
{register object *base=vs_base; |
369 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
370 |
vs_reserve(VM15); |
vs_reserve(VM15); |
374 |
V29=(base[0]); |
V29=(base[0]); |
375 |
vs_top=sup; |
vs_top=sup; |
376 |
goto T72; |
goto T72; |
377 |
|
goto T71; |
378 |
T71:; |
T71:; |
379 |
V29= VV[17]; |
V29= VV[17]; |
380 |
|
goto T72; |
381 |
T72:; |
T72:; |
382 |
base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil)); |
base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil)); |
383 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
386 |
} |
} |
387 |
/* function definition for G1038 */ |
/* function definition for G1038 */ |
388 |
|
|
389 |
static L16() |
static void L16() |
390 |
{register object *base=vs_base; |
{register object *base=vs_base; |
391 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
392 |
vs_reserve(VM16); |
vs_reserve(VM16); |
396 |
V30=(base[0]); |
V30=(base[0]); |
397 |
vs_top=sup; |
vs_top=sup; |
398 |
goto T75; |
goto T75; |
399 |
|
goto T74; |
400 |
T74:; |
T74:; |
401 |
V30= VV[17]; |
V30= VV[17]; |
402 |
|
goto T75; |
403 |
T75:; |
T75:; |
404 |
base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil)); |
base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil)); |
405 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
412 |
|
|
413 |
object V32; |
object V32; |
414 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
415 |
|
goto TTL; |
416 |
TTL:; |
TTL:; |
417 |
if(type_of((V32))==t_array|| |
if(type_of((V32))==t_array|| |
418 |
type_of((V32))==t_vector|| |
type_of((V32))==t_vector|| |
421 |
goto T77;} |
goto T77;} |
422 |
{object V33 = Cnil; |
{object V33 = Cnil; |
423 |
VMR17(V33)} |
VMR17(V33)} |
424 |
|
goto T77; |
425 |
T77:; |
T77:; |
426 |
base[0]= (V32); |
base[0]= (V32); |
427 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
432 |
goto T79;} |
goto T79;} |
433 |
{object V35 = Cnil; |
{object V35 = Cnil; |
434 |
VMR17(V35)} |
VMR17(V35)} |
435 |
|
goto T79; |
436 |
T79:; |
T79:; |
437 |
base[0]= (V32); |
base[0]= (V32); |
438 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
441 |
V36= vs_base[0]; |
V36= vs_base[0]; |
442 |
{object V37 = ((V36)==Cnil?Ct:Cnil); |
{object V37 = ((V36)==Cnil?Ct:Cnil); |
443 |
VMR17(V37)} |
VMR17(V37)} |
444 |
|
base[0]=base[0]; |
445 |
|
return Cnil; |
446 |
} |
} |
447 |
/* function definition for TYPEP */ |
/* function definition for TYPEP */ |
448 |
|
|
449 |
static L18() |
static void L18() |
450 |
{register object *base=vs_base; |
{register object *base=vs_base; |
451 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
452 |
vs_reserve(VM18); |
vs_reserve(VM18); |
456 |
V38=(base[0]); |
V38=(base[0]); |
457 |
V39=(base[1]); |
V39=(base[1]); |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
|
goto TTL; |
460 |
TTL:; |
TTL:; |
461 |
{register object V40; |
{register object V40; |
462 |
register object V41; |
register object V41; |
469 |
V40= (V39); |
V40= (V39); |
470 |
V41= Cnil; |
V41= Cnil; |
471 |
goto T88; |
goto T88; |
472 |
|
goto T90; |
473 |
T90:; |
T90:; |
474 |
V40= car((V39)); |
V40= car((V39)); |
475 |
V41= cdr((V39)); |
V41= cdr((V39)); |
476 |
|
goto T88; |
477 |
T88:; |
T88:; |
478 |
{object V43; |
{object V43; |
479 |
V43= get((V40),VV[27],Cnil); |
V43= get((V40),VV[27],Cnil); |
483 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
484 |
super_funcall_no_event((V43)); |
super_funcall_no_event((V43)); |
485 |
return;} |
return;} |
486 |
|
goto T98; |
487 |
T98:; |
T98:; |
488 |
{object V44= (V40); |
{object V44= (V40); |
489 |
if((V44!= VV[36]))goto T103; |
if((V44!= VV[36]))goto T103; |
497 |
base[2]= Cnil; |
base[2]= Cnil; |
498 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
499 |
return;} |
return;} |
500 |
|
goto T103; |
501 |
T103:; |
T103:; |
502 |
if((V44!= VV[39]))goto T104; |
if((V44!= VV[39]))goto T104; |
503 |
base[2]= (V38); |
base[2]= (V38); |
509 |
base[2]= ((V46)==Cnil?Ct:Cnil); |
base[2]= ((V46)==Cnil?Ct:Cnil); |
510 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
511 |
return; |
return; |
512 |
|
goto T104; |
513 |
T104:; |
T104:; |
514 |
if((V44!= VV[37]))goto T108; |
if((V44!= VV[37]))goto T108; |
515 |
{register object V47; |
{register object V47; |
516 |
V47= (V41); |
V47= (V41); |
517 |
|
goto T110; |
518 |
T110:; |
T110:; |
519 |
if(((V47))!=Cnil){ |
if(((V47))!=Cnil){ |
520 |
goto T111;} |
goto T111;} |
521 |
base[2]= Cnil; |
base[2]= Cnil; |
522 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
523 |
return; |
return; |
524 |
|
goto T111; |
525 |
T111:; |
T111:; |
526 |
base[2]= (V38); |
base[2]= (V38); |
527 |
base[3]= car((V47)); |
base[3]= car((V47)); |
533 |
base[2]= Ct; |
base[2]= Ct; |
534 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
535 |
return; |
return; |
536 |
|
goto T115; |
537 |
T115:; |
T115:; |
538 |
V47= cdr((V47)); |
V47= cdr((V47)); |
539 |
goto T110;} |
goto T110;} |
540 |
|
goto T108; |
541 |
T108:; |
T108:; |
542 |
if((V44!= VV[38]))goto T123; |
if((V44!= VV[38]))goto T123; |
543 |
{register object V48; |
{register object V48; |
544 |
V48= (V41); |
V48= (V41); |
545 |
|
goto T125; |
546 |
T125:; |
T125:; |
547 |
if(((V48))!=Cnil){ |
if(((V48))!=Cnil){ |
548 |
goto T126;} |
goto T126;} |
549 |
base[2]= Ct; |
base[2]= Ct; |
550 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
551 |
return; |
return; |
552 |
|
goto T126; |
553 |
T126:; |
T126:; |
554 |
base[2]= (V38); |
base[2]= (V38); |
555 |
base[3]= car((V48)); |
base[3]= car((V48)); |
561 |
base[2]= Cnil; |
base[2]= Cnil; |
562 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
563 |
return; |
return; |
564 |
|
goto T130; |
565 |
T130:; |
T130:; |
566 |
V48= cdr((V48)); |
V48= cdr((V48)); |
567 |
goto T125;} |
goto T125;} |
568 |
|
goto T123; |
569 |
T123:; |
T123:; |
570 |
if((V44!= VV[77]))goto T138; |
if((V44!= VV[77]))goto T138; |
571 |
base[2]= car((V41)); |
base[2]= car((V41)); |
573 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
574 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
575 |
return; |
return; |
576 |
|
goto T138; |
577 |
T138:; |
T138:; |
578 |
if((V44!= Ct))goto T141; |
if((V44!= Ct))goto T141; |
579 |
base[2]= Ct; |
base[2]= Ct; |
580 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
581 |
return; |
return; |
582 |
|
goto T141; |
583 |
T141:; |
T141:; |
584 |
if((V44!= Cnil))goto T142; |
if((V44!= Cnil))goto T142; |
585 |
base[2]= Cnil; |
base[2]= Cnil; |
586 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
587 |
return; |
return; |
588 |
|
goto T142; |
589 |
T142:; |
T142:; |
590 |
if((V44!= VV[28]))goto T143; |
if((V44!= VV[28]))goto T143; |
591 |
base[2]= (V38); |
base[2]= (V38); |
596 |
base[2]= ((V49)==(VV[28])?Ct:Cnil); |
base[2]= ((V49)==(VV[28])?Ct:Cnil); |
597 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
598 |
return; |
return; |
599 |
|
goto T143; |
600 |
T143:; |
T143:; |
601 |
if((V44!= VV[29]))goto T146; |
if((V44!= VV[29]))goto T146; |
602 |
base[2]= (V38); |
base[2]= (V38); |
607 |
base[2]= ((V50)==(VV[29])?Ct:Cnil); |
base[2]= ((V50)==(VV[29])?Ct:Cnil); |
608 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
609 |
return; |
return; |
610 |
|
goto T146; |
611 |
T146:; |
T146:; |
612 |
if((V44!= VV[30]))goto T149; |
if((V44!= VV[30]))goto T149; |
613 |
base[2]= (V38); |
base[2]= (V38); |
618 |
base[2]= ((V51)==(VV[30])?Ct:Cnil); |
base[2]= ((V51)==(VV[30])?Ct:Cnil); |
619 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
620 |
return; |
return; |
621 |
|
goto T149; |
622 |
T149:; |
T149:; |
623 |
if((V44!= VV[78]))goto T152; |
if((V44!= VV[78]))goto T152; |
624 |
if(type_of((V38))==t_character){ |
if(type_of((V38))==t_character){ |
626 |
base[2]= Cnil; |
base[2]= Cnil; |
627 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
628 |
return; |
return; |
629 |
|
goto T153; |
630 |
T153:; |
T153:; |
631 |
base[2]= (V38); |
base[2]= (V38); |
632 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
633 |
Lstandard_char_p(); |
Lstandard_char_p(); |
634 |
return; |
return; |
635 |
|
goto T152; |
636 |
T152:; |
T152:; |
637 |
if((V44!= VV[24]))goto T156; |
if((V44!= VV[24]))goto T156; |
638 |
if(type_of((V38))==t_character){ |
if(type_of((V38))==t_character){ |
640 |
base[2]= Cnil; |
base[2]= Cnil; |
641 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
642 |
return; |
return; |
643 |
|
goto T157; |
644 |
T157:; |
T157:; |
645 |
base[2]= (V38); |
base[2]= (V38); |
646 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
647 |
Lstring_char_p(); |
Lstring_char_p(); |
648 |
return; |
return; |
649 |
|
goto T156; |
650 |
T156:; |
T156:; |
651 |
if((V44!= VV[13]))goto T160; |
if((V44!= VV[13]))goto T160; |
652 |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){ |
654 |
base[2]= Cnil; |
base[2]= Cnil; |
655 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
656 |
return; |
return; |
657 |
|
goto T161; |
658 |
T161:; |
T161:; |
659 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
660 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
661 |
return; |
return; |
662 |
|
goto T160; |
663 |
T160:; |
T160:; |
664 |
if((V44!= VV[61]))goto T163; |
if((V44!= VV[61]))goto T163; |
665 |
base[2]= (V38); |
base[2]= (V38); |
671 |
base[2]= Cnil; |
base[2]= Cnil; |
672 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
673 |
return; |
return; |
674 |
|
goto T164; |
675 |
T164:; |
T164:; |
676 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
677 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
678 |
return; |
return; |
679 |
|
goto T163; |
680 |
T163:; |
T163:; |
681 |
if((V44!= VV[54]))goto T167; |
if((V44!= VV[54]))goto T167; |
682 |
base[2]= (V38); |
base[2]= (V38); |
688 |
base[2]= Cnil; |
base[2]= Cnil; |
689 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
690 |
return; |
return; |
691 |
|
goto T168; |
692 |
T168:; |
T168:; |
693 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
694 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
695 |
return; |
return; |
696 |
|
goto T167; |
697 |
T167:; |
T167:; |
698 |
if((V44!= VV[62]))goto T171; |
if((V44!= VV[62]))goto T171; |
699 |
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){ |
701 |
base[2]= Cnil; |
base[2]= Cnil; |
702 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
703 |
return; |
return; |
704 |
|
goto T172; |
705 |
T172:; |
T172:; |
706 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
707 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
708 |
return; |
return; |
709 |
|
goto T171; |
710 |
T171:; |
T171:; |
711 |
if((V44!= VV[31]))goto T174; |
if((V44!= VV[31]))goto T174; |
712 |
base[2]= (V38); |
base[2]= (V38); |
719 |
base[2]= Cnil; |
base[2]= Cnil; |
720 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
721 |
return; |
return; |
722 |
|
goto T175; |
723 |
T175:; |
T175:; |
724 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
725 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
726 |
return; |
return; |
727 |
|
goto T174; |
728 |
T174:; |
T174:; |
729 |
if((V44!= VV[82]) |
if((V44!= VV[82]) |
730 |
&& (V44!= VV[83]) |
&& (V44!= VV[83]) |
739 |
base[2]= Cnil; |
base[2]= Cnil; |
740 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
741 |
return; |
return; |
742 |
|
goto T180; |
743 |
T180:; |
T180:; |
744 |
base[2]= (*(LnkLI79))((V38),(V41)); |
base[2]= (*(LnkLI79))((V38),(V41)); |
745 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
746 |
return; |
return; |
747 |
|
goto T179; |
748 |
T179:; |
T179:; |
749 |
if((V44!= VV[65]))goto T184; |
if((V44!= VV[65]))goto T184; |
750 |
base[2]= (V38); |
base[2]= (V38); |
756 |
base[2]= Cnil; |
base[2]= Cnil; |
757 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
758 |
return; |
return; |
759 |
|
goto T185; |
760 |
T185:; |
T185:; |
761 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
762 |
goto T188;} |
goto T188;} |
763 |
base[2]= Ct; |
base[2]= Ct; |
764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
765 |
return; |
return; |
766 |
|
goto T188; |
767 |
T188:; |
T188:; |
768 |
base[3]= (V38); |
base[3]= (V38); |
769 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
779 |
base[2]= Cnil; |
base[2]= Cnil; |
780 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
781 |
return; |
return; |
782 |
|
goto T190; |
783 |
T190:; |
T190:; |
784 |
base[2]= (V38); |
base[2]= (V38); |
785 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
788 |
V38= vs_base[0]; |
V38= vs_base[0]; |
789 |
V39= car((V41)); |
V39= car((V41)); |
790 |
goto TTL; |
goto TTL; |
791 |
|
goto T184; |
792 |
T184:; |
T184:; |
793 |
if((V44!= VV[43]))goto T199; |
if((V44!= VV[43]))goto T199; |
794 |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
if(!(type_of((V38))==t_cons||((V38))==Cnil)){ |
796 |
base[2]= Ct; |
base[2]= Ct; |
797 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
798 |
return; |
return; |
799 |
|
goto T200; |
800 |
T200:; |
T200:; |
801 |
base[2]= (type_of((V38))==t_vector|| |
base[2]= (type_of((V38))==t_vector|| |
802 |
type_of((V38))==t_string|| |
type_of((V38))==t_string|| |
803 |
type_of((V38))==t_bitvector?Ct:Cnil); |
type_of((V38))==t_bitvector?Ct:Cnil); |
804 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
805 |
return; |
return; |
806 |
|
goto T199; |
807 |
T199:; |
T199:; |
808 |
if((V44!= VV[84]))goto T202; |
if((V44!= VV[84]))goto T202; |
809 |
if(type_of((V38))==t_string){ |
if(type_of((V38))==t_string){ |
811 |
base[2]= Cnil; |
base[2]= Cnil; |
812 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
813 |
return; |
return; |
814 |
|
goto T203; |
815 |
T203:; |
T203:; |
816 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
817 |
goto T205;} |
goto T205;} |
818 |
base[2]= Ct; |
base[2]= Ct; |
819 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
820 |
return; |
return; |
821 |
|
goto T205; |
822 |
T205:; |
T205:; |
823 |
V54= (*(LnkLI86))((V38)); |
V54= (*(LnkLI86))((V38)); |
824 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V54,(V41)); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V54,(V41)); |
825 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
826 |
return; |
return; |
827 |
|
goto T202; |
828 |
T202:; |
T202:; |
829 |
if((V44!= VV[87]))goto T207; |
if((V44!= VV[87]))goto T207; |
830 |
if((type_of((V38))==t_bitvector)){ |
if((type_of((V38))==t_bitvector)){ |
832 |
base[2]= Cnil; |
base[2]= Cnil; |
833 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
834 |
return; |
return; |
835 |
|
goto T208; |
836 |
T208:; |
T208:; |
837 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
838 |
goto T210;} |
goto T210;} |
839 |
base[2]= Ct; |
base[2]= Ct; |
840 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
841 |
return; |
return; |
842 |
|
goto T210; |
843 |
T210:; |
T210:; |
844 |
V55= (*(LnkLI86))((V38)); |
V55= (*(LnkLI86))((V38)); |
845 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V55,(V41)); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V55,(V41)); |
846 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
847 |
return; |
return; |
848 |
|
goto T207; |
849 |
T207:; |
T207:; |
850 |
if((V44!= VV[88]))goto T212; |
if((V44!= VV[88]))goto T212; |
851 |
base[2]= (V38); |
base[2]= (V38); |
857 |
base[2]= Cnil; |
base[2]= Cnil; |
858 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
859 |
return; |
return; |
860 |
|
goto T213; |
861 |
T213:; |
T213:; |
862 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
863 |
goto T216;} |
goto T216;} |
864 |
base[2]= Ct; |
base[2]= Ct; |
865 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
866 |
return; |
return; |
867 |
|
goto T216; |
868 |
T216:; |
T216:; |
869 |
V56= (*(LnkLI86))((V38)); |
V56= (*(LnkLI86))((V38)); |
870 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V56,(V41)); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V56,(V41)); |
871 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
872 |
return; |
return; |
873 |
|
goto T212; |
874 |
T212:; |
T212:; |
875 |
if((V44!= VV[89]))goto T218; |
if((V44!= VV[89]))goto T218; |
876 |
base[2]= (V38); |
base[2]= (V38); |
882 |
base[2]= Cnil; |
base[2]= Cnil; |
883 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
884 |
return; |
return; |
885 |
|
goto T219; |
886 |
T219:; |
T219:; |
887 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
888 |
goto T222;} |
goto T222;} |
889 |
base[2]= Ct; |
base[2]= Ct; |
890 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
891 |
return; |
return; |
892 |
|
goto T222; |
893 |
T222:; |
T222:; |
894 |
V57= (*(LnkLI86))((V38)); |
V57= (*(LnkLI86))((V38)); |
895 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V57,(V41)); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V57,(V41)); |
896 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
897 |
return; |
return; |
898 |
|
goto T218; |
899 |
T218:; |
T218:; |
900 |
if((V44!= VV[90]))goto T224; |
if((V44!= VV[90]))goto T224; |
901 |
base[2]= (V38); |
base[2]= (V38); |
907 |
base[2]= Cnil; |
base[2]= Cnil; |
908 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
909 |
return; |
return; |
910 |
|
goto T225; |
911 |
T225:; |
T225:; |
912 |
if(!(((V41))==Cnil)){ |
if(!(((V41))==Cnil)){ |
913 |
goto T228;} |
goto T228;} |
914 |
base[2]= Ct; |
base[2]= Ct; |
915 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
916 |
return; |
return; |
917 |
|
goto T228; |
918 |
T228:; |
T228:; |
919 |
V58= (*(LnkLI86))((V38)); |
V58= (*(LnkLI86))((V38)); |
920 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V58,(V41)); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V58,(V41)); |
921 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
922 |
return; |
return; |
923 |
|
goto T224; |
924 |
T224:; |
T224:; |
925 |
if((V44!= VV[26]))goto T230; |
if((V44!= VV[26]))goto T230; |
926 |
if(((*(LnkLI91))((V38)))!=Cnil){ |
if(((*(LnkLI91))((V38)))!=Cnil){ |
928 |
base[2]= Cnil; |
base[2]= Cnil; |
929 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
930 |
return; |
return; |
931 |
|
goto T231; |
932 |
T231:; |
T231:; |
933 |
if(!(endp((V41)))){ |
if(!(endp((V41)))){ |
934 |
goto T235;} |
goto T235;} |
935 |
goto T233; |
goto T233; |
936 |
|
goto T235; |
937 |
T235:; |
T235:; |
938 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
939 |
goto T237;} |
goto T237;} |
940 |
goto T233; |
goto T233; |
941 |
|
goto T237; |
942 |
T237:; |
T237:; |
943 |
base[2]= (V38); |
base[2]= (V38); |
944 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
951 |
base[2]= Cnil; |
base[2]= Cnil; |
952 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
953 |
return; |
return; |
954 |
|
goto T233; |
955 |
T233:; |
T233:; |
956 |
if(!(endp(cdr((V41))))){ |
if(!(endp(cdr((V41))))){ |
957 |
goto T241;} |
goto T241;} |
958 |
base[2]= Ct; |
base[2]= Ct; |
959 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
960 |
return; |
return; |
961 |
|
goto T241; |
962 |
T241:; |
T241:; |
963 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
964 |
goto T243;} |
goto T243;} |
965 |
base[2]= Ct; |
base[2]= Ct; |
966 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
967 |
return; |
return; |
968 |
|
goto T243; |
969 |
T243:; |
T243:; |
970 |
V61= (*(LnkLI86))((V38)); |
V61= (*(LnkLI86))((V38)); |
971 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V61,cadr((V41))); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V61,cadr((V41))); |
972 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
973 |
return; |
return; |
974 |
|
goto T230; |
975 |
T230:; |
T230:; |
976 |
if((V44!= VV[22]))goto T245; |
if((V44!= VV[22]))goto T245; |
977 |
if(type_of((V38))==t_array|| |
if(type_of((V38))==t_array|| |
982 |
base[2]= Cnil; |
base[2]= Cnil; |
983 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
984 |
return; |
return; |
985 |
|
goto T246; |
986 |
T246:; |
T246:; |
987 |
if(!(endp((V41)))){ |
if(!(endp((V41)))){ |
988 |
goto T250;} |
goto T250;} |
989 |
goto T248; |
goto T248; |
990 |
|
goto T250; |
991 |
T250:; |
T250:; |
992 |
if(!((car((V41)))==(VV[17]))){ |
if(!((car((V41)))==(VV[17]))){ |
993 |
goto T252;} |
goto T252;} |
994 |
goto T248; |
goto T248; |
995 |
|
goto T252; |
996 |
T252:; |
T252:; |
997 |
base[2]= (V38); |
base[2]= (V38); |
998 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1005 |
base[2]= Cnil; |
base[2]= Cnil; |
1006 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1007 |
return; |
return; |
1008 |
|
goto T248; |
1009 |
T248:; |
T248:; |
1010 |
if(!(endp(cdr((V41))))){ |
if(!(endp(cdr((V41))))){ |
1011 |
goto T256;} |
goto T256;} |
1012 |
base[2]= Ct; |
base[2]= Ct; |
1013 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1014 |
return; |
return; |
1015 |
|
goto T256; |
1016 |
T256:; |
T256:; |
1017 |
if(!((cadr((V41)))==(VV[17]))){ |
if(!((cadr((V41)))==(VV[17]))){ |
1018 |
goto T258;} |
goto T258;} |
1019 |
base[2]= Ct; |
base[2]= Ct; |
1020 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1021 |
return; |
return; |
1022 |
|
goto T258; |
1023 |
T258:; |
T258:; |
1024 |
V64= (*(LnkLI86))((V38)); |
V64= (*(LnkLI86))((V38)); |
1025 |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V64,cadr((V41))); |
base[2]= (*(LnkLI85))(/* INLINE-ARGS */V64,cadr((V41))); |
1026 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1027 |
return; |
return; |
1028 |
|
goto T245; |
1029 |
T245:; |
T245:; |
1030 |
V42= get((V40),VV[33],Cnil); |
V42= get((V40),VV[33],Cnil); |
1031 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
1035 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1036 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
1037 |
return; |
return; |
1038 |
|
goto T261; |
1039 |
T261:; |
T261:; |
1040 |
if((get((V40),VV[34],Cnil))==Cnil){ |
if((get((V40),VV[34],Cnil))==Cnil){ |
1041 |
goto T267;} |
goto T267;} |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
V39= vs_base[0]; |
V39= vs_base[0]; |
1052 |
goto TTL; |
goto TTL; |
1053 |
|
goto T267; |
1054 |
T267:; |
T267:; |
1055 |
base[2]= Cnil; |
base[2]= Cnil; |
1056 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1063 |
|
|
1064 |
register object V67; |
register object V67; |
1065 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1066 |
|
goto TTL; |
1067 |
TTL:; |
TTL:; |
1068 |
{register object V68; |
{register object V68; |
1069 |
register object V69; |
register object V69; |
1070 |
V68= Cnil; |
V68= Cnil; |
1071 |
V69= Cnil; |
V69= Cnil; |
1072 |
|
goto T277; |
1073 |
T277:; |
T277:; |
1074 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1075 |
goto T281;} |
goto T281;} |
1076 |
V68= (V67); |
V68= (V67); |
1077 |
V69= Cnil; |
V69= Cnil; |
1078 |
goto T279; |
goto T279; |
1079 |
|
goto T281; |
1080 |
T281:; |
T281:; |
1081 |
V68= car((V67)); |
V68= car((V67)); |
1082 |
V69= cdr((V67)); |
V69= cdr((V67)); |
1083 |
|
goto T279; |
1084 |
T279:; |
T279:; |
1085 |
if((get((V68),VV[34],Cnil))==Cnil){ |
if((get((V68),VV[34],Cnil))==Cnil){ |
1086 |
goto T290;} |
goto T290;} |
1095 |
vs_top=sup; |
vs_top=sup; |
1096 |
V67= vs_base[0]; |
V67= vs_base[0]; |
1097 |
goto T278; |
goto T278; |
1098 |
|
goto T290; |
1099 |
T290:; |
T290:; |
1100 |
if(!(type_of((V67))!=t_cons)){ |
if(!(type_of((V67))!=t_cons)){ |
1101 |
goto T296;} |
goto T296;} |
1102 |
{object V71 = make_cons((V67),Cnil); |
{object V71 = make_cons((V67),Cnil); |
1103 |
VMR19(V71)} |
VMR19(V71)} |
1104 |
|
goto T296; |
1105 |
T296:; |
T296:; |
1106 |
{object V72 = (V67); |
{object V72 = (V67); |
1107 |
VMR19(V72)} |
VMR19(V72)} |
1108 |
|
goto T278; |
1109 |
T278:; |
T278:; |
1110 |
goto T277;} |
goto T277;} |
1111 |
|
base[0]=base[0]; |
1112 |
|
return Cnil; |
1113 |
} |
} |
1114 |
/* local entry for function KNOWN-TYPE-P */ |
/* local entry for function KNOWN-TYPE-P */ |
1115 |
|
|
1117 |
|
|
1118 |
register object V74; |
register object V74; |
1119 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1120 |
|
goto TTL; |
1121 |
TTL:; |
TTL:; |
1122 |
if(!(type_of((V74))==t_cons)){ |
if(!(type_of((V74))==t_cons)){ |
1123 |
goto T299;} |
goto T299;} |
1124 |
V74= car((V74)); |
V74= car((V74)); |
1125 |
|
goto T299; |
1126 |
T299:; |
T299:; |
1127 |
{register object x= (V74),V75= VV[35]; |
{register object x= (V74),V75= VV[35]; |
1128 |
while(!endp(V75)) |
while(!endp(V75)) |
1131 |
}else V75=V75->c.c_cdr;} |
}else V75=V75->c.c_cdr;} |
1132 |
if((get((V74),VV[33],Cnil))==Cnil){ |
if((get((V74),VV[33],Cnil))==Cnil){ |
1133 |
goto T304;} |
goto T304;} |
1134 |
|
goto T303; |
1135 |
T303:; |
T303:; |
1136 |
{object V76 = Ct; |
{object V76 = Ct; |
1137 |
VMR20(V76)} |
VMR20(V76)} |
1138 |
|
goto T304; |
1139 |
T304:; |
T304:; |
1140 |
{object V77 = Cnil; |
{object V77 = Cnil; |
1141 |
VMR20(V77)} |
VMR20(V77)} |
1142 |
|
return Cnil; |
1143 |
} |
} |
1144 |
/* function definition for SUBTYPEP */ |
/* function definition for SUBTYPEP */ |
1145 |
|
|
1146 |
static L21() |
static void L21() |
1147 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1148 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1149 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1153 |
V78=(base[0]); |
V78=(base[0]); |
1154 |
V79=(base[1]); |
V79=(base[1]); |
1155 |
vs_top=sup; |
vs_top=sup; |
1156 |
|
goto TTL; |
1157 |
TTL:; |
TTL:; |
1158 |
{object V80; |
{object V80; |
1159 |
object V81; |
object V81; |
1177 |
base[3]= Ct; |
base[3]= Ct; |
1178 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1179 |
return; |
return; |
1180 |
|
goto T319; |
1181 |
T319:; |
T319:; |
1182 |
V80= car((V78)); |
V80= car((V78)); |
1183 |
V81= car((V79)); |
V81= car((V79)); |
1189 |
object V88; |
object V88; |
1190 |
V87= (V82); |
V87= (V82); |
1191 |
V88= car((V87)); |
V88= car((V87)); |
1192 |
|
goto T340; |
1193 |
T340:; |
T340:; |
1194 |
if(!(endp((V87)))){ |
if(!(endp((V87)))){ |
1195 |
goto T341;} |
goto T341;} |
1196 |
goto T336; |
goto T336; |
1197 |
|
goto T341; |
1198 |
T341:; |
T341:; |
1199 |
base[3]= (V88); |
base[3]= (V88); |
1200 |
base[4]= (V79); |
base[4]= (V79); |
1207 |
base[4]= Ct; |
base[4]= Ct; |
1208 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1209 |
return; |
return; |
1210 |
|
goto T345; |
1211 |
T345:; |
T345:; |
1212 |
V87= cdr((V87)); |
V87= cdr((V87)); |
1213 |
V88= car((V87)); |
V88= car((V87)); |
1214 |
goto T340;} |
goto T340;} |
1215 |
|
goto T336; |
1216 |
T336:; |
T336:; |
1217 |
base[2]= Ct; |
base[2]= Ct; |
1218 |
base[3]= Ct; |
base[3]= Ct; |
1219 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1220 |
return; |
return; |
1221 |
|
goto T334; |
1222 |
T334:; |
T334:; |
1223 |
if(!(((V80))==(VV[37]))){ |
if(!(((V80))==(VV[37]))){ |
1224 |
goto T360;} |
goto T360;} |
1226 |
object V90; |
object V90; |
1227 |
V89= (V82); |
V89= (V82); |
1228 |
V90= car((V89)); |
V90= car((V89)); |
1229 |
|
goto T366; |
1230 |
T366:; |
T366:; |
1231 |
if(!(endp((V89)))){ |
if(!(endp((V89)))){ |
1232 |
goto T367;} |
goto T367;} |
1233 |
goto T362; |
goto T362; |
1234 |
|
goto T367; |
1235 |
T367:; |
T367:; |
1236 |
{object V91; |
{object V91; |
1237 |
object V92; |
object V92; |
1246 |
V92= vs_base[0]; |
V92= vs_base[0]; |
1247 |
vs_top=sup; |
vs_top=sup; |
1248 |
goto T377; |
goto T377; |
1249 |
|
goto T375; |
1250 |
T375:; |
T375:; |
1251 |
V91= Cnil; |
V91= Cnil; |
1252 |
|
goto T376; |
1253 |
T376:; |
T376:; |
1254 |
V92= Cnil; |
V92= Cnil; |
1255 |
|
goto T377; |
1256 |
T377:; |
T377:; |
1257 |
if(((V91))!=Cnil){ |
if(((V91))!=Cnil){ |
1258 |
goto T371;} |
goto T371;} |
1260 |
base[4]= (V92); |
base[4]= (V92); |
1261 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1262 |
return;} |
return;} |
1263 |
|
goto T371; |
1264 |
T371:; |
T371:; |
1265 |
V89= cdr((V89)); |
V89= cdr((V89)); |
1266 |
V90= car((V89)); |
V90= car((V89)); |
1267 |
goto T366;} |
goto T366;} |
1268 |
|
goto T362; |
1269 |
T362:; |
T362:; |
1270 |
base[2]= Ct; |
base[2]= Ct; |
1271 |
base[3]= Ct; |
base[3]= Ct; |
1272 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1273 |
return; |
return; |
1274 |
|
goto T360; |
1275 |
T360:; |
T360:; |
1276 |
if(!(((V80))==(VV[38]))){ |
if(!(((V80))==(VV[38]))){ |
1277 |
goto T390;} |
goto T390;} |
1279 |
object V94; |
object V94; |
1280 |
V93= (V82); |
V93= (V82); |
1281 |
V94= car((V93)); |
V94= car((V93)); |
1282 |
|
goto T396; |
1283 |
T396:; |
T396:; |
1284 |
if(!(endp((V93)))){ |
if(!(endp((V93)))){ |
1285 |
goto T397;} |
goto T397;} |
1286 |
goto T392; |
goto T392; |
1287 |
|
goto T397; |
1288 |
T397:; |
T397:; |
1289 |
{object V95; |
{object V95; |
1290 |
base[3]= (V94); |
base[3]= (V94); |
1299 |
base[4]= Ct; |
base[4]= Ct; |
1300 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1301 |
return;} |
return;} |
1302 |
|
goto T401; |
1303 |
T401:; |
T401:; |
1304 |
V93= cdr((V93)); |
V93= cdr((V93)); |
1305 |
V94= car((V93)); |
V94= car((V93)); |
1306 |
goto T396;} |
goto T396;} |
1307 |
|
goto T392; |
1308 |
T392:; |
T392:; |
1309 |
base[2]= Cnil; |
base[2]= Cnil; |
1310 |
base[3]= Cnil; |
base[3]= Cnil; |
1311 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1312 |
return; |
return; |
1313 |
|
goto T390; |
1314 |
T390:; |
T390:; |
1315 |
if(!(((V80))==(VV[39]))){ |
if(!(((V80))==(VV[39]))){ |
1316 |
goto T332;} |
goto T332;} |
1319 |
V78= car((V83)); |
V78= car((V83)); |
1320 |
V79= car((V82)); |
V79= car((V82)); |
1321 |
goto TTL; |
goto TTL; |
1322 |
|
goto T419; |
1323 |
T419:; |
T419:; |
1324 |
V78= Ct; |
V78= Ct; |
1325 |
V79= list(3,VV[37],(V79),car((V82))); |
V79= list(3,VV[37],(V79),car((V82))); |
1326 |
goto TTL; |
goto TTL; |
1327 |
|
goto T332; |
1328 |
T332:; |
T332:; |
1329 |
if(!(((V81))==(VV[36]))){ |
if(!(((V81))==(VV[36]))){ |
1330 |
goto T429;} |
goto T429;} |
1332 |
base[3]= Cnil; |
base[3]= Cnil; |
1333 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1334 |
return; |
return; |
1335 |
|
goto T429; |
1336 |
T429:; |
T429:; |
1337 |
if(!(((V81))==(VV[37]))){ |
if(!(((V81))==(VV[37]))){ |
1338 |
goto T434;} |
goto T434;} |
1340 |
object V97; |
object V97; |
1341 |
V96= (V83); |
V96= (V83); |
1342 |
V97= car((V96)); |
V97= car((V96)); |
1343 |
|
goto T440; |
1344 |
T440:; |
T440:; |
1345 |
if(!(endp((V96)))){ |
if(!(endp((V96)))){ |
1346 |
goto T441;} |
goto T441;} |
1347 |
goto T436; |
goto T436; |
1348 |
|
goto T441; |
1349 |
T441:; |
T441:; |
1350 |
{object V98; |
{object V98; |
1351 |
base[3]= (V78); |
base[3]= (V78); |
1360 |
base[4]= Ct; |
base[4]= Ct; |
1361 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1362 |
return;} |
return;} |
1363 |
|
goto T445; |
1364 |
T445:; |
T445:; |
1365 |
V96= cdr((V96)); |
V96= cdr((V96)); |
1366 |
V97= car((V96)); |
V97= car((V96)); |
1367 |
goto T440;} |
goto T440;} |
1368 |
|
goto T436; |
1369 |
T436:; |
T436:; |
1370 |
base[2]= Cnil; |
base[2]= Cnil; |
1371 |
base[3]= Cnil; |
base[3]= Cnil; |
1372 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1373 |
return; |
return; |
1374 |
|
goto T434; |
1375 |
T434:; |
T434:; |
1376 |
if(!(((V81))==(VV[38]))){ |
if(!(((V81))==(VV[38]))){ |
1377 |
goto T461;} |
goto T461;} |
1379 |
object V100; |
object V100; |
1380 |
V99= (V83); |
V99= (V83); |
1381 |
V100= car((V99)); |
V100= car((V99)); |
1382 |
|
goto T467; |
1383 |
T467:; |
T467:; |
1384 |
if(!(endp((V99)))){ |
if(!(endp((V99)))){ |
1385 |
goto T468;} |
goto T468;} |
1386 |
goto T463; |
goto T463; |
1387 |
|
goto T468; |
1388 |
T468:; |
T468:; |
1389 |
{object V101; |
{object V101; |
1390 |
object V102; |
object V102; |
1399 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1400 |
vs_top=sup; |
vs_top=sup; |
1401 |
goto T478; |
goto T478; |
1402 |
|
goto T476; |
1403 |
T476:; |
T476:; |
1404 |
V101= Cnil; |
V101= Cnil; |
1405 |
|
goto T477; |
1406 |
T477:; |
T477:; |
1407 |
V102= Cnil; |
V102= Cnil; |
1408 |
|
goto T478; |
1409 |
T478:; |
T478:; |
1410 |
if(((V101))!=Cnil){ |
if(((V101))!=Cnil){ |
1411 |
goto T472;} |
goto T472;} |
1413 |
base[4]= (V102); |
base[4]= (V102); |
1414 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1415 |
return;} |
return;} |
1416 |
|
goto T472; |
1417 |
T472:; |
T472:; |
1418 |
V99= cdr((V99)); |
V99= cdr((V99)); |
1419 |
V100= car((V99)); |
V100= car((V99)); |
1420 |
goto T467;} |
goto T467;} |
1421 |
|
goto T463; |
1422 |
T463:; |
T463:; |
1423 |
base[2]= Ct; |
base[2]= Ct; |
1424 |
base[3]= Ct; |
base[3]= Ct; |
1425 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1426 |
return; |
return; |
1427 |
|
goto T461; |
1428 |
T461:; |
T461:; |
1429 |
if(!(((V81))==(VV[39]))){ |
if(!(((V81))==(VV[39]))){ |
1430 |
goto T427;} |
goto T427;} |
1431 |
V78= list(3,VV[38],(V78),car((V83))); |
V78= list(3,VV[38],(V78),car((V83))); |
1432 |
V79= Cnil; |
V79= Cnil; |
1433 |
goto TTL; |
goto TTL; |
1434 |
|
goto T427; |
1435 |
T427:; |
T427:; |
1436 |
V84= (*(LnkLI96))((V78)); |
V84= (*(LnkLI96))((V78)); |
1437 |
V85= (*(LnkLI96))((V79)); |
V85= (*(LnkLI96))((V79)); |
1441 |
goto T499;} |
goto T499;} |
1442 |
if(!(((V81))==(VV[40]))){ |
if(!(((V81))==(VV[40]))){ |
1443 |
goto T500;} |
goto T500;} |
1444 |
|
goto T499; |
1445 |
T499:; |
T499:; |
1446 |
base[2]= Ct; |
base[2]= Ct; |
1447 |
base[3]= Ct; |
base[3]= Ct; |
1448 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1449 |
return; |
return; |
1450 |
|
goto T500; |
1451 |
T500:; |
T500:; |
1452 |
if(!(((V81))==(Cnil))){ |
if(!(((V81))==(Cnil))){ |
1453 |
goto T509;} |
goto T509;} |
1455 |
base[3]= (V84); |
base[3]= (V84); |
1456 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1457 |
return; |
return; |
1458 |
|
goto T509; |
1459 |
T509:; |
T509:; |
1460 |
if(!(((V80))==(Ct))){ |
if(!(((V80))==(Ct))){ |
1461 |
goto T514;} |
goto T514;} |
1463 |
base[3]= (V85); |
base[3]= (V85); |
1464 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1465 |
return; |
return; |
1466 |
|
goto T514; |
1467 |
T514:; |
T514:; |
1468 |
if(!(((V80))==(VV[40]))){ |
if(!(((V80))==(VV[40]))){ |
1469 |
goto T519;} |
goto T519;} |
1471 |
base[3]= (V85); |
base[3]= (V85); |
1472 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1473 |
return; |
return; |
1474 |
|
goto T519; |
1475 |
T519:; |
T519:; |
1476 |
if(!(((V81))==(VV[41]))){ |
if(!(((V81))==(VV[41]))){ |
1477 |
goto T524;} |
goto T524;} |
1481 |
goto T528; |
goto T528; |
1482 |
}else V103=V103->c.c_cdr; |
}else V103=V103->c.c_cdr; |
1483 |
goto T527;} |
goto T527;} |
1484 |
|
goto T528; |
1485 |
T528:; |
T528:; |
1486 |
base[2]= Ct; |
base[2]= Ct; |
1487 |
base[3]= Ct; |
base[3]= Ct; |
1488 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1489 |
return; |
return; |
1490 |
|
goto T527; |
1491 |
T527:; |
T527:; |
1492 |
base[2]= Cnil; |
base[2]= Cnil; |
1493 |
base[3]= (V84); |
base[3]= (V84); |
1494 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1495 |
return; |
return; |
1496 |
|
goto T524; |
1497 |
T524:; |
T524:; |
1498 |
if(!(((V81))==(VV[43]))){ |
if(!(((V81))==(VV[43]))){ |
1499 |
goto T534;} |
goto T534;} |
1503 |
goto T538; |
goto T538; |
1504 |
}else V104=V104->c.c_cdr; |
}else V104=V104->c.c_cdr; |
1505 |
goto T537;} |
goto T537;} |
1506 |
|
goto T538; |
1507 |
T538:; |
T538:; |
1508 |
base[2]= Ct; |
base[2]= Ct; |
1509 |
base[3]= Ct; |
base[3]= Ct; |
1510 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1511 |
return; |
return; |
1512 |
|
goto T537; |
1513 |
T537:; |
T537:; |
1514 |
if(!(((V80))==(VV[22]))){ |
if(!(((V80))==(VV[22]))){ |
1515 |
goto T542;} |
goto T542;} |
1523 |
base[3]= Ct; |
base[3]= Ct; |
1524 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1525 |
return; |
return; |
1526 |
|
goto T545; |
1527 |
T545:; |
T545:; |
1528 |
base[2]= Cnil; |
base[2]= Cnil; |
1529 |
base[3]= Ct; |
base[3]= Ct; |
1530 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1531 |
return; |
return; |
1532 |
|
goto T542; |
1533 |
T542:; |
T542:; |
1534 |
base[2]= Cnil; |
base[2]= Cnil; |
1535 |
base[3]= (V84); |
base[3]= (V84); |
1536 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1537 |
return; |
return; |
1538 |
|
goto T534; |
1539 |
T534:; |
T534:; |
1540 |
if(!(((V80))==(VV[41]))){ |
if(!(((V80))==(VV[41]))){ |
1541 |
goto T558;} |
goto T558;} |
1543 |
base[3]= (V85); |
base[3]= (V85); |
1544 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1545 |
return; |
return; |
1546 |
|
goto T558; |
1547 |
T558:; |
T558:; |
1548 |
if(!(((V80))==(VV[43]))){ |
if(!(((V80))==(VV[43]))){ |
1549 |
goto T563;} |
goto T563;} |
1551 |
base[3]= (V85); |
base[3]= (V85); |
1552 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1553 |
return; |
return; |
1554 |
|
goto T563; |
1555 |
T563:; |
T563:; |
1556 |
if(!(((V81))==(VV[45]))){ |
if(!(((V81))==(VV[45]))){ |
1557 |
goto T568;} |
goto T568;} |
1561 |
goto T572; |
goto T572; |
1562 |
}else V105=V105->c.c_cdr; |
}else V105=V105->c.c_cdr; |
1563 |
goto T571;} |
goto T571;} |
1564 |
|
goto T572; |
1565 |
T572:; |
T572:; |
1566 |
base[2]= Cnil; |
base[2]= Cnil; |
1567 |
base[3]= Ct; |
base[3]= Ct; |
1568 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1569 |
return; |
return; |
1570 |
|
goto T571; |
1571 |
T571:; |
T571:; |
1572 |
if(((V84))==Cnil){ |
if(((V84))==Cnil){ |
1573 |
goto T576;} |
goto T576;} |
1575 |
base[3]= Ct; |
base[3]= Ct; |
1576 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1577 |
return; |
return; |
1578 |
|
goto T576; |
1579 |
T576:; |
T576:; |
1580 |
base[2]= Cnil; |
base[2]= Cnil; |
1581 |
base[3]= Cnil; |
base[3]= Cnil; |
1582 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1583 |
return; |
return; |
1584 |
|
goto T568; |
1585 |
T568:; |
T568:; |
1586 |
if(!(((V80))==(VV[45]))){ |
if(!(((V80))==(VV[45]))){ |
1587 |
goto T583;} |
goto T583;} |
1589 |
base[3]= (V85); |
base[3]= (V85); |
1590 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1591 |
return; |
return; |
1592 |
|
goto T583; |
1593 |
T583:; |
T583:; |
1594 |
if(!(((V81))==(VV[47]))){ |
if(!(((V81))==(VV[47]))){ |
1595 |
goto T588;} |
goto T588;} |
1599 |
goto T592; |
goto T592; |
1600 |
}else V106=V106->c.c_cdr; |
}else V106=V106->c.c_cdr; |
1601 |
goto T591;} |
goto T591;} |
1602 |
|
goto T592; |
1603 |
T592:; |
T592:; |
1604 |
base[2]= Ct; |
base[2]= Ct; |
1605 |
base[3]= Ct; |
base[3]= Ct; |
1606 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1607 |
return; |
return; |
1608 |
|
goto T591; |
1609 |
T591:; |
T591:; |
1610 |
base[2]= Cnil; |
base[2]= Cnil; |
1611 |
base[3]= (V84); |
base[3]= (V84); |
1612 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1613 |
return; |
return; |
1614 |
|
goto T588; |
1615 |
T588:; |
T588:; |
1616 |
if(!(((V81))==(VV[49]))){ |
if(!(((V81))==(VV[49]))){ |
1617 |
goto T598;} |
goto T598;} |
1621 |
base[3]= Ct; |
base[3]= Ct; |
1622 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1623 |
return; |
return; |
1624 |
|
goto T601; |
1625 |
T601:; |
T601:; |
1626 |
base[2]= Cnil; |
base[2]= Cnil; |
1627 |
base[3]= (V84); |
base[3]= (V84); |
1628 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1629 |
return; |
return; |
1630 |
|
goto T598; |
1631 |
T598:; |
T598:; |
1632 |
if(!(((V81))==(VV[50]))){ |
if(!(((V81))==(VV[50]))){ |
1633 |
goto T608;} |
goto T608;} |
1637 |
base[3]= Ct; |
base[3]= Ct; |
1638 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1639 |
return; |
return; |
1640 |
|
goto T611; |
1641 |
T611:; |
T611:; |
1642 |
base[2]= Cnil; |
base[2]= Cnil; |
1643 |
base[3]= (V84); |
base[3]= (V84); |
1644 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1645 |
return; |
return; |
1646 |
|
goto T608; |
1647 |
T608:; |
T608:; |
1648 |
if(!(((V81))==(VV[51]))){ |
if(!(((V81))==(VV[51]))){ |
1649 |
goto T618;} |
goto T618;} |
1653 |
goto T622; |
goto T622; |
1654 |
}else V107=V107->c.c_cdr; |
}else V107=V107->c.c_cdr; |
1655 |
goto T621;} |
goto T621;} |
1656 |
|
goto T622; |
1657 |
T622:; |
T622:; |
1658 |
base[2]= Ct; |
base[2]= Ct; |
1659 |
base[3]= Ct; |
base[3]= Ct; |
1660 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1661 |
return; |
return; |
1662 |
|
goto T621; |
1663 |
T621:; |
T621:; |
1664 |
base[2]= Cnil; |
base[2]= Cnil; |
1665 |
base[3]= (V84); |
base[3]= (V84); |
1666 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1667 |
return; |
return; |
1668 |
|
goto T618; |
1669 |
T618:; |
T618:; |
1670 |
if(!(((V80))==(VV[51]))){ |
if(!(((V80))==(VV[51]))){ |
1671 |
goto T628;} |
goto T628;} |
1673 |
base[3]= (V85); |
base[3]= (V85); |
1674 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1675 |
return; |
return; |
1676 |
|
goto T628; |
1677 |
T628:; |
T628:; |
1678 |
if(!(((V81))==(VV[53]))){ |
if(!(((V81))==(VV[53]))){ |
1679 |
goto T633;} |
goto T633;} |
1681 |
goto T635;} |
goto T635;} |
1682 |
if((get((V80),VV[33],Cnil))==Cnil){ |
if((get((V80),VV[33],Cnil))==Cnil){ |
1683 |
goto T636;} |
goto T636;} |
1684 |
|
goto T635; |
1685 |
T635:; |
T635:; |
1686 |
base[2]= Ct; |
base[2]= Ct; |
1687 |
base[3]= Ct; |
base[3]= Ct; |
1688 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1689 |
return; |
return; |
1690 |
|
goto T636; |
1691 |
T636:; |
T636:; |
1692 |
base[2]= Cnil; |
base[2]= Cnil; |
1693 |
base[3]= (V84); |
base[3]= (V84); |
1694 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1695 |
return; |
return; |
1696 |
|
goto T633; |
1697 |
T633:; |
T633:; |
1698 |
if(!(((V80))==(VV[53]))){ |
if(!(((V80))==(VV[53]))){ |
1699 |
goto T645;} |
goto T645;} |
1701 |
base[3]= (V85); |
base[3]= (V85); |
1702 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1703 |
return; |
return; |
1704 |
|
goto T645; |
1705 |
T645:; |
T645:; |
1706 |
V86= get((V80),VV[33],Cnil); |
V86= get((V80),VV[33],Cnil); |
1707 |
if(((V86))==Cnil){ |
if(((V86))==Cnil){ |
1712 |
goto T655;} |
goto T655;} |
1713 |
{register object V109; |
{register object V109; |
1714 |
V109= (V86); |
V109= (V86); |
1715 |
|
goto T658; |
1716 |
T658:; |
T658:; |
1717 |
if(((V109))!=Cnil){ |
if(((V109))!=Cnil){ |
1718 |
goto T659;} |
goto T659;} |
1720 |
base[3]= Ct; |
base[3]= Ct; |
1721 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1722 |
return; |
return; |
1723 |
|
goto T659; |
1724 |
T659:; |
T659:; |
1725 |
if(!(((V109))==(V108))){ |
if(!(((V109))==(V108))){ |
1726 |
goto T665;} |
goto T665;} |
1728 |
base[3]= Ct; |
base[3]= Ct; |
1729 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1730 |
return; |
return; |
1731 |
|
goto T665; |
1732 |
T665:; |
T665:; |
1733 |
V109= structure_ref((V109),VV[33],4); |
V109= structure_ref((V109),VV[33],4); |
1734 |
goto T658;} |
goto T658;} |
1735 |
|
goto T655; |
1736 |
T655:; |
T655:; |
1737 |
base[2]= Cnil; |
base[2]= Cnil; |
1738 |
base[3]= (V85); |
base[3]= (V85); |
1739 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1740 |
return;} |
return;} |
1741 |
|
goto T650; |
1742 |
T650:; |
T650:; |
1743 |
if(!(((V81))==(VV[54]))){ |
if(!(((V81))==(VV[54]))){ |
1744 |
goto T676;} |
goto T676;} |
1748 |
goto T681; |
goto T681; |
1749 |
}else V111=V111->c.c_cdr; |
}else V111=V111->c.c_cdr; |
1750 |
goto T679;} |
goto T679;} |
1751 |
|
goto T681; |
1752 |
T681:; |
T681:; |
1753 |
if(((*(LnkLI97))((V82),(V83)))==Cnil){ |
if(((*(LnkLI97))((V82),(V83)))==Cnil){ |
1754 |
goto T679;} |
goto T679;} |
1756 |
base[3]= Ct; |
base[3]= Ct; |
1757 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1758 |
return; |
return; |
1759 |
|
goto T679; |
1760 |
T679:; |
T679:; |
1761 |
base[2]= Cnil; |
base[2]= Cnil; |
1762 |
base[3]= (V84); |
base[3]= (V84); |
1763 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1764 |
return; |
return; |
1765 |
|
goto T676; |
1766 |
T676:; |
T676:; |
1767 |
if((get((V81),VV[33],Cnil))==Cnil){ |
if((get((V81),VV[33],Cnil))==Cnil){ |
1768 |
goto T688;} |
goto T688;} |
1770 |
base[3]= (V84); |
base[3]= (V84); |
1771 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1772 |
return; |
return; |
1773 |
|
goto T688; |
1774 |
T688:; |
T688:; |
1775 |
{object V112= (V80); |
{object V112= (V80); |
1776 |
if((V112!= VV[29]))goto T692; |
if((V112!= VV[29]))goto T692; |
1780 |
base[3]= Ct; |
base[3]= Ct; |
1781 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1782 |
return; |
return; |
1783 |
|
goto T693; |
1784 |
T693:; |
T693:; |
1785 |
if((V113!= VV[13]) |
if((V113!= VV[13]) |
1786 |
&& (V113!= VV[61]))goto T696; |
&& (V113!= VV[61]))goto T696; |
1790 |
base[3]= Ct; |
base[3]= Ct; |
1791 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1792 |
return; |
return; |
1793 |
|
goto T698; |
1794 |
T698:; |
T698:; |
1795 |
base[2]= Cnil; |
base[2]= Cnil; |
1796 |
base[3]= Ct; |
base[3]= Ct; |
1797 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1798 |
return; |
return; |
1799 |
|
goto T696; |
1800 |
T696:; |
T696:; |
1801 |
base[2]= Cnil; |
base[2]= Cnil; |
1802 |
base[3]= (V85); |
base[3]= (V85); |
1803 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1804 |
return;} |
return;} |
1805 |
|
goto T692; |
1806 |
T692:; |
T692:; |
1807 |
if((V112!= VV[30]))goto T706; |
if((V112!= VV[30]))goto T706; |
1808 |
{object V114= (V81); |
{object V114= (V81); |
1811 |
base[3]= Ct; |
base[3]= Ct; |
1812 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1813 |
return; |
return; |
1814 |
|
goto T707; |
1815 |
T707:; |
T707:; |
1816 |
if((V114!= VV[61]))goto T710; |
if((V114!= VV[61]))goto T710; |
1817 |
if(((*(LnkLI97))(VV[57],(V83)))==Cnil){ |
if(((*(LnkLI97))(VV[57],(V83)))==Cnil){ |
1820 |
base[3]= Ct; |
base[3]= Ct; |
1821 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1822 |
return; |
return; |
1823 |
|
goto T712; |
1824 |
T712:; |
T712:; |
1825 |
base[2]= Cnil; |
base[2]= Cnil; |
1826 |
base[3]= Ct; |
base[3]= Ct; |
1827 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1828 |
return; |
return; |
1829 |
|
goto T710; |
1830 |
T710:; |
T710:; |
1831 |
base[2]= Cnil; |
base[2]= Cnil; |
1832 |
base[3]= (V85); |
base[3]= (V85); |
1833 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1834 |
return;} |
return;} |
1835 |
|
goto T706; |
1836 |
T706:; |
T706:; |
1837 |
if((V112!= VV[78]))goto T720; |
if((V112!= VV[78]))goto T720; |
1838 |
{register object x= (V81),V115= VV[58]; |
{register object x= (V81),V115= VV[58]; |
1841 |
goto T723; |
goto T723; |
1842 |
}else V115=V115->c.c_cdr; |
}else V115=V115->c.c_cdr; |
1843 |
goto T722;} |
goto T722;} |
1844 |
|
goto T723; |
1845 |
T723:; |
T723:; |
1846 |
base[2]= Ct; |
base[2]= Ct; |
1847 |
base[3]= Ct; |
base[3]= Ct; |
1848 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1849 |
return; |
return; |
1850 |
|
goto T722; |
1851 |
T722:; |
T722:; |
1852 |
base[2]= Cnil; |
base[2]= Cnil; |
1853 |
base[3]= (V85); |
base[3]= (V85); |
1854 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1855 |
return; |
return; |
1856 |
|
goto T720; |
1857 |
T720:; |
T720:; |
1858 |
if((V112!= VV[24]))goto T728; |
if((V112!= VV[24]))goto T728; |
1859 |
{register object x= (V81),V116= VV[59]; |
{register object x= (V81),V116= VV[59]; |
1862 |
goto T731; |
goto T731; |
1863 |
}else V116=V116->c.c_cdr; |
}else V116=V116->c.c_cdr; |
1864 |
goto T730;} |
goto T730;} |
1865 |
|
goto T731; |
1866 |
T731:; |
T731:; |
1867 |
base[2]= Ct; |
base[2]= Ct; |
1868 |
base[3]= Ct; |
base[3]= Ct; |
1869 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1870 |
return; |
return; |
1871 |
|
goto T730; |
1872 |
T730:; |
T730:; |
1873 |
base[2]= Cnil; |
base[2]= Cnil; |
1874 |
base[3]= (V85); |
base[3]= (V85); |
1875 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1876 |
return; |
return; |
1877 |
|
goto T728; |
1878 |
T728:; |
T728:; |
1879 |
if((V112!= VV[13]))goto T736; |
if((V112!= VV[13]))goto T736; |
1880 |
{register object x= (V81),V117= VV[60]; |
{register object x= (V81),V117= VV[60]; |
1883 |
goto T739; |
goto T739; |
1884 |
}else V117=V117->c.c_cdr; |
}else V117=V117->c.c_cdr; |
1885 |
goto T738;} |
goto T738;} |
1886 |
|
goto T739; |
1887 |
T739:; |
T739:; |
1888 |
base[2]= (*(LnkLI97))((V82),(V83)); |
base[2]= (*(LnkLI97))((V82),(V83)); |
1889 |
base[3]= Ct; |
base[3]= Ct; |
1890 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1891 |
return; |
return; |
1892 |
|
goto T738; |
1893 |
T738:; |
T738:; |
1894 |
base[2]= Cnil; |
base[2]= Cnil; |
1895 |
base[3]= (V85); |
base[3]= (V85); |
1896 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1897 |
return; |
return; |
1898 |
|
goto T736; |
1899 |
T736:; |
T736:; |
1900 |
if((V112!= VV[61]))goto T744; |
if((V112!= VV[61]))goto T744; |
1901 |
if(!(((V81))==(VV[61]))){ |
if(!(((V81))==(VV[61]))){ |
1904 |
base[3]= Ct; |
base[3]= Ct; |
1905 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1906 |
return; |
return; |
1907 |
|
goto T746; |
1908 |
T746:; |
T746:; |
1909 |
base[2]= Cnil; |
base[2]= Cnil; |
1910 |
base[3]= (V85); |
base[3]= (V85); |
1911 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1912 |
return; |
return; |
1913 |
|
goto T744; |
1914 |
T744:; |
T744:; |
1915 |
if((V112!= VV[62]))goto T752; |
if((V112!= VV[62]))goto T752; |
1916 |
if(!(((V81))==(VV[62]))){ |
if(!(((V81))==(VV[62]))){ |
1919 |
base[3]= Ct; |
base[3]= Ct; |
1920 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1921 |
return; |
return; |
1922 |
|
goto T754; |
1923 |
T754:; |
T754:; |
1924 |
base[2]= Cnil; |
base[2]= Cnil; |
1925 |
base[3]= (V85); |
base[3]= (V85); |
1926 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1927 |
return; |
return; |
1928 |
|
goto T752; |
1929 |
T752:; |
T752:; |
1930 |
if((V112!= VV[31]))goto T760; |
if((V112!= VV[31]))goto T760; |
1931 |
{register object x= (V81),V118= VV[63]; |
{register object x= (V81),V118= VV[63]; |
1934 |
goto T763; |
goto T763; |
1935 |
}else V118=V118->c.c_cdr; |
}else V118=V118->c.c_cdr; |
1936 |
goto T762;} |
goto T762;} |
1937 |
|
goto T763; |
1938 |
T763:; |
T763:; |
1939 |
base[2]= (*(LnkLI97))((V82),(V83)); |
base[2]= (*(LnkLI97))((V82),(V83)); |
1940 |
base[3]= Ct; |
base[3]= Ct; |
1941 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1942 |
return; |
return; |
1943 |
|
goto T762; |
1944 |
T762:; |
T762:; |
1945 |
base[2]= Cnil; |
base[2]= Cnil; |
1946 |
base[3]= (V85); |
base[3]= (V85); |
1947 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1948 |
return; |
return; |
1949 |
|
goto T760; |
1950 |
T760:; |
T760:; |
1951 |
if((V112!= VV[82]) |
if((V112!= VV[82]) |
1952 |
&& (V112!= VV[83]) |
&& (V112!= VV[83]) |
1957 |
goto T771; |
goto T771; |
1958 |
}else V119=V119->c.c_cdr; |
}else V119=V119->c.c_cdr; |
1959 |
goto T770;} |
goto T770;} |
1960 |
|
goto T771; |
1961 |
T771:; |
T771:; |
1962 |
base[2]= (*(LnkLI97))((V82),(V83)); |
base[2]= (*(LnkLI97))((V82),(V83)); |
1963 |
base[3]= Ct; |
base[3]= Ct; |
1964 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1965 |
return; |
return; |
1966 |
|
goto T770; |
1967 |
T770:; |
T770:; |
1968 |
base[2]= Cnil; |
base[2]= Cnil; |
1969 |
base[3]= (V85); |
base[3]= (V85); |
1970 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1971 |
return; |
return; |
1972 |
|
goto T768; |
1973 |
T768:; |
T768:; |
1974 |
if((V112!= VV[65]))goto T776; |
if((V112!= VV[65]))goto T776; |
1975 |
if(!(((V81))==(VV[65]))){ |
if(!(((V81))==(VV[65]))){ |
1978 |
if(V120==Cnil)goto T782; |
if(V120==Cnil)goto T782; |
1979 |
V78= V120; |
V78= V120; |
1980 |
goto T781; |
goto T781; |
1981 |
|
goto T782; |
1982 |
T782:;} |
T782:;} |
1983 |
V78= Ct; |
V78= Ct; |
1984 |
|
goto T781; |
1985 |
T781:;{object V121; |
T781:;{object V121; |
1986 |
V121= car((V83)); |
V121= car((V83)); |
1987 |
if(V121==Cnil)goto T785; |
if(V121==Cnil)goto T785; |
1988 |
V79= V121; |
V79= V121; |
1989 |
goto T784; |
goto T784; |
1990 |
|
goto T785; |
1991 |
T785:;} |
T785:;} |
1992 |
V79= Ct; |
V79= Ct; |
1993 |
|
goto T784; |
1994 |
T784:; |
T784:; |
1995 |
goto TTL; |
goto TTL; |
1996 |
|
goto T778; |
1997 |
T778:; |
T778:; |
1998 |
base[2]= Cnil; |
base[2]= Cnil; |
1999 |
base[3]= (V85); |
base[3]= (V85); |
2000 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2001 |
return; |
return; |
2002 |
|
goto T776; |
2003 |
T776:; |
T776:; |
2004 |
if((V112!= VV[26]))goto T789; |
if((V112!= VV[26]))goto T789; |
2005 |
if(((V81))==(VV[26])){ |
if(((V81))==(VV[26])){ |
2006 |
goto T790;} |
goto T790;} |
2007 |
if(!(((V81))==(VV[22]))){ |
if(!(((V81))==(VV[22]))){ |
2008 |
goto T791;} |
goto T791;} |
2009 |
|
goto T790; |
2010 |
T790:; |
T790:; |
2011 |
if(endp((V82))){ |
if(endp((V82))){ |
2012 |
goto T796;} |
goto T796;} |
2013 |
if(!((car((V82)))==(VV[17]))){ |
if(!((car((V82)))==(VV[17]))){ |
2014 |
goto T797;} |
goto T797;} |
2015 |
|
goto T796; |
2016 |
T796:; |
T796:; |
2017 |
if(endp((V83))){ |
if(endp((V83))){ |
2018 |
goto T795;} |
goto T795;} |
2022 |
base[3]= Ct; |
base[3]= Ct; |
2023 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2024 |
return; |
return; |
2025 |
|
goto T797; |
2026 |
T797:; |
T797:; |
2027 |
if(endp((V83))){ |
if(endp((V83))){ |
2028 |
goto T795;} |
goto T795;} |
2034 |
base[3]= Ct; |
base[3]= Ct; |
2035 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2036 |
return; |
return; |
2037 |
|
goto T795; |
2038 |
T795:; |
T795:; |
2039 |
if(endp(cdr((V82)))){ |
if(endp(cdr((V82)))){ |
2040 |
goto T816;} |
goto T816;} |
2041 |
if(!((cadr((V82)))==(VV[17]))){ |
if(!((cadr((V82)))==(VV[17]))){ |
2042 |
goto T815;} |
goto T815;} |
2043 |
|
goto T816; |
2044 |
T816:; |
T816:; |
2045 |
if(endp(cdr((V83)))){ |
if(endp(cdr((V83)))){ |
2046 |
goto T820;} |
goto T820;} |
2047 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2048 |
goto T821;} |
goto T821;} |
2049 |
|
goto T820; |
2050 |
T820:; |
T820:; |
2051 |
base[2]= Ct; |
base[2]= Ct; |
2052 |
base[3]= Ct; |
base[3]= Ct; |
2053 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2054 |
return; |
return; |
2055 |
|
goto T821; |
2056 |
T821:; |
T821:; |
2057 |
base[2]= Cnil; |
base[2]= Cnil; |
2058 |
base[3]= Ct; |
base[3]= Ct; |
2059 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2060 |
return; |
return; |
2061 |
|
goto T815; |
2062 |
T815:; |
T815:; |
2063 |
if(endp(cdr((V83)))){ |
if(endp(cdr((V83)))){ |
2064 |
goto T830;} |
goto T830;} |
2065 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2066 |
goto T829;} |
goto T829;} |
2067 |
|
goto T830; |
2068 |
T830:; |
T830:; |
2069 |
base[2]= Ct; |
base[2]= Ct; |
2070 |
base[3]= Ct; |
base[3]= Ct; |
2071 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2072 |
return; |
return; |
2073 |
|
goto T829; |
2074 |
T829:; |
T829:; |
2075 |
base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83))); |
base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83))); |
2076 |
base[3]= Ct; |
base[3]= Ct; |
2077 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2078 |
return; |
return; |
2079 |
|
goto T791; |
2080 |
T791:; |
T791:; |
2081 |
base[2]= Cnil; |
base[2]= Cnil; |
2082 |
base[3]= (V85); |
base[3]= (V85); |
2083 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2084 |
return; |
return; |
2085 |
|
goto T789; |
2086 |
T789:; |
T789:; |
2087 |
if((V112!= VV[22]))goto T840; |
if((V112!= VV[22]))goto T840; |
2088 |
if(!(((V81))==(VV[22]))){ |
if(!(((V81))==(VV[22]))){ |
2091 |
goto T845;} |
goto T845;} |
2092 |
if(!((car((V82)))==(VV[17]))){ |
if(!((car((V82)))==(VV[17]))){ |
2093 |
goto T846;} |
goto T846;} |
2094 |
|
goto T845; |
2095 |
T845:; |
T845:; |
2096 |
if(endp((V83))){ |
if(endp((V83))){ |
2097 |
goto T844;} |
goto T844;} |
2101 |
base[3]= Ct; |
base[3]= Ct; |
2102 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2103 |
return; |
return; |
2104 |
|
goto T846; |
2105 |
T846:; |
T846:; |
2106 |
if(endp((V83))){ |
if(endp((V83))){ |
2107 |
goto T844;} |
goto T844;} |
2113 |
base[3]= Ct; |
base[3]= Ct; |
2114 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2115 |
return; |
return; |
2116 |
|
goto T844; |
2117 |
T844:; |
T844:; |
2118 |
if(endp(cdr((V82)))){ |
if(endp(cdr((V82)))){ |
2119 |
goto T865;} |
goto T865;} |
2120 |
if(!((cadr((V82)))==(VV[17]))){ |
if(!((cadr((V82)))==(VV[17]))){ |
2121 |
goto T864;} |
goto T864;} |
2122 |
|
goto T865; |
2123 |
T865:; |
T865:; |
2124 |
if(endp(cdr((V83)))){ |
if(endp(cdr((V83)))){ |
2125 |
goto T869;} |
goto T869;} |
2126 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2127 |
goto T870;} |
goto T870;} |
2128 |
|
goto T869; |
2129 |
T869:; |
T869:; |
2130 |
base[2]= Ct; |
base[2]= Ct; |
2131 |
base[3]= Ct; |
base[3]= Ct; |
2132 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2133 |
return; |
return; |
2134 |
|
goto T870; |
2135 |
T870:; |
T870:; |
2136 |
base[2]= Cnil; |
base[2]= Cnil; |
2137 |
base[3]= Ct; |
base[3]= Ct; |
2138 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2139 |
return; |
return; |
2140 |
|
goto T864; |
2141 |
T864:; |
T864:; |
2142 |
if(endp(cdr((V83)))){ |
if(endp(cdr((V83)))){ |
2143 |
goto T879;} |
goto T879;} |
2144 |
if(!((cadr((V83)))==(VV[17]))){ |
if(!((cadr((V83)))==(VV[17]))){ |
2145 |
goto T878;} |
goto T878;} |
2146 |
|
goto T879; |
2147 |
T879:; |
T879:; |
2148 |
base[2]= Ct; |
base[2]= Ct; |
2149 |
base[3]= Ct; |
base[3]= Ct; |
2150 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2151 |
return; |
return; |
2152 |
|
goto T878; |
2153 |
T878:; |
T878:; |
2154 |
base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83))); |
base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83))); |
2155 |
base[3]= Ct; |
base[3]= Ct; |
2156 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2157 |
return; |
return; |
2158 |
|
goto T842; |
2159 |
T842:; |
T842:; |
2160 |
base[2]= Cnil; |
base[2]= Cnil; |
2161 |
base[3]= (V85); |
base[3]= (V85); |
2162 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2163 |
return; |
return; |
2164 |
|
goto T840; |
2165 |
T840:; |
T840:; |
2166 |
if(((V84))==Cnil){ |
if(((V84))==Cnil){ |
2167 |
goto T890;} |
goto T890;} |
2169 |
base[3]= Ct; |
base[3]= Ct; |
2170 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2171 |
return; |
return; |
2172 |
|
goto T890; |
2173 |
T890:; |
T890:; |
2174 |
base[2]= Cnil; |
base[2]= Cnil; |
2175 |
base[3]= Cnil; |
base[3]= Cnil; |
2183 |
|
|
2184 |
register object V124;register object V125; |
register object V124;register object V125; |
2185 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
2186 |
|
goto TTL; |
2187 |
TTL:; |
TTL:; |
2188 |
{register object V126; |
{register object V126; |
2189 |
register object V127; |
register object V127; |
2198 |
V126= VV[17]; |
V126= VV[17]; |
2199 |
V127= VV[17]; |
V127= VV[17]; |
2200 |
goto T896; |
goto T896; |
2201 |
|
goto T898; |
2202 |
T898:; |
T898:; |
2203 |
if(!(endp(cdr((V124))))){ |
if(!(endp(cdr((V124))))){ |
2204 |
goto T904;} |
goto T904;} |
2205 |
V126= car((V124)); |
V126= car((V124)); |
2206 |
V127= VV[17]; |
V127= VV[17]; |
2207 |
goto T896; |
goto T896; |
2208 |
|
goto T904; |
2209 |
T904:; |
T904:; |
2210 |
V126= car((V124)); |
V126= car((V124)); |
2211 |
V127= cadr((V124)); |
V127= cadr((V124)); |
2212 |
|
goto T896; |
2213 |
T896:; |
T896:; |
2214 |
if(!(endp((V125)))){ |
if(!(endp((V125)))){ |
2215 |
goto T914;} |
goto T914;} |
2216 |
V128= VV[17]; |
V128= VV[17]; |
2217 |
V129= VV[17]; |
V129= VV[17]; |
2218 |
goto T912; |
goto T912; |
2219 |
|
goto T914; |
2220 |
T914:; |
T914:; |
2221 |
if(!(endp(cdr((V125))))){ |
if(!(endp(cdr((V125))))){ |
2222 |
goto T920;} |
goto T920;} |
2223 |
V128= car((V125)); |
V128= car((V125)); |
2224 |
V129= VV[17]; |
V129= VV[17]; |
2225 |
goto T912; |
goto T912; |
2226 |
|
goto T920; |
2227 |
T920:; |
T920:; |
2228 |
V128= car((V125)); |
V128= car((V125)); |
2229 |
V129= cadr((V125)); |
V129= cadr((V125)); |
2230 |
|
goto T912; |
2231 |
T912:; |
T912:; |
2232 |
if(!(((V126))==(VV[17]))){ |
if(!(((V126))==(VV[17]))){ |
2233 |
goto T930;} |
goto T930;} |
2235 |
goto T928;} |
goto T928;} |
2236 |
{object V130 = Cnil; |
{object V130 = Cnil; |
2237 |
VMR22(V130)} |
VMR22(V130)} |
2238 |
|
goto T930; |
2239 |
T930:; |
T930:; |
2240 |
{object V131; |
{object V131; |
2241 |
V131= (((V128))==(VV[17])?Ct:Cnil); |
V131= (((V128))==(VV[17])?Ct:Cnil); |
2242 |
if(((V131))==Cnil){ |
if(((V131))==Cnil){ |
2243 |
goto T936;} |
goto T936;} |
2244 |
goto T928; |
goto T928; |
2245 |
|
goto T936; |
2246 |
T936:; |
T936:; |
2247 |
if(!(type_of((V126))==t_cons)){ |
if(!(type_of((V126))==t_cons)){ |
2248 |
goto T939;} |
goto T939;} |
2252 |
goto T928;} |
goto T928;} |
2253 |
{object V132 = Cnil; |
{object V132 = Cnil; |
2254 |
VMR22(V132)} |
VMR22(V132)} |
2255 |
|
goto T942; |
2256 |
T942:; |
T942:; |
2257 |
if(!(number_compare(car((V126)),(V128))<0)){ |
if(!(number_compare(car((V126)),(V128))<0)){ |
2258 |
goto T928;} |
goto T928;} |
2259 |
{object V133 = Cnil; |
{object V133 = Cnil; |
2260 |
VMR22(V133)} |
VMR22(V133)} |
2261 |
|
goto T939; |
2262 |
T939:; |
T939:; |
2263 |
{object V134; |
{object V134; |
2264 |
if(!(type_of((V128))==t_cons)){ |
if(!(type_of((V128))==t_cons)){ |
2267 |
goto T953;} |
goto T953;} |
2268 |
{object V135 = Cnil; |
{object V135 = Cnil; |
2269 |
VMR22(V135)} |
VMR22(V135)} |
2270 |
|
goto T953; |
2271 |
T953:; |
T953:; |
2272 |
V134= Cnil; |
V134= Cnil; |
2273 |
goto T948; |
goto T948; |
2274 |
|
goto T950; |
2275 |
T950:; |
T950:; |
2276 |
if(!(number_compare((V126),(V128))<0)){ |
if(!(number_compare((V126),(V128))<0)){ |
2277 |
goto T956;} |
goto T956;} |
2278 |
{object V136 = Cnil; |
{object V136 = Cnil; |
2279 |
VMR22(V136)} |
VMR22(V136)} |
2280 |
|
goto T956; |
2281 |
T956:; |
T956:; |
2282 |
V134= Cnil; |
V134= Cnil; |
2283 |
|
goto T948; |
2284 |
T948:; |
T948:; |
2285 |
if(((V134))==Cnil){ |
if(((V134))==Cnil){ |
2286 |
goto T928;}}} |
goto T928;}}} |
2287 |
|
goto T928; |
2288 |
T928:; |
T928:; |
2289 |
if(!(((V127))==(VV[17]))){ |
if(!(((V127))==(VV[17]))){ |
2290 |
goto T962;} |
goto T962;} |
2292 |
goto T960;} |
goto T960;} |
2293 |
{object V137 = Cnil; |
{object V137 = Cnil; |
2294 |
VMR22(V137)} |
VMR22(V137)} |
2295 |
|
goto T962; |
2296 |
T962:; |
T962:; |
2297 |
{object V138; |
{object V138; |
2298 |
V138= (((V129))==(VV[17])?Ct:Cnil); |
V138= (((V129))==(VV[17])?Ct:Cnil); |
2299 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
2300 |
goto T968;} |
goto T968;} |
2301 |
goto T960; |
goto T960; |
2302 |
|
goto T968; |
2303 |
T968:; |
T968:; |
2304 |
if(!(type_of((V127))==t_cons)){ |
if(!(type_of((V127))==t_cons)){ |
2305 |
goto T971;} |
goto T971;} |
2309 |
goto T960;} |
goto T960;} |
2310 |
{object V139 = Cnil; |
{object V139 = Cnil; |
2311 |
VMR22(V139)} |
VMR22(V139)} |
2312 |
|
goto T974; |
2313 |
T974:; |
T974:; |
2314 |
if(!(number_compare(car((V127)),(V129))>0)){ |
if(!(number_compare(car((V127)),(V129))>0)){ |
2315 |
goto T960;} |
goto T960;} |
2316 |
{object V140 = Cnil; |
{object V140 = Cnil; |
2317 |
VMR22(V140)} |
VMR22(V140)} |
2318 |
|
goto T971; |
2319 |
T971:; |
T971:; |
2320 |
{object V141; |
{object V141; |
2321 |
if(!(type_of((V129))==t_cons)){ |
if(!(type_of((V129))==t_cons)){ |
2324 |
goto T985;} |
goto T985;} |
2325 |
{object V142 = Cnil; |
{object V142 = Cnil; |
2326 |
VMR22(V142)} |
VMR22(V142)} |
2327 |
|
goto T985; |
2328 |
T985:; |
T985:; |
2329 |
V141= Cnil; |
V141= Cnil; |
2330 |
goto T980; |
goto T980; |
2331 |
|
goto T982; |
2332 |
T982:; |
T982:; |
2333 |
if(!(number_compare((V127),(V129))>0)){ |
if(!(number_compare((V127),(V129))>0)){ |
2334 |
goto T988;} |
goto T988;} |
2335 |
{object V143 = Cnil; |
{object V143 = Cnil; |
2336 |
VMR22(V143)} |
VMR22(V143)} |
2337 |
|
goto T988; |
2338 |
T988:; |
T988:; |
2339 |
V141= Cnil; |
V141= Cnil; |
2340 |
|
goto T980; |
2341 |
T980:; |
T980:; |
2342 |
if(((V141))==Cnil){ |
if(((V141))==Cnil){ |
2343 |
goto T960;}}} |
goto T960;}}} |
2344 |
|
goto T960; |
2345 |
T960:; |
T960:; |
2346 |
{object V144 = Ct; |
{object V144 = Ct; |
2347 |
VMR22(V144)}} |
VMR22(V144)}} |
2348 |
|
return Cnil; |
2349 |
} |
} |
2350 |
/* local entry for function IN-INTERVAL-P */ |
/* local entry for function IN-INTERVAL-P */ |
2351 |
|
|
2353 |
|
|
2354 |
register object V147;register object V148; |
register object V147;register object V148; |
2355 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2356 |
|
goto TTL; |
2357 |
TTL:; |
TTL:; |
2358 |
{register object V149; |
{register object V149; |
2359 |
register object V150; |
register object V150; |
2364 |
V149= VV[17]; |
V149= VV[17]; |
2365 |
V150= VV[17]; |
V150= VV[17]; |
2366 |
goto T992; |
goto T992; |
2367 |
|
goto T994; |
2368 |
T994:; |
T994:; |
2369 |
if(!(endp(cdr((V148))))){ |
if(!(endp(cdr((V148))))){ |
2370 |
goto T1000;} |
goto T1000;} |
2371 |
V149= car((V148)); |
V149= car((V148)); |
2372 |
V150= VV[17]; |
V150= VV[17]; |
2373 |
goto T992; |
goto T992; |
2374 |
|
goto T1000; |
2375 |
T1000:; |
T1000:; |
2376 |
V149= car((V148)); |
V149= car((V148)); |
2377 |
V150= cadr((V148)); |
V150= cadr((V148)); |
2378 |
|
goto T992; |
2379 |
T992:; |
T992:; |
2380 |
{object V151; |
{object V151; |
2381 |
V151= (((V149))==(VV[17])?Ct:Cnil); |
V151= (((V149))==(VV[17])?Ct:Cnil); |
2382 |
if(((V151))==Cnil){ |
if(((V151))==Cnil){ |
2383 |
goto T1011;} |
goto T1011;} |
2384 |
goto T1008; |
goto T1008; |
2385 |
|
goto T1011; |
2386 |
T1011:; |
T1011:; |
2387 |
if(!(type_of((V149))==t_cons)){ |
if(!(type_of((V149))==t_cons)){ |
2388 |
goto T1014;} |
goto T1014;} |
2390 |
goto T1008;} |
goto T1008;} |
2391 |
{object V152 = Cnil; |
{object V152 = Cnil; |
2392 |
VMR23(V152)} |
VMR23(V152)} |
2393 |
|
goto T1014; |
2394 |
T1014:; |
T1014:; |
2395 |
{object V153; |
{object V153; |
2396 |
if(!(number_compare((V147),(V149))<0)){ |
if(!(number_compare((V147),(V149))<0)){ |
2397 |
goto T1020;} |
goto T1020;} |
2398 |
{object V154 = Cnil; |
{object V154 = Cnil; |
2399 |
VMR23(V154)} |
VMR23(V154)} |
2400 |
|
goto T1020; |
2401 |
T1020:; |
T1020:; |
2402 |
V153= Cnil; |
V153= Cnil; |
2403 |
if(((V153))==Cnil){ |
if(((V153))==Cnil){ |
2404 |
goto T1008;}}} |
goto T1008;}}} |
2405 |
|
goto T1008; |
2406 |
T1008:; |
T1008:; |
2407 |
{object V155; |
{object V155; |
2408 |
V155= (((V150))==(VV[17])?Ct:Cnil); |
V155= (((V150))==(VV[17])?Ct:Cnil); |
2409 |
if(((V155))==Cnil){ |
if(((V155))==Cnil){ |
2410 |
goto T1027;} |
goto T1027;} |
2411 |
goto T1024; |
goto T1024; |
2412 |
|
goto T1027; |
2413 |
T1027:; |
T1027:; |
2414 |
if(!(type_of((V150))==t_cons)){ |
if(!(type_of((V150))==t_cons)){ |
2415 |
goto T1030;} |
goto T1030;} |
2417 |
goto T1024;} |
goto T1024;} |
2418 |
{object V156 = Cnil; |
{object V156 = Cnil; |
2419 |
VMR23(V156)} |
VMR23(V156)} |
2420 |
|
goto T1030; |
2421 |
T1030:; |
T1030:; |
2422 |
{object V157; |
{object V157; |
2423 |
if(!(number_compare((V147),(V150))>0)){ |
if(!(number_compare((V147),(V150))>0)){ |
2424 |
goto T1036;} |
goto T1036;} |
2425 |
{object V158 = Cnil; |
{object V158 = Cnil; |
2426 |
VMR23(V158)} |
VMR23(V158)} |
2427 |
|
goto T1036; |
2428 |
T1036:; |
T1036:; |
2429 |
V157= Cnil; |
V157= Cnil; |
2430 |
if(((V157))==Cnil){ |
if(((V157))==Cnil){ |
2431 |
goto T1024;}}} |
goto T1024;}}} |
2432 |
|
goto T1024; |
2433 |
T1024:; |
T1024:; |
2434 |
{object V159 = Ct; |
{object V159 = Ct; |
2435 |
VMR23(V159)}} |
VMR23(V159)}} |
2436 |
|
return Cnil; |
2437 |
} |
} |
2438 |
/* local entry for function MATCH-DIMENSIONS */ |
/* local entry for function MATCH-DIMENSIONS */ |
2439 |
|
|
2441 |
|
|
2442 |
object V162;register object V163; |
object V162;register object V163; |
2443 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2444 |
|
goto TTL; |
2445 |
TTL:; |
TTL:; |
2446 |
if(((V162))!=Cnil){ |
if(((V162))!=Cnil){ |
2447 |
goto T1041;} |
goto T1041;} |
2448 |
{object V164 = (((V163))==Cnil?Ct:Cnil); |
{object V164 = (((V163))==Cnil?Ct:Cnil); |
2449 |
VMR24(V164)} |
VMR24(V164)} |
2450 |
|
goto T1041; |
2451 |
T1041:; |
T1041:; |
2452 |
if(!((car((V163)))==(VV[17]))){ |
if(!((car((V163)))==(VV[17]))){ |
2453 |
goto T1045;} |
goto T1045;} |
2454 |
goto T1043; |
goto T1043; |
2455 |
|
goto T1045; |
2456 |
T1045:; |
T1045:; |
2457 |
if(eql(car((V162)),car((V163)))){ |
if(eql(car((V162)),car((V163)))){ |
2458 |
goto T1043;} |
goto T1043;} |
2459 |
{object V165 = Cnil; |
{object V165 = Cnil; |
2460 |
VMR24(V165)} |
VMR24(V165)} |
2461 |
|
goto T1043; |
2462 |
T1043:; |
T1043:; |
2463 |
V162= cdr((V162)); |
V162= cdr((V162)); |
2464 |
V163= cdr((V163)); |
V163= cdr((V163)); |
2465 |
goto TTL; |
goto TTL; |
2466 |
|
return Cnil; |
2467 |
} |
} |
2468 |
/* local entry for function COERCE */ |
/* local entry for function COERCE */ |
2469 |
|
|
2471 |
|
|
2472 |
register object V168;object V169; |
register object V168;object V169; |
2473 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2474 |
|
goto TTL; |
2475 |
TTL:; |
TTL:; |
2476 |
base[0]= (V168); |
base[0]= (V168); |
2477 |
base[1]= (V169); |
base[1]= (V169); |
2482 |
goto T1050;} |
goto T1050;} |
2483 |
{object V170 = (V168); |
{object V170 = (V168); |
2484 |
VMR25(V170)} |
VMR25(V170)} |
2485 |
|
goto T1050; |
2486 |
T1050:; |
T1050:; |
2487 |
V169= (*(LnkLI94))((V169)); |
V169= (*(LnkLI94))((V169)); |
2488 |
{object V171= car((V169)); |
{object V171= car((V169)); |
2492 |
V174 = make_fixnum(length((V168))); |
V174 = make_fixnum(length((V168))); |
2493 |
V173= one_minus(V174); |
V173= one_minus(V174); |
2494 |
V172= Cnil; |
V172= Cnil; |
2495 |
|
goto T1060; |
2496 |
T1060:; |
T1060:; |
2497 |
if(!(number_compare((V173),small_fixnum(0))<0)){ |
if(!(number_compare((V173),small_fixnum(0))<0)){ |
2498 |
goto T1061;} |
goto T1061;} |
2499 |
{object V175 = (V172); |
{object V175 = (V172); |
2500 |
VMR25(V175)} |
VMR25(V175)} |
2501 |
|
goto T1061; |
2502 |
T1061:; |
T1061:; |
2503 |
V176= elt((V168),fixint((V173))); |
V176= elt((V168),fixint((V173))); |
2504 |
V172= make_cons(/* INLINE-ARGS */V176,(V172)); |
V172= make_cons(/* INLINE-ARGS */V176,(V172)); |
2505 |
V173= one_minus((V173)); |
V173= one_minus((V173)); |
2506 |
goto T1060;} |
goto T1060;} |
2507 |
|
goto T1057; |
2508 |
T1057:; |
T1057:; |
2509 |
if((V171!= VV[22]) |
if((V171!= VV[22]) |
2510 |
&& (V171!= VV[26]))goto T1069; |
&& (V171!= VV[26]))goto T1069; |
2520 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2521 |
Lerror(); |
Lerror(); |
2522 |
vs_top=sup; |
vs_top=sup; |
2523 |
|
goto T1070; |
2524 |
T1070:; |
T1070:; |
2525 |
{register object V177; |
{register object V177; |
2526 |
register object V178; |
register object V178; |
2529 |
V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180)); |
V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180)); |
2530 |
V179= make_fixnum(length((V168))); |
V179= make_fixnum(length((V168))); |
2531 |
V178= small_fixnum(0); |
V178= small_fixnum(0); |
2532 |
|
goto T1083; |
2533 |
T1083:; |
T1083:; |
2534 |
if(!(number_compare((V178),(V179))>=0)){ |
if(!(number_compare((V178),(V179))>=0)){ |
2535 |
goto T1084;} |
goto T1084;} |
2536 |
{object V181 = (V177); |
{object V181 = (V177); |
2537 |
VMR25(V181)} |
VMR25(V181)} |
2538 |
|
goto T1084; |
2539 |
T1084:; |
T1084:; |
2540 |
V182= elt((V168),fixint((V178))); |
V182= elt((V168),fixint((V178))); |
2541 |
(void)(elt_set((V177),fixint((V178)),/* INLINE-ARGS */V182)); |
(void)(elt_set((V177),fixint((V178)),/* INLINE-ARGS */V182)); |
2542 |
V178= one_plus((V178)); |
V178= one_plus((V178)); |
2543 |
goto T1083;} |
goto T1083;} |
2544 |
|
goto T1069; |
2545 |
T1069:; |
T1069:; |
2546 |
if((V171!= VV[99]))goto T1092; |
if((V171!= VV[99]))goto T1092; |
2547 |
base[0]= (V168); |
base[0]= (V168); |
2550 |
vs_top=sup; |
vs_top=sup; |
2551 |
{object V183 = vs_base[0]; |
{object V183 = vs_base[0]; |
2552 |
VMR25(V183)} |
VMR25(V183)} |
2553 |
|
goto T1092; |
2554 |
T1092:; |
T1092:; |
2555 |
if((V171!= VV[62]))goto T1094; |
if((V171!= VV[62]))goto T1094; |
2556 |
base[0]= (V168); |
base[0]= (V168); |
2559 |
vs_top=sup; |
vs_top=sup; |
2560 |
{object V184 = vs_base[0]; |
{object V184 = vs_base[0]; |
2561 |
VMR25(V184)} |
VMR25(V184)} |
2562 |
|
goto T1094; |
2563 |
T1094:; |
T1094:; |
2564 |
if((V171!= VV[31]))goto T1096; |
if((V171!= VV[31]))goto T1096; |
2565 |
base[0]= (V168); |
base[0]= (V168); |
2569 |
vs_top=sup; |
vs_top=sup; |
2570 |
{object V185 = vs_base[0]; |
{object V185 = vs_base[0]; |
2571 |
VMR25(V185)} |
VMR25(V185)} |
2572 |
|
goto T1096; |
2573 |
T1096:; |
T1096:; |
2574 |
if((V171!= VV[82]) |
if((V171!= VV[82]) |
2575 |
&& (V171!= VV[83]) |
&& (V171!= VV[83]) |
2581 |
vs_top=sup; |
vs_top=sup; |
2582 |
{object V186 = vs_base[0]; |
{object V186 = vs_base[0]; |
2583 |
VMR25(V186)} |
VMR25(V186)} |
2584 |
|
goto T1099; |
2585 |
T1099:; |
T1099:; |
2586 |
if((V171!= VV[65]))goto T1102; |
if((V171!= VV[65]))goto T1102; |
2587 |
if((cdr((V169)))==Cnil){ |
if((cdr((V169)))==Cnil){ |
2590 |
goto T1103;} |
goto T1103;} |
2591 |
if(!((cadr((V169)))==(VV[17]))){ |
if(!((cadr((V169)))==(VV[17]))){ |
2592 |
goto T1104;} |
goto T1104;} |
2593 |
|
goto T1103; |
2594 |
T1103:; |
T1103:; |
2595 |
base[1]= (V168); |
base[1]= (V168); |
2596 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2607 |
vs_top=sup; |
vs_top=sup; |
2608 |
{object V187 = vs_base[0]; |
{object V187 = vs_base[0]; |
2609 |
VMR25(V187)} |
VMR25(V187)} |
2610 |
|
goto T1104; |
2611 |
T1104:; |
T1104:; |
2612 |
base[1]= (V168); |
base[1]= (V168); |
2613 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2626 |
vs_top=sup; |
vs_top=sup; |
2627 |
{object V190 = vs_base[0]; |
{object V190 = vs_base[0]; |
2628 |
VMR25(V190)} |
VMR25(V190)} |
2629 |
|
goto T1102; |
2630 |
T1102:; |
T1102:; |
2631 |
base[0]= VV[69]; |
base[0]= VV[69]; |
2632 |
base[1]= (V168); |
base[1]= (V168); |
2636 |
vs_top=sup; |
vs_top=sup; |
2637 |
{object V191 = vs_base[0]; |
{object V191 = vs_base[0]; |
2638 |
VMR25(V191)}} |
VMR25(V191)}} |
2639 |
|
base[0]=base[0]; |
2640 |
|
return Cnil; |
2641 |
} |
} |
2642 |
/* function definition for WARN-VERSION */ |
/* function definition for WARN-VERSION */ |
2643 |
|
|
2644 |
static L26() |
static void L26() |
2645 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2646 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
2647 |
vs_reserve(VM26); |
vs_reserve(VM26); |
2655 |
V193=(base[1]); |
V193=(base[1]); |
2656 |
vs_top=sup; |
vs_top=sup; |
2657 |
goto T1124; |
goto T1124; |
2658 |
|
goto T1123; |
2659 |
T1123:; |
T1123:; |
2660 |
V193= Cnil; |
V193= Cnil; |
2661 |
|
goto T1124; |
2662 |
T1124:; |
T1124:; |
2663 |
if(symbol_value(VV[70])==Cnil){ |
if(symbol_value(VV[70])==Cnil){ |
2664 |
base[2]= Cnil; |
base[2]= Cnil; |
2667 |
if(!(((eql((V192),symbol_value(VV[70]))?Ct:Cnil))==Cnil)){ |
if(!(((eql((V192),symbol_value(VV[70]))?Ct:Cnil))==Cnil)){ |
2668 |
goto T1128;} |
goto T1128;} |
2669 |
goto T1126; |
goto T1126; |
2670 |
|
goto T1128; |
2671 |
T1128:; |
T1128:; |
2672 |
if(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil){ |
if(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil){ |
2673 |
goto T1126;} |
goto T1126;} |
2674 |
base[2]= Cnil; |
base[2]= Cnil; |
2675 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2676 |
return; |
return; |
2677 |
|
goto T1126; |
2678 |
T1126:; |
T1126:; |
2679 |
if(symbol_value(VV[72])==Cnil){ |
if(symbol_value(VV[72])==Cnil){ |
2680 |
base[2]= Cnil; |
base[2]= Cnil; |
2689 |
return; |
return; |
2690 |
} |
} |
2691 |
} |
} |
2692 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* COERCE */ |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* COERCE */ |
2693 |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],&LnkLI98,ap);} /* MAKE-SEQUENCE */ |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],(void **)&LnkLI98,ap);} /* MAKE-SEQUENCE */ |
2694 |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,2,ap);} /* SUB-INTERVAL-P */ |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* SUB-INTERVAL-P */ |
2695 |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,1,ap);} /* KNOWN-TYPE-P */ |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* KNOWN-TYPE-P */ |
2696 |
static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* SUBTYPEP */ |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */ |
2697 |
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,1,ap);} /* NORMALIZE-TYPE */ |
2698 |
static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */ |
2699 |
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
2700 |
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */ |
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */ |
2701 |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */ |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */ |
2702 |
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */ |
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],(void **)&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */ |
2703 |
static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* REALP */ |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */ |
2704 |
static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* RATIONALP */ |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */ |
2705 |
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,2,ap);} /* IN-INTERVAL-P */ |
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,2,ap);} /* IN-INTERVAL-P */ |
2706 |
static LnkT76(){ call_or_link(VV[76],&Lnk76);} /* TYPEP */ |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */ |
2707 |
static LnkT75(){ call_or_link(VV[75],&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */ |
2708 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */ |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */ |
2709 |
|
|
2710 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2711 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |