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