24 |
object V4; |
object V4; |
25 |
object V5; |
object V5; |
26 |
object V6; |
object V6; |
27 |
register object V7; |
object V7; |
28 |
object V8; |
object V8; |
29 |
register object V9; |
object V9; |
30 |
object V10; |
object V10; |
31 |
object V11; |
object V11; |
32 |
object V12; |
object V12; |
69 |
V7= Cnil; |
V7= Cnil; |
70 |
base[6]= (V2); |
base[6]= (V2); |
71 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
72 |
(void) (*Lnk7)(); |
(void) (*Lnk8)(); |
73 |
vs_top=sup; |
vs_top=sup; |
74 |
V8= vs_base[0]; |
V8= vs_base[0]; |
75 |
V9= Cnil; |
V9= Cnil; |
77 |
V11= Cnil; |
V11= Cnil; |
78 |
V12= Cnil; |
V12= Cnil; |
79 |
{object V15; |
{object V15; |
80 |
register object V16; |
object V16; |
81 |
register object V17; |
register object V17; |
82 |
base[6]= V2; |
base[6]= V2; |
83 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
99 |
V16= Cnil; |
V16= Cnil; |
100 |
V17= Cnil; |
V17= Cnil; |
101 |
{object V19; |
{object V19; |
102 |
register object V20; |
object V20; |
103 |
base[7]= (V15); |
base[7]= (V15); |
104 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
105 |
(void) (*Lnk8)(); |
(void) (*Lnk9)(); |
106 |
vs_top=sup; |
vs_top=sup; |
107 |
V19= vs_base[0]; |
V19= vs_base[0]; |
108 |
V20= small_fixnum(0); |
V20= small_fixnum(0); |
142 |
goto T31;}} |
goto T31;}} |
143 |
goto T20; |
goto T20; |
144 |
T20:; |
T20:; |
145 |
{object V22; |
{register object V22; |
146 |
register object V23; |
register object V23; |
147 |
register object V24; |
register object V24; |
148 |
base[6]= V2; |
base[6]= V2; |
164 |
T58:; |
T58:; |
165 |
V23= Cnil; |
V23= Cnil; |
166 |
V24= Cnil; |
V24= Cnil; |
167 |
{long V26; |
{object V26; |
168 |
long V27; |
register object V27; |
169 |
base[6]= (V22); |
base[8]= (V22); |
170 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+8)+1; |
171 |
(void) (*Lnk8)(); |
Lpackage_use_list(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T66;} |
|
|
V26= fix(vs_base[0]); |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T67;} |
|
|
V27= fix(vs_base[0]); |
|
172 |
vs_top=sup; |
vs_top=sup; |
173 |
goto T68; |
V28= vs_base[0]; |
174 |
goto T66; |
V26= make_cons((V22),V28); |
175 |
T66:; |
V27= car((V26)); |
176 |
V26= fix(Cnil); |
goto T69; |
177 |
goto T67; |
T69:; |
178 |
T67:; |
if(!(endp_prop((V26)))){ |
179 |
V27= fix(Cnil); |
goto T70;} |
|
goto T68; |
|
|
T68:; |
|
|
{object V28; |
|
|
register object V29; |
|
|
V30 = make_fixnum(V27); |
|
|
V31 = make_fixnum(V26); |
|
|
V28= number_plus(V30,V31); |
|
|
V29= small_fixnum(0); |
|
|
goto T72; |
|
|
T72:; |
|
|
if(!(number_compare((V29),(V28))>=0)){ |
|
|
goto T73;} |
|
180 |
V23= Cnil; |
V23= Cnil; |
181 |
goto T57; |
goto T57; |
182 |
goto T73; |
goto T70; |
183 |
T73:; |
T70:; |
184 |
V32 = make_fixnum(V27); |
{long V29; |
185 |
if(!(number_compare((V29),V32)<0)){ |
long V30; |
186 |
goto T84;} |
base[8]= (V27); |
187 |
base[7]= (V22); |
vs_top=(vs_base=base+8)+1; |
188 |
base[8]= (V29); |
(void) (*Lnk9)(); |
189 |
vs_top=(vs_base=base+7)+2; |
if(vs_base>=vs_top){vs_top=sup;goto T79;} |
190 |
|
V29= fix(vs_base[0]); |
191 |
|
vs_base++; |
192 |
|
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
193 |
|
V30= fix(vs_base[0]); |
194 |
|
vs_top=sup; |
195 |
|
goto T81; |
196 |
|
goto T79; |
197 |
|
T79:; |
198 |
|
V29= fix(Cnil); |
199 |
|
goto T80; |
200 |
|
T80:; |
201 |
|
V30= fix(Cnil); |
202 |
|
goto T81; |
203 |
|
T81:; |
204 |
|
if(((V22))==((V27))){ |
205 |
|
goto T82;} |
206 |
|
V30= 0; |
207 |
|
goto T82; |
208 |
|
T82:; |
209 |
|
{object V31; |
210 |
|
register object V32; |
211 |
|
V33 = make_fixnum(V30); |
212 |
|
V34 = make_fixnum(V29); |
213 |
|
V31= number_plus(V33,V34); |
214 |
|
V32= small_fixnum(0); |
215 |
|
goto T89; |
216 |
|
T89:; |
217 |
|
if(!(number_compare((V32),(V31))>=0)){ |
218 |
|
goto T90;} |
219 |
|
goto T76; |
220 |
|
goto T90; |
221 |
|
T90:; |
222 |
|
V35 = make_fixnum(V30); |
223 |
|
if(!(number_compare((V32),V35)<0)){ |
224 |
|
goto T99;} |
225 |
|
base[9]= (V27); |
226 |
|
base[10]= (V32); |
227 |
|
vs_top=(vs_base=base+9)+2; |
228 |
siLpackage_internal(); |
siLpackage_internal(); |
229 |
vs_top=sup; |
vs_top=sup; |
230 |
V24= vs_base[0]; |
V24= vs_base[0]; |
231 |
goto T82; |
goto T97; |
232 |
goto T84; |
goto T99; |
233 |
T84:; |
T99:; |
234 |
base[7]= (V22); |
base[9]= (V27); |
235 |
V33 = make_fixnum(V27); |
V36 = make_fixnum(V30); |
236 |
base[8]= number_minus((V29),V33); |
base[10]= number_minus((V32),V36); |
237 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+9)+2; |
238 |
siLpackage_external(); |
siLpackage_external(); |
239 |
vs_top=sup; |
vs_top=sup; |
240 |
V24= vs_base[0]; |
V24= vs_base[0]; |
241 |
goto T82; |
goto T97; |
242 |
T82:; |
T97:; |
243 |
goto T80; |
goto T95; |
244 |
T80:; |
T95:; |
245 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
246 |
goto T90;} |
goto T105;} |
247 |
goto T81; |
goto T96; |
248 |
goto T90; |
goto T105; |
249 |
T90:; |
T105:; |
250 |
V23= car((V24)); |
V23= car((V24)); |
251 |
base[7]= (V23); |
if(((V27))==((V22))){ |
252 |
vs_top=(vs_base=base+7)+1; |
goto T111;} |
253 |
|
base[10]= symbol_name((V23)); |
254 |
|
base[11]= (V22); |
255 |
|
vs_top=(vs_base=base+10)+2; |
256 |
|
Lfind_symbol(); |
257 |
|
Llist(); |
258 |
|
vs_top=sup; |
259 |
|
base[9]= vs_base[0]; |
260 |
|
vs_top=(vs_base=base+9)+1; |
261 |
|
Llast(); |
262 |
|
vs_top=sup; |
263 |
|
V37= vs_base[0]; |
264 |
|
if(!((VV[0])==(car(V37)))){ |
265 |
|
goto T110;} |
266 |
|
goto T111; |
267 |
|
T111:; |
268 |
|
base[9]= (V23); |
269 |
|
vs_top=(vs_base=base+9)+1; |
270 |
Lsymbol_package(); |
Lsymbol_package(); |
271 |
vs_top=sup; |
vs_top=sup; |
272 |
V34= vs_base[0]; |
V38= vs_base[0]; |
273 |
if(((V2))==(V34)){ |
if(((V2))==(V38)){ |
274 |
goto T95;} |
goto T120;} |
275 |
base[7]= (V23); |
base[9]= (V23); |
276 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+9)+1; |
277 |
Lsymbol_package(); |
Lsymbol_package(); |
278 |
vs_top=sup; |
vs_top=sup; |
279 |
V35= vs_base[0]; |
V39= vs_base[0]; |
280 |
if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI10))(V39,(V5))))!=Cnil){ |
281 |
goto T95;} |
goto T120;} |
282 |
V9= make_cons(V23,(V9)); |
V9= make_cons(V23,(V9)); |
283 |
goto T95; |
goto T120; |
284 |
T95:; |
T120:; |
285 |
|
goto T110; |
286 |
|
T110:; |
287 |
V24= cdr((V24)); |
V24= cdr((V24)); |
288 |
goto T80; |
goto T95; |
289 |
goto T81; |
goto T96; |
290 |
T81:; |
T96:; |
291 |
goto T78; |
goto T93; |
292 |
goto T78; |
goto T93; |
293 |
T78:; |
T93:; |
294 |
V29= one_plus((V29)); |
V32= one_plus((V32)); |
295 |
goto T72;}}} |
goto T89;}} |
296 |
|
goto T76; |
297 |
|
T76:; |
298 |
|
V26= cdr((V26)); |
299 |
|
V27= car((V26)); |
300 |
|
goto T69;}} |
301 |
goto T57; |
goto T57; |
302 |
T57:; |
T57:; |
303 |
V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9))); |
V10= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V9))); |
304 |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10))); |
V11= (VFUN_NARGS=2,(*(LnkLI12))((V8),(V10))); |
305 |
V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10))); |
V12= (VFUN_NARGS=2,(*(LnkLI12))((V9),(V10))); |
306 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
307 |
goto T119;} |
goto T149;} |
308 |
V38= make_cons(VV[1],(V4)); |
V42= make_cons(VV[2],(V4)); |
309 |
base[6]= make_cons(/* INLINE-ARGS */V38,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V42,Cnil); |
310 |
goto T117; |
goto T147; |
311 |
goto T119; |
goto T149; |
312 |
T119:; |
T149:; |
313 |
base[6]= Cnil; |
base[6]= Cnil; |
314 |
goto T117; |
goto T147; |
315 |
T117:; |
T147:; |
316 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
317 |
goto T123;} |
goto T153;} |
318 |
V39= make_cons(VV[2],(V6)); |
V43= make_cons(VV[3],(V6)); |
319 |
base[7]= make_cons(/* INLINE-ARGS */V39,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V43,Cnil); |
320 |
goto T121; |
goto T151; |
321 |
goto T123; |
goto T153; |
322 |
T123:; |
T153:; |
323 |
base[7]= Cnil; |
base[7]= Cnil; |
324 |
goto T121; |
goto T151; |
325 |
T121:; |
T151:; |
326 |
if(((V7))==Cnil){ |
if(((V7))==Cnil){ |
327 |
goto T127;} |
goto T157;} |
328 |
V40= make_cons(VV[3],(V7)); |
V44= make_cons(VV[4],(V7)); |
329 |
base[8]= make_cons(/* INLINE-ARGS */V40,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V44,Cnil); |
330 |
goto T125; |
goto T155; |
331 |
goto T127; |
goto T157; |
332 |
T127:; |
T157:; |
333 |
base[8]= Cnil; |
base[8]= Cnil; |
334 |
goto T125; |
goto T155; |
335 |
T125:; |
T155:; |
336 |
if(((V11))==Cnil){ |
if(((V11))==Cnil){ |
337 |
goto T131;} |
goto T161;} |
338 |
{object V42; |
{object V46; |
339 |
object V43= (V11); |
object V47= (V11); |
340 |
if(endp(V43)){ |
if(endp(V47)){ |
341 |
V41= Cnil; |
V45= Cnil; |
342 |
goto T133;} |
goto T163;} |
343 |
base[10]=V42=MMcons(Cnil,Cnil); |
base[10]=V46=MMcons(Cnil,Cnil); |
344 |
goto T134; |
goto T164; |
345 |
T134:; |
T164:; |
346 |
(V42->c.c_car)= symbol_name((V43->c.c_car)); |
(V46->c.c_car)= symbol_name((V47->c.c_car)); |
347 |
V43=MMcdr(V43); |
V47=MMcdr(V47); |
348 |
if(endp(V43)){ |
if(endp(V47)){ |
349 |
V41= base[10]; |
V45= base[10]; |
350 |
goto T133;} |
goto T163;} |
351 |
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
V46=MMcdr(V46)=MMcons(Cnil,Cnil); |
352 |
goto T134;} |
goto T164;} |
353 |
goto T133; |
goto T163; |
354 |
T133:; |
T163:; |
355 |
V44= make_cons(VV[4],V41); |
V48= make_cons(VV[5],V45); |
356 |
base[9]= make_cons(/* INLINE-ARGS */V44,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V48,Cnil); |
357 |
goto T129; |
goto T159; |
358 |
goto T131; |
goto T161; |
359 |
T131:; |
T161:; |
360 |
base[9]= Cnil; |
base[9]= Cnil; |
361 |
goto T129; |
goto T159; |
362 |
T129:; |
T159:; |
363 |
if(((V10))==Cnil){ |
if(((V10))==Cnil){ |
364 |
goto T138;} |
goto T168;} |
365 |
{object V45; |
{object V49; |
366 |
object V46= (V10); |
object V50= (V10); |
367 |
if(endp(V46)){ |
if(endp(V50)){ |
368 |
base[10]= Cnil; |
base[10]= Cnil; |
369 |
goto T136;} |
goto T166;} |
370 |
base[11]=V45=MMcons(Cnil,Cnil); |
base[11]=V49=MMcons(Cnil,Cnil); |
371 |
goto T140; |
goto T170; |
372 |
T140:; |
T170:; |
373 |
base[13]= (V46->c.c_car); |
base[13]= (V50->c.c_car); |
374 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
375 |
Lsymbol_package(); |
Lsymbol_package(); |
376 |
vs_top=sup; |
vs_top=sup; |
378 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
379 |
Lpackage_name(); |
Lpackage_name(); |
380 |
vs_top=sup; |
vs_top=sup; |
381 |
V48= vs_base[0]; |
V52= vs_base[0]; |
382 |
V49= list(3,VV[5],V48,symbol_name((V46->c.c_car))); |
V53= list(3,VV[6],V52,symbol_name((V50->c.c_car))); |
383 |
(V45->c.c_car)= make_cons(/* INLINE-ARGS */V49,Cnil); |
(V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil); |
384 |
V46=MMcdr(V46); |
V50=MMcdr(V50); |
385 |
if(endp(V46)){ |
if(endp(V50)){ |
386 |
base[10]= base[11]; |
base[10]= base[11]; |
387 |
goto T136;} |
goto T166;} |
388 |
V45=MMcdr(V45)=MMcons(Cnil,Cnil); |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
389 |
goto T140;} |
goto T170;} |
390 |
goto T138; |
goto T168; |
391 |
T138:; |
T168:; |
392 |
base[10]= Cnil; |
base[10]= Cnil; |
393 |
goto T136; |
goto T166; |
394 |
T136:; |
T166:; |
395 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
396 |
goto T147;} |
goto T177;} |
397 |
{object V50; |
{object V54; |
398 |
object V51= (V12); |
object V55= (V12); |
399 |
if(endp(V51)){ |
if(endp(V55)){ |
400 |
base[11]= Cnil; |
base[11]= Cnil; |
401 |
goto T145;} |
goto T175;} |
402 |
base[12]=V50=MMcons(Cnil,Cnil); |
base[12]=V54=MMcons(Cnil,Cnil); |
403 |
goto T149; |
goto T179; |
404 |
T149:; |
T179:; |
405 |
base[14]= (V51->c.c_car); |
base[14]= (V55->c.c_car); |
406 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
407 |
Lsymbol_package(); |
Lsymbol_package(); |
408 |
vs_top=sup; |
vs_top=sup; |
410 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
411 |
Lpackage_name(); |
Lpackage_name(); |
412 |
vs_top=sup; |
vs_top=sup; |
413 |
V53= vs_base[0]; |
V57= vs_base[0]; |
414 |
V54= list(3,VV[6],V53,symbol_name((V51->c.c_car))); |
V58= list(3,VV[7],V57,symbol_name((V55->c.c_car))); |
415 |
(V50->c.c_car)= make_cons(/* INLINE-ARGS */V54,Cnil); |
(V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil); |
416 |
V51=MMcdr(V51); |
V55=MMcdr(V55); |
417 |
if(endp(V51)){ |
if(endp(V55)){ |
418 |
base[11]= base[12]; |
base[11]= base[12]; |
419 |
goto T145;} |
goto T175;} |
420 |
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
V54=MMcdr(V54)=MMcons(Cnil,Cnil); |
421 |
goto T149;} |
goto T179;} |
422 |
goto T147; |
goto T177; |
423 |
T147:; |
T177:; |
424 |
base[11]= Cnil; |
base[11]= Cnil; |
425 |
goto T145; |
goto T175; |
426 |
T145:; |
T175:; |
427 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
428 |
Lappend(); |
Lappend(); |
429 |
vs_top=sup; |
vs_top=sup; |
430 |
V37= vs_base[0]; |
V41= vs_base[0]; |
431 |
base[6]= listA(3,VV[0],(V3),V37); |
base[6]= listA(3,VV[1],(V3),V41); |
432 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
433 |
return;}} |
return;}} |
434 |
} |
} |
435 |
} |
} |
436 |
static object LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[11],(void **)&LnkLI11,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */ |
static object LnkTLI12(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[12],(void **)&LnkLI12,ap);va_end(ap);return V1;} /* SET-DIFFERENCE */ |
437 |
static object LnkTLI10(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[10],(void **)&LnkLI10,ap);va_end(ap);return V1;} /* INTERSECTION */ |
static object LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[11],(void **)&LnkLI11,ap);va_end(ap);return V1;} /* INTERSECTION */ |
438 |
static object LnkTLI9(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[9],(void **)&LnkLI9,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI10(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[10],(void **)&LnkLI10,ap);va_end(ap);return V1;} /* FIND */ |
439 |
static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SIZE */ |
static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* PACKAGE-SIZE */ |
440 |
static void LnkT7(){ call_or_link(VV[7],(void **)&Lnk7);} /* PACKAGE-SHADOWING-SYMBOLS */ |
static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* PACKAGE-SHADOWING-SYMBOLS */ |
441 |
|
|
442 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
443 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |