1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_defpackage.h" |
4 |
|
void init_gcl_defpackage(){do_init(VV);} |
5 |
|
/* macro definition for DEFPACKAGE */ |
6 |
|
|
7 |
|
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_reserve(VM1); |
11 |
|
check_arg(2); |
12 |
|
vs_top=sup; |
13 |
|
{object V1=base[0]->c.c_cdr; |
14 |
|
if(endp(V1))invalid_macro_call(); |
15 |
|
base[2]= (V1->c.c_car); |
16 |
|
V1=V1->c.c_cdr; |
17 |
|
base[3]= V1;} |
18 |
|
{register object V2; |
19 |
|
register object V3; |
20 |
|
V2= Cnil; |
21 |
|
V3= base[3]; |
22 |
|
goto T3; |
23 |
|
T3:; |
24 |
|
if(((V3))==Cnil){ |
25 |
|
goto T6;} |
26 |
|
goto T5; |
27 |
|
goto T6; |
28 |
|
T6:; |
29 |
|
goto T4; |
30 |
|
goto T5; |
31 |
|
T5:; |
32 |
|
{register object V4; |
33 |
|
V4= car((V3)); |
34 |
|
V2= (V4);} |
35 |
|
{register object x= car((V2)),V5= VV[0]; |
36 |
|
while(!endp(V5)) |
37 |
|
if(eql(x,V5->c.c_car)){ |
38 |
|
goto T11; |
39 |
|
}else V5=V5->c.c_cdr;} |
40 |
|
base[4]= VV[1]; |
41 |
|
base[5]= VV[2]; |
42 |
|
base[6]= (V2); |
43 |
|
vs_top=(vs_base=base+4)+3; |
44 |
|
Lcerror(); |
45 |
|
vs_top=sup; |
46 |
|
goto T11; |
47 |
|
T11:; |
48 |
|
V3= cdr((V3)); |
49 |
|
goto T3; |
50 |
|
goto T4; |
51 |
|
T4:; |
52 |
|
goto T1; |
53 |
|
goto T1;} |
54 |
|
goto T1; |
55 |
|
T1:; |
56 |
|
base[4]=MMcons(Cnil,Cnil); |
57 |
|
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
58 |
|
{register object V6; |
59 |
|
register object V7; |
60 |
|
V6= Cnil; |
61 |
|
V7= VV[3]; |
62 |
|
goto T22; |
63 |
|
T22:; |
64 |
|
if(((V7))==Cnil){ |
65 |
|
goto T25;} |
66 |
|
goto T24; |
67 |
|
goto T25; |
68 |
|
T25:; |
69 |
|
goto T23; |
70 |
|
goto T24; |
71 |
|
T24:; |
72 |
|
{register object V8; |
73 |
|
V8= car((V7)); |
74 |
|
V6= (V8);} |
75 |
|
V9= symbol_function(VV[71]); |
76 |
|
V10= (VFUN_NARGS=4,(*(LnkLI70))((V6),base[3],VV[4],V9)); |
77 |
|
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
78 |
|
goto T30;} |
79 |
|
base[5]= VV[5]; |
80 |
|
base[6]= VV[6]; |
81 |
|
base[7]= (V6); |
82 |
|
vs_top=(vs_base=base+5)+3; |
83 |
|
(void) (*Lnk72)(); |
84 |
|
vs_top=sup; |
85 |
|
goto T30; |
86 |
|
T30:; |
87 |
|
V7= cdr((V7)); |
88 |
|
goto T22; |
89 |
|
goto T23; |
90 |
|
T23:; |
91 |
|
goto T20; |
92 |
|
goto T20;} |
93 |
|
goto T20; |
94 |
|
T20:; |
95 |
|
base[2]= coerce_to_string(base[2]); |
96 |
|
{object V11; |
97 |
|
object V12; |
98 |
|
object V13; |
99 |
|
object V14; |
100 |
|
register object V15; |
101 |
|
object V16; |
102 |
|
object V17; |
103 |
|
object V18; |
104 |
|
object V19; |
105 |
|
base[6]= VV[7]; |
106 |
|
base[7]= base[3]; |
107 |
|
vs_top=(vs_base=base+6)+2; |
108 |
|
L5(base); |
109 |
|
vs_top=sup; |
110 |
|
V22= vs_base[0]; |
111 |
|
{object V20; |
112 |
|
object V21= V22; |
113 |
|
if(endp(V21)){ |
114 |
|
V11= Cnil; |
115 |
|
goto T42;} |
116 |
|
base[5]=V20=MMcons(Cnil,Cnil); |
117 |
|
goto T43; |
118 |
|
T43:; |
119 |
|
(V20->c.c_car)= coerce_to_string((V21->c.c_car)); |
120 |
|
V21=MMcdr(V21); |
121 |
|
if(endp(V21)){ |
122 |
|
V11= base[5]; |
123 |
|
goto T42;} |
124 |
|
V20=MMcdr(V20)=MMcons(Cnil,Cnil); |
125 |
|
goto T43;} |
126 |
|
goto T42; |
127 |
|
T42:; |
128 |
|
base[5]= VV[8]; |
129 |
|
base[6]= base[3]; |
130 |
|
vs_top=(vs_base=base+5)+2; |
131 |
|
L5(base); |
132 |
|
vs_top=sup; |
133 |
|
V23= vs_base[0]; |
134 |
|
V12= car(V23); |
135 |
|
base[5]= VV[9]; |
136 |
|
base[6]= base[3]; |
137 |
|
vs_top=(vs_base=base+5)+2; |
138 |
|
L5(base); |
139 |
|
vs_top=sup; |
140 |
|
V24= vs_base[0]; |
141 |
|
V13= car(V24); |
142 |
|
base[6]= VV[10]; |
143 |
|
base[7]= base[3]; |
144 |
|
vs_top=(vs_base=base+6)+2; |
145 |
|
L5(base); |
146 |
|
vs_top=sup; |
147 |
|
V27= vs_base[0]; |
148 |
|
{object V25; |
149 |
|
object V26= V27; |
150 |
|
if(endp(V26)){ |
151 |
|
V14= Cnil; |
152 |
|
goto T56;} |
153 |
|
base[5]=V25=MMcons(Cnil,Cnil); |
154 |
|
goto T57; |
155 |
|
T57:; |
156 |
|
(V25->c.c_car)= coerce_to_string((V26->c.c_car)); |
157 |
|
V26=MMcdr(V26); |
158 |
|
if(endp(V26)){ |
159 |
|
V14= base[5]; |
160 |
|
goto T56;} |
161 |
|
V25=MMcdr(V25)=MMcons(Cnil,Cnil); |
162 |
|
goto T57;} |
163 |
|
goto T56; |
164 |
|
T56:; |
165 |
|
base[6]= VV[11]; |
166 |
|
base[7]= base[3]; |
167 |
|
vs_top=(vs_base=base+6)+2; |
168 |
|
L5(base); |
169 |
|
vs_top=sup; |
170 |
|
V30= vs_base[0]; |
171 |
|
{object V28; |
172 |
|
object V29= V30; |
173 |
|
if(endp(V29)){ |
174 |
|
V15= Cnil; |
175 |
|
goto T62;} |
176 |
|
base[5]=V28=MMcons(Cnil,Cnil); |
177 |
|
goto T63; |
178 |
|
T63:; |
179 |
|
(V28->c.c_car)= coerce_to_string((V29->c.c_car)); |
180 |
|
V29=MMcdr(V29); |
181 |
|
if(endp(V29)){ |
182 |
|
V15= base[5]; |
183 |
|
goto T62;} |
184 |
|
V28=MMcdr(V28)=MMcons(Cnil,Cnil); |
185 |
|
goto T63;} |
186 |
|
goto T62; |
187 |
|
T62:; |
188 |
|
base[6]= VV[12]; |
189 |
|
base[7]= base[3]; |
190 |
|
vs_top=(vs_base=base+6)+2; |
191 |
|
L5(base); |
192 |
|
vs_top=sup; |
193 |
|
V33= vs_base[0]; |
194 |
|
{object V31; |
195 |
|
object V32= V33; |
196 |
|
if(endp(V32)){ |
197 |
|
V16= Cnil; |
198 |
|
goto T68;} |
199 |
|
base[5]=V31=MMcons(Cnil,Cnil); |
200 |
|
goto T69; |
201 |
|
T69:; |
202 |
|
(V31->c.c_car)= coerce_to_string((V32->c.c_car)); |
203 |
|
V32=MMcdr(V32); |
204 |
|
if(endp(V32)){ |
205 |
|
V16= base[5]; |
206 |
|
goto T68;} |
207 |
|
V31=MMcdr(V31)=MMcons(Cnil,Cnil); |
208 |
|
goto T69;} |
209 |
|
goto T68; |
210 |
|
T68:; |
211 |
|
{register object V34; |
212 |
|
register object V35; |
213 |
|
base[5]= VV[13]; |
214 |
|
base[6]= base[3]; |
215 |
|
vs_top=(vs_base=base+5)+2; |
216 |
|
L4(base); |
217 |
|
vs_top=sup; |
218 |
|
V35= vs_base[0]; |
219 |
|
V34= Cnil; |
220 |
|
{register object V36; |
221 |
|
register object V37; |
222 |
|
register object V38; |
223 |
|
V36= Cnil; |
224 |
|
V37= Cnil; |
225 |
|
V38= Cnil; |
226 |
|
goto T79; |
227 |
|
T79:; |
228 |
|
if(((V35))==Cnil){ |
229 |
|
goto T82;} |
230 |
|
goto T81; |
231 |
|
goto T82; |
232 |
|
T82:; |
233 |
|
goto T80; |
234 |
|
goto T81; |
235 |
|
T81:; |
236 |
|
{register object V39; |
237 |
|
V39= car((V35)); |
238 |
|
V34= (V39);} |
239 |
|
V40= coerce_to_string(car((V34))); |
240 |
|
{object V42; |
241 |
|
object V43= cdr((V34)); |
242 |
|
if(endp(V43)){ |
243 |
|
V41= Cnil; |
244 |
|
goto T89;} |
245 |
|
base[5]=V42=MMcons(Cnil,Cnil); |
246 |
|
goto T90; |
247 |
|
T90:; |
248 |
|
(V42->c.c_car)= coerce_to_string((V43->c.c_car)); |
249 |
|
V43=MMcdr(V43); |
250 |
|
if(endp(V43)){ |
251 |
|
V41= base[5]; |
252 |
|
goto T89;} |
253 |
|
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
254 |
|
goto T90;} |
255 |
|
goto T89; |
256 |
|
T89:; |
257 |
|
V38= make_cons(/* INLINE-ARGS */V40,V41); |
258 |
|
if(((V37))==Cnil){ |
259 |
|
goto T94;} |
260 |
|
{register object V44; |
261 |
|
register object V45; |
262 |
|
V44= (V37); |
263 |
|
V37= make_cons((V38),Cnil); |
264 |
|
V45= (V37); |
265 |
|
if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44)); |
266 |
|
((V44))->c.c_cdr = (V45); |
267 |
|
goto T92;} |
268 |
|
goto T94; |
269 |
|
T94:; |
270 |
|
V37= make_cons((V38),Cnil); |
271 |
|
V36= (V37); |
272 |
|
goto T92; |
273 |
|
T92:; |
274 |
|
V35= cdr((V35)); |
275 |
|
goto T79; |
276 |
|
goto T80; |
277 |
|
T80:; |
278 |
|
V17= (V36); |
279 |
|
goto T74; |
280 |
|
V17= Cnil; |
281 |
|
goto T74; |
282 |
|
V17= Cnil; |
283 |
|
goto T74;}} |
284 |
|
goto T74; |
285 |
|
T74:; |
286 |
|
{register object V46; |
287 |
|
register object V47; |
288 |
|
base[5]= VV[14]; |
289 |
|
base[6]= base[3]; |
290 |
|
vs_top=(vs_base=base+5)+2; |
291 |
|
L4(base); |
292 |
|
vs_top=sup; |
293 |
|
V47= vs_base[0]; |
294 |
|
V46= Cnil; |
295 |
|
{register object V48; |
296 |
|
register object V49; |
297 |
|
register object V50; |
298 |
|
V48= Cnil; |
299 |
|
V49= Cnil; |
300 |
|
V50= Cnil; |
301 |
|
goto T111; |
302 |
|
T111:; |
303 |
|
if(((V47))==Cnil){ |
304 |
|
goto T114;} |
305 |
|
goto T113; |
306 |
|
goto T114; |
307 |
|
T114:; |
308 |
|
goto T112; |
309 |
|
goto T113; |
310 |
|
T113:; |
311 |
|
{register object V51; |
312 |
|
V51= car((V47)); |
313 |
|
V46= (V51);} |
314 |
|
V52= coerce_to_string(car((V46))); |
315 |
|
{object V54; |
316 |
|
object V55= cdr((V46)); |
317 |
|
if(endp(V55)){ |
318 |
|
V53= Cnil; |
319 |
|
goto T121;} |
320 |
|
base[5]=V54=MMcons(Cnil,Cnil); |
321 |
|
goto T122; |
322 |
|
T122:; |
323 |
|
(V54->c.c_car)= coerce_to_string((V55->c.c_car)); |
324 |
|
V55=MMcdr(V55); |
325 |
|
if(endp(V55)){ |
326 |
|
V53= base[5]; |
327 |
|
goto T121;} |
328 |
|
V54=MMcdr(V54)=MMcons(Cnil,Cnil); |
329 |
|
goto T122;} |
330 |
|
goto T121; |
331 |
|
T121:; |
332 |
|
V50= make_cons(/* INLINE-ARGS */V52,V53); |
333 |
|
if(((V49))==Cnil){ |
334 |
|
goto T126;} |
335 |
|
{register object V56; |
336 |
|
register object V57; |
337 |
|
V56= (V49); |
338 |
|
V49= make_cons((V50),Cnil); |
339 |
|
V57= (V49); |
340 |
|
if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56)); |
341 |
|
((V56))->c.c_cdr = (V57); |
342 |
|
goto T124;} |
343 |
|
goto T126; |
344 |
|
T126:; |
345 |
|
V49= make_cons((V50),Cnil); |
346 |
|
V48= (V49); |
347 |
|
goto T124; |
348 |
|
T124:; |
349 |
|
V47= cdr((V47)); |
350 |
|
goto T111; |
351 |
|
goto T112; |
352 |
|
T112:; |
353 |
|
V18= (V48); |
354 |
|
goto T106; |
355 |
|
V18= Cnil; |
356 |
|
goto T106; |
357 |
|
V18= Cnil; |
358 |
|
goto T106;}} |
359 |
|
goto T106; |
360 |
|
T106:; |
361 |
|
base[6]= VV[15]; |
362 |
|
base[7]= base[3]; |
363 |
|
vs_top=(vs_base=base+6)+2; |
364 |
|
L5(base); |
365 |
|
vs_top=sup; |
366 |
|
V60= vs_base[0]; |
367 |
|
{object V58; |
368 |
|
object V59= V60; |
369 |
|
if(endp(V59)){ |
370 |
|
V19= Cnil; |
371 |
|
goto T138;} |
372 |
|
base[5]=V58=MMcons(Cnil,Cnil); |
373 |
|
goto T139; |
374 |
|
T139:; |
375 |
|
(V58->c.c_car)= coerce_to_string((V59->c.c_car)); |
376 |
|
V59=MMcdr(V59); |
377 |
|
if(endp(V59)){ |
378 |
|
V19= base[5]; |
379 |
|
goto T138;} |
380 |
|
V58=MMcdr(V58)=MMcons(Cnil,Cnil); |
381 |
|
goto T139;} |
382 |
|
goto T138; |
383 |
|
T138:; |
384 |
|
{register object V61; |
385 |
|
register object V62; |
386 |
|
base[5]= (V14); |
387 |
|
base[6]= (V15); |
388 |
|
{register object V63; |
389 |
|
register object V64; |
390 |
|
V63= Cnil; |
391 |
|
V64= (V17); |
392 |
|
{register object V65; |
393 |
|
register object V66; |
394 |
|
register object V67; |
395 |
|
V65= Cnil; |
396 |
|
V66= Cnil; |
397 |
|
V67= Cnil; |
398 |
|
goto T151; |
399 |
|
T151:; |
400 |
|
if(((V64))==Cnil){ |
401 |
|
goto T154;} |
402 |
|
goto T153; |
403 |
|
goto T154; |
404 |
|
T154:; |
405 |
|
goto T152; |
406 |
|
goto T153; |
407 |
|
T153:; |
408 |
|
{register object V68; |
409 |
|
V68= car((V64)); |
410 |
|
V63= (V68);} |
411 |
|
base[8]= cdr((V63)); |
412 |
|
vs_top=(vs_base=base+8)+1; |
413 |
|
Lcopy_list(); |
414 |
|
vs_top=sup; |
415 |
|
V67= vs_base[0]; |
416 |
|
if(((V66))==Cnil){ |
417 |
|
goto T164;} |
418 |
|
{register object V69; |
419 |
|
register object V70; |
420 |
|
V69= (V66); |
421 |
|
V70= (V67); |
422 |
|
if(type_of((V69))!=t_cons)FEwrong_type_argument(Scons,(V69)); |
423 |
|
((V69))->c.c_cdr = (V70); |
424 |
|
if(((V70))!=Cnil){ |
425 |
|
goto T166;}} |
426 |
|
goto T162; |
427 |
|
goto T166; |
428 |
|
T166:; |
429 |
|
base[8]= cdr((V66)); |
430 |
|
vs_top=(vs_base=base+8)+1; |
431 |
|
Llast(); |
432 |
|
vs_top=sup; |
433 |
|
V66= vs_base[0]; |
434 |
|
goto T162; |
435 |
|
goto T164; |
436 |
|
T164:; |
437 |
|
V65= (V67); |
438 |
|
base[8]= (V65); |
439 |
|
vs_top=(vs_base=base+8)+1; |
440 |
|
Llast(); |
441 |
|
vs_top=sup; |
442 |
|
V66= vs_base[0]; |
443 |
|
goto T162; |
444 |
|
T162:; |
445 |
|
V64= cdr((V64)); |
446 |
|
goto T151; |
447 |
|
goto T152; |
448 |
|
T152:; |
449 |
|
base[7]= (V65); |
450 |
|
goto T149; |
451 |
|
base[7]= Cnil; |
452 |
|
goto T149; |
453 |
|
base[7]= Cnil; |
454 |
|
goto T149;}} |
455 |
|
goto T149; |
456 |
|
T149:; |
457 |
|
{register object V71; |
458 |
|
register object V72; |
459 |
|
V71= Cnil; |
460 |
|
V72= (V18); |
461 |
|
{register object V73; |
462 |
|
register object V74; |
463 |
|
register object V75; |
464 |
|
V73= Cnil; |
465 |
|
V74= Cnil; |
466 |
|
V75= Cnil; |
467 |
|
goto T182; |
468 |
|
T182:; |
469 |
|
if(((V72))==Cnil){ |
470 |
|
goto T185;} |
471 |
|
goto T184; |
472 |
|
goto T185; |
473 |
|
T185:; |
474 |
|
goto T183; |
475 |
|
goto T184; |
476 |
|
T184:; |
477 |
|
{register object V76; |
478 |
|
V76= car((V72)); |
479 |
|
V71= (V76);} |
480 |
|
base[9]= cdr((V71)); |
481 |
|
vs_top=(vs_base=base+9)+1; |
482 |
|
Lcopy_list(); |
483 |
|
vs_top=sup; |
484 |
|
V75= vs_base[0]; |
485 |
|
if(((V74))==Cnil){ |
486 |
|
goto T195;} |
487 |
|
{register object V77; |
488 |
|
register object V78; |
489 |
|
V77= (V74); |
490 |
|
V78= (V75); |
491 |
|
if(type_of((V77))!=t_cons)FEwrong_type_argument(Scons,(V77)); |
492 |
|
((V77))->c.c_cdr = (V78); |
493 |
|
if(((V78))!=Cnil){ |
494 |
|
goto T197;}} |
495 |
|
goto T193; |
496 |
|
goto T197; |
497 |
|
T197:; |
498 |
|
base[9]= cdr((V74)); |
499 |
|
vs_top=(vs_base=base+9)+1; |
500 |
|
Llast(); |
501 |
|
vs_top=sup; |
502 |
|
V74= vs_base[0]; |
503 |
|
goto T193; |
504 |
|
goto T195; |
505 |
|
T195:; |
506 |
|
V73= (V75); |
507 |
|
base[9]= (V73); |
508 |
|
vs_top=(vs_base=base+9)+1; |
509 |
|
Llast(); |
510 |
|
vs_top=sup; |
511 |
|
V74= vs_base[0]; |
512 |
|
goto T193; |
513 |
|
T193:; |
514 |
|
V72= cdr((V72)); |
515 |
|
goto T182; |
516 |
|
goto T183; |
517 |
|
T183:; |
518 |
|
base[8]= (V73); |
519 |
|
goto T180; |
520 |
|
base[8]= Cnil; |
521 |
|
goto T180; |
522 |
|
base[8]= Cnil; |
523 |
|
goto T180;}} |
524 |
|
goto T180; |
525 |
|
T180:; |
526 |
|
vs_top=(vs_base=base+5)+4; |
527 |
|
L2(base); |
528 |
|
vs_top=sup; |
529 |
|
V62= vs_base[0]; |
530 |
|
V61= Cnil; |
531 |
|
goto T212; |
532 |
|
T212:; |
533 |
|
if(((V62))==Cnil){ |
534 |
|
goto T215;} |
535 |
|
goto T214; |
536 |
|
goto T215; |
537 |
|
T215:; |
538 |
|
goto T213; |
539 |
|
goto T214; |
540 |
|
T214:; |
541 |
|
{register object V79; |
542 |
|
V79= car((V62)); |
543 |
|
V61= (V79);} |
544 |
|
base[5]= VV[5]; |
545 |
|
base[6]= VV[16]; |
546 |
|
base[7]= car((V61)); |
547 |
|
{register object V80; |
548 |
|
register object V81; |
549 |
|
V81= cdr((V61)); |
550 |
|
V80= Cnil; |
551 |
|
{register object V82; |
552 |
|
register object V83; |
553 |
|
register object V84; |
554 |
|
V82= Cnil; |
555 |
|
V83= Cnil; |
556 |
|
V84= Cnil; |
557 |
|
goto T227; |
558 |
|
T227:; |
559 |
|
if(((V81))==Cnil){ |
560 |
|
goto T230;} |
561 |
|
goto T229; |
562 |
|
goto T230; |
563 |
|
T230:; |
564 |
|
goto T228; |
565 |
|
goto T229; |
566 |
|
T229:; |
567 |
|
{register object V85; |
568 |
|
V85= car((V81)); |
569 |
|
V80= (V85);} |
570 |
|
{object V86= (V80); |
571 |
|
if(!eql(V86,VV[17]))goto T237; |
572 |
|
V84= VV[10]; |
573 |
|
goto T236; |
574 |
|
goto T237; |
575 |
|
T237:; |
576 |
|
if(!eql(V86,VV[18]))goto T238; |
577 |
|
V84= VV[11]; |
578 |
|
goto T236; |
579 |
|
goto T238; |
580 |
|
T238:; |
581 |
|
if(!eql(V86,VV[19]))goto T239; |
582 |
|
V84= VV[13]; |
583 |
|
goto T236; |
584 |
|
goto T239; |
585 |
|
T239:; |
586 |
|
if(!eql(V86,VV[20]))goto T240; |
587 |
|
V84= VV[14]; |
588 |
|
goto T236; |
589 |
|
goto T240; |
590 |
|
T240:; |
591 |
|
V84= Cnil;} |
592 |
|
goto T236; |
593 |
|
T236:; |
594 |
|
if(((V83))==Cnil){ |
595 |
|
goto T243;} |
596 |
|
{register object V87; |
597 |
|
register object V88; |
598 |
|
V87= (V83); |
599 |
|
V83= make_cons((V84),Cnil); |
600 |
|
V88= (V83); |
601 |
|
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
602 |
|
((V87))->c.c_cdr = (V88); |
603 |
|
goto T241;} |
604 |
|
goto T243; |
605 |
|
T243:; |
606 |
|
V83= make_cons((V84),Cnil); |
607 |
|
V82= (V83); |
608 |
|
goto T241; |
609 |
|
T241:; |
610 |
|
V81= cdr((V81)); |
611 |
|
goto T227; |
612 |
|
goto T228; |
613 |
|
T228:; |
614 |
|
base[8]= (V82); |
615 |
|
goto T224; |
616 |
|
base[8]= Cnil; |
617 |
|
goto T224; |
618 |
|
base[8]= Cnil; |
619 |
|
goto T224;}} |
620 |
|
goto T224; |
621 |
|
T224:; |
622 |
|
vs_top=(vs_base=base+5)+4; |
623 |
|
(void) (*Lnk72)(); |
624 |
|
vs_top=sup; |
625 |
|
V62= cdr((V62)); |
626 |
|
goto T212; |
627 |
|
goto T213; |
628 |
|
T213:; |
629 |
|
goto T145; |
630 |
|
goto T145;} |
631 |
|
goto T145; |
632 |
|
T145:; |
633 |
|
{register object V89; |
634 |
|
register object V90; |
635 |
|
base[5]= (V16); |
636 |
|
base[6]= (V15); |
637 |
|
vs_top=(vs_base=base+5)+2; |
638 |
|
L2(base); |
639 |
|
vs_top=sup; |
640 |
|
V90= vs_base[0]; |
641 |
|
V89= Cnil; |
642 |
|
goto T262; |
643 |
|
T262:; |
644 |
|
if(((V90))==Cnil){ |
645 |
|
goto T265;} |
646 |
|
goto T264; |
647 |
|
goto T265; |
648 |
|
T265:; |
649 |
|
goto T263; |
650 |
|
goto T264; |
651 |
|
T264:; |
652 |
|
{register object V91; |
653 |
|
V91= car((V90)); |
654 |
|
V89= (V91);} |
655 |
|
base[5]= VV[5]; |
656 |
|
base[6]= VV[21]; |
657 |
|
base[7]= car((V89)); |
658 |
|
{register object V92; |
659 |
|
register object V93; |
660 |
|
V93= cdr((V89)); |
661 |
|
V92= Cnil; |
662 |
|
{register object V94; |
663 |
|
register object V95; |
664 |
|
register object V96; |
665 |
|
V94= Cnil; |
666 |
|
V95= Cnil; |
667 |
|
V96= Cnil; |
668 |
|
goto T277; |
669 |
|
T277:; |
670 |
|
if(((V93))==Cnil){ |
671 |
|
goto T280;} |
672 |
|
goto T279; |
673 |
|
goto T280; |
674 |
|
T280:; |
675 |
|
goto T278; |
676 |
|
goto T279; |
677 |
|
T279:; |
678 |
|
{register object V97; |
679 |
|
V97= car((V93)); |
680 |
|
V92= (V97);} |
681 |
|
{object V98= (V92); |
682 |
|
if(!eql(V98,VV[17]))goto T287; |
683 |
|
V96= VV[12]; |
684 |
|
goto T286; |
685 |
|
goto T287; |
686 |
|
T287:; |
687 |
|
if(!eql(V98,VV[18]))goto T288; |
688 |
|
V96= VV[11]; |
689 |
|
goto T286; |
690 |
|
goto T288; |
691 |
|
T288:; |
692 |
|
V96= Cnil;} |
693 |
|
goto T286; |
694 |
|
T286:; |
695 |
|
if(((V95))==Cnil){ |
696 |
|
goto T291;} |
697 |
|
{register object V99; |
698 |
|
register object V100; |
699 |
|
V99= (V95); |
700 |
|
V95= make_cons((V96),Cnil); |
701 |
|
V100= (V95); |
702 |
|
if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99)); |
703 |
|
((V99))->c.c_cdr = (V100); |
704 |
|
goto T289;} |
705 |
|
goto T291; |
706 |
|
T291:; |
707 |
|
V95= make_cons((V96),Cnil); |
708 |
|
V94= (V95); |
709 |
|
goto T289; |
710 |
|
T289:; |
711 |
|
V93= cdr((V93)); |
712 |
|
goto T277; |
713 |
|
goto T278; |
714 |
|
T278:; |
715 |
|
base[8]= (V94); |
716 |
|
goto T274; |
717 |
|
base[8]= Cnil; |
718 |
|
goto T274; |
719 |
|
base[8]= Cnil; |
720 |
|
goto T274;}} |
721 |
|
goto T274; |
722 |
|
T274:; |
723 |
|
vs_top=(vs_base=base+5)+4; |
724 |
|
(void) (*Lnk72)(); |
725 |
|
vs_top=sup; |
726 |
|
V90= cdr((V90)); |
727 |
|
goto T262; |
728 |
|
goto T263; |
729 |
|
T263:; |
730 |
|
goto T144; |
731 |
|
goto T144;} |
732 |
|
goto T144; |
733 |
|
T144:; |
734 |
|
V101= list(2,VV[27],base[2]); |
735 |
|
V102= list(3,VV[29],base[2],base[2]); |
736 |
|
if(((V11))==Cnil){ |
737 |
|
goto T308;} |
738 |
|
V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11))); |
739 |
|
V103= make_cons(/* INLINE-ARGS */V104,Cnil); |
740 |
|
goto T306; |
741 |
|
goto T308; |
742 |
|
T308:; |
743 |
|
V103= Cnil; |
744 |
|
goto T306; |
745 |
|
T306:; |
746 |
|
base[5]= VV[31]; |
747 |
|
base[6]= base[3]; |
748 |
|
base[7]= VV[4]; |
749 |
|
base[8]= symbol_function(VV[71]); |
750 |
|
vs_top=(vs_base=base+5)+4; |
751 |
|
Lmember(); |
752 |
|
vs_top=sup; |
753 |
|
if((vs_base[0])==Cnil){ |
754 |
|
goto T312;} |
755 |
|
V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]); |
756 |
|
V105= make_cons(/* INLINE-ARGS */V106,Cnil); |
757 |
|
goto T310; |
758 |
|
goto T312; |
759 |
|
T312:; |
760 |
|
V105= Cnil; |
761 |
|
goto T310; |
762 |
|
T310:; |
763 |
|
V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105)); |
764 |
|
V108= list(2,VV[30],(V11)); |
765 |
|
if(((V13))==Cnil){ |
766 |
|
goto T320;} |
767 |
|
V109= Cnil; |
768 |
|
goto T318; |
769 |
|
goto T320; |
770 |
|
T320:; |
771 |
|
V109= Cnil; |
772 |
|
goto T318; |
773 |
|
T318:; |
774 |
|
V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109)); |
775 |
|
base[5]= base[2]; |
776 |
|
base[6]= VV[40]; |
777 |
|
vs_top=(vs_base=base+5)+2; |
778 |
|
Lintern(); |
779 |
|
vs_top=sup; |
780 |
|
V111= vs_base[0]; |
781 |
|
V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V12)); |
782 |
|
V113= make_cons(/* INLINE-ARGS */V112,Cnil); |
783 |
|
V114= list(2,VV[43],list(2,VV[27],base[2])); |
784 |
|
V115= make_cons(/* INLINE-ARGS */V114,Cnil); |
785 |
|
if(((V14))==Cnil){ |
786 |
|
goto T328;} |
787 |
|
V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14)))); |
788 |
|
base[5]= make_cons(/* INLINE-ARGS */V117,Cnil); |
789 |
|
goto T326; |
790 |
|
goto T328; |
791 |
|
T328:; |
792 |
|
base[5]= Cnil; |
793 |
|
goto T326; |
794 |
|
T326:; |
795 |
|
if(((V17))==Cnil){ |
796 |
|
goto T332;} |
797 |
|
{object V118; |
798 |
|
object V119= (V17); |
799 |
|
if(endp(V119)){ |
800 |
|
base[6]= Cnil; |
801 |
|
goto T330;} |
802 |
|
base[7]=V118=MMcons(Cnil,Cnil); |
803 |
|
goto T334; |
804 |
|
T334:; |
805 |
|
{register object V120; |
806 |
|
V120= (V119->c.c_car); |
807 |
|
V121= list(3,VV[51],VV[52],car((V120))); |
808 |
|
V122= list(3,VV[53],VV[52],car((V120))); |
809 |
|
V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],car((V120)),VV[57])))); |
810 |
|
(V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],cdr((V120)))));} |
811 |
|
V119=MMcdr(V119); |
812 |
|
if(endp(V119)){ |
813 |
|
base[6]= base[7]; |
814 |
|
goto T330;} |
815 |
|
V118=MMcdr(V118)=MMcons(Cnil,Cnil); |
816 |
|
goto T334;} |
817 |
|
goto T332; |
818 |
|
T332:; |
819 |
|
base[6]= Cnil; |
820 |
|
goto T330; |
821 |
|
T330:; |
822 |
|
base[8]= VV[31]; |
823 |
|
base[9]= base[3]; |
824 |
|
base[10]= VV[22]; |
825 |
|
base[11]= (base[4]->c.c_car); |
826 |
|
vs_top=(vs_base=base+8)+4; |
827 |
|
Lmember(); |
828 |
|
vs_top=sup; |
829 |
|
if((vs_base[0])==Cnil){ |
830 |
|
goto T339;} |
831 |
|
base[9]= VV[31]; |
832 |
|
base[10]= base[3]; |
833 |
|
vs_top=(vs_base=base+9)+2; |
834 |
|
L5(base); |
835 |
|
vs_top=sup; |
836 |
|
V127= vs_base[0]; |
837 |
|
{object V125; |
838 |
|
object V126= V127; |
839 |
|
if(endp(V126)){ |
840 |
|
V124= Cnil; |
841 |
|
goto T337;} |
842 |
|
base[8]=V125=MMcons(Cnil,Cnil); |
843 |
|
goto T345; |
844 |
|
T345:; |
845 |
|
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
846 |
|
V126=MMcdr(V126); |
847 |
|
if(endp(V126)){ |
848 |
|
V124= base[8]; |
849 |
|
goto T337;} |
850 |
|
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
851 |
|
goto T345;} |
852 |
|
goto T339; |
853 |
|
T339:; |
854 |
|
V124= VV[59]; |
855 |
|
goto T337; |
856 |
|
T337:; |
857 |
|
V128= list(2,VV[58],list(2,VV[30],V124)); |
858 |
|
if(((V18))==Cnil){ |
859 |
|
goto T353;} |
860 |
|
{object V130; |
861 |
|
object V131= (V18); |
862 |
|
if(endp(V131)){ |
863 |
|
base[8]= Cnil; |
864 |
|
goto T351;} |
865 |
|
base[9]=V130=MMcons(Cnil,Cnil); |
866 |
|
goto T355; |
867 |
|
T355:; |
868 |
|
{register object V132; |
869 |
|
V132= (V131->c.c_car); |
870 |
|
V133= list(3,VV[51],VV[52],car((V132))); |
871 |
|
V134= list(3,VV[53],VV[52],car((V132))); |
872 |
|
V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],car((V132)),VV[63])))); |
873 |
|
(V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],cdr((V132)))));} |
874 |
|
V131=MMcdr(V131); |
875 |
|
if(endp(V131)){ |
876 |
|
base[8]= base[9]; |
877 |
|
goto T351;} |
878 |
|
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
879 |
|
goto T355;} |
880 |
|
goto T353; |
881 |
|
T353:; |
882 |
|
base[8]= Cnil; |
883 |
|
goto T351; |
884 |
|
T351:; |
885 |
|
if(((V15))==Cnil){ |
886 |
|
goto T359;} |
887 |
|
V136= list(3,VV[45],VV[64],list(2,VV[30],(V15))); |
888 |
|
base[9]= make_cons(/* INLINE-ARGS */V136,Cnil); |
889 |
|
goto T357; |
890 |
|
goto T359; |
891 |
|
T359:; |
892 |
|
base[9]= Cnil; |
893 |
|
goto T357; |
894 |
|
T357:; |
895 |
|
if(((V16))==Cnil){ |
896 |
|
goto T363;} |
897 |
|
V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16)))); |
898 |
|
base[10]= make_cons(/* INLINE-ARGS */V137,Cnil); |
899 |
|
goto T361; |
900 |
|
goto T363; |
901 |
|
T363:; |
902 |
|
base[10]= Cnil; |
903 |
|
goto T361; |
904 |
|
T361:; |
905 |
|
if(((V19))==Cnil){ |
906 |
|
goto T367;} |
907 |
|
V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]); |
908 |
|
base[11]= make_cons(/* INLINE-ARGS */V138,Cnil); |
909 |
|
goto T365; |
910 |
|
goto T367; |
911 |
|
T367:; |
912 |
|
base[11]= Cnil; |
913 |
|
goto T365; |
914 |
|
T365:; |
915 |
|
vs_top=(vs_base=base+8)+4; |
916 |
|
Lappend(); |
917 |
|
vs_top=sup; |
918 |
|
V129= vs_base[0]; |
919 |
|
base[7]= make_cons(/* INLINE-ARGS */V128,V129); |
920 |
|
vs_top=(vs_base=base+5)+3; |
921 |
|
Lappend(); |
922 |
|
vs_top=sup; |
923 |
|
V116= vs_base[0]; |
924 |
|
V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116); |
925 |
|
V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2])); |
926 |
|
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140)); |
927 |
|
vs_top=(vs_base=base+5)+1; |
928 |
|
return;} |
929 |
|
} |
930 |
|
/* local function FIND-DUPLICATES */ |
931 |
|
|
932 |
|
static void L2(base0) |
933 |
|
register object *base0; |
934 |
|
{ register object *base=vs_base; |
935 |
|
register object *sup=base+VM2; VC2 |
936 |
|
vs_reserve(VM2); |
937 |
|
{object V141; |
938 |
|
vs_top[0]=Cnil; |
939 |
|
{object *p=vs_top; |
940 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
941 |
|
V141=(base[0]); |
942 |
|
vs_top=sup; |
943 |
|
{object V142; |
944 |
|
V142= Cnil; |
945 |
|
{object V143; |
946 |
|
object V144; |
947 |
|
V143= Cnil; |
948 |
|
V144= (V141); |
949 |
|
{object V145; |
950 |
|
V145= cdr((V141)); |
951 |
|
{register long V146; |
952 |
|
V146= 1; |
953 |
|
goto T373; |
954 |
|
T373:; |
955 |
|
if(((V145))==Cnil){ |
956 |
|
goto T376;} |
957 |
|
goto T375; |
958 |
|
goto T376; |
959 |
|
T376:; |
960 |
|
goto T374; |
961 |
|
goto T375; |
962 |
|
T375:; |
963 |
|
if(((V144))==Cnil){ |
964 |
|
goto T379;} |
965 |
|
goto T378; |
966 |
|
goto T379; |
967 |
|
T379:; |
968 |
|
goto T374; |
969 |
|
goto T378; |
970 |
|
T378:; |
971 |
|
{object V147; |
972 |
|
V147= car((V144)); |
973 |
|
V143= (V147);} |
974 |
|
{register object V148; |
975 |
|
register object V149; |
976 |
|
V148= Cnil; |
977 |
|
V149= (V143); |
978 |
|
{register object V150; |
979 |
|
V150= Cnil; |
980 |
|
goto T386; |
981 |
|
T386:; |
982 |
|
if(((V149))==Cnil){ |
983 |
|
goto T389;} |
984 |
|
goto T388; |
985 |
|
goto T389; |
986 |
|
T389:; |
987 |
|
goto T387; |
988 |
|
goto T388; |
989 |
|
T388:; |
990 |
|
{object V151; |
991 |
|
V151= car((V149)); |
992 |
|
V148= (V151);} |
993 |
|
{object V152; |
994 |
|
V153= symbol_function(VV[71]); |
995 |
|
V154= symbol_function(VV[74]); |
996 |
|
V152= (VFUN_NARGS=6,(*(LnkLI73))((V148),(V142),VV[4],V153,VV[22],V154)); |
997 |
|
V150= (V152);} |
998 |
|
V156 = make_fixnum(V146); |
999 |
|
{register object x= V156,V155= (V150); |
1000 |
|
while(!endp(V155)) |
1001 |
|
if(eql(x,V155->c.c_car)){ |
1002 |
|
goto T399; |
1003 |
|
}else V155=V155->c.c_cdr;} |
1004 |
|
{object V157; |
1005 |
|
register object V158; |
1006 |
|
V157= Cnil; |
1007 |
|
V158= (V145); |
1008 |
|
{register long V159; |
1009 |
|
{object V160; |
1010 |
|
V161 = make_fixnum(V146); |
1011 |
|
V160= one_plus(V161);{object V162; |
1012 |
|
V162= (type_of((V160))==t_fixnum?Ct:Cnil); |
1013 |
|
if(V162==Cnil)goto T405; |
1014 |
|
goto T404; |
1015 |
|
goto T405; |
1016 |
|
T405:;} |
1017 |
|
(void)((*(LnkLI75))()); |
1018 |
|
goto T404; |
1019 |
|
T404:; |
1020 |
|
V159= fix((V160));} |
1021 |
|
goto T408; |
1022 |
|
T408:; |
1023 |
|
if(((V158))==Cnil){ |
1024 |
|
goto T411;} |
1025 |
|
goto T410; |
1026 |
|
goto T411; |
1027 |
|
T411:; |
1028 |
|
goto T409; |
1029 |
|
goto T410; |
1030 |
|
T410:; |
1031 |
|
{object V163; |
1032 |
|
V163= car((V158)); |
1033 |
|
V157= (V163);} |
1034 |
|
base[1]= (V148); |
1035 |
|
base[2]= (V157); |
1036 |
|
base[3]= VV[22]; |
1037 |
|
base[4]= symbol_function(VV[74]); |
1038 |
|
vs_top=(vs_base=base+1)+4; |
1039 |
|
Lmember(); |
1040 |
|
vs_top=sup; |
1041 |
|
if((vs_base[0])==Cnil){ |
1042 |
|
goto T416;} |
1043 |
|
if(((V150))==Cnil){ |
1044 |
|
goto T424;} |
1045 |
|
V164 = make_fixnum(V159); |
1046 |
|
V165= make_cons(V164,Cnil); |
1047 |
|
(void)(nconc((V150),/* INLINE-ARGS */V165)); |
1048 |
|
goto T416; |
1049 |
|
goto T424; |
1050 |
|
T424:; |
1051 |
|
{object V167; |
1052 |
|
V168 = make_fixnum(V146); |
1053 |
|
V169 = make_fixnum(V159); |
1054 |
|
V167= list(3,(V148),V168,V169); |
1055 |
|
V142= make_cons((V167),(V142)); |
1056 |
|
V166= (V142);} |
1057 |
|
V150= car(V166); |
1058 |
|
goto T416; |
1059 |
|
T416:; |
1060 |
|
V158= cdr((V158)); |
1061 |
|
if(!((V159)<(2147483646))){ |
1062 |
|
goto T433;} |
1063 |
|
goto T432; |
1064 |
|
goto T433; |
1065 |
|
T433:; |
1066 |
|
(void)((*(LnkLI75))()); |
1067 |
|
goto T432; |
1068 |
|
T432:; |
1069 |
|
V159= (long)(V159)+(1); |
1070 |
|
goto T408; |
1071 |
|
goto T409; |
1072 |
|
T409:; |
1073 |
|
goto T399; |
1074 |
|
goto T399;}} |
1075 |
|
goto T399; |
1076 |
|
T399:; |
1077 |
|
V149= cdr((V149)); |
1078 |
|
goto T386; |
1079 |
|
goto T387; |
1080 |
|
T387:; |
1081 |
|
goto T384; |
1082 |
|
goto T384;}} |
1083 |
|
goto T384; |
1084 |
|
T384:; |
1085 |
|
V144= cdr((V144)); |
1086 |
|
V145= cdr((V145)); |
1087 |
|
if(!((V146)<(2147483646))){ |
1088 |
|
goto T446;} |
1089 |
|
goto T445; |
1090 |
|
goto T446; |
1091 |
|
T446:; |
1092 |
|
(void)((*(LnkLI75))()); |
1093 |
|
goto T445; |
1094 |
|
T445:; |
1095 |
|
V146= (long)(V146)+(1); |
1096 |
|
goto T373; |
1097 |
|
goto T374; |
1098 |
|
T374:; |
1099 |
|
goto T369; |
1100 |
|
goto T369;}}} |
1101 |
|
goto T369; |
1102 |
|
T369:; |
1103 |
|
base[1]= (V142); |
1104 |
|
vs_top=(vs_base=base+1)+1; |
1105 |
|
return;} |
1106 |
|
} |
1107 |
|
} |
1108 |
|
/* local function OPTION-TEST */ |
1109 |
|
|
1110 |
|
static void LC3(base0) |
1111 |
|
register object *base0; |
1112 |
|
{ register object *base=vs_base; |
1113 |
|
register object *sup=base+VM3; VC3 |
1114 |
|
vs_reserve(VM3); |
1115 |
|
{object V170; |
1116 |
|
object V171; |
1117 |
|
check_arg(2); |
1118 |
|
V170=(base[0]); |
1119 |
|
V171=(base[1]); |
1120 |
|
vs_top=sup; |
1121 |
|
if(!(type_of((V171))==t_cons)){ |
1122 |
|
goto T452;} |
1123 |
|
base[2]= (equal(car((V171)),(V170))?Ct:Cnil); |
1124 |
|
vs_top=(vs_base=base+2)+1; |
1125 |
|
return; |
1126 |
|
goto T452; |
1127 |
|
T452:; |
1128 |
|
base[2]= Cnil; |
1129 |
|
vs_top=(vs_base=base+2)+1; |
1130 |
|
return; |
1131 |
|
} |
1132 |
|
} |
1133 |
|
/* local function OPTION-VALUES */ |
1134 |
|
|
1135 |
|
static void L5(base0) |
1136 |
|
register object *base0; |
1137 |
|
{ register object *base=vs_base; |
1138 |
|
register object *sup=base+VM4; VC4 |
1139 |
|
vs_reserve(VM4); |
1140 |
|
{object V172; |
1141 |
|
object V173; |
1142 |
|
check_arg(2); |
1143 |
|
V172=(base[0]); |
1144 |
|
V173=(base[1]); |
1145 |
|
vs_top=sup; |
1146 |
|
goto TTL; |
1147 |
|
TTL:; |
1148 |
|
{register object V174; |
1149 |
|
V174= Cnil; |
1150 |
|
{object V175; |
1151 |
|
register object V176; |
1152 |
|
register object V177; |
1153 |
|
V175= Cnil; |
1154 |
|
V176= Cnil; |
1155 |
|
V177= Cnil; |
1156 |
|
{object V178; |
1157 |
|
base[2]= (V172); |
1158 |
|
base[3]= (V173); |
1159 |
|
base[4]= VV[22]; |
1160 |
|
base[5]= (base0[4]->c.c_car); |
1161 |
|
vs_top=(vs_base=base+2)+4; |
1162 |
|
Lmember(); |
1163 |
|
vs_top=sup; |
1164 |
|
V178= vs_base[0]; |
1165 |
|
V174= (V178);} |
1166 |
|
goto T455; |
1167 |
|
T455:; |
1168 |
|
if(((V174))==Cnil){ |
1169 |
|
goto T464;} |
1170 |
|
goto T463; |
1171 |
|
goto T464; |
1172 |
|
T464:; |
1173 |
|
goto T456; |
1174 |
|
goto T463; |
1175 |
|
T463:; |
1176 |
|
if(((V174))==Cnil){ |
1177 |
|
goto T466;} |
1178 |
|
base[2]= cdr(car((V174))); |
1179 |
|
vs_top=(vs_base=base+2)+1; |
1180 |
|
Lcopy_list(); |
1181 |
|
vs_top=sup; |
1182 |
|
V177= vs_base[0]; |
1183 |
|
if(((V176))==Cnil){ |
1184 |
|
goto T473;} |
1185 |
|
{register object V179; |
1186 |
|
register object V180; |
1187 |
|
V179= (V176); |
1188 |
|
V180= (V177); |
1189 |
|
if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); |
1190 |
|
((V179))->c.c_cdr = (V180); |
1191 |
|
if(((V180))!=Cnil){ |
1192 |
|
goto T475;}} |
1193 |
|
goto T466; |
1194 |
|
goto T475; |
1195 |
|
T475:; |
1196 |
|
base[2]= cdr((V176)); |
1197 |
|
vs_top=(vs_base=base+2)+1; |
1198 |
|
Llast(); |
1199 |
|
vs_top=sup; |
1200 |
|
V176= vs_base[0]; |
1201 |
|
goto T466; |
1202 |
|
goto T473; |
1203 |
|
T473:; |
1204 |
|
V175= (V177); |
1205 |
|
base[2]= (V175); |
1206 |
|
vs_top=(vs_base=base+2)+1; |
1207 |
|
Llast(); |
1208 |
|
vs_top=sup; |
1209 |
|
V176= vs_base[0]; |
1210 |
|
goto T466; |
1211 |
|
T466:; |
1212 |
|
{register object V181; |
1213 |
|
base[2]= (V172); |
1214 |
|
base[3]= cdr((V174)); |
1215 |
|
base[4]= VV[22]; |
1216 |
|
base[5]= (base0[4]->c.c_car); |
1217 |
|
vs_top=(vs_base=base+2)+4; |
1218 |
|
Lmember(); |
1219 |
|
vs_top=sup; |
1220 |
|
V181= vs_base[0]; |
1221 |
|
V174= (V181);} |
1222 |
|
goto T455; |
1223 |
|
goto T456; |
1224 |
|
T456:; |
1225 |
|
base[2]= (V175); |
1226 |
|
vs_top=(vs_base=base+2)+1; |
1227 |
|
return; |
1228 |
|
base[2]= Cnil; |
1229 |
|
vs_top=(vs_base=base+2)+1; |
1230 |
|
return; |
1231 |
|
base[2]= Cnil; |
1232 |
|
vs_top=(vs_base=base+2)+1; |
1233 |
|
return;}} |
1234 |
|
} |
1235 |
|
} |
1236 |
|
/* local function OPTION-VALUES-LIST */ |
1237 |
|
|
1238 |
|
static void L4(base0) |
1239 |
|
register object *base0; |
1240 |
|
{ register object *base=vs_base; |
1241 |
|
register object *sup=base+VM5; VC5 |
1242 |
|
vs_reserve(VM5); |
1243 |
|
{object V182; |
1244 |
|
object V183; |
1245 |
|
check_arg(2); |
1246 |
|
V182=(base[0]); |
1247 |
|
V183=(base[1]); |
1248 |
|
vs_top=sup; |
1249 |
|
goto TTL; |
1250 |
|
TTL:; |
1251 |
|
{register object V184; |
1252 |
|
V184= Cnil; |
1253 |
|
{object V185; |
1254 |
|
register object V186; |
1255 |
|
register object V187; |
1256 |
|
V185= Cnil; |
1257 |
|
V186= Cnil; |
1258 |
|
V187= Cnil; |
1259 |
|
{object V188; |
1260 |
|
base[2]= (V182); |
1261 |
|
base[3]= (V183); |
1262 |
|
base[4]= VV[22]; |
1263 |
|
base[5]= (base0[4]->c.c_car); |
1264 |
|
vs_top=(vs_base=base+2)+4; |
1265 |
|
Lmember(); |
1266 |
|
vs_top=sup; |
1267 |
|
V188= vs_base[0]; |
1268 |
|
V184= (V188);} |
1269 |
|
goto T495; |
1270 |
|
T495:; |
1271 |
|
if(((V184))==Cnil){ |
1272 |
|
goto T504;} |
1273 |
|
goto T503; |
1274 |
|
goto T504; |
1275 |
|
T504:; |
1276 |
|
goto T496; |
1277 |
|
goto T503; |
1278 |
|
T503:; |
1279 |
|
if(((V184))==Cnil){ |
1280 |
|
goto T506;} |
1281 |
|
V187= cdr(car((V184))); |
1282 |
|
if(((V186))==Cnil){ |
1283 |
|
goto T512;} |
1284 |
|
{register object V189; |
1285 |
|
register object V190; |
1286 |
|
V189= (V186); |
1287 |
|
V186= make_cons((V187),Cnil); |
1288 |
|
V190= (V186); |
1289 |
|
if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189)); |
1290 |
|
((V189))->c.c_cdr = (V190); |
1291 |
|
goto T506;} |
1292 |
|
goto T512; |
1293 |
|
T512:; |
1294 |
|
V186= make_cons((V187),Cnil); |
1295 |
|
V185= (V186); |
1296 |
|
goto T506; |
1297 |
|
T506:; |
1298 |
|
{register object V191; |
1299 |
|
base[2]= (V182); |
1300 |
|
base[3]= cdr((V184)); |
1301 |
|
base[4]= VV[22]; |
1302 |
|
base[5]= (base0[4]->c.c_car); |
1303 |
|
vs_top=(vs_base=base+2)+4; |
1304 |
|
Lmember(); |
1305 |
|
vs_top=sup; |
1306 |
|
V191= vs_base[0]; |
1307 |
|
V184= (V191);} |
1308 |
|
goto T495; |
1309 |
|
goto T496; |
1310 |
|
T496:; |
1311 |
|
base[2]= (V185); |
1312 |
|
vs_top=(vs_base=base+2)+1; |
1313 |
|
return; |
1314 |
|
base[2]= Cnil; |
1315 |
|
vs_top=(vs_base=base+2)+1; |
1316 |
|
return; |
1317 |
|
base[2]= Cnil; |
1318 |
|
vs_top=(vs_base=base+2)+1; |
1319 |
|
return;}} |
1320 |
|
} |
1321 |
|
} |
1322 |
|
static object LnkTLI75(){return call_proc0(VV[75],(void **)(void *)&LnkLI75);} /* TYPE-ERROR */ |
1323 |
|
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* FIND */ |
1324 |
|
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SPECIFIC-ERROR */ |
1325 |
|
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* COUNT */ |
1326 |
|
|
1327 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1328 |
|
SYSTEM_SPECIAL_INIT |
1329 |
|
#endif |
1330 |
|
|