31 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
32 |
goto TTL; |
goto TTL; |
33 |
TTL:; |
TTL:; |
34 |
{long V5 = (long)(*(LnkLI152))((V4)); |
{long V5 = (long)(*(LnkLI167))((V4)); |
35 |
VMR2((object)V5)} |
VMR2((object)V5)} |
36 |
} |
} |
37 |
/* local entry for function __si::MAKE-PV-TABLE */ |
/* local entry for function __si::MAKE-PV-TABLE */ |
102 |
V18=(Vcs[0]); |
V18=(Vcs[0]); |
103 |
V19=(Vcs[1]); |
V19=(Vcs[1]); |
104 |
{object V20; |
{object V20; |
105 |
V20= (*(LnkLI156))((V18),(V19)); |
V20= (*(LnkLI171))((V18),(V19)); |
106 |
(VV[13]->s.s_dbind)= make_cons(V20,(VV[13]->s.s_dbind)); |
(VV[13]->s.s_dbind)= make_cons(V20,(VV[13]->s.s_dbind)); |
107 |
{object V22 = (V20); |
{object V22 = (V20); |
108 |
VMR5(V22)}} |
VMR5(V22)}} |
136 |
V26=(Vcs[0]); |
V26=(Vcs[0]); |
137 |
V27=(Vcs[1]); |
V27=(Vcs[1]); |
138 |
base[0]= Cnil; |
base[0]= Cnil; |
139 |
{register object V28; |
{object V28; |
140 |
V31= make_cons((V27),(V26)); |
V31= make_cons((V27),(V26)); |
141 |
{object V29; |
{object V29; |
142 |
object V30= /* INLINE-ARGS */V31; |
object V30= /* INLINE-ARGS */V31; |
166 |
goto T19;} |
goto T19;} |
167 |
{register long V32; |
{register long V32; |
168 |
V32= 1; |
V32= 1; |
169 |
{register object V33; |
{object V33; |
170 |
object V34; |
object V34; |
171 |
V33= (V26); |
V33= (V26); |
172 |
V34= CMPcar((V33)); |
V34= CMPcar((V33)); |
189 |
goto T37; |
goto T37; |
190 |
T37:; |
T37:; |
191 |
V37 = CMPmake_fixnum(V32); |
V37 = CMPmake_fixnum(V32); |
192 |
(void)((*(LnkLI157))((V36),V37,(V28))); |
(void)((*(LnkLI172))((V36),V37,(V28))); |
193 |
V32= (long)(V32)+(1); |
V32= (long)(V32)+(1); |
194 |
V35= CMPcdr((V35)); |
V35= CMPcdr((V35)); |
195 |
V36= CMPcar((V35)); |
V36= CMPcar((V35)); |
201 |
goto T27;} |
goto T27;} |
202 |
goto T23; |
goto T23; |
203 |
T23:; |
T23:; |
204 |
{register object V38; |
{object V38; |
205 |
object V39; |
object V39; |
206 |
V38= (V27); |
V38= (V27); |
207 |
V39= CMPcar((V38)); |
V39= CMPcar((V38)); |
213 |
goto T59; |
goto T59; |
214 |
T59:; |
T59:; |
215 |
V40 = CMPmake_fixnum(V32); |
V40 = CMPmake_fixnum(V32); |
216 |
(void)((*(LnkLI157))((V39),V40,(V28))); |
(void)((*(LnkLI172))((V39),V40,(V28))); |
217 |
V32= (long)(V32)+(1); |
V32= (long)(V32)+(1); |
218 |
V38= CMPcdr((V38)); |
V38= CMPcdr((V38)); |
219 |
V39= CMPcar((V38)); |
V39= CMPcar((V38)); |
220 |
goto T58;} |
goto T58;} |
221 |
goto T54; |
goto T54; |
222 |
T54:; |
T54:; |
223 |
V41 = (V28); |
V41= Ct; |
224 |
V42 = V32; |
STSET(fixnum,(V28),4, V32); |
225 |
V43= Ct; |
(void)(V32);} |
|
STSET(fixnum,V41,4, V42); |
|
|
(void)(V42);} |
|
226 |
goto T19; |
goto T19; |
227 |
T19:; |
T19:; |
228 |
{object V44 = (V28); |
{object V42 = (V28); |
229 |
VMR7(V44)}} |
VMR7(V42)}} |
230 |
va_end(ap); |
va_end(ap); |
231 |
base[0]=base[0]; |
base[0]=base[0]; |
232 |
return Cnil;} |
return Cnil;} |
233 |
}} |
}} |
234 |
/* local entry for function NOTE-PV-TABLE-REFERENCE */ |
/* local entry for function NOTE-PV-TABLE-REFERENCE */ |
235 |
|
|
236 |
static object LI10(V48,V49,V50) |
static object LI10(V46,V47,V48) |
237 |
|
|
238 |
object V48;object V49;object V50; |
object V46;object V47;object V48; |
239 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
240 |
goto TTL; |
goto TTL; |
241 |
TTL:; |
TTL:; |
242 |
{object V51; |
{object V49; |
243 |
base[0]= (V48); |
base[0]= (V46); |
244 |
base[1]= (VV[19]->s.s_dbind); |
base[1]= (VV[19]->s.s_dbind); |
245 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
246 |
Lgethash(); |
Lgethash(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
V51= vs_base[0]; |
V49= vs_base[0]; |
249 |
if(!(type_of((V51))==t_cons||((V51))==Cnil)){ |
if(!(type_of((V49))==t_cons||((V49))==Cnil)){ |
250 |
goto T75;} |
goto T75;} |
251 |
{object V52; |
{object V50; |
252 |
{register object x= (V50),V53= (V51); |
{register object x= (V48),V51= (V49); |
253 |
while(V53!=Cnil) |
while(V51!=Cnil) |
254 |
if(EQ(x,V53->c.c_car->c.c_car) &&V53->c.c_car != Cnil){ |
if(EQ(x,V51->c.c_car->c.c_car) &&V51->c.c_car != Cnil){ |
255 |
V52= (V53->c.c_car); |
V50= (V51->c.c_car); |
256 |
goto T78; |
goto T78; |
257 |
}else V53=V53->c.c_cdr; |
}else V51=V51->c.c_cdr; |
258 |
V52= Cnil;} |
V50= Cnil;} |
259 |
goto T78; |
goto T78; |
260 |
T78:; |
T78:; |
261 |
if(((V52))!=Cnil){ |
if(((V50))!=Cnil){ |
262 |
goto T79;} |
goto T79;} |
263 |
if(!(((long)length((V51)))>(8))){ |
if(!(((long)length((V49)))>(8))){ |
264 |
goto T79;} |
goto T79;} |
265 |
{register object V54; |
{register object V52; |
266 |
base[0]= VV[20]; |
base[0]= VV[20]; |
267 |
base[1]= small_fixnum(16); |
base[1]= small_fixnum(16); |
268 |
base[2]= VV[21]; |
base[2]= VV[21]; |
270 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
271 |
Lmake_hash_table(); |
Lmake_hash_table(); |
272 |
vs_top=sup; |
vs_top=sup; |
273 |
V54= vs_base[0]; |
V52= vs_base[0]; |
274 |
{register object V55; |
{register object V53; |
275 |
register object V56; |
register object V54; |
276 |
V55= (V51); |
V53= (V49); |
277 |
V56= CMPcar((V55)); |
V54= CMPcar((V53)); |
278 |
goto T93; |
goto T93; |
279 |
T93:; |
T93:; |
280 |
if(!(((V55))==Cnil)){ |
if(!(((V53))==Cnil)){ |
281 |
goto T94;} |
goto T94;} |
282 |
goto T89; |
goto T89; |
283 |
goto T94; |
goto T94; |
284 |
T94:; |
T94:; |
285 |
{register object V57; |
{register object V55; |
286 |
register object V58; |
register object V56; |
287 |
register object V59; |
register object V57; |
288 |
V57= CMPcar((V56)); |
V55= CMPcar((V54)); |
289 |
V58= (V54); |
V56= (V52); |
290 |
V59= CMPcdr((V56)); |
V57= CMPcdr((V54)); |
291 |
base[3]= (V57); |
base[3]= (V55); |
292 |
base[4]= (V58); |
base[4]= (V56); |
293 |
base[5]= (V59); |
base[5]= (V57); |
294 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
295 |
siLhash_set(); |
siLhash_set(); |
296 |
vs_top=sup;} |
vs_top=sup;} |
297 |
V55= CMPcdr((V55)); |
V53= CMPcdr((V53)); |
298 |
V56= CMPcar((V55)); |
V54= CMPcar((V53)); |
299 |
goto T93;} |
goto T93;} |
300 |
goto T89; |
goto T89; |
301 |
T89:; |
T89:; |
302 |
{object V61; |
{object V59; |
303 |
V61= (VV[19]->s.s_dbind); |
V59= (VV[19]->s.s_dbind); |
304 |
base[0]= V48; |
base[0]= V46; |
305 |
base[1]= (V61); |
base[1]= (V59); |
306 |
base[2]= V54; |
base[2]= V52; |
307 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
308 |
siLhash_set(); |
siLhash_set(); |
309 |
vs_top=sup;}} |
vs_top=sup;}} |
310 |
goto T79; |
goto T79; |
311 |
T79:; |
T79:; |
312 |
if(!(type_of((V51))==t_cons||((V51))==Cnil)){ |
if(!(type_of((V49))==t_cons||((V49))==Cnil)){ |
313 |
goto T75;} |
goto T75;} |
314 |
if(((V52))!=Cnil){ |
if(((V50))!=Cnil){ |
315 |
goto T118;} |
goto T118;} |
316 |
{object V63; |
{object V61; |
317 |
V63= make_cons((V50),(V49)); |
V61= make_cons((V48),(V47)); |
318 |
if(!(type_of((V51))==t_cons)){ |
if(!(type_of((V49))==t_cons)){ |
319 |
goto T122;} |
goto T122;} |
320 |
{object V66; |
{object V64; |
321 |
V66= make_cons(V63,CMPcdr(V51)); |
V64= make_cons(V61,CMPcdr(V49)); |
322 |
(V51)->c.c_cdr = (V66); |
(V49)->c.c_cdr = (V64); |
323 |
goto T116;} |
goto T116;} |
324 |
goto T122; |
goto T122; |
325 |
T122:; |
T122:; |
326 |
{object V68; |
{object V66; |
327 |
object V69; |
object V67; |
328 |
V68= (VV[19]->s.s_dbind); |
V66= (VV[19]->s.s_dbind); |
329 |
V69= make_cons((V63),Cnil); |
V67= make_cons((V61),Cnil); |
330 |
base[1]= V48; |
base[1]= V46; |
331 |
base[2]= (V68); |
base[2]= (V66); |
332 |
base[3]= (V69); |
base[3]= (V67); |
333 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
334 |
siLhash_set(); |
siLhash_set(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
goto T116;}} |
goto T116;}} |
337 |
goto T118; |
goto T118; |
338 |
T118:; |
T118:; |
339 |
{object V72; |
{object V70; |
340 |
V72= make_cons(V49,CMPcdr(V52)); |
V70= make_cons(V47,CMPcdr(V50)); |
341 |
(V52)->c.c_cdr = (V72);} |
(V50)->c.c_cdr = (V70);} |
342 |
goto T116; |
goto T116; |
343 |
T116:; |
T116:; |
344 |
{object V73 = Cnil; |
{object V71 = Cnil; |
345 |
VMR8(V73)}} |
VMR8(V71)}} |
346 |
goto T75; |
goto T75; |
347 |
T75:; |
T75:; |
348 |
{object V74; |
{object V72; |
349 |
base[0]= (V50); |
base[0]= (V48); |
350 |
base[1]= (V51); |
base[1]= (V49); |
351 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
352 |
Lgethash(); |
Lgethash(); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
V74= vs_base[0]; |
V72= vs_base[0]; |
355 |
if(!(type_of((V74))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
356 |
goto T137;} |
goto T137;} |
357 |
{object V77; |
{object V75; |
358 |
V77= make_cons(V49,CMPcdr(V74)); |
V75= make_cons(V47,CMPcdr(V72)); |
359 |
(V74)->c.c_cdr = (V77); |
(V72)->c.c_cdr = (V75); |
360 |
goto T71;} |
goto T71;} |
361 |
goto T137; |
goto T137; |
362 |
T137:; |
T137:; |
363 |
{object V80; |
{object V78; |
364 |
V80= make_cons((V49),Cnil); |
V78= make_cons((V47),Cnil); |
365 |
base[1]= V50; |
base[1]= V48; |
366 |
base[2]= V51; |
base[2]= V49; |
367 |
base[3]= (V80); |
base[3]= (V78); |
368 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
369 |
siLhash_set(); |
siLhash_set(); |
370 |
vs_top=sup;}}} |
vs_top=sup;}}} |
371 |
goto T71; |
goto T71; |
372 |
T71:; |
T71:; |
373 |
{object V81 = Cnil; |
{object V79 = Cnil; |
374 |
VMR8(V81)} |
VMR8(V79)} |
375 |
base[0]=base[0]; |
base[0]=base[0]; |
376 |
return Cnil; |
return Cnil; |
377 |
} |
} |
378 |
/* local entry for function MAP-PV-TABLE-REFERENCES-OF */ |
/* local entry for function MAP-PV-TABLE-REFERENCES-OF */ |
379 |
|
|
380 |
static object LI11(V84,V85) |
static object LI11(V82,V83) |
381 |
|
|
382 |
object V84;register object V85; |
object V82;register object V83; |
383 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
384 |
goto TTL; |
goto TTL; |
385 |
TTL:; |
TTL:; |
386 |
{object V86; |
{object V84; |
387 |
base[0]= (V84); |
base[0]= (V82); |
388 |
base[1]= (VV[19]->s.s_dbind); |
base[1]= (VV[19]->s.s_dbind); |
389 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
390 |
Lgethash(); |
Lgethash(); |
391 |
vs_top=sup; |
vs_top=sup; |
392 |
V86= vs_base[0]; |
V84= vs_base[0]; |
393 |
if(!(type_of((V86))==t_cons||((V86))==Cnil)){ |
if(!(type_of((V84))==t_cons||((V84))==Cnil)){ |
394 |
goto T150;} |
goto T150;} |
395 |
{register object V87; |
{register object V85; |
396 |
register object V88; |
register object V86; |
397 |
V87= (V86); |
V85= (V84); |
398 |
V88= CMPcar((V87)); |
V86= CMPcar((V85)); |
399 |
goto T155; |
goto T155; |
400 |
T155:; |
T155:; |
401 |
if(!(((V87))==Cnil)){ |
if(!(((V85))==Cnil)){ |
402 |
goto T156;} |
goto T156;} |
403 |
goto T145; |
goto T145; |
404 |
goto T156; |
goto T156; |
405 |
T156:; |
T156:; |
406 |
(void)(( |
(void)(( |
407 |
(type_of((V85)) == t_sfun ?(*(((V85))->sfn.sfn_self)): |
(type_of((V83)) == t_sfun ?(*(((V83))->sfn.sfn_self)): |
408 |
(fcall.argd=2,type_of((V85))==t_vfun) ? |
(fcall.argd=2,type_of((V83))==t_vfun) ? |
409 |
(*(((V85))->sfn.sfn_self)): |
(*(((V83))->sfn.sfn_self)): |
410 |
(fcall.fun=((V85)),fcalln))(CMPcar((V88)),CMPcdr((V88))))); |
(fcall.fun=((V83)),fcalln))(CMPcar((V86)),CMPcdr((V86))))); |
411 |
V87= CMPcdr((V87)); |
V85= CMPcdr((V85)); |
412 |
V88= CMPcar((V87)); |
V86= CMPcar((V85)); |
413 |
goto T155;} |
goto T155;} |
414 |
goto T150; |
goto T150; |
415 |
T150:; |
T150:; |
416 |
base[0]= (V85); |
base[0]= (V83); |
417 |
base[1]= (V86); |
base[1]= (V84); |
418 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
419 |
Lmaphash(); |
Lmaphash(); |
420 |
vs_top=sup;} |
vs_top=sup;} |
421 |
goto T145; |
goto T145; |
422 |
T145:; |
T145:; |
423 |
{object V89 = (V84); |
{object V87 = (V82); |
424 |
VMR9(V89)} |
VMR9(V87)} |
425 |
base[0]=base[0]; |
base[0]=base[0]; |
426 |
return Cnil; |
return Cnil; |
427 |
} |
} |
431 |
{register object *base=vs_base; |
{register object *base=vs_base; |
432 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
433 |
vs_check; |
vs_check; |
434 |
{object V90; |
{object V88; |
435 |
object V91; |
object V89; |
436 |
object V92; |
object V90; |
437 |
check_arg(3); |
check_arg(3); |
438 |
V90=(base[0]); |
V88=(base[0]); |
439 |
V91=(base[1]); |
V89=(base[1]); |
440 |
V92=(base[2]); |
V90=(base[2]); |
441 |
vs_top=sup; |
vs_top=sup; |
442 |
goto TTL; |
goto TTL; |
443 |
TTL:; |
TTL:; |
448 |
return; |
return; |
449 |
goto T168; |
goto T168; |
450 |
T168:; |
T168:; |
451 |
{object V93; |
{object V91; |
452 |
V93= (*(LnkLI158))((V90),(V91)); |
V91= (*(LnkLI173))((V88),(V89)); |
453 |
if((V93)==Cnil){ |
if((V91)==Cnil){ |
454 |
base[3]= Cnil; |
base[3]= Cnil; |
455 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
456 |
return;} |
return;} |
457 |
base[3]= (V93); |
base[3]= (V91); |
458 |
base[4]= (V92); |
base[4]= (V90); |
459 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
460 |
(void) (*Lnk159)(Lclptr159); |
(void) (*Lnk174)(Lclptr174); |
461 |
return;} |
return;} |
462 |
} |
} |
463 |
} |
} |
464 |
/* local entry for function COMPUTE-PV-SLOT */ |
/* local entry for function COMPUTE-PV-SLOT */ |
465 |
|
|
466 |
static object LI13(V99,V100,V101,V102,V103) |
static object LI13(V97,V98,V99,V100,V101) |
467 |
|
|
468 |
register object V99;object V100;object V101;object V102;object V103; |
register object V97;object V98;object V99;object V100;object V101; |
469 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
470 |
goto TTL; |
goto TTL; |
471 |
TTL:; |
TTL:; |
472 |
if(!(type_of((V99))==t_symbol)){ |
if(!(type_of((V97))==t_symbol)){ |
473 |
goto T174;} |
goto T174;} |
474 |
base[0]= (V101); |
base[0]= (V99); |
475 |
base[1]= (V99); |
base[1]= (V97); |
476 |
base[2]= VV[24]; |
base[2]= VV[24]; |
477 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
478 |
(void) (*Lnk160)(); |
(void) (*Lnk175)(); |
479 |
vs_top=sup; |
vs_top=sup; |
480 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
481 |
goto T177;}{object V104; |
goto T177;}{object V102; |
482 |
{register long V105; |
{register long V103; |
483 |
V105= 0; |
V103= 0; |
484 |
{register object V106; |
{register object V104; |
485 |
object V107; |
object V105; |
486 |
V106= ((V100))->v.v_self[9]; |
V104= ((V98))->v.v_self[9]; |
487 |
V107= CMPcar((V106)); |
V105= CMPcar((V104)); |
488 |
goto T188; |
goto T188; |
489 |
T188:; |
T188:; |
490 |
if(!(((V106))==Cnil)){ |
if(!(((V104))==Cnil)){ |
491 |
goto T189;} |
goto T189;} |
492 |
V104= Cnil; |
V102= Cnil; |
493 |
goto T183; |
goto T183; |
494 |
goto T189; |
goto T189; |
495 |
T189:; |
T189:; |
496 |
if(!(((V99))==((V107)))){ |
if(!(((V97))==((V105)))){ |
497 |
goto T193;} |
goto T193;} |
498 |
V104= CMPmake_fixnum(V105); |
V102= CMPmake_fixnum(V103); |
499 |
goto T183; |
goto T183; |
500 |
goto T193; |
goto T193; |
501 |
T193:; |
T193:; |
502 |
V105= (long)(V105)+(1); |
V103= (long)(V103)+(1); |
503 |
V106= CMPcdr((V106)); |
V104= CMPcdr((V104)); |
504 |
V107= CMPcar((V106)); |
V105= CMPcar((V104)); |
505 |
goto T188;}} |
goto T188;}} |
506 |
goto T183; |
goto T183; |
507 |
T183:; |
T183:; |
508 |
if(V104==Cnil)goto T182; |
if(V102==Cnil)goto T182; |
509 |
{object V108 = V104; |
{object V106 = V102; |
510 |
VMR11(V108)} |
VMR11(V106)} |
511 |
goto T182; |
goto T182; |
512 |
T182:;} |
T182:;} |
513 |
{object V109; |
{object V107; |
514 |
{register object x= (V99),V110= (V102); |
{register object x= (V97),V108= (V100); |
515 |
while(V110!=Cnil) |
while(V108!=Cnil) |
516 |
if(EQ(x,V110->c.c_car->c.c_car) &&V110->c.c_car != Cnil){ |
if(EQ(x,V108->c.c_car->c.c_car) &&V108->c.c_car != Cnil){ |
517 |
V109= (V110->c.c_car); |
V107= (V108->c.c_car); |
518 |
goto T203; |
goto T203; |
519 |
}else V110=V110->c.c_cdr; |
}else V108=V108->c.c_cdr; |
520 |
V109= Cnil;} |
V107= Cnil;} |
521 |
goto T203; |
goto T203; |
522 |
T203:; |
T203:; |
523 |
if(((V109))==Cnil){ |
if(((V107))==Cnil){ |
524 |
goto T205;} |
goto T205;} |
525 |
(V103)->c.c_car = Ct; |
(V101)->c.c_car = Ct; |
526 |
{object V113 = (V109); |
{object V111 = (V107); |
527 |
VMR11(V113)} |
VMR11(V111)} |
528 |
goto T205; |
goto T205; |
529 |
T205:; |
T205:; |
530 |
{object V114 = Cnil; |
{object V112 = Cnil; |
531 |
VMR11(V114)}} |
VMR11(V112)}} |
532 |
goto T177; |
goto T177; |
533 |
T177:; |
T177:; |
534 |
{object V115 = Cnil; |
{object V113 = Cnil; |
535 |
VMR11(V115)} |
VMR11(V113)} |
536 |
goto T174; |
goto T174; |
537 |
T174:; |
T174:; |
538 |
if(!(type_of((V99))==t_cons)){ |
if(!(type_of((V97))==t_cons)){ |
539 |
goto T210;} |
goto T210;} |
540 |
{register object V116; |
{register object V114; |
541 |
register object V117; |
register object V115; |
542 |
V116= VV[25]; |
V114= VV[25]; |
543 |
V117= CMPcar((V116)); |
V115= CMPcar((V114)); |
544 |
goto T215; |
goto T215; |
545 |
T215:; |
T215:; |
546 |
if(!(((V116))==Cnil)){ |
if(!(((V114))==Cnil)){ |
547 |
goto T216;} |
goto T216;} |
548 |
{object V118 = Cnil; |
{object V116 = Cnil; |
549 |
VMR11(V118)} |
VMR11(V116)} |
550 |
goto T216; |
goto T216; |
551 |
T216:; |
T216:; |
552 |
if(!((CMPcar((V99)))==((V117)))){ |
if(!((CMPcar((V97)))==((V115)))){ |
553 |
goto T220;} |
goto T220;} |
554 |
{object V119; |
{object V117; |
555 |
object V120; |
object V118; |
556 |
register object V121; |
register object V119; |
557 |
V119= CMPcadr((V99)); |
V117= CMPcadr((V97)); |
558 |
V120= (*(LnkLI161))((V119)); |
V118= (*(LnkLI176))((V117)); |
559 |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
560 |
goto T227;} |
goto T227;} |
561 |
base[4]= (V120); |
base[4]= (V118); |
562 |
base[5]= (V117); |
base[5]= (V115); |
563 |
base[6]= (V101); |
base[6]= (V99); |
564 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
565 |
(void) (*Lnk162)(); |
(void) (*Lnk177)(); |
566 |
vs_top=sup; |
vs_top=sup; |
567 |
V121= vs_base[0]; |
V119= vs_base[0]; |
568 |
goto T225; |
goto T225; |
569 |
goto T227; |
goto T227; |
570 |
T227:; |
T227:; |
571 |
V121= Cnil; |
V119= Cnil; |
572 |
goto T225; |
goto T225; |
573 |
T225:; |
T225:; |
574 |
if(!(type_of((V121))==t_cons)){ |
if(!(type_of((V119))==t_cons)){ |
575 |
goto T232;} |
goto T232;} |
576 |
{register object V123; |
{register object V121; |
577 |
V123= Ct; |
V121= Ct; |
578 |
(V103)->c.c_car = (V123);} |
(V101)->c.c_car = (V121);} |
579 |
goto T232; |
goto T232; |
580 |
T232:; |
T232:; |
581 |
{object V124 = (V121); |
{object V122 = (V119); |
582 |
VMR11(V124)}} |
VMR11(V122)}} |
583 |
goto T220; |
goto T220; |
584 |
T220:; |
T220:; |
585 |
V116= CMPcdr((V116)); |
V114= CMPcdr((V114)); |
586 |
V117= CMPcar((V116)); |
V115= CMPcar((V114)); |
587 |
goto T215;} |
goto T215;} |
588 |
goto T210; |
goto T210; |
589 |
T210:; |
T210:; |
590 |
{object V125 = Cnil; |
{object V123 = Cnil; |
591 |
VMR11(V125)} |
VMR11(V123)} |
592 |
base[0]=base[0]; |
base[0]=base[0]; |
593 |
return Cnil; |
return Cnil; |
594 |
} |
} |
595 |
/* local entry for function COMPUTE-PV */ |
/* local entry for function COMPUTE-PV */ |
596 |
|
|
597 |
static object LI14(V128,V129) |
static object LI14(V126,V127) |
598 |
|
|
599 |
object V128;object V129; |
object V126;object V127; |
600 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
601 |
goto TTL; |
goto TTL; |
602 |
TTL:; |
TTL:; |
603 |
if(type_of((V129))==t_cons||((V129))==Cnil){ |
if(type_of((V127))==t_cons||((V127))==Cnil){ |
604 |
goto T242;} |
goto T242;} |
605 |
V129= make_cons((V129),Cnil); |
V127= make_cons((V127),Cnil); |
606 |
goto T242; |
goto T242; |
607 |
T242:; |
T242:; |
608 |
|
{object V128; |
609 |
|
object V129; |
610 |
|
V128= make_cons(Cnil,Cnil); |
611 |
{object V130; |
{object V130; |
612 |
object V131; |
register object V131; |
613 |
V130= make_cons(Cnil,Cnil); |
V130= Cnil; |
614 |
{object V132; |
V131= Cnil; |
615 |
register object V133; |
{register object V132; |
616 |
V132= Cnil; |
object V133; |
617 |
|
V132= (V126); |
618 |
V133= Cnil; |
V133= Cnil; |
|
{register object V134; |
|
|
object V135; |
|
|
V134= (V128); |
|
|
V135= Cnil; |
|
619 |
goto T254; |
goto T254; |
620 |
T254:; |
T254:; |
621 |
{object V136; |
{object V134; |
622 |
if(!(((V134))==Cnil)){ |
if(!(((V132))==Cnil)){ |
623 |
goto T260;} |
goto T260;} |
624 |
goto T250; |
goto T250; |
625 |
goto T260; |
goto T260; |
626 |
T260:; |
T260:; |
627 |
V136= CMPcar((V134)); |
V134= CMPcar((V132)); |
628 |
V134= CMPcdr((V134)); |
V132= CMPcdr((V132)); |
629 |
V135= (V136);} |
V133= (V134);} |
630 |
if(((V135))==Cnil){ |
if(((V133))==Cnil){ |
631 |
goto T255;} |
goto T255;} |
632 |
{register object V137; |
{register object V135; |
633 |
object V139; |
object V137; |
634 |
object V140; |
object V138; |
635 |
{object V141; |
{object V139; |
636 |
V141= CMPcar((V129)); |
V139= CMPcar((V127)); |
637 |
V129= CMPcdr((V129)); |
V127= CMPcdr((V127)); |
638 |
V137= (V141);} |
V135= (V139);} |
639 |
V139= ((V137))->v.v_self[11]; |
V137= ((V135))->v.v_self[11]; |
640 |
if(Ct==Cnil){ |
if(Ct==Cnil){ |
641 |
V140= Cnil; |
V138= Cnil; |
642 |
goto T271;} |
goto T271;} |
643 |
V140= ((V137))->v.v_self[10]; |
V138= ((V135))->v.v_self[10]; |
644 |
goto T271; |
goto T271; |
645 |
T271:; |
T271:; |
646 |
{register object V142; |
{register object V140; |
647 |
register object V143; |
register object V141; |
648 |
V142= CMPcdr((V135)); |
V140= CMPcdr((V133)); |
649 |
V143= CMPcar((V142)); |
V141= CMPcar((V140)); |
650 |
goto T275; |
goto T275; |
651 |
T275:; |
T275:; |
652 |
if(!(((V142))==Cnil)){ |
if(!(((V140))==Cnil)){ |
653 |
goto T276;} |
goto T276;} |
654 |
goto T255; |
goto T255; |
655 |
goto T276; |
goto T276; |
656 |
T276:; |
T276:; |
657 |
{register object V144; |
{register object V142; |
658 |
if((Ct)==Cnil){ |
if((Ct)==Cnil){ |
659 |
goto T283;} |
goto T283;} |
660 |
V144= (*(LnkLI163))((V143),(V137),(V139),(V140),(V130)); |
V142= (*(LnkLI178))((V141),(V135),(V137),(V138),(V128)); |
661 |
goto T281; |
goto T281; |
662 |
goto T283; |
goto T283; |
663 |
T283:; |
T283:; |
664 |
V144= Cnil; |
V142= Cnil; |
665 |
goto T281; |
goto T281; |
666 |
T281:; |
T281:; |
667 |
if(((V132))!=Cnil){ |
if(((V130))!=Cnil){ |
668 |
goto T286;} |
goto T286;} |
669 |
V133= make_cons((V144),Cnil); |
V131= make_cons((V142),Cnil); |
670 |
V132= (V133); |
V130= (V131); |
671 |
goto T280; |
goto T280; |
672 |
goto T286; |
goto T286; |
673 |
T286:; |
T286:; |
674 |
V146= make_cons((V144),Cnil); |
V144= make_cons((V142),Cnil); |
675 |
((V133))->c.c_cdr = /* INLINE-ARGS */V146; |
((V131))->c.c_cdr = /* INLINE-ARGS */V144; |
676 |
V145= (V133); |
V143= (V131); |
677 |
V133= CMPcdr(V145);} |
V131= CMPcdr(V143);} |
678 |
goto T280; |
goto T280; |
679 |
T280:; |
T280:; |
680 |
V142= CMPcdr((V142)); |
V140= CMPcdr((V140)); |
681 |
V143= CMPcar((V142)); |
V141= CMPcar((V140)); |
682 |
goto T275;}} |
goto T275;}} |
683 |
goto T255; |
goto T255; |
684 |
T255:; |
T255:; |
685 |
goto T254;} |
goto T254;} |
686 |
goto T250; |
goto T250; |
687 |
T250:; |
T250:; |
688 |
V131= (V132);} |
V129= (V130);} |
689 |
if((CMPcar((V130)))==Cnil){ |
if((CMPcar((V128)))==Cnil){ |
690 |
goto T299;} |
goto T299;} |
691 |
V147= make_cons(Ct,(V131)); |
V145= make_cons(Ct,(V129)); |
692 |
{object V148 = (*(LnkLI164))(/* INLINE-ARGS */V147); |
{object V146 = (*(LnkLI179))(/* INLINE-ARGS */V145); |
693 |
VMR12(V148)} |
VMR12(V146)} |
694 |
goto T299; |
goto T299; |
695 |
T299:;{object V149; |
T299:;{object V147; |
696 |
base[2]= (V131); |
base[2]= (V129); |
697 |
base[3]= (VV[26]->s.s_dbind); |
base[3]= (VV[26]->s.s_dbind); |
698 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
699 |
Lgethash(); |
Lgethash(); |
700 |
vs_top=sup; |
vs_top=sup; |
701 |
V149= vs_base[0]; |
V147= vs_base[0]; |
702 |
if(V149==Cnil)goto T301; |
if(V147==Cnil)goto T301; |
703 |
{object V150 = V149; |
{object V148 = V147; |
704 |
VMR12(V150)} |
VMR12(V148)} |
705 |
goto T301; |
goto T301; |
706 |
T301:;} |
T301:;} |
707 |
{object V152; |
{object V150; |
708 |
object V153; |
object V151; |
709 |
V152= (VV[26]->s.s_dbind); |
V150= (VV[26]->s.s_dbind); |
710 |
V154= make_cons(Cnil,(V131)); |
V152= make_cons(Cnil,(V129)); |
711 |
V153= (*(LnkLI164))(/* INLINE-ARGS */V154); |
V151= (*(LnkLI179))(/* INLINE-ARGS */V152); |
712 |
base[3]= V131; |
base[3]= V129; |
713 |
base[4]= (V152); |
base[4]= (V150); |
714 |
base[5]= (V153); |
base[5]= (V151); |
715 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
716 |
siLhash_set(); |
siLhash_set(); |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
{object V155 = vs_base[0]; |
{object V153 = vs_base[0]; |
719 |
VMR12(V155)}}} |
VMR12(V153)}}} |
720 |
base[0]=base[0]; |
base[0]=base[0]; |
721 |
return Cnil; |
return Cnil; |
722 |
} |
} |
723 |
/* local entry for function COMPUTE-CALLS */ |
/* local entry for function COMPUTE-CALLS */ |
724 |
|
|
725 |
static object LI15(V158,V159) |
static object LI15(V156,V157) |
726 |
|
|
727 |
object V158;object V159; |
object V156;object V157; |
728 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
729 |
goto TTL; |
goto TTL; |
730 |
TTL:; |
TTL:; |
731 |
{object V160 = VV[27]; |
{object V158 = VV[27]; |
732 |
VMR13(V160)} |
VMR13(V158)} |
733 |
return Cnil; |
return Cnil; |
734 |
} |
} |
735 |
/* local entry for function MAKE-PERMUTATION-VECTOR */ |
/* local entry for function MAKE-PERMUTATION-VECTOR */ |
736 |
|
|
737 |
static object LI16(V162) |
static object LI16(V160) |
738 |
|
|
739 |
object V162; |
object V160; |
740 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
741 |
goto TTL; |
goto TTL; |
742 |
TTL:; |
TTL:; |
743 |
base[0]= CMPmake_fixnum((long)length((V162))); |
base[0]= CMPmake_fixnum((long)length((V160))); |
744 |
base[1]= VV[28]; |
base[1]= VV[28]; |
745 |
base[2]= (V162); |
base[2]= (V160); |
746 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
747 |
(void) (*Lnk165)(); |
(void) (*Lnk180)(); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
{object V163 = vs_base[0]; |
{object V161 = vs_base[0]; |
750 |
VMR14(V163)} |
VMR14(V161)} |
751 |
base[0]=base[0]; |
base[0]=base[0]; |
752 |
return Cnil; |
return Cnil; |
753 |
} |
} |
754 |
/* local entry for function PV-TABLE-LOOKUP */ |
/* local entry for function PV-TABLE-LOOKUP */ |
755 |
|
|
756 |
static object LI17(V166,V167) |
static object LI17(V164,V165) |
757 |
|
|
758 |
register object V166;register object V167; |
register object V164;register object V165; |
759 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
760 |
goto TTL; |
goto TTL; |
761 |
TTL:; |
TTL:; |
762 |
{object V168; |
{object V166; |
763 |
object V169; |
object V167; |
764 |
register object V170; |
register object V168; |
765 |
V168= STREF(object,(V166),8); |
V166= STREF(object,(V164),8); |
766 |
V169= STREF(object,(V166),12);{object V171; |
V167= STREF(object,(V164),12);{object V169; |
767 |
V171= STREF(object,(V166),0); |
V169= STREF(object,(V164),0); |
768 |
if(V171==Cnil)goto T316; |
if(V169==Cnil)goto T316; |
769 |
V170= V171; |
V168= V169; |
770 |
goto T315; |
goto T315; |
771 |
goto T316; |
goto T316; |
772 |
T316:;} |
T316:;} |
773 |
V172 = (V166); |
V170 = CMPmake_fixnum((long)length((V166))); |
|
V173 = CMPmake_fixnum((long)length((V168))); |
|
774 |
base[3]= Cnil; |
base[3]= Cnil; |
775 |
base[4]= (V168); |
base[4]= (V166); |
776 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
777 |
(void) (*Lnk167)(); |
(void) (*Lnk182)(); |
778 |
vs_top=sup; |
vs_top=sup; |
779 |
V174= vs_base[0]; |
V171= vs_base[0]; |
780 |
V175= number_minus(V173,V174); |
V172= number_minus(V170,V171); |
781 |
V176= (VV[168]->s.s_gfdef); |
V173= (VV[183]->s.s_gfdef); |
782 |
V177= (*(LnkLI166))(/* INLINE-ARGS */V175,Ct,V176,2); |
V174= (*(LnkLI181))(/* INLINE-ARGS */V172,Ct,V173,2); |
783 |
V178= Ct; |
V175= Ct; |
784 |
STSET(object,V172,0, /* INLINE-ARGS */V177); |
STSET(object,(V164),0, /* INLINE-ARGS */V174); |
785 |
V170= /* INLINE-ARGS */V177; |
V168= /* INLINE-ARGS */V174; |
786 |
goto T315; |
goto T315; |
787 |
T315:;{object V179; |
T315:;{object V176; |
788 |
V179= (VFUN_NARGS=2,(*(LnkLI169))((V170),(V167))); |
V176= (VFUN_NARGS=2,(*(LnkLI184))((V168),(V165))); |
789 |
if(V179==Cnil)goto T322; |
if(V176==Cnil)goto T322; |
790 |
{object V180 = V179; |
{object V177 = V176; |
791 |
VMR15(V180)} |
VMR15(V177)} |
792 |
goto T322; |
goto T322; |
793 |
T322:;} |
T322:;} |
794 |
{object V181; |
{object V178; |
795 |
object V182; |
object V179; |
796 |
object V183; |
object V180; |
797 |
object V184; |
object V181; |
798 |
V181= (*(LnkLI170))((V168),(V167)); |
V178= (*(LnkLI185))((V166),(V165)); |
799 |
V182= (*(LnkLI171))((V169),(V167)); |
V179= (*(LnkLI186))((V167),(V165)); |
800 |
V183= make_cons((V181),(V182)); |
V180= make_cons((V178),(V179)); |
801 |
V184= (VFUN_NARGS=3,(*(LnkLI172))((V170),(V167),(V183))); |
V181= (VFUN_NARGS=3,(*(LnkLI187))((V168),(V165),(V180))); |
802 |
if(((V184))==((V170))){ |
if(((V181))==((V168))){ |
803 |
goto T328;} |
goto T328;} |
804 |
V185 = (V166); |
V182= Ct; |
805 |
V186 = (V184); |
STSET(object,(V164),0, (V181)); |
806 |
V187= Ct; |
(void)((V181)); |
807 |
STSET(object,V185,0, V186); |
(void)((*(LnkLI188))((V168))); |
|
(void)(V186); |
|
|
(void)((*(LnkLI173))((V170))); |
|
808 |
goto T328; |
goto T328; |
809 |
T328:; |
T328:; |
810 |
{object V188 = (V183); |
{object V183 = (V180); |
811 |
VMR15(V188)}}} |
VMR15(V183)}}} |
812 |
base[0]=base[0]; |
base[0]=base[0]; |
813 |
return Cnil; |
return Cnil; |
814 |
} |
} |
815 |
/* local entry for function MAKE-PV-TYPE-DECLARATION */ |
/* local entry for function MAKE-PV-TYPE-DECLARATION */ |
816 |
|
|
817 |
static object LI18(V190) |
static object LI18(V185) |
818 |
|
|
819 |
object V190; |
object V185; |
820 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
821 |
goto TTL; |
goto TTL; |
822 |
TTL:; |
TTL:; |
823 |
{object V191 = list(3,VV[14],VV[29],(V190)); |
{object V186 = list(3,VV[14],VV[29],(V185)); |
824 |
VMR16(V191)} |
VMR16(V186)} |
825 |
return Cnil; |
return Cnil; |
826 |
} |
} |
827 |
/* macro definition for PVREF */ |
/* macro definition for PVREF */ |
832 |
vs_check; |
vs_check; |
833 |
check_arg(2); |
check_arg(2); |
834 |
vs_top=sup; |
vs_top=sup; |
835 |
{object V192=base[0]->c.c_cdr; |
{object V187=base[0]->c.c_cdr; |
836 |
if(endp(V192))invalid_macro_call(); |
if(endp(V187))invalid_macro_call(); |
837 |
base[2]= (V192->c.c_car); |
base[2]= (V187->c.c_car); |
838 |
V192=V192->c.c_cdr; |
V187=V187->c.c_cdr; |
839 |
if(endp(V192))invalid_macro_call(); |
if(endp(V187))invalid_macro_call(); |
840 |
base[3]= (V192->c.c_car); |
base[3]= (V187->c.c_car); |
841 |
V192=V192->c.c_cdr; |
V187=V187->c.c_cdr; |
842 |
if(!endp(V192))invalid_macro_call();} |
if(!endp(V187))invalid_macro_call();} |
843 |
base[4]= list(3,VV[30],base[2],base[3]); |
base[4]= list(3,VV[30],base[2],base[3]); |
844 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
845 |
return; |
return; |
852 |
vs_check; |
vs_check; |
853 |
check_arg(2); |
check_arg(2); |
854 |
vs_top=sup; |
vs_top=sup; |
855 |
{object V193=base[0]->c.c_cdr; |
{object V188=base[0]->c.c_cdr; |
856 |
if(endp(V193))invalid_macro_call(); |
if(endp(V188))invalid_macro_call(); |
857 |
base[2]= (V193->c.c_car); |
base[2]= (V188->c.c_car); |
858 |
V193=V193->c.c_cdr; |
V188=V188->c.c_cdr; |
859 |
if(!endp(V193))invalid_macro_call();} |
if(!endp(V188))invalid_macro_call();} |
860 |
base[3]= list(2,VV[31],base[2]); |
base[3]= list(2,VV[31],base[2]); |
861 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
862 |
return; |
return; |
863 |
} |
} |
864 |
/* local entry for function MAKE-CALLS-TYPE-DECLARATION */ |
/* local entry for function MAKE-CALLS-TYPE-DECLARATION */ |
865 |
|
|
866 |
static object LI21(V195) |
static object LI21(V190) |
867 |
|
|
868 |
object V195; |
object V190; |
869 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
870 |
goto TTL; |
goto TTL; |
871 |
TTL:; |
TTL:; |
872 |
{object V196 = list(3,VV[14],VV[29],(V195)); |
{object V191 = list(3,VV[14],VV[29],(V190)); |
873 |
VMR19(V196)} |
VMR19(V191)} |
874 |
return Cnil; |
return Cnil; |
875 |
} |
} |
876 |
/* macro definition for CALLSREF */ |
/* macro definition for CALLSREF */ |
881 |
vs_check; |
vs_check; |
882 |
check_arg(2); |
check_arg(2); |
883 |
vs_top=sup; |
vs_top=sup; |
884 |
{object V197=base[0]->c.c_cdr; |
{object V192=base[0]->c.c_cdr; |
885 |
if(endp(V197))invalid_macro_call(); |
if(endp(V192))invalid_macro_call(); |
886 |
base[2]= (V197->c.c_car); |
base[2]= (V192->c.c_car); |
887 |
V197=V197->c.c_cdr; |
V192=V192->c.c_cdr; |
888 |
if(endp(V197))invalid_macro_call(); |
if(endp(V192))invalid_macro_call(); |
889 |
base[3]= (V197->c.c_car); |
base[3]= (V192->c.c_car); |
890 |
V197=V197->c.c_cdr; |
V192=V192->c.c_cdr; |
891 |
if(!endp(V197))invalid_macro_call();} |
if(!endp(V192))invalid_macro_call();} |
892 |
base[4]= list(3,VV[30],base[2],base[3]); |
base[4]= list(3,VV[30],base[2],base[3]); |
893 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
894 |
return; |
return; |
895 |
} |
} |
896 |
/* local entry for function UPDATE-PV-TABLE-CACHE-INFO */ |
/* local entry for function UPDATE-PV-TABLE-CACHE-INFO */ |
897 |
|
|
898 |
static object LI23(V199) |
static object LI23(V194) |
899 |
|
|
900 |
object V199; |
object V194; |
901 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
902 |
goto TTL; |
goto TTL; |
903 |
TTL:; |
TTL:; |
904 |
{register object V200; |
{register object V195; |
905 |
register object V201; |
register object V196; |
906 |
V200= Cnil; |
V195= Cnil; |
907 |
V201= Cnil; |
V196= Cnil; |
908 |
{register object V202; |
{register object V197; |
909 |
register object V203; |
register object V198; |
910 |
V202= (VV[32]->s.s_dbind); |
V197= (VV[32]->s.s_dbind); |
911 |
V203= CMPcar((V202)); |
V198= CMPcar((V197)); |
912 |
goto T336; |
goto T336; |
913 |
T336:; |
T336:; |
914 |
if(!(((V202))==Cnil)){ |
if(!(((V197))==Cnil)){ |
915 |
goto T337;} |
goto T337;} |
916 |
goto T332; |
goto T332; |
917 |
goto T337; |
goto T337; |
918 |
T337:; |
T337:; |
919 |
if(!((CMPcar((V203)))==((V199)))){ |
if(!((CMPcar((V198)))==((V194)))){ |
920 |
goto T343;} |
goto T343;} |
921 |
{register object V204; |
{register object V199; |
922 |
V204= CMPcdr((V203)); |
V199= CMPcdr((V198)); |
923 |
base[2]= (V204); |
base[2]= (V199); |
924 |
base[3]= (V200); |
base[3]= (V195); |
925 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
926 |
Ladjoin(); |
Ladjoin(); |
927 |
vs_top=sup; |
vs_top=sup; |
928 |
V200= vs_base[0]; |
V195= vs_base[0]; |
929 |
goto T341;} |
goto T341;} |
930 |
goto T343; |
goto T343; |
931 |
T343:; |
T343:; |
932 |
{register object V205; |
{register object V200; |
933 |
V205= (V203); |
V200= (V198); |
934 |
V201= make_cons((V205),(V201));} |
V196= make_cons((V200),(V196));} |
935 |
goto T341; |
goto T341; |
936 |
T341:; |
T341:; |
937 |
V202= CMPcdr((V202)); |
V197= CMPcdr((V197)); |
938 |
V203= CMPcar((V202)); |
V198= CMPcar((V197)); |
939 |
goto T336;} |
goto T336;} |
940 |
goto T332; |
goto T332; |
941 |
T332:; |
T332:; |
942 |
(VV[32]->s.s_dbind)= (V201); |
(VV[32]->s.s_dbind)= (V196); |
943 |
if(((V200))==Cnil){ |
if(((V195))==Cnil){ |
944 |
goto T359;} |
goto T359;} |
945 |
{object V206 = (*(LnkLI174))((V199),(V200)); |
{object V201 = (*(LnkLI189))((V194),(V195)); |
946 |
VMR21(V206)} |
VMR21(V201)} |
947 |
goto T359; |
goto T359; |
948 |
T359:; |
T359:; |
949 |
{object V207 = Cnil; |
{object V202 = Cnil; |
950 |
VMR21(V207)}} |
VMR21(V202)}} |
951 |
base[0]=base[0]; |
base[0]=base[0]; |
952 |
return Cnil; |
return Cnil; |
953 |
} |
} |
954 |
/* local entry for function UPDATE-ALL-PV-TABLE-CACHES */ |
/* local entry for function UPDATE-ALL-PV-TABLE-CACHES */ |
955 |
|
|
956 |
static object LI24(V210,V211) |
static object LI24(V205,V206) |
957 |
|
|
958 |
object V210;object V211; |
object V205;object V206; |
959 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
960 |
goto TTL; |
goto TTL; |
961 |
TTL:; |
TTL:; |
962 |
{object V213; |
{object V208; |
963 |
object V214; |
object V209; |
964 |
object V215; |
object V210; |
965 |
base[5]= (V210); |
base[5]= (V205); |
966 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
967 |
(void) (*Lnk175)(Lclptr175); |
(void) (*Lnk190)(Lclptr190); |
968 |
vs_top=sup; |
vs_top=sup; |
969 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
970 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
971 |
if(Ct==Cnil){ |
if(Ct==Cnil){ |
972 |
V213= Cnil; |
V208= Cnil; |
973 |
goto T363;} |
goto T363;} |
974 |
V213= ((base[0]->c.c_car))->v.v_self[10]; |
V208= ((base[0]->c.c_car))->v.v_self[10]; |
975 |
goto T363; |
goto T363; |
976 |
T363:; |
T363:; |
977 |
V214= make_cons(Cnil,Cnil); |
V209= make_cons(Cnil,Cnil); |
978 |
{object V216; |
{object V211; |
979 |
object V217= (V211); |
object V212= (V206); |
980 |
if(V217==Cnil){ |
if(V212==Cnil){ |
981 |
V215= Cnil; |
V210= Cnil; |
982 |
goto T365;} |
goto T365;} |
983 |
base[5]=V216=MMcons(Cnil,Cnil); |
base[5]=V211=MMcons(Cnil,Cnil); |
984 |
goto T366; |
goto T366; |
985 |
T366:; |
T366:; |
|
V219 = (V217->c.c_car); |
|
986 |
if((Ct)==Cnil){ |
if((Ct)==Cnil){ |
987 |
goto T370;} |
goto T370;} |
988 |
V220= (*(LnkLI163))((V217->c.c_car),(base[0]->c.c_car),(V210),(V213),(V214)); |
V214= (*(LnkLI178))((V212->c.c_car),(base[0]->c.c_car),(V205),(V208),(V209)); |
989 |
goto T368; |
goto T368; |
990 |
goto T370; |
goto T370; |
991 |
T370:; |
T370:; |
992 |
V220= Cnil; |
V214= Cnil; |
993 |
goto T368; |
goto T368; |
994 |
T368:; |
T368:; |
995 |
(V216->c.c_car)= make_cons(V219,V220); |
(V211->c.c_car)= make_cons((V212->c.c_car),V214); |
996 |
if((V217=MMcdr(V217))==Cnil){ |
if((V212=MMcdr(V212))==Cnil){ |
997 |
V215= base[5]; |
V210= base[5]; |
998 |
goto T365;} |
goto T365;} |
999 |
V216=MMcdr(V216)=MMcons(Cnil,Cnil); |
V211=MMcdr(V211)=MMcons(Cnil,Cnil); |
1000 |
goto T366;} |
goto T366;} |
1001 |
goto T365; |
goto T365; |
1002 |
T365:; |
T365:; |
1003 |
base[4]=MMcons(Cnil,base[0]); |
base[4]=MMcons(Cnil,base[0]); |
1004 |
{object V221; |
{object V215; |
1005 |
object V222; |
object V216; |
1006 |
V221= (V211); |
V215= (V206); |
1007 |
V222= CMPcar((V221)); |
V216= CMPcar((V215)); |
1008 |
goto T376; |
goto T376; |
1009 |
T376:; |
T376:; |
1010 |
if(!(((V221))==Cnil)){ |
if(!(((V215))==Cnil)){ |
1011 |
goto T377;} |
goto T377;} |
1012 |
goto T372; |
goto T372; |
1013 |
goto T377; |
goto T377; |
1014 |
T377:; |
T377:; |
1015 |
V223 = (V222); |
V217= |
|
V224= |
|
1016 |
make_cclosure_new(LC72,Cnil,base[4],Cdata); |
make_cclosure_new(LC72,Cnil,base[4],Cdata); |
1017 |
(void)((*(LnkLI176))(V223,V224)); |
(void)((*(LnkLI191))((V216),V217)); |
1018 |
V221= CMPcdr((V221)); |
V215= CMPcdr((V215)); |
1019 |
V222= CMPcar((V221)); |
V216= CMPcar((V215)); |
1020 |
goto T376;} |
goto T376;} |
1021 |
goto T372; |
goto T372; |
1022 |
T372:; |
T372:; |
1023 |
{object V225; |
{object V218; |
1024 |
object V226; |
object V219; |
1025 |
V225= (base[4]->c.c_car); |
V218= (base[4]->c.c_car); |
1026 |
V226= CMPcar((V225)); |
V219= CMPcar((V218)); |
1027 |
goto T391; |
goto T391; |
1028 |
T391:; |
T391:; |
1029 |
if(!(((V225))==Cnil)){ |
if(!(((V218))==Cnil)){ |
1030 |
goto T392;} |
goto T392;} |
1031 |
{object V227 = Cnil; |
{object V220 = Cnil; |
1032 |
VMR22(V227)} |
VMR22(V220)} |
1033 |
goto T392; |
goto T392; |
1034 |
T392:; |
T392:; |
1035 |
{object V228; |
{object V221; |
1036 |
object V229; |
object V222; |
1037 |
V228= STREF(object,(V226),0); |
V221= STREF(object,(V219),0); |
1038 |
V229= STREF(object,(V226),8); |
V222= STREF(object,(V219),8); |
1039 |
base[8]= CMPmake_fixnum((long)STREF(fixnum,(V226),4)); |
base[8]= CMPmake_fixnum((long)STREF(fixnum,(V219),4)); |
1040 |
base[8]=MMcons(base[8],base[4]); |
base[8]=MMcons(base[8],base[4]); |
1041 |
base[10]= (base[8]->c.c_car); |
base[10]= (base[8]->c.c_car); |
1042 |
base[11]= VV[33]; |
base[11]= VV[33]; |
1043 |
base[12]= Cnil; |
base[12]= Cnil; |
1044 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
1045 |
(void) (*Lnk165)(); |
(void) (*Lnk180)(); |
1046 |
vs_top=sup; |
vs_top=sup; |
1047 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
1048 |
base[9]=MMcons(base[9],base[8]); |
base[9]=MMcons(base[9],base[8]); |
1049 |
{register long V230; |
{register long V223; |
1050 |
register long V231; |
register long V224; |
1051 |
V230= 1; |
V223= 1; |
1052 |
V231= 0; |
V224= 0; |
1053 |
{register object V232; |
{register object V225; |
1054 |
object V233; |
object V226; |
1055 |
V232= (V229); |
V225= (V222); |
1056 |
V233= CMPcar((V232)); |
V226= CMPcar((V225)); |
1057 |
goto T410; |
goto T410; |
1058 |
T410:; |
T410:; |
1059 |
if(!(((V232))==Cnil)){ |
if(!(((V225))==Cnil)){ |
1060 |
goto T411;} |
goto T411;} |
1061 |
goto T404; |
goto T404; |
1062 |
goto T411; |
goto T411; |
1063 |
T411:; |
T411:; |
1064 |
{register object V234; |
{register object V227; |
1065 |
register object V235; |
register object V228; |
1066 |
V234= CMPcdr((V233)); |
V227= CMPcdr((V226)); |
1067 |
V235= CMPcar((V234)); |
V228= CMPcar((V227)); |
1068 |
goto T419; |
goto T419; |
1069 |
T419:; |
T419:; |
1070 |
if(!(((V234))==Cnil)){ |
if(!(((V227))==Cnil)){ |
1071 |
goto T420;} |
goto T420;} |
1072 |
goto T415; |
goto T415; |
1073 |
goto T420; |
goto T420; |
1074 |
T420:; |
T420:; |
1075 |
{register object V236; |
{register object V229; |
1076 |
{register object x= (V235),V237= (V215); |
{register object x= (V228),V230= (V210); |
1077 |
while(V237!=Cnil) |
while(V230!=Cnil) |
1078 |
if(eql(x,V237->c.c_car->c.c_car) &&V237->c.c_car != Cnil){ |
if(eql(x,V230->c.c_car->c.c_car) &&V230->c.c_car != Cnil){ |
1079 |
V236= (V237->c.c_car); |
V229= (V230->c.c_car); |
1080 |
goto T425; |
goto T425; |
1081 |
}else V237=V237->c.c_cdr; |
}else V230=V230->c.c_cdr; |
1082 |
V236= Cnil;} |
V229= Cnil;} |
1083 |
goto T425; |
goto T425; |
1084 |
T425:; |
T425:; |
1085 |
V238 = (base[9]->c.c_car); |
if((V229)==Cnil){ |
1086 |
V239 = V230; |
V231= Cnil; |
|
if((V236)==Cnil){ |
|
|
V240= Cnil; |
|
1087 |
goto T426;} |
goto T426;} |
1088 |
V241 = CMPmake_fixnum(V231); |
V232 = CMPmake_fixnum(V224); |
1089 |
V240= make_cons(V241,CMPcdr((V236))); |
V231= make_cons(V232,CMPcdr((V229))); |
1090 |
goto T426; |
goto T426; |
1091 |
T426:; |
T426:; |
1092 |
(void)((V238)->v.v_self[V239]= (V240));} |
(void)(((base[9]->c.c_car))->v.v_self[V223]= (V231));} |
1093 |
V230= (long)(V230)+(1); |
V223= (long)(V223)+(1); |
1094 |
V234= CMPcdr((V234)); |
V227= CMPcdr((V227)); |
1095 |
V235= CMPcar((V234)); |
V228= CMPcar((V227)); |
1096 |
goto T419;} |
goto T419;} |
1097 |
goto T415; |
goto T415; |
1098 |
T415:; |
T415:; |
1099 |
V231= (long)(V231)+(1); |
V224= (long)(V224)+(1); |
1100 |
V232= CMPcdr((V232)); |
V225= CMPcdr((V225)); |
1101 |
V233= CMPcar((V232)); |
V226= CMPcar((V225)); |
1102 |
goto T410;}} |
goto T410;}} |
1103 |
goto T404; |
goto T404; |
1104 |
T404:; |
T404:; |
1105 |
if(((V228))==Cnil){ |
if(((V221))==Cnil){ |
1106 |
goto T396;} |
goto T396;} |
1107 |
V242= |
V233= |
1108 |
make_cclosure_new(LC73,Cnil,base[9],Cdata); |
make_cclosure_new(LC73,Cnil,base[9],Cdata); |
1109 |
V243 = (V228); |
(void)((VFUN_NARGS=2,(*(LnkLI192))(V233,(V221))));} |
|
(void)((VFUN_NARGS=2,(*(LnkLI177))(V242,V243)));} |
|
1110 |
goto T396; |
goto T396; |
1111 |
T396:; |
T396:; |
1112 |
V225= CMPcdr((V225)); |
V218= CMPcdr((V218)); |
1113 |
V226= CMPcar((V225)); |
V219= CMPcar((V218)); |
1114 |
goto T391;}} |
goto T391;}} |
1115 |
base[0]=base[0]; |
base[0]=base[0]; |
1116 |
return Cnil; |
return Cnil; |
1117 |
} |
} |
1118 |
/* local entry for function UPDATE-SLOTS-IN-PV */ |
/* local entry for function UPDATE-SLOTS-IN-PV */ |
1119 |
|
|
1120 |
static object LI25(V249,V250,V251,V252,V253) |
static object LI25(V239,V240,V241,V242,V243) |
1121 |
|
|
1122 |
object V249;object V250;object V251;object V252;object V253; |
object V239;object V240;object V241;object V242;object V243; |
1123 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1124 |
goto TTL; |
goto TTL; |
1125 |
TTL:; |
TTL:; |
1126 |
if(!(type_of((V249))!=t_cons)){ |
if(!(type_of((V239))!=t_cons)){ |
1127 |
goto T453;} |
goto T453;} |
1128 |
if(((V251))==((V249))){ |
if(((V241))==((V239))){ |
1129 |
goto T450;} |
goto T450;} |
1130 |
goto T451; |
goto T451; |
1131 |
goto T453; |
goto T453; |
1132 |
T453:; |
T453:; |
1133 |
{register object V254; |
{register object V244; |
1134 |
object V255; |
object V245; |
1135 |
V254= (V249); |
V244= (V239); |
1136 |
V255= CMPcar((V254)); |
V245= CMPcar((V244)); |
1137 |
goto T458; |
goto T458; |
1138 |
T458:; |
T458:; |
1139 |
if(!(((V254))==Cnil)){ |
if(!(((V244))==Cnil)){ |
1140 |
goto T459;} |
goto T459;} |
1141 |
goto T451; |
goto T451; |
1142 |
goto T459; |
goto T459; |
1143 |
T459:; |
T459:; |
1144 |
if(!(((V255))==((V251)))){ |
if(!(((V245))==((V241)))){ |
1145 |
goto T463;} |
goto T463;} |
1146 |
goto T450; |
goto T450; |
1147 |
goto T463; |
goto T463; |
1148 |
T463:; |
T463:; |
1149 |
V254= CMPcdr((V254)); |
V244= CMPcdr((V244)); |
1150 |
V255= CMPcar((V254)); |
V245= CMPcar((V244)); |
1151 |
goto T458;} |
goto T458;} |
1152 |
goto T451; |
goto T451; |
1153 |
T451:; |
T451:; |
1154 |
{object V256 = (V250); |
{object V246 = (V240); |
1155 |
VMR23(V256)} |
VMR23(V246)} |
1156 |
goto T450; |
goto T450; |
1157 |
T450:; |
T450:; |
1158 |
{object V257; |
{object V247; |
1159 |
register object V258; |
register object V248; |
1160 |
object V259; |
object V249; |
1161 |
{object V260= ((V250))->v.v_self[0]; |
{object V250= ((V240))->v.v_self[0]; |
1162 |
V257= (type_of(V260)==t_cons||(V260)==Cnil?Ct:Cnil);} |
V247= (type_of(V250)==t_cons||(V250)==Cnil?Ct:Cnil);} |
1163 |
if(((V257))==Cnil){ |
if(((V247))==Cnil){ |
1164 |
goto T474;} |
goto T474;} |
1165 |
base[2]= (V250); |
base[2]= (V240); |
1166 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1167 |
Lcopy_seq(); |
Lcopy_seq(); |
1168 |
vs_top=sup; |
vs_top=sup; |
1169 |
V258= vs_base[0]; |
V248= vs_base[0]; |
1170 |
goto T472; |
goto T472; |
1171 |
goto T474; |
goto T474; |
1172 |
T474:; |
T474:; |
1173 |
V258= (V250); |
V248= (V240); |
1174 |
goto T472; |
goto T472; |
1175 |
T472:; |
T472:; |
1176 |
V259= Ct; |
V249= Ct; |
1177 |
if(!(type_of((V249))!=t_cons)){ |
if(!(type_of((V239))!=t_cons)){ |
1178 |
goto T480;} |
goto T480;} |
1179 |
{long V261; |
{long V251; |
1180 |
register long V262; |
register long V252; |
1181 |
V261= fix((V252)); |
V251= fix((V242)); |
1182 |
V262= 0; |
V252= 0; |
1183 |
goto T485; |
goto T485; |
1184 |
T485:; |
T485:; |
1185 |
if(!((V262)>=(V261))){ |
if(!((V252)>=(V251))){ |
1186 |
goto T486;} |
goto T486;} |
1187 |
goto T478; |
goto T478; |
1188 |
goto T486; |
goto T486; |
1189 |
T486:; |
T486:; |
1190 |
{object V264; |
{object V254; |
1191 |
V264= ((V253))->v.v_self[V262]; |
V254= ((V243))->v.v_self[V252]; |
1192 |
if(((V264))==Cnil){ |
if(((V254))==Cnil){ |
1193 |
goto T495;} |
goto T495;} |
1194 |
V263= ((V258))->v.v_self[V262]= (CMPcdr((V264))); |
V253= ((V248))->v.v_self[V252]= (CMPcdr((V254))); |
1195 |
goto T492; |
goto T492; |
1196 |
goto T495; |
goto T495; |
1197 |
T495:; |
T495:; |
1198 |
V263= ((V258))->v.v_self[V262];} |
V253= ((V248))->v.v_self[V252];} |
1199 |
goto T492; |
goto T492; |
1200 |
T492:; |
T492:; |
1201 |
if(!(type_of(V263)==t_cons)){ |
if(!(type_of(V253)==t_cons)){ |
1202 |
goto T489;} |
goto T489;} |
1203 |
V259= Cnil; |
V249= Cnil; |
1204 |
goto T489; |
goto T489; |
1205 |
T489:; |
T489:; |
1206 |
V262= (long)(V262)+1; |
V252= (long)(V252)+1; |
1207 |
goto T485;} |
goto T485;} |
1208 |
goto T480; |
goto T480; |
1209 |
T480:; |
T480:; |
1210 |
{long V265; |
{long V255; |
1211 |
V265= 0; |
V255= 0; |
1212 |
{register object V266; |
{register object V256; |
1213 |
object V267; |
object V257; |
1214 |
V266= (V249); |
V256= (V239); |
1215 |
V267= CMPcar((V266)); |
V257= CMPcar((V256)); |
1216 |
goto T505; |
goto T505; |
1217 |
T505:; |
T505:; |
1218 |
if(!(((V266))==Cnil)){ |
if(!(((V256))==Cnil)){ |
1219 |
goto T506;} |
goto T506;} |
1220 |
goto T478; |
goto T478; |
1221 |
goto T506; |
goto T506; |
1222 |
T506:; |
T506:; |
1223 |
if(!(((V267))==((V251)))){ |
if(!(((V257))==((V241)))){ |
1224 |
goto T510;} |
goto T510;} |
1225 |
{long V268; |
{long V258; |
1226 |
register long V269; |
register long V259; |
1227 |
V268= fix((V252)); |
V258= fix((V242)); |
1228 |
V269= 0; |
V259= 0; |
1229 |
goto T516; |
goto T516; |
1230 |
T516:; |
T516:; |
1231 |
if(!((V269)>=(V268))){ |
if(!((V259)>=(V258))){ |
1232 |
goto T517;} |
goto T517;} |
1233 |
goto T510; |
goto T510; |
1234 |
goto T517; |
goto T517; |
1235 |
T517:; |
T517:; |
1236 |
{register object V271; |
{register object V261; |
1237 |
V271= ((V253))->v.v_self[V269]; |
V261= ((V243))->v.v_self[V259]; |
1238 |
if(((V271))==Cnil){ |
if(((V261))==Cnil){ |
1239 |
goto T526;} |
goto T526;} |
1240 |
V272= CMPcar((V271)); |
V262= CMPcar((V261)); |
1241 |
V273 = CMPmake_fixnum(V265); |
V263 = CMPmake_fixnum(V255); |
1242 |
if(!(number_compare(/* INLINE-ARGS */V272,V273)==0)){ |
if(!(number_compare(/* INLINE-ARGS */V262,V263)==0)){ |
1243 |
goto T526;} |
goto T526;} |
1244 |
V270= ((V258))->v.v_self[V269]= (CMPcdr((V271))); |
V260= ((V248))->v.v_self[V259]= (CMPcdr((V261))); |
1245 |
goto T523; |
goto T523; |
1246 |
goto T526; |
goto T526; |
1247 |
T526:; |
T526:; |
1248 |
V270= ((V258))->v.v_self[V269];} |
V260= ((V248))->v.v_self[V259];} |
1249 |
goto T523; |
goto T523; |
1250 |
T523:; |
T523:; |
1251 |
if(!(type_of(V270)==t_cons)){ |
if(!(type_of(V260)==t_cons)){ |
1252 |
goto T520;} |
goto T520;} |
1253 |
V259= Cnil; |
V249= Cnil; |
1254 |
goto T520; |
goto T520; |
1255 |
T520:; |
T520:; |
1256 |
V269= (long)(V269)+1; |
V259= (long)(V259)+1; |
1257 |
goto T516;} |
goto T516;} |
1258 |
goto T510; |
goto T510; |
1259 |
T510:; |
T510:; |
1260 |
V265= (long)(V265)+(1); |
V255= (long)(V255)+(1); |
1261 |
V266= CMPcdr((V266)); |
V256= CMPcdr((V256)); |
1262 |
V267= CMPcar((V266)); |
V257= CMPcar((V256)); |
1263 |
goto T505;}} |
goto T505;}} |
1264 |
goto T478; |
goto T478; |
1265 |
T478:; |
T478:; |
1266 |
if(((V259))==Cnil){ |
if(((V249))==Cnil){ |
1267 |
goto T541;} |
goto T541;} |
1268 |
{object V274; |
{object V264; |
1269 |
base[2]= (V250); |
base[2]= (V240); |
1270 |
base[3]= VV[34]; |
base[3]= VV[34]; |
1271 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1272 |
(void) (*Lnk178)(); |
(void) (*Lnk193)(); |
1273 |
vs_top=sup; |
vs_top=sup; |
1274 |
V274= vs_base[0];{object V275; |
V264= vs_base[0];{object V265; |
1275 |
base[2]= CMPcdr((V274)); |
base[2]= CMPcdr((V264)); |
1276 |
base[3]= (VV[26]->s.s_dbind); |
base[3]= (VV[26]->s.s_dbind); |
1277 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1278 |
Lgethash(); |
Lgethash(); |
1279 |
vs_top=sup; |
vs_top=sup; |
1280 |
V275= vs_base[0]; |
V265= vs_base[0]; |
1281 |
if(V275==Cnil)goto T548; |
if(V265==Cnil)goto T548; |
1282 |
V258= V275; |
V248= V265; |
1283 |
goto T544; |
goto T544; |
1284 |
goto T548; |
goto T548; |
1285 |
T548:;} |
T548:;} |
1286 |
{object V276; |
{object V266; |
1287 |
object V277; |
object V267; |
1288 |
object V278; |
object V268; |
1289 |
V276= CMPcdr((V274)); |
V266= CMPcdr((V264)); |
1290 |
V277= (VV[26]->s.s_dbind); |
V267= (VV[26]->s.s_dbind); |
1291 |
if(((V257))==Cnil){ |
if(((V247))==Cnil){ |
1292 |
goto T556;} |
goto T556;} |
1293 |
V278= (V258); |
V268= (V248); |
1294 |
goto T554; |
goto T554; |
1295 |
goto T556; |
goto T556; |
1296 |
T556:; |
T556:; |
1297 |
V278= (*(LnkLI164))((V274)); |
V268= (*(LnkLI179))((V264)); |
1298 |
goto T554; |
goto T554; |
1299 |
T554:; |
T554:; |
1300 |
base[4]= (V276); |
base[4]= (V266); |
1301 |
base[5]= (V277); |
base[5]= (V267); |
1302 |
base[6]= (V278); |
base[6]= (V268); |
1303 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1304 |
siLhash_set(); |
siLhash_set(); |
1305 |
vs_top=sup; |
vs_top=sup; |
1306 |
V258= vs_base[0];}} |
V248= vs_base[0];}} |
1307 |
goto T544; |
goto T544; |
1308 |
T544:; |
T544:; |
1309 |
goto T541; |
goto T541; |
1310 |
T541:; |
T541:; |
1311 |
{object V279 = (V258); |
{object V269 = (V248); |
1312 |
VMR23(V279)}} |
VMR23(V269)}} |
1313 |
base[0]=base[0]; |
base[0]=base[0]; |
1314 |
return Cnil; |
return Cnil; |
1315 |
} |
} |
1316 |
/* local entry for function MAYBE-EXPAND-ACCESSOR-FORM */ |
/* local entry for function MAYBE-EXPAND-ACCESSOR-FORM */ |
1317 |
|
|
1318 |
static object LI26(V284,V285,V286,V287) |
static object LI26(V274,V275,V276,V277) |
1319 |
|
|
1320 |
register object V284;object V285;object V286;object V287; |
register object V274;object V275;object V276;object V277; |
1321 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1322 |
goto TTL; |
goto TTL; |
1323 |
TTL:; |
TTL:; |
1324 |
{object V288; |
{object V278; |
1325 |
register object V289; |
register object V279; |
1326 |
V288= CMPcar((V284)); |
V278= CMPcar((V274)); |
1327 |
if(!(type_of((V288))==t_symbol)){ |
if(!(type_of((V278))==t_symbol)){ |
1328 |
goto T564;} |
goto T564;} |
1329 |
V289= (*(LnkLI179))((V288)); |
V279= (*(LnkLI194))((V278)); |
1330 |
goto T562; |
goto T562; |
1331 |
goto T564; |
goto T564; |
1332 |
T564:; |
T564:; |
1333 |
V289= (*(LnkLI161))((V288)); |
V279= (*(LnkLI176))((V278)); |
1334 |
goto T562; |
goto T562; |
1335 |
T562:; |
T562:; |
1336 |
if(!(type_of(CMPcadr((V284)))==t_cons)){ |
if(!(type_of(CMPcadr((V274)))==t_cons)){ |
1337 |
goto T566;} |
goto T566;} |
1338 |
if((VV[35])==(CMPcaadr((V284)))){ |
if((VV[35])==(CMPcaadr((V274)))){ |
1339 |
goto T567;} |
goto T567;} |
1340 |
goto T566; |
goto T566; |
1341 |
T566:; |
T566:; |
1342 |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
1343 |
goto T572;} |
goto T572;} |
1344 |
base[2]= (V289); |
base[2]= (V279); |
1345 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1346 |
(void) (*Lnk180)(Lclptr180); |
(void) (*Lnk195)(Lclptr195); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1349 |
goto T572;} |
goto T572;} |
1350 |
{object V290; |
{object V280; |
1351 |
base[2]= (V289); |
base[2]= (V279); |
1352 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1353 |
(void) (*Lnk181)(Lclptr181); |
(void) (*Lnk196)(Lclptr196); |
1354 |
vs_top=sup; |
vs_top=sup; |
1355 |
V290= vs_base[0]; |
V280= vs_base[0]; |
1356 |
if(((V290))==Cnil){ |
if(((V280))==Cnil){ |
1357 |
goto T580;} |
goto T580;} |
1358 |
{register object V291; |
{register object V281; |
1359 |
object V292; |
object V282; |
1360 |
object V293; |
object V283; |
1361 |
object V294; |
object V284; |
1362 |
object V295; |
object V285; |
1363 |
base[7]= (V289); |
base[7]= (V279); |
1364 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1365 |
(void) (*Lnk182)(Lclptr182); |
(void) (*Lnk197)(Lclptr197); |
1366 |
vs_top=sup; |
vs_top=sup; |
1367 |
V291= vs_base[0]; |
V281= vs_base[0]; |
1368 |
base[7]= (V289); |
base[7]= (V279); |
1369 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1370 |
(void) (*Lnk183)(Lclptr183); |
(void) (*Lnk198)(Lclptr198); |
1371 |
vs_top=sup; |
vs_top=sup; |
1372 |
V292= vs_base[0]; |
V282= vs_base[0]; |
1373 |
V293= STREF(object,(V292),8); |
V283= STREF(object,(V282),8); |
1374 |
V294= CMPmake_fixnum((long)length((V293))); |
V284= CMPmake_fixnum((long)length((V283))); |
1375 |
V295= (*(LnkLI184))((V292)); |
V285= (*(LnkLI199))((V282)); |
1376 |
if(((V295))!=Cnil){ |
if(((V285))!=Cnil){ |
1377 |
goto T590;} |
goto T590;} |
1378 |
if(!(number_compare((V294),small_fixnum(1))==0)){ |
if(!(number_compare((V284),small_fixnum(1))==0)){ |
1379 |
goto T593;} |
goto T593;} |
1380 |
base[7]= (VV[185]->s.s_gfdef); |
base[7]= (VV[200]->s.s_gfdef); |
1381 |
base[8]= (V290); |
base[8]= (V280); |
1382 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1383 |
(void) (*Lnk186)(); |
(void) (*Lnk201)(); |
1384 |
vs_top=sup; |
vs_top=sup; |
1385 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1386 |
goto T596;} |
goto T596;} |
1387 |
{object V296; |
{object V286; |
1388 |
V296= (VFUN_NARGS=3,(*(LnkLI187))(CMPcadr((V284)),(V285),(V287))); |
V286= (VFUN_NARGS=3,(*(LnkLI202))(CMPcadr((V274)),(V275),(V277))); |
1389 |
if(((V296))==Cnil){ |
if(((V286))==Cnil){ |
1390 |
goto T602;} |
goto T602;} |
1391 |
{object V297 = (*(LnkLI188))((V286),(V296),(V291),(V284)); |
{object V287 = (*(LnkLI203))((V276),(V286),(V281),(V274)); |
1392 |
VMR24(V297)} |
VMR24(V287)} |
1393 |
goto T602; |
goto T602; |
1394 |
T602:; |
T602:; |
1395 |
{object V298 = Cnil; |
{object V288 = Cnil; |
1396 |
VMR24(V298)}} |
VMR24(V288)}} |
1397 |
goto T596; |
goto T596; |
1398 |
T596:; |
T596:; |
1399 |
{object V299 = Cnil; |
{object V289 = Cnil; |
1400 |
VMR24(V299)} |
VMR24(V289)} |
1401 |
goto T593; |
goto T593; |
1402 |
T593:; |
T593:; |
1403 |
if(!(number_compare((V294),small_fixnum(2))==0)){ |
if(!(number_compare((V284),small_fixnum(2))==0)){ |
1404 |
goto T605;} |
goto T605;} |
1405 |
if(!(type_of((V291))==t_cons)){ |
if(!(type_of((V281))==t_cons)){ |
1406 |
goto T605;} |
goto T605;} |
1407 |
if(!((CMPcar((V291)))==(VV[37]))){ |
if(!((CMPcar((V281)))==(VV[37]))){ |
1408 |
goto T605;} |
goto T605;} |
1409 |
base[7]= (VV[189]->s.s_gfdef); |
base[7]= (VV[204]->s.s_gfdef); |
1410 |
base[8]= (V290); |
base[8]= (V280); |
1411 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1412 |
(void) (*Lnk186)(); |
(void) (*Lnk201)(); |
1413 |
vs_top=sup; |
vs_top=sup; |
1414 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1415 |
goto T612;} |
goto T612;} |
1416 |
{object V300; |
{object V290; |
1417 |
V300= (VFUN_NARGS=3,(*(LnkLI187))(CMPcaddr((V284)),(V285),(V287))); |
V290= (VFUN_NARGS=3,(*(LnkLI202))(CMPcaddr((V274)),(V275),(V277))); |
1418 |
if(((V300))==Cnil){ |
if(((V290))==Cnil){ |
1419 |
goto T618;} |
goto T618;} |
1420 |
{object V301 = (*(LnkLI190))((V286),(V300),(V291),(V284)); |
{object V291 = (*(LnkLI205))((V276),(V290),(V281),(V274)); |
1421 |
VMR24(V301)} |
VMR24(V291)} |
1422 |
goto T618; |
goto T618; |
1423 |
T618:; |
T618:; |
1424 |
{object V302 = Cnil; |
{object V292 = Cnil; |
1425 |
VMR24(V302)}} |
VMR24(V292)}} |
1426 |
goto T612; |
goto T612; |
1427 |
T612:; |
T612:; |
1428 |
{object V303 = Cnil; |
{object V293 = Cnil; |
1429 |
VMR24(V303)} |
VMR24(V293)} |
1430 |
goto T605; |
goto T605; |
1431 |
T605:; |
T605:; |
1432 |
{object V304 = Cnil; |
{object V294 = Cnil; |
1433 |
VMR24(V304)} |
VMR24(V294)} |
1434 |
goto T590; |
goto T590; |
1435 |
T590:; |
T590:; |
1436 |
{object V305 = Cnil; |
{object V295 = Cnil; |
1437 |
VMR24(V305)}} |
VMR24(V295)}} |
1438 |
goto T580; |
goto T580; |
1439 |
T580:; |
T580:; |
1440 |
{object V306 = Cnil; |
{object V296 = Cnil; |
1441 |
VMR24(V306)}} |
VMR24(V296)}} |
1442 |
goto T572; |
goto T572; |
1443 |
T572:; |
T572:; |
1444 |
{object V307 = Cnil; |
{object V297 = Cnil; |
1445 |
VMR24(V307)} |
VMR24(V297)} |
1446 |
goto T567; |
goto T567; |
1447 |
T567:; |
T567:; |
1448 |
{object V308 = Cnil; |
{object V298 = Cnil; |
1449 |
VMR24(V308)}} |
VMR24(V298)}} |
1450 |
base[0]=base[0]; |
base[0]=base[0]; |
1451 |
return Cnil; |
return Cnil; |
1452 |
} |
} |
1453 |
/* local entry for function OPTIMIZE-GENERIC-FUNCTION-CALL */ |
/* local entry for function OPTIMIZE-GENERIC-FUNCTION-CALL */ |
1454 |
|
|
1455 |
static object LI27(V314,V315,V316,V317,V318) |
static object LI27(V304,V305,V306,V307,V308) |
1456 |
|
|
1457 |
object V314;object V315;object V316;object V317;object V318; |
object V304;object V305;object V306;object V307;object V308; |
1458 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1459 |
goto TTL; |
goto TTL; |
1460 |
TTL:;{object V319; |
TTL:;{object V309; |
1461 |
if((CMPcar((V314)))==(VV[38])){ |
if((CMPcar((V304)))==(VV[38])){ |
1462 |
goto T622;} |
goto T622;} |
1463 |
V319= Cnil; |
V309= Cnil; |
1464 |
goto T621; |
goto T621; |
1465 |
goto T622; |
goto T622; |
1466 |
T622:; |
T622:; |
1467 |
V319= (*(LnkLI191))((V314)); |
V309= (*(LnkLI206))((V304)); |
1468 |
goto T621; |
goto T621; |
1469 |
T621:; |
T621:; |
1470 |
if(V319==Cnil)goto T620; |
if(V309==Cnil)goto T620; |
1471 |
{object V320 = V319; |
{object V310 = V309; |
1472 |
VMR25(V320)} |
VMR25(V310)} |
1473 |
goto T620; |
goto T620; |
1474 |
T620:;} |
T620:;} |
1475 |
{object V321 = (V314); |
{object V311 = (V304); |
1476 |
VMR25(V321)} |
VMR25(V311)} |
1477 |
return Cnil; |
return Cnil; |
1478 |
} |
} |
1479 |
/* local entry for function CAN-OPTIMIZE-ACCESS */ |
/* local entry for function CAN-OPTIMIZE-ACCESS */ |
1480 |
|
|
1481 |
static object LI28(V325,V326,V327) |
static object LI28(V315,V316,V317) |
1482 |
|
|
1483 |
object V325;object V326;object V327; |
object V315;object V316;object V317; |
1484 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1485 |
goto TTL; |
goto TTL; |
1486 |
TTL:; |
TTL:; |
1487 |
{object V328; |
{object V318; |
1488 |
object V329; |
object V319; |
1489 |
object V330; |
object V320; |
1490 |
{object V331= CMPcar((V325)); |
{object V321; |
1491 |
if((V331!= VV[192]))goto T625; |
V321= CMPcar((V315)); |
1492 |
V328= VV[39]; |
{object V322= (V321); |
1493 |
goto T624; |
if((V322!= VV[207]))goto T626; |
1494 |
goto T625; |
V318= VV[39]; |
|
T625:; |
|
|
if((V331!= VV[193]))goto T626; |
|
|
V328= VV[40]; |
|
1495 |
goto T624; |
goto T624; |
1496 |
goto T626; |
goto T626; |
1497 |
T626:; |
T626:; |
1498 |
if((V331!= VV[194]))goto T627; |
if((V322!= VV[208]))goto T627; |
1499 |
V328= VV[41]; |
V318= VV[40]; |
1500 |
goto T624; |
goto T624; |
1501 |
goto T627; |
goto T627; |
1502 |
T627:; |
T627:; |
1503 |
FEerror("The ECASE key value ~s is illegal.",1,V331); |
if((V322!= VV[209]))goto T628; |
1504 |
V328= Cnil; |
V318= VV[41]; |
1505 |
goto T624;} |
goto T624; |
1506 |
|
goto T628; |
1507 |
|
T628:; |
1508 |
|
base[0]= VV[42]; |
1509 |
|
base[1]= VV[43]; |
1510 |
|
base[2]= VV[44]; |
1511 |
|
base[3]= VV[45]; |
1512 |
|
base[4]= (V321); |
1513 |
|
base[5]= VV[46]; |
1514 |
|
base[6]= VV[47]; |
1515 |
|
base[7]= VV[48]; |
1516 |
|
base[8]= VV[49]; |
1517 |
|
vs_top=(vs_base=base+0)+9; |
1518 |
|
(void) (*Lnk210)(); |
1519 |
|
vs_top=sup; |
1520 |
|
V318= vs_base[0];}} |
1521 |
goto T624; |
goto T624; |
1522 |
T624:; |
T624:; |
1523 |
V329= CMPcadr((V325)); |
V319= CMPcadr((V315)); |
1524 |
base[0]= CMPcaddr((V325)); |
base[0]= CMPcaddr((V315)); |
1525 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1526 |
Leval(); |
Leval(); |
1527 |
vs_top=sup; |
vs_top=sup; |
1528 |
V330= vs_base[0]; |
V320= vs_base[0]; |
1529 |
{object V332 = (VFUN_NARGS=5,(*(LnkLI187))((V329),(V326),(V327),(V328),(V330))); |
{object V323 = (VFUN_NARGS=5,(*(LnkLI202))((V319),(V316),(V317),(V318),(V320))); |
1530 |
VMR26(V332)}} |
VMR26(V323)}} |
1531 |
base[0]=base[0]; |
base[0]=base[0]; |
1532 |
return Cnil; |
return Cnil; |
1533 |
} |
} |
1534 |
/* local entry for function CAN-OPTIMIZE-ACCESS1 */ |
/* local entry for function CAN-OPTIMIZE-ACCESS1 */ |
1535 |
|
|
1536 |
static object LI29(object V335,object V334,object V333,object first,...) |
static object LI29(object V326,object V325,object V324,object first,...) |
1537 |
{ |
{ |
1538 |
va_list ap; |
va_list ap; |
1539 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
1540 |
{register object V336; |
{register object V327; |
1541 |
object V337; |
object V328; |
1542 |
object V338; |
object V329; |
1543 |
object V339; |
object V330; |
1544 |
object V340; |
object V331; |
1545 |
va_start(ap,first); |
va_start(ap,first); |
1546 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1547 |
V336= V335; |
V327= V326; |
1548 |
V337= V334; |
V328= V325; |
1549 |
V338= V333; |
V329= V324; |
1550 |
narg = narg - 3; |
narg = narg - 3; |
1551 |
if (narg <= 0) goto T631; |
if (narg <= 0) goto T641; |
1552 |
else { |
else { |
1553 |
V339= first;} |
V330= first;} |
1554 |
if (--narg <= 0) goto T632; |
if (--narg <= 0) goto T642; |
1555 |
else { |
else { |
1556 |
V340= va_arg(ap,object);} |
V331= va_arg(ap,object);} |
1557 |
--narg; goto T633; |
--narg; goto T643; |
1558 |
goto T631; |
goto T641; |
1559 |
T631:; |
T641:; |
1560 |
V339= Cnil; |
V330= Cnil; |
1561 |
goto T632; |
goto T642; |
1562 |
T632:; |
T642:; |
1563 |
V340= Cnil; |
V331= Cnil; |
1564 |
goto T633; |
goto T643; |
1565 |
T633:; |
T643:; |
1566 |
if(!(type_of((V336))==t_cons)){ |
if(!(type_of((V327))==t_cons)){ |
1567 |
goto T636;} |
goto T646;} |
1568 |
if(!((VV[42])==(CMPcar((V336))))){ |
if(!((VV[50])==(CMPcar((V327))))){ |
1569 |
goto T636;} |
goto T646;} |
1570 |
V336= CMPcaddr((V336)); |
V327= CMPcaddr((V327)); |
1571 |
goto T636; |
goto T646; |
1572 |
T636:; |
T646:; |
1573 |
if(!(type_of((V336))==t_symbol)){ |
if(!(type_of((V327))==t_symbol)){ |
1574 |
goto T643;} |
goto T653;} |
1575 |
{object V341; |
{object V332; |
1576 |
object V342; |
object V333; |
1577 |
V343= (*(LnkLI195))(VV[43],(V336),(V338)); |
V334= (*(LnkLI211))(VV[51],(V327),(V329)); |
1578 |
V341= CMPcaddr(/* INLINE-ARGS */V343); |
V332= CMPcaddr(/* INLINE-ARGS */V334); |
1579 |
if((V341)!=Cnil){ |
if((V332)!=Cnil){ |
1580 |
V346= (V341); |
V337= (V332); |
1581 |
goto T648;} |
goto T658;} |
1582 |
V346= (V336); |
V337= (V327); |
1583 |
goto T648; |
goto T658; |
1584 |
T648:; |
T658:; |
1585 |
V347 = (V337); |
{register object x= V337,V336= (V328); |
1586 |
{register object x= V346,V345= V347; |
while(V336!=Cnil) |
1587 |
while(V345!=Cnil) |
if(x==(V336->c.c_car)){ |
1588 |
if(x==(V345->c.c_car)){ |
V335= V336; |
1589 |
V344= V345; |
goto T657; |
1590 |
goto T647; |
}else V336=V336->c.c_cdr; |
1591 |
}else V345=V345->c.c_cdr; |
V335= Cnil;} |
1592 |
V344= Cnil;} |
goto T657; |
1593 |
goto T647; |
T657:; |
1594 |
T647:; |
V333= CMPcar(V335); |
1595 |
V342= CMPcar(V344); |
if(((V333))==Cnil){ |
1596 |
if(((V342))==Cnil){ |
goto T660;} |
1597 |
goto T650;} |
{register object V338; |
1598 |
{register object V348; |
register object V339; |
1599 |
register object V349; |
V340= (*(LnkLI211))(VV[52],(V333),(V329)); |
1600 |
V350= (*(LnkLI195))(VV[44],(V342),(V338)); |
V338= CMPcaddr(/* INLINE-ARGS */V340); |
1601 |
V348= CMPcaddr(/* INLINE-ARGS */V350); |
V339= (VFUN_NARGS=2,(*(LnkLI212))((V338),Cnil)); |
|
V349= (VFUN_NARGS=2,(*(LnkLI196))((V348),Cnil)); |
|
1602 |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
1603 |
goto T655;} |
goto T665;} |
1604 |
if(((V349))==Cnil){ |
if(((V339))==Cnil){ |
1605 |
goto T654;} |
goto T664;} |
1606 |
base[4]= (V349); |
base[4]= (V339); |
1607 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1608 |
(void) (*Lnk197)(Lclptr197); |
(void) (*Lnk213)(Lclptr213); |
1609 |
vs_top=sup; |
vs_top=sup; |
1610 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
|
goto T654;} |
|
|
goto T655; |
|
|
T655:; |
|
|
V349= Cnil; |
|
|
goto T654; |
|
|
T654:; |
|
|
if(((V348))==Cnil){ |
|
|
goto T664;} |
|
|
if(((V348))==(Ct)){ |
|
1611 |
goto T664;} |
goto T664;} |
1612 |
|
goto T665; |
1613 |
|
T665:; |
1614 |
|
V339= Cnil; |
1615 |
|
goto T664; |
1616 |
|
T664:; |
1617 |
|
if(((V338))==Cnil){ |
1618 |
|
goto T674;} |
1619 |
|
if(((V338))==(Ct)){ |
1620 |
|
goto T674;} |
1621 |
|
if(((V330))==Cnil){ |
1622 |
|
goto T678;} |
1623 |
if(((V339))==Cnil){ |
if(((V339))==Cnil){ |
1624 |
goto T668;} |
goto T678;}{object V342; |
1625 |
if(((V349))==Cnil){ |
V342= (VV[53]->s.s_dbind); |
1626 |
goto T668;}{object V352; |
base[4]= (V339); |
|
V352= (VV[45]->s.s_dbind); |
|
|
base[4]= (V349); |
|
1627 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1628 |
(void) (*Lnk198)(Lclptr198); |
(void) (*Lnk214)(Lclptr214); |
1629 |
vs_top=sup; |
vs_top=sup; |
1630 |
V353= vs_base[0]; |
V343= vs_base[0]; |
1631 |
{register object x= V352,V351= V353; |
{register object x= V342,V341= V343; |
1632 |
while(V351!=Cnil) |
while(V341!=Cnil) |
1633 |
if(x==(V351->c.c_car)){ |
if(x==(V341->c.c_car)){ |
1634 |
goto T675; |
goto T685; |
1635 |
}else V351=V351->c.c_cdr; |
}else V341=V341->c.c_cdr; |
1636 |
goto T668;}} |
goto T678;}} |
1637 |
goto T675; |
goto T685; |
1638 |
T675:; |
T685:; |
1639 |
base[4]= (V349); |
base[4]= (V339); |
1640 |
base[5]= (V340); |
base[5]= (V331); |
1641 |
base[6]= (V339); |
base[6]= (V330); |
1642 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1643 |
(void) (*Lnk160)(); |
(void) (*Lnk175)(); |
1644 |
vs_top=sup; |
vs_top=sup; |
1645 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1646 |
goto T669;} |
goto T679;} |
1647 |
goto T668; |
goto T678; |
1648 |
T668:; |
T678:; |
1649 |
V354 = (V342); |
if((V339)!=Cnil){ |
1650 |
if((V349)!=Cnil){ |
V344= (V339); |
1651 |
V355= (V349); |
goto T692;} |
1652 |
goto T682;} |
V344= (V338); |
1653 |
V355= (V348); |
goto T692; |
1654 |
goto T682; |
T692:; |
1655 |
T682:; |
{object V345 = make_cons((V333),V344); |
1656 |
{object V356 = make_cons(V354,V355); |
VMR27(V345)} |
1657 |
VMR27(V356)} |
goto T679; |
1658 |
goto T669; |
T679:; |
1659 |
T669:; |
{object V346 = Cnil; |
1660 |
{object V357 = Cnil; |
VMR27(V346)} |
1661 |
VMR27(V357)} |
goto T674; |
1662 |
goto T664; |
T674:; |
1663 |
T664:; |
{object V347 = Cnil; |
1664 |
{object V358 = Cnil; |
VMR27(V347)}} |
1665 |
VMR27(V358)}} |
goto T660; |
1666 |
goto T650; |
T660:; |
1667 |
T650:; |
{object V348 = Cnil; |
1668 |
{object V359 = Cnil; |
VMR27(V348)}} |
1669 |
VMR27(V359)}} |
goto T653; |
1670 |
goto T643; |
T653:; |
1671 |
T643:; |
{object V349 = Cnil; |
1672 |
{object V360 = Cnil; |
VMR27(V349)} |
|
VMR27(V360)} |
|
1673 |
va_end(ap); |
va_end(ap); |
1674 |
base[0]=base[0]; |
base[0]=base[0]; |
1675 |
return Cnil;} |
return Cnil;} |
1676 |
} |
} |
1677 |
/* local entry for function OPTIMIZE-SLOT-VALUE */ |
/* local entry for function OPTIMIZE-SLOT-VALUE */ |
1678 |
|
|
1679 |
static object LI30(V364,V365,V366) |
static object LI30(V353,V354,V355) |
1680 |
|
|
1681 |
object V364;object V365;object V366; |
object V353;object V354;object V355; |
1682 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1683 |
goto TTL; |
goto TTL; |
1684 |
TTL:; |
TTL:; |
1685 |
if(((V365))==Cnil){ |
if(((V354))==Cnil){ |
1686 |
goto T684;} |
goto T694;} |
1687 |
{object V367; |
{object V356; |
1688 |
object V368; |
object V357; |
1689 |
V367= Cnil; |
V356= Cnil; |
1690 |
V368= Cnil; |
V357= Cnil; |
1691 |
V368= (V366); |
V357= (V355); |
1692 |
V367= CMPcaddr((V368)); |
V356= CMPcaddr((V357)); |
1693 |
{object V369; |
{object V358; |
1694 |
base[0]= (V367); |
base[0]= (V356); |
1695 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1696 |
Leval(); |
Leval(); |
1697 |
vs_top=sup; |
vs_top=sup; |
1698 |
V369= vs_base[0]; |
V358= vs_base[0]; |
1699 |
{object V370 = (*(LnkLI199))((V364),VV[46],(V365),(V369),Cnil); |
{object V359 = (*(LnkLI215))((V353),VV[54],(V354),(V358),Cnil); |
1700 |
VMR28(V370)}}} |
VMR28(V359)}}} |
1701 |
goto T684; |
goto T694; |
1702 |
T684:; |
T694:; |
1703 |
{object V371 = make_cons(VV[47],CMPcdr((V366))); |
{object V360 = make_cons(VV[55],CMPcdr((V355))); |
1704 |
VMR28(V371)} |
VMR28(V360)} |
1705 |
base[0]=base[0]; |
base[0]=base[0]; |
1706 |
return Cnil; |
return Cnil; |
1707 |
} |
} |
1708 |
/* local entry for function OPTIMIZE-SET-SLOT-VALUE */ |
/* local entry for function OPTIMIZE-SET-SLOT-VALUE */ |
1709 |
|
|
1710 |
static object LI31(V375,V376,V377) |
static object LI31(V364,V365,V366) |
1711 |
|
|
1712 |
object V375;object V376;object V377; |
object V364;object V365;object V366; |
1713 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1714 |
goto TTL; |
goto TTL; |
1715 |
TTL:; |
TTL:; |
1716 |
if(((V376))==Cnil){ |
if(((V365))==Cnil){ |
1717 |
goto T694;} |
goto T704;} |
1718 |
{object V378; |
{object V367; |
1719 |
object V379; |
object V368; |
1720 |
register object V380; |
register object V369; |
1721 |
V378= Cnil; |
V367= Cnil; |
1722 |
V379= Cnil; |
V368= Cnil; |
1723 |
V380= Cnil; |
V369= Cnil; |
1724 |
V380= (V377); |
V369= (V366); |
1725 |
V380= CMPcddr((V380)); |
V369= CMPcddr((V369)); |
1726 |
{object V381; |
{object V370; |
1727 |
V381= CMPcar((V380)); |
V370= CMPcar((V369)); |
1728 |
V380= CMPcdr((V380)); |
V369= CMPcdr((V369)); |
1729 |
V379= (V381);} |
V368= (V370);} |
1730 |
V378= CMPcar((V380)); |
V367= CMPcar((V369)); |
1731 |
{object V382; |
{object V371; |
1732 |
base[0]= (V379); |
base[0]= (V368); |
1733 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1734 |
Leval(); |
Leval(); |
1735 |
vs_top=sup; |
vs_top=sup; |
1736 |
V382= vs_base[0]; |
V371= vs_base[0]; |
1737 |
{object V383 = (*(LnkLI199))((V375),VV[48],(V376),(V382),(V378)); |
{object V372 = (*(LnkLI215))((V364),VV[56],(V365),(V371),(V367)); |
1738 |
VMR29(V383)}}} |
VMR29(V372)}}} |
1739 |
goto T694; |
goto T704; |
1740 |
T694:; |
T704:; |
1741 |
{object V384 = make_cons(VV[49],CMPcdr((V377))); |
{object V373 = make_cons(VV[57],CMPcdr((V366))); |
1742 |
VMR29(V384)} |
VMR29(V373)} |
1743 |
base[0]=base[0]; |
base[0]=base[0]; |
1744 |
return Cnil; |
return Cnil; |
1745 |
} |
} |
1746 |
/* local entry for function OPTIMIZE-SLOT-BOUNDP */ |
/* local entry for function OPTIMIZE-SLOT-BOUNDP */ |
1747 |
|
|
1748 |
static object LI32(V388,V389,V390) |
static object LI32(V377,V378,V379) |
1749 |
|
|
1750 |
object V388;object V389;object V390; |
object V377;object V378;object V379; |
1751 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1752 |
goto TTL; |
goto TTL; |
1753 |
TTL:; |
TTL:; |
1754 |
if(((V389))==Cnil){ |
if(((V378))==Cnil){ |
1755 |
goto T712;} |
goto T722;} |
1756 |
{object V391; |
{object V380; |
1757 |
object V392; |
object V381; |
1758 |
register object V393; |
register object V382; |
1759 |
V391= Cnil; |
V380= Cnil; |
1760 |
V392= Cnil; |
V381= Cnil; |
1761 |
V393= Cnil; |
V382= Cnil; |
1762 |
V393= (V390); |
V382= (V379); |
1763 |
V393= CMPcddr((V393)); |
V382= CMPcddr((V382)); |
1764 |
{object V394; |
{object V383; |
1765 |
V394= CMPcar((V393)); |
V383= CMPcar((V382)); |
1766 |
V393= CMPcdr((V393)); |
V382= CMPcdr((V382)); |
1767 |
V392= (V394);} |
V381= (V383);} |
1768 |
V391= CMPcar((V393)); |
V380= CMPcar((V382)); |
1769 |
{object V395; |
{object V384; |
1770 |
base[0]= (V392); |
base[0]= (V381); |
1771 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1772 |
Leval(); |
Leval(); |
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
V395= vs_base[0]; |
V384= vs_base[0]; |
1775 |
{object V396 = (*(LnkLI199))((V388),VV[50],(V389),(V395),(V391)); |
{object V385 = (*(LnkLI215))((V377),VV[58],(V378),(V384),(V380)); |
1776 |
VMR30(V396)}}} |
VMR30(V385)}}} |
1777 |
goto T712; |
goto T722; |
1778 |
T712:; |
T722:; |
1779 |
{object V397 = make_cons(VV[51],CMPcdr((V390))); |
{object V386 = make_cons(VV[59],CMPcdr((V379))); |
1780 |
VMR30(V397)} |
VMR30(V386)} |
1781 |
base[0]=base[0]; |
base[0]=base[0]; |
1782 |
return Cnil; |
return Cnil; |
1783 |
} |
} |
1784 |
/* local entry for function OPTIMIZE-READER */ |
/* local entry for function OPTIMIZE-READER */ |
1785 |
|
|
1786 |
static object LI33(V402,V403,V404,V405) |
static object LI33(V391,V392,V393,V394) |
1787 |
|
|
1788 |
object V402;object V403;object V404;object V405; |
object V391;object V392;object V393;object V394; |
1789 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1790 |
goto TTL; |
goto TTL; |
1791 |
TTL:; |
TTL:; |
1792 |
if(((V403))==Cnil){ |
if(((V392))==Cnil){ |
1793 |
goto T730;} |
goto T740;} |
1794 |
{object V406 = (*(LnkLI200))((V402),VV[46],(V403),(V404),Cnil); |
{object V395 = (*(LnkLI216))((V391),VV[54],(V392),(V393),Cnil); |
1795 |
VMR31(V406)} |
VMR31(V395)} |
1796 |
goto T730; |
goto T740; |
1797 |
T730:; |
T740:; |
1798 |
{object V407 = (V405); |
{object V396 = (V394); |
1799 |
VMR31(V407)} |
VMR31(V396)} |
1800 |
return Cnil; |
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function OPTIMIZE-WRITER */ |
/* local entry for function OPTIMIZE-WRITER */ |
1803 |
|
|
1804 |
static object LI34(V412,V413,V414,V415) |
static object LI34(V401,V402,V403,V404) |
1805 |
|
|
1806 |
object V412;object V413;object V414;object V415; |
object V401;object V402;object V403;object V404; |
1807 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1808 |
goto TTL; |
goto TTL; |
1809 |
TTL:; |
TTL:; |
1810 |
if(((V413))==Cnil){ |
if(((V402))==Cnil){ |
1811 |
goto T733;} |
goto T743;} |
1812 |
{object V416; |
{object V405; |
1813 |
object V417; |
object V406; |
1814 |
V416= Cnil; |
V405= Cnil; |
1815 |
V417= Cnil; |
V406= Cnil; |
1816 |
V417= (V415); |
V406= (V404); |
1817 |
V416= CMPcaddr((V417)); |
V405= CMPcaddr((V406)); |
1818 |
{object V418 = (*(LnkLI200))((V412),VV[48],(V413),(V414),(V416)); |
{object V407 = (*(LnkLI216))((V401),VV[56],(V402),(V403),(V405)); |
1819 |
VMR32(V418)}} |
VMR32(V407)}} |
1820 |
goto T733; |
goto T743; |
1821 |
T733:; |
T743:; |
1822 |
{object V419 = (V415); |
{object V408 = (V404); |
1823 |
VMR32(V419)} |
VMR32(V408)} |
1824 |
return Cnil; |
return Cnil; |
1825 |
} |
} |
1826 |
/* local entry for function OPTIMIZE-INSTANCE-ACCESS */ |
/* local entry for function OPTIMIZE-INSTANCE-ACCESS */ |
1827 |
|
|
1828 |
static object LI35(V425,V426,V427,V428,V429) |
static object LI35(V414,V415,V416,V417,V418) |
1829 |
|
|
1830 |
object V425;object V426;register object V427;register object V428;object V429; |
object V414;object V415;register object V416;register object V417;object V418; |
1831 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1832 |
goto TTL; |
goto TTL; |
1833 |
TTL:; |
TTL:; |
1834 |
{register object V430; |
{register object V419; |
1835 |
register object V431; |
register object V420; |
1836 |
if(!(type_of((V427))==t_cons)){ |
if(!(type_of((V416))==t_cons)){ |
1837 |
goto T742;} |
goto T752;} |
1838 |
V430= CMPcdr((V427)); |
V419= CMPcdr((V416)); |
1839 |
goto T740; |
goto T750; |
1840 |
goto T742; |
goto T752; |
1841 |
T742:; |
T752:; |
1842 |
V430= (VV[52]->s.s_dbind); |
V419= (VV[60]->s.s_dbind); |
1843 |
goto T740; |
goto T750; |
1844 |
T740:; |
T750:; |
1845 |
if(!(type_of((V427))==t_cons)){ |
if(!(type_of((V416))==t_cons)){ |
1846 |
goto T746;} |
goto T756;} |
1847 |
V431= CMPcar((V427)); |
V420= CMPcar((V416)); |
1848 |
goto T744; |
goto T754; |
1849 |
goto T746; |
goto T756; |
1850 |
T746:; |
T756:; |
1851 |
V431= (V427); |
V420= (V416); |
1852 |
goto T744; |
goto T754; |
1853 |
T744:; |
T754:; |
1854 |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
if(!(((VV[22]->s.s_dbind))==(VV[23]))){ |
1855 |
goto T749;} |
goto T759;} |
1856 |
base[0]= (V430); |
base[0]= (V419); |
1857 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1858 |
(void) (*Lnk201)(Lclptr201); |
(void) (*Lnk217)(Lclptr217); |
1859 |
vs_top=sup; |
vs_top=sup; |
1860 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1861 |
goto T749;}{object V433; |
goto T759;}{object V422; |
1862 |
V433= (VV[45]->s.s_dbind); |
V422= (VV[53]->s.s_dbind); |
1863 |
base[0]= (V430); |
base[0]= (V419); |
1864 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1865 |
(void) (*Lnk198)(Lclptr198); |
(void) (*Lnk214)(Lclptr214); |
1866 |
vs_top=sup; |
vs_top=sup; |
1867 |
V434= vs_base[0]; |
V423= vs_base[0]; |
1868 |
{register object x= V433,V432= V434; |
{register object x= V422,V421= V423; |
1869 |
while(V432!=Cnil) |
while(V421!=Cnil) |
1870 |
if(x==(V432->c.c_car)){ |
if(x==(V421->c.c_car)){ |
1871 |
goto T755; |
goto T765; |
1872 |
}else V432=V432->c.c_cdr; |
}else V421=V421->c.c_cdr; |
1873 |
goto T749;}} |
goto T759;}} |
1874 |
goto T755; |
goto T765; |
1875 |
T755:; |
T765:; |
1876 |
{object V435; |
{object V424; |
1877 |
V435= (*(LnkLI158))((V430),(V428)); |
V424= (*(LnkLI173))((V419),(V417)); |
1878 |
{object V436= (V426); |
{object V426= V415; |
1879 |
if((V436!= VV[46]))goto T759; |
if((V426!= VV[54]))goto T769; |
1880 |
base[0]= (V435); |
base[0]= (V424); |
1881 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1882 |
(void) (*Lnk202)(Lclptr202); |
(void) (*Lnk218)(Lclptr218); |
1883 |
vs_top=sup; |
vs_top=sup; |
1884 |
V437= vs_base[0]; |
V427= vs_base[0]; |
1885 |
V438 = (V431); |
{object V428 = list(2,V427,(V420)); |
1886 |
{object V439 = list(2,V437,V438); |
VMR33(V428)} |
1887 |
VMR33(V439)} |
goto T769; |
1888 |
goto T759; |
T769:; |
1889 |
T759:; |
if((V426!= VV[56]))goto T772; |
1890 |
if((V436!= VV[48]))goto T762; |
base[0]= (V424); |
|
base[0]= (V435); |
|
1891 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1892 |
(void) (*Lnk202)(Lclptr202); |
(void) (*Lnk218)(Lclptr218); |
1893 |
vs_top=sup; |
vs_top=sup; |
1894 |
V440= vs_base[0]; |
V429= vs_base[0]; |
1895 |
V441 = (V431); |
{object V430 = list(3,VV[37],list(2,V429,(V420)),(V418)); |
1896 |
{object V442 = list(3,VV[37],list(2,V440,V441),(V429)); |
VMR33(V430)} |
1897 |
VMR33(V442)} |
goto T772; |
1898 |
goto T762; |
T772:; |
1899 |
T762:; |
if((V426!= VV[58]))goto T775; |
1900 |
if((V436!= VV[50]))goto T765; |
{object V431 = Ct; |
1901 |
{object V443 = Ct; |
VMR33(V431)} |
1902 |
VMR33(V443)} |
goto T775; |
1903 |
goto T765; |
T775:; |
1904 |
T765:; |
base[0]= VV[42]; |
1905 |
FEerror("The ECASE key value ~s is illegal.",1,V436); |
base[1]= VV[43]; |
1906 |
{object V444 = Cnil; |
base[2]= VV[44]; |
1907 |
VMR33(V444)}}} |
base[3]= VV[45]; |
1908 |
goto T749; |
base[4]= V415; |
1909 |
T749:; |
base[5]= VV[46]; |
1910 |
{register object V445; |
base[6]= VV[61]; |
1911 |
register object V446; |
base[7]= VV[48]; |
1912 |
object V447; |
base[8]= VV[62]; |
1913 |
register object V448; |
vs_top=(vs_base=base+0)+9; |
1914 |
{register object x= (V431),V449= (V425); |
(void) (*Lnk210)(); |
1915 |
while(V449!=Cnil) |
vs_top=sup; |
1916 |
if(EQ(x,V449->c.c_car->c.c_car) &&V449->c.c_car != Cnil){ |
{object V432 = vs_base[0]; |
1917 |
V445= (V449->c.c_car); |
VMR33(V432)}}} |
1918 |
goto T766; |
goto T759; |
1919 |
}else V449=V449->c.c_cdr; |
T759:; |
1920 |
V445= Cnil;} |
{register object V433; |
1921 |
goto T766; |
register object V434; |
1922 |
T766:; |
object V435; |
1923 |
{register object x= (V428),V450= CMPcdr((V445)); |
register object V436; |
1924 |
while(V450!=Cnil) |
{register object x= (V420),V437= (V414); |
1925 |
if(EQ(x,V450->c.c_car->c.c_car) &&V450->c.c_car != Cnil){ |
while(V437!=Cnil) |
1926 |
V446= (V450->c.c_car); |
if(EQ(x,V437->c.c_car->c.c_car) &&V437->c.c_car != Cnil){ |
1927 |
goto T767; |
V433= (V437->c.c_car); |
1928 |
}else V450=V450->c.c_cdr; |
goto T785; |
1929 |
V446= Cnil;} |
}else V437=V437->c.c_cdr; |
1930 |
goto T767; |
V433= Cnil;} |
1931 |
T767:; |
goto T785; |
1932 |
base[4]= (V445); |
T785:; |
1933 |
base[5]= (V425); |
{register object x= (V417),V438= CMPcdr((V433)); |
1934 |
|
while(V438!=Cnil) |
1935 |
|
if(EQ(x,V438->c.c_car->c.c_car) &&V438->c.c_car != Cnil){ |
1936 |
|
V434= (V438->c.c_car); |
1937 |
|
goto T786; |
1938 |
|
}else V438=V438->c.c_cdr; |
1939 |
|
V434= Cnil;} |
1940 |
|
goto T786; |
1941 |
|
T786:; |
1942 |
|
base[4]= (V433); |
1943 |
|
base[5]= (V414); |
1944 |
base[6]= VV[21]; |
base[6]= VV[21]; |
1945 |
base[7]= (VV[9]->s.s_gfdef); |
base[7]= (VV[9]->s.s_gfdef); |
1946 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1947 |
(void) (*Lnk203)(); |
(void) (*Lnk219)(); |
1948 |
vs_top=sup; |
vs_top=sup; |
1949 |
V447= vs_base[0]; |
V435= vs_base[0]; |
1950 |
V448= list(2,VV[53],VV[54]); |
V436= list(2,VV[63],VV[64]); |
1951 |
if(((V445))!=Cnil){ |
if(((V433))!=Cnil){ |
1952 |
goto T774;} |
goto T793;} |
1953 |
base[4]= VV[55]; |
base[4]= VV[65]; |
1954 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1955 |
Lerror(); |
Lerror(); |
1956 |
vs_top=sup; |
vs_top=sup; |
1957 |
goto T774; |
goto T793; |
1958 |
T774:; |
T793:; |
1959 |
if(((V446))!=Cnil){ |
if(((V434))!=Cnil){ |
1960 |
goto T778;} |
goto T797;} |
1961 |
V446= make_cons((V428),Cnil); |
V434= make_cons((V417),Cnil); |
1962 |
{object V453; |
{object V441; |
1963 |
V453= make_cons(V446,CMPcdr(V445)); |
V441= make_cons(V434,CMPcdr(V433)); |
1964 |
(V445)->c.c_cdr = (V453);} |
(V433)->c.c_cdr = (V441);} |
1965 |
goto T778; |
goto T797; |
1966 |
T778:; |
T797:; |
1967 |
{object V456; |
{object V444; |
1968 |
V456= make_cons(V448,CMPcdr(V446)); |
V444= make_cons(V436,CMPcdr(V434)); |
1969 |
(V446)->c.c_cdr = (V456);} |
(V434)->c.c_cdr = (V444);} |
1970 |
{object V457= (V426); |
{object V446= V415; |
1971 |
if((V457!= VV[46]))goto T788; |
if((V446!= VV[54]))goto T807; |
1972 |
V458= list(2,VV[57],(V428)); |
V447= list(2,VV[67],(V417)); |
1973 |
{object V459 = list(6,VV[56],(V448),(V431),(V447),/* INLINE-ARGS */V458,list(2,VV[57],(V430))); |
{object V448 = list(6,VV[66],(V436),(V420),(V435),/* INLINE-ARGS */V447,list(2,VV[67],(V419))); |
1974 |
VMR33(V459)} |
VMR33(V448)} |
1975 |
goto T788; |
goto T807; |
1976 |
T788:; |
T807:; |
1977 |
if((V457!= VV[48]))goto T789; |
if((V446!= VV[56]))goto T808; |
1978 |
V460= list(2,VV[58],(V429)); |
V449= list(2,VV[68],(V418)); |
1979 |
V461= make_cons(/* INLINE-ARGS */V460,Cnil); |
V450= make_cons(/* INLINE-ARGS */V449,Cnil); |
1980 |
V462= list(2,VV[57],(V428)); |
V451= list(2,VV[67],(V417)); |
1981 |
{object V463 = list(3,VV[0],/* INLINE-ARGS */V461,list(7,VV[59],(V448),(V431),(V447),/* INLINE-ARGS */V462,list(2,VV[57],(V430)),VV[58])); |
{object V452 = list(3,VV[0],/* INLINE-ARGS */V450,list(7,VV[69],(V436),(V420),(V435),/* INLINE-ARGS */V451,list(2,VV[67],(V419)),VV[68])); |
1982 |
VMR33(V463)} |
VMR33(V452)} |
1983 |
goto T789; |
goto T808; |
1984 |
T789:; |
T808:; |
1985 |
if((V457!= VV[50]))goto T790; |
if((V446!= VV[58]))goto T809; |
1986 |
V464= list(2,VV[57],(V428)); |
V453= list(2,VV[67],(V417)); |
1987 |
{object V465 = list(6,VV[60],(V448),(V431),(V447),/* INLINE-ARGS */V464,list(2,VV[57],(V430))); |
{object V454 = list(6,VV[70],(V436),(V420),(V435),/* INLINE-ARGS */V453,list(2,VV[67],(V419))); |
1988 |
VMR33(V465)} |
VMR33(V454)} |
1989 |
goto T790; |
goto T809; |
1990 |
T790:; |
T809:; |
1991 |
FEerror("The ECASE key value ~s is illegal.",1,V457); |
base[4]= VV[42]; |
1992 |
{object V466 = Cnil; |
base[5]= VV[43]; |
1993 |
VMR33(V466)}}}} |
base[6]= VV[44]; |
1994 |
|
base[7]= VV[45]; |
1995 |
|
base[8]= V415; |
1996 |
|
base[9]= VV[46]; |
1997 |
|
base[10]= VV[71]; |
1998 |
|
base[11]= VV[48]; |
1999 |
|
base[12]= VV[72]; |
2000 |
|
vs_top=(vs_base=base+4)+9; |
2001 |
|
(void) (*Lnk210)(); |
2002 |
|
vs_top=sup; |
2003 |
|
{object V455 = vs_base[0]; |
2004 |
|
VMR33(V455)}}}} |
2005 |
base[0]=base[0]; |
base[0]=base[0]; |
2006 |
return Cnil; |
return Cnil; |
2007 |
} |
} |
2008 |
/* local entry for function OPTIMIZE-ACCESSOR-CALL */ |
/* local entry for function OPTIMIZE-ACCESSOR-CALL */ |
2009 |
|
|
2010 |
static object LI36(V472,V473,V474,V475,V476) |
static object LI36(V461,V462,V463,V464,V465) |
2011 |
|
|
2012 |
object V472;object V473;register object V474;register object V475;object V476; |
object V461;object V462;register object V463;register object V464;object V465; |
2013 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
2014 |
goto TTL; |
goto TTL; |
2015 |
TTL:; |
TTL:; |
2016 |
{object V477; |
{object V466; |
2017 |
object V478; |
object V467; |
2018 |
register object V479; |
register object V468; |
2019 |
object V480; |
object V469; |
2020 |
register object V481; |
register object V470; |
2021 |
object V482; |
object V471; |
2022 |
object V483; |
object V472; |
2023 |
if(!(type_of((V474))==t_cons)){ |
if(!(type_of((V463))==t_cons)){ |
2024 |
goto T793;} |
goto T821;} |
2025 |
V477= CMPcdr((V474)); |
V466= CMPcdr((V463)); |
2026 |
goto T791; |
goto T819; |
2027 |
goto T793; |
goto T821; |
2028 |
T793:; |
T821:; |
2029 |
V477= (VV[52]->s.s_dbind); |
V466= (VV[60]->s.s_dbind); |
2030 |
goto T791; |
goto T819; |
2031 |
T791:; |
T819:; |
2032 |
if(!(type_of((V474))==t_cons)){ |
if(!(type_of((V463))==t_cons)){ |
2033 |
goto T797;} |
goto T825;} |
2034 |
V478= CMPcar((V474)); |
V467= CMPcar((V463)); |
2035 |
goto T795; |
goto T823; |
2036 |
goto T797; |
goto T825; |
2037 |
T797:; |
T825:; |
2038 |
V478= (V474); |
V467= (V463); |
2039 |
goto T795; |
goto T823; |
2040 |
T795:; |
T823:; |
2041 |
{register object x= (V478),V484= (V472); |
{register object x= (V467),V473= (V461); |
2042 |
while(V484!=Cnil) |
while(V473!=Cnil) |
2043 |
if(EQ(x,V484->c.c_car->c.c_car) &&V484->c.c_car != Cnil){ |
if(EQ(x,V473->c.c_car->c.c_car) &&V473->c.c_car != Cnil){ |
2044 |
V479= (V484->c.c_car); |
V468= (V473->c.c_car); |
2045 |
goto T799; |
goto T827; |
2046 |
}else V484=V484->c.c_cdr; |
}else V473=V473->c.c_cdr; |
2047 |
V479= Cnil;} |
V468= Cnil;} |
2048 |
goto T799; |
goto T827; |
2049 |
T799:; |
T827:; |
2050 |
{object V485= (V473); |
{object V474= (V462); |
2051 |
if((V485!= VV[46]))goto T801; |
if((V474!= VV[54]))goto T829; |
2052 |
V480= list(2,VV[39],(V475)); |
V469= list(2,VV[39],(V464)); |
2053 |
goto T800; |
goto T828; |
2054 |
goto T801; |
goto T829; |
2055 |
T801:; |
T829:; |
2056 |
if((V485!= VV[48]))goto T802; |
if((V474!= VV[56]))goto T830; |
2057 |
V480= list(2,VV[40],(V475)); |
V469= list(2,VV[40],(V464)); |
2058 |
goto T800; |
goto T828; |
2059 |
goto T802; |
goto T830; |
2060 |
T802:; |
T830:; |
2061 |
V480= Cnil;} |
V469= Cnil;} |
2062 |
goto T800; |
goto T828; |
2063 |
T800:; |
T828:; |
2064 |
{register object x= (V480),V486= CMPcdr((V479)); |
{register object x= (V469),V475= CMPcdr((V468)); |
2065 |
while(V486!=Cnil) |
while(V475!=Cnil) |
2066 |
if(equal(x,V486->c.c_car->c.c_car) &&V486->c.c_car != Cnil){ |
if(equal(x,V475->c.c_car->c.c_car) &&V475->c.c_car != Cnil){ |
2067 |
V481= (V486->c.c_car); |
V470= (V475->c.c_car); |
2068 |
goto T803; |
goto T831; |
2069 |
}else V486=V486->c.c_cdr; |
}else V475=V475->c.c_cdr; |
2070 |
V481= Cnil;} |
V470= Cnil;} |
2071 |
goto T803; |
goto T831; |
2072 |
T803:; |
T831:; |
2073 |
base[7]= (V479); |
base[7]= (V468); |
2074 |
base[8]= (V472); |
base[8]= (V461); |
2075 |
base[9]= VV[21]; |
base[9]= VV[21]; |
2076 |
base[10]= (VV[9]->s.s_gfdef); |
base[10]= (VV[9]->s.s_gfdef); |
2077 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
2078 |
(void) (*Lnk203)(); |
(void) (*Lnk219)(); |
2079 |
vs_top=sup; |
vs_top=sup; |
2080 |
V482= vs_base[0]; |
V471= vs_base[0]; |
2081 |
V483= list(2,VV[53],VV[61]); |
V472= list(2,VV[63],VV[73]); |
2082 |
if(((V479))!=Cnil){ |
if(((V468))!=Cnil){ |
2083 |
goto T810;} |
goto T838;} |
2084 |
base[7]= VV[62]; |
base[7]= VV[74]; |
2085 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2086 |
Lerror(); |
Lerror(); |
2087 |
vs_top=sup; |
vs_top=sup; |
2088 |
goto T810; |
goto T838; |
2089 |
T810:; |
T838:; |
2090 |
if(((V481))!=Cnil){ |
if(((V470))!=Cnil){ |
2091 |
goto T814;} |
goto T842;} |
2092 |
V481= make_cons((V480),Cnil); |
V470= make_cons((V469),Cnil); |
2093 |
{object V489; |
{object V478; |
2094 |
V489= make_cons(V481,CMPcdr(V479)); |
V478= make_cons(V470,CMPcdr(V468)); |
2095 |
(V479)->c.c_cdr = (V489);} |
(V468)->c.c_cdr = (V478);} |
2096 |
goto T814; |
goto T842; |
2097 |
T814:; |
T842:; |
2098 |
{object V492; |
{object V481; |
2099 |
V492= make_cons(V483,CMPcdr(V481)); |
V481= make_cons(V472,CMPcdr(V470)); |
2100 |
(V481)->c.c_cdr = (V492);} |
(V470)->c.c_cdr = (V481);} |
2101 |
{object V493= (V473); |
{object V483= V462; |
2102 |
if((V493!= VV[46]))goto T824; |
if((V483!= VV[54]))goto T852; |
2103 |
{object V494 = list(6,VV[63],(V483),(V478),(V482),(V475),list(2,VV[57],(V477))); |
{object V484 = list(6,VV[75],(V472),(V467),(V471),(V464),list(2,VV[67],(V466))); |
2104 |
VMR34(V494)} |
VMR34(V484)} |
2105 |
goto T824; |
goto T852; |
2106 |
T824:; |
T852:; |
2107 |
if((V493!= VV[48]))goto T825; |
if((V483!= VV[56]))goto T853; |
2108 |
V495= list(2,VV[58],(V476)); |
V485= list(2,VV[68],(V465)); |
2109 |
V496= make_cons(/* INLINE-ARGS */V495,Cnil); |
V486= make_cons(/* INLINE-ARGS */V485,Cnil); |
2110 |
{object V497 = list(3,VV[0],/* INLINE-ARGS */V496,list(7,VV[64],(V483),(V478),(V482),(V475),list(2,VV[57],(V477)),VV[58])); |
{object V487 = list(3,VV[0],/* INLINE-ARGS */V486,list(7,VV[76],(V472),(V467),(V471),(V464),list(2,VV[67],(V466)),VV[68])); |
2111 |
VMR34(V497)} |
VMR34(V487)} |
2112 |
goto T825; |
goto T853; |
2113 |
T825:; |
T853:; |
2114 |
FEerror("The ECASE key value ~s is illegal.",1,V493); |
base[7]= VV[42]; |
2115 |
{object V498 = Cnil; |
base[8]= VV[43]; |
2116 |
VMR34(V498)}}} |
base[9]= VV[44]; |
2117 |
|
base[10]= VV[45]; |
2118 |
|
base[11]= V462; |
2119 |
|
base[12]= VV[46]; |
2120 |
|
base[13]= VV[77]; |
2121 |
|
base[14]= VV[48]; |
2122 |
|
base[15]= VV[78]; |
2123 |
|
vs_top=(vs_base=base+7)+9; |
2124 |
|
(void) (*Lnk210)(); |
2125 |
|
vs_top=sup; |
2126 |
|
{object V488 = vs_base[0]; |
2127 |
|
VMR34(V488)}}} |
2128 |
base[0]=base[0]; |
base[0]=base[0]; |
2129 |
return Cnil; |
return Cnil; |
2130 |
} |
} |
2131 |
/* local entry for function OPTIMIZE-GF-CALL-INTERNAL */ |
/* local entry for function OPTIMIZE-GF-CALL-INTERNAL */ |
2132 |
|
|
2133 |
static object LI37(V502,V503,V504) |
static object LI37(V492,V493,V494) |
2134 |
|
|
2135 |
register object V502;object V503;object V504; |
register object V492;object V493;object V494; |
2136 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2137 |
goto TTL; |
goto TTL; |
2138 |
TTL:; |
TTL:; |
2139 |
if(!(type_of((V502))==t_cons)){ |
if(!(type_of((V492))==t_cons)){ |
2140 |
goto T826;} |
goto T863;} |
2141 |
if(!((CMPcar((V502)))==(VV[42]))){ |
if(!((CMPcar((V492)))==(VV[50]))){ |
2142 |
goto T826;} |
goto T863;} |
2143 |
V502= CMPcaddr((V502)); |
V492= CMPcaddr((V492)); |
2144 |
goto T826; |
goto T863; |
2145 |
T826:;{object V505; |
T863:;{object V495; |
2146 |
if(type_of((V502))==t_symbol){ |
if(type_of((V492))==t_symbol){ |
2147 |
goto T834;} |
goto T871;} |
2148 |
V505= Cnil; |
V495= Cnil; |
2149 |
goto T833; |
goto T870; |
2150 |
goto T834; |
goto T871; |
2151 |
T834:; |
T871:; |
2152 |
{object V506; |
{object V496; |
2153 |
object V507; |
object V497; |
2154 |
V508= (*(LnkLI195))(VV[43],(V502),(V504)); |
V498= (*(LnkLI211))(VV[51],(V492),(V494)); |
2155 |
V506= CMPcaddr(/* INLINE-ARGS */V508); |
V496= CMPcaddr(/* INLINE-ARGS */V498); |
2156 |
if((V506)!=Cnil){ |
if((V496)!=Cnil){ |
2157 |
V511= (V506); |
V501= (V496); |
2158 |
goto T839;} |
goto T876;} |
2159 |
V511= (V502); |
V501= (V492); |
2160 |
goto T839; |
goto T876; |
2161 |
T839:; |
T876:; |
2162 |
V512 = (V503); |
{register object x= V501,V500= (V493); |
2163 |
{register object x= V511,V510= V512; |
while(V500!=Cnil) |
2164 |
while(V510!=Cnil) |
if(EQ(x,V500->c.c_car->c.c_car) &&V500->c.c_car != Cnil){ |
2165 |
if(EQ(x,V510->c.c_car->c.c_car) &&V510->c.c_car != Cnil){ |
V499= (V500->c.c_car); |
2166 |
V509= (V510->c.c_car); |
goto T875; |
2167 |
goto T838; |
}else V500=V500->c.c_cdr; |
2168 |
}else V510=V510->c.c_cdr; |
V499= Cnil;} |
2169 |
V509= Cnil;} |
goto T875; |
2170 |
goto T838; |
T875:; |
2171 |
T838:; |
V497= CMPcar(V499); |
2172 |
V507= CMPcar(V509); |
if(((V497))==Cnil){ |
2173 |
if(((V507))==Cnil){ |
goto T878;} |
2174 |
goto T841;} |
{object V502; |
2175 |
{object V513; |
V503= (*(LnkLI211))(VV[52],(V497),(V494)); |
2176 |
V514= (*(LnkLI195))(VV[44],(V507),(V504)); |
V502= CMPcaddr(/* INLINE-ARGS */V503); |
2177 |
V513= CMPcaddr(/* INLINE-ARGS */V514); |
if(((V502))==Cnil){ |
2178 |
if(((V513))==Cnil){ |
goto T882;} |
2179 |
goto T845;} |
if(((V502))==(Ct)){ |
2180 |
if(((V513))==(Ct)){ |
goto T882;} |
2181 |
goto T845;} |
base[3]= (V497); |
2182 |
base[3]= (V507); |
base[4]= (V493); |
2183 |
base[4]= (V503); |
base[5]= VV[79]; |
2184 |
base[5]= VV[65]; |
base[6]= (VV[220]->s.s_gfdef); |
|
base[6]= (VV[204]->s.s_gfdef); |
|
2185 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2186 |
(void) (*Lnk203)(); |
(void) (*Lnk219)(); |
2187 |
vs_top=sup; |
vs_top=sup; |
2188 |
V505= vs_base[0]; |
V495= vs_base[0]; |
2189 |
goto T833; |
goto T870; |
2190 |
goto T845; |
goto T882; |
2191 |
T845:; |
T882:; |
2192 |
V505= Cnil; |
V495= Cnil; |
2193 |
goto T833;} |
goto T870;} |
2194 |
goto T841; |
goto T878; |
2195 |
T841:; |
T878:; |
2196 |
V505= Cnil;} |
V495= Cnil;} |
2197 |
goto T833; |
goto T870; |
2198 |
T833:; |
T870:; |
2199 |
if(V505==Cnil)goto T832; |
if(V495==Cnil)goto T869; |
2200 |
{object V515 = V505; |
{object V504 = V495; |
2201 |
VMR35(V515)} |
VMR35(V504)} |
2202 |
goto T832; |
goto T869; |
2203 |
T832:;} |
T869:;} |
2204 |
base[0]= (V502); |
base[0]= (V492); |
2205 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2206 |
Lconstantp(); |
Lconstantp(); |
2207 |
vs_top=sup; |
vs_top=sup; |
2208 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2209 |
goto T854;} |
goto T891;} |
2210 |
{object V516; |
{object V505; |
2211 |
base[0]= (V502); |
base[0]= (V492); |
2212 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2213 |
Leval(); |
Leval(); |
2214 |
vs_top=sup; |
vs_top=sup; |
2215 |
V516= vs_base[0]; |
V505= vs_base[0]; |
2216 |
if(!(type_of((V516))==t_symbol)){ |
if(!(type_of((V505))==t_symbol)){ |
2217 |
goto T860;} |
goto T897;} |
2218 |
{object V517 = (V516); |
{object V506 = (V505); |
2219 |
VMR35(V517)} |
VMR35(V506)} |
2220 |
goto T860; |
goto T897; |
2221 |
T860:; |
T897:; |
2222 |
{object V518 = (VV[66]->s.s_dbind); |
{object V507 = (VV[80]->s.s_dbind); |
2223 |
VMR35(V518)}} |
VMR35(V507)}} |
2224 |
goto T854; |
goto T891; |
2225 |
T854:; |
T891:; |
2226 |
{object V519 = (VV[66]->s.s_dbind); |
{object V508 = (VV[80]->s.s_dbind); |
2227 |
VMR35(V519)} |
VMR35(V508)} |
2228 |
base[0]=base[0]; |
base[0]=base[0]; |
2229 |
return Cnil; |
return Cnil; |
2230 |
} |
} |
2231 |
/* local entry for function OPTIMIZE-GF-CALL */ |
/* local entry for function OPTIMIZE-GF-CALL */ |
2232 |
|
|
2233 |
static object LI38(V526,V527,V528,V529,V530,V531) |
static object LI38(V515,V516,V517,V518,V519,V520) |
2234 |
|
|
2235 |
object V526;object V527;register object V528;object V529;object V530;object V531; |
object V515;object V516;register object V517;object V518;object V519;object V520; |
2236 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2237 |
goto TTL; |
goto TTL; |
2238 |
TTL:; |
TTL:; |
2239 |
if((CMPcar((V528)))==(VV[38])){ |
if((CMPcar((V517)))==(VV[38])){ |
2240 |
goto T863;} |
goto T900;} |
2241 |
{object V532; |
{object V521; |
2242 |
object V533; |
object V522; |
2243 |
object V534; |
object V523; |
2244 |
object V535; |
object V524; |
2245 |
register object V536; |
register object V525; |
2246 |
register object V537; |
register object V526; |
2247 |
object V538; |
object V527; |
2248 |
V532= CMPcdr((V528)); |
V521= CMPcdr((V517)); |
2249 |
V533= ((CMPcar((V528)))==(VV[38])?Ct:Cnil); |
V522= ((CMPcar((V517)))==(VV[38])?Ct:Cnil); |
2250 |
V534= nthcdr(fix((V529)),(V532)); |
V523= nthcdr(fix((V518)),(V521)); |
2251 |
base[7]= (V532); |
base[7]= (V521); |
2252 |
base[8]= (V534); |
base[8]= (V523); |
2253 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
2254 |
Lldiff(); |
Lldiff(); |
2255 |
vs_top=sup; |
vs_top=sup; |
2256 |
V535= vs_base[0]; |
V524= vs_base[0]; |
2257 |
V539= CMPcar((V528)); |
V528= CMPcar((V517)); |
2258 |
V540 = (V529); |
if(((V522))==Cnil){ |
2259 |
V541 = (V530); |
goto T913;} |
2260 |
if(((V533))==Cnil){ |
V532= (V521); |
2261 |
goto T876;} |
goto T911; |
2262 |
V545= (V532); |
goto T913; |
2263 |
goto T874; |
T913:; |
2264 |
goto T876; |
V532= (V524); |
2265 |
T876:; |
goto T911; |
2266 |
V545= (V535); |
T911:; |
2267 |
goto T874; |
{object V530; |
2268 |
T874:; |
object V531= V532; |
2269 |
{object V543; |
if(V531==Cnil){ |
2270 |
object V544= V545; |
V529= Cnil; |
2271 |
if(V544==Cnil){ |
goto T909;} |
2272 |
V542= Cnil; |
base[7]=V530=MMcons(Cnil,Cnil); |
2273 |
goto T872;} |
goto T910; |
2274 |
base[7]=V543=MMcons(Cnil,Cnil); |
T910:; |
2275 |
goto T873; |
(V530->c.c_car)= (*(LnkLI221))((V531->c.c_car),(V515),(V520)); |
2276 |
T873:; |
if((V531=MMcdr(V531))==Cnil){ |
2277 |
(V543->c.c_car)= (*(LnkLI205))((V544->c.c_car),(V526),(V531)); |
V529= base[7]; |
2278 |
if((V544=MMcdr(V544))==Cnil){ |
goto T909;} |
2279 |
V542= base[7]; |
V530=MMcdr(V530)=MMcons(Cnil,Cnil); |
2280 |
goto T872;} |
goto T910;} |
2281 |
V543=MMcdr(V543)=MMcons(Cnil,Cnil); |
goto T909; |
2282 |
goto T873;} |
T909:; |
2283 |
goto T872; |
V525= list(4,/* INLINE-ARGS */V528,(V518),(V519),V529); |
2284 |
T872:; |
{register object x= (V525),V534= (V516); |
2285 |
V536= list(4,/* INLINE-ARGS */V539,V540,V541,V542); |
while(V534!=Cnil) |
2286 |
{register object x= (V536),V547= (V527); |
if(equal(x,V534->c.c_car->c.c_car) &&V534->c.c_car != Cnil){ |
2287 |
while(V547!=Cnil) |
V526= (V534->c.c_car); |
2288 |
if(equal(x,V547->c.c_car->c.c_car) &&V547->c.c_car != Cnil){ |
goto T916; |
2289 |
V537= (V547->c.c_car); |
}else V534=V534->c.c_cdr; |
2290 |
goto T879; |
V526= Cnil;} |
2291 |
}else V547=V547->c.c_cdr; |
goto T916; |
2292 |
V537= Cnil;} |
T916:; |
2293 |
goto T879; |
V527= list(2,VV[63],VV[81]); |
2294 |
T879:; |
base[7]= (VV[222]->s.s_gfdef); |
2295 |
V538= list(2,VV[53],VV[67]); |
{object V535; |
2296 |
base[7]= (VV[206]->s.s_gfdef); |
V535= CMPcdr((V525)); |
2297 |
{object V548; |
if(((V522))==Cnil){ |
2298 |
V548= CMPcdr((V536)); |
goto T925;} |
2299 |
if(((V533))==Cnil){ |
base[9]= (V535); |
2300 |
goto T888;} |
base[10]= nthcdr(fix((V518)),(V535)); |
|
base[9]= (V548); |
|
|
base[10]= nthcdr(fix((V529)),(V548)); |
|
2301 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
2302 |
Lldiff(); |
Lldiff(); |
2303 |
vs_top=sup; |
vs_top=sup; |
2304 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
2305 |
goto T885; |
goto T922; |
2306 |
goto T888; |
goto T925; |
2307 |
T888:; |
T925:; |
2308 |
base[8]= (V548);} |
base[8]= (V535);} |
2309 |
goto T885; |
goto T922; |
2310 |
T885:; |
T922:; |
2311 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
2312 |
(void) (*Lnk186)(); |
(void) (*Lnk201)(); |
2313 |
vs_top=sup; |
vs_top=sup; |
2314 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2315 |
goto T881;} |
goto T918;} |
2316 |
|
{object V536 = Cnil; |
2317 |
|
VMR36(V536)} |
2318 |
|
goto T918; |
2319 |
|
T918:; |
2320 |
|
if(((V526))!=Cnil){ |
2321 |
|
goto T929;} |
2322 |
|
V526= make_cons((V525),Cnil); |
2323 |
|
{object V539; |
2324 |
|
V539= make_cons(V526,CMPcdr(V516)); |
2325 |
|
(V516)->c.c_cdr = (V539);} |
2326 |
|
goto T929; |
2327 |
|
T929:; |
2328 |
|
{object V542; |
2329 |
|
V542= make_cons(V527,CMPcdr(V526)); |
2330 |
|
(V526)->c.c_cdr = (V542);} |
2331 |
|
if(!((CMPcar((V525)))==(VV[38]))){ |
2332 |
|
goto T940;} |
2333 |
|
{object V543 = listA(3,VV[82],list(3,VV[83],VV[84],(V527)),CMPcdr((V517))); |
2334 |
|
VMR36(V543)} |
2335 |
|
goto T940; |
2336 |
|
T940:; |
2337 |
|
V544= list(2,VV[85],list(3,VV[83],VV[84],(V527))); |
2338 |
|
V545= make_cons(/* INLINE-ARGS */V544,Cnil); |
2339 |
|
if(((V519))==Cnil){ |
2340 |
|
goto T944;} |
2341 |
|
V547= make_cons(VV[34],(V523)); |
2342 |
|
V546= make_cons(/* INLINE-ARGS */V547,Cnil); |
2343 |
|
goto T942; |
2344 |
|
goto T944; |
2345 |
|
T944:; |
2346 |
|
V546= Cnil; |
2347 |
|
goto T942; |
2348 |
|
T942:; |
2349 |
|
{object V548 = list(3,VV[0],/* INLINE-ARGS */V545,listA(4,VV[86],VV[85],(V519),append((V524),V546))); |
2350 |
|
VMR36(V548)}} |
2351 |
|
goto T900; |
2352 |
|
T900:; |
2353 |
{object V549 = Cnil; |
{object V549 = Cnil; |
2354 |
VMR36(V549)} |
VMR36(V549)} |
|
goto T881; |
|
|
T881:; |
|
|
if(((V537))!=Cnil){ |
|
|
goto T892;} |
|
|
V537= make_cons((V536),Cnil); |
|
|
{object V552; |
|
|
V552= make_cons(V537,CMPcdr(V527)); |
|
|
(V527)->c.c_cdr = (V552);} |
|
|
goto T892; |
|
|
T892:; |
|
|
{object V555; |
|
|
V555= make_cons(V538,CMPcdr(V537)); |
|
|
(V537)->c.c_cdr = (V555);} |
|
|
if(!((CMPcar((V536)))==(VV[38]))){ |
|
|
goto T903;} |
|
|
{object V556 = listA(3,VV[68],list(3,VV[69],VV[70],(V538)),CMPcdr((V528))); |
|
|
VMR36(V556)} |
|
|
goto T903; |
|
|
T903:; |
|
|
V557= list(2,VV[71],list(3,VV[69],VV[70],(V538))); |
|
|
V558= make_cons(/* INLINE-ARGS */V557,Cnil); |
|
|
V559 = (V535); |
|
|
if(((V530))==Cnil){ |
|
|
goto T907;} |
|
|
V561= make_cons(VV[34],(V534)); |
|
|
V560= make_cons(/* INLINE-ARGS */V561,Cnil); |
|
|
goto T905; |
|
|
goto T907; |
|
|
T907:; |
|
|
V560= Cnil; |
|
|
goto T905; |
|
|
T905:; |
|
|
{object V562 = list(3,VV[0],/* INLINE-ARGS */V558,listA(4,VV[72],VV[71],(V530),append(V559,V560))); |
|
|
VMR36(V562)}} |
|
|
goto T863; |
|
|
T863:; |
|
|
{object V563 = Cnil; |
|
|
VMR36(V563)} |
|
2355 |
base[0]=base[0]; |
base[0]=base[0]; |
2356 |
return Cnil; |
return Cnil; |
2357 |
} |
} |
2363 |
vs_check; |
vs_check; |
2364 |
check_arg(2); |
check_arg(2); |
2365 |
vs_top=sup; |
vs_top=sup; |
2366 |
{object V564=base[0]->c.c_cdr; |
{object V550=base[0]->c.c_cdr; |
2367 |
if(endp(V564))invalid_macro_call(); |
if(endp(V550))invalid_macro_call(); |
2368 |
base[2]= (V564->c.c_car); |
base[2]= (V550->c.c_car); |
2369 |
V564=V564->c.c_cdr; |
V550=V550->c.c_cdr; |
2370 |
if(!endp(V564))invalid_macro_call();} |
if(!endp(V550))invalid_macro_call();} |
2371 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2372 |
return; |
return; |
2373 |
} |
} |
2379 |
vs_check; |
vs_check; |
2380 |
check_arg(2); |
check_arg(2); |
2381 |
vs_top=sup; |
vs_top=sup; |
2382 |
{object V565=base[0]->c.c_cdr; |
{object V551=base[0]->c.c_cdr; |
2383 |
if(endp(V565))invalid_macro_call(); |
if(endp(V551))invalid_macro_call(); |
2384 |
base[2]= (V565->c.c_car); |
base[2]= (V551->c.c_car); |
2385 |
V565=V565->c.c_cdr; |
V551=V551->c.c_cdr; |
2386 |
if(!endp(V565))invalid_macro_call();} |
if(!endp(V551))invalid_macro_call();} |
2387 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2388 |
return; |
return; |
2389 |
} |
} |
2393 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2394 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
2395 |
vs_check; |
vs_check; |
2396 |
{object V566; |
{object V552; |
2397 |
object V567; |
object V553; |
2398 |
check_arg(2); |
check_arg(2); |
2399 |
V566=(base[0]); |
V552=(base[0]); |
2400 |
V567=(base[1]); |
V553=(base[1]); |
2401 |
vs_top=sup; |
vs_top=sup; |
2402 |
goto TTL; |
goto TTL; |
2403 |
TTL:; |
TTL:; |
2404 |
{object V568; |
{object V554; |
2405 |
object V569; |
object V555; |
2406 |
base[2]= (V566); |
base[2]= (V552); |
2407 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2408 |
Lconstantp(); |
Lconstantp(); |
2409 |
vs_top=sup; |
vs_top=sup; |
2410 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2411 |
goto T910;} |
goto T947;} |
2412 |
V568= Cnil; |
V554= Cnil; |
2413 |
goto T909; |
goto T946; |
2414 |
goto T910; |
goto T947; |
2415 |
T910:; |
T947:; |
2416 |
base[2]= (V566); |
base[2]= (V552); |
2417 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2418 |
Leval(); |
Leval(); |
2419 |
vs_top=sup; |
vs_top=sup; |
2420 |
V568= vs_base[0]; |
V554= vs_base[0]; |
2421 |
goto T909; |
goto T946; |
2422 |
T909:; |
T946:; |
2423 |
base[2]= (V567); |
base[2]= (V553); |
2424 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2425 |
Lconstantp(); |
Lconstantp(); |
2426 |
vs_top=sup; |
vs_top=sup; |
2427 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2428 |
goto T915;} |
goto T952;} |
2429 |
V569= Cnil; |
V555= Cnil; |
2430 |
goto T914; |
goto T951; |
2431 |
goto T915; |
goto T952; |
2432 |
T915:; |
T952:; |
2433 |
base[2]= (V567); |
base[2]= (V553); |
2434 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2435 |
Leval(); |
Leval(); |
2436 |
vs_top=sup; |
vs_top=sup; |
2437 |
V569= vs_base[0]; |
V555= vs_base[0]; |
2438 |
goto T914; |
goto T951; |
2439 |
T914:; |
T951:; |
2440 |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
2441 |
goto T919;} |
goto T956;} |
2442 |
base[2]= Cnil; |
base[2]= Cnil; |
2443 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2444 |
return; |
return; |
2445 |
goto T919; |
goto T956; |
2446 |
T919:; |
T956:; |
2447 |
base[2]= (V568); |
base[2]= (V554); |
2448 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2449 |
(void) (*Lnk207)(Lclptr207); |
(void) (*Lnk223)(Lclptr223); |
2450 |
vs_top=sup; |
vs_top=sup; |
2451 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2452 |
goto T921;} |
goto T958;} |
2453 |
base[2]= Cnil; |
base[2]= Cnil; |
2454 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2455 |
return; |
return; |
2456 |
goto T921; |
goto T958; |
2457 |
T921:; |
T958:; |
2458 |
if(((((V568))==((VV[52]->s.s_dbind))?Ct:Cnil))==Cnil){ |
if(((((V554))==((VV[60]->s.s_dbind))?Ct:Cnil))==Cnil){ |
2459 |
goto T924;} |
goto T961;} |
2460 |
base[2]= Cnil; |
base[2]= Cnil; |
2461 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2462 |
return; |
return; |
2463 |
goto T924; |
goto T961; |
2464 |
T924:; |
T961:; |
2465 |
{object V570; |
{object V556; |
2466 |
V570= (*(LnkLI158))((V568),(V569)); |
V556= (*(LnkLI173))((V554),(V555)); |
2467 |
if((V570)==Cnil){ |
if((V556)==Cnil){ |
2468 |
base[2]= Cnil; |
base[2]= Cnil; |
2469 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2470 |
return;} |
return;} |
2471 |
base[3]= (V570); |
base[3]= (V556); |
2472 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2473 |
(void) (*Lnk208)(Lclptr208); |
(void) (*Lnk224)(Lclptr224); |
2474 |
vs_top=sup; |
vs_top=sup; |
2475 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2476 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2477 |
(void) (*Lnk201)(Lclptr201); |
(void) (*Lnk217)(Lclptr217); |
2478 |
return;}} |
return;}} |
2479 |
} |
} |
2480 |
} |
} |
2481 |
/* local entry for function SKIP-FAST-SLOT-ACCESS-P */ |
/* local entry for function SKIP-FAST-SLOT-ACCESS-P */ |
2482 |
|
|
2483 |
static object LI42(V574,V575,V576) |
static object LI42(V560,V561,V562) |
2484 |
|
|
2485 |
object V574;object V575;object V576; |
object V560;object V561;object V562; |
2486 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
2487 |
goto TTL; |
goto TTL; |
2488 |
TTL:; |
TTL:; |
2489 |
{register object V577; |
{register object V563; |
2490 |
object V578; |
object V564; |
2491 |
base[0]= (V574); |
base[0]= (V560); |
2492 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2493 |
Lconstantp(); |
Lconstantp(); |
2494 |
vs_top=sup; |
vs_top=sup; |
2495 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2496 |
goto T930;} |
goto T967;} |
2497 |
V577= Cnil; |
V563= Cnil; |
2498 |
goto T929; |
goto T966; |
2499 |
goto T930; |
goto T967; |
2500 |
T930:; |
T967:; |
2501 |
base[0]= (V574); |
base[0]= (V560); |
2502 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2503 |
Leval(); |
Leval(); |
2504 |
vs_top=sup; |
vs_top=sup; |
2505 |
V577= vs_base[0]; |
V563= vs_base[0]; |
2506 |
goto T929; |
goto T966; |
2507 |
T929:; |
T966:; |
2508 |
base[0]= (V575); |
base[0]= (V561); |
2509 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2510 |
Lconstantp(); |
Lconstantp(); |
2511 |
vs_top=sup; |
vs_top=sup; |
2512 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2513 |
goto T935;} |
goto T972;} |
2514 |
V578= Cnil; |
V564= Cnil; |
2515 |
goto T934; |
goto T971; |
2516 |
goto T935; |
goto T972; |
2517 |
T935:; |
T972:; |
2518 |
base[0]= (V575); |
base[0]= (V561); |
2519 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2520 |
Leval(); |
Leval(); |
2521 |
vs_top=sup; |
vs_top=sup; |
2522 |
V578= vs_base[0]; |
V564= vs_base[0]; |
2523 |
goto T934; |
goto T971; |
2524 |
T934:; |
T971:; |
2525 |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
2526 |
goto T939;} |
goto T976;} |
2527 |
{object V579 = Cnil; |
{object V565 = Cnil; |
2528 |
VMR40(V579)} |
VMR40(V565)} |
2529 |
goto T939; |
goto T976; |
2530 |
T939:; |
T976:; |
2531 |
base[0]= (V577); |
base[0]= (V563); |
2532 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2533 |
(void) (*Lnk207)(Lclptr207); |
(void) (*Lnk223)(Lclptr223); |
2534 |
vs_top=sup; |
vs_top=sup; |
2535 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2536 |
goto T941;} |
goto T978;} |
2537 |
{object V580 = Cnil; |
{object V566 = Cnil; |
2538 |
VMR40(V580)} |
VMR40(V566)} |
2539 |
goto T941; |
goto T978; |
2540 |
T941:; |
T978:; |
2541 |
if(((((V577))==((VV[52]->s.s_dbind))?Ct:Cnil))==Cnil){ |
if(((((V563))==((VV[60]->s.s_dbind))?Ct:Cnil))==Cnil){ |
2542 |
goto T944;} |
goto T981;} |
2543 |
{object V581 = Cnil; |
{object V567 = Cnil; |
2544 |
VMR40(V581)} |
VMR40(V567)} |
2545 |
goto T944; |
goto T981; |
2546 |
T944:; |
T981:; |
2547 |
{object V582; |
{object V568; |
2548 |
V582= (*(LnkLI158))((V577),(V578)); |
V568= (*(LnkLI173))((V563),(V564)); |
2549 |
if((V582)==Cnil){ |
if((V568)==Cnil){ |
2550 |
{object V583 = Cnil; |
{object V569 = Cnil; |
2551 |
VMR40(V583)}} |
VMR40(V569)}} |
2552 |
{object V584 = (*(LnkLI209))((V577),(V578),(V576)); |
{object V570 = (*(LnkLI225))((V563),(V564),(V562)); |
2553 |
VMR40(V584)}}} |
VMR40(V570)}}} |
2554 |
base[0]=base[0]; |
base[0]=base[0]; |
2555 |
return Cnil; |
return Cnil; |
2556 |
} |
} |
2557 |
/* local entry for function SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
/* local entry for function SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
2558 |
|
|
2559 |
static object LI43(V588,V589,V590) |
static object LI43(V574,V575,V576) |
2560 |
|
|
2561 |
object V588;object V589;object V590; |
object V574;object V575;object V576; |
2562 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2563 |
goto TTL; |
goto TTL; |
2564 |
TTL:; |
TTL:; |
2565 |
{object V591; |
{object V577; |
2566 |
V591= (*(LnkLI158))((V588),(V589)); |
V577= (*(LnkLI173))((V574),(V575)); |
2567 |
if((V591)==Cnil){ |
if((V577)==Cnil){ |
2568 |
{object V592 = Cnil; |
{object V578 = Cnil; |
2569 |
VMR41(V592)}} |
VMR41(V578)}} |
2570 |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
if(((VV[22]->s.s_dbind))==(VV[23])){ |
2571 |
goto T948;} |
goto T985;} |
2572 |
{object V593 = Cnil; |
{object V579 = Cnil; |
2573 |
VMR41(V593)} |
VMR41(V579)} |
2574 |
goto T948; |
goto T985; |
2575 |
T948:; |
T985:; |
2576 |
base[0]= (V591); |
base[0]= (V577); |
2577 |
base[1]= (V590); |
base[1]= (V576); |
2578 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2579 |
(void) (*Lnk159)(Lclptr159); |
(void) (*Lnk174)(Lclptr174); |
2580 |
vs_top=sup; |
vs_top=sup; |
2581 |
V594= vs_base[0]; |
V580= vs_base[0]; |
2582 |
{object V595 = ((V594)==Cnil?Ct:Cnil); |
{object V581 = ((V580)==Cnil?Ct:Cnil); |
2583 |
VMR41(V595)}} |
VMR41(V581)}} |
2584 |
base[0]=base[0]; |
base[0]=base[0]; |
2585 |
return Cnil; |
return Cnil; |
2586 |
} |
} |
2592 |
vs_check; |
vs_check; |
2593 |
check_arg(2); |
check_arg(2); |
2594 |
vs_top=sup; |
vs_top=sup; |
2595 |
{object V596=base[0]->c.c_cdr; |
{object V582=base[0]->c.c_cdr; |
2596 |
if(endp(V596))invalid_macro_call(); |
if(endp(V582))invalid_macro_call(); |
2597 |
base[2]= (V596->c.c_car); |
base[2]= (V582->c.c_car); |
2598 |
V596=V596->c.c_cdr; |
V582=V582->c.c_cdr; |
2599 |
if(endp(V596))invalid_macro_call(); |
if(endp(V582))invalid_macro_call(); |
2600 |
base[3]= (V596->c.c_car); |
base[3]= (V582->c.c_car); |
2601 |
V596=V596->c.c_cdr; |
V582=V582->c.c_cdr; |
2602 |
if(endp(V596))invalid_macro_call(); |
if(endp(V582))invalid_macro_call(); |
2603 |
base[4]= (V596->c.c_car); |
base[4]= (V582->c.c_car); |
2604 |
V596=V596->c.c_cdr; |
V582=V582->c.c_cdr; |
2605 |
if(endp(V596))invalid_macro_call(); |
if(endp(V582))invalid_macro_call(); |
2606 |
base[5]= (V596->c.c_car); |
base[5]= (V582->c.c_car); |
2607 |
V596=V596->c.c_cdr; |
V582=V582->c.c_cdr; |
2608 |
if(endp(V596)){ |
if(endp(V582)){ |
2609 |
base[6]= Cnil; |
base[6]= Cnil; |
2610 |
} else { |
} else { |
2611 |
base[6]= (V596->c.c_car); |
base[6]= (V582->c.c_car); |
2612 |
V596=V596->c.c_cdr;} |
V582=V582->c.c_cdr;} |
2613 |
if(!endp(V596))invalid_macro_call();} |
if(!endp(V582))invalid_macro_call();} |
2614 |
{register object x= base[6],V597= VV[73]; |
{register object x= base[6],V583= VV[87]; |
2615 |
while(V597!=Cnil) |
while(V583!=Cnil) |
2616 |
if(eql(x,V597->c.c_car)){ |
if(eql(x,V583->c.c_car)){ |
2617 |
goto T954; |
goto T991; |
2618 |
}else V597=V597->c.c_cdr;} |
}else V583=V583->c.c_cdr;} |
2619 |
base[7]= VV[74]; |
base[7]= VV[88]; |
2620 |
base[8]= VV[75]; |
base[8]= VV[89]; |
2621 |
base[9]= base[6]; |
base[9]= base[6]; |
2622 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
2623 |
Lerror(); |
Lerror(); |
2624 |
vs_top=sup; |
vs_top=sup; |
2625 |
goto T954; |
goto T991; |
2626 |
T954:; |
T991:; |
2627 |
if(!((base[6])==(VV[76]))){ |
if(!((base[6])==(VV[90]))){ |
2628 |
goto T961;} |
goto T998;} |
2629 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2630 |
return; |
return; |
2631 |
goto T961; |
goto T998; |
2632 |
T961:; |
T998:; |
2633 |
{register object V598; |
{register object V584; |
2634 |
vs_base=vs_top; |
vs_base=vs_top; |
2635 |
Lgensym(); |
Lgensym(); |
2636 |
vs_top=sup; |
vs_top=sup; |
2637 |
V598= vs_base[0]; |
V584= vs_base[0]; |
2638 |
V600= list(2,(V598),list(3,VV[79],base[2],base[4])); |
V586= list(2,(V584),list(3,VV[93],base[2],base[4])); |
2639 |
V601= make_cons(/* INLINE-ARGS */V600,Cnil); |
V587= make_cons(/* INLINE-ARGS */V586,Cnil); |
|
V602 = (V598); |
|
2640 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
2641 |
goto T966;} |
goto T1003;} |
2642 |
if(!((base[6])==(VV[82]))){ |
if(!((base[6])==(VV[96]))){ |
2643 |
goto T967;} |
goto T1004;} |
2644 |
goto T966; |
goto T1003; |
2645 |
T966:; |
T1003:; |
2646 |
V604= list(2,VV[83],list(3,VV[84],base[3],(V598))); |
V589= list(2,VV[97],list(3,VV[98],base[3],(V584))); |
2647 |
base[8]= make_cons(/* INLINE-ARGS */V604,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V589,Cnil); |
2648 |
goto T965; |
goto T1002; |
2649 |
goto T967; |
goto T1004; |
2650 |
T967:; |
T1004:; |
2651 |
base[8]= Cnil; |
base[8]= Cnil; |
2652 |
goto T965; |
goto T1002; |
2653 |
T965:; |
T1002:; |
2654 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
2655 |
goto T972;} |
goto T1009;} |
2656 |
if(!((base[6])==(VV[85]))){ |
if(!((base[6])==(VV[99]))){ |
2657 |
goto T973;} |
goto T1010;} |
2658 |
goto T972; |
goto T1009; |
2659 |
T972:; |
T1009:; |
2660 |
V605= list(2,VV[86],list(2,VV[87],(V598))); |
V590= list(2,VV[100],list(2,VV[101],(V584))); |
2661 |
base[9]= make_cons(/* INLINE-ARGS */V605,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V590,Cnil); |
2662 |
goto T971; |
goto T1008; |
2663 |
goto T973; |
goto T1010; |
2664 |
T973:; |
T1010:; |
2665 |
base[9]= Cnil; |
base[9]= Cnil; |
2666 |
goto T971; |
goto T1008; |
2667 |
T971:; |
T1008:; |
2668 |
V606= list(2,Ct,list(2,VV[57],(VV[88]->s.s_dbind))); |
V591= list(2,Ct,list(2,VV[67],(VV[102]->s.s_dbind))); |
2669 |
base[10]= make_cons(/* INLINE-ARGS */V606,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V591,Cnil); |
2670 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
2671 |
Lappend(); |
Lappend(); |
2672 |
vs_top=sup; |
vs_top=sup; |
2673 |
V603= vs_base[0]; |
V588= vs_base[0]; |
2674 |
V607= list(3,VV[80],V598,listA(3,VV[81],V602,V603)); |
V592= list(3,VV[94],V584,listA(3,VV[95],(V584),V588)); |
2675 |
base[8]= list(3,VV[77],VV[78],list(4,VV[0],/* INLINE-ARGS */V601,/* INLINE-ARGS */V607,list(4,VV[89],list(3,VV[9],V598,list(2,VV[57],(VV[88]->s.s_dbind))),base[5],V598))); |
base[8]= list(3,VV[91],VV[92],list(4,VV[0],/* INLINE-ARGS */V587,/* INLINE-ARGS */V592,list(4,VV[103],list(3,VV[9],V584,list(2,VV[67],(VV[102]->s.s_dbind))),base[5],V584))); |
2676 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2677 |
return;} |
return;} |
2678 |
} |
} |
2684 |
vs_check; |
vs_check; |
2685 |
check_arg(2); |
check_arg(2); |
2686 |
vs_top=sup; |
vs_top=sup; |
2687 |
{object V608=base[0]->c.c_cdr; |
{object V593=base[0]->c.c_cdr; |
2688 |
if(endp(V608))invalid_macro_call(); |
if(endp(V593))invalid_macro_call(); |
2689 |
base[2]= (V608->c.c_car); |
base[2]= (V593->c.c_car); |
2690 |
V608=V608->c.c_cdr; |
V593=V593->c.c_cdr; |
2691 |
if(endp(V608))invalid_macro_call(); |
if(endp(V593))invalid_macro_call(); |
2692 |
base[3]= (V608->c.c_car); |
base[3]= (V593->c.c_car); |
2693 |
V608=V608->c.c_cdr; |
V593=V593->c.c_cdr; |
2694 |
if(endp(V608))invalid_macro_call(); |
if(endp(V593))invalid_macro_call(); |
2695 |
base[4]= (V608->c.c_car); |
base[4]= (V593->c.c_car); |
2696 |
V608=V608->c.c_cdr; |
V593=V593->c.c_cdr; |
2697 |
if(endp(V608))invalid_macro_call(); |
if(endp(V593))invalid_macro_call(); |
2698 |
base[5]= (V608->c.c_car); |
base[5]= (V593->c.c_car); |
2699 |
V608=V608->c.c_cdr; |
V593=V593->c.c_cdr; |
2700 |
if(endp(V608))invalid_macro_call(); |
if(endp(V593))invalid_macro_call(); |
2701 |
base[6]= (V608->c.c_car); |
base[6]= (V593->c.c_car); |
2702 |
V608=V608->c.c_cdr; |
V593=V593->c.c_cdr; |
2703 |
if(!endp(V608))invalid_macro_call();} |
if(!endp(V593))invalid_macro_call();} |
2704 |
if(((*(LnkLI210))(base[6],base[5],VV[39]))==Cnil){ |
if(((*(LnkLI226))(base[6],base[5],VV[39]))==Cnil){ |
2705 |
goto T979;} |
goto T1016;} |
2706 |
base[7]= list(3,VV[47],base[3],base[5]); |
base[7]= list(3,VV[55],base[3],base[5]); |
2707 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2708 |
return; |
return; |
2709 |
goto T979; |
goto T1016; |
2710 |
T979:; |
T1016:; |
2711 |
V609= (*(LnkLI211))(base[4]); |
V594= (*(LnkLI227))(base[4]); |
2712 |
V610 = base[2]; |
V595= list(3,VV[55],base[3],base[5]); |
|
V611= list(3,VV[47],base[3],base[5]); |
|
2713 |
base[7]= base[6]; |
base[7]= base[6]; |
2714 |
base[8]= base[5]; |
base[8]= base[5]; |
2715 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
2716 |
(void) (*Lnk212)(); |
(void) (*Lnk228)(); |
2717 |
vs_top=sup; |
vs_top=sup; |
2718 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2719 |
goto T983;} |
goto T1020;} |
2720 |
V612= VV[85]; |
V596= VV[99]; |
2721 |
goto T981; |
goto T1018; |
2722 |
goto T983; |
goto T1020; |
2723 |
T983:; |
T1020:; |
2724 |
V612= VV[82]; |
V596= VV[96]; |
2725 |
goto T981; |
goto T1018; |
2726 |
T981:; |
T1018:; |
2727 |
base[7]= list(6,VV[75],VV[70],/* INLINE-ARGS */V609,V610,/* INLINE-ARGS */V611,V612); |
base[7]= list(6,VV[89],VV[84],/* INLINE-ARGS */V594,base[2],/* INLINE-ARGS */V595,V596); |
2728 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2729 |
return; |
return; |
2730 |
} |
} |
2736 |
vs_check; |
vs_check; |
2737 |
check_arg(2); |
check_arg(2); |
2738 |
vs_top=sup; |
vs_top=sup; |
2739 |
{object V613=base[0]->c.c_cdr; |
{object V597=base[0]->c.c_cdr; |
2740 |
if(endp(V613))invalid_macro_call(); |
if(endp(V597))invalid_macro_call(); |
2741 |
base[2]= (V613->c.c_car); |
base[2]= (V597->c.c_car); |
2742 |
V613=V613->c.c_cdr; |
V597=V597->c.c_cdr; |
2743 |
if(endp(V613))invalid_macro_call(); |
if(endp(V597))invalid_macro_call(); |
2744 |
base[3]= (V613->c.c_car); |
base[3]= (V597->c.c_car); |
2745 |
V613=V613->c.c_cdr; |
V597=V597->c.c_cdr; |
2746 |
if(endp(V613))invalid_macro_call(); |
if(endp(V597))invalid_macro_call(); |
2747 |
base[4]= (V613->c.c_car); |
base[4]= (V597->c.c_car); |
2748 |
V613=V613->c.c_cdr; |
V597=V597->c.c_cdr; |
2749 |
if(endp(V613))invalid_macro_call(); |
if(endp(V597))invalid_macro_call(); |
2750 |
base[5]= (V613->c.c_car); |
base[5]= (V597->c.c_car); |
2751 |
V613=V613->c.c_cdr; |
V597=V597->c.c_cdr; |
2752 |
if(endp(V613))invalid_macro_call(); |
if(endp(V597))invalid_macro_call(); |
2753 |
base[6]= (V613->c.c_car); |
base[6]= (V597->c.c_car); |
2754 |
V613=V613->c.c_cdr; |
V597=V597->c.c_cdr; |
2755 |
if(!endp(V613))invalid_macro_call();} |
if(!endp(V597))invalid_macro_call();} |
2756 |
V614= (*(LnkLI211))(base[4]); |
V598= (*(LnkLI227))(base[4]); |
2757 |
V615 = base[2]; |
base[7]= list(6,VV[89],VV[84],/* INLINE-ARGS */V598,base[2],list(2,base[5],list(2,VV[35],base[3])),VV[96]); |
|
base[7]= list(6,VV[75],VV[70],/* INLINE-ARGS */V614,V615,list(2,base[5],list(2,VV[35],base[3])),VV[82]); |
|
2758 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2759 |
return; |
return; |
2760 |
} |
} |
2766 |
vs_check; |
vs_check; |
2767 |
check_arg(2); |
check_arg(2); |
2768 |
vs_top=sup; |
vs_top=sup; |
2769 |
{object V616=base[0]->c.c_cdr; |
{object V599=base[0]->c.c_cdr; |
2770 |
if(endp(V616))invalid_macro_call(); |
if(endp(V599))invalid_macro_call(); |
2771 |
base[2]= (V616->c.c_car); |
base[2]= (V599->c.c_car); |
2772 |
V616=V616->c.c_cdr; |
V599=V599->c.c_cdr; |
2773 |
if(endp(V616))invalid_macro_call(); |
if(endp(V599))invalid_macro_call(); |
2774 |
base[3]= (V616->c.c_car); |
base[3]= (V599->c.c_car); |
2775 |
V616=V616->c.c_cdr; |
V599=V599->c.c_cdr; |
2776 |
if(endp(V616))invalid_macro_call(); |
if(endp(V599))invalid_macro_call(); |
2777 |
base[4]= (V616->c.c_car); |
base[4]= (V599->c.c_car); |
2778 |
V616=V616->c.c_cdr; |
V599=V599->c.c_cdr; |
2779 |
if(endp(V616))invalid_macro_call(); |
if(endp(V599))invalid_macro_call(); |
2780 |
base[5]= (V616->c.c_car); |
base[5]= (V599->c.c_car); |
2781 |
V616=V616->c.c_cdr; |
V599=V599->c.c_cdr; |
2782 |
if(endp(V616))invalid_macro_call(); |
if(endp(V599))invalid_macro_call(); |
2783 |
base[6]= (V616->c.c_car); |
base[6]= (V599->c.c_car); |
2784 |
V616=V616->c.c_cdr; |
V599=V599->c.c_cdr; |
2785 |
if(endp(V616)){ |
if(endp(V599)){ |
2786 |
base[7]= Cnil; |
base[7]= Cnil; |
2787 |
} else { |
} else { |
2788 |
base[7]= (V616->c.c_car); |
base[7]= (V599->c.c_car); |
2789 |
V616=V616->c.c_cdr;} |
V599=V599->c.c_cdr;} |
2790 |
if(!endp(V616))invalid_macro_call();} |
if(!endp(V599))invalid_macro_call();} |
2791 |
{register object x= base[7],V617= VV[90]; |
{register object x= base[7],V600= VV[104]; |
2792 |
while(V617!=Cnil) |
while(V600!=Cnil) |
2793 |
if(eql(x,V617->c.c_car)){ |
if(eql(x,V600->c.c_car)){ |
2794 |
goto T988; |
goto T1025; |
2795 |
}else V617=V617->c.c_cdr;} |
}else V600=V600->c.c_cdr;} |
2796 |
base[8]= VV[91]; |
base[8]= VV[105]; |
2797 |
base[9]= VV[92]; |
base[9]= VV[106]; |
2798 |
base[10]= base[7]; |
base[10]= base[7]; |
2799 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
2800 |
Lerror(); |
Lerror(); |
2801 |
vs_top=sup; |
vs_top=sup; |
2802 |
goto T988; |
goto T1025; |
2803 |
T988:; |
T1025:; |
2804 |
if(!((base[7])==(VV[76]))){ |
if(!((base[7])==(VV[90]))){ |
2805 |
goto T995;} |
goto T1032;} |
2806 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2807 |
return; |
return; |
2808 |
goto T995; |
goto T1032; |
2809 |
T995:; |
T1032:; |
2810 |
{register object V618; |
{register object V601; |
2811 |
vs_base=vs_top; |
vs_base=vs_top; |
2812 |
Lgensym(); |
Lgensym(); |
2813 |
vs_top=sup; |
vs_top=sup; |
2814 |
V618= vs_base[0]; |
V601= vs_base[0]; |
2815 |
V619= list(2,(V618),list(3,VV[79],base[2],base[4])); |
V602= list(2,(V601),list(3,VV[93],base[2],base[4])); |
2816 |
V620= make_cons(/* INLINE-ARGS */V619,Cnil); |
V603= make_cons(/* INLINE-ARGS */V602,Cnil); |
|
V621 = (V618); |
|
2817 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2818 |
goto T1000;} |
goto T1037;} |
2819 |
if(!((base[7])==(VV[82]))){ |
if(!((base[7])==(VV[96]))){ |
2820 |
goto T1001;} |
goto T1038;} |
2821 |
goto T1000; |
goto T1037; |
2822 |
T1000:; |
T1037:; |
2823 |
V623= list(2,VV[83],list(3,VV[37],list(3,VV[84],base[3],(V618)),base[5])); |
V605= list(2,VV[97],list(3,VV[37],list(3,VV[98],base[3],(V601)),base[5])); |
2824 |
base[9]= make_cons(/* INLINE-ARGS */V623,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V605,Cnil); |
2825 |
goto T999; |
goto T1036; |
2826 |
goto T1001; |
goto T1038; |
2827 |
T1001:; |
T1038:; |
2828 |
base[9]= Cnil; |
base[9]= Cnil; |
2829 |
goto T999; |
goto T1036; |
2830 |
T999:; |
T1036:; |
2831 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2832 |
goto T1006;} |
goto T1043;} |
2833 |
if(!((base[7])==(VV[85]))){ |
if(!((base[7])==(VV[99]))){ |
2834 |
goto T1007;} |
goto T1044;} |
2835 |
goto T1006; |
goto T1043; |
2836 |
T1006:; |
T1043:; |
2837 |
V624= list(2,VV[86],list(3,VV[37],list(2,VV[87],(V618)),base[5])); |
V606= list(2,VV[100],list(3,VV[37],list(2,VV[101],(V601)),base[5])); |
2838 |
base[10]= make_cons(/* INLINE-ARGS */V624,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V606,Cnil); |
2839 |
goto T1005; |
goto T1042; |
2840 |
goto T1007; |
goto T1044; |
2841 |
T1007:; |
T1044:; |
2842 |
base[10]= Cnil; |
base[10]= Cnil; |
2843 |
goto T1005; |
goto T1042; |
2844 |
T1005:; |
T1042:; |
2845 |
V625= list(2,Ct,base[6]); |
V607= list(2,Ct,base[6]); |
2846 |
base[11]= make_cons(/* INLINE-ARGS */V625,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V607,Cnil); |
2847 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
2848 |
Lappend(); |
Lappend(); |
2849 |
vs_top=sup; |
vs_top=sup; |
2850 |
V622= vs_base[0]; |
V604= vs_base[0]; |
2851 |
base[9]= list(3,VV[77],VV[93],list(3,VV[0],/* INLINE-ARGS */V620,listA(3,VV[81],V621,V622))); |
base[9]= list(3,VV[91],VV[107],list(3,VV[0],/* INLINE-ARGS */V603,listA(3,VV[95],(V601),V604))); |
2852 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2853 |
return;} |
return;} |
2854 |
} |
} |
2860 |
vs_check; |
vs_check; |
2861 |
check_arg(2); |
check_arg(2); |
2862 |
vs_top=sup; |
vs_top=sup; |
2863 |
{object V626=base[0]->c.c_cdr; |
{object V608=base[0]->c.c_cdr; |
2864 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2865 |
base[2]= (V626->c.c_car); |
base[2]= (V608->c.c_car); |
2866 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2867 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2868 |
base[3]= (V626->c.c_car); |
base[3]= (V608->c.c_car); |
2869 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2870 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2871 |
base[4]= (V626->c.c_car); |
base[4]= (V608->c.c_car); |
2872 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2873 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2874 |
base[5]= (V626->c.c_car); |
base[5]= (V608->c.c_car); |
2875 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2876 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2877 |
base[6]= (V626->c.c_car); |
base[6]= (V608->c.c_car); |
2878 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2879 |
if(endp(V626))invalid_macro_call(); |
if(endp(V608))invalid_macro_call(); |
2880 |
base[7]= (V626->c.c_car); |
base[7]= (V608->c.c_car); |
2881 |
V626=V626->c.c_cdr; |
V608=V608->c.c_cdr; |
2882 |
if(!endp(V626))invalid_macro_call();} |
if(!endp(V608))invalid_macro_call();} |
2883 |
if(((*(LnkLI210))(base[6],base[5],VV[40]))==Cnil){ |
if(((*(LnkLI226))(base[6],base[5],VV[40]))==Cnil){ |
2884 |
goto T1013;} |
goto T1050;} |
2885 |
base[8]= list(4,VV[49],base[3],base[5],base[7]); |
base[8]= list(4,VV[57],base[3],base[5],base[7]); |
2886 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2887 |
return; |
return; |
2888 |
goto T1013; |
goto T1050; |
2889 |
T1013:; |
T1050:; |
2890 |
V627= (*(LnkLI211))(base[4]); |
V609= (*(LnkLI227))(base[4]); |
2891 |
V628 = base[2]; |
V610= list(4,VV[57],base[3],base[5],base[7]); |
|
V629 = base[7]; |
|
|
V630= list(4,VV[49],base[3],base[5],base[7]); |
|
2892 |
base[8]= base[6]; |
base[8]= base[6]; |
2893 |
base[9]= base[5]; |
base[9]= base[5]; |
2894 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
2895 |
(void) (*Lnk212)(); |
(void) (*Lnk228)(); |
2896 |
vs_top=sup; |
vs_top=sup; |
2897 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2898 |
goto T1017;} |
goto T1054;} |
2899 |
V631= VV[85]; |
V611= VV[99]; |
2900 |
goto T1015; |
goto T1052; |
2901 |
goto T1017; |
goto T1054; |
2902 |
T1017:; |
T1054:; |
2903 |
V631= VV[82]; |
V611= VV[96]; |
2904 |
goto T1015; |
goto T1052; |
2905 |
T1015:; |
T1052:; |
2906 |
base[8]= list(7,VV[92],VV[70],/* INLINE-ARGS */V627,V628,V629,/* INLINE-ARGS */V630,V631); |
base[8]= list(7,VV[106],VV[84],/* INLINE-ARGS */V609,base[2],base[7],/* INLINE-ARGS */V610,V611); |
2907 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2908 |
return; |
return; |
2909 |
} |
} |
2915 |
vs_check; |
vs_check; |
2916 |
check_arg(2); |
check_arg(2); |
2917 |
vs_top=sup; |
vs_top=sup; |
2918 |
{object V632=base[0]->c.c_cdr; |
{object V612=base[0]->c.c_cdr; |
2919 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2920 |
base[2]= (V632->c.c_car); |
base[2]= (V612->c.c_car); |
2921 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2922 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2923 |
base[3]= (V632->c.c_car); |
base[3]= (V612->c.c_car); |
2924 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2925 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2926 |
base[4]= (V632->c.c_car); |
base[4]= (V612->c.c_car); |
2927 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2928 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2929 |
base[5]= (V632->c.c_car); |
base[5]= (V612->c.c_car); |
2930 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2931 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2932 |
base[6]= (V632->c.c_car); |
base[6]= (V612->c.c_car); |
2933 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2934 |
if(endp(V632))invalid_macro_call(); |
if(endp(V612))invalid_macro_call(); |
2935 |
base[7]= (V632->c.c_car); |
base[7]= (V612->c.c_car); |
2936 |
V632=V632->c.c_cdr; |
V612=V612->c.c_cdr; |
2937 |
if(!endp(V632))invalid_macro_call();} |
if(!endp(V612))invalid_macro_call();} |
2938 |
V633= (*(LnkLI211))(base[4]); |
V613= (*(LnkLI227))(base[4]); |
|
V634 = base[2]; |
|
|
V635 = base[7]; |
|
2939 |
if(!(type_of(base[5])==t_cons)){ |
if(!(type_of(base[5])==t_cons)){ |
2940 |
goto T1023;} |
goto T1060;} |
2941 |
V636= (*(LnkLI213))(base[5]); |
V614= (*(LnkLI229))(base[5]); |
2942 |
goto T1021; |
goto T1058; |
2943 |
goto T1023; |
goto T1060; |
2944 |
T1023:; |
T1060:; |
2945 |
V636= base[5]; |
V614= base[5]; |
2946 |
goto T1021; |
goto T1058; |
2947 |
T1021:; |
T1058:; |
2948 |
V637 = base[7]; |
base[8]= list(7,VV[106],VV[84],/* INLINE-ARGS */V613,base[2],base[7],list(3,V614,list(2,VV[35],base[3]),base[7]),VV[96]); |
|
base[8]= list(7,VV[92],VV[70],/* INLINE-ARGS */V633,V634,V635,list(3,V636,list(2,VV[35],base[3]),V637),VV[82]); |
|
2949 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2950 |
return; |
return; |
2951 |
} |
} |
2957 |
vs_check; |
vs_check; |
2958 |
check_arg(2); |
check_arg(2); |
2959 |
vs_top=sup; |
vs_top=sup; |
2960 |
{object V638=base[0]->c.c_cdr; |
{object V615=base[0]->c.c_cdr; |
2961 |
if(endp(V638))invalid_macro_call(); |
if(endp(V615))invalid_macro_call(); |
2962 |
base[2]= (V638->c.c_car); |
base[2]= (V615->c.c_car); |
2963 |
V638=V638->c.c_cdr; |
V615=V615->c.c_cdr; |
2964 |
if(endp(V638))invalid_macro_call(); |
if(endp(V615))invalid_macro_call(); |
2965 |
base[3]= (V638->c.c_car); |
base[3]= (V615->c.c_car); |
2966 |
V638=V638->c.c_cdr; |
V615=V615->c.c_cdr; |
2967 |
if(endp(V638))invalid_macro_call(); |
if(endp(V615))invalid_macro_call(); |
2968 |
base[4]= (V638->c.c_car); |
base[4]= (V615->c.c_car); |
2969 |
V638=V638->c.c_cdr; |
V615=V615->c.c_cdr; |
2970 |
if(endp(V638))invalid_macro_call(); |
if(endp(V615))invalid_macro_call(); |
2971 |
base[5]= (V638->c.c_car); |
base[5]= (V615->c.c_car); |
2972 |
V638=V638->c.c_cdr; |
V615=V615->c.c_cdr; |
2973 |
if(endp(V638)){ |
if(endp(V615)){ |
2974 |
base[6]= Cnil; |
base[6]= Cnil; |
2975 |
} else { |
} else { |
2976 |
base[6]= (V638->c.c_car); |
base[6]= (V615->c.c_car); |
2977 |
V638=V638->c.c_cdr;} |
V615=V615->c.c_cdr;} |
2978 |
if(!endp(V638))invalid_macro_call();} |
if(!endp(V615))invalid_macro_call();} |
2979 |
{register object x= base[6],V639= VV[94]; |
{register object x= base[6],V616= VV[108]; |
2980 |
while(V639!=Cnil) |
while(V616!=Cnil) |
2981 |
if(eql(x,V639->c.c_car)){ |
if(eql(x,V616->c.c_car)){ |
2982 |
goto T1026; |
goto T1063; |
2983 |
}else V639=V639->c.c_cdr;} |
}else V616=V616->c.c_cdr;} |
2984 |
base[7]= VV[95]; |
base[7]= VV[109]; |
2985 |
base[8]= VV[96]; |
base[8]= VV[110]; |
2986 |
base[9]= base[6]; |
base[9]= base[6]; |
2987 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
2988 |
Lerror(); |
Lerror(); |
2989 |
vs_top=sup; |
vs_top=sup; |
2990 |
goto T1026; |
goto T1063; |
2991 |
T1026:; |
T1063:; |
2992 |
if(!((base[6])==(VV[76]))){ |
if(!((base[6])==(VV[90]))){ |
2993 |
goto T1033;} |
goto T1070;} |
2994 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2995 |
return; |
return; |
2996 |
goto T1033; |
goto T1070; |
2997 |
T1033:; |
T1070:; |
2998 |
{register object V640; |
{register object V617; |
2999 |
vs_base=vs_top; |
vs_base=vs_top; |
3000 |
Lgensym(); |
Lgensym(); |
3001 |
vs_top=sup; |
vs_top=sup; |
3002 |
V640= vs_base[0]; |
V617= vs_base[0]; |
3003 |
V641= list(2,(V640),list(3,VV[79],base[2],base[4])); |
V618= list(2,(V617),list(3,VV[93],base[2],base[4])); |
3004 |
V642= make_cons(/* INLINE-ARGS */V641,Cnil); |
V619= make_cons(/* INLINE-ARGS */V618,Cnil); |
|
V643 = (V640); |
|
3005 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
3006 |
goto T1038;} |
goto T1075;} |
3007 |
if(!((base[6])==(VV[82]))){ |
if(!((base[6])==(VV[96]))){ |
3008 |
goto T1039;} |
goto T1076;} |
3009 |
goto T1038; |
goto T1075; |
3010 |
T1038:; |
T1075:; |
3011 |
V645= list(3,VV[84],base[3],(V640)); |
V621= list(3,VV[98],base[3],(V617)); |
3012 |
V646= list(2,VV[83],list(2,VV[98],list(3,VV[9],/* INLINE-ARGS */V645,list(2,VV[57],(VV[88]->s.s_dbind))))); |
V622= list(2,VV[97],list(2,VV[112],list(3,VV[9],/* INLINE-ARGS */V621,list(2,VV[67],(VV[102]->s.s_dbind))))); |
3013 |
base[8]= make_cons(/* INLINE-ARGS */V646,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V622,Cnil); |
3014 |
goto T1037; |
goto T1074; |
3015 |
goto T1039; |
goto T1076; |
3016 |
T1039:; |
T1076:; |
3017 |
base[8]= Cnil; |
base[8]= Cnil; |
3018 |
goto T1037; |
goto T1074; |
3019 |
T1037:; |
T1074:; |
3020 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
3021 |
goto T1044;} |
goto T1081;} |
3022 |
if(!((base[6])==(VV[85]))){ |
if(!((base[6])==(VV[99]))){ |
3023 |
goto T1045;} |
goto T1082;} |
3024 |
goto T1044; |
goto T1081; |
3025 |
T1044:; |
T1081:; |
3026 |
V647= list(2,VV[87],(V640)); |
V623= list(2,VV[101],(V617)); |
3027 |
V648= list(2,VV[86],list(2,VV[98],list(3,VV[9],/* INLINE-ARGS */V647,list(2,VV[57],(VV[88]->s.s_dbind))))); |
V624= list(2,VV[100],list(2,VV[112],list(3,VV[9],/* INLINE-ARGS */V623,list(2,VV[67],(VV[102]->s.s_dbind))))); |
3028 |
base[9]= make_cons(/* INLINE-ARGS */V648,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V624,Cnil); |
3029 |
goto T1043; |
goto T1080; |
3030 |
goto T1045; |
goto T1082; |
3031 |
T1045:; |
T1082:; |
3032 |
base[9]= Cnil; |
base[9]= Cnil; |
3033 |
goto T1043; |
goto T1080; |
3034 |
T1043:; |
T1080:; |
3035 |
V649= list(2,Ct,base[5]); |
V625= list(2,Ct,base[5]); |
3036 |
base[10]= make_cons(/* INLINE-ARGS */V649,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V625,Cnil); |
3037 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
3038 |
Lappend(); |
Lappend(); |
3039 |
vs_top=sup; |
vs_top=sup; |
3040 |
V644= vs_base[0]; |
V620= vs_base[0]; |
3041 |
base[8]= list(3,VV[77],VV[97],list(3,VV[0],/* INLINE-ARGS */V642,listA(3,VV[81],V643,V644))); |
base[8]= list(3,VV[91],VV[111],list(3,VV[0],/* INLINE-ARGS */V619,listA(3,VV[95],(V617),V620))); |
3042 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3043 |
return;} |
return;} |
3044 |
} |
} |
3050 |
vs_check; |
vs_check; |
3051 |
check_arg(2); |
check_arg(2); |
3052 |
vs_top=sup; |
vs_top=sup; |
3053 |
{object V650=base[0]->c.c_cdr; |
{object V626=base[0]->c.c_cdr; |
3054 |
if(endp(V650))invalid_macro_call(); |
if(endp(V626))invalid_macro_call(); |
3055 |
base[2]= (V650->c.c_car); |
base[2]= (V626->c.c_car); |
3056 |
V650=V650->c.c_cdr; |
V626=V626->c.c_cdr; |
3057 |
if(endp(V650))invalid_macro_call(); |
if(endp(V626))invalid_macro_call(); |
3058 |
base[3]= (V650->c.c_car); |
base[3]= (V626->c.c_car); |
3059 |
V650=V650->c.c_cdr; |
V626=V626->c.c_cdr; |
3060 |
if(endp(V650))invalid_macro_call(); |
if(endp(V626))invalid_macro_call(); |
3061 |
base[4]= (V650->c.c_car); |
base[4]= (V626->c.c_car); |
3062 |
V650=V650->c.c_cdr; |
V626=V626->c.c_cdr; |
3063 |
if(endp(V650))invalid_macro_call(); |
if(endp(V626))invalid_macro_call(); |
3064 |
base[5]= (V650->c.c_car); |
base[5]= (V626->c.c_car); |
3065 |
V650=V650->c.c_cdr; |
V626=V626->c.c_cdr; |
3066 |
if(endp(V650))invalid_macro_call(); |
if(endp(V626))invalid_macro_call(); |
3067 |
base[6]= (V650->c.c_car); |
base[6]= (V626->c.c_car); |
3068 |
V650=V650->c.c_cdr; |
V626=V626->c.c_cdr; |
3069 |
if(!endp(V650))invalid_macro_call();} |
if(!endp(V626))invalid_macro_call();} |
3070 |
if(((*(LnkLI210))(base[6],base[5],VV[41]))==Cnil){ |
if(((*(LnkLI226))(base[6],base[5],VV[41]))==Cnil){ |
3071 |
goto T1051;} |
goto T1088;} |
3072 |
base[7]= list(3,VV[51],base[3],base[5]); |
base[7]= list(3,VV[59],base[3],base[5]); |
3073 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3074 |
return; |
return; |
3075 |
goto T1051; |
goto T1088; |
3076 |
T1051:; |
T1088:; |
3077 |
V651= (*(LnkLI211))(base[4]); |
V627= (*(LnkLI227))(base[4]); |
3078 |
V652 = base[2]; |
V628= list(3,VV[59],base[3],base[5]); |
|
V653= list(3,VV[51],base[3],base[5]); |
|
3079 |
base[7]= base[6]; |
base[7]= base[6]; |
3080 |
base[8]= base[5]; |
base[8]= base[5]; |
3081 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3082 |
(void) (*Lnk212)(); |
(void) (*Lnk228)(); |
3083 |
vs_top=sup; |
vs_top=sup; |
3084 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3085 |
goto T1055;} |
goto T1092;} |
3086 |
V654= VV[85]; |
V629= VV[99]; |
3087 |
goto T1053; |
goto T1090; |
3088 |
goto T1055; |
goto T1092; |
3089 |
T1055:; |
T1092:; |
3090 |
V654= VV[82]; |
V629= VV[96]; |
3091 |
goto T1053; |
goto T1090; |
3092 |
T1053:; |
T1090:; |
3093 |
base[7]= list(6,VV[96],VV[70],/* INLINE-ARGS */V651,V652,/* INLINE-ARGS */V653,V654); |
base[7]= list(6,VV[110],VV[84],/* INLINE-ARGS */V627,base[2],/* INLINE-ARGS */V628,V629); |
3094 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3095 |
return; |
return; |
3096 |
} |
} |
3100 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3101 |
register object *sup=base+VM50; VC50 |
register object *sup=base+VM50; VC50 |
3102 |
vs_check; |
vs_check; |
3103 |
{object V655; |
{object V630; |
3104 |
object V656; |
object V631; |
3105 |
check_arg(2); |
check_arg(2); |
3106 |
V655=(base[0]); |
V630=(base[0]); |
3107 |
V656=(base[1]); |
V631=(base[1]); |
3108 |
vs_top=sup; |
vs_top=sup; |
3109 |
goto TTL; |
goto TTL; |
3110 |
TTL:; |
TTL:; |
3111 |
{object V657; |
{object V632; |
3112 |
object V658; |
object V633; |
3113 |
base[2]= (V655); |
base[2]= (V630); |
3114 |
base[3]= (V656); |
base[3]= (V631); |
3115 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3116 |
(void) (*Lnk214)(); |
(void) (*Lnk230)(); |
3117 |
if(vs_base>=vs_top){vs_top=sup;goto T1062;} |
if(vs_base>=vs_top){vs_top=sup;goto T1099;} |
3118 |
V657= vs_base[0]; |
V632= vs_base[0]; |
3119 |
vs_base++; |
vs_base++; |
3120 |
if(vs_base>=vs_top){vs_top=sup;goto T1063;} |
if(vs_base>=vs_top){vs_top=sup;goto T1100;} |
3121 |
V658= vs_base[0]; |
V633= vs_base[0]; |
3122 |
vs_top=sup; |
vs_top=sup; |
3123 |
goto T1064; |
goto T1101; |
3124 |
goto T1062; |
goto T1099; |
3125 |
T1062:; |
T1099:; |
3126 |
V657= Cnil; |
V632= Cnil; |
3127 |
goto T1063; |
goto T1100; |
3128 |
T1063:; |
T1100:; |
3129 |
V658= Cnil; |
V633= Cnil; |
3130 |
goto T1064; |
goto T1101; |
3131 |
T1064:; |
T1101:; |
3132 |
{register object V659; |
{register object V634; |
3133 |
object V660; |
object V635; |
3134 |
{object V661; |
{object V636; |
3135 |
object V662= (V657); |
object V637= (V632); |
3136 |
if(V662==Cnil){ |
if(V637==Cnil){ |
3137 |
V659= Cnil; |
V634= Cnil; |
3138 |
goto T1065;} |
goto T1102;} |
3139 |
base[4]=V661=MMcons(Cnil,Cnil); |
base[4]=V636=MMcons(Cnil,Cnil); |
3140 |
goto T1066; |
goto T1103; |
3141 |
T1066:; |
T1103:; |
3142 |
{object V665; |
{object V640; |
3143 |
object V666= CMPcdr((V662->c.c_car)); |
object V641= CMPcdr((V637->c.c_car)); |
3144 |
if(V666==Cnil){ |
if(V641==Cnil){ |
3145 |
V664= Cnil; |
V639= Cnil; |
3146 |
goto T1068;} |
goto T1105;} |
3147 |
base[5]=V665=MMcons(Cnil,Cnil); |
base[5]=V640=MMcons(Cnil,Cnil); |
3148 |
goto T1069; |
goto T1106; |
3149 |
T1069:; |
T1106:; |
3150 |
(V665->c.c_car)= CMPcar((V666->c.c_car)); |
(V640->c.c_car)= CMPcar((V641->c.c_car)); |
3151 |
if((V666=MMcdr(V666))==Cnil){ |
if((V641=MMcdr(V641))==Cnil){ |
3152 |
V664= base[5]; |
V639= base[5]; |
3153 |
goto T1068;} |
goto T1105;} |
3154 |
V665=MMcdr(V665)=MMcons(Cnil,Cnil); |
V640=MMcdr(V640)=MMcons(Cnil,Cnil); |
3155 |
goto T1069;} |
goto T1106;} |
3156 |
goto T1068; |
goto T1105; |
3157 |
T1068:; |
T1105:; |
3158 |
(V661->c.c_car)= make_cons(Cnil,V664); |
(V636->c.c_car)= make_cons(Cnil,V639); |
3159 |
if((V662=MMcdr(V662))==Cnil){ |
if((V637=MMcdr(V637))==Cnil){ |
3160 |
V659= base[4]; |
V634= base[4]; |
3161 |
goto T1065;} |
goto T1102;} |
3162 |
V661=MMcdr(V661)=MMcons(Cnil,Cnil); |
V636=MMcdr(V636)=MMcons(Cnil,Cnil); |
3163 |
goto T1066;} |
goto T1103;} |
3164 |
goto T1065; |
goto T1102; |
3165 |
T1065:; |
T1102:; |
3166 |
{object V667; |
{object V642; |
3167 |
object V668= (V658); |
object V643= (V633); |
3168 |
if(V668==Cnil){ |
if(V643==Cnil){ |
3169 |
V660= Cnil; |
V635= Cnil; |
3170 |
goto T1071;} |
goto T1108;} |
3171 |
base[4]=V667=MMcons(Cnil,Cnil); |
base[4]=V642=MMcons(Cnil,Cnil); |
|
goto T1072; |
|
|
T1072:; |
|
|
(V667->c.c_car)= CMPcar((V668->c.c_car)); |
|
|
if((V668=MMcdr(V668))==Cnil){ |
|
|
V660= base[4]; |
|
|
goto T1071;} |
|
|
V667=MMcdr(V667)=MMcons(Cnil,Cnil); |
|
|
goto T1072;} |
|
|
goto T1071; |
|
|
T1071:; |
|
|
{register object V669; |
|
|
object V670; |
|
|
V669= (V660); |
|
|
V670= CMPcar((V669)); |
|
|
goto T1078; |
|
|
T1078:; |
|
|
if(!(((V669))==Cnil)){ |
|
|
goto T1079;} |
|
|
goto T1074; |
|
|
goto T1079; |
|
|
T1079:; |
|
|
{register object V671; |
|
|
register object V672; |
|
|
V671= CMPcdr((V670)); |
|
|
V672= CMPcar((V671)); |
|
|
goto T1087; |
|
|
T1087:; |
|
|
if(!(((V671))==Cnil)){ |
|
|
goto T1088;} |
|
|
goto T1083; |
|
|
goto T1088; |
|
|
T1088:; |
|
|
if(!(type_of((V672))==t_fixnum||type_of((V672))==t_bignum)){ |
|
|
goto T1092;} |
|
|
{register object V673; |
|
|
register object V674; |
|
|
V673= nth(fix((V672)),(V659)); |
|
|
V674= Ct; |
|
|
((V673))->c.c_car = (V674);} |
|
|
goto T1092; |
|
|
T1092:; |
|
|
V671= CMPcdr((V671)); |
|
|
V672= CMPcar((V671)); |
|
|
goto T1087;} |
|
|
goto T1083; |
|
|
T1083:; |
|
|
V669= CMPcdr((V669)); |
|
|
V670= CMPcar((V669)); |
|
|
goto T1078;} |
|
|
goto T1074; |
|
|
T1074:; |
|
|
{object V675; |
|
|
object V676= (V659); |
|
|
if(V676==Cnil){ |
|
|
V659= Cnil; |
|
|
goto T1109;} |
|
|
base[4]=V675=MMcons(Cnil,Cnil); |
|
|
goto T1110; |
|
|
T1110:; |
|
|
if((CMPcar((V676->c.c_car)))!=Cnil){ |
|
|
goto T1112;} |
|
|
if((CMPcdr((V676->c.c_car)))==Cnil){ |
|
|
goto T1113;} |
|
|
goto T1112; |
|
|
T1112:; |
|
|
(V675->c.c_car)= (V676->c.c_car); |
|
|
goto T1111; |
|
|
goto T1113; |
|
|
T1113:; |
|
|
(V675->c.c_car)= Cnil; |
|
|
goto T1111; |
|
|
T1111:; |
|
|
if((V676=MMcdr(V676))==Cnil){ |
|
|
V659= base[4]; |
|
|
goto T1109;} |
|
|
V675=MMcdr(V675)=MMcons(Cnil,Cnil); |
|
|
goto T1110;} |
|
3172 |
goto T1109; |
goto T1109; |
3173 |
T1109:; |
T1109:; |
3174 |
{object V678; |
(V642->c.c_car)= CMPcar((V643->c.c_car)); |
3175 |
base[4]=VV[215]->s.s_gfdef; |
if((V643=MMcdr(V643))==Cnil){ |
3176 |
{object V679; |
V635= base[4]; |
3177 |
{long V680; |
goto T1108;} |
3178 |
V680= -1; |
V642=MMcdr(V642)=MMcons(Cnil,Cnil); |
3179 |
{object V681; |
goto T1109;} |
3180 |
object V682= (V659); |
goto T1108; |
3181 |
if(V682==Cnil){ |
T1108:; |
3182 |
V679= Cnil; |
{register object V644; |
3183 |
goto T1119;} |
object V645; |
3184 |
base[5]=V681=MMcons(Cnil,Cnil); |
V644= (V635); |
3185 |
goto T1121; |
V645= CMPcar((V644)); |
3186 |
T1121:; |
goto T1115; |
3187 |
if(((V682->c.c_car))==Cnil){ |
T1115:; |
3188 |
goto T1124;} |
if(!(((V644))==Cnil)){ |
3189 |
V680= (long)(V680)+(1); |
goto T1116;} |
3190 |
(V681->c.c_car)= CMPmake_fixnum(V680); |
goto T1111; |
3191 |
goto T1122; |
goto T1116; |
3192 |
|
T1116:; |
3193 |
|
{register object V646; |
3194 |
|
register object V647; |
3195 |
|
V646= CMPcdr((V645)); |
3196 |
|
V647= CMPcar((V646)); |
3197 |
goto T1124; |
goto T1124; |
3198 |
T1124:; |
T1124:; |
3199 |
(V681->c.c_car)= Cnil; |
if(!(((V646))==Cnil)){ |
3200 |
goto T1122; |
goto T1125;} |
3201 |
T1122:; |
goto T1120; |
3202 |
if((V682=MMcdr(V682))==Cnil){ |
goto T1125; |
3203 |
V679= base[5]; |
T1125:; |
3204 |
goto T1119;} |
if(!(type_of((V647))==t_fixnum||type_of((V647))==t_bignum)){ |
3205 |
V681=MMcdr(V681)=MMcons(Cnil,Cnil); |
goto T1129;} |
3206 |
goto T1121;}} |
{register object V648; |
3207 |
goto T1119; |
register object V649; |
3208 |
T1119:; |
V648= nth(fix((V647)),(V634)); |
3209 |
|
V649= Ct; |
3210 |
|
((V648))->c.c_car = (V649);} |
3211 |
|
goto T1129; |
3212 |
|
T1129:; |
3213 |
|
V646= CMPcdr((V646)); |
3214 |
|
V647= CMPcar((V646)); |
3215 |
|
goto T1124;} |
3216 |
|
goto T1120; |
3217 |
|
T1120:; |
3218 |
|
V644= CMPcdr((V644)); |
3219 |
|
V645= CMPcar((V644)); |
3220 |
|
goto T1115;} |
3221 |
|
goto T1111; |
3222 |
|
T1111:; |
3223 |
|
{object V650; |
3224 |
|
object V651= (V634); |
3225 |
|
if(V651==Cnil){ |
3226 |
|
V634= Cnil; |
3227 |
|
goto T1146;} |
3228 |
|
base[4]=V650=MMcons(Cnil,Cnil); |
3229 |
|
goto T1147; |
3230 |
|
T1147:; |
3231 |
|
if((CMPcar((V651->c.c_car)))!=Cnil){ |
3232 |
|
goto T1149;} |
3233 |
|
if((CMPcdr((V651->c.c_car)))==Cnil){ |
3234 |
|
goto T1150;} |
3235 |
|
goto T1149; |
3236 |
|
T1149:; |
3237 |
|
(V650->c.c_car)= (V651->c.c_car); |
3238 |
|
goto T1148; |
3239 |
|
goto T1150; |
3240 |
|
T1150:; |
3241 |
|
(V650->c.c_car)= Cnil; |
3242 |
|
goto T1148; |
3243 |
|
T1148:; |
3244 |
|
if((V651=MMcdr(V651))==Cnil){ |
3245 |
|
V634= base[4]; |
3246 |
|
goto T1146;} |
3247 |
|
V650=MMcdr(V650)=MMcons(Cnil,Cnil); |
3248 |
|
goto T1147;} |
3249 |
|
goto T1146; |
3250 |
|
T1146:; |
3251 |
|
{object V653; |
3252 |
|
base[4]=VV[231]->s.s_gfdef; |
3253 |
|
{object V654; |
3254 |
|
{long V655; |
3255 |
|
V655= -1; |
3256 |
|
{object V656; |
3257 |
|
object V657= (V634); |
3258 |
|
if(V657==Cnil){ |
3259 |
|
V654= Cnil; |
3260 |
|
goto T1156;} |
3261 |
|
base[5]=V656=MMcons(Cnil,Cnil); |
3262 |
|
goto T1158; |
3263 |
|
T1158:; |
3264 |
|
if(((V657->c.c_car))==Cnil){ |
3265 |
|
goto T1161;} |
3266 |
|
V655= (long)(V655)+(1); |
3267 |
|
(V656->c.c_car)= CMPmake_fixnum(V655); |
3268 |
|
goto T1159; |
3269 |
|
goto T1161; |
3270 |
|
T1161:; |
3271 |
|
(V656->c.c_car)= Cnil; |
3272 |
|
goto T1159; |
3273 |
|
T1159:; |
3274 |
|
if((V657=MMcdr(V657))==Cnil){ |
3275 |
|
V654= base[5]; |
3276 |
|
goto T1156;} |
3277 |
|
V656=MMcdr(V656)=MMcons(Cnil,Cnil); |
3278 |
|
goto T1158;}} |
3279 |
|
goto T1156; |
3280 |
|
T1156:; |
3281 |
vs_top=base+5; |
vs_top=base+5; |
3282 |
while(V679!=Cnil) |
while(V654!=Cnil) |
3283 |
{vs_push((V679)->c.c_car);V679=(V679)->c.c_cdr;} |
{vs_push((V654)->c.c_car);V654=(V654)->c.c_cdr;} |
3284 |
vs_base=base+5;} |
vs_base=base+5;} |
3285 |
(void) (*Lnk215)(); |
(void) (*Lnk231)(); |
3286 |
vs_top=sup; |
vs_top=sup; |
3287 |
V678= vs_base[0]; |
V653= vs_base[0]; |
3288 |
{object V684; |
{object V659; |
3289 |
object V685= (V660); |
object V660= (V635); |
3290 |
if(V685==Cnil){ |
if(V660==Cnil){ |
3291 |
V660= Cnil; |
V635= Cnil; |
3292 |
goto T1127;} |
goto T1164;} |
3293 |
base[4]=V684=MMcons(Cnil,Cnil); |
base[4]=V659=MMcons(Cnil,Cnil); |
3294 |
goto T1128; |
goto T1165; |
3295 |
T1128:; |
T1165:; |
3296 |
V687= CMPcar((V685->c.c_car)); |
V662= CMPcar((V660->c.c_car)); |
3297 |
{object V689; |
{object V664; |
3298 |
object V690= CMPcdr((V685->c.c_car)); |
object V665= CMPcdr((V660->c.c_car)); |
3299 |
if(V690==Cnil){ |
if(V665==Cnil){ |
3300 |
V688= Cnil; |
V663= Cnil; |
3301 |
goto T1130;} |
goto T1167;} |
3302 |
base[5]=V689=MMcons(Cnil,Cnil); |
base[5]=V664=MMcons(Cnil,Cnil); |
3303 |
goto T1131; |
goto T1168; |
3304 |
T1131:; |
T1168:; |
3305 |
if(!(type_of((V690->c.c_car))==t_fixnum||type_of((V690->c.c_car))==t_bignum)){ |
if(!(type_of((V665->c.c_car))==t_fixnum||type_of((V665->c.c_car))==t_bignum)){ |
3306 |
goto T1134;} |
goto T1171;} |
3307 |
(V689->c.c_car)= ((V678))->v.v_self[fix((V690->c.c_car))]; |
(V664->c.c_car)= ((V653))->v.v_self[fix((V665->c.c_car))]; |
3308 |
goto T1132; |
goto T1169; |
3309 |
goto T1134; |
goto T1171; |
3310 |
T1134:; |
T1171:; |
3311 |
(V689->c.c_car)= (V690->c.c_car); |
(V664->c.c_car)= (V665->c.c_car); |
3312 |
goto T1132; |
goto T1169; |
3313 |
T1132:; |
T1169:; |
3314 |
if((V690=MMcdr(V690))==Cnil){ |
if((V665=MMcdr(V665))==Cnil){ |
3315 |
V688= base[5]; |
V663= base[5]; |
3316 |
goto T1130;} |
goto T1167;} |
3317 |
V689=MMcdr(V689)=MMcons(Cnil,Cnil); |
V664=MMcdr(V664)=MMcons(Cnil,Cnil); |
3318 |
goto T1131;} |
goto T1168;} |
3319 |
goto T1130; |
goto T1167; |
3320 |
T1130:; |
T1167:; |
3321 |
(V684->c.c_car)= make_cons(/* INLINE-ARGS */V687,V688); |
(V659->c.c_car)= make_cons(/* INLINE-ARGS */V662,V663); |
3322 |
if((V685=MMcdr(V685))==Cnil){ |
if((V660=MMcdr(V660))==Cnil){ |
3323 |
V660= base[4]; |
V635= base[4]; |
3324 |
goto T1127;} |
goto T1164;} |
3325 |
V684=MMcdr(V684)=MMcons(Cnil,Cnil); |
V659=MMcdr(V659)=MMcons(Cnil,Cnil); |
3326 |
goto T1128;} |
goto T1165;} |
3327 |
goto T1127; |
goto T1164; |
3328 |
T1127:;} |
T1164:;} |
3329 |
base[4]= (V659); |
base[4]= (V634); |
3330 |
base[5]= (V660); |
base[5]= (V635); |
3331 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3332 |
return;}} |
return;}} |
3333 |
} |
} |
3338 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3339 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM51; VC51 |
3340 |
vs_check; |
vs_check; |
3341 |
{object V692; |
{object V667; |
3342 |
object V693; |
object V668; |
3343 |
check_arg(2); |
check_arg(2); |
3344 |
V692=(base[0]); |
V667=(base[0]); |
3345 |
V693=(base[1]); |
V668=(base[1]); |
3346 |
vs_top=sup; |
vs_top=sup; |
3347 |
goto TTL; |
goto TTL; |
3348 |
TTL:; |
TTL:; |
3349 |
{object V694; |
{object V669; |
3350 |
object V695; |
object V670; |
3351 |
register long V696; |
register long V671; |
3352 |
V694= (*(LnkLI216))((V692)); |
V669= (*(LnkLI232))((V667)); |
3353 |
V695= (*(LnkLI217))(CMPcdr((V693))); |
V670= (*(LnkLI233))(CMPcdr((V668))); |
3354 |
V696= 0; |
V671= 0; |
3355 |
{object V697; |
{object V672; |
3356 |
object V698; |
object V673; |
3357 |
V697= (V694); |
V672= (V669); |
3358 |
V698= CMPcar((V697)); |
V673= CMPcar((V672)); |
3359 |
goto T1145; |
goto T1182; |
3360 |
T1145:; |
T1182:; |
3361 |
if(!(((V697))==Cnil)){ |
if(!(((V672))==Cnil)){ |
3362 |
goto T1146;} |
goto T1183;} |
3363 |
goto T1141; |
goto T1178; |
3364 |
goto T1146; |
goto T1183; |
3365 |
T1146:; |
T1183:; |
3366 |
{register object V699; |
{register object V674; |
3367 |
object V700; |
object V675; |
3368 |
V699= CMPcdr((V698)); |
V674= CMPcdr((V673)); |
3369 |
V700= CMPcar((V699)); |
V675= CMPcar((V674)); |
3370 |
goto T1154; |
goto T1191; |
3371 |
T1154:; |
T1191:; |
3372 |
if(!(((V699))==Cnil)){ |
if(!(((V674))==Cnil)){ |
3373 |
goto T1155;} |
goto T1192;} |
3374 |
goto T1150; |
goto T1187; |
|
goto T1155; |
|
|
T1155:; |
|
|
V696= (long)(V696)+(1); |
|
|
{register object V701; |
|
|
register object V702; |
|
|
V701= CMPcdr((V700)); |
|
|
V702= CMPcar((V701)); |
|
|
goto T1165; |
|
|
T1165:; |
|
|
if(!(((V701))==Cnil)){ |
|
|
goto T1166;} |
|
|
goto T1161; |
|
|
goto T1166; |
|
|
T1166:; |
|
|
{register object V704; |
|
|
V704= CMPmake_fixnum(V696); |
|
|
(CMPcdr(V702))->c.c_car = (V704); |
|
|
(void)(CMPcdr(V702));} |
|
|
V701= CMPcdr((V701)); |
|
|
V702= CMPcar((V701)); |
|
|
goto T1165;} |
|
|
goto T1161; |
|
|
T1161:; |
|
|
V699= CMPcdr((V699)); |
|
|
V700= CMPcar((V699)); |
|
|
goto T1154;} |
|
|
goto T1150; |
|
|
T1150:; |
|
|
V697= CMPcdr((V697)); |
|
|
V698= CMPcar((V697)); |
|
|
goto T1145;} |
|
|
goto T1141; |
|
|
T1141:; |
|
|
{object V705; |
|
|
object V706; |
|
|
V705= (V695); |
|
|
V706= CMPcar((V705)); |
|
3375 |
goto T1192; |
goto T1192; |
3376 |
T1192:; |
T1192:; |
3377 |
if(!(((V705))==Cnil)){ |
V671= (long)(V671)+(1); |
3378 |
goto T1193;} |
{register object V676; |
3379 |
goto T1188; |
register object V677; |
3380 |
goto T1193; |
V676= CMPcdr((V675)); |
3381 |
T1193:; |
V677= CMPcar((V676)); |
3382 |
V696= (long)(V696)+(1); |
goto T1202; |
3383 |
{register object V707; |
T1202:; |
3384 |
object V708; |
if(!(((V676))==Cnil)){ |
3385 |
V707= CMPcdr((V706)); |
goto T1203;} |
3386 |
V708= CMPcar((V707)); |
goto T1198; |
3387 |
goto T1203; |
goto T1203; |
3388 |
T1203:; |
T1203:; |
3389 |
if(!(((V707))==Cnil)){ |
{register object V679; |
3390 |
goto T1204;} |
V679= CMPmake_fixnum(V671); |
3391 |
goto T1199; |
(CMPcdr(V677))->c.c_car = (V679); |
3392 |
goto T1204; |
(void)(CMPcdr(V677));} |
3393 |
T1204:; |
V676= CMPcdr((V676)); |
3394 |
{object V710; |
V677= CMPcar((V676)); |
3395 |
V710= CMPmake_fixnum(V696); |
goto T1202;} |
3396 |
(CMPcdr(V708))->c.c_car = (V710); |
goto T1198; |
3397 |
(void)(CMPcdr(V708));} |
T1198:; |
3398 |
V707= CMPcdr((V707)); |
V674= CMPcdr((V674)); |
3399 |
V708= CMPcar((V707)); |
V675= CMPcar((V674)); |
3400 |
goto T1203;} |
goto T1191;} |
3401 |
goto T1199; |
goto T1187; |
3402 |
T1199:; |
T1187:; |
3403 |
V705= CMPcdr((V705)); |
V672= CMPcdr((V672)); |
3404 |
V706= CMPcar((V705)); |
V673= CMPcar((V672)); |
3405 |
goto T1192;} |
goto T1182;} |
3406 |
goto T1188; |
goto T1178; |
3407 |
T1188:; |
T1178:; |
3408 |
base[2]= (V694); |
{object V680; |
3409 |
base[3]= (V695); |
object V681; |
3410 |
|
V680= (V670); |
3411 |
|
V681= CMPcar((V680)); |
3412 |
|
goto T1229; |
3413 |
|
T1229:; |
3414 |
|
if(!(((V680))==Cnil)){ |
3415 |
|
goto T1230;} |
3416 |
|
goto T1225; |
3417 |
|
goto T1230; |
3418 |
|
T1230:; |
3419 |
|
V671= (long)(V671)+(1); |
3420 |
|
{register object V682; |
3421 |
|
object V683; |
3422 |
|
V682= CMPcdr((V681)); |
3423 |
|
V683= CMPcar((V682)); |
3424 |
|
goto T1240; |
3425 |
|
T1240:; |
3426 |
|
if(!(((V682))==Cnil)){ |
3427 |
|
goto T1241;} |
3428 |
|
goto T1236; |
3429 |
|
goto T1241; |
3430 |
|
T1241:; |
3431 |
|
{object V685; |
3432 |
|
V685= CMPmake_fixnum(V671); |
3433 |
|
(CMPcdr(V683))->c.c_car = (V685); |
3434 |
|
(void)(CMPcdr(V683));} |
3435 |
|
V682= CMPcdr((V682)); |
3436 |
|
V683= CMPcar((V682)); |
3437 |
|
goto T1240;} |
3438 |
|
goto T1236; |
3439 |
|
T1236:; |
3440 |
|
V680= CMPcdr((V680)); |
3441 |
|
V681= CMPcar((V680)); |
3442 |
|
goto T1229;} |
3443 |
|
goto T1225; |
3444 |
|
T1225:; |
3445 |
|
base[2]= (V669); |
3446 |
|
base[3]= (V670); |
3447 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3448 |
return;} |
return;} |
3449 |
} |
} |
3450 |
} |
} |
3451 |
/* local entry for function SYMBOL-PKG-NAME */ |
/* local entry for function SYMBOL-PKG-NAME */ |
3452 |
|
|
3453 |
static object LI54(V712) |
static object LI54(V687) |
3454 |
|
|
3455 |
object V712; |
object V687; |
3456 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3457 |
goto TTL; |
goto TTL; |
3458 |
TTL:; |
TTL:; |
3459 |
{object V713; |
{object V688; |
3460 |
base[0]= (V712); |
base[0]= (V687); |
3461 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3462 |
Lsymbol_package(); |
Lsymbol_package(); |
3463 |
vs_top=sup; |
vs_top=sup; |
3464 |
V713= vs_base[0]; |
V688= vs_base[0]; |
3465 |
if(((V713))==Cnil){ |
if(((V688))==Cnil){ |
3466 |
goto T1226;} |
goto T1263;} |
3467 |
base[0]= (V713); |
base[0]= (V688); |
3468 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3469 |
Lpackage_name(); |
Lpackage_name(); |
3470 |
vs_top=sup; |
vs_top=sup; |
3471 |
{object V714 = vs_base[0]; |
{object V689 = vs_base[0]; |
3472 |
VMR52(V714)} |
VMR52(V689)} |
3473 |
goto T1226; |
goto T1263; |
3474 |
T1226:; |
T1263:; |
3475 |
{object V715 = VV[99]; |
{object V690 = VV[113]; |
3476 |
VMR52(V715)}} |
VMR52(V690)}} |
3477 |
base[0]=base[0]; |
base[0]=base[0]; |
3478 |
return Cnil; |
return Cnil; |
3479 |
} |
} |
3480 |
/* local entry for function SYMBOL-LESSP */ |
/* local entry for function SYMBOL-LESSP */ |
3481 |
|
|
3482 |
static object LI55(V718,V719) |
static object LI55(V693,V694) |
3483 |
|
|
3484 |
object V718;object V719; |
object V693;object V694; |
3485 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3486 |
goto TTL; |
goto TTL; |
3487 |
TTL:; |
TTL:; |
3488 |
base[0]= (V718); |
base[0]= (V693); |
3489 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3490 |
Lsymbol_package(); |
Lsymbol_package(); |
3491 |
vs_top=sup; |
vs_top=sup; |
3492 |
V720= vs_base[0]; |
V695= vs_base[0]; |
3493 |
base[0]= (V719); |
base[0]= (V694); |
3494 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3495 |
Lsymbol_package(); |
Lsymbol_package(); |
3496 |
vs_top=sup; |
vs_top=sup; |
3497 |
V721= vs_base[0]; |
V696= vs_base[0]; |
3498 |
if(!((V720)==(V721))){ |
if(!((V695)==(V696))){ |
3499 |
goto T1230;} |
goto T1267;} |
3500 |
base[0]= symbol_name((V718)); |
base[0]= symbol_name((V693)); |
3501 |
base[1]= symbol_name((V719)); |
base[1]= symbol_name((V694)); |
3502 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3503 |
Lstring_lessp(); |
Lstring_lessp(); |
3504 |
vs_top=sup; |
vs_top=sup; |
3505 |
{object V722 = vs_base[0]; |
{object V697 = vs_base[0]; |
3506 |
VMR53(V722)} |
VMR53(V697)} |
3507 |
goto T1230; |
goto T1267; |
3508 |
T1230:; |
T1267:; |
3509 |
base[0]= (*(LnkLI218))((V718)); |
base[0]= (*(LnkLI234))((V693)); |
3510 |
base[1]= (*(LnkLI218))((V719)); |
base[1]= (*(LnkLI234))((V694)); |
3511 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3512 |
Lstring_lessp(); |
Lstring_lessp(); |
3513 |
vs_top=sup; |
vs_top=sup; |
3514 |
{object V723 = vs_base[0]; |
{object V698 = vs_base[0]; |
3515 |
VMR53(V723)} |
VMR53(V698)} |
3516 |
base[0]=base[0]; |
base[0]=base[0]; |
3517 |
return Cnil; |
return Cnil; |
3518 |
} |
} |
3519 |
/* local entry for function SYMBOL-OR-CONS-LESSP */ |
/* local entry for function SYMBOL-OR-CONS-LESSP */ |
3520 |
|
|
3521 |
static object LI56(V726,V727) |
static object LI56(V701,V702) |
3522 |
|
|
3523 |
register object V726;register object V727; |
register object V701;register object V702; |
3524 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3525 |
goto TTL; |
goto TTL; |
3526 |
TTL:; |
TTL:; |
3527 |
{register object V728; |
{register object V704; |
3528 |
V728= (V726); |
V704= V701; |
3529 |
if(!(type_of((V728))==t_symbol)){ |
if(!(type_of((V704))==t_symbol)){ |
3530 |
goto T1241;} |
goto T1278;} |
3531 |
{register object V729; |
{register object V706; |
3532 |
V729= (V727); |
V706= V702; |
3533 |
if(!(type_of((V729))==t_symbol)){ |
if(!(type_of((V706))==t_symbol)){ |
3534 |
goto T1244;} |
goto T1281;} |
3535 |
{object V730 = (*(LnkLI219))((V726),(V727)); |
{object V707 = (*(LnkLI235))((V701),(V702)); |
3536 |
VMR54(V730)} |
VMR54(V707)} |
3537 |
goto T1244; |
goto T1281; |
3538 |
T1244:; |
T1281:; |
3539 |
if(!(type_of((V729))==t_cons)){ |
if(!(type_of((V706))==t_cons)){ |
3540 |
goto T1247;} |
goto T1284;} |
3541 |
{object V731 = Ct; |
{object V708 = Ct; |
3542 |
VMR54(V731)} |
VMR54(V708)} |
3543 |
goto T1247; |
goto T1284; |
3544 |
T1247:; |
T1284:; |
3545 |
base[1]= VV[100]; |
base[0]= VV[42]; |
3546 |
base[2]= (V729); |
base[1]= VV[43]; |
3547 |
base[3]= VV[101]; |
base[2]= VV[114]; |
3548 |
vs_top=(vs_base=base+1)+3; |
base[3]= VV[45]; |
3549 |
(void) (*Lnk220)(); |
base[4]= V702; |
3550 |
vs_top=sup; |
base[5]= VV[46]; |
3551 |
base[0]= vs_base[0]; |
base[6]= VV[115]; |
3552 |
vs_top=(vs_base=base+0)+1; |
base[7]= VV[48]; |
3553 |
Lerror(); |
base[8]= VV[116]; |
3554 |
vs_top=sup; |
vs_top=(vs_base=base+0)+9; |
3555 |
{object V732 = vs_base[0]; |
(void) (*Lnk210)(); |
3556 |
VMR54(V732)}} |
vs_top=sup; |
3557 |
goto T1241; |
{object V709 = vs_base[0]; |
3558 |
T1241:; |
VMR54(V709)}} |
3559 |
if(!(type_of((V728))==t_cons)){ |
goto T1278; |
3560 |
goto T1254;} |
T1278:; |
3561 |
{register object V733; |
if(!(type_of((V704))==t_cons)){ |
3562 |
V733= (V727); |
goto T1296;} |
3563 |
if(!(type_of((V733))==t_symbol)){ |
{register object V711; |
3564 |
goto T1257;} |
V711= V702; |
3565 |
{object V734 = Cnil; |
if(!(type_of((V711))==t_symbol)){ |
3566 |
VMR54(V734)} |
goto T1299;} |
3567 |
goto T1257; |
{object V712 = Cnil; |
3568 |
T1257:; |
VMR54(V712)} |
3569 |
if(!(type_of((V733))==t_cons)){ |
goto T1299; |
3570 |
goto T1260;} |
T1299:; |
3571 |
if(!((CMPcar((V726)))==(CMPcar((V727))))){ |
if(!(type_of((V711))==t_cons)){ |
3572 |
goto T1263;} |
goto T1302;} |
3573 |
V726= CMPcdr((V726)); |
if(!((CMPcar((V701)))==(CMPcar((V702))))){ |
3574 |
V727= CMPcdr((V727)); |
goto T1305;} |
3575 |
goto TTL; |
V701= CMPcdr((V701)); |
3576 |
goto T1263; |
V702= CMPcdr((V702)); |
|
T1263:; |
|
|
V726= CMPcar((V726)); |
|
|
V727= CMPcar((V727)); |
|
3577 |
goto TTL; |
goto TTL; |
3578 |
goto T1260; |
goto T1305; |
3579 |
T1260:; |
T1305:; |
3580 |
base[1]= VV[100]; |
V701= CMPcar((V701)); |
3581 |
base[2]= (V733); |
V702= CMPcar((V702)); |
3582 |
base[3]= VV[102]; |
goto TTL; |
3583 |
vs_top=(vs_base=base+1)+3; |
goto T1302; |
3584 |
(void) (*Lnk220)(); |
T1302:; |
3585 |
vs_top=sup; |
base[0]= VV[42]; |
3586 |
base[0]= vs_base[0]; |
base[1]= VV[43]; |
3587 |
vs_top=(vs_base=base+0)+1; |
base[2]= VV[114]; |
3588 |
Lerror(); |
base[3]= VV[45]; |
3589 |
|
base[4]= V702; |
3590 |
|
base[5]= VV[46]; |
3591 |
|
base[6]= VV[117]; |
3592 |
|
base[7]= VV[48]; |
3593 |
|
base[8]= VV[118]; |
3594 |
|
vs_top=(vs_base=base+0)+9; |
3595 |
|
(void) (*Lnk210)(); |
3596 |
|
vs_top=sup; |
3597 |
|
{object V713 = vs_base[0]; |
3598 |
|
VMR54(V713)}} |
3599 |
|
goto T1296; |
3600 |
|
T1296:; |
3601 |
|
base[0]= VV[42]; |
3602 |
|
base[1]= VV[43]; |
3603 |
|
base[2]= VV[114]; |
3604 |
|
base[3]= VV[45]; |
3605 |
|
base[4]= V701; |
3606 |
|
base[5]= VV[46]; |
3607 |
|
base[6]= VV[119]; |
3608 |
|
base[7]= VV[48]; |
3609 |
|
base[8]= VV[120]; |
3610 |
|
vs_top=(vs_base=base+0)+9; |
3611 |
|
(void) (*Lnk210)(); |
3612 |
vs_top=sup; |
vs_top=sup; |
3613 |
{object V735 = vs_base[0]; |
{object V714 = vs_base[0]; |
3614 |
VMR54(V735)}} |
VMR54(V714)}} |
|
goto T1254; |
|
|
T1254:; |
|
|
base[1]= VV[103]; |
|
|
base[2]= (V728); |
|
|
base[3]= VV[104]; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk220)(); |
|
|
vs_top=sup; |
|
|
base[0]= vs_base[0]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
{object V736 = vs_base[0]; |
|
|
VMR54(V736)}} |
|
3615 |
base[0]=base[0]; |
base[0]=base[0]; |
3616 |
return Cnil; |
return Cnil; |
3617 |
} |
} |
3618 |
/* local entry for function SORT-SLOTS */ |
/* local entry for function SORT-SLOTS */ |
3619 |
|
|
3620 |
static object LI57(V738) |
static object LI57(V716) |
3621 |
|
|
3622 |
object V738; |
object V716; |
3623 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3624 |
goto TTL; |
goto TTL; |
3625 |
TTL:; |
TTL:; |
3626 |
{object V739; |
{object V717; |
3627 |
object V740= (V738); |
object V718= (V716); |
3628 |
if(V740==Cnil){ |
if(V718==Cnil){ |
3629 |
{object V741 = Cnil; |
{object V719 = Cnil; |
3630 |
VMR55(V741)}} |
VMR55(V719)}} |
3631 |
base[0]=V739=MMcons(Cnil,Cnil); |
base[0]=V717=MMcons(Cnil,Cnil); |
3632 |
goto T1279; |
goto T1331; |
3633 |
T1279:; |
T1331:; |
3634 |
V743= CMPcar((V740->c.c_car)); |
V721= CMPcar((V718->c.c_car)); |
3635 |
base[1]= CMPcdr((V740->c.c_car)); |
base[1]= CMPcdr((V718->c.c_car)); |
3636 |
base[2]= (VV[221]->s.s_gfdef); |
base[2]= (VV[236]->s.s_gfdef); |
3637 |
base[3]= VV[65]; |
base[3]= VV[79]; |
3638 |
base[4]= (VV[204]->s.s_gfdef); |
base[4]= (VV[220]->s.s_gfdef); |
3639 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3640 |
(void) (*Lnk222)(); |
(void) (*Lnk237)(); |
3641 |
vs_top=sup; |
vs_top=sup; |
3642 |
V744= vs_base[0]; |
V722= vs_base[0]; |
3643 |
(V739->c.c_car)= make_cons(/* INLINE-ARGS */V743,V744); |
(V717->c.c_car)= make_cons(/* INLINE-ARGS */V721,V722); |
3644 |
if((V740=MMcdr(V740))==Cnil){ |
if((V718=MMcdr(V718))==Cnil){ |
3645 |
{object V745 = base[0]; |
{object V723 = base[0]; |
3646 |
VMR55(V745)}} |
VMR55(V723)}} |
3647 |
V739=MMcdr(V739)=MMcons(Cnil,Cnil); |
V717=MMcdr(V717)=MMcons(Cnil,Cnil); |
3648 |
goto T1279;} |
goto T1331;} |
3649 |
base[0]=base[0]; |
base[0]=base[0]; |
3650 |
return Cnil; |
return Cnil; |
3651 |
} |
} |
3652 |
/* local entry for function SORT-CALLS */ |
/* local entry for function SORT-CALLS */ |
3653 |
|
|
3654 |
static object LI58(V747) |
static object LI58(V725) |
3655 |
|
|
3656 |
object V747; |
object V725; |
3657 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
3658 |
goto TTL; |
goto TTL; |
3659 |
TTL:; |
TTL:; |
3660 |
base[0]= (V747); |
base[0]= (V725); |
3661 |
base[1]= (VV[221]->s.s_gfdef); |
base[1]= (VV[236]->s.s_gfdef); |
3662 |
base[2]= VV[65]; |
base[2]= VV[79]; |
3663 |
base[3]= (VV[204]->s.s_gfdef); |
base[3]= (VV[220]->s.s_gfdef); |
3664 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
3665 |
(void) (*Lnk222)(); |
(void) (*Lnk237)(); |
3666 |
vs_top=sup; |
vs_top=sup; |
3667 |
{object V748 = vs_base[0]; |
{object V726 = vs_base[0]; |
3668 |
VMR56(V748)} |
VMR56(V726)} |
3669 |
base[0]=base[0]; |
base[0]=base[0]; |
3670 |
return Cnil; |
return Cnil; |
3671 |
} |
} |
3677 |
vs_check; |
vs_check; |
3678 |
check_arg(2); |
check_arg(2); |
3679 |
vs_top=sup; |
vs_top=sup; |
3680 |
{object V749=base[0]->c.c_cdr; |
{object V727=base[0]->c.c_cdr; |
3681 |
if(endp(V749))invalid_macro_call(); |
if(endp(V727))invalid_macro_call(); |
3682 |
{object V750= (V749->c.c_car); |
{object V728= (V727->c.c_car); |
3683 |
if(endp(V750))invalid_macro_call(); |
if(endp(V728))invalid_macro_call(); |
3684 |
base[2]= (V750->c.c_car); |
base[2]= (V728->c.c_car); |
3685 |
V750=V750->c.c_cdr; |
V728=V728->c.c_cdr; |
3686 |
if(endp(V750))invalid_macro_call(); |
if(endp(V728))invalid_macro_call(); |
3687 |
base[3]= (V750->c.c_car); |
base[3]= (V728->c.c_car); |
3688 |
V750=V750->c.c_cdr; |
V728=V728->c.c_cdr; |
3689 |
if(endp(V750))invalid_macro_call(); |
if(endp(V728))invalid_macro_call(); |
3690 |
base[4]= (V750->c.c_car); |
base[4]= (V728->c.c_car); |
3691 |
V750=V750->c.c_cdr; |
V728=V728->c.c_cdr; |
3692 |
if(!endp(V750))invalid_macro_call();} |
if(!endp(V728))invalid_macro_call();} |
3693 |
V749=V749->c.c_cdr; |
V727=V727->c.c_cdr; |
3694 |
base[5]= V749;} |
base[5]= V727;} |
3695 |
{object V751; |
{object V729; |
3696 |
object V752; |
object V730; |
3697 |
{register object V753; |
{register object V731; |
3698 |
register object V754; |
register object V732; |
3699 |
register object V755; |
register object V733; |
3700 |
register object V756; |
register object V734; |
3701 |
V753= Cnil; |
V731= Cnil; |
3702 |
V754= Cnil; |
V732= Cnil; |
3703 |
V755= Cnil; |
V733= Cnil; |
3704 |
V756= Cnil; |
V734= Cnil; |
3705 |
{register object V757; |
{register object V735; |
3706 |
register object V758; |
register object V736; |
3707 |
register object V759; |
register object V737; |
3708 |
register object V760; |
register object V738; |
3709 |
register object V761; |
register object V739; |
3710 |
register object V762; |
register object V740; |
3711 |
V757= base[3]; |
V735= base[3]; |
3712 |
V758= Cnil; |
V736= Cnil; |
3713 |
V759= base[2]; |
V737= base[2]; |
3714 |
V760= Cnil; |
V738= Cnil; |
3715 |
V761= small_fixnum(0); |
V739= small_fixnum(0); |
3716 |
V762= Cnil; |
V740= Cnil; |
3717 |
goto T1303; |
goto T1355; |
3718 |
T1303:; |
T1355:; |
3719 |
{register object V763; |
{register object V741; |
3720 |
if(!(((V757))==Cnil)){ |
if(!(((V735))==Cnil)){ |
3721 |
goto T1309;} |
goto T1361;} |
3722 |
goto T1295; |
goto T1347; |
3723 |
goto T1309; |
goto T1361; |
3724 |
T1309:; |
T1361:; |
3725 |
V763= CMPcar((V757)); |
V741= CMPcar((V735)); |
3726 |
V757= CMPcdr((V757)); |
V735= CMPcdr((V735)); |
3727 |
V758= (V763);} |
V736= (V741);} |
3728 |
{register object V764; |
{register object V742; |
3729 |
if(!(((V759))==Cnil)){ |
if(!(((V737))==Cnil)){ |
3730 |
goto T1317;} |
goto T1369;} |
3731 |
goto T1295; |
goto T1347; |
3732 |
goto T1317; |
goto T1369; |
3733 |
T1317:; |
T1369:; |
3734 |
V764= CMPcar((V759)); |
V742= CMPcar((V737)); |
3735 |
V759= CMPcdr((V759)); |
V737= CMPcdr((V737)); |
3736 |
V760= (V764);} |
V738= (V742);} |
3737 |
{register object V765; |
{register object V743; |
3738 |
V765= (V761); |
V743= (V739); |
3739 |
V761= number_plus((V761),small_fixnum(1)); |
V739= number_plus((V739),small_fixnum(1)); |
3740 |
V762= (V765);} |
V740= (V743);} |
3741 |
if(((V758))==Cnil){ |
if(((V736))==Cnil){ |
3742 |
goto T1304;} |
goto T1356;} |
3743 |
{register object V766; |
{register object V744; |
3744 |
V766= (V760); |
V744= (V738); |
3745 |
if(((V755))!=Cnil){ |
if(((V733))!=Cnil){ |
3746 |
goto T1329;} |
goto T1381;} |
3747 |
V756= make_cons((V766),Cnil); |
V734= make_cons((V744),Cnil); |
3748 |
V755= (V756); |
V733= (V734); |
3749 |
goto T1327; |
goto T1379; |
3750 |
goto T1329; |
goto T1381; |
3751 |
T1329:; |
T1381:; |
3752 |
V768= make_cons((V766),Cnil); |
V746= make_cons((V744),Cnil); |
3753 |
((V756))->c.c_cdr = /* INLINE-ARGS */V768; |
((V734))->c.c_cdr = /* INLINE-ARGS */V746; |
3754 |
V767= (V756); |
V745= (V734); |
3755 |
V756= CMPcdr(V767);} |
V734= CMPcdr(V745);} |
3756 |
goto T1327; |
goto T1379; |
3757 |
T1327:; |
T1379:; |
3758 |
{register object V769; |
{register object V747; |
3759 |
V769= (*(LnkLI211))((V762)); |
V747= (*(LnkLI227))((V740)); |
3760 |
if(((V753))!=Cnil){ |
if(((V731))!=Cnil){ |
3761 |
goto T1337;} |
goto T1389;} |
3762 |
V754= make_cons((V769),Cnil); |
V732= make_cons((V747),Cnil); |
3763 |
V753= (V754); |
V731= (V732); |
3764 |
goto T1304; |
goto T1356; |
3765 |
goto T1337; |
goto T1389; |
3766 |
T1337:; |
T1389:; |
3767 |
V771= make_cons((V769),Cnil); |
V749= make_cons((V747),Cnil); |
3768 |
((V754))->c.c_cdr = /* INLINE-ARGS */V771; |
((V732))->c.c_cdr = /* INLINE-ARGS */V749; |
3769 |
V770= (V754); |
V748= (V732); |
3770 |
V754= CMPcdr(V770);} |
V732= CMPcdr(V748);} |
3771 |
goto T1304; |
goto T1356; |
3772 |
T1304:; |
T1356:; |
3773 |
goto T1303;} |
goto T1355;} |
3774 |
goto T1295; |
goto T1347; |
3775 |
T1295:; |
T1347:; |
3776 |
base[6]= (V753); |
base[6]= (V731); |
3777 |
base[7]= (V755); |
base[7]= (V733); |
3778 |
vs_top=(vs_base=base+6)+2;} |
vs_top=(vs_base=base+6)+2;} |
3779 |
if(vs_base>=vs_top){vs_top=sup;goto T1346;} |
if(vs_base>=vs_top){vs_top=sup;goto T1398;} |
3780 |
V751= vs_base[0]; |
V729= vs_base[0]; |
3781 |
vs_base++; |
vs_base++; |
3782 |
if(vs_base>=vs_top){vs_top=sup;goto T1347;} |
if(vs_base>=vs_top){vs_top=sup;goto T1399;} |
3783 |
V752= vs_base[0]; |
V730= vs_base[0]; |
3784 |
vs_top=sup; |
vs_top=sup; |
3785 |
goto T1348; |
goto T1400; |
3786 |
goto T1346; |
goto T1398; |
3787 |
T1346:; |
T1398:; |
3788 |
V751= Cnil; |
V729= Cnil; |
3789 |
goto T1347; |
goto T1399; |
3790 |
T1347:; |
T1399:; |
3791 |
V752= Cnil; |
V730= Cnil; |
3792 |
goto T1348; |
goto T1400; |
3793 |
T1348:; |
T1400:; |
3794 |
base[6]= listA(3,VV[105],list(5,VV[70],VV[106],base[4],(V752),(V751)),base[5]); |
base[6]= listA(3,VV[121],list(5,VV[84],VV[122],base[4],(V730),(V729)),base[5]); |
3795 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3796 |
return;} |
return;} |
3797 |
} |
} |
3803 |
vs_check; |
vs_check; |
3804 |
check_arg(2); |
check_arg(2); |
3805 |
vs_top=sup; |
vs_top=sup; |
3806 |
{object V772=base[0]->c.c_cdr; |
{object V750=base[0]->c.c_cdr; |
3807 |
if(endp(V772))invalid_macro_call(); |
if(endp(V750))invalid_macro_call(); |
3808 |
{object V773= (V772->c.c_car); |
{object V751= (V750->c.c_car); |
3809 |
if(endp(V773))invalid_macro_call(); |
if(endp(V751))invalid_macro_call(); |
3810 |
base[2]= (V773->c.c_car); |
base[2]= (V751->c.c_car); |
3811 |
V773=V773->c.c_cdr; |
V751=V751->c.c_cdr; |
3812 |
if(endp(V773))invalid_macro_call(); |
if(endp(V751))invalid_macro_call(); |
3813 |
base[3]= (V773->c.c_car); |
base[3]= (V751->c.c_car); |
3814 |
V773=V773->c.c_cdr; |
V751=V751->c.c_cdr; |
3815 |
if(endp(V773))invalid_macro_call(); |
if(endp(V751))invalid_macro_call(); |
3816 |
base[4]= (V773->c.c_car); |
base[4]= (V751->c.c_car); |
3817 |
V773=V773->c.c_cdr; |
V751=V751->c.c_cdr; |
3818 |
if(endp(V773))invalid_macro_call(); |
if(endp(V751))invalid_macro_call(); |
3819 |
base[5]= (V773->c.c_car); |
base[5]= (V751->c.c_car); |
3820 |
V773=V773->c.c_cdr; |
V751=V751->c.c_cdr; |
3821 |
if(endp(V773))invalid_macro_call(); |
if(endp(V751))invalid_macro_call(); |
3822 |
base[6]= (V773->c.c_car); |
base[6]= (V751->c.c_car); |
3823 |
V773=V773->c.c_cdr; |
V751=V751->c.c_cdr; |
3824 |
if(!endp(V773))invalid_macro_call();} |
if(!endp(V751))invalid_macro_call();} |
3825 |
V772=V772->c.c_cdr; |
V750=V750->c.c_cdr; |
3826 |
base[7]= V772;} |
base[7]= V750;} |
3827 |
V774= list(4,base[2],base[3],base[4],base[5]); |
V752= list(4,base[2],base[3],base[4],base[5]); |
3828 |
{object V776; |
{object V754; |
3829 |
object V777= base[6]; |
object V755= base[6]; |
3830 |
object V778= base[5]; |
object V756= base[5]; |
3831 |
if(V777==Cnil||V778==Cnil){ |
if(V755==Cnil||V756==Cnil){ |
3832 |
V775= Cnil; |
V753= Cnil; |
3833 |
goto T1349;} |
goto T1401;} |
3834 |
base[8]=V776=MMcons(Cnil,Cnil); |
base[8]=V754=MMcons(Cnil,Cnil); |
3835 |
goto T1350; |
goto T1402; |
3836 |
T1350:; |
T1402:; |
3837 |
(V776->c.c_car)= list(2,(V777->c.c_car),list(2,VV[108],(V778->c.c_car))); |
(V754->c.c_car)= list(2,(V755->c.c_car),list(2,VV[124],(V756->c.c_car))); |
3838 |
if((V777=MMcdr(V777))==Cnil||(V778=MMcdr(V778))==Cnil){ |
if((V755=MMcdr(V755))==Cnil||(V756=MMcdr(V756))==Cnil){ |
3839 |
V775= base[8]; |
V753= base[8]; |
3840 |
goto T1349;} |
goto T1401;} |
3841 |
V776=MMcdr(V776)=MMcons(Cnil,Cnil); |
V754=MMcdr(V754)=MMcons(Cnil,Cnil); |
3842 |
goto T1350;} |
goto T1402;} |
3843 |
goto T1349; |
goto T1401; |
3844 |
T1349:; |
T1401:; |
3845 |
V781 = base[7]; |
base[8]= list(3,VV[123],/* INLINE-ARGS */V752,listA(3,VV[0],V753,base[7])); |
|
base[8]= list(3,VV[107],/* INLINE-ARGS */V774,listA(3,VV[0],V775,V781)); |
|
3846 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3847 |
return; |
return; |
3848 |
} |
} |
3854 |
vs_check; |
vs_check; |
3855 |
check_arg(2); |
check_arg(2); |
3856 |
vs_top=sup; |
vs_top=sup; |
3857 |
{object V782=base[0]->c.c_cdr; |
{object V759=base[0]->c.c_cdr; |
3858 |
if(endp(V782))invalid_macro_call(); |
if(endp(V759))invalid_macro_call(); |
3859 |
{object V783= (V782->c.c_car); |
{object V760= (V759->c.c_car); |
3860 |
if(endp(V783))invalid_macro_call(); |
if(endp(V760))invalid_macro_call(); |
3861 |
base[2]= (V783->c.c_car); |
base[2]= (V760->c.c_car); |
3862 |
V783=V783->c.c_cdr; |
V760=V760->c.c_cdr; |
3863 |
if(endp(V783))invalid_macro_call(); |
if(endp(V760))invalid_macro_call(); |
3864 |
base[3]= (V783->c.c_car); |
base[3]= (V760->c.c_car); |
3865 |
V783=V783->c.c_cdr; |
V760=V760->c.c_cdr; |
3866 |
if(endp(V783))invalid_macro_call(); |
if(endp(V760))invalid_macro_call(); |
3867 |
base[4]= (V783->c.c_car); |
base[4]= (V760->c.c_car); |
3868 |
V783=V783->c.c_cdr; |
V760=V760->c.c_cdr; |
3869 |
if(endp(V783))invalid_macro_call(); |
if(endp(V760))invalid_macro_call(); |
3870 |
base[5]= (V783->c.c_car); |
base[5]= (V760->c.c_car); |
3871 |
V783=V783->c.c_cdr; |
V760=V760->c.c_cdr; |
3872 |
if(!endp(V783))invalid_macro_call();} |
if(!endp(V760))invalid_macro_call();} |
3873 |
V782=V782->c.c_cdr; |
V759=V759->c.c_cdr; |
3874 |
base[6]= V782;} |
base[6]= V759;} |
3875 |
V784= list(2,VV[110],base[4]); |
V761= list(2,VV[126],base[4]); |
3876 |
V785= list(2,VV[111],listA(3,VV[112],VV[110],base[5])); |
V762= list(2,VV[127],listA(3,VV[128],VV[126],base[5])); |
3877 |
V786= list(2,base[2],VV[113]); |
V763= list(2,base[2],VV[129]); |
3878 |
V787= list(4,/* INLINE-ARGS */V784,/* INLINE-ARGS */V785,/* INLINE-ARGS */V786,list(2,base[3],VV[114])); |
V764= list(4,/* INLINE-ARGS */V761,/* INLINE-ARGS */V762,/* INLINE-ARGS */V763,list(2,base[3],VV[130])); |
3879 |
V788= list(2,VV[115],(*(LnkLI223))(base[2])); |
V765= list(2,VV[131],(*(LnkLI238))(base[2])); |
3880 |
V789= list(2,VV[115],(*(LnkLI224))(base[3])); |
V766= list(2,VV[131],(*(LnkLI239))(base[3])); |
3881 |
if(!(type_of(base[4])==t_symbol)){ |
if(!(type_of(base[4])==t_symbol)){ |
3882 |
goto T1355;} |
goto T1407;} |
3883 |
V791= list(2,VV[115],list(2,VV[116],base[4])); |
V768= list(2,VV[131],list(2,VV[132],base[4])); |
3884 |
base[7]= make_cons(/* INLINE-ARGS */V791,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V768,Cnil); |
3885 |
goto T1353; |
goto T1405; |
3886 |
goto T1355; |
goto T1407; |
3887 |
T1355:; |
T1407:; |
3888 |
base[7]= Cnil; |
base[7]= Cnil; |
3889 |
goto T1353; |
goto T1405; |
3890 |
T1353:; |
T1405:; |
3891 |
base[8]= list(2,base[2],base[3]); |
base[8]= list(2,base[2],base[3]); |
3892 |
base[9]= base[6]; |
base[9]= base[6]; |
3893 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
3894 |
Lappend(); |
Lappend(); |
3895 |
vs_top=sup; |
vs_top=sup; |
3896 |
V790= vs_base[0]; |
V767= vs_base[0]; |
3897 |
base[7]= listA(5,VV[109],/* INLINE-ARGS */V787,/* INLINE-ARGS */V788,/* INLINE-ARGS */V789,V790); |
base[7]= listA(5,VV[125],/* INLINE-ARGS */V764,/* INLINE-ARGS */V765,/* INLINE-ARGS */V766,V767); |
3898 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3899 |
return; |
return; |
3900 |
} |
} |
3904 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3905 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
3906 |
vs_check; |
vs_check; |
3907 |
{object V792; |
{object V769; |
3908 |
object V793; |
object V770; |
3909 |
check_arg(2); |
check_arg(2); |
3910 |
V792=(base[0]); |
V769=(base[0]); |
3911 |
V793=(base[1]); |
V770=(base[1]); |
3912 |
vs_top=sup; |
vs_top=sup; |
3913 |
goto TTL; |
goto TTL; |
3914 |
TTL:; |
TTL:; |
3915 |
{object V794; |
{object V771; |
3916 |
object V795; |
object V772; |
3917 |
object V796; |
object V773; |
3918 |
V794= Cnil; |
V771= Cnil; |
3919 |
V795= Cnil; |
V772= Cnil; |
3920 |
V796= Cnil; |
V773= Cnil; |
3921 |
goto T1361; |
goto T1413; |
3922 |
T1361:; |
T1413:; |
3923 |
if(((V792))!=Cnil){ |
if(((V769))!=Cnil){ |
3924 |
goto T1363;} |
goto T1415;} |
3925 |
goto T1359; |
goto T1411; |
3926 |
goto T1363; |
goto T1415; |
3927 |
T1363:; |
T1415:; |
3928 |
V796= CMPcar((V792)); |
V773= CMPcar((V769)); |
3929 |
if(!(type_of((V796))==t_cons)){ |
if(!(type_of((V773))==t_cons)){ |
3930 |
goto T1369;} |
goto T1421;} |
3931 |
if((CMPcar((V796)))==(VV[115])){ |
if((CMPcar((V773)))==(VV[131])){ |
3932 |
goto T1368;} |
goto T1420;} |
3933 |
goto T1369; |
goto T1421; |
3934 |
T1369:; |
T1421:; |
3935 |
goto T1359; |
goto T1411; |
|
goto T1368; |
|
|
T1368:; |
|
|
{object V797; |
|
|
register object V798; |
|
|
V797= CMPcdr((V796)); |
|
|
V798= CMPcar((V797)); |
|
|
goto T1377; |
|
|
T1377:; |
|
|
if(!(((V797))==Cnil)){ |
|
|
goto T1378;} |
|
|
goto T1373; |
|
|
goto T1378; |
|
|
T1378:; |
|
|
if(!(type_of((V798))==t_cons)){ |
|
|
goto T1382;} |
|
|
{register object V799; |
|
|
V799= CMPcar((V798)); |
|
|
{register object x= (V799),V800= (VV[117]->s.s_dbind); |
|
|
while(V800!=Cnil) |
|
|
if(eql(x,V800->c.c_car)){ |
|
|
goto T1388; |
|
|
}else V800=V800->c.c_cdr; |
|
|
goto T1387;} |
|
|
goto T1388; |
|
|
T1388:; |
|
|
{object V801; |
|
|
V801= list(2,VV[115],(V798)); |
|
|
V795= make_cons((V801),(V795)); |
|
|
goto T1382;} |
|
|
goto T1387; |
|
|
T1387:; |
|
|
{object V802; |
|
|
object V803; |
|
|
object V804; |
|
|
register object V805; |
|
|
register object V806; |
|
|
{register object x= (V799),V807= (VV[118]->s.s_dbind); |
|
|
while(V807!=Cnil) |
|
|
if(eql(x,V807->c.c_car)){ |
|
|
V802= V807; |
|
|
goto T1391; |
|
|
}else V807=V807->c.c_cdr; |
|
|
V802= Cnil;} |
|
|
goto T1391; |
|
|
T1391:; |
|
|
{register object x= (V799),V808= (VV[119]->s.s_dbind); |
|
|
while(V808!=Cnil) |
|
|
if(eql(x,V808->c.c_car)){ |
|
|
V803= V808; |
|
|
goto T1392; |
|
|
}else V808=V808->c.c_cdr; |
|
|
V803= Cnil;} |
|
|
goto T1392; |
|
|
T1392:; |
|
|
{object V810; |
|
|
V810= CMPcar((V798)); |
|
|
V798= CMPcdr((V798)); |
|
|
V809= (V810);} |
|
|
V804= make_cons(V809,Cnil); |
|
|
V805= Cnil; |
|
|
V806= Cnil; |
|
|
if(((V802))!=Cnil){ |
|
|
goto T1398;} |
|
|
if(((V803))!=Cnil){ |
|
|
goto T1398;} |
|
|
base[4]= VV[120]; |
|
|
base[5]= (V799); |
|
|
base[6]= VV[121]; |
|
|
base[7]= (V799); |
|
|
base[8]= VV[117]; |
|
|
base[9]= VV[118]; |
|
|
base[10]= VV[119]; |
|
|
vs_top=(vs_base=base+4)+7; |
|
|
(void) (*Lnk225)(); |
|
|
vs_top=sup; |
|
|
(VV[119]->s.s_dbind)= make_cons(V799,(VV[119]->s.s_dbind)); |
|
|
goto T1398; |
|
|
T1398:; |
|
|
if(((V802))==Cnil){ |
|
|
goto T1412;} |
|
|
{object V813; |
|
|
V813= CMPcar((V798)); |
|
|
V798= CMPcdr((V798)); |
|
|
V812= (V813);} |
|
|
V814= make_cons(V812,Cnil); |
|
|
V804= append((V804),/* INLINE-ARGS */V814); |
|
|
goto T1412; |
|
|
T1412:; |
|
|
{register object V815; |
|
|
register object V816; |
|
|
V815= (V798); |
|
|
V816= CMPcar((V815)); |
|
|
goto T1424; |
|
|
T1424:; |
|
|
if(!(((V815))==Cnil)){ |
|
|
goto T1425;} |
|
3936 |
goto T1420; |
goto T1420; |
3937 |
goto T1425; |
T1420:; |
3938 |
T1425:; |
{object V774; |
3939 |
{register object x= (V816),V817= (V793); |
register object V775; |
3940 |
while(V817!=Cnil) |
V774= CMPcdr((V773)); |
3941 |
if(eql(x,V817->c.c_car)){ |
V775= CMPcar((V774)); |
|
goto T1432; |
|
|
}else V817=V817->c.c_cdr; |
|
|
goto T1431;} |
|
|
goto T1432; |
|
|
T1432:; |
|
|
V806= make_cons(V816,(V806)); |
|
|
goto T1429; |
|
|
goto T1431; |
|
|
T1431:; |
|
|
V805= make_cons(V816,(V805)); |
|
3942 |
goto T1429; |
goto T1429; |
3943 |
T1429:; |
T1429:; |
3944 |
V815= CMPcdr((V815)); |
if(!(((V774))==Cnil)){ |
3945 |
V816= CMPcar((V815)); |
goto T1430;} |
3946 |
goto T1424;} |
goto T1425; |
3947 |
goto T1420; |
goto T1430; |
3948 |
T1420:; |
T1430:; |
3949 |
if(((V806))==Cnil){ |
if(!(type_of((V775))==t_cons)){ |
3950 |
goto T1440;} |
goto T1434;} |
3951 |
{object V820; |
{register object V776; |
3952 |
V820= list(2,VV[115],append((V804),(V806))); |
V776= CMPcar((V775)); |
3953 |
V795= make_cons((V820),(V795));} |
{register object x= (V776),V777= (VV[133]->s.s_dbind); |
3954 |
|
while(V777!=Cnil) |
3955 |
|
if(eql(x,V777->c.c_car)){ |
3956 |
|
goto T1440; |
3957 |
|
}else V777=V777->c.c_cdr; |
3958 |
|
goto T1439;} |
3959 |
goto T1440; |
goto T1440; |
3960 |
T1440:; |
T1440:; |
3961 |
if(((V805))==Cnil){ |
{object V778; |
3962 |
goto T1382;} |
V778= list(2,VV[131],(V775)); |
3963 |
{object V821; |
V772= make_cons((V778),(V772)); |
3964 |
V821= list(2,VV[115],append((V804),(V805))); |
goto T1434;} |
3965 |
V794= make_cons((V821),(V794));}}} |
goto T1439; |
3966 |
goto T1382; |
T1439:; |
3967 |
T1382:; |
{object V779; |
3968 |
V797= CMPcdr((V797)); |
object V780; |
3969 |
V798= CMPcar((V797)); |
object V781; |
3970 |
goto T1377;} |
register object V782; |
3971 |
goto T1373; |
register object V783; |
3972 |
T1373:; |
{register object x= (V776),V784= (VV[134]->s.s_dbind); |
3973 |
|
while(V784!=Cnil) |
3974 |
|
if(eql(x,V784->c.c_car)){ |
3975 |
|
V779= V784; |
3976 |
|
goto T1443; |
3977 |
|
}else V784=V784->c.c_cdr; |
3978 |
|
V779= Cnil;} |
3979 |
|
goto T1443; |
3980 |
|
T1443:; |
3981 |
|
{register object x= (V776),V785= (VV[135]->s.s_dbind); |
3982 |
|
while(V785!=Cnil) |
3983 |
|
if(eql(x,V785->c.c_car)){ |
3984 |
|
V780= V785; |
3985 |
|
goto T1444; |
3986 |
|
}else V785=V785->c.c_cdr; |
3987 |
|
V780= Cnil;} |
3988 |
|
goto T1444; |
3989 |
|
T1444:; |
3990 |
|
{object V787; |
3991 |
|
V787= CMPcar((V775)); |
3992 |
|
V775= CMPcdr((V775)); |
3993 |
|
V786= (V787);} |
3994 |
|
V781= make_cons(V786,Cnil); |
3995 |
|
V782= Cnil; |
3996 |
|
V783= Cnil; |
3997 |
|
if(((V779))!=Cnil){ |
3998 |
|
goto T1450;} |
3999 |
|
if(((V780))!=Cnil){ |
4000 |
|
goto T1450;} |
4001 |
|
base[4]= VV[136]; |
4002 |
|
base[5]= (V776); |
4003 |
|
base[6]= VV[137]; |
4004 |
|
base[7]= (V776); |
4005 |
|
base[8]= VV[133]; |
4006 |
|
base[9]= VV[134]; |
4007 |
|
base[10]= VV[135]; |
4008 |
|
vs_top=(vs_base=base+4)+7; |
4009 |
|
(void) (*Lnk240)(); |
4010 |
|
vs_top=sup; |
4011 |
|
(VV[135]->s.s_dbind)= make_cons(V776,(VV[135]->s.s_dbind)); |
4012 |
|
goto T1450; |
4013 |
|
T1450:; |
4014 |
|
if(((V779))==Cnil){ |
4015 |
|
goto T1464;} |
4016 |
|
{object V790; |
4017 |
|
V790= CMPcar((V775)); |
4018 |
|
V775= CMPcdr((V775)); |
4019 |
|
V789= (V790);} |
4020 |
|
V791= make_cons(V789,Cnil); |
4021 |
|
V781= append((V781),/* INLINE-ARGS */V791); |
4022 |
|
goto T1464; |
4023 |
|
T1464:; |
4024 |
|
{register object V792; |
4025 |
|
register object V793; |
4026 |
|
V792= (V775); |
4027 |
|
V793= CMPcar((V792)); |
4028 |
|
goto T1476; |
4029 |
|
T1476:; |
4030 |
|
if(!(((V792))==Cnil)){ |
4031 |
|
goto T1477;} |
4032 |
|
goto T1472; |
4033 |
|
goto T1477; |
4034 |
|
T1477:; |
4035 |
|
{register object x= (V793),V794= (V770); |
4036 |
|
while(V794!=Cnil) |
4037 |
|
if(eql(x,V794->c.c_car)){ |
4038 |
|
goto T1484; |
4039 |
|
}else V794=V794->c.c_cdr; |
4040 |
|
goto T1483;} |
4041 |
|
goto T1484; |
4042 |
|
T1484:; |
4043 |
|
V783= make_cons(V793,(V783)); |
4044 |
|
goto T1481; |
4045 |
|
goto T1483; |
4046 |
|
T1483:; |
4047 |
|
V782= make_cons(V793,(V782)); |
4048 |
|
goto T1481; |
4049 |
|
T1481:; |
4050 |
V792= CMPcdr((V792)); |
V792= CMPcdr((V792)); |
4051 |
goto T1361; |
V793= CMPcar((V792)); |
4052 |
goto T1359; |
goto T1476;} |
4053 |
T1359:; |
goto T1472; |
4054 |
base[2]= (V795); |
T1472:; |
4055 |
base[3]= (V794); |
if(((V783))==Cnil){ |
4056 |
base[4]= (V792); |
goto T1492;} |
4057 |
|
{object V797; |
4058 |
|
V797= list(2,VV[131],append((V781),(V783))); |
4059 |
|
V772= make_cons((V797),(V772));} |
4060 |
|
goto T1492; |
4061 |
|
T1492:; |
4062 |
|
if(((V782))==Cnil){ |
4063 |
|
goto T1434;} |
4064 |
|
{object V798; |
4065 |
|
V798= list(2,VV[131],append((V781),(V782))); |
4066 |
|
V771= make_cons((V798),(V771));}}} |
4067 |
|
goto T1434; |
4068 |
|
T1434:; |
4069 |
|
V774= CMPcdr((V774)); |
4070 |
|
V775= CMPcar((V774)); |
4071 |
|
goto T1429;} |
4072 |
|
goto T1425; |
4073 |
|
T1425:; |
4074 |
|
V769= CMPcdr((V769)); |
4075 |
|
goto T1413; |
4076 |
|
goto T1411; |
4077 |
|
T1411:; |
4078 |
|
base[2]= (V772); |
4079 |
|
base[3]= (V771); |
4080 |
|
base[4]= (V769); |
4081 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4082 |
return;} |
return;} |
4083 |
} |
} |
4084 |
} |
} |
4085 |
/* local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL */ |
/* local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL */ |
4086 |
|
|
4087 |
static object LI63(V825,V826,V827) |
static object LI63(V802,V803,V804) |
4088 |
|
|
4089 |
object V825;object V826;object V827; |
object V802;object V803;object V804; |
4090 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
4091 |
goto TTL; |
goto TTL; |
4092 |
TTL:; |
TTL:; |
4093 |
{object V828; |
{object V805; |
4094 |
object V829; |
object V806; |
4095 |
object V830; |
object V807; |
4096 |
V828= Cnil; |
V805= Cnil; |
4097 |
V829= Cnil; |
V806= Cnil; |
4098 |
V830= Cnil; |
V807= Cnil; |
4099 |
if(!((3)==((long)length((V825))))){ |
if(!((3)==((long)length((V802))))){ |
4100 |
goto T1459;} |
goto T1511;} |
4101 |
V828= CMPcadr((V825)); |
V805= CMPcadr((V802)); |
4102 |
V831 = (V828); |
if(!((2)==((long)length((V805))))){ |
4103 |
if(!((2)==((long)length(V831)))){ |
goto T1511;} |
4104 |
goto T1459;} |
V806= CMPcaddr((V802)); |
4105 |
V829= CMPcaddr((V825)); |
if(!(type_of((V806))==t_cons)){ |
4106 |
V832 = (V829); |
goto T1511;} |
4107 |
if(!(type_of(V832)==t_cons)){ |
if(!((VV[138])==(CMPcar((V806))))){ |
4108 |
goto T1459;} |
goto T1511;} |
4109 |
if(!((VV[122])==(CMPcar((V829))))){ |
V808= CMPcar((V805)); |
4110 |
goto T1459;} |
V807= CMPcadr((V806)); |
4111 |
V833= CMPcar((V828)); |
if(!((/* INLINE-ARGS */V808)==(CMPcadr((V807))))){ |
4112 |
V830= CMPcadr((V829)); |
goto T1511;} |
4113 |
V834 = (V830); |
if((CMPcadr((V805)))==(CMPcaddr((V807)))){ |
4114 |
if(!((/* INLINE-ARGS */V833)==(CMPcadr(V834)))){ |
goto T1512;} |
4115 |
goto T1459;} |
goto T1511; |
4116 |
if((CMPcadr((V828)))==(CMPcaddr((V830)))){ |
T1511:; |
4117 |
goto T1460;} |
V809= list(2,VV[141],(V802)); |
4118 |
goto T1459; |
{object V810 = list(4,VV[139],VV[140],/* INLINE-ARGS */V809,list(2,VV[67],(V803))); |
4119 |
T1459:; |
VMR61(V810)} |
4120 |
V835= list(2,VV[125],(V825)); |
goto T1512; |
4121 |
{object V836 = list(4,VV[123],VV[124],/* INLINE-ARGS */V835,list(2,VV[57],(V826))); |
T1512:; |
4122 |
VMR61(V836)} |
{object V811; |
4123 |
goto T1460; |
register object V812; |
4124 |
T1460:; |
register object V813; |
4125 |
{object V837; |
register object V814; |
4126 |
register object V838; |
V811= CMPcar((V807)); |
4127 |
register object V839; |
V812= small_fixnum(0); |
4128 |
register object V840; |
V813= Cnil; |
4129 |
V837= CMPcar((V830)); |
V814= Cnil; |
4130 |
V838= small_fixnum(0); |
{register object V815; |
4131 |
V839= Cnil; |
register object V816; |
4132 |
V840= Cnil; |
V815= (V811); |
4133 |
{register object V841; |
V816= CMPcar((V815)); |
4134 |
register object V842; |
goto T1535; |
4135 |
V841= (V837); |
T1535:; |
4136 |
V842= CMPcar((V841)); |
if(!(((V815))==Cnil)){ |
4137 |
goto T1483; |
goto T1536;} |
4138 |
T1483:; |
goto T1531; |
4139 |
if(!(((V841))==Cnil)){ |
goto T1536; |
4140 |
goto T1484;} |
T1536:; |
4141 |
goto T1479; |
{register object x= (V816),V817= VV[142]; |
4142 |
goto T1484; |
while(V817!=Cnil) |
4143 |
T1484:; |
if(eql(x,V817->c.c_car)){ |
4144 |
{register object x= (V842),V843= VV[126]; |
goto T1542; |
4145 |
while(V843!=Cnil) |
}else V817=V817->c.c_cdr; |
4146 |
if(eql(x,V843->c.c_car)){ |
goto T1540;} |
4147 |
goto T1490; |
goto T1542; |
4148 |
}else V843=V843->c.c_cdr; |
T1542:; |
4149 |
goto T1488;} |
V813= Ct; |
4150 |
goto T1490; |
goto T1531; |
4151 |
T1490:; |
goto T1540; |
4152 |
V839= Ct; |
T1540:; |
4153 |
goto T1479; |
if(!(((V816))==(VV[143]))){ |
4154 |
goto T1488; |
goto T1545;} |
4155 |
T1488:; |
goto T1531; |
4156 |
if(!(((V842))==(VV[127]))){ |
goto T1545; |
4157 |
goto T1493;} |
T1545:; |
4158 |
goto T1479; |
V812= number_plus((V812),small_fixnum(1)); |
4159 |
goto T1493; |
{register object V818; |
4160 |
T1493:; |
V818= (V816); |
4161 |
V838= number_plus((V838),small_fixnum(1)); |
V814= make_cons((V818),(V814));} |
4162 |
{register object V844; |
V815= CMPcdr((V815)); |
4163 |
V844= (V842); |
V816= CMPcar((V815)); |
4164 |
V840= make_cons((V844),(V840));} |
goto T1535;} |
4165 |
V841= CMPcdr((V841)); |
goto T1531; |
4166 |
V842= CMPcar((V841)); |
T1531:; |
4167 |
goto T1483;} |
V814= nreverse((V814)); |
4168 |
goto T1479; |
{object V821; |
4169 |
T1479:; |
V821= make_cons((V812),(V813)); |
4170 |
V840= nreverse((V840)); |
{object V822; |
4171 |
{object V847; |
base[3]= (V803); |
4172 |
V847= make_cons((V838),(V839)); |
base[4]= VV[144]; |
|
{object V848; |
|
|
base[3]= (V826); |
|
|
base[4]= VV[128]; |
|
4173 |
base[5]= Cnil; |
base[5]= Cnil; |
4174 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4175 |
Lgetf(); |
Lgetf(); |
4176 |
vs_top=sup; |
vs_top=sup; |
4177 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4178 |
base[3]= (V847); |
base[3]= (V821); |
4179 |
base[4]= VV[129]; |
base[4]= VV[145]; |
4180 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4181 |
siLput_f(); |
siLput_f(); |
4182 |
vs_top=sup; |
vs_top=sup; |
4183 |
V848= vs_base[0]; |
V822= vs_base[0]; |
4184 |
{object V849; |
{object V823; |
4185 |
base[2]= (V826); |
base[2]= (V803); |
4186 |
base[3]= (V848); |
base[3]= (V822); |
4187 |
base[4]= VV[128]; |
base[4]= VV[144]; |
4188 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4189 |
siLput_f(); |
siLput_f(); |
4190 |
vs_top=sup; |
vs_top=sup; |
4191 |
V849= vs_base[0]; |
V823= vs_base[0]; |
4192 |
V826= (V849);}}} |
V803= (V823);}}} |
4193 |
{object V850 = (*(LnkLI226))((V826),CMPcddr((V829)),(V840),(V830),(V839)); |
{object V824 = (*(LnkLI241))((V803),CMPcddr((V806)),(V814),(V807),(V813)); |
4194 |
VMR61(V850)}}} |
VMR61(V824)}}} |
4195 |
base[0]=base[0]; |
base[0]=base[0]; |
4196 |
return Cnil; |
return Cnil; |
4197 |
} |
} |
4198 |
/* local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL1 */ |
/* local entry for function MAKE-METHOD-INITARGS-FORM-INTERNAL1 */ |
4199 |
|
|
4200 |
static object LI64(V856,V857,V858,V859,V860) |
static object LI64(V830,V831,V832,V833,V834) |
4201 |
|
|
4202 |
object V856;object V857;register object V858;object V859;object V860; |
object V830;object V831;register object V832;object V833;object V834; |
4203 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
4204 |
goto TTL; |
goto TTL; |
4205 |
TTL:; |
TTL:; |
4206 |
{object V861; |
{object V835; |
4207 |
object V862; |
object V836; |
4208 |
object V863; |
object V837; |
4209 |
base[0]= (V857); |
base[0]= (V831); |
4210 |
base[1]= (V858); |
base[1]= (V832); |
4211 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4212 |
(void) (*Lnk121)(); |
(void) (*Lnk137)(); |
4213 |
if(vs_base>=vs_top){vs_top=sup;goto T1527;} |
if(vs_base>=vs_top){vs_top=sup;goto T1579;} |
4214 |
V861= vs_base[0]; |
V835= vs_base[0]; |
4215 |
vs_base++; |
vs_base++; |
4216 |
if(vs_base>=vs_top){vs_top=sup;goto T1528;} |
if(vs_base>=vs_top){vs_top=sup;goto T1580;} |
4217 |
V862= vs_base[0]; |
V836= vs_base[0]; |
4218 |
vs_base++; |
vs_base++; |
4219 |
if(vs_base>=vs_top){vs_top=sup;goto T1529;} |
if(vs_base>=vs_top){vs_top=sup;goto T1581;} |
4220 |
V863= vs_base[0]; |
V837= vs_base[0]; |
4221 |
vs_top=sup; |
vs_top=sup; |
4222 |
goto T1530; |
goto T1582; |
4223 |
goto T1527; |
goto T1579; |
4224 |
T1527:; |
T1579:; |
4225 |
V861= Cnil; |
V835= Cnil; |
4226 |
goto T1528; |
goto T1580; |
4227 |
T1528:; |
T1580:; |
4228 |
V862= Cnil; |
V836= Cnil; |
4229 |
goto T1529; |
goto T1581; |
4230 |
T1529:; |
T1581:; |
4231 |
V863= Cnil; |
V837= Cnil; |
4232 |
goto T1530; |
goto T1582; |
4233 |
T1530:; |
T1582:; |
4234 |
{object V864; |
{object V838; |
4235 |
object V865; |
object V839; |
4236 |
if(((V860))==Cnil){ |
if(((V834))==Cnil){ |
4237 |
goto T1533;} |
goto T1585;} |
4238 |
V864= VV[130]; |
V838= VV[146]; |
4239 |
goto T1531; |
goto T1583; |
4240 |
goto T1533; |
goto T1585; |
4241 |
T1533:; |
T1585:; |
4242 |
V864= Cnil; |
V838= Cnil; |
4243 |
goto T1531; |
goto T1583; |
4244 |
T1531:; |
T1583:; |
4245 |
if(((V860))==Cnil){ |
if(((V834))==Cnil){ |
4246 |
goto T1537;} |
goto T1589;} |
4247 |
V866= make_cons((V864),Cnil); |
V840= make_cons((V838),Cnil); |
4248 |
V865= append((V858),/* INLINE-ARGS */V866); |
V839= append((V832),/* INLINE-ARGS */V840); |
4249 |
goto T1535; |
goto T1587; |
4250 |
goto T1537; |
goto T1589; |
4251 |
T1537:; |
T1589:; |
4252 |
V865= (V858); |
V839= (V832); |
4253 |
goto T1535; |
goto T1587; |
4254 |
T1535:; |
T1587:; |
4255 |
V867= listA(3,VV[111],VV[133],(V865)); |
V841= listA(3,VV[127],VV[149],(V839)); |
4256 |
V868= listA(5,CMPcar((V859)),VV[133],(V858),(V864),CMPcdddr((V859))); |
V842= listA(5,CMPcar((V833)),VV[149],(V832),(V838),CMPcdddr((V833))); |
4257 |
V869= list(3,VV[111],VV[133],list(3,VV[134],VV[135],listA(3,VV[136],/* INLINE-ARGS */V868,append((V862),(V863))))); |
V843= list(3,VV[127],VV[149],list(3,VV[150],VV[151],listA(3,VV[152],/* INLINE-ARGS */V842,append((V836),(V837))))); |
4258 |
V870= list(2,VV[125],listA(3,VV[132],/* INLINE-ARGS */V867,append((V861),/* INLINE-ARGS */V869))); |
V844= list(2,VV[141],listA(3,VV[148],/* INLINE-ARGS */V841,append((V835),/* INLINE-ARGS */V843))); |
4259 |
{object V871 = list(4,VV[123],VV[131],/* INLINE-ARGS */V870,list(2,VV[57],(V856))); |
{object V845 = list(4,VV[139],VV[147],/* INLINE-ARGS */V844,list(2,VV[67],(V830))); |
4260 |
VMR62(V871)}}} |
VMR62(V845)}}} |
4261 |
base[0]=base[0]; |
base[0]=base[0]; |
4262 |
return Cnil; |
return Cnil; |
4263 |
} |
} |
4264 |
/* local entry for function METHOD-FUNCTION-FROM-FAST-FUNCTION */ |
/* local entry for function METHOD-FUNCTION-FROM-FAST-FUNCTION */ |
4265 |
|
|
4266 |
static object LI66(V873) |
static object LI66(V847) |
4267 |
|
|
4268 |
object V873; |
object V847; |
4269 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
4270 |
goto TTL; |
goto TTL; |
4271 |
TTL:; |
TTL:; |
4272 |
base[0]=MMcons((V873),Cnil); |
base[0]=MMcons((V847),Cnil); |
4273 |
{object V874; |
{object V848; |
4274 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
4275 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
4276 |
V874= (VFUN_NARGS=2,(*(LnkLI227))((base[0]->c.c_car),VV[129])); |
V848= (VFUN_NARGS=2,(*(LnkLI242))((base[0]->c.c_car),VV[145])); |
4277 |
base[4]= CMPcar((V874)); |
base[4]= CMPcar((V848)); |
4278 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
4279 |
base[5]= CMPcdr((V874)); |
base[5]= CMPcdr((V848)); |
4280 |
base[5]=MMcons(base[5],base[4]); |
base[5]=MMcons(base[5],base[4]); |
4281 |
(base[1]->c.c_car)= |
(base[1]->c.c_car)= |
4282 |
make_cclosure_new(LC74,Cnil,base[5],Cdata); |
make_cclosure_new(LC74,Cnil,base[5],Cdata); |
4283 |
{register object V875; |
{register object V849; |
4284 |
object V876; |
object V850; |
4285 |
V875= (VFUN_NARGS=2,(*(LnkLI227))((base[0]->c.c_car),VV[139]));{object V878; |
V849= (VFUN_NARGS=2,(*(LnkLI242))((base[0]->c.c_car),VV[43]));{object V852; |
4286 |
{object V879 =(CMPcar((V875)))->s.s_plist; |
{object V853 =(CMPcar((V849)))->s.s_plist; |
4287 |
object ind= VV[140]; |
object ind= VV[155]; |
4288 |
while(V879!=Cnil){ |
while(V853!=Cnil){ |
4289 |
if(V879->c.c_car==ind){ |
if(V853->c.c_car==ind){ |
4290 |
V878= (V879->c.c_cdr->c.c_car); |
V852= (V853->c.c_cdr->c.c_car); |
4291 |
goto T1549; |
goto T1601; |
4292 |
}else V879=V879->c.c_cdr->c.c_cdr;} |
}else V853=V853->c.c_cdr->c.c_cdr;} |
4293 |
V878= Cnil;} |
V852= Cnil;} |
4294 |
goto T1549; |
goto T1601; |
4295 |
T1549:; |
T1601:; |
4296 |
if(V878==Cnil)goto T1548; |
if(V852==Cnil)goto T1600; |
4297 |
V877= V878; |
V851= V852; |
4298 |
goto T1547; |
goto T1599; |
4299 |
goto T1548; |
goto T1600; |
4300 |
T1548:;} |
T1600:;} |
4301 |
V880= CMPcar((V875)); |
V854= CMPcar((V849)); |
4302 |
{object V882; |
{object V856; |
4303 |
V882= symbol_name(CMPcar((V875))); |
V856= symbol_name(CMPcar((V849))); |
4304 |
base[8]= VV[141]; |
base[8]= VV[156]; |
4305 |
base[9]= (V882); |
base[9]= (V856); |
4306 |
base[10]= VV[142]; |
base[10]= VV[157]; |
4307 |
base[11]= small_fixnum(5); |
base[11]= small_fixnum(5); |
4308 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
4309 |
Lstring_eq(); |
Lstring_eq(); |
4310 |
vs_top=sup; |
vs_top=sup; |
4311 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4312 |
goto T1553;} |
goto T1605;} |
4313 |
base[9]= (V882); |
base[9]= (V856); |
4314 |
base[10]= small_fixnum(5); |
base[10]= small_fixnum(5); |
4315 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4316 |
Lsubseq(); |
Lsubseq(); |
4317 |
vs_top=sup; |
vs_top=sup; |
4318 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
4319 |
base[9]= (VV[143]->s.s_dbind); |
base[9]= (VV[158]->s.s_dbind); |
4320 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4321 |
Lintern(); |
Lintern(); |
4322 |
vs_top=sup; |
vs_top=sup; |
4323 |
V881= vs_base[0]; |
V855= vs_base[0]; |
4324 |
goto T1550; |
goto T1602; |
4325 |
goto T1553; |
goto T1605; |
4326 |
T1553:; |
T1605:; |
4327 |
V881= CMPcar((V875));} |
V855= CMPcar((V849));} |
4328 |
goto T1550; |
goto T1602; |
4329 |
T1550:; |
T1602:; |
4330 |
V877= sputprop(/* INLINE-ARGS */V880,VV[140],V881); |
V851= sputprop(/* INLINE-ARGS */V854,VV[155],V855); |
4331 |
goto T1547; |
goto T1599; |
4332 |
T1547:; |
T1599:; |
4333 |
V876= make_cons(V877,CMPcdr((V875))); |
V850= make_cons(V851,CMPcdr((V849))); |
4334 |
base[8]= (base[1]->c.c_car); |
base[8]= (base[1]->c.c_car); |
4335 |
base[9]= (V876); |
base[9]= (V850); |
4336 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4337 |
(void) (*Lnk228)(); |
(void) (*Lnk243)(); |
4338 |
vs_top=sup;} |
vs_top=sup;} |
4339 |
{object V883; |
{object V857; |
4340 |
object V885; |
object V859; |
4341 |
V883= (base[1]->c.c_car); |
V857= (base[1]->c.c_car); |
4342 |
V885= (base[0]->c.c_car); |
V859= (base[0]->c.c_car); |
4343 |
V886= ({object _tmp=get(VV[227],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[227])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[227])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V860= ({object _tmp=get(VV[242],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[242])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[242])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V887 = (V885); |
|
|
V888 = (V883); |
|
|
V889 = VV[131]; |
|
4344 |
(void)(( |
(void)(( |
4345 |
V890 = V886, |
V861 = V860, |
4346 |
(type_of(V890) == t_sfun ?(*((V890)->sfn.sfn_self)): |
(type_of(V861) == t_sfun ?(*((V861)->sfn.sfn_self)): |
4347 |
(fcall.argd=3,type_of(V890)==t_vfun) ? |
(fcall.argd=3,type_of(V861)==t_vfun) ? |
4348 |
(*((V890)->sfn.sfn_self)): |
(*((V861)->sfn.sfn_self)): |
4349 |
(fcall.fun=(V890),fcalln))(V887,V888,V889)));} |
(fcall.fun=(V861),fcalln))((V859),(V857),VV[147])));} |
4350 |
{object V891 = (base[1]->c.c_car); |
{object V862 = (base[1]->c.c_car); |
4351 |
VMR63(V891)}} |
VMR63(V862)}} |
4352 |
base[0]=base[0]; |
base[0]=base[0]; |
4353 |
return Cnil; |
return Cnil; |
4354 |
} |
} |
4355 |
/* local entry for function GET-METHOD-FUNCTION-PV-CELL */ |
/* local entry for function GET-METHOD-FUNCTION-PV-CELL */ |
4356 |
|
|
4357 |
static object LI67(object V893,object V892,object first,...) |
static object LI67(object V864,object V863,object first,...) |
4358 |
{ |
{ |
4359 |
va_list ap; |
va_list ap; |
4360 |
int narg = VFUN_NARGS; VMB64 VMS64 VMV64 |
int narg = VFUN_NARGS; VMB64 VMS64 VMV64 |
4361 |
{object V894; |
{object V865; |
4362 |
object V895; |
object V866; |
4363 |
object V896; |
object V867; |
4364 |
va_start(ap,first); |
va_start(ap,first); |
4365 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
4366 |
V894= V893; |
V865= V864; |
4367 |
V895= V892; |
V866= V863; |
4368 |
narg = narg - 2; |
narg = narg - 2; |
4369 |
if (narg <= 0) goto T1569; |
if (narg <= 0) goto T1621; |
4370 |
else { |
else { |
4371 |
V896= first;} |
V867= first;} |
4372 |
--narg; goto T1570; |
--narg; goto T1622; |
4373 |
goto T1569; |
goto T1621; |
4374 |
T1569:; |
T1621:; |
4375 |
V896= Cnil; |
V867= Cnil; |
4376 |
goto T1570; |
goto T1622; |
4377 |
T1570:; |
T1622:; |
4378 |
{object V897; |
{object V868; |
4379 |
if((V896)!=Cnil){ |
if((V867)!=Cnil){ |
4380 |
V897= (V896); |
V868= (V867); |
4381 |
goto T1572;} |
goto T1624;} |
4382 |
V897= (*(LnkLI229))((V894)); |
V868= (*(LnkLI244))((V865)); |
4383 |
goto T1572; |
goto T1624; |
4384 |
T1572:; |
T1624:; |
4385 |
if(((V897))==Cnil){ |
if(((V868))==Cnil){ |
4386 |
goto T1574;} |
goto T1626;} |
4387 |
{object V898; |
{object V869; |
4388 |
V898= (*(LnkLI230))((V897),(V895)); |
V869= (*(LnkLI245))((V868),(V866)); |
4389 |
if(((V898))==Cnil){ |
if(((V869))==Cnil){ |
4390 |
goto T1578;} |
goto T1630;} |
4391 |
{object V899 = (*(LnkLI231))((V897),(V898)); |
{object V870 = (*(LnkLI246))((V868),(V869)); |
4392 |
VMR64(V899)} |
VMR64(V870)} |
4393 |
goto T1578; |
goto T1630; |
4394 |
T1578:; |
T1630:; |
4395 |
{object V900 = Cnil; |
{object V871 = Cnil; |
4396 |
VMR64(V900)}} |
VMR64(V871)}} |
4397 |
goto T1574; |
goto T1626; |
4398 |
T1574:; |
T1626:; |
4399 |
{object V901 = Cnil; |
{object V872 = Cnil; |
4400 |
VMR64(V901)}} |
VMR64(V872)}} |
4401 |
va_end(ap); |
va_end(ap); |
4402 |
return Cnil;} |
return Cnil;} |
4403 |
} |
} |
4404 |
/* local entry for function PV-TABLE-LOOKUP-PV-ARGS */ |
/* local entry for function PV-TABLE-LOOKUP-PV-ARGS */ |
4405 |
|
|
4406 |
static object LI68(object V902,object first,...) |
static object LI68(object V873,object first,...) |
4407 |
{ |
{ |
4408 |
va_list ap; |
va_list ap; |
4409 |
int narg = VFUN_NARGS; VMB65 VMS65 VMV65 |
int narg = VFUN_NARGS; VMB65 VMS65 VMV65 |
4410 |
{object V903; |
{object V874; |
4411 |
object V904; |
object V875; |
4412 |
va_start(ap,first); |
va_start(ap,first); |
4413 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
4414 |
V903= V902; |
V874= V873; |
4415 |
narg= narg - 1; |
narg= narg - 1; |
4416 |
V905 = list_vector_new(narg,first,ap); |
V876 = list_vector_new(narg,first,ap); |
4417 |
V904= V905; |
V875= V876; |
4418 |
V906 = (V903); |
V877= (VFUN_NARGS=1,(*(LnkLI247))((V875))); |
4419 |
V907= (VFUN_NARGS=1,(*(LnkLI232))((V904))); |
{object V878 = (*(LnkLI246))((V874),/* INLINE-ARGS */V877); |
4420 |
{object V908 = (*(LnkLI231))(V906,/* INLINE-ARGS */V907); |
VMR65(V878)} |
|
VMR65(V908)} |
|
4421 |
va_end(ap); |
va_end(ap); |
4422 |
return Cnil;} |
return Cnil;} |
4423 |
} |
} |
4427 |
{ |
{ |
4428 |
va_list ap; |
va_list ap; |
4429 |
int narg = VFUN_NARGS; VMB66 VMS66 VMV66 |
int narg = VFUN_NARGS; VMB66 VMS66 VMV66 |
4430 |
{object V909; |
{object V879; |
4431 |
va_start(ap,first); |
va_start(ap,first); |
4432 |
narg= narg - 0; |
narg= narg - 0; |
4433 |
V910 = list_vector_new(narg,first,ap); |
V880 = list_vector_new(narg,first,ap); |
4434 |
V909= V910; |
V879= V880; |
4435 |
{long V911; |
{long V881; |
4436 |
object V912; |
object V882; |
4437 |
register object V913; |
register object V883; |
4438 |
object V914; |
object V884; |
4439 |
V911= (long)length((V909)); |
V881= (long)length((V879)); |
4440 |
base[1]= CMPmake_fixnum(V911); |
base[1]= CMPmake_fixnum(V881); |
4441 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4442 |
Lmake_list(); |
Lmake_list(); |
4443 |
vs_top=sup; |
vs_top=sup; |
4444 |
V912= vs_base[0]; |
V882= vs_base[0]; |
4445 |
V913= Cnil; |
V883= Cnil; |
4446 |
V914= (V912); |
V884= (V882); |
4447 |
{register object V915; |
{register object V885; |
4448 |
register object V916; |
register object V886; |
4449 |
V915= (V909); |
V885= (V879); |
4450 |
V916= CMPcar((V915)); |
V886= CMPcar((V885)); |
4451 |
goto T1589; |
goto T1641; |
4452 |
T1589:; |
T1641:; |
4453 |
if(!(((V915))==Cnil)){ |
if(!(((V885))==Cnil)){ |
4454 |
goto T1590;} |
goto T1642;} |
4455 |
goto T1585; |
goto T1637; |
4456 |
goto T1590; |
goto T1642; |
4457 |
T1590:; |
T1642:; |
4458 |
{register object V917; |
{register object V887; |
4459 |
V917= (V916); |
V887= (V886); |
4460 |
if(type_of((V917))==t_structure){ |
if(type_of((V887))==t_structure){ |
4461 |
goto T1599;} |
goto T1651;} |
4462 |
goto T1597; |
goto T1649; |
4463 |
goto T1599; |
goto T1651; |
4464 |
T1599:; |
T1651:; |
4465 |
if(!((((V917))->str.str_def)==(VV[145]))){ |
if(!((((V887))->str.str_def)==(VV[160]))){ |
4466 |
goto T1597;}} |
goto T1649;}} |
4467 |
V913= STREF(object,(V916),0); |
V883= STREF(object,(V886),0); |
4468 |
goto T1595; |
goto T1647; |
4469 |
goto T1597; |
goto T1649; |
4470 |
T1597:;{object V918; |
T1649:;{object V888; |
4471 |
V918= (VV[147]->s.s_dbind); |
V888= (VV[162]->s.s_dbind); |
4472 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
4473 |
base[3]= (V916); |
base[3]= (V886); |
4474 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4475 |
(void) (*Lnk233)(); |
(void) (*Lnk248)(); |
4476 |
vs_top=sup; |
vs_top=sup; |
4477 |
V919= vs_base[0]; |
V889= vs_base[0]; |
4478 |
if(!((V918)==(CMPcar(V919)))){ |
if(!((V888)==(CMPcar(V889)))){ |
4479 |
goto T1602;}} |
goto T1654;}} |
4480 |
V913= CMPcar(((V916))->cc.cc_turbo[13]); |
V883= CMPcar(((V886))->cc.cc_turbo[13]); |
4481 |
goto T1595; |
goto T1647; |
4482 |
goto T1602; |
goto T1654; |
4483 |
T1602:; |
T1654:; |
4484 |
if(!(type_of((V916))==t_structure)){ |
if(!(type_of((V886))==t_structure)){ |
4485 |
goto T1608;} |
goto T1660;} |
4486 |
V913= (*(LnkLI235))((V916)); |
V883= (*(LnkLI250))((V886)); |
4487 |
goto T1595; |
goto T1647; |
4488 |
goto T1608; |
goto T1660; |
4489 |
T1608:; |
T1660:; |
4490 |
if(!(type_of((V916))==t_symbol)){ |
if(!(type_of((V886))==t_symbol)){ |
4491 |
goto T1611;} |
goto T1663;} |
4492 |
if(((V916))==Cnil){ |
if(((V886))==Cnil){ |
4493 |
goto T1614;} |
goto T1666;} |
4494 |
V913= (VV[148]->s.s_dbind); |
V883= (VV[163]->s.s_dbind); |
4495 |
goto T1595; |
goto T1647; |
4496 |
goto T1614; |
goto T1666; |
4497 |
T1614:; |
T1666:; |
4498 |
V913= (VV[149]->s.s_dbind); |
V883= (VV[164]->s.s_dbind); |
4499 |
goto T1595; |
goto T1647; |
4500 |
goto T1611; |
goto T1663; |
4501 |
T1611:; |
T1663:; |
4502 |
V913= (*(LnkLI236))((V916)); |
V883= (*(LnkLI251))((V886)); |
4503 |
goto T1595; |
goto T1647; |
4504 |
T1595:; |
T1647:; |
4505 |
if((Ct)==(((V913))->v.v_self[8])){ |
if((Ct)==(((V883))->v.v_self[8])){ |
4506 |
goto T1616;} |
goto T1668;} |
4507 |
V913= (*(LnkLI237))((V916)); |
V883= (*(LnkLI252))((V886)); |
4508 |
goto T1616; |
goto T1668; |
4509 |
T1616:; |
T1668:; |
4510 |
{register object V920; |
{register object V890; |
4511 |
register object V921; |
register object V891; |
4512 |
V920= (V914); |
V890= (V884); |
4513 |
V921= (V913); |
V891= (V883); |
4514 |
((V920))->c.c_car = (V921);} |
((V890))->c.c_car = (V891);} |
4515 |
V915= CMPcdr((V915)); |
V885= CMPcdr((V885)); |
4516 |
V916= CMPcar((V915)); |
V886= CMPcar((V885)); |
4517 |
goto T1589;} |
goto T1641;} |
4518 |
goto T1585; |
goto T1637; |
4519 |
T1585:; |
T1637:; |
4520 |
V914= CMPcdr((V914)); |
V884= CMPcdr((V884)); |
4521 |
if(!((V911)==(1))){ |
if(!((V881)==(1))){ |
4522 |
goto T1631;} |
goto T1683;} |
4523 |
V912= CMPcar((V912)); |
V882= CMPcar((V882)); |
4524 |
goto T1631; |
goto T1683; |
4525 |
T1631:; |
T1683:; |
4526 |
{object V922 = (V912); |
{object V892 = (V882); |
4527 |
VMR66(V922)}} |
VMR66(V892)}} |
4528 |
va_end(ap); |
va_end(ap); |
4529 |
base[0]=base[0]; |
base[0]=base[0]; |
4530 |
return Cnil;} |
return Cnil;} |
4531 |
} |
} |
4532 |
/* local entry for function PV-WRAPPERS-FROM-ALL-ARGS */ |
/* local entry for function PV-WRAPPERS-FROM-ALL-ARGS */ |
4533 |
|
|
4534 |
static object LI70(V925,V926) |
static object LI70(V895,V896) |
4535 |
|
|
4536 |
object V925;register object V926; |
object V895;register object V896; |
4537 |
{ VMB67 VMS67 VMV67 |
{ VMB67 VMS67 VMV67 |
4538 |
goto TTL; |
goto TTL; |
4539 |
TTL:; |
TTL:; |
4540 |
{long V927; |
{long V897; |
4541 |
object V928; |
object V898; |
4542 |
V927= 0; |
V897= 0; |
4543 |
V928= STREF(object,(V925),8); |
V898= STREF(object,(V895),8); |
4544 |
{register object V929; |
{register object V899; |
4545 |
object V930; |
object V900; |
4546 |
V929= (V928); |
V899= (V898); |
4547 |
V930= CMPcar((V929)); |
V900= CMPcar((V899)); |
4548 |
goto T1641; |
goto T1693; |
4549 |
T1641:; |
T1693:; |
4550 |
if(!(((V929))==Cnil)){ |
if(!(((V899))==Cnil)){ |
4551 |
goto T1642;} |
goto T1694;} |
4552 |
goto T1637; |
goto T1689; |
4553 |
goto T1642; |
goto T1694; |
4554 |
T1642:; |
T1694:; |
4555 |
if(((V930))==Cnil){ |
if(((V900))==Cnil){ |
4556 |
goto T1646;} |
goto T1698;} |
4557 |
V927= (long)(V927)+(1); |
V897= (long)(V897)+(1); |
4558 |
goto T1646; |
goto T1698; |
4559 |
T1646:; |
T1698:; |
4560 |
V929= CMPcdr((V929)); |
V899= CMPcdr((V899)); |
4561 |
V930= CMPcar((V929)); |
V900= CMPcar((V899)); |
4562 |
goto T1641;} |
goto T1693;} |
4563 |
goto T1637; |
goto T1689; |
4564 |
T1637:; |
T1689:; |
4565 |
{object V931; |
{object V901; |
4566 |
register object V932; |
register object V902; |
4567 |
base[1]= CMPmake_fixnum(V927); |
base[1]= CMPmake_fixnum(V897); |
4568 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4569 |
Lmake_list(); |
Lmake_list(); |
4570 |
vs_top=sup; |
vs_top=sup; |
4571 |
V931= vs_base[0]; |
V901= vs_base[0]; |
4572 |
V932= (V931); |
V902= (V901); |
4573 |
{register object V933; |
{register object V903; |
4574 |
object V934; |
object V904; |
4575 |
V933= (V928); |
V903= (V898); |
4576 |
V934= CMPcar((V933)); |
V904= CMPcar((V903)); |
4577 |
goto T1662; |
goto T1714; |
4578 |
T1662:; |
T1714:; |
4579 |
if(!(((V933))==Cnil)){ |
if(!(((V903))==Cnil)){ |
4580 |
goto T1663;} |
goto T1715;} |
4581 |
goto T1658; |
goto T1710; |
4582 |
goto T1663; |
goto T1715; |
4583 |
T1663:; |
T1715:; |
4584 |
if(((V934))==Cnil){ |
if(((V904))==Cnil){ |
4585 |
goto T1667;} |
goto T1719;} |
4586 |
{object V935; |
{object V905; |
4587 |
register object V936; |
register object V906; |
4588 |
V935= CMPcar((V926)); |
V905= CMPcar((V896)); |
4589 |
V936= (*(LnkLI238))((V935)); |
V906= (*(LnkLI253))((V905)); |
4590 |
if(((V936))!=Cnil){ |
if(((V906))!=Cnil){ |
4591 |
goto T1672;} |
goto T1724;} |
4592 |
base[4]= VV[150]; |
base[4]= VV[165]; |
4593 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4594 |
Lerror(); |
Lerror(); |
4595 |
vs_top=sup; |
vs_top=sup; |
4596 |
goto T1672; |
goto T1724; |
4597 |
T1672:; |
T1724:; |
4598 |
{register object V938; |
{register object V908; |
4599 |
V938= (V936); |
V908= (V906); |
4600 |
(V932)->c.c_car = (V938);} |
(V902)->c.c_car = (V908);} |
4601 |
V932= CMPcdr((V932));} |
V902= CMPcdr((V902));} |
4602 |
goto T1667; |
goto T1719; |
4603 |
T1667:; |
T1719:; |
4604 |
V926= CMPcdr((V926)); |
V896= CMPcdr((V896)); |
4605 |
V933= CMPcdr((V933)); |
V903= CMPcdr((V903)); |
4606 |
V934= CMPcar((V933)); |
V904= CMPcar((V903)); |
4607 |
goto T1662;} |
goto T1714;} |
4608 |
goto T1658; |
goto T1710; |
4609 |
T1658:; |
T1710:; |
4610 |
if(!((V927)==(1))){ |
if(!((V897)==(1))){ |
4611 |
goto T1687;} |
goto T1739;} |
4612 |
V931= CMPcar((V931)); |
V901= CMPcar((V901)); |
4613 |
goto T1687; |
goto T1739; |
4614 |
T1687:; |
T1739:; |
4615 |
{object V939 = (V931); |
{object V909 = (V901); |
4616 |
VMR67(V939)}}} |
VMR67(V909)}}} |
4617 |
base[0]=base[0]; |
base[0]=base[0]; |
4618 |
return Cnil; |
return Cnil; |
4619 |
} |
} |
4620 |
/* local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS */ |
/* local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS */ |
4621 |
|
|
4622 |
static object LI71(V942,V943) |
static object LI71(V912,V913) |
4623 |
|
|
4624 |
object V942;register object V943; |
object V912;register object V913; |
4625 |
{ VMB68 VMS68 VMV68 |
{ VMB68 VMS68 VMV68 |
4626 |
goto TTL; |
goto TTL; |
4627 |
TTL:; |
TTL:; |
4628 |
{long V944; |
{long V914; |
4629 |
object V945; |
object V915; |
4630 |
V944= 0; |
V914= 0; |
4631 |
V945= STREF(object,(V942),8); |
V915= STREF(object,(V912),8); |
4632 |
{register object V946; |
{register object V916; |
4633 |
object V947; |
object V917; |
4634 |
V946= (V945); |
V916= (V915); |
4635 |
V947= CMPcar((V946)); |
V917= CMPcar((V916)); |
4636 |
goto T1697; |
goto T1749; |
4637 |
T1697:; |
T1749:; |
4638 |
if(!(((V946))==Cnil)){ |
if(!(((V916))==Cnil)){ |
4639 |
goto T1698;} |
goto T1750;} |
4640 |
goto T1693; |
goto T1745; |
4641 |
goto T1698; |
goto T1750; |
4642 |
T1698:; |
T1750:; |
4643 |
if(((V947))==Cnil){ |
if(((V917))==Cnil){ |
4644 |
goto T1702;} |
goto T1754;} |
4645 |
V944= (long)(V944)+(1); |
V914= (long)(V914)+(1); |
4646 |
goto T1702; |
goto T1754; |
4647 |
T1702:; |
T1754:; |
4648 |
V946= CMPcdr((V946)); |
V916= CMPcdr((V916)); |
4649 |
V947= CMPcar((V946)); |
V917= CMPcar((V916)); |
4650 |
goto T1697;} |
goto T1749;} |
4651 |
goto T1693; |
goto T1745; |
4652 |
T1693:; |
T1745:; |
4653 |
{object V948; |
{object V918; |
4654 |
register object V949; |
register object V919; |
4655 |
base[1]= CMPmake_fixnum(V944); |
base[1]= CMPmake_fixnum(V914); |
4656 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4657 |
Lmake_list(); |
Lmake_list(); |
4658 |
vs_top=sup; |
vs_top=sup; |
4659 |
V948= vs_base[0]; |
V918= vs_base[0]; |
4660 |
V949= (V948); |
V919= (V918); |
4661 |
{register object V950; |
{register object V920; |
4662 |
object V951; |
object V921; |
4663 |
V950= (V945); |
V920= (V915); |
4664 |
V951= CMPcar((V950)); |
V921= CMPcar((V920)); |
4665 |
goto T1718; |
goto T1770; |
4666 |
T1718:; |
T1770:; |
4667 |
if(!(((V950))==Cnil)){ |
if(!(((V920))==Cnil)){ |
4668 |
goto T1719;} |
goto T1771;} |
4669 |
goto T1714; |
goto T1766; |
4670 |
goto T1719; |
goto T1771; |
4671 |
T1719:; |
T1771:; |
4672 |
if(((V951))==Cnil){ |
if(((V921))==Cnil){ |
4673 |
goto T1723;} |
goto T1775;} |
4674 |
{register object V952; |
{register object V922; |
4675 |
V952= CMPcar((V943)); |
V922= CMPcar((V913)); |
4676 |
if(((V952))!=Cnil){ |
if(((V922))!=Cnil){ |
4677 |
goto T1727;} |
goto T1779;} |
4678 |
base[2]= VV[151]; |
base[2]= VV[166]; |
4679 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4680 |
Lerror(); |
Lerror(); |
4681 |
vs_top=sup; |
vs_top=sup; |
4682 |
goto T1727; |
goto T1779; |
4683 |
T1727:; |
T1779:; |
4684 |
{register object V954; |
{register object V924; |
4685 |
V954= (V952); |
V924= (V922); |
4686 |
(V949)->c.c_car = (V954);} |
(V919)->c.c_car = (V924);} |
4687 |
V949= CMPcdr((V949));} |
V919= CMPcdr((V919));} |
4688 |
goto T1723; |
goto T1775; |
4689 |
T1723:; |
T1775:; |
4690 |
V943= CMPcdr((V943)); |
V913= CMPcdr((V913)); |
4691 |
V950= CMPcdr((V950)); |
V920= CMPcdr((V920)); |
4692 |
V951= CMPcar((V950)); |
V921= CMPcar((V920)); |
4693 |
goto T1718;} |
goto T1770;} |
4694 |
goto T1714; |
goto T1766; |
4695 |
T1714:; |
T1766:; |
4696 |
if(!((V944)==(1))){ |
if(!((V914)==(1))){ |
4697 |
goto T1742;} |
goto T1794;} |
4698 |
V948= CMPcar((V948)); |
V918= CMPcar((V918)); |
4699 |
goto T1742; |
goto T1794; |
4700 |
T1742:; |
T1794:; |
4701 |
{object V955 = (V948); |
{object V925 = (V918); |
4702 |
VMR68(V955)}}} |
VMR68(V925)}}} |
4703 |
base[0]=base[0]; |
base[0]=base[0]; |
4704 |
return Cnil; |
return Cnil; |
4705 |
} |
} |
4710 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4711 |
register object *sup=base+VM69; VC69 |
register object *sup=base+VM69; VC69 |
4712 |
vs_check; |
vs_check; |
4713 |
{register object V956; |
{register object V926; |
4714 |
object V957; |
object V927; |
4715 |
check_arg(2); |
check_arg(2); |
4716 |
V956=(base[0]); |
V926=(base[0]); |
4717 |
V957=(base[1]); |
V927=(base[1]); |
4718 |
vs_top=sup; |
vs_top=sup; |
4719 |
if(((base0[2]->c.c_car))!=Cnil){ |
if(((base0[2]->c.c_car))!=Cnil){ |
4720 |
goto T1746;} |
goto T1798;} |
4721 |
(base0[2]->c.c_car)= (*(LnkLI229))((base0[4]->c.c_car)); |
(base0[2]->c.c_car)= (*(LnkLI244))((base0[4]->c.c_car)); |
4722 |
goto T1746; |
goto T1798; |
4723 |
T1746:; |
T1798:; |
4724 |
{object V958; |
{object V928; |
4725 |
register object V959; |
register object V929; |
4726 |
object V960; |
object V930; |
4727 |
object V961; |
object V931; |
4728 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
4729 |
goto T1752;} |
goto T1804;} |
4730 |
V958= (VFUN_NARGS=3,(*(LnkLI239))((base0[3]->c.c_car),(V956),(base0[2]->c.c_car))); |
V928= (VFUN_NARGS=3,(*(LnkLI254))((base0[3]->c.c_car),(V926),(base0[2]->c.c_car))); |
4731 |
goto T1750; |
goto T1802; |
4732 |
goto T1752; |
goto T1804; |
4733 |
T1752:; |
T1804:; |
4734 |
V958= Cnil; |
V928= Cnil; |
4735 |
goto T1750; |
goto T1802; |
4736 |
T1750:; |
T1802:; |
4737 |
V959= CMPcar((V957)); |
V929= CMPcar((V927)); |
4738 |
V960= CMPcdr((V957)); |
V930= CMPcdr((V927)); |
4739 |
if(((V959))==Cnil){ |
if(((V929))==Cnil){ |
4740 |
goto T1758;} |
goto T1810;} |
4741 |
if(type_of(V959)==t_structure){ |
if(type_of(V929)==t_structure){ |
4742 |
goto T1764;} |
goto T1816;} |
4743 |
goto T1762; |
goto T1814; |
4744 |
goto T1764; |
goto T1816; |
4745 |
T1764:; |
T1816:; |
4746 |
if(!(((V959)->str.str_def)==(VV[144]))){ |
if(!(((V929)->str.str_def)==(VV[159]))){ |
4747 |
goto T1762;} |
goto T1814;} |
4748 |
base[6]= (V959); |
base[6]= (V929); |
4749 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
4750 |
(void) (*Lnk241)(Lclptr241); |
(void) (*Lnk256)(Lclptr256); |
4751 |
vs_top=sup; |
vs_top=sup; |
4752 |
V962= vs_base[0]; |
V932= vs_base[0]; |
4753 |
goto T1760; |
goto T1812; |
4754 |
goto T1762; |
goto T1814; |
4755 |
T1762:; |
T1814:; |
4756 |
V962= (V959); |
V932= (V929); |
4757 |
goto T1760; |
goto T1812; |
4758 |
T1760:; |
T1812:; |
4759 |
V964= make_cons((V960),Cnil); |
V934= make_cons((V930),Cnil); |
4760 |
V961= (VFUN_NARGS=4,(*(LnkLI240))(VV[124],V962,VV[138],/* INLINE-ARGS */V964)); |
V931= (VFUN_NARGS=4,(*(LnkLI255))(VV[140],V932,VV[154],/* INLINE-ARGS */V934)); |
4761 |
goto T1756; |
goto T1808; |
4762 |
goto T1758; |
goto T1810; |
4763 |
T1758:; |
T1810:; |
4764 |
V961= Cnil; |
V931= Cnil; |
4765 |
goto T1756; |
goto T1808; |
4766 |
T1756:; |
T1808:; |
4767 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
4768 |
goto T1768;} |
goto T1820;} |
4769 |
{object V965; |
{object V935; |
4770 |
object V966; |
object V936; |
4771 |
V965= nthcdr(fix((base0[1]->c.c_car)),(V956)); |
V935= nthcdr(fix((base0[1]->c.c_car)),(V926)); |
4772 |
base[8]= (V956); |
base[8]= (V926); |
4773 |
base[9]= (V965); |
base[9]= (V935); |
4774 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4775 |
Lldiff(); |
Lldiff(); |
4776 |
vs_top=sup; |
vs_top=sup; |
4777 |
V966= vs_base[0]; |
V936= vs_base[0]; |
4778 |
base[8]= (base0[4]->c.c_car); |
base[8]= (base0[4]->c.c_car); |
4779 |
base[9]= (V958); |
base[9]= (V928); |
4780 |
base[10]= (V961); |
base[10]= (V931); |
4781 |
{object V967; |
{object V937; |
4782 |
V968= make_cons((V965),Cnil); |
V938= make_cons((V935),Cnil); |
4783 |
V967= nconc((V966),/* INLINE-ARGS */V968); |
V937= nconc((V936),/* INLINE-ARGS */V938); |
4784 |
vs_top=base+11; |
vs_top=base+11; |
4785 |
while(V967!=Cnil) |
while(V937!=Cnil) |
4786 |
{vs_push((V967)->c.c_car);V967=(V967)->c.c_cdr;} |
{vs_push((V937)->c.c_car);V937=(V937)->c.c_cdr;} |
4787 |
vs_base=base+9;} |
vs_base=base+9;} |
4788 |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4789 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4790 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4791 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4792 |
return;} |
return;} |
4793 |
goto T1768; |
goto T1820; |
4794 |
T1768:; |
T1820:; |
4795 |
base[6]= (base0[4]->c.c_car); |
base[6]= (base0[4]->c.c_car); |
4796 |
base[7]= (V958); |
base[7]= (V928); |
4797 |
base[8]= (V961); |
base[8]= (V931); |
4798 |
{object V969; |
{object V939; |
4799 |
V969= (V956); |
V939= (V926); |
4800 |
vs_top=base+9; |
vs_top=base+9; |
4801 |
while(V969!=Cnil) |
while(V939!=Cnil) |
4802 |
{vs_push((V969)->c.c_car);V969=(V969)->c.c_cdr;} |
{vs_push((V939)->c.c_car);V939=(V939)->c.c_cdr;} |
4803 |
vs_base=base+7;} |
vs_base=base+7;} |
4804 |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4805 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4815 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4816 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM70; VC70 |
4817 |
vs_check; |
vs_check; |
4818 |
{object V970; |
{object V940; |
4819 |
object V971; |
object V941; |
4820 |
check_arg(2); |
check_arg(2); |
4821 |
V970=(base[0]); |
V940=(base[0]); |
4822 |
V971=(base[1]); |
V941=(base[1]); |
4823 |
vs_top=sup; |
vs_top=sup; |
4824 |
{object V973; |
{object V943; |
4825 |
V973= (*(LnkLI242))((V970),CMPcar((V971)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
V943= (*(LnkLI257))((V940),CMPcar((V941)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
4826 |
(V971)->c.c_car = (V973); |
(V941)->c.c_car = (V943); |
4827 |
base[3]= (V973); |
base[3]= (V943); |
4828 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4829 |
return;} |
return;} |
4830 |
} |
} |
4836 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4837 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM71; VC71 |
4838 |
vs_check; |
vs_check; |
4839 |
{object V974; |
{object V944; |
4840 |
register object V975; |
register object V945; |
4841 |
check_arg(2); |
check_arg(2); |
4842 |
V974=(base[0]); |
V944=(base[0]); |
4843 |
V975=(base[1]); |
V945=(base[1]); |
4844 |
vs_top=sup; |
vs_top=sup; |
4845 |
base[2]= V974; |
base[2]= V944; |
4846 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
4847 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4848 |
Ladjoin(); |
Ladjoin(); |
4860 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4861 |
register object *sup=base+VM72; VC72 |
register object *sup=base+VM72; VC72 |
4862 |
vs_check; |
vs_check; |
4863 |
{object V977; |
{object V947; |
4864 |
check_arg(1); |
check_arg(1); |
4865 |
V977=(base[0]); |
V947=(base[0]); |
4866 |
vs_top=sup; |
vs_top=sup; |
4867 |
goto TTL; |
goto TTL; |
4868 |
TTL:;{object V978; |
TTL:;{object V948; |
4869 |
base[1]= (V977); |
base[1]= (V947); |
4870 |
base[2]= (VV[16]->s.s_dbind); |
base[2]= (VV[16]->s.s_dbind); |
4871 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4872 |
Lgethash(); |
Lgethash(); |
4873 |
vs_top=sup; |
vs_top=sup; |
4874 |
V978= vs_base[0]; |
V948= vs_base[0]; |
4875 |
if(V978==Cnil)goto T1787; |
if(V948==Cnil)goto T1839; |
4876 |
base[1]= V978; |
base[1]= V948; |
4877 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4878 |
return; |
return; |
4879 |
goto T1787; |
goto T1839; |
4880 |
T1787:;} |
T1839:;} |
4881 |
{object V980; |
{object V950; |
4882 |
object V981; |
object V951; |
4883 |
V980= (VV[16]->s.s_dbind); |
V950= (VV[16]->s.s_dbind); |
4884 |
{object V982; |
{object V952; |
4885 |
object V983; |
object V953; |
4886 |
base[2]= CMPcdr((V977)); |
base[2]= CMPcdr((V947)); |
4887 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4888 |
Lcopy_list(); |
Lcopy_list(); |
4889 |
vs_top=sup; |
vs_top=sup; |
4890 |
V982= vs_base[0]; |
V952= vs_base[0]; |
4891 |
V983= CMPcar((V977)); |
V953= CMPcar((V947)); |
4892 |
base0[0]= Ct; |
base0[0]= Ct; |
4893 |
V981= (VFUN_NARGS=4,(*(LnkLI243))(VV[17],(V982),VV[18],(V983)));} |
V951= (VFUN_NARGS=4,(*(LnkLI258))(VV[17],(V952),VV[18],(V953)));} |
4894 |
base[2]= V977; |
base[2]= V947; |
4895 |
base[3]= (V980); |
base[3]= (V950); |
4896 |
base[4]= (V981); |
base[4]= (V951); |
4897 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4898 |
siLhash_set(); |
siLhash_set(); |
4899 |
return;} |
return;} |
4906 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4907 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
4908 |
vs_check; |
vs_check; |
4909 |
{object V984; |
{object V954; |
4910 |
check_arg(1); |
check_arg(1); |
4911 |
V984=(base[0]); |
V954=(base[0]); |
4912 |
vs_top=sup; |
vs_top=sup; |
4913 |
goto TTL; |
goto TTL; |
4914 |
TTL:;{object V985; |
TTL:;{object V955; |
4915 |
base[1]= (V984); |
base[1]= (V954); |
4916 |
base[2]= (VV[15]->s.s_dbind); |
base[2]= (VV[15]->s.s_dbind); |
4917 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4918 |
Lgethash(); |
Lgethash(); |
4919 |
vs_top=sup; |
vs_top=sup; |
4920 |
V985= vs_base[0]; |
V955= vs_base[0]; |
4921 |
if(V985==Cnil)goto T1801; |
if(V955==Cnil)goto T1853; |
4922 |
base[1]= V985; |
base[1]= V955; |
4923 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4924 |
return; |
return; |
4925 |
goto T1801; |
goto T1853; |
4926 |
T1801:;} |
T1853:;} |
4927 |
{object V987; |
{object V957; |
4928 |
object V988; |
object V958; |
4929 |
V987= (VV[15]->s.s_dbind); |
V957= (VV[15]->s.s_dbind); |
4930 |
base[2]= (V984); |
base[2]= (V954); |
4931 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4932 |
Lcopy_list(); |
Lcopy_list(); |
4933 |
vs_top=sup; |
vs_top=sup; |
4934 |
V988= vs_base[0]; |
V958= vs_base[0]; |
4935 |
base[2]= V984; |
base[2]= V954; |
4936 |
base[3]= (V987); |
base[3]= (V957); |
4937 |
base[4]= (V988); |
base[4]= (V958); |
4938 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4939 |
siLhash_set(); |
siLhash_set(); |
4940 |
return;} |
return;} |
4941 |
} |
} |
4942 |
} |
} |
4943 |
static object LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */ |
static object LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[258],(void **)(void *)&LnkLI258,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */ |
4944 |
static object LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */ |
static object LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[257],(void **)(void *)&LnkLI257,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */ |
4945 |
static void LnkT241(ptr) object *ptr;{ call_or_link_closure(VV[241],(void **)(void *)&Lnk241,(void **)(void *)&Lclptr241);} /* METHOD-FUNCTION */ |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* METHOD-FUNCTION */ |
4946 |
static object LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[240],(void **)(void *)&LnkLI240,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */ |
static object LnkTLI255(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[255],(void **)(void *)&LnkLI255,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */ |
4947 |
static object LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */ |
static object LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[254],(void **)(void *)&LnkLI254,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */ |
4948 |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static object LnkTLI253(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[253],(void **)(void *)&LnkLI253,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
4949 |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
4950 |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
static object LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
4951 |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
4952 |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[249],(void **)(void *)&LnkLI249,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
4953 |
static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* CCLOSURE-ENV-NTHCDR */ |
4954 |
static object LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[232],(void **)(void *)&LnkLI232,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */ |
4955 |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
4956 |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */ |
static object LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */ |
4957 |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */ |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */ |
4958 |
static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* SET-FUNCTION-NAME */ |
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* SET-FUNCTION-NAME */ |
4959 |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[227],(void **)(void *)&LnkLI227,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
static object LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[242],(void **)(void *)&LnkLI242,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
4960 |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* SPLIT-DECLARATIONS */ |
static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* SPLIT-DECLARATIONS */ |
4961 |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,5,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL1 */ |
static object LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,5,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL1 */ |
4962 |
static void LnkT225(){ call_or_link(VV[225],(void **)(void *)&Lnk225);} /* WARN */ |
static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* WARN */ |
4963 |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,1,first,ap);va_end(ap);return V1;} /* MAKE-CALLS-TYPE-DECLARATION */ |
static object LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* MAKE-CALLS-TYPE-DECLARATION */ |
4964 |
static object LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[223],(void **)(void *)&LnkLI223,1,first,ap);va_end(ap);return V1;} /* MAKE-PV-TYPE-DECLARATION */ |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* MAKE-PV-TYPE-DECLARATION */ |
4965 |
static void LnkT222(){ call_or_link(VV[222],(void **)(void *)&Lnk222);} /* SORT */ |
static void LnkT237(){ call_or_link(VV[237],(void **)(void *)&Lnk237);} /* SORT */ |
4966 |
static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* TYPECASE-ERROR-STRING */ |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,2,first,ap);va_end(ap);return V1;} /* SYMBOL-LESSP */ |
4967 |
static object LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,2,first,ap);va_end(ap);return V1;} /* SYMBOL-LESSP */ |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* SYMBOL-PKG-NAME */ |
4968 |
static object LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[218],(void **)(void *)&LnkLI218,1,first,ap);va_end(ap);return V1;} /* SYMBOL-PKG-NAME */ |
static object LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* SORT-CALLS */ |
4969 |
static object LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,1,first,ap);va_end(ap);return V1;} /* SORT-CALLS */ |
static object LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* SORT-SLOTS */ |
4970 |
static object LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* SORT-SLOTS */ |
static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* VECTOR */ |
4971 |
static void LnkT215(){ call_or_link(VV[215],(void **)(void *)&Lnk215);} /* VECTOR */ |
static void LnkT230(){ call_or_link(VV[230],(void **)(void *)&Lnk230);} /* MUTATE-SLOTS-AND-CALLS */ |
4972 |
static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* MUTATE-SLOTS-AND-CALLS */ |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
4973 |
static object LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* GENERATE-FAST-CLASS-SLOT-ACCESS-P */ |
4974 |
static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* GENERATE-FAST-CLASS-SLOT-ACCESS-P */ |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* SLOT-VECTOR-SYMBOL */ |
4975 |
static object LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[211],(void **)(void *)&LnkLI211,1,first,ap);va_end(ap);return V1;} /* SLOT-VECTOR-SYMBOL */ |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,3,first,ap);va_end(ap);return V1;} /* SKIP-FAST-SLOT-ACCESS-P */ |
4976 |
static object LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,3,first,ap);va_end(ap);return V1;} /* SKIP-FAST-SLOT-ACCESS-P */ |
static object LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,3,first,ap);va_end(ap);return V1;} /* SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
4977 |
static object LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,3,first,ap);va_end(ap);return V1;} /* SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
static void LnkT224(ptr) object *ptr;{ call_or_link_closure(VV[224],(void **)(void *)&Lnk224,(void **)(void *)&Lclptr224);} /* SLOT-DEFINITION-ALLOCATION */ |
4978 |
static void LnkT208(ptr) object *ptr;{ call_or_link_closure(VV[208],(void **)(void *)&Lnk208,(void **)(void *)&Lclptr208);} /* SLOT-DEFINITION-ALLOCATION */ |
static void LnkT223(ptr) object *ptr;{ call_or_link_closure(VV[223],(void **)(void *)&Lnk223,(void **)(void *)&Lclptr223);} /* STANDARD-CLASS-P */ |
4979 |
static void LnkT207(ptr) object *ptr;{ call_or_link_closure(VV[207],(void **)(void *)&Lnk207,(void **)(void *)&Lclptr207);} /* STANDARD-CLASS-P */ |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GF-CALL-INTERNAL */ |
4980 |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GF-CALL-INTERNAL */ |
static void LnkT219(){ call_or_link(VV[219],(void **)(void *)&Lnk219);} /* POSITION */ |
4981 |
static void LnkT203(){ call_or_link(VV[203],(void **)(void *)&Lnk203);} /* POSITION */ |
static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */ |
4982 |
static void LnkT202(ptr) object *ptr;{ call_or_link_closure(VV[202],(void **)(void *)&Lnk202,(void **)(void *)&Lclptr202);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */ |
static void LnkT217(ptr) object *ptr;{ call_or_link_closure(VV[217],(void **)(void *)&Lnk217,(void **)(void *)&Lclptr217);} /* CLASSP */ |
4983 |
static void LnkT201(ptr) object *ptr;{ call_or_link_closure(VV[201],(void **)(void *)&Lnk201,(void **)(void *)&Lclptr201);} /* CLASSP */ |
static object LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-ACCESSOR-CALL */ |
4984 |
static object LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-ACCESSOR-CALL */ |
static object LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-INSTANCE-ACCESS */ |
4985 |
static object LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-INSTANCE-ACCESS */ |
static void LnkT214(ptr) object *ptr;{ call_or_link_closure(VV[214],(void **)(void *)&Lnk214,(void **)(void *)&Lclptr214);} /* CLASS-PRECEDENCE-LIST */ |
4986 |
static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* CLASS-FINALIZED-P */ |
4987 |
static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* CLASS-FINALIZED-P */ |
static object LnkTLI212(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[212],(void **)(void *)&LnkLI212,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
4988 |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[196],(void **)(void *)&LnkLI196,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI211(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[211],(void **)(void *)&LnkLI211,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */ |
4989 |
static object LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */ |
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* ERROR */ |
4990 |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
static object LnkTLI206(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[206],(void **)(void *)&LnkLI206,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
4991 |
static object LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-WRITER */ |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-WRITER */ |
4992 |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-READER */ |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,4,first,ap);va_end(ap);return V1;} /* OPTIMIZE-READER */ |
4993 |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS1 */ |
static object LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)(void *)&LnkLI202,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS1 */ |
4994 |
static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* SOME */ |
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* SOME */ |
4995 |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
static object LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
4996 |
static void LnkT183(ptr) object *ptr;{ call_or_link_closure(VV[183],(void **)(void *)&Lnk183,(void **)(void *)&Lclptr183);} /* GF-ARG-INFO */ |
static void LnkT198(ptr) object *ptr;{ call_or_link_closure(VV[198],(void **)(void *)&Lnk198,(void **)(void *)&Lclptr198);} /* GF-ARG-INFO */ |
4997 |
static void LnkT182(ptr) object *ptr;{ call_or_link_closure(VV[182],(void **)(void *)&Lnk182,(void **)(void *)&Lclptr182);} /* GENERIC-FUNCTION-NAME */ |
static void LnkT197(ptr) object *ptr;{ call_or_link_closure(VV[197],(void **)(void *)&Lnk197,(void **)(void *)&Lclptr197);} /* GENERIC-FUNCTION-NAME */ |
4998 |
static void LnkT181(ptr) object *ptr;{ call_or_link_closure(VV[181],(void **)(void *)&Lnk181,(void **)(void *)&Lclptr181);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT196(ptr) object *ptr;{ call_or_link_closure(VV[196],(void **)(void *)&Lnk196,(void **)(void *)&Lclptr196);} /* GENERIC-FUNCTION-METHODS */ |
4999 |
static void LnkT180(ptr) object *ptr;{ call_or_link_closure(VV[180],(void **)(void *)&Lnk180,(void **)(void *)&Lclptr180);} /* GENERIC-FUNCTION-P */ |
static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* GENERIC-FUNCTION-P */ |
5000 |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */ |
static object LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */ |
5001 |
static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* COERCE */ |
static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* COERCE */ |
5002 |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[177],(void **)(void *)&LnkLI177,first,ap);va_end(ap);return V1;} /* MAP-CACHE */ |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[192],(void **)(void *)&LnkLI192,first,ap);va_end(ap);return V1;} /* MAP-CACHE */ |
5003 |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,2,first,ap);va_end(ap);return V1;} /* MAP-PV-TABLE-REFERENCES-OF */ |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,2,first,ap);va_end(ap);return V1;} /* MAP-PV-TABLE-REFERENCES-OF */ |
5004 |
static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-WRAPPER */ |
static void LnkT190(ptr) object *ptr;{ call_or_link_closure(VV[190],(void **)(void *)&Lnk190,(void **)(void *)&Lclptr190);} /* CLASS-WRAPPER */ |
5005 |
static object LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,2,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-PV-TABLE-CACHES */ |
static object LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)(void *)&LnkLI189,2,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-PV-TABLE-CACHES */ |
5006 |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */ |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */ |
5007 |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[172],(void **)(void *)&LnkLI172,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
5008 |
static object LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,2,first,ap);va_end(ap);return V1;} /* COMPUTE-CALLS */ |
static object LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,2,first,ap);va_end(ap);return V1;} /* COMPUTE-CALLS */ |
5009 |
static object LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,2,first,ap);va_end(ap);return V1;} /* COMPUTE-PV */ |
static object LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,2,first,ap);va_end(ap);return V1;} /* COMPUTE-PV */ |
5010 |
static object LnkTLI169(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[169],(void **)(void *)&LnkLI169,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)(void *)&LnkLI184,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
5011 |
static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* COUNT */ |
static void LnkT182(){ call_or_link(VV[182],(void **)(void *)&Lnk182);} /* COUNT */ |
5012 |
static object LnkTLI166(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[166],(void **)(void *)&LnkLI166,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */ |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */ |
5013 |
static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* MAKE-ARRAY */ |
static void LnkT180(){ call_or_link(VV[180],(void **)(void *)&Lnk180);} /* MAKE-ARRAY */ |
5014 |
static object LnkTLI164(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[164],(void **)(void *)&LnkLI164,1,first,ap);va_end(ap);return V1;} /* MAKE-PERMUTATION-VECTOR */ |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* MAKE-PERMUTATION-VECTOR */ |
5015 |
static object LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,5,first,ap);va_end(ap);return V1;} /* COMPUTE-PV-SLOT */ |
static object LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[178],(void **)(void *)&LnkLI178,5,first,ap);va_end(ap);return V1;} /* COMPUTE-PV-SLOT */ |
5016 |
static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* ACCESSOR-VALUES1 */ |
static void LnkT177(){ call_or_link(VV[177],(void **)(void *)&Lnk177);} /* ACCESSOR-VALUES1 */ |
5017 |
static object LnkTLI161(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[161],(void **)(void *)&LnkLI161,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
5018 |
static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* OPTIMIZE-SLOT-VALUE-BY-CLASS-P */ |
5019 |
static void LnkT159(ptr) object *ptr;{ call_or_link_closure(VV[159],(void **)(void *)&Lnk159,(void **)(void *)&Lclptr159);} /* SLOT-ACCESSOR-STD-P */ |
static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* SLOT-ACCESSOR-STD-P */ |
5020 |
static object LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
5021 |
static object LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[157],(void **)(void *)&LnkLI157,3,first,ap);va_end(ap);return V1;} /* NOTE-PV-TABLE-REFERENCE */ |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)(void *)&LnkLI172,3,first,ap);va_end(ap);return V1;} /* NOTE-PV-TABLE-REFERENCE */ |
5022 |
static object LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,2,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE-INTERNAL */ |
static object LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,2,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE-INTERNAL */ |
5023 |
static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */ |
static object LnkTLI167(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[167],(void **)(void *)&LnkLI167,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */ |
5024 |
|
|
5025 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5026 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |