1 |
|
|
2 |
|
#include <cmpinclude.h> |
3 |
|
#include "defpackage.h" |
4 |
|
init_defpackage(){do_init(VV);} |
5 |
|
/* macro definition for DEFPACKAGE */ |
6 |
|
|
7 |
|
static L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_check; |
11 |
|
vs_top=sup; |
12 |
|
{object V1=base[0]->c.c_cdr; |
13 |
|
base[2]= (V1->c.c_car); |
14 |
|
V1=V1->c.c_cdr; |
15 |
|
base[3]= V1;} |
16 |
|
T3:; |
17 |
|
vs_base=vs_top; |
18 |
|
(void) (*Lnk3)(); |
19 |
|
vs_top=sup; |
20 |
|
{register object x= (VV[3]->s.s_dbind),V2= VV[4]; |
21 |
|
while(V2!=Cnil) |
22 |
|
if(eql(x,V2->c.c_car)){ |
23 |
|
goto T10; |
24 |
|
}else V2=V2->c.c_cdr;} |
25 |
|
T10:; |
26 |
|
base[4]= VV[6]; |
27 |
|
base[5]= VV[7]; |
28 |
|
base[6]= (VV[3]->s.s_dbind); |
29 |
|
vs_top=(vs_base=base+4)+3; |
30 |
|
Lcerror(); |
31 |
|
vs_top=sup; |
32 |
|
goto T3; |
33 |
|
base[4]=MMcons(Cnil,Cnil); |
34 |
|
(base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata); |
35 |
|
T18:; |
36 |
|
base[5]= (VV[3]->s.s_dbind); |
37 |
|
base[6]= base[3]; |
38 |
|
base[7]= VV[10]; |
39 |
|
base[8]= (VV[85]->s.s_gfdef); |
40 |
|
vs_top=(vs_base=base+5)+4; |
41 |
|
(void) (*Lnk86)(); |
42 |
|
vs_top=sup; |
43 |
|
V3= vs_base[0]; |
44 |
|
(void)(number_compare(small_fixnum(2),V3)<=0); |
45 |
|
base[5]= VV[11]; |
46 |
|
base[6]= (VV[3]->s.s_dbind); |
47 |
|
base[8]= (VV[3]->s.s_dbind); |
48 |
|
base[9]= base[3]; |
49 |
|
vs_top=(vs_base=base+8)+2; |
50 |
|
L5(base); |
51 |
|
vs_top=sup; |
52 |
|
V4= vs_base[0]; |
53 |
|
base[7]= CMPcar(V4); |
54 |
|
vs_top=(vs_base=base+5)+3; |
55 |
|
(void) (*Lnk87)(); |
56 |
|
vs_top=sup; |
57 |
|
goto T18; |
58 |
|
base[2]= coerce_to_string(base[2]); |
59 |
|
{object V5; |
60 |
|
object V6; |
61 |
|
object V7; |
62 |
|
register object V8; |
63 |
|
register object V9; |
64 |
|
register object V10; |
65 |
|
register object V11; |
66 |
|
register object V12; |
67 |
|
object V13; |
68 |
|
base[6]= VV[12]; |
69 |
|
base[7]= base[3]; |
70 |
|
vs_top=(vs_base=base+6)+2; |
71 |
|
L5(base); |
72 |
|
vs_top=sup; |
73 |
|
V16= vs_base[0]; |
74 |
|
{object V14; |
75 |
|
object V15= V16; |
76 |
|
if(V15==Cnil){ |
77 |
|
V5= Cnil; |
78 |
|
goto T41;} |
79 |
|
base[5]=V14=MMcons(Cnil,Cnil); |
80 |
|
T42:; |
81 |
|
(V14->c.c_car)= coerce_to_string((V15->c.c_car)); |
82 |
|
if((V15=MMcdr(V15))==Cnil){ |
83 |
|
V5= base[5]; |
84 |
|
goto T41;} |
85 |
|
V14=MMcdr(V14)=MMcons(Cnil,Cnil); |
86 |
|
goto T42;} |
87 |
|
T41:; |
88 |
|
base[5]= VV[13]; |
89 |
|
base[6]= base[3]; |
90 |
|
vs_top=(vs_base=base+5)+2; |
91 |
|
L5(base); |
92 |
|
vs_top=sup; |
93 |
|
V17= vs_base[0]; |
94 |
|
V6= CMPcar(V17); |
95 |
|
base[5]= VV[14]; |
96 |
|
base[6]= base[3]; |
97 |
|
vs_top=(vs_base=base+5)+2; |
98 |
|
L5(base); |
99 |
|
vs_top=sup; |
100 |
|
V18= vs_base[0]; |
101 |
|
V7= CMPcar(V18); |
102 |
|
base[6]= VV[15]; |
103 |
|
base[7]= base[3]; |
104 |
|
vs_top=(vs_base=base+6)+2; |
105 |
|
L5(base); |
106 |
|
vs_top=sup; |
107 |
|
V21= vs_base[0]; |
108 |
|
{object V19; |
109 |
|
object V20= V21; |
110 |
|
if(V20==Cnil){ |
111 |
|
V8= Cnil; |
112 |
|
goto T55;} |
113 |
|
base[5]=V19=MMcons(Cnil,Cnil); |
114 |
|
T56:; |
115 |
|
(V19->c.c_car)= coerce_to_string((V20->c.c_car)); |
116 |
|
if((V20=MMcdr(V20))==Cnil){ |
117 |
|
V8= base[5]; |
118 |
|
goto T55;} |
119 |
|
V19=MMcdr(V19)=MMcons(Cnil,Cnil); |
120 |
|
goto T56;} |
121 |
|
T55:; |
122 |
|
base[6]= VV[16]; |
123 |
|
base[7]= base[3]; |
124 |
|
vs_top=(vs_base=base+6)+2; |
125 |
|
L5(base); |
126 |
|
vs_top=sup; |
127 |
|
V24= vs_base[0]; |
128 |
|
{object V22; |
129 |
|
object V23= V24; |
130 |
|
if(V23==Cnil){ |
131 |
|
V9= Cnil; |
132 |
|
goto T61;} |
133 |
|
base[5]=V22=MMcons(Cnil,Cnil); |
134 |
|
T62:; |
135 |
|
(V22->c.c_car)= coerce_to_string((V23->c.c_car)); |
136 |
|
if((V23=MMcdr(V23))==Cnil){ |
137 |
|
V9= base[5]; |
138 |
|
goto T61;} |
139 |
|
V22=MMcdr(V22)=MMcons(Cnil,Cnil); |
140 |
|
goto T62;} |
141 |
|
T61:; |
142 |
|
base[6]= VV[17]; |
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(V26==Cnil){ |
151 |
|
V10= Cnil; |
152 |
|
goto T67;} |
153 |
|
base[5]=V25=MMcons(Cnil,Cnil); |
154 |
|
T68:; |
155 |
|
(V25->c.c_car)= coerce_to_string((V26->c.c_car)); |
156 |
|
if((V26=MMcdr(V26))==Cnil){ |
157 |
|
V10= base[5]; |
158 |
|
goto T67;} |
159 |
|
V25=MMcdr(V25)=MMcons(Cnil,Cnil); |
160 |
|
goto T68;} |
161 |
|
T67:; |
162 |
|
T75:; |
163 |
|
base[5]= VV[19]; |
164 |
|
base[6]= base[3]; |
165 |
|
vs_top=(vs_base=base+5)+2; |
166 |
|
L4(base); |
167 |
|
vs_top=sup; |
168 |
|
V28= coerce_to_string(CMPcar((VV[18]->s.s_dbind))); |
169 |
|
{object V30; |
170 |
|
object V31= CMPcdr((VV[18]->s.s_dbind)); |
171 |
|
if(V31==Cnil){ |
172 |
|
V29= Cnil; |
173 |
|
goto T84;} |
174 |
|
base[5]=V30=MMcons(Cnil,Cnil); |
175 |
|
T85:; |
176 |
|
(V30->c.c_car)= coerce_to_string((V31->c.c_car)); |
177 |
|
if((V31=MMcdr(V31))==Cnil){ |
178 |
|
V29= base[5]; |
179 |
|
goto T84;} |
180 |
|
V30=MMcdr(V30)=MMcons(Cnil,Cnil); |
181 |
|
goto T85;} |
182 |
|
T84:; |
183 |
|
(void)(make_cons(/* INLINE-ARGS */V28,V29)); |
184 |
|
goto T75; |
185 |
|
T90:; |
186 |
|
base[5]= VV[21]; |
187 |
|
base[6]= base[3]; |
188 |
|
vs_top=(vs_base=base+5)+2; |
189 |
|
L4(base); |
190 |
|
vs_top=sup; |
191 |
|
V32= coerce_to_string(CMPcar((VV[18]->s.s_dbind))); |
192 |
|
{object V34; |
193 |
|
object V35= CMPcdr((VV[18]->s.s_dbind)); |
194 |
|
if(V35==Cnil){ |
195 |
|
V33= Cnil; |
196 |
|
goto T99;} |
197 |
|
base[5]=V34=MMcons(Cnil,Cnil); |
198 |
|
T100:; |
199 |
|
(V34->c.c_car)= coerce_to_string((V35->c.c_car)); |
200 |
|
if((V35=MMcdr(V35))==Cnil){ |
201 |
|
V33= base[5]; |
202 |
|
goto T99;} |
203 |
|
V34=MMcdr(V34)=MMcons(Cnil,Cnil); |
204 |
|
goto T100;} |
205 |
|
T99:; |
206 |
|
(void)(make_cons(/* INLINE-ARGS */V32,V33)); |
207 |
|
goto T90; |
208 |
|
base[6]= VV[22]; |
209 |
|
base[7]= base[3]; |
210 |
|
vs_top=(vs_base=base+6)+2; |
211 |
|
L5(base); |
212 |
|
vs_top=sup; |
213 |
|
V38= vs_base[0]; |
214 |
|
{object V36; |
215 |
|
object V37= V38; |
216 |
|
if(V37==Cnil){ |
217 |
|
V13= Cnil; |
218 |
|
goto T103;} |
219 |
|
base[5]=V36=MMcons(Cnil,Cnil); |
220 |
|
T104:; |
221 |
|
(V36->c.c_car)= coerce_to_string((V37->c.c_car)); |
222 |
|
if((V37=MMcdr(V37))==Cnil){ |
223 |
|
V13= base[5]; |
224 |
|
goto T103;} |
225 |
|
V36=MMcdr(V36)=MMcons(Cnil,Cnil); |
226 |
|
goto T104;} |
227 |
|
T103:; |
228 |
|
T112:; |
229 |
|
base[5]= (V8); |
230 |
|
base[6]= (V9); |
231 |
|
T122:; |
232 |
|
(void)(CMPcdr((VV[18]->s.s_dbind))); |
233 |
|
goto T122; |
234 |
|
T132:; |
235 |
|
(void)(CMPcdr((VV[18]->s.s_dbind))); |
236 |
|
goto T132; |
237 |
|
vs_top=(vs_base=base+5)+4; |
238 |
|
L2(base); |
239 |
|
vs_top=sup; |
240 |
|
base[5]= VV[25]; |
241 |
|
base[6]= CMPcar((VV[23]->s.s_dbind)); |
242 |
|
T145:; |
243 |
|
(void)(CMPcdr((VV[23]->s.s_dbind))); |
244 |
|
{object V39= (VV[26]->s.s_dbind); |
245 |
|
if(!eql(V39,VV[27]))goto T152; |
246 |
|
goto T146; |
247 |
|
T152:; |
248 |
|
if(!eql(V39,VV[28]))goto T153; |
249 |
|
goto T146; |
250 |
|
T153:; |
251 |
|
if(!eql(V39,VV[29]))goto T154; |
252 |
|
goto T146; |
253 |
|
T154:; |
254 |
|
if(!eql(V39,VV[30]))goto T155; |
255 |
|
goto T146; |
256 |
|
T155:;} |
257 |
|
T146:; |
258 |
|
goto T145; |
259 |
|
vs_top=(vs_base=base+5)+3; |
260 |
|
Lerror(); |
261 |
|
vs_top=sup; |
262 |
|
goto T112; |
263 |
|
T159:; |
264 |
|
base[5]= (V10); |
265 |
|
base[6]= (V9); |
266 |
|
vs_top=(vs_base=base+5)+2; |
267 |
|
L2(base); |
268 |
|
vs_top=sup; |
269 |
|
base[5]= VV[31]; |
270 |
|
base[6]= CMPcar((VV[23]->s.s_dbind)); |
271 |
|
T172:; |
272 |
|
(void)(CMPcdr((VV[23]->s.s_dbind))); |
273 |
|
{object V40= (VV[26]->s.s_dbind); |
274 |
|
if(!eql(V40,VV[27]))goto T179; |
275 |
|
goto T173; |
276 |
|
T179:; |
277 |
|
if(!eql(V40,VV[28]))goto T180; |
278 |
|
goto T173; |
279 |
|
T180:;} |
280 |
|
T173:; |
281 |
|
goto T172; |
282 |
|
vs_top=(vs_base=base+5)+3; |
283 |
|
Lerror(); |
284 |
|
vs_top=sup; |
285 |
|
goto T159; |
286 |
|
V41= list(2,VV[46],base[2]); |
287 |
|
V42= list(3,VV[48],base[2],base[2]); |
288 |
|
if(((V5))==Cnil){ |
289 |
|
goto T185;} |
290 |
|
V44= list(4,VV[48],base[2],base[2],list(2,VV[49],(V5))); |
291 |
|
V43= make_cons(/* INLINE-ARGS */V44,Cnil); |
292 |
|
goto T183; |
293 |
|
T185:; |
294 |
|
V43= Cnil; |
295 |
|
T183:; |
296 |
|
base[5]= VV[50]; |
297 |
|
base[6]= base[3]; |
298 |
|
base[7]= VV[10]; |
299 |
|
base[8]= (VV[85]->s.s_gfdef); |
300 |
|
vs_top=(vs_base=base+5)+4; |
301 |
|
Lmember(); |
302 |
|
vs_top=sup; |
303 |
|
if((vs_base[0])==Cnil){ |
304 |
|
goto T189;} |
305 |
|
V46= list(3,VV[51],list(2,VV[52],list(2,VV[46],base[2])),base[2]); |
306 |
|
V45= make_cons(/* INLINE-ARGS */V46,Cnil); |
307 |
|
goto T187; |
308 |
|
T189:; |
309 |
|
V45= Cnil; |
310 |
|
T187:; |
311 |
|
V47= listA(3,VV[47],/* INLINE-ARGS */V42,append(V43,V45)); |
312 |
|
V48= list(2,VV[49],(V5)); |
313 |
|
if(((V7))==Cnil){ |
314 |
|
goto T197;} |
315 |
|
V49= Cnil; |
316 |
|
goto T195; |
317 |
|
T197:; |
318 |
|
V49= Cnil; |
319 |
|
T195:; |
320 |
|
V50= list(4,VV[45],/* INLINE-ARGS */V41,/* INLINE-ARGS */V47,listA(7,VV[53],base[2],VV[54],VV[55],VV[56],/* INLINE-ARGS */V48,V49)); |
321 |
|
if(((V6))==Cnil){ |
322 |
|
goto T201;} |
323 |
|
base[5]= base[2]; |
324 |
|
base[6]= VV[59]; |
325 |
|
vs_top=(vs_base=base+5)+2; |
326 |
|
Lintern(); |
327 |
|
vs_top=sup; |
328 |
|
V52= vs_base[0]; |
329 |
|
V53= list(3,VV[57],list(3,VV[58],list(2,VV[49],V52),VV[60]),(V6)); |
330 |
|
V51= make_cons(/* INLINE-ARGS */V53,Cnil); |
331 |
|
goto T199; |
332 |
|
T201:; |
333 |
|
V51= Cnil; |
334 |
|
T199:; |
335 |
|
V54= list(2,VV[62],list(2,VV[46],base[2])); |
336 |
|
V55= make_cons(/* INLINE-ARGS */V54,Cnil); |
337 |
|
if(((V8))==Cnil){ |
338 |
|
goto T209;} |
339 |
|
V57= list(2,VV[63],list(3,VV[64],VV[65],list(2,VV[49],(V8)))); |
340 |
|
base[5]= make_cons(/* INLINE-ARGS */V57,Cnil); |
341 |
|
goto T207; |
342 |
|
T209:; |
343 |
|
base[5]= Cnil; |
344 |
|
T207:; |
345 |
|
if(((V11))==Cnil){ |
346 |
|
goto T213;} |
347 |
|
{object V58; |
348 |
|
object V59= (V11); |
349 |
|
if(V59==Cnil){ |
350 |
|
base[6]= Cnil; |
351 |
|
goto T211;} |
352 |
|
base[7]=V58=MMcons(Cnil,Cnil); |
353 |
|
T215:; |
354 |
|
V61= list(2,VV[67],list(3,VV[68],VV[69],list(3,VV[70],VV[71],CMPcar((V59->c.c_car))))); |
355 |
|
(V58->c.c_car)= list(2,VV[66],list(3,VV[64],/* INLINE-ARGS */V61,list(2,VV[49],CMPcdr((V59->c.c_car))))); |
356 |
|
if((V59=MMcdr(V59))==Cnil){ |
357 |
|
base[6]= base[7]; |
358 |
|
goto T211;} |
359 |
|
V58=MMcdr(V58)=MMcons(Cnil,Cnil); |
360 |
|
goto T215;} |
361 |
|
T213:; |
362 |
|
base[6]= Cnil; |
363 |
|
T211:;{object V63; |
364 |
|
base[9]= VV[50]; |
365 |
|
base[10]= base[3]; |
366 |
|
vs_top=(vs_base=base+9)+2; |
367 |
|
L5(base); |
368 |
|
vs_top=sup; |
369 |
|
V66= vs_base[0]; |
370 |
|
{object V64; |
371 |
|
object V65= V66; |
372 |
|
if(V65==Cnil){ |
373 |
|
V63= Cnil; |
374 |
|
goto T220;} |
375 |
|
base[8]=V64=MMcons(Cnil,Cnil); |
376 |
|
T221:; |
377 |
|
(V64->c.c_car)= coerce_to_string((V65->c.c_car)); |
378 |
|
if((V65=MMcdr(V65))==Cnil){ |
379 |
|
V63= base[8]; |
380 |
|
goto T220;} |
381 |
|
V64=MMcdr(V64)=MMcons(Cnil,Cnil); |
382 |
|
goto T221;} |
383 |
|
T220:; |
384 |
|
if(V63==Cnil)goto T219; |
385 |
|
V62= V63; |
386 |
|
goto T218; |
387 |
|
T219:;} |
388 |
|
V62= VV[73]; |
389 |
|
T218:; |
390 |
|
V67= list(2,VV[72],list(2,VV[49],V62)); |
391 |
|
if(((V12))==Cnil){ |
392 |
|
goto T229;} |
393 |
|
{object V69; |
394 |
|
object V70= (V12); |
395 |
|
if(V70==Cnil){ |
396 |
|
base[8]= Cnil; |
397 |
|
goto T227;} |
398 |
|
base[9]=V69=MMcons(Cnil,Cnil); |
399 |
|
T231:; |
400 |
|
V72= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[70],VV[71],CMPcar((V70->c.c_car))))); |
401 |
|
(V69->c.c_car)= list(2,VV[74],list(3,VV[64],/* INLINE-ARGS */V72,list(2,VV[49],CMPcdr((V70->c.c_car))))); |
402 |
|
if((V70=MMcdr(V70))==Cnil){ |
403 |
|
base[8]= base[9]; |
404 |
|
goto T227;} |
405 |
|
V69=MMcdr(V69)=MMcons(Cnil,Cnil); |
406 |
|
goto T231;} |
407 |
|
T229:; |
408 |
|
base[8]= Cnil; |
409 |
|
T227:; |
410 |
|
if(((V9))==Cnil){ |
411 |
|
goto T235;} |
412 |
|
V73= list(3,VV[64],VV[76],list(2,VV[49],(V9))); |
413 |
|
base[9]= make_cons(/* INLINE-ARGS */V73,Cnil); |
414 |
|
goto T233; |
415 |
|
T235:; |
416 |
|
base[9]= Cnil; |
417 |
|
T233:; |
418 |
|
if(((V10))==Cnil){ |
419 |
|
goto T239;} |
420 |
|
V74= list(2,VV[77],list(3,VV[64],VV[78],list(2,VV[49],(V10)))); |
421 |
|
base[10]= make_cons(/* INLINE-ARGS */V74,Cnil); |
422 |
|
goto T237; |
423 |
|
T239:; |
424 |
|
base[10]= Cnil; |
425 |
|
T237:; |
426 |
|
if(((V13))==Cnil){ |
427 |
|
goto T243;} |
428 |
|
V75= list(3,VV[79],list(2,VV[80],list(2,VV[49],(V13))),VV[81]); |
429 |
|
base[11]= make_cons(/* INLINE-ARGS */V75,Cnil); |
430 |
|
goto T241; |
431 |
|
T243:; |
432 |
|
base[11]= Cnil; |
433 |
|
T241:; |
434 |
|
vs_top=(vs_base=base+8)+4; |
435 |
|
Lappend(); |
436 |
|
vs_top=sup; |
437 |
|
V68= vs_base[0]; |
438 |
|
base[7]= make_cons(/* INLINE-ARGS */V67,V68); |
439 |
|
vs_top=(vs_base=base+5)+3; |
440 |
|
Lappend(); |
441 |
|
vs_top=sup; |
442 |
|
V56= vs_base[0]; |
443 |
|
V76= listA(3,VV[61],/* INLINE-ARGS */V55,V56); |
444 |
|
V77= list(2,/* INLINE-ARGS */V76,list(2,VV[46],base[2])); |
445 |
|
base[5]= listA(4,VV[43],VV[44],/* INLINE-ARGS */V50,append(V51,/* INLINE-ARGS */V77)); |
446 |
|
vs_top=(vs_base=base+5)+1; |
447 |
|
return;} |
448 |
|
} |
449 |
|
/* local function FIND-DUPLICATES */ |
450 |
|
|
451 |
|
static L2(base0) |
452 |
|
register object *base0; |
453 |
|
{ register object *base=vs_base; |
454 |
|
register object *sup=base+VM2; VC2 |
455 |
|
vs_check; |
456 |
|
{object V78; |
457 |
|
vs_top[0]=Cnil; |
458 |
|
{object *p=vs_top; |
459 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
460 |
|
V78=(base[0]); |
461 |
|
vs_top=sup; |
462 |
|
{object V79; |
463 |
|
V79= Cnil; |
464 |
|
T247:; |
465 |
|
(void)(CMPcdr((V78))); |
466 |
|
T263:; |
467 |
|
base[1]= (VV[36]->s.s_dbind); |
468 |
|
base[2]= (V79); |
469 |
|
base[3]= VV[10]; |
470 |
|
base[4]= (VV[85]->s.s_gfdef); |
471 |
|
base[5]= VV[40]; |
472 |
|
base[6]= (VV[88]->s.s_gfdef); |
473 |
|
vs_top=(vs_base=base+1)+6; |
474 |
|
(void) (*Lnk89)(); |
475 |
|
vs_top=sup; |
476 |
|
{register object x= (VV[34]->s.s_dbind),V80= (VV[38]->s.s_dbind); |
477 |
|
while(V80!=Cnil) |
478 |
|
if(eql(x,V80->c.c_car)){ |
479 |
|
goto T280; |
480 |
|
}else V80=V80->c.c_cdr;} |
481 |
|
T280:; |
482 |
|
T283:; |
483 |
|
(void)(one_plus((VV[34]->s.s_dbind))); |
484 |
|
base[1]= (VV[36]->s.s_dbind); |
485 |
|
base[2]= (VV[41]->s.s_dbind); |
486 |
|
base[3]= VV[40]; |
487 |
|
base[4]= (VV[88]->s.s_gfdef); |
488 |
|
vs_top=(vs_base=base+1)+4; |
489 |
|
Lmember(); |
490 |
|
vs_top=sup; |
491 |
|
if((vs_base[0])==Cnil){ |
492 |
|
goto T284;} |
493 |
|
if(((VV[38]->s.s_dbind))==Cnil){ |
494 |
|
goto T301;}{object V81; |
495 |
|
V81= (VV[38]->s.s_dbind); |
496 |
|
V82= make_cons((VV[42]->s.s_dbind),Cnil); |
497 |
|
(void)(nconc(V81,/* INLINE-ARGS */V82)); |
498 |
|
goto T284;} |
499 |
|
T301:; |
500 |
|
V83= list(3,(VV[36]->s.s_dbind),(VV[34]->s.s_dbind),(VV[42]->s.s_dbind)); |
501 |
|
V79= make_cons(/* INLINE-ARGS */V83,(V79)); |
502 |
|
(VV[38]->s.s_dbind)= CMPcar((V79)); |
503 |
|
T284:; |
504 |
|
goto T283; |
505 |
|
goto T263; |
506 |
|
goto T247; |
507 |
|
base[1]= (V79); |
508 |
|
vs_top=(vs_base=base+1)+1; |
509 |
|
return;} |
510 |
|
} |
511 |
|
} |
512 |
|
/* local function OPTION-TEST */ |
513 |
|
|
514 |
|
static LC3(base0) |
515 |
|
register object *base0; |
516 |
|
{ register object *base=vs_base; |
517 |
|
register object *sup=base+VM3; VC3 |
518 |
|
vs_check; |
519 |
|
{object V84; |
520 |
|
object V85; |
521 |
|
V84=(base[0]); |
522 |
|
V85=(base[1]); |
523 |
|
vs_top=sup; |
524 |
|
if(!(type_of((V85))==t_cons)){ |
525 |
|
goto T309;} |
526 |
|
base[2]= (equal(CMPcar((V85)),(V84))?Ct:Cnil); |
527 |
|
vs_top=(vs_base=base+2)+1; |
528 |
|
return; |
529 |
|
T309:; |
530 |
|
base[2]= Cnil; |
531 |
|
vs_top=(vs_base=base+2)+1; |
532 |
|
return; |
533 |
|
} |
534 |
|
} |
535 |
|
/* local function OPTION-VALUES */ |
536 |
|
|
537 |
|
static L5(base0) |
538 |
|
register object *base0; |
539 |
|
{ register object *base=vs_base; |
540 |
|
register object *sup=base+VM4; VC4 |
541 |
|
vs_check; |
542 |
|
{register object V86; |
543 |
|
object V87; |
544 |
|
V86=(base[0]); |
545 |
|
V87=(base[1]); |
546 |
|
vs_top=sup; |
547 |
|
TTL:; |
548 |
|
T312:; |
549 |
|
base[2]= (V86); |
550 |
|
base[3]= (V87); |
551 |
|
base[4]= VV[40]; |
552 |
|
base[5]= (base0[4]->c.c_car); |
553 |
|
vs_top=(vs_base=base+2)+4; |
554 |
|
Lmember(); |
555 |
|
vs_top=sup; |
556 |
|
base[2]= (V86); |
557 |
|
base[3]= CMPcdr((VV[82]->s.s_dbind)); |
558 |
|
base[4]= VV[40]; |
559 |
|
base[5]= (base0[4]->c.c_car); |
560 |
|
vs_top=(vs_base=base+2)+4; |
561 |
|
Lmember(); |
562 |
|
vs_top=sup; |
563 |
|
(void)(((VV[82]->s.s_dbind))==Cnil); |
564 |
|
(void)(CMPcdr(CMPcar((VV[82]->s.s_dbind)))); |
565 |
|
goto T312; |
566 |
|
} |
567 |
|
} |
568 |
|
/* local function OPTION-VALUES-LIST */ |
569 |
|
|
570 |
|
static L4(base0) |
571 |
|
register object *base0; |
572 |
|
{ register object *base=vs_base; |
573 |
|
register object *sup=base+VM5; VC5 |
574 |
|
vs_check; |
575 |
|
{register object V88; |
576 |
|
object V89; |
577 |
|
V88=(base[0]); |
578 |
|
V89=(base[1]); |
579 |
|
vs_top=sup; |
580 |
|
TTL:; |
581 |
|
T335:; |
582 |
|
base[2]= (V88); |
583 |
|
base[3]= (V89); |
584 |
|
base[4]= VV[40]; |
585 |
|
base[5]= (base0[4]->c.c_car); |
586 |
|
vs_top=(vs_base=base+2)+4; |
587 |
|
Lmember(); |
588 |
|
vs_top=sup; |
589 |
|
base[2]= (V88); |
590 |
|
base[3]= CMPcdr((VV[82]->s.s_dbind)); |
591 |
|
base[4]= VV[40]; |
592 |
|
base[5]= (base0[4]->c.c_car); |
593 |
|
vs_top=(vs_base=base+2)+4; |
594 |
|
Lmember(); |
595 |
|
vs_top=sup; |
596 |
|
(void)(((VV[82]->s.s_dbind))==Cnil); |
597 |
|
(void)(CMPcdr(CMPcar((VV[82]->s.s_dbind)))); |
598 |
|
goto T335; |
599 |
|
} |
600 |
|
} |
601 |
|
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* FIND */ |
602 |
|
static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WARN */ |
603 |
|
static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* COUNT */ |
604 |
|
static LnkT3(){ call_or_link(VV[3],&Lnk3);} /* OPTION */ |