1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmptype.h" |
#include "cmptype.h" |
4 |
init_cmptype(){do_init(VV);} |
void init_cmptype(){do_init(VV);} |
5 |
/* local entry for function OBJECT-TYPE */ |
/* local entry for function OBJECT-TYPE */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
object V2; |
object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{object V3; |
{object V3; |
14 |
base[0]= (V2); |
base[0]= (V2); |
22 |
&& (V4!= VV[3]))goto T3; |
&& (V4!= VV[3]))goto T3; |
23 |
{object V5 = (V3); |
{object V5 = (V3); |
24 |
VMR1(V5)} |
VMR1(V5)} |
25 |
|
goto T3; |
26 |
T3:; |
T3:; |
27 |
if((V4!= VV[38]) |
if((V4!= VV[38]) |
28 |
&& (V4!= VV[51]) |
&& (V4!= VV[51]) |
29 |
&& (V4!= VV[0]))goto T4; |
&& (V4!= VV[0]))goto T4; |
30 |
{object V6 = VV[0]; |
{object V6 = VV[0]; |
31 |
VMR1(V6)} |
VMR1(V6)} |
32 |
|
goto T4; |
33 |
T4:; |
T4:; |
34 |
if((V4!= VV[5]) |
if((V4!= VV[5]) |
35 |
&& (V4!= VV[6]))goto T5; |
&& (V4!= VV[6]))goto T5; |
36 |
{object V7 = (V3); |
{object V7 = (V3); |
37 |
VMR1(V7)} |
VMR1(V7)} |
38 |
|
goto T5; |
39 |
T5:; |
T5:; |
40 |
if((V4!= VV[1]))goto T6; |
if((V4!= VV[1]))goto T6; |
41 |
base[0]= (V2); |
base[0]= (V2); |
45 |
V8= vs_base[0]; |
V8= vs_base[0]; |
46 |
{object V9 = list(2,VV[1],V8); |
{object V9 = list(2,VV[1],V8); |
47 |
VMR1(V9)} |
VMR1(V9)} |
48 |
|
goto T6; |
49 |
T6:; |
T6:; |
50 |
if((V4!= VV[2]))goto T9; |
if((V4!= VV[2]))goto T9; |
51 |
base[0]= (V2); |
base[0]= (V2); |
55 |
V10= vs_base[0]; |
V10= vs_base[0]; |
56 |
{object V11 = list(2,VV[2],V10); |
{object V11 = list(2,VV[2],V10); |
57 |
VMR1(V11)} |
VMR1(V11)} |
58 |
|
goto T9; |
59 |
T9:; |
T9:; |
60 |
{object V12 = Ct; |
{object V12 = Ct; |
61 |
VMR1(V12)}}} |
VMR1(V12)}}} |
62 |
|
base[0]=base[0]; |
63 |
|
return Cnil; |
64 |
} |
} |
65 |
/* local entry for function TYPE-FILTER */ |
/* local entry for function TYPE-FILTER */ |
66 |
|
|
68 |
|
|
69 |
object V14; |
object V14; |
70 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
71 |
|
goto TTL; |
72 |
TTL:; |
TTL:; |
73 |
{object V15= (V14); |
{object V15= (V14); |
74 |
if((V15!= VV[10]) |
if((V15!= VV[10]) |
77 |
&& (V15!= VV[3]))goto T12; |
&& (V15!= VV[3]))goto T12; |
78 |
{object V16 = (V14); |
{object V16 = (V14); |
79 |
VMR2(V16)} |
VMR2(V16)} |
80 |
|
goto T12; |
81 |
T12:; |
T12:; |
82 |
if((V15!= VV[52]))goto T13; |
if((V15!= VV[52]))goto T13; |
83 |
{object V17 = VV[3]; |
{object V17 = VV[3]; |
84 |
VMR2(V17)} |
VMR2(V17)} |
85 |
|
goto T13; |
86 |
T13:; |
T13:; |
87 |
if((V15!= VV[4]))goto T14; |
if((V15!= VV[4]))goto T14; |
88 |
{object V18 = VV[4]; |
{object V18 = VV[4]; |
89 |
VMR2(V18)} |
VMR2(V18)} |
90 |
|
goto T14; |
91 |
T14:; |
T14:; |
92 |
if((V15!= VV[53]))goto T15; |
if((V15!= VV[53]))goto T15; |
93 |
{object V19 = VV[3]; |
{object V19 = VV[3]; |
94 |
VMR2(V19)} |
VMR2(V19)} |
95 |
|
goto T15; |
96 |
T15:; |
T15:; |
97 |
if((V15!= VV[54]) |
if((V15!= VV[54]) |
98 |
&& (V15!= VV[5]))goto T16; |
&& (V15!= VV[5]))goto T16; |
99 |
{object V20 = VV[5]; |
{object V20 = VV[5]; |
100 |
VMR2(V20)} |
VMR2(V20)} |
101 |
|
goto T16; |
102 |
T16:; |
T16:; |
103 |
if((V15!= VV[55]) |
if((V15!= VV[55]) |
104 |
&& (V15!= VV[6]))goto T17; |
&& (V15!= VV[6]))goto T17; |
105 |
{object V21 = VV[6]; |
{object V21 = VV[6]; |
106 |
VMR2(V21)} |
VMR2(V21)} |
107 |
|
goto T17; |
108 |
T17:; |
T17:; |
109 |
if((V15!= Cnil) |
if((V15!= Cnil) |
110 |
&& (V15!= Ct))goto T18; |
&& (V15!= Ct))goto T18; |
111 |
{object V22 = Ct; |
{object V22 = Ct; |
112 |
VMR2(V22)} |
VMR2(V22)} |
113 |
|
goto T18; |
114 |
T18:; |
T18:; |
115 |
{register object V23; |
{register object V23; |
116 |
register object V24; |
register object V24; |
125 |
goto T28;} |
goto T28;} |
126 |
V24= Cnil; |
V24= Cnil; |
127 |
goto T26; |
goto T26; |
128 |
|
goto T28; |
129 |
T28:; |
T28:; |
130 |
{object V26; |
{object V26; |
131 |
V26= (*(LnkLI58))(cadr((V23))); |
V26= (*(LnkLI58))(cadr((V23))); |
133 |
goto T32;} |
goto T32;} |
134 |
V24= (V26); |
V24= (V26); |
135 |
goto T26; |
goto T26; |
136 |
|
goto T32; |
137 |
T32:; |
T32:; |
138 |
V24= Ct;} |
V24= Ct;} |
139 |
|
goto T26; |
140 |
T26:; |
T26:; |
141 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
142 |
goto T22;} |
goto T22;} |
143 |
|
goto T21; |
144 |
T21:; |
T21:; |
145 |
{object V27 = Ct; |
{object V27 = Ct; |
146 |
VMR2(V27)} |
VMR2(V27)} |
147 |
|
goto T22; |
148 |
T22:; |
T22:; |
149 |
if(endp(cddr((V23)))){ |
if(endp(cddr((V23)))){ |
150 |
goto T35;} |
goto T35;} |
156 |
goto T35;} |
goto T35;} |
157 |
if(!((length(caddr((V23))))==(1))){ |
if(!((length(caddr((V23))))==(1))){ |
158 |
goto T35;} |
goto T35;} |
159 |
|
goto T34; |
160 |
T34:; |
T34:; |
161 |
{object V28= (V24); |
{object V28= (V24); |
162 |
if((V28!= VV[38]))goto T45; |
if((V28!= VV[38]))goto T45; |
163 |
{object V29 = VV[5]; |
{object V29 = VV[5]; |
164 |
VMR2(V29)} |
VMR2(V29)} |
165 |
|
goto T45; |
166 |
T45:; |
T45:; |
167 |
if((V28!= VV[39]))goto T46; |
if((V28!= VV[39]))goto T46; |
168 |
{object V30 = VV[6]; |
{object V30 = VV[6]; |
169 |
VMR2(V30)} |
VMR2(V30)} |
170 |
|
goto T46; |
171 |
T46:; |
T46:; |
172 |
{object V31 = list(2,VV[1],(V24)); |
{object V31 = list(2,VV[1],(V24)); |
173 |
VMR2(V31)}} |
VMR2(V31)}} |
174 |
|
goto T35; |
175 |
T35:; |
T35:; |
176 |
{object V32 = list(2,VV[2],(V24)); |
{object V32 = list(2,VV[2],(V24)); |
177 |
VMR2(V32)} |
VMR2(V32)} |
178 |
|
goto T20; |
179 |
T20:; |
T20:; |
180 |
if((V25!= VV[11]))goto T47; |
if((V25!= VV[11]))goto T47; |
181 |
V33= cdr((V23)); |
V33= cdr((V23)); |
184 |
goto T49;} |
goto T49;} |
185 |
{object V35 = VV[10]; |
{object V35 = VV[10]; |
186 |
VMR2(V35)} |
VMR2(V35)} |
187 |
|
goto T49; |
188 |
T49:; |
T49:; |
189 |
{object V36 = VV[11]; |
{object V36 = VV[11]; |
190 |
VMR2(V36)} |
VMR2(V36)} |
191 |
|
goto T47; |
192 |
T47:; |
T47:; |
193 |
if((V25!= VV[12]))goto T51; |
if((V25!= VV[12]))goto T51; |
194 |
{object V37 = VV[12]; |
{object V37 = VV[12]; |
195 |
VMR2(V37)} |
VMR2(V37)} |
196 |
|
goto T51; |
197 |
T51:; |
T51:; |
198 |
if((V25!= VV[3]) |
if((V25!= VV[3]) |
199 |
&& (V25!= VV[53]) |
&& (V25!= VV[53]) |
200 |
&& (V25!= VV[52]))goto T52; |
&& (V25!= VV[52]))goto T52; |
201 |
{object V38 = VV[3]; |
{object V38 = VV[3]; |
202 |
VMR2(V38)} |
VMR2(V38)} |
203 |
|
goto T52; |
204 |
T52:; |
T52:; |
205 |
if((V25!= VV[13]))goto T53; |
if((V25!= VV[13]))goto T53; |
206 |
{object V39 = VV[13]; |
{object V39 = VV[13]; |
207 |
VMR2(V39)} |
VMR2(V39)} |
208 |
|
goto T53; |
209 |
T53:; |
T53:; |
210 |
base[0]= (V23); |
base[0]= (V23); |
211 |
base[1]= VV[10]; |
base[1]= VV[10]; |
216 |
goto T55;} |
goto T55;} |
217 |
{object V40 = VV[10]; |
{object V40 = VV[10]; |
218 |
VMR2(V40)} |
VMR2(V40)} |
219 |
|
goto T55; |
220 |
T55:; |
T55:; |
221 |
base[0]= (V23); |
base[0]= (V23); |
222 |
base[1]= VV[11]; |
base[1]= VV[11]; |
227 |
goto T60;} |
goto T60;} |
228 |
{object V41 = VV[11]; |
{object V41 = VV[11]; |
229 |
VMR2(V41)} |
VMR2(V41)} |
230 |
|
goto T60; |
231 |
T60:; |
T60:; |
232 |
base[0]= (V23); |
base[0]= (V23); |
233 |
base[1]= VV[0]; |
base[1]= VV[0]; |
238 |
goto T65;} |
goto T65;} |
239 |
{object V42 = VV[0]; |
{object V42 = VV[0]; |
240 |
VMR2(V42)} |
VMR2(V42)} |
241 |
|
goto T65; |
242 |
T65:; |
T65:; |
243 |
base[0]= (V23); |
base[0]= (V23); |
244 |
base[1]= VV[12]; |
base[1]= VV[12]; |
249 |
goto T70;} |
goto T70;} |
250 |
{object V43 = VV[12]; |
{object V43 = VV[12]; |
251 |
VMR2(V43)} |
VMR2(V43)} |
252 |
|
goto T70; |
253 |
T70:; |
T70:; |
254 |
base[0]= (V23); |
base[0]= (V23); |
255 |
base[1]= VV[3]; |
base[1]= VV[3]; |
260 |
goto T75;} |
goto T75;} |
261 |
{object V44 = VV[3]; |
{object V44 = VV[3]; |
262 |
VMR2(V44)} |
VMR2(V44)} |
263 |
|
goto T75; |
264 |
T75:; |
T75:; |
265 |
base[0]= (V23); |
base[0]= (V23); |
266 |
base[1]= VV[14]; |
base[1]= VV[14]; |
271 |
goto T80;} |
goto T80;} |
272 |
{object V45 = VV[15]; |
{object V45 = VV[15]; |
273 |
VMR2(V45)} |
VMR2(V45)} |
274 |
|
goto T80; |
275 |
T80:; |
T80:; |
276 |
base[0]= (V23); |
base[0]= (V23); |
277 |
base[1]= VV[5]; |
base[1]= VV[5]; |
282 |
goto T85;} |
goto T85;} |
283 |
{object V46 = VV[5]; |
{object V46 = VV[5]; |
284 |
VMR2(V46)} |
VMR2(V46)} |
285 |
|
goto T85; |
286 |
T85:; |
T85:; |
287 |
base[0]= (V23); |
base[0]= (V23); |
288 |
base[1]= VV[6]; |
base[1]= VV[6]; |
293 |
goto T90;} |
goto T90;} |
294 |
{object V47 = VV[6]; |
{object V47 = VV[6]; |
295 |
VMR2(V47)} |
VMR2(V47)} |
296 |
|
goto T90; |
297 |
T90:; |
T90:; |
298 |
base[0]= (V23); |
base[0]= (V23); |
299 |
base[1]= VV[16]; |
base[1]= VV[16]; |
304 |
goto T95;} |
goto T95;} |
305 |
{object V48 = VV[17]; |
{object V48 = VV[17]; |
306 |
VMR2(V48)} |
VMR2(V48)} |
307 |
|
goto T95; |
308 |
T95:; |
T95:; |
309 |
base[0]= (V23); |
base[0]= (V23); |
310 |
base[1]= VV[18]; |
base[1]= VV[18]; |
315 |
goto T100;} |
goto T100;} |
316 |
{object V49 = VV[19]; |
{object V49 = VV[19]; |
317 |
VMR2(V49)} |
VMR2(V49)} |
318 |
|
goto T100; |
319 |
T100:; |
T100:; |
320 |
base[0]= (V23); |
base[0]= (V23); |
321 |
base[1]= VV[20]; |
base[1]= VV[20]; |
326 |
goto T105;} |
goto T105;} |
327 |
{object V50 = VV[21]; |
{object V50 = VV[21]; |
328 |
VMR2(V50)} |
VMR2(V50)} |
329 |
|
goto T105; |
330 |
T105:; |
T105:; |
331 |
base[0]= (V23); |
base[0]= (V23); |
332 |
base[1]= VV[22]; |
base[1]= VV[22]; |
337 |
goto T110;} |
goto T110;} |
338 |
{object V51 = VV[23]; |
{object V51 = VV[23]; |
339 |
VMR2(V51)} |
VMR2(V51)} |
340 |
|
goto T110; |
341 |
T110:; |
T110:; |
342 |
base[0]= (V23); |
base[0]= (V23); |
343 |
base[1]= VV[24]; |
base[1]= VV[24]; |
348 |
goto T115;} |
goto T115;} |
349 |
{object V52 = VV[25]; |
{object V52 = VV[25]; |
350 |
VMR2(V52)} |
VMR2(V52)} |
351 |
|
goto T115; |
352 |
T115:; |
T115:; |
353 |
base[0]= (V23); |
base[0]= (V23); |
354 |
base[1]= VV[26]; |
base[1]= VV[26]; |
359 |
goto T120;} |
goto T120;} |
360 |
{object V53 = VV[27]; |
{object V53 = VV[27]; |
361 |
VMR2(V53)} |
VMR2(V53)} |
362 |
|
goto T120; |
363 |
T120:; |
T120:; |
364 |
base[0]= (V23); |
base[0]= (V23); |
365 |
base[1]= VV[28]; |
base[1]= VV[28]; |
370 |
goto T125;} |
goto T125;} |
371 |
{object V54 = VV[29]; |
{object V54 = VV[29]; |
372 |
VMR2(V54)} |
VMR2(V54)} |
373 |
|
goto T125; |
374 |
T125:; |
T125:; |
375 |
base[0]= (V23); |
base[0]= (V23); |
376 |
base[1]= VV[30]; |
base[1]= VV[30]; |
381 |
goto T130;} |
goto T130;} |
382 |
{object V55 = VV[31]; |
{object V55 = VV[31]; |
383 |
VMR2(V55)} |
VMR2(V55)} |
384 |
|
goto T130; |
385 |
T130:; |
T130:; |
386 |
base[0]= (V23); |
base[0]= (V23); |
387 |
base[1]= VV[32]; |
base[1]= VV[32]; |
392 |
goto T135;} |
goto T135;} |
393 |
{object V56 = VV[33]; |
{object V56 = VV[33]; |
394 |
VMR2(V56)} |
VMR2(V56)} |
395 |
|
goto T135; |
396 |
T135:; |
T135:; |
397 |
if(!((car((V23)))==(VV[34]))){ |
if(!((car((V23)))==(VV[34]))){ |
398 |
goto T140;} |
goto T140;} |
400 |
goto T143;} |
goto T143;} |
401 |
{object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23)))); |
{object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23)))); |
402 |
VMR2(V57)} |
VMR2(V57)} |
403 |
|
goto T143; |
404 |
T143:; |
T143:; |
405 |
{object V58 = Ct; |
{object V58 = Ct; |
406 |
VMR2(V58)} |
VMR2(V58)} |
407 |
|
goto T140; |
408 |
T140:; |
T140:; |
409 |
{object V59; |
{object V59; |
410 |
if((car((V23)))==(VV[35])){ |
if((car((V23)))==(VV[35])){ |
411 |
goto T146;} |
goto T146;} |
412 |
V59= Cnil; |
V59= Cnil; |
413 |
goto T145; |
goto T145; |
414 |
|
goto T146; |
415 |
T146:; |
T146:; |
416 |
if(type_of(cadr((V23)))==t_symbol){ |
if(type_of(cadr((V23)))==t_symbol){ |
417 |
goto T148;} |
goto T148;} |
418 |
V59= Cnil; |
V59= Cnil; |
419 |
goto T145; |
goto T145; |
420 |
|
goto T148; |
421 |
T148:; |
T148:; |
422 |
V59= get(cadr((V23)),VV[36],Cnil); |
V59= get(cadr((V23)),VV[36],Cnil); |
423 |
|
goto T145; |
424 |
T145:; |
T145:; |
425 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
426 |
goto T151;} |
goto T151;} |
427 |
{object V60 = (V59); |
{object V60 = (V59); |
428 |
VMR2(V60)} |
VMR2(V60)} |
429 |
|
goto T151; |
430 |
T151:; |
T151:; |
431 |
{object V61 = Ct; |
{object V61 = Ct; |
432 |
VMR2(V61)}}}}} |
VMR2(V61)}}}}} |
433 |
|
base[0]=base[0]; |
434 |
|
return Cnil; |
435 |
} |
} |
436 |
/* local entry for function TYPE-AND */ |
/* local entry for function TYPE-AND */ |
437 |
|
|
439 |
|
|
440 |
register object V64;register object V65; |
register object V64;register object V65; |
441 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
442 |
|
goto TTL; |
443 |
TTL:; |
TTL:; |
444 |
if(!(equal((V64),(V65)))){ |
if(!(equal((V64),(V65)))){ |
445 |
goto T154;} |
goto T154;} |
446 |
{object V66 = (V64); |
{object V66 = (V64); |
447 |
VMR3(V66)} |
VMR3(V66)} |
448 |
|
goto T154; |
449 |
T154:; |
T154:; |
450 |
if(!(((V64))==(Ct))){ |
if(!(((V64))==(Ct))){ |
451 |
goto T157;} |
goto T157;} |
452 |
{object V67 = (V65); |
{object V67 = (V65); |
453 |
VMR3(V67)} |
VMR3(V67)} |
454 |
|
goto T157; |
455 |
T157:; |
T157:; |
456 |
if(!(((V64))==(VV[7]))){ |
if(!(((V64))==(VV[7]))){ |
457 |
goto T160;} |
goto T160;} |
458 |
{object V68 = (V65); |
{object V68 = (V65); |
459 |
VMR3(V68)} |
VMR3(V68)} |
460 |
|
goto T160; |
461 |
T160:; |
T160:; |
462 |
if(!(((V64))==(VV[37]))){ |
if(!(((V64))==(VV[37]))){ |
463 |
goto T163;} |
goto T163;} |
464 |
{object V69 = (V65); |
{object V69 = (V65); |
465 |
VMR3(V69)} |
VMR3(V69)} |
466 |
|
goto T163; |
467 |
T163:; |
T163:; |
468 |
if(!(((V65))==(VV[37]))){ |
if(!(((V65))==(VV[37]))){ |
469 |
goto T166;} |
goto T166;} |
470 |
{object V70 = (V64); |
{object V70 = (V64); |
471 |
VMR3(V70)} |
VMR3(V70)} |
472 |
|
goto T166; |
473 |
T166:; |
T166:; |
474 |
if(!(((V65))==(Ct))){ |
if(!(((V65))==(Ct))){ |
475 |
goto T169;} |
goto T169;} |
476 |
{object V71 = (V64); |
{object V71 = (V64); |
477 |
VMR3(V71)} |
VMR3(V71)} |
478 |
|
goto T169; |
479 |
T169:; |
T169:; |
480 |
if(!(((V65))==(VV[7]))){ |
if(!(((V65))==(VV[7]))){ |
481 |
goto T172;} |
goto T172;} |
482 |
{object V72 = (V64); |
{object V72 = (V64); |
483 |
VMR3(V72)} |
VMR3(V72)} |
484 |
|
goto T172; |
485 |
T172:; |
T172:; |
486 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V65))==t_cons)){ |
487 |
goto T175;} |
goto T175;} |
489 |
goto T175;} |
goto T175;} |
490 |
V65= cadr((V65)); |
V65= cadr((V65)); |
491 |
goto TTL; |
goto TTL; |
492 |
|
goto T175; |
493 |
T175:; |
T175:; |
494 |
if(!(type_of((V64))==t_cons)){ |
if(!(type_of((V64))==t_cons)){ |
495 |
goto T183;} |
goto T183;} |
501 |
goto T188;} |
goto T188;} |
502 |
{object V75 = (V65); |
{object V75 = (V65); |
503 |
VMR3(V75)} |
VMR3(V75)} |
504 |
|
goto T188; |
505 |
T188:; |
T188:; |
506 |
{object V76 = Cnil; |
{object V76 = Cnil; |
507 |
VMR3(V76)} |
VMR3(V76)} |
508 |
|
goto T186; |
509 |
T186:; |
T186:; |
510 |
if((V74!= VV[39]))goto T190; |
if((V74!= VV[39]))goto T190; |
511 |
if(!(((V65))==(VV[6]))){ |
if(!(((V65))==(VV[6]))){ |
512 |
goto T192;} |
goto T192;} |
513 |
{object V77 = (V65); |
{object V77 = (V65); |
514 |
VMR3(V77)} |
VMR3(V77)} |
515 |
|
goto T192; |
516 |
T192:; |
T192:; |
517 |
{object V78 = Cnil; |
{object V78 = Cnil; |
518 |
VMR3(V78)} |
VMR3(V78)} |
519 |
|
goto T190; |
520 |
T190:; |
T190:; |
521 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V65))==t_cons)){ |
522 |
goto T195;} |
goto T195;} |
526 |
goto T195;} |
goto T195;} |
527 |
{object V79 = (V65); |
{object V79 = (V65); |
528 |
VMR3(V79)} |
VMR3(V79)} |
529 |
|
goto T195; |
530 |
T195:; |
T195:; |
531 |
{object V80 = Cnil; |
{object V80 = Cnil; |
532 |
VMR3(V80)}} |
VMR3(V80)}} |
533 |
|
goto T185; |
534 |
T185:; |
T185:; |
535 |
if((V73!= VV[1]))goto T201; |
if((V73!= VV[1]))goto T201; |
536 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V65))==t_cons)){ |
541 |
goto T203;} |
goto T203;} |
542 |
{object V81 = (V64); |
{object V81 = (V64); |
543 |
VMR3(V81)} |
VMR3(V81)} |
544 |
|
goto T203; |
545 |
T203:; |
T203:; |
546 |
{object V82 = Cnil; |
{object V82 = Cnil; |
547 |
VMR3(V82)} |
VMR3(V82)} |
548 |
|
goto T201; |
549 |
T201:; |
T201:; |
550 |
if((V73!= VV[34]))goto T209; |
if((V73!= VV[34]))goto T209; |
551 |
V64= cadr((V64)); |
V64= cadr((V64)); |
552 |
goto TTL; |
goto TTL; |
553 |
|
goto T209; |
554 |
T209:; |
T209:; |
555 |
{object V83 = Cnil; |
{object V83 = Cnil; |
556 |
VMR3(V83)}} |
VMR3(V83)}} |
557 |
|
goto T183; |
558 |
T183:; |
T183:; |
559 |
{object V84= (V64); |
{object V84= (V64); |
560 |
if((V84!= VV[5]))goto T213; |
if((V84!= VV[5]))goto T213; |
566 |
goto T215;} |
goto T215;} |
567 |
{object V85 = (V64); |
{object V85 = (V64); |
568 |
VMR3(V85)} |
VMR3(V85)} |
569 |
|
goto T215; |
570 |
T215:; |
T215:; |
571 |
{object V86 = Cnil; |
{object V86 = Cnil; |
572 |
VMR3(V86)} |
VMR3(V86)} |
573 |
|
goto T213; |
574 |
T213:; |
T213:; |
575 |
if((V84!= VV[6]))goto T221; |
if((V84!= VV[6]))goto T221; |
576 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V65))==t_cons)){ |
581 |
goto T223;} |
goto T223;} |
582 |
{object V87 = (V64); |
{object V87 = (V64); |
583 |
VMR3(V87)} |
VMR3(V87)} |
584 |
|
goto T223; |
585 |
T223:; |
T223:; |
586 |
{object V88 = Cnil; |
{object V88 = Cnil; |
587 |
VMR3(V88)} |
VMR3(V88)} |
588 |
|
goto T221; |
589 |
T221:; |
T221:; |
590 |
if((V84!= VV[61]))goto T229; |
if((V84!= VV[61]))goto T229; |
591 |
{register object x= (V65),V89= VV[40]; |
{register object x= (V65),V89= VV[40]; |
594 |
goto T232; |
goto T232; |
595 |
}else V89=V89->c.c_cdr; |
}else V89=V89->c.c_cdr; |
596 |
goto T231;} |
goto T231;} |
597 |
|
goto T232; |
598 |
T232:; |
T232:; |
599 |
{object V90 = (V65); |
{object V90 = (V65); |
600 |
VMR3(V90)} |
VMR3(V90)} |
601 |
|
goto T231; |
602 |
T231:; |
T231:; |
603 |
{object V91 = Cnil; |
{object V91 = Cnil; |
604 |
VMR3(V91)} |
VMR3(V91)} |
605 |
|
goto T229; |
606 |
T229:; |
T229:; |
607 |
if((V84!= VV[62]))goto T233; |
if((V84!= VV[62]))goto T233; |
608 |
{register object x= (V65),V92= VV[41]; |
{register object x= (V65),V92= VV[41]; |
611 |
goto T236; |
goto T236; |
612 |
}else V92=V92->c.c_cdr; |
}else V92=V92->c.c_cdr; |
613 |
goto T235;} |
goto T235;} |
614 |
|
goto T236; |
615 |
T236:; |
T236:; |
616 |
{object V93 = (V65); |
{object V93 = (V65); |
617 |
VMR3(V93)} |
VMR3(V93)} |
618 |
|
goto T235; |
619 |
T235:; |
T235:; |
620 |
{object V94 = Cnil; |
{object V94 = Cnil; |
621 |
VMR3(V94)} |
VMR3(V94)} |
622 |
|
goto T233; |
623 |
T233:; |
T233:; |
624 |
if((V84!= VV[3]) |
if((V84!= VV[3]) |
625 |
&& (V84!= VV[12]))goto T237; |
&& (V84!= VV[12]))goto T237; |
629 |
goto T240; |
goto T240; |
630 |
}else V95=V95->c.c_cdr; |
}else V95=V95->c.c_cdr; |
631 |
goto T239;} |
goto T239;} |
632 |
|
goto T240; |
633 |
T240:; |
T240:; |
634 |
{object V96 = (V64); |
{object V96 = (V64); |
635 |
VMR3(V96)} |
VMR3(V96)} |
636 |
|
goto T239; |
637 |
T239:; |
T239:; |
638 |
{object V97 = Cnil; |
{object V97 = Cnil; |
639 |
VMR3(V97)} |
VMR3(V97)} |
640 |
|
goto T237; |
641 |
T237:; |
T237:; |
642 |
if((V84!= VV[63]) |
if((V84!= VV[63]) |
643 |
&& (V84!= VV[64]) |
&& (V84!= VV[64]) |
646 |
goto T243;} |
goto T243;} |
647 |
{object V98 = (V64); |
{object V98 = (V64); |
648 |
VMR3(V98)} |
VMR3(V98)} |
649 |
|
goto T243; |
650 |
T243:; |
T243:; |
651 |
{object V99 = Cnil; |
{object V99 = Cnil; |
652 |
VMR3(V99)} |
VMR3(V99)} |
653 |
|
goto T241; |
654 |
T241:; |
T241:; |
655 |
if((V84!= VV[66]))goto T245; |
if((V84!= VV[66]))goto T245; |
656 |
base[0]= (V64); |
base[0]= (V64); |
662 |
goto T247;} |
goto T247;} |
663 |
{object V100 = (V64); |
{object V100 = (V64); |
664 |
VMR3(V100)} |
VMR3(V100)} |
665 |
|
goto T247; |
666 |
T247:; |
T247:; |
667 |
{object V101 = Cnil; |
{object V101 = Cnil; |
668 |
VMR3(V101)} |
VMR3(V101)} |
669 |
|
goto T245; |
670 |
T245:; |
T245:; |
671 |
if((V84!= VV[11]))goto T251; |
if((V84!= VV[11]))goto T251; |
672 |
{object V102= (V65); |
{object V102= (V65); |
673 |
if((V102!= VV[10]))goto T252; |
if((V102!= VV[10]))goto T252; |
674 |
{object V103 = (V65); |
{object V103 = (V65); |
675 |
VMR3(V103)} |
VMR3(V103)} |
676 |
|
goto T252; |
677 |
T252:; |
T252:; |
678 |
{object V104 = Cnil; |
{object V104 = Cnil; |
679 |
VMR3(V104)}} |
VMR3(V104)}} |
680 |
|
goto T251; |
681 |
T251:; |
T251:; |
682 |
if((V84!= VV[10]))goto T253; |
if((V84!= VV[10]))goto T253; |
683 |
{object V105= (V65); |
{object V105= (V65); |
685 |
&& (V105!= VV[61]))goto T254; |
&& (V105!= VV[61]))goto T254; |
686 |
{object V106 = VV[10]; |
{object V106 = VV[10]; |
687 |
VMR3(V106)} |
VMR3(V106)} |
688 |
|
goto T254; |
689 |
T254:; |
T254:; |
690 |
if((V105!= VV[63]) |
if((V105!= VV[63]) |
691 |
&& (V105!= VV[64]) |
&& (V105!= VV[64]) |
693 |
&& (V105!= VV[39]))goto T255; |
&& (V105!= VV[39]))goto T255; |
694 |
{object V107 = (V65); |
{object V107 = (V65); |
695 |
VMR3(V107)} |
VMR3(V107)} |
696 |
|
goto T255; |
697 |
T255:; |
T255:; |
698 |
if((V105!= VV[66]))goto T256; |
if((V105!= VV[66]))goto T256; |
699 |
base[0]= (V65); |
base[0]= (V65); |
705 |
goto T258;} |
goto T258;} |
706 |
{object V108 = (V65); |
{object V108 = (V65); |
707 |
VMR3(V108)} |
VMR3(V108)} |
708 |
|
goto T258; |
709 |
T258:; |
T258:; |
710 |
{object V109 = Cnil; |
{object V109 = Cnil; |
711 |
VMR3(V109)} |
VMR3(V109)} |
712 |
|
goto T256; |
713 |
T256:; |
T256:; |
714 |
{object V110 = Cnil; |
{object V110 = Cnil; |
715 |
VMR3(V110)}} |
VMR3(V110)}} |
716 |
|
goto T253; |
717 |
T253:; |
T253:; |
718 |
{object V111 = Cnil; |
{object V111 = Cnil; |
719 |
VMR3(V111)}} |
VMR3(V111)}} |
720 |
|
base[0]=base[0]; |
721 |
|
return Cnil; |
722 |
} |
} |
723 |
/* local entry for function TYPE>= */ |
/* local entry for function TYPE>= */ |
724 |
|
|
726 |
|
|
727 |
object V114;object V115; |
object V114;object V115; |
728 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
729 |
|
goto TTL; |
730 |
TTL:; |
TTL:; |
731 |
V116= (*(LnkLI67))((V114),(V115)); |
V116= (*(LnkLI67))((V114),(V115)); |
732 |
{object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil); |
{object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil); |
733 |
VMR4(V117)} |
VMR4(V117)} |
734 |
|
return Cnil; |
735 |
} |
} |
736 |
/* local entry for function RESET-INFO-TYPE */ |
/* local entry for function RESET-INFO-TYPE */ |
737 |
|
|
739 |
|
|
740 |
object V119; |
object V119; |
741 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
742 |
|
goto TTL; |
743 |
TTL:; |
TTL:; |
744 |
if((structure_ref((V119),VV[43],2))==Cnil){ |
if((structure_ref((V119),VV[43],2))==Cnil){ |
745 |
goto T263;} |
goto T263;} |
752 |
(void)(structure_set((V120),VV[43],2,Ct)); |
(void)(structure_set((V120),VV[43],2,Ct)); |
753 |
{object V121 = (V120); |
{object V121 = (V120); |
754 |
VMR5(V121)}} |
VMR5(V121)}} |
755 |
|
goto T263; |
756 |
T263:; |
T263:; |
757 |
{object V122 = (V119); |
{object V122 = (V119); |
758 |
VMR5(V122)} |
VMR5(V122)} |
759 |
|
base[0]=base[0]; |
760 |
|
return Cnil; |
761 |
} |
} |
762 |
/* local entry for function AND-FORM-TYPE */ |
/* local entry for function AND-FORM-TYPE */ |
763 |
|
|
765 |
|
|
766 |
object V126;register object V127;object V128; |
object V126;register object V127;object V128; |
767 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
768 |
|
goto TTL; |
769 |
TTL:; |
TTL:; |
770 |
{register object V129; |
{register object V129; |
771 |
V129= Cnil; |
V129= Cnil; |
774 |
if(((V129))!=Cnil){ |
if(((V129))!=Cnil){ |
775 |
goto T271;} |
goto T271;} |
776 |
(void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126)))); |
(void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126)))); |
777 |
|
goto T271; |
778 |
T271:; |
T271:; |
779 |
V131= structure_ref(cadr((V127)),VV[43],2); |
V131= structure_ref(cadr((V127)),VV[43],2); |
780 |
if(!(((V129))==(/* INLINE-ARGS */V131))){ |
if(!(((V129))==(/* INLINE-ARGS */V131))){ |
781 |
goto T275;} |
goto T275;} |
782 |
{object V132 = (V127); |
{object V132 = (V127); |
783 |
VMR6(V132)} |
VMR6(V132)} |
784 |
|
goto T275; |
785 |
T275:; |
T275:; |
786 |
{object V133; |
{object V133; |
787 |
base[0]= cadr((V127)); |
base[0]= cadr((V127)); |
792 |
(void)(structure_set((V133),VV[43],2,(V129))); |
(void)(structure_set((V133),VV[43],2,(V129))); |
793 |
{object V134 = listA(3,car((V127)),(V133),cddr((V127))); |
{object V134 = listA(3,car((V127)),(V133),cddr((V127))); |
794 |
VMR6(V134)}}} |
VMR6(V134)}}} |
795 |
|
base[0]=base[0]; |
796 |
|
return Cnil; |
797 |
} |
} |
798 |
/* local entry for function CHECK-FORM-TYPE */ |
/* local entry for function CHECK-FORM-TYPE */ |
799 |
|
|
801 |
|
|
802 |
object V138;object V139;object V140; |
object V138;object V139;object V140; |
803 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
804 |
|
goto TTL; |
805 |
TTL:; |
TTL:; |
806 |
V141= structure_ref(cadr((V139)),VV[43],2); |
V141= structure_ref(cadr((V139)),VV[43],2); |
807 |
if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){ |
if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){ |
808 |
goto T281;} |
goto T281;} |
809 |
{object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138))); |
{object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138))); |
810 |
VMR7(V142)} |
VMR7(V142)} |
811 |
|
goto T281; |
812 |
T281:; |
T281:; |
813 |
{object V143 = Cnil; |
{object V143 = Cnil; |
814 |
VMR7(V143)} |
VMR7(V143)} |
815 |
|
return Cnil; |
816 |
} |
} |
817 |
/* local entry for function DEFAULT-INIT */ |
/* local entry for function DEFAULT-INIT */ |
818 |
|
|
820 |
|
|
821 |
object V145; |
object V145; |
822 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
823 |
|
goto TTL; |
824 |
TTL:; |
TTL:; |
825 |
{object V146= (V145); |
{object V146= (V145); |
826 |
if((V146!= VV[10]))goto T284; |
if((V146!= VV[10]))goto T284; |
827 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[46]))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[46]))); |
828 |
goto T283; |
goto T283; |
829 |
|
goto T284; |
830 |
T284:; |
T284:; |
831 |
if((V146!= VV[0]))goto T285; |
if((V146!= VV[0]))goto T285; |
832 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[47]))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[47]))); |
833 |
goto T283; |
goto T283; |
834 |
|
goto T285; |
835 |
T285:; |
T285:; |
836 |
if((V146!= VV[3]))goto T286; |
if((V146!= VV[3]))goto T286; |
837 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[48]))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[48]))); |
838 |
goto T283; |
goto T283; |
839 |
|
goto T286; |
840 |
T286:; |
T286:; |
841 |
if((V146!= VV[12]))goto T287; |
if((V146!= VV[12]))goto T287; |
842 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[49]))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[49]))); |
843 |
goto T283; |
goto T283; |
844 |
|
goto T287; |
845 |
T287:; |
T287:; |
846 |
if((V146!= VV[11]))goto T288; |
if((V146!= VV[11]))goto T288; |
847 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[50]))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[50]))); |
848 |
goto T283; |
goto T283; |
849 |
|
goto T288; |
850 |
T288:;} |
T288:;} |
851 |
|
goto T283; |
852 |
T283:; |
T283:; |
853 |
{object V147 = (*(LnkLI70))(); |
{object V147 = (*(LnkLI70))(); |
854 |
VMR8(V147)} |
VMR8(V147)} |
855 |
|
return Cnil; |
856 |
} |
} |
857 |
static object LnkTLI70(){return call_proc0(VV[70],&LnkLI70);} /* C1NIL */ |
static object LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */ |
858 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPWARN */ |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPWARN */ |
859 |
static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* COPY-INFO */ |
static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */ |
860 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* TYPE-AND */ |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* TYPE-AND */ |
861 |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* TYPE-FILTER */ |
862 |
static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* SUBTYPEP */ |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */ |
863 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* SUB-INTERVAL-P */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* SUB-INTERVAL-P */ |
864 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
865 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* NORMALIZE-TYPE */ |
866 |
|
|
867 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
868 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |