230 |
object V40; |
object V40; |
231 |
V39= (VFUN_NARGS=0,(*(LnkLI71))()); |
V39= (VFUN_NARGS=0,(*(LnkLI71))()); |
232 |
V40= (*(LnkLI72))((V38)); |
V40= (*(LnkLI72))((V38)); |
233 |
{object V42; |
{object V41; |
234 |
V43= car((V40)); |
object V43; |
235 |
|
V41= car((V40)); |
236 |
V44= structure_ref(V39,VV[12],1); |
V44= structure_ref(V39,VV[12],1); |
237 |
V42= make_cons(/* INLINE-ARGS */V43,/* INLINE-ARGS */V44); |
V43= make_cons((V41),/* INLINE-ARGS */V44); |
238 |
(void)(structure_set(V39,VV[12],1,(V42)));} |
(void)(structure_set(V39,VV[12],1,(V43)));} |
239 |
V45= structure_ref(car((V40)),VV[0],5); |
V45= structure_ref(car((V40)),VV[0],5); |
240 |
(void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45)); |
(void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45)); |
241 |
{object V46 = list(3,VV[0],(V39),(V40)); |
{object V46 = list(3,VV[0],(V39),(V40)); |
259 |
register object V52; |
register object V52; |
260 |
V51= symbol_value(VV[13]); |
V51= symbol_value(VV[13]); |
261 |
V52= car((V51)); |
V52= car((V51)); |
262 |
goto T84; |
goto T85; |
263 |
T84:; |
T85:; |
264 |
if(!(endp_prop((V51)))){ |
if(!(endp_prop((V51)))){ |
265 |
goto T85;} |
goto T86;} |
266 |
{register object V53; |
{register object V53; |
267 |
V53= (*(LnkLI73))((V48)); |
V53= (*(LnkLI73))((V48)); |
268 |
if(((V53))!=Cnil){ |
if(((V53))!=Cnil){ |
269 |
goto T89;} |
goto T90;} |
270 |
base[1]= (V48); |
base[1]= (V48); |
271 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
272 |
siLspecialp(); |
siLspecialp(); |
273 |
vs_top=sup; |
vs_top=sup; |
274 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
275 |
goto T92;} |
goto T93;} |
276 |
(void)((*(LnkLI74))((V48))); |
(void)((*(LnkLI74))((V48))); |
277 |
goto T92; |
goto T93; |
278 |
T92:; |
T93:; |
279 |
V54= (*(LnkLI68))((V48));{object V56; |
V54= (*(LnkLI68))((V48));{object V56; |
280 |
V56= get((V48),VV[5],Cnil); |
V56= get((V48),VV[5],Cnil); |
281 |
if(V56==Cnil)goto T99; |
if(V56==Cnil)goto T100; |
282 |
V55= V56; |
V55= V56; |
283 |
goto T98; |
goto T99; |
284 |
goto T99; |
goto T100; |
285 |
T99:;} |
T100:;} |
286 |
V55= Ct; |
V55= Ct; |
287 |
goto T98; |
goto T99; |
288 |
T98:; |
T99:; |
289 |
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55)); |
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55)); |
290 |
setq(VV[18],make_cons((V53),symbol_value(VV[18]))); |
setq(VV[18],make_cons(V53,symbol_value(VV[18]))); |
291 |
goto T89; |
goto T90; |
292 |
T89:; |
T90:; |
293 |
{object V57 = list(2,(V53),(V49)); |
{object V58 = list(2,(V53),(V49)); |
294 |
VMR5(V57)}} |
VMR5(V58)}} |
295 |
goto T85; |
goto T86; |
296 |
T85:; |
T86:; |
297 |
if(!(((V52))==(VV[19]))){ |
if(!(((V52))==(VV[19]))){ |
298 |
goto T105;} |
goto T106;} |
299 |
V49= Ct; |
V49= Ct; |
300 |
goto T103; |
goto T104; |
301 |
goto T105; |
goto T106; |
302 |
T105:; |
T106:; |
303 |
if(!(((V52))==(VV[20]))){ |
if(!(((V52))==(VV[20]))){ |
304 |
goto T109;} |
goto T110;} |
305 |
V50= Ct; |
V50= Ct; |
306 |
goto T103; |
goto T104; |
307 |
goto T109; |
goto T110; |
308 |
T109:; |
T110:; |
309 |
V58= structure_ref((V52),VV[0],0); |
V59= structure_ref((V52),VV[0],0); |
310 |
if(!((/* INLINE-ARGS */V58)==((V48)))){ |
if(!((/* INLINE-ARGS */V59)==((V48)))){ |
311 |
goto T103;} |
goto T104;} |
312 |
V59= structure_ref((V52),VV[0],2); |
V60= structure_ref((V52),VV[0],2); |
313 |
if(!((/* INLINE-ARGS */V59)==(VV[10]))){ |
if(!((/* INLINE-ARGS */V60)==(VV[10]))){ |
314 |
goto T114;} |
goto T115;} |
315 |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48)))); |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48)))); |
316 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
317 |
goto T114; |
goto T115; |
318 |
T114:; |
T115:; |
319 |
if(((V49))==Cnil){ |
if(((V49))==Cnil){ |
320 |
goto T120;} |
goto T121;} |
321 |
(void)(structure_set((V52),VV[0],3,Ct)); |
(void)(structure_set((V52),VV[0],3,Ct)); |
322 |
goto T118; |
goto T119; |
323 |
goto T120; |
goto T121; |
324 |
T120:; |
T121:; |
325 |
if(((V50))==Cnil){ |
if(((V50))==Cnil){ |
326 |
goto T123;} |
goto T124;} |
327 |
V60= structure_ref((V52),VV[0],1); |
V61= structure_ref((V52),VV[0],1); |
328 |
if(!((/* INLINE-ARGS */V60)==(VV[9]))){ |
if(!((/* INLINE-ARGS */V61)==(VV[9]))){ |
329 |
goto T125;} |
goto T126;} |
330 |
(void)(structure_set((V52),VV[0],4,VV[22])); |
(void)(structure_set((V52),VV[0],4,VV[22])); |
331 |
goto T125; |
goto T126; |
332 |
T125:; |
T126:; |
333 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
334 |
goto T118; |
goto T119; |
335 |
goto T123; |
goto T124; |
336 |
T123:; |
T124:; |
337 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
338 |
{long V61= fix(structure_ref((V52),VV[0],6)); |
{long V62= fix(structure_ref((V52),VV[0],6)); |
339 |
V62 = make_fixnum((long)(1)+(/* INLINE-ARGS */V61)); |
V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62)); |
340 |
(void)(structure_set((V52),VV[0],6,V62));} |
(void)(structure_set((V52),VV[0],6,V63));} |
341 |
goto T118; |
goto T119; |
342 |
T118:; |
T119:; |
343 |
{object V63 = list(2,(V52),(V49)); |
{object V64 = list(2,(V52),(V49)); |
344 |
VMR5(V63)} |
VMR5(V64)} |
345 |
goto T103; |
goto T104; |
346 |
T103:; |
T104:; |
347 |
V51= cdr((V51)); |
V51= cdr((V51)); |
348 |
V52= car((V51)); |
V52= car((V51)); |
349 |
goto T84;}} |
goto T85;}} |
350 |
base[0]=base[0]; |
base[0]=base[0]; |
351 |
return Cnil; |
return Cnil; |
352 |
} |
} |
353 |
/* local entry for function C2VAR-KIND */ |
/* local entry for function C2VAR-KIND */ |
354 |
|
|
355 |
static object LI6(V65) |
static object LI6(V66) |
356 |
|
|
357 |
register object V65; |
register object V66; |
358 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
359 |
goto TTL; |
goto TTL; |
360 |
TTL:; |
TTL:; |
361 |
V66= structure_ref((V65),VV[0],1); |
V67= structure_ref((V66),VV[0],1); |
362 |
if(!((/* INLINE-ARGS */V66)==(VV[9]))){ |
if(!((/* INLINE-ARGS */V67)==(VV[9]))){ |
363 |
goto T135;} |
goto T136;} |
364 |
if((structure_ref((V65),VV[0],3))!=Cnil){ |
if((structure_ref((V66),VV[0],3))!=Cnil){ |
365 |
goto T135;} |
goto T136;} |
366 |
V67= structure_ref((V65),VV[0],4); |
V68= structure_ref((V66),VV[0],4); |
367 |
if((/* INLINE-ARGS */V67)==(VV[22])){ |
if((/* INLINE-ARGS */V68)==(VV[22])){ |
368 |
goto T135;} |
goto T136;} |
369 |
V68= structure_ref((V65),VV[0],4); |
V69= structure_ref((V66),VV[0],4); |
370 |
if(!((/* INLINE-ARGS */V68)==(VV[7]))){ |
if(!((/* INLINE-ARGS */V69)==(VV[7]))){ |
371 |
goto T142;} |
goto T143;} |
372 |
{object V69 = VV[7]; |
{object V70 = VV[7]; |
373 |
VMR6(V69)} |
VMR6(V70)} |
374 |
goto T142; |
goto T143; |
375 |
T142:; |
T143:; |
376 |
{register object V70; |
{register object V71; |
377 |
V70= structure_ref((V65),VV[0],5); |
V71= structure_ref((V66),VV[0],5); |
378 |
if(((*(LnkLI75))(VV[23],(V70)))==Cnil){ |
if(((*(LnkLI75))(VV[23],(V71)))==Cnil){ |
379 |
goto T146;} |
goto T147;} |
380 |
{object V71 = VV[23]; |
{object V72 = VV[23]; |
|
VMR6(V71)} |
|
|
goto T146; |
|
|
T146:; |
|
|
if(((*(LnkLI75))(VV[24],(V70)))==Cnil){ |
|
|
goto T149;} |
|
|
{object V72 = VV[24]; |
|
381 |
VMR6(V72)} |
VMR6(V72)} |
382 |
goto T149; |
goto T147; |
383 |
T149:; |
T147:; |
384 |
if(((*(LnkLI75))(VV[25],(V70)))==Cnil){ |
if(((*(LnkLI75))(VV[24],(V71)))==Cnil){ |
385 |
goto T152;} |
goto T150;} |
386 |
{object V73 = VV[25]; |
{object V73 = VV[24]; |
387 |
VMR6(V73)} |
VMR6(V73)} |
388 |
goto T152; |
goto T150; |
389 |
T152:; |
T150:; |
390 |
if(((*(LnkLI75))(VV[26],(V70)))==Cnil){ |
if(((*(LnkLI75))(VV[25],(V71)))==Cnil){ |
391 |
goto T155;} |
goto T153;} |
392 |
{object V74 = VV[26]; |
{object V74 = VV[25]; |
393 |
VMR6(V74)} |
VMR6(V74)} |
394 |
goto T155; |
goto T153; |
395 |
T155:; |
T153:; |
396 |
if(((*(LnkLI75))(VV[27],(V70)))==Cnil){ |
if(((*(LnkLI75))(VV[26],(V71)))==Cnil){ |
397 |
goto T158;} |
goto T156;} |
398 |
{object V75 = VV[27]; |
{object V75 = VV[26]; |
399 |
VMR6(V75)} |
VMR6(V75)} |
400 |
goto T158; |
goto T156; |
401 |
T158:; |
T156:; |
402 |
{object V76; |
if(((*(LnkLI75))(VV[27],(V71)))==Cnil){ |
403 |
|
goto T159;} |
404 |
|
{object V76 = VV[27]; |
405 |
|
VMR6(V76)} |
406 |
|
goto T159; |
407 |
|
T159:; |
408 |
|
{object V77; |
409 |
base[0]= VV[8]; |
base[0]= VV[8]; |
410 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
411 |
Lboundp(); |
Lboundp(); |
412 |
vs_top=sup; |
vs_top=sup; |
413 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
414 |
|
goto T162;} |
415 |
|
V77= Cnil; |
416 |
|
goto T161; |
417 |
|
goto T162; |
418 |
|
T162:; |
419 |
|
if(symbol_value(VV[8])==Cnil){ |
420 |
|
V77= Cnil; |
421 |
goto T161;} |
goto T161;} |
422 |
V76= Cnil; |
V77= VV[7]; |
|
goto T160; |
|
423 |
goto T161; |
goto T161; |
424 |
T161:; |
T161:; |
425 |
if(symbol_value(VV[8])==Cnil){ |
if(((V77))==Cnil){ |
426 |
V76= Cnil; |
goto T166;} |
427 |
goto T160;} |
{object V78 = (V77); |
428 |
V76= VV[7]; |
VMR6(V78)} |
429 |
goto T160; |
goto T166; |
430 |
T160:; |
T166:; |
|
if(((V76))==Cnil){ |
|
|
goto T165;} |
|
|
{object V77 = (V76); |
|
|
VMR6(V77)} |
|
|
goto T165; |
|
|
T165:; |
|
|
{object V78 = Cnil; |
|
|
VMR6(V78)}}} |
|
|
goto T135; |
|
|
T135:; |
|
431 |
{object V79 = Cnil; |
{object V79 = Cnil; |
432 |
VMR6(V79)} |
VMR6(V79)}}} |
433 |
|
goto T136; |
434 |
|
T136:; |
435 |
|
{object V80 = Cnil; |
436 |
|
VMR6(V80)} |
437 |
base[0]=base[0]; |
base[0]=base[0]; |
438 |
return Cnil; |
return Cnil; |
439 |
} |
} |
440 |
/* local entry for function C2VAR */ |
/* local entry for function C2VAR */ |
441 |
|
|
442 |
static object LI7(V81) |
static object LI7(V82) |
443 |
|
|
444 |
object V81; |
object V82; |
445 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
446 |
goto TTL; |
goto TTL; |
447 |
TTL:; |
TTL:; |
448 |
V82= make_cons(VV[0],(V81)); |
V83= make_cons(VV[0],(V82)); |
449 |
{object V83 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V82,Cnil,VV[28])); |
{object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28])); |
450 |
VMR7(V83)} |
VMR7(V84)} |
451 |
return Cnil; |
return Cnil; |
452 |
} |
} |
453 |
/* local entry for function C2LOCATION */ |
/* local entry for function C2LOCATION */ |
454 |
|
|
455 |
static object LI8(V85) |
static object LI8(V86) |
456 |
|
|
457 |
object V85; |
object V86; |
458 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
459 |
goto TTL; |
goto TTL; |
460 |
TTL:; |
TTL:; |
461 |
{object V86 = (VFUN_NARGS=3,(*(LnkLI76))((V85),Cnil,VV[28])); |
{object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28])); |
462 |
VMR8(V86)} |
VMR8(V87)} |
463 |
return Cnil; |
return Cnil; |
464 |
} |
} |
465 |
/* local entry for function CHECK-DOWNWARD */ |
/* local entry for function CHECK-DOWNWARD */ |
466 |
|
|
467 |
static object LI9(V88) |
static object LI9(V89) |
468 |
|
|
469 |
object V88; |
object V89; |
470 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
471 |
goto TTL; |
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
{object V89; |
{object V90; |
474 |
V89= Cnil; |
V90= Cnil; |
475 |
{register object V90; |
{register object V91; |
476 |
object V91; |
object V92; |
477 |
V90= symbol_value(VV[29]); |
V91= symbol_value(VV[29]); |
478 |
V91= car((V90)); |
V92= car((V91)); |
|
goto T172; |
|
|
T172:; |
|
|
if(!(endp_prop((V90)))){ |
|
|
goto T173;} |
|
|
goto T168; |
|
479 |
goto T173; |
goto T173; |
480 |
T173:; |
T173:; |
481 |
if(!((car((V91)))==(VV[30]))){ |
if(!(endp_prop((V91)))){ |
482 |
goto T177;} |
goto T174;} |
483 |
V89= Ct; |
goto T169; |
484 |
{register object V92; |
goto T174; |
485 |
register object V93; |
T174:; |
486 |
V92= symbol_value(VV[29]); |
if(!((car((V92)))==(VV[30]))){ |
487 |
V93= car((V92)); |
goto T178;} |
488 |
goto T186; |
V90= Ct; |
489 |
T186:; |
{register object V93; |
490 |
if(!(endp_prop((V92)))){ |
register object V94; |
491 |
goto T187;} |
V93= symbol_value(VV[29]); |
492 |
goto T182; |
V94= car((V93)); |
493 |
goto T187; |
goto T187; |
494 |
T187:; |
T187:; |
495 |
if(!((car((V93)))==(VV[31]))){ |
if(!(endp_prop((V93)))){ |
496 |
goto T191;} |
goto T188;} |
497 |
{register object V94; |
goto T183; |
498 |
register object V95; |
goto T188; |
499 |
V94= (V93); |
T188:; |
500 |
V95= VV[30]; |
if(!((car((V94)))==(VV[31]))){ |
501 |
if(type_of((V94))!=t_cons)FEwrong_type_argument(Scons,(V94)); |
goto T192;} |
502 |
((V94))->c.c_car = (V95);} |
{register object V95; |
503 |
goto T191; |
register object V96; |
504 |
T191:; |
V95= (V94); |
505 |
V92= cdr((V92)); |
V96= VV[30]; |
506 |
V93= car((V92)); |
if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95)); |
507 |
goto T186;} |
((V95))->c.c_car = (V96);} |
508 |
goto T182; |
goto T192; |
509 |
T182:; |
T192:; |
510 |
goto T168; |
V93= cdr((V93)); |
511 |
goto T177; |
V94= car((V93)); |
512 |
T177:; |
goto T187;} |
513 |
V90= cdr((V90)); |
goto T183; |
514 |
V91= car((V90)); |
T183:; |
515 |
goto T172;} |
goto T169; |
516 |
goto T168; |
goto T178; |
517 |
T168:; |
T178:; |
518 |
|
V91= cdr((V91)); |
519 |
|
V92= car((V91)); |
520 |
|
goto T173;} |
521 |
|
goto T169; |
522 |
|
T169:; |
523 |
setq(VV[29],Cnil); |
setq(VV[29],Cnil); |
524 |
if(((V89))==Cnil){ |
if(((V90))==Cnil){ |
525 |
goto T210;} |
goto T211;} |
526 |
{register object V96; |
{register object V97; |
527 |
object V97; |
object V98; |
528 |
V96= (V88); |
V97= (V89); |
529 |
V97= car((V96)); |
V98= car((V97)); |
|
goto T215; |
|
|
T215:; |
|
|
if(!(endp_prop((V96)))){ |
|
|
goto T216;} |
|
|
{object V98 = Cnil; |
|
|
VMR9(V98)} |
|
530 |
goto T216; |
goto T216; |
531 |
T216:; |
T216:; |
532 |
V99= structure_ref((V97),VV[0],1); |
if(!(endp_prop((V97)))){ |
533 |
if(!((/* INLINE-ARGS */V99)==(VV[32]))){ |
goto T217;} |
534 |
goto T220;} |
{object V99 = Cnil; |
535 |
(void)(structure_set((V97),VV[0],1,VV[9])); |
VMR9(V99)} |
536 |
goto T220; |
goto T217; |
537 |
T220:; |
T217:; |
538 |
V96= cdr((V96)); |
V100= structure_ref((V98),VV[0],1); |
539 |
V97= car((V96)); |
if(!((/* INLINE-ARGS */V100)==(VV[32]))){ |
540 |
goto T215;} |
goto T221;} |
541 |
goto T210; |
(void)(structure_set((V98),VV[0],1,VV[9])); |
542 |
T210:; |
goto T221; |
543 |
{object V100 = Cnil; |
T221:; |
544 |
VMR9(V100)}} |
V97= cdr((V97)); |
545 |
|
V98= car((V97)); |
546 |
|
goto T216;} |
547 |
|
goto T211; |
548 |
|
T211:; |
549 |
|
{object V101 = Cnil; |
550 |
|
VMR9(V101)}} |
551 |
base[0]=base[0]; |
base[0]=base[0]; |
552 |
return Cnil; |
return Cnil; |
553 |
} |
} |
554 |
/* local entry for function ASSIGN-DOWN-VARS */ |
/* local entry for function ASSIGN-DOWN-VARS */ |
555 |
|
|
556 |
static object LI10(V104,V105,V106) |
static object LI10(V105,V106,V107) |
557 |
|
|
558 |
object V104;object V105;object V106; |
object V105;object V106;object V107; |
559 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
560 |
goto TTL; |
goto TTL; |
561 |
TTL:; |
TTL:; |
|
{register object V107; |
|
|
V107= small_fixnum(0); |
|
562 |
{register object V108; |
{register object V108; |
563 |
register object V109; |
V108= small_fixnum(0); |
564 |
V108= (V104); |
{register object V109; |
565 |
V109= car((V108)); |
register object V110; |
566 |
goto T233; |
V109= (V105); |
567 |
T233:; |
V110= car((V109)); |
|
if(!(endp_prop((V108)))){ |
|
|
goto T234;} |
|
|
goto T229; |
|
568 |
goto T234; |
goto T234; |
569 |
T234:; |
T234:; |
570 |
V110= structure_ref((V109),VV[0],1); |
if(!(endp_prop((V109)))){ |
571 |
if(!((/* INLINE-ARGS */V110)==(VV[32]))){ |
goto T235;} |
572 |
goto T238;} |
goto T230; |
573 |
V111= structure_ref((V109),VV[0],4); |
goto T235; |
574 |
if(!(type_of(/* INLINE-ARGS */V111)==t_fixnum||type_of(/* INLINE-ARGS */V111)==t_bignum)){ |
T235:; |
575 |
goto T242;} |
V111= structure_ref((V110),VV[0],1); |
576 |
V112= structure_ref((V109),VV[0],4); |
if(!((/* INLINE-ARGS */V111)==(VV[32]))){ |
577 |
V113= one_plus(/* INLINE-ARGS */V112); |
goto T239;} |
578 |
V107= (number_compare((V107),/* INLINE-ARGS */V113)>=0?((V107)):/* INLINE-ARGS */V113); |
V112= structure_ref((V110),VV[0],4); |
579 |
V114= structure_ref((V109),VV[0],4); |
if(!(type_of(/* INLINE-ARGS */V112)==t_fixnum||type_of(/* INLINE-ARGS */V112)==t_bignum)){ |
580 |
(void)(structure_set((V109),VV[0],2,/* INLINE-ARGS */V114)); |
goto T243;} |
581 |
goto T238; |
V113= structure_ref((V110),VV[0],4); |
582 |
goto T242; |
V114= one_plus(/* INLINE-ARGS */V113); |
583 |
T242:; |
V108= (number_compare((V108),/* INLINE-ARGS */V114)>=0?((V108)):/* INLINE-ARGS */V114); |
584 |
(void)(structure_set((V109),VV[0],2,(V107))); |
V115= structure_ref((V110),VV[0],4); |
585 |
(void)(structure_set((V109),VV[0],4,(V107))); |
(void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115)); |
586 |
V107= number_plus((V107),small_fixnum(1)); |
goto T239; |
587 |
goto T238; |
goto T243; |
588 |
T238:; |
T243:; |
589 |
V108= cdr((V108)); |
(void)(structure_set((V110),VV[0],2,(V108))); |
590 |
V109= car((V108)); |
(void)(structure_set((V110),VV[0],4,(V108))); |
591 |
goto T233;} |
V108= number_plus((V108),small_fixnum(1)); |
592 |
goto T229; |
goto T239; |
593 |
T229:; |
T239:; |
594 |
if(!(number_compare((V107),small_fixnum(0))>0)){ |
V109= cdr((V109)); |
595 |
goto T254;} |
V110= car((V109)); |
596 |
if(!(((V106))==(VV[33]))){ |
goto T234;} |
597 |
goto T257;} |
goto T230; |
598 |
|
T230:; |
599 |
|
if(!(number_compare((V108),small_fixnum(0))>0)){ |
600 |
|
goto T255;} |
601 |
|
if(!(((V107))==(VV[33]))){ |
602 |
|
goto T258;} |
603 |
princ_str("\n object base0[",VV[34]); |
princ_str("\n object base0[",VV[34]); |
604 |
(void)((*(LnkLI77))((V107))); |
(void)((*(LnkLI77))((V108))); |
605 |
princ_str("];",VV[34]); |
princ_str("];",VV[34]); |
606 |
goto T257; |
goto T258; |
607 |
T257:; |
T258:; |
608 |
setq(VV[35],make_cons(VV[36],symbol_value(VV[35]))); |
setq(VV[36],make_cons(VV[35],symbol_value(VV[36]))); |
609 |
princ_str("\n DCnames",VV[34]); |
princ_str("\n DCnames",VV[34]); |
610 |
(void)((*(LnkLI77))((V105))); |
(void)((*(LnkLI77))((V106))); |
611 |
princ_str("",VV[34]); |
princ_str("",VV[34]); |
612 |
goto T254; |
goto T255; |
613 |
T254:; |
T255:; |
614 |
{object V115 = (V107); |
{object V117 = (V108); |
615 |
VMR10(V115)}} |
VMR10(V117)}} |
616 |
base[0]=base[0]; |
base[0]=base[0]; |
617 |
return Cnil; |
return Cnil; |
618 |
} |
} |
619 |
/* local entry for function WT-DOWN */ |
/* local entry for function WT-DOWN */ |
620 |
|
|
621 |
static object LI11(V117) |
static object LI11(V119) |
622 |
|
|
623 |
object V117; |
object V119; |
624 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
625 |
goto TTL; |
goto TTL; |
626 |
TTL:;{object V118; |
TTL:;{object V120; |
627 |
base[0]= (V117); |
base[0]= (V119); |
628 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
629 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
630 |
vs_top=sup; |
vs_top=sup; |
631 |
V118= vs_base[0]; |
V120= vs_base[0]; |
632 |
if(V118==Cnil)goto T269; |
if(V120==Cnil)goto T270; |
633 |
goto T268; |
goto T269; |
634 |
goto T269; |
goto T270; |
635 |
T269:;} |
T270:;} |
636 |
(void)((*(LnkLI79))()); |
(void)((*(LnkLI79))()); |
637 |
goto T268; |
goto T269; |
638 |
T268:; |
T269:; |
639 |
princ_str("base0[",VV[34]); |
princ_str("base0[",VV[34]); |
640 |
(void)((*(LnkLI77))((V117))); |
(void)((*(LnkLI77))((V119))); |
641 |
princ_char(93,VV[34]); |
princ_char(93,VV[34]); |
642 |
{object V119 = Cnil; |
{object V121 = Cnil; |
643 |
VMR11(V119)} |
VMR11(V121)} |
644 |
base[0]=base[0]; |
base[0]=base[0]; |
645 |
return Cnil; |
return Cnil; |
646 |
} |
} |
647 |
/* local entry for function WT-VAR */ |
/* local entry for function WT-VAR */ |
648 |
|
|
649 |
static object LI12(V122,V123) |
static object LI12(V124,V125) |
650 |
|
|
651 |
register object V122;object V123; |
register object V124;object V125; |
652 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
653 |
goto TTL; |
goto TTL; |
654 |
TTL:; |
TTL:; |
655 |
V125= structure_ref((V122),VV[0],1); |
V127= structure_ref((V124),VV[0],1); |
656 |
{object V124= /* INLINE-ARGS */V125; |
{object V126= /* INLINE-ARGS */V127; |
657 |
if((V124!= VV[9]))goto T275; |
if((V126!= VV[9]))goto T276; |
658 |
if(((V123))==Cnil){ |
if(((V125))==Cnil){ |
659 |
goto T277;} |
goto T278;} |
660 |
V126= structure_ref((V122),VV[0],3); |
V128= structure_ref((V124),VV[0],3); |
661 |
{object V127 = (*(LnkLI80))(/* INLINE-ARGS */V126); |
{object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128); |
|
VMR12(V127)} |
|
|
goto T277; |
|
|
T277:; |
|
|
if((structure_ref((V122),VV[0],3))==Cnil){ |
|
|
goto T280;} |
|
|
V128= structure_ref((V122),VV[0],2); |
|
|
{object V129 = (*(LnkLI81))(/* INLINE-ARGS */V128); |
|
662 |
VMR12(V129)} |
VMR12(V129)} |
663 |
goto T280; |
goto T278; |
664 |
T280:; |
T278:; |
665 |
V130= structure_ref((V122),VV[0],2); |
if((structure_ref((V124),VV[0],3))==Cnil){ |
666 |
if(!((Ct)==(/* INLINE-ARGS */V130))){ |
goto T281;} |
667 |
goto T283;} |
V130= structure_ref((V124),VV[0],2); |
668 |
V131= structure_ref((V122),VV[0],4); |
{object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130); |
669 |
if(!(type_of(/* INLINE-ARGS */V131)==t_fixnum)){ |
VMR12(V131)} |
670 |
goto T283;} |
goto T281; |
671 |
if((symbol_value(VV[8]))==Cnil){ |
T281:; |
672 |
goto T283;} |
V132= structure_ref((V124),VV[0],2); |
|
V132= structure_ref((V122),VV[0],5); |
|
673 |
if(!((Ct)==(/* INLINE-ARGS */V132))){ |
if(!((Ct)==(/* INLINE-ARGS */V132))){ |
674 |
goto T283;} |
goto T284;} |
675 |
(void)(structure_set((V122),VV[0],1,VV[7])); |
V133= structure_ref((V124),VV[0],4); |
676 |
|
if(!(type_of(/* INLINE-ARGS */V133)==t_fixnum)){ |
677 |
|
goto T284;} |
678 |
|
if((symbol_value(VV[8]))==Cnil){ |
679 |
|
goto T284;} |
680 |
|
V134= structure_ref((V124),VV[0],5); |
681 |
|
if(!((Ct)==(/* INLINE-ARGS */V134))){ |
682 |
|
goto T284;} |
683 |
|
(void)(structure_set((V124),VV[0],1,VV[7])); |
684 |
goto TTL; |
goto TTL; |
685 |
goto T283; |
goto T284; |
686 |
T283:; |
T284:; |
687 |
V133= structure_ref((V122),VV[0],2); |
V135= structure_ref((V124),VV[0],2); |
688 |
{object V134 = (*(LnkLI82))(/* INLINE-ARGS */V133); |
{object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135); |
|
VMR12(V134)} |
|
|
goto T275; |
|
|
T275:; |
|
|
if((V124!= VV[4]))goto T295; |
|
|
princ_str("(VV[",VV[34]); |
|
|
V135= structure_ref((V122),VV[0],4); |
|
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V135)); |
|
|
princ_str("]->s.s_dbind)",VV[34]); |
|
|
{object V136 = Cnil; |
|
689 |
VMR12(V136)} |
VMR12(V136)} |
690 |
goto T295; |
goto T276; |
691 |
T295:; |
T276:; |
692 |
if((V124!= VV[83]))goto T299; |
if((V126!= VV[4]))goto T296; |
693 |
V137= structure_ref((V122),VV[0],4); |
princ_str("(VV[",VV[34]); |
694 |
|
V137= structure_ref((V124),VV[0],4); |
695 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V137)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V137)); |
696 |
|
princ_str("]->s.s_dbind)",VV[34]); |
697 |
{object V138 = Cnil; |
{object V138 = Cnil; |
698 |
VMR12(V138)} |
VMR12(V138)} |
699 |
goto T299; |
goto T296; |
700 |
T299:; |
T296:; |
701 |
if((V124!= VV[32]))goto T301; |
if((V126!= VV[83]))goto T300; |
702 |
V139= structure_ref((V122),VV[0],4); |
V139= structure_ref((V124),VV[0],4); |
703 |
{object V140 = (*(LnkLI84))(/* INLINE-ARGS */V139); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V139)); |
704 |
|
{object V140 = Cnil; |
705 |
VMR12(V140)} |
VMR12(V140)} |
706 |
goto T301; |
goto T300; |
707 |
T301:; |
T300:; |
708 |
if((V124!= VV[15]))goto T302; |
if((V126!= VV[32]))goto T302; |
709 |
|
V141= structure_ref((V124),VV[0],4); |
710 |
|
{object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141); |
711 |
|
VMR12(V142)} |
712 |
|
goto T302; |
713 |
|
T302:; |
714 |
|
if((V126!= VV[15]))goto T303; |
715 |
if((symbol_value(VV[37]))==Cnil){ |
if((symbol_value(VV[37]))==Cnil){ |
716 |
goto T304;} |
goto T305;} |
717 |
princ_str("symbol_value(VV[",VV[34]); |
princ_str("symbol_value(VV[",VV[34]); |
718 |
V141= structure_ref((V122),VV[0],4); |
V143= structure_ref((V124),VV[0],4); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V141)); |
|
|
princ_str("])",VV[34]); |
|
|
{object V142 = Cnil; |
|
|
VMR12(V142)} |
|
|
goto T304; |
|
|
T304:; |
|
|
princ_str("(VV[",VV[34]); |
|
|
V143= structure_ref((V122),VV[0],4); |
|
719 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V143)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V143)); |
720 |
princ_str("]->s.s_dbind)",VV[34]); |
princ_str("])",VV[34]); |
721 |
{object V144 = Cnil; |
{object V144 = Cnil; |
722 |
VMR12(V144)} |
VMR12(V144)} |
723 |
goto T302; |
goto T305; |
724 |
T302:; |
T305:; |
725 |
V146= structure_ref((V122),VV[0],1); |
princ_str("(VV[",VV[34]); |
726 |
{object V145= /* INLINE-ARGS */V146; |
V145= structure_ref((V124),VV[0],4); |
727 |
if((V145!= VV[23]))goto T313; |
(void)((*(LnkLI77))(/* INLINE-ARGS */V145)); |
728 |
|
princ_str("]->s.s_dbind)",VV[34]); |
729 |
|
{object V146 = Cnil; |
730 |
|
VMR12(V146)} |
731 |
|
goto T303; |
732 |
|
T303:; |
733 |
|
V148= structure_ref((V124),VV[0],1); |
734 |
|
{object V147= /* INLINE-ARGS */V148; |
735 |
|
if((V147!= VV[23]))goto T314; |
736 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){ |
737 |
goto T314;} |
goto T315;} |
738 |
princ_str("CMP",VV[34]); |
princ_str("CMP",VV[34]); |
739 |
|
goto T315; |
740 |
|
T315:; |
741 |
|
princ_str("make_fixnum",VV[34]); |
742 |
|
goto T313; |
743 |
goto T314; |
goto T314; |
744 |
T314:; |
T314:; |
745 |
princ_str("make_fixnum",VV[34]); |
if((V147!= VV[24]))goto T320; |
|
goto T312; |
|
|
goto T313; |
|
|
T313:; |
|
|
if((V145!= VV[24]))goto T319; |
|
746 |
princ_str("make_integer",VV[34]); |
princ_str("make_integer",VV[34]); |
747 |
goto T312; |
goto T313; |
748 |
goto T319; |
goto T320; |
749 |
T319:; |
T320:; |
750 |
if((V145!= VV[25]))goto T321; |
if((V147!= VV[25]))goto T322; |
751 |
princ_str("code_char",VV[34]); |
princ_str("code_char",VV[34]); |
752 |
goto T312; |
goto T313; |
753 |
goto T321; |
goto T322; |
754 |
T321:; |
T322:; |
755 |
if((V145!= VV[26]))goto T323; |
if((V147!= VV[26]))goto T324; |
756 |
princ_str("make_longfloat",VV[34]); |
princ_str("make_longfloat",VV[34]); |
757 |
goto T312; |
goto T313; |
758 |
goto T323; |
goto T324; |
759 |
T323:; |
T324:; |
760 |
if((V145!= VV[27]))goto T325; |
if((V147!= VV[27]))goto T326; |
761 |
princ_str("make_shortfloat",VV[34]); |
princ_str("make_shortfloat",VV[34]); |
762 |
goto T312; |
goto T313; |
763 |
goto T325; |
goto T326; |
764 |
T325:; |
T326:; |
765 |
if((V145!= VV[7]))goto T327; |
if((V147!= VV[7]))goto T328; |
766 |
goto T312; |
goto T313; |
767 |
goto T327; |
goto T328; |
768 |
T327:; |
T328:; |
769 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
770 |
goto T312; |
goto T313; |
771 |
T312:; |
T313:; |
772 |
princ_str("(V",VV[34]); |
princ_str("(V",VV[34]); |
773 |
V147= structure_ref((V122),VV[0],4); |
V149= structure_ref((V124),VV[0],4); |
774 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V147)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V149)); |
775 |
princ_char(41,VV[34]); |
princ_char(41,VV[34]); |
776 |
{object V148 = Cnil; |
{object V150 = Cnil; |
777 |
VMR12(V148)}} |
VMR12(V150)}} |
778 |
return Cnil; |
return Cnil; |
779 |
} |
} |
780 |
/* local entry for function SET-VAR */ |
/* local entry for function SET-VAR */ |
781 |
|
|
782 |
static object LI13(V152,V153,V154) |
static object LI13(V154,V155,V156) |
783 |
|
|
784 |
register object V152;register object V153;object V154; |
register object V154;register object V155;object V156; |
785 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
786 |
bds_check; |
bds_check; |
787 |
goto TTL; |
goto TTL; |
788 |
TTL:; |
TTL:; |
789 |
if(!(type_of((V152))==t_cons)){ |
if(!(type_of((V154))==t_cons)){ |
|
goto T331;} |
|
|
if(!((car((V152)))==(VV[0]))){ |
|
|
goto T331;} |
|
|
if(!((cadr((V152)))==((V153)))){ |
|
|
goto T331;} |
|
|
if((caddr((V152)))==((V154))){ |
|
790 |
goto T332;} |
goto T332;} |
791 |
goto T331; |
if(!((car((V154)))==(VV[0]))){ |
792 |
T331:; |
goto T332;} |
793 |
V156= structure_ref((V153),VV[0],1); |
if(!((cadr((V154)))==((V155)))){ |
794 |
{object V155= /* INLINE-ARGS */V156; |
goto T332;} |
795 |
if((V155!= VV[9]))goto T340; |
if((caddr((V154)))==((V156))){ |
796 |
|
goto T333;} |
797 |
|
goto T332; |
798 |
|
T332:; |
799 |
|
V158= structure_ref((V155),VV[0],1); |
800 |
|
{object V157= /* INLINE-ARGS */V158; |
801 |
|
if((V157!= VV[9]))goto T341; |
802 |
princ_str("\n ",VV[34]); |
princ_str("\n ",VV[34]); |
803 |
if(((V154))==Cnil){ |
if(((V156))==Cnil){ |
804 |
goto T344;} |
goto T345;} |
805 |
V157= structure_ref((V153),VV[0],3); |
V159= structure_ref((V155),VV[0],3); |
806 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V157)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V159)); |
807 |
goto T342; |
goto T343; |
808 |
goto T344; |
goto T345; |
809 |
T344:; |
T345:; |
810 |
if((structure_ref((V153),VV[0],3))==Cnil){ |
if((structure_ref((V155),VV[0],3))==Cnil){ |
811 |
goto T347;} |
goto T348;} |
812 |
V158= structure_ref((V153),VV[0],2); |
V160= structure_ref((V155),VV[0],2); |
813 |
(void)((*(LnkLI81))(/* INLINE-ARGS */V158)); |
(void)((*(LnkLI81))(/* INLINE-ARGS */V160)); |
814 |
goto T342; |
goto T343; |
815 |
goto T347; |
goto T348; |
816 |
T347:; |
T348:; |
817 |
V159= structure_ref((V153),VV[0],2); |
V161= structure_ref((V155),VV[0],2); |
818 |
(void)((*(LnkLI82))(/* INLINE-ARGS */V159)); |
(void)((*(LnkLI82))(/* INLINE-ARGS */V161)); |
819 |
goto T342; |
goto T343; |
820 |
T342:; |
T343:; |
821 |
princ_str("= ",VV[34]); |
princ_str("= ",VV[34]); |
822 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
823 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
824 |
{object V160 = Cnil; |
{object V162 = Cnil; |
825 |
VMR13(V160)} |
VMR13(V162)} |
826 |
goto T340; |
goto T341; |
827 |
T340:; |
T341:; |
828 |
if((V155!= VV[4]))goto T352; |
if((V157!= VV[4]))goto T353; |
829 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
830 |
V161= structure_ref((V153),VV[0],4); |
V163= structure_ref((V155),VV[0],4); |
831 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V161)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V163)); |
832 |
princ_str("]->s.s_dbind)= ",VV[34]); |
princ_str("]->s.s_dbind)= ",VV[34]); |
833 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
834 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
835 |
{object V162 = Cnil; |
{object V164 = Cnil; |
836 |
VMR13(V162)} |
VMR13(V164)} |
837 |
goto T352; |
goto T353; |
838 |
T352:; |
T353:; |
839 |
if((V155!= VV[15]))goto T358; |
if((V157!= VV[15]))goto T359; |
840 |
if((symbol_value(VV[37]))==Cnil){ |
if((symbol_value(VV[37]))==Cnil){ |
841 |
goto T360;} |
goto T361;} |
842 |
princ_str("\n setq(VV[",VV[34]); |
princ_str("\n setq(VV[",VV[34]); |
843 |
V163= structure_ref((V153),VV[0],4); |
V165= structure_ref((V155),VV[0],4); |
844 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V163)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V165)); |
845 |
princ_str("],",VV[34]); |
princ_str("],",VV[34]); |
846 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
847 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
848 |
{object V164 = Cnil; |
{object V166 = Cnil; |
849 |
VMR13(V164)} |
VMR13(V166)} |
850 |
goto T360; |
goto T361; |
851 |
T360:; |
T361:; |
852 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
853 |
V165= structure_ref((V153),VV[0],4); |
V167= structure_ref((V155),VV[0],4); |
854 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V165)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V167)); |
855 |
princ_str("]->s.s_dbind)= ",VV[34]); |
princ_str("]->s.s_dbind)= ",VV[34]); |
856 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
857 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
858 |
{object V166 = Cnil; |
{object V168 = Cnil; |
859 |
VMR13(V166)} |
VMR13(V168)} |
860 |
goto T358; |
goto T359; |
861 |
T358:; |
T359:; |
862 |
if((V155!= VV[32]))goto T372; |
if((V157!= VV[32]))goto T373; |
863 |
princ_str("\n ",VV[34]); |
princ_str("\n ",VV[34]); |
864 |
V167= structure_ref((V153),VV[0],4); |
V169= structure_ref((V155),VV[0],4); |
865 |
(void)((*(LnkLI84))(/* INLINE-ARGS */V167)); |
(void)((*(LnkLI84))(/* INLINE-ARGS */V169)); |
866 |
princ_char(61,VV[34]); |
princ_char(61,VV[34]); |
867 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
868 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
869 |
{object V168 = Cnil; |
{object V170 = Cnil; |
870 |
VMR13(V168)} |
VMR13(V170)} |
871 |
goto T372; |
goto T373; |
872 |
T372:; |
T373:; |
873 |
if((V155!= VV[24]))goto T379; |
if((V157!= VV[24]))goto T380; |
874 |
{object V169; |
{object V171; |
875 |
register object V170; |
register object V172; |
876 |
if(type_of((V152))==t_cons){ |
if(type_of((V154))==t_cons){ |
877 |
goto T381;} |
goto T382;} |
878 |
V169= Cnil; |
V171= Cnil; |
879 |
goto T380; |
goto T381; |
880 |
|
goto T382; |
881 |
|
T382:; |
882 |
|
V171= car((V154)); |
883 |
goto T381; |
goto T381; |
884 |
T381:; |
T381:; |
885 |
V169= car((V152)); |
V172= structure_ref((V155),VV[0],4); |
886 |
goto T380; |
{object V173= (V171); |
887 |
T380:; |
if((V173!= VV[86]))goto T386; |
|
V170= structure_ref((V153),VV[0],4); |
|
|
{object V171= (V169); |
|
|
if((V171!= VV[86]))goto T385; |
|
888 |
princ_str("\n ISETQ_FIX(V",VV[34]); |
princ_str("\n ISETQ_FIX(V",VV[34]); |
889 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
890 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
891 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
892 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
893 |
base[0]= caddr((V152)); |
base[0]= caddr((V154)); |
894 |
base[1]= cadddr((V152)); |
base[1]= cadddr((V154)); |
895 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
896 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
897 |
vs_top=sup; |
vs_top=sup; |
898 |
goto T384; |
goto T385; |
899 |
goto T385; |
goto T386; |
900 |
T385:; |
T386:; |
901 |
if((V171!= VV[88]))goto T394; |
if((V173!= VV[88]))goto T395; |
902 |
princ_str("\n ISETQ_FIX(V",VV[34]); |
princ_str("\n ISETQ_FIX(V",VV[34]); |
903 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
904 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
905 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
906 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
907 |
(void)((*(LnkLI77))(caddr((V152)))); |
(void)((*(LnkLI77))(caddr((V154)))); |
908 |
goto T384; |
goto T385; |
909 |
goto T394; |
goto T395; |
910 |
T394:; |
T395:; |
911 |
if((V171!= VV[0]))goto T401; |
if((V173!= VV[0]))goto T402; |
912 |
V173= structure_ref(cadr((V152)),VV[0],1); |
V175= structure_ref(cadr((V154)),VV[0],1); |
913 |
{object V172= /* INLINE-ARGS */V173; |
{object V174= /* INLINE-ARGS */V175; |
914 |
if((V172!= VV[24]))goto T402; |
if((V174!= VV[24]))goto T403; |
915 |
princ_str("SETQ_II(V",VV[34]); |
princ_str("SETQ_II(V",VV[34]); |
916 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
917 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
918 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
919 |
princ_str("alloc,V",VV[34]); |
princ_str("alloc,V",VV[34]); |
920 |
V174= structure_ref(cadr((V152)),VV[0],4); |
V176= structure_ref(cadr((V154)),VV[0],4); |
921 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V174)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V176)); |
922 |
goto T384; |
goto T385; |
923 |
goto T402; |
goto T403; |
924 |
T402:; |
T403:; |
925 |
if((V172!= VV[23]))goto T409; |
if((V174!= VV[23]))goto T410; |
926 |
princ_str("ISETQ_FIX(V",VV[34]); |
princ_str("ISETQ_FIX(V",VV[34]); |
927 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
928 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
929 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
930 |
princ_str("alloc,V",VV[34]); |
princ_str("alloc,V",VV[34]); |
931 |
V175= structure_ref(cadr((V152)),VV[0],4); |
V177= structure_ref(cadr((V154)),VV[0],4); |
932 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V175)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V177)); |
933 |
goto T384; |
goto T385; |
934 |
goto T409; |
goto T410; |
935 |
T409:; |
T410:; |
936 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
937 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
938 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
939 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
940 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
941 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
942 |
goto T384;} |
goto T385;} |
943 |
goto T401; |
goto T402; |
944 |
T401:; |
T402:; |
945 |
if((V171!= VV[54]))goto T422; |
if((V173!= VV[54]))goto T423; |
946 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
947 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
948 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
949 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
950 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
951 |
(void)((*(LnkLI77))((V152))); |
(void)((*(LnkLI77))((V154))); |
952 |
goto T384; |
goto T385; |
953 |
goto T422; |
goto T423; |
954 |
T422:; |
T423:; |
955 |
bds_bind(VV[39],small_fixnum(0)); |
bds_bind(VV[39],small_fixnum(0)); |
956 |
bds_bind(VV[40],symbol_value(VV[40])); |
bds_bind(VV[40],symbol_value(VV[40])); |
957 |
base[2]= VV[41]; |
base[2]= VV[41]; |
959 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
960 |
vs_top=sup; |
vs_top=sup; |
961 |
princ_str("\n SETQ_II(V",VV[34]); |
princ_str("\n SETQ_II(V",VV[34]); |
962 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
963 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
964 |
(void)((*(LnkLI77))((V170))); |
(void)((*(LnkLI77))((V172))); |
965 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
966 |
base[2]= (V152); |
base[2]= (V154); |
967 |
base[3]= make_cons(VV[42],(V153)); |
base[3]= make_cons(VV[42],(V155)); |
968 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
969 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
970 |
vs_top=sup; |
vs_top=sup; |
971 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
972 |
V176= (*(LnkLI91))(); |
V178= (*(LnkLI91))(); |
973 |
bds_unwind1; |
bds_unwind1; |
974 |
bds_unwind1; |
bds_unwind1; |
975 |
{object V177 = Cnil; |
{object V179 = Cnil; |
976 |
VMR13(V177)}} |
VMR13(V179)}} |
977 |
goto T384; |
goto T385; |
978 |
T384:; |
T385:; |
979 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
980 |
{object V178 = Cnil; |
{object V180 = Cnil; |
981 |
VMR13(V178)}} |
VMR13(V180)}} |
982 |
goto T379; |
goto T380; |
983 |
T379:; |
T380:; |
984 |
princ_str("\n V",VV[34]); |
princ_str("\n V",VV[34]); |
985 |
V179= structure_ref((V153),VV[0],4); |
V181= structure_ref((V155),VV[0],4); |
986 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V179)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V181)); |
987 |
princ_str("= ",VV[34]); |
princ_str("= ",VV[34]); |
988 |
V181= structure_ref((V153),VV[0],1); |
V183= structure_ref((V155),VV[0],1); |
989 |
{object V180= /* INLINE-ARGS */V181; |
{object V182= /* INLINE-ARGS */V183; |
990 |
if((V180!= VV[23]))goto T449; |
if((V182!= VV[23]))goto T450; |
991 |
base[0]= (V152); |
base[0]= (V154); |
992 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
993 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
994 |
vs_top=sup; |
vs_top=sup; |
995 |
goto T448; |
goto T449; |
996 |
goto T449; |
goto T450; |
997 |
T449:; |
T450:; |
998 |
if((V180!= VV[25]))goto T451; |
if((V182!= VV[25]))goto T452; |
999 |
base[0]= (V152); |
base[0]= (V154); |
1000 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1001 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
1002 |
vs_top=sup; |
vs_top=sup; |
1003 |
goto T448; |
goto T449; |
1004 |
goto T451; |
goto T452; |
1005 |
T451:; |
T452:; |
1006 |
if((V180!= VV[26]))goto T453; |
if((V182!= VV[26]))goto T454; |
1007 |
base[0]= (V152); |
base[0]= (V154); |
1008 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1009 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
goto T448; |
goto T449; |
1012 |
goto T453; |
goto T454; |
1013 |
T453:; |
T454:; |
1014 |
if((V180!= VV[27]))goto T455; |
if((V182!= VV[27]))goto T456; |
1015 |
base[0]= (V152); |
base[0]= (V154); |
1016 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1017 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1018 |
vs_top=sup; |
vs_top=sup; |
1019 |
goto T448; |
goto T449; |
1020 |
goto T455; |
goto T456; |
1021 |
T455:; |
T456:; |
1022 |
if((V180!= VV[7]))goto T457; |
if((V182!= VV[7]))goto T458; |
1023 |
base[0]= (V152); |
base[0]= (V154); |
1024 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1025 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
1026 |
vs_top=sup; |
vs_top=sup; |
1027 |
goto T448; |
goto T449; |
1028 |
goto T457; |
goto T458; |
1029 |
T457:; |
T458:; |
1030 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
1031 |
goto T448; |
goto T449; |
1032 |
T448:; |
T449:; |
1033 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1034 |
{object V182 = Cnil; |
{object V184 = Cnil; |
1035 |
VMR13(V182)}} |
VMR13(V184)}} |
1036 |
goto T332; |
goto T333; |
1037 |
T332:; |
T333:; |
1038 |
{object V183 = Cnil; |
{object V185 = Cnil; |
1039 |
VMR13(V183)} |
VMR13(V185)} |
1040 |
base[0]=base[0]; |
base[0]=base[0]; |
1041 |
return Cnil; |
return Cnil; |
1042 |
} |
} |
1043 |
/* local entry for function SCH-GLOBAL */ |
/* local entry for function SCH-GLOBAL */ |
1044 |
|
|
1045 |
static object LI14(V185) |
static object LI14(V187) |
1046 |
|
|
1047 |
register object V185; |
register object V187; |
1048 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1049 |
goto TTL; |
goto TTL; |
1050 |
TTL:; |
TTL:; |
1051 |
{register object V186; |
{register object V188; |
1052 |
register object V187; |
register object V189; |
1053 |
V186= symbol_value(VV[18]); |
V188= symbol_value(VV[18]); |
1054 |
V187= car((V186)); |
V189= car((V188)); |
|
goto T463; |
|
|
T463:; |
|
|
if(!(endp_prop((V186)))){ |
|
|
goto T464;} |
|
|
{object V188 = Cnil; |
|
|
VMR14(V188)} |
|
1055 |
goto T464; |
goto T464; |
1056 |
T464:; |
T464:; |
1057 |
V189= structure_ref((V187),VV[0],0); |
if(!(endp_prop((V188)))){ |
1058 |
if(!((/* INLINE-ARGS */V189)==((V185)))){ |
goto T465;} |
1059 |
goto T468;} |
{object V190 = Cnil; |
|
{object V190 = (V187); |
|
1060 |
VMR14(V190)} |
VMR14(V190)} |
1061 |
goto T468; |
goto T465; |
1062 |
T468:; |
T465:; |
1063 |
V186= cdr((V186)); |
V191= structure_ref((V189),VV[0],0); |
1064 |
V187= car((V186)); |
if(!((/* INLINE-ARGS */V191)==((V187)))){ |
1065 |
goto T463;} |
goto T469;} |
1066 |
|
{object V192 = (V189); |
1067 |
|
VMR14(V192)} |
1068 |
|
goto T469; |
1069 |
|
T469:; |
1070 |
|
V188= cdr((V188)); |
1071 |
|
V189= car((V188)); |
1072 |
|
goto T464;} |
1073 |
base[0]=base[0]; |
base[0]=base[0]; |
1074 |
return Cnil; |
return Cnil; |
1075 |
} |
} |
1076 |
/* local entry for function C1ADD-GLOBALS */ |
/* local entry for function C1ADD-GLOBALS */ |
1077 |
|
|
1078 |
static object LI15(V192) |
static object LI15(V194) |
1079 |
|
|
1080 |
object V192; |
object V194; |
1081 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1082 |
goto TTL; |
goto TTL; |
1083 |
TTL:; |
TTL:; |
1084 |
{register object V193; |
{register object V195; |
1085 |
register object V194; |
register object V196; |
1086 |
V193= (V192); |
V195= (V194); |
1087 |
V194= car((V193)); |
V196= car((V195)); |
|
goto T479; |
|
|
T479:; |
|
|
if(!(endp_prop((V193)))){ |
|
|
goto T480;} |
|
|
{object V195 = Cnil; |
|
|
VMR15(V195)} |
|
1088 |
goto T480; |
goto T480; |
1089 |
T480:; |
T480:; |
1090 |
V196= (*(LnkLI68))((V194)); |
if(!(endp_prop((V195)))){ |
1091 |
|
goto T481;} |
1092 |
|
{object V197 = Cnil; |
1093 |
|
VMR15(V197)} |
1094 |
|
goto T481; |
1095 |
|
T481:; |
1096 |
{register object V198; |
{register object V198; |
1097 |
V198= get((V194),VV[5],Cnil); |
V199= (*(LnkLI68))((V196)); |
1098 |
if(((V198))==Cnil){ |
{register object V201; |
1099 |
goto T489;} |
V201= get((V196),VV[5],Cnil); |
1100 |
V197= (V198); |
if(((V201))==Cnil){ |
1101 |
goto T486; |
goto T490;} |
1102 |
goto T489; |
V200= (V201); |
1103 |
T489:; |
goto T487; |
1104 |
V197= Ct;} |
goto T490; |
1105 |
goto T486; |
T490:; |
1106 |
T486:; |
V200= Ct;} |
1107 |
V199= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V194),VV[14],VV[15],VV[16],/* INLINE-ARGS */V196,VV[17],V197)); |
goto T487; |
1108 |
setq(VV[13],make_cons(/* INLINE-ARGS */V199,symbol_value(VV[13]))); |
T487:; |
1109 |
V193= cdr((V193)); |
V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200)); |
1110 |
V194= car((V193)); |
setq(VV[13],make_cons((V198),symbol_value(VV[13])));} |
1111 |
goto T479;} |
V195= cdr((V195)); |
1112 |
|
V196= car((V195)); |
1113 |
|
goto T480;} |
1114 |
base[0]=base[0]; |
base[0]=base[0]; |
1115 |
return Cnil; |
return Cnil; |
1116 |
} |
} |
1117 |
/* local entry for function C1SETQ */ |
/* local entry for function C1SETQ */ |
1118 |
|
|
1119 |
static object LI16(V201) |
static object LI16(V203) |
1120 |
|
|
1121 |
register object V201; |
register object V203; |
1122 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1123 |
goto TTL; |
goto TTL; |
1124 |
TTL:; |
TTL:; |
1125 |
if(!(endp_prop((V201)))){ |
if(!(endp_prop((V203)))){ |
1126 |
goto T497;} |
goto T499;} |
1127 |
{object V202 = (*(LnkLI97))(); |
{object V204 = (*(LnkLI97))(); |
|
VMR16(V202)} |
|
|
goto T497; |
|
|
T497:; |
|
|
if(!(endp_prop(cdr((V201))))){ |
|
|
goto T500;} |
|
|
{object V203 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
|
|
VMR16(V203)} |
|
|
goto T500; |
|
|
T500:; |
|
|
if(!(endp_prop(cddr((V201))))){ |
|
|
goto T503;} |
|
|
{object V204 = (*(LnkLI99))(car((V201)),cadr((V201))); |
|
1128 |
VMR16(V204)} |
VMR16(V204)} |
1129 |
goto T503; |
goto T499; |
1130 |
T503:; |
T499:; |
1131 |
{register object V205; |
if(!(endp_prop(cdr((V203))))){ |
1132 |
register object V206; |
goto T502;} |
1133 |
V205= (V201); |
{object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
1134 |
V206= Cnil; |
VMR16(V205)} |
1135 |
goto T506; |
goto T502; |
1136 |
T506:; |
T502:; |
1137 |
if(!(endp_prop((V205)))){ |
if(!(endp_prop(cddr((V203))))){ |
1138 |
goto T507;} |
goto T505;} |
1139 |
V207= reverse((V206)); |
{object V206 = (*(LnkLI99))(car((V203)),cadr((V203))); |
1140 |
V208= make_cons(VV[44],/* INLINE-ARGS */V207); |
VMR16(V206)} |
1141 |
{object V209 = (*(LnkLI100))(/* INLINE-ARGS */V208); |
goto T505; |
1142 |
VMR16(V209)} |
T505:; |
1143 |
goto T507; |
{register object V207; |
1144 |
T507:; |
register object V208; |
1145 |
if(!(endp_prop(cdr((V205))))){ |
V207= (V203); |
1146 |
goto T511;} |
V208= Cnil; |
1147 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V205))))); |
goto T508; |
1148 |
goto T511; |
T508:; |
1149 |
T511:; |
if(!(endp_prop((V207)))){ |
1150 |
V210= list(3,VV[43],car((V205)),cadr((V205))); |
goto T509;} |
1151 |
V206= make_cons(/* INLINE-ARGS */V210,(V206)); |
V209= reverse((V208)); |
1152 |
V205= cddr((V205)); |
V210= make_cons(VV[44],/* INLINE-ARGS */V209); |
1153 |
goto T506;} |
{object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210); |
1154 |
|
VMR16(V211)} |
1155 |
|
goto T509; |
1156 |
|
T509:; |
1157 |
|
if(!(endp_prop(cdr((V207))))){ |
1158 |
|
goto T513;} |
1159 |
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207))))); |
1160 |
|
goto T513; |
1161 |
|
T513:; |
1162 |
|
{register object V212; |
1163 |
|
V212= list(3,VV[43],car((V207)),cadr((V207))); |
1164 |
|
V208= make_cons((V212),(V208));} |
1165 |
|
V207= cddr((V207)); |
1166 |
|
goto T508;} |
1167 |
|
base[0]=base[0]; |
1168 |
return Cnil; |
return Cnil; |
1169 |
} |
} |
1170 |
/* local entry for function C1SETQ1 */ |
/* local entry for function C1SETQ1 */ |
1171 |
|
|
1172 |
static object LI17(V213,V214) |
static object LI17(V215,V216) |
1173 |
|
|
1174 |
register object V213;object V214; |
register object V215;object V216; |
1175 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1176 |
goto TTL; |
goto TTL; |
1177 |
TTL:; |
TTL:; |
1178 |
{register object V215; |
{register object V217; |
|
register object V216; |
|
|
register object V217; |
|
1179 |
register object V218; |
register object V218; |
1180 |
V215= (VFUN_NARGS=0,(*(LnkLI71))()); |
register object V219; |
1181 |
V216= Cnil; |
register object V220; |
1182 |
V217= Cnil; |
V217= (VFUN_NARGS=0,(*(LnkLI71))()); |
1183 |
V218= Cnil; |
V218= Cnil; |
1184 |
if(type_of((V213))==t_symbol){ |
V219= Cnil; |
1185 |
goto T523;} |
V220= Cnil; |
1186 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V213)))); |
if(type_of((V215))==t_symbol){ |
1187 |
goto T523; |
goto T526;} |
1188 |
T523:; |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215)))); |
1189 |
base[1]= (V213); |
goto T526; |
1190 |
|
T526:; |
1191 |
|
base[1]= (V215); |
1192 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1193 |
Lconstantp(); |
Lconstantp(); |
1194 |
vs_top=sup; |
vs_top=sup; |
1195 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1196 |
goto T526;} |
goto T529;} |
1197 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V213)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215)))); |
1198 |
goto T526; |
goto T529; |
1199 |
T526:; |
T529:; |
1200 |
V218= (*(LnkLI72))((V213)); |
V220= (*(LnkLI72))((V215)); |
1201 |
{object V220; |
{object V221; |
1202 |
V221= car((V218)); |
object V223; |
1203 |
V222= structure_ref(V215,VV[12],0); |
V221= car((V220)); |
1204 |
V220= make_cons(/* INLINE-ARGS */V221,/* INLINE-ARGS */V222); |
V224= structure_ref(V217,VV[12],0); |
1205 |
(void)(structure_set(V215,VV[12],0,(V220)));} |
V223= make_cons((V221),/* INLINE-ARGS */V224); |
1206 |
V217= (*(LnkLI100))((V214)); |
(void)(structure_set(V217,VV[12],0,(V223)));} |
1207 |
(void)((*(LnkLI101))((V215),cadr((V217)))); |
V219= (*(LnkLI100))((V216)); |
1208 |
V223= structure_ref(car((V218)),VV[0],5); |
(void)((*(LnkLI101))((V217),cadr((V219)))); |
1209 |
V224= structure_ref(cadr((V217)),VV[12],2); |
V225= structure_ref(car((V220)),VV[0],5); |
1210 |
V216= (*(LnkLI102))(/* INLINE-ARGS */V223,/* INLINE-ARGS */V224); |
V226= structure_ref(cadr((V219)),VV[12],2); |
1211 |
if(((V216))!=Cnil){ |
V218= (*(LnkLI102))(/* INLINE-ARGS */V225,/* INLINE-ARGS */V226); |
1212 |
goto T539;} |
if(((V218))!=Cnil){ |
1213 |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V213),(V214)))); |
goto T543;} |
1214 |
goto T539; |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216)))); |
1215 |
T539:; |
goto T543; |
1216 |
V225= structure_ref(cadr((V217)),VV[12],2); |
T543:; |
1217 |
if(((V216))==(/* INLINE-ARGS */V225)){ |
V227= structure_ref(cadr((V219)),VV[12],2); |
1218 |
goto T542;} |
if(((V218))==(/* INLINE-ARGS */V227)){ |
1219 |
{object V226; |
goto T546;} |
1220 |
base[1]= cadr((V217)); |
{object V228; |
1221 |
|
base[1]= cadr((V219)); |
1222 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1223 |
(void) (*Lnk103)(); |
(void) (*Lnk103)(); |
1224 |
vs_top=sup; |
vs_top=sup; |
1225 |
V226= vs_base[0]; |
V228= vs_base[0]; |
1226 |
(void)(structure_set((V226),VV[12],2,(V216))); |
(void)(structure_set((V228),VV[12],2,(V218))); |
1227 |
V217= listA(3,car((V217)),(V226),cddr((V217)));} |
V219= listA(3,car((V219)),(V228),cddr((V219)));} |
1228 |
goto T542; |
goto T546; |
1229 |
T542:; |
T546:; |
1230 |
(void)(structure_set((V215),VV[12],2,(V216))); |
(void)(structure_set((V217),VV[12],2,(V218))); |
1231 |
{object V227 = list(4,VV[43],(V215),(V218),(V217)); |
{object V229 = list(4,VV[43],(V217),(V220),(V219)); |
1232 |
VMR17(V227)}} |
VMR17(V229)}} |
1233 |
base[0]=base[0]; |
base[0]=base[0]; |
1234 |
return Cnil; |
return Cnil; |
1235 |
} |
} |
1236 |
/* local entry for function C2SETQ */ |
/* local entry for function C2SETQ */ |
1237 |
|
|
1238 |
static object LI18(V230,V231) |
static object LI18(V232,V233) |
1239 |
|
|
1240 |
object V230;object V231; |
object V232;object V233; |
1241 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1242 |
bds_check; |
bds_check; |
1243 |
goto TTL; |
goto TTL; |
1244 |
TTL:; |
TTL:; |
1245 |
base[0]= make_cons(VV[0],(V230)); |
base[0]= make_cons(VV[0],(V232)); |
1246 |
bds_bind(VV[49],base[0]); |
bds_bind(VV[49],base[0]); |
1247 |
V232= (*(LnkLI104))((V231)); |
V234= (*(LnkLI104))((V233)); |
1248 |
bds_unwind1; |
bds_unwind1; |
1249 |
{object V233= car((V231)); |
{object V235= car((V233)); |
1250 |
if((V233!= VV[105]))goto T552; |
if((V235!= VV[105]))goto T556; |
1251 |
{object V234 = (*(LnkLI106))(caddr((V231))); |
{object V236 = (*(LnkLI106))(caddr((V233))); |
1252 |
VMR18(V234)} |
VMR18(V236)} |
1253 |
goto T552; |
goto T556; |
1254 |
T552:; |
T556:; |
1255 |
V235= make_cons(VV[0],(V230)); |
V237= make_cons(VV[0],(V232)); |
1256 |
{object V236 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V235)); |
{object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237)); |
1257 |
VMR18(V236)}} |
VMR18(V238)}} |
1258 |
base[0]=base[0]; |
base[0]=base[0]; |
1259 |
return Cnil; |
return Cnil; |
1260 |
} |
} |
1261 |
/* local entry for function C1PROGV */ |
/* local entry for function C1PROGV */ |
1262 |
|
|
1263 |
static object LI19(V238) |
static object LI19(V240) |
1264 |
|
|
1265 |
register object V238; |
register object V240; |
1266 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1267 |
goto TTL; |
goto TTL; |
1268 |
TTL:; |
TTL:; |
1269 |
{object V239; |
{object V241; |
1270 |
object V240; |
object V242; |
1271 |
register object V241; |
register object V243; |
1272 |
V239= Cnil; |
V241= Cnil; |
1273 |
V240= Cnil; |
V242= Cnil; |
1274 |
V241= (VFUN_NARGS=0,(*(LnkLI71))()); |
V243= (VFUN_NARGS=0,(*(LnkLI71))()); |
1275 |
if(endp_prop((V238))){ |
if(endp_prop((V240))){ |
1276 |
goto T557;} |
goto T561;} |
1277 |
if(!(endp_prop(cdr((V238))))){ |
if(!(endp_prop(cdr((V240))))){ |
1278 |
goto T556;} |
goto T560;} |
1279 |
goto T557; |
goto T561; |
1280 |
T557:; |
T561:; |
1281 |
V242 = make_fixnum((long)length((V238))); |
V244 = make_fixnum((long)length((V240))); |
1282 |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V242)); |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V244)); |
1283 |
goto T556; |
goto T560; |
1284 |
T556:; |
T560:; |
1285 |
V239= (*(LnkLI107))(car((V238)),(V241)); |
V241= (*(LnkLI107))(car((V240)),(V243)); |
1286 |
V240= (*(LnkLI107))(cadr((V238)),(V241)); |
V242= (*(LnkLI107))(cadr((V240)),(V243)); |
1287 |
{object V243 = list(5,VV[50],(V241),(V239),(V240),(*(LnkLI108))(cddr((V238)),(V241))); |
{object V245 = list(5,VV[50],(V243),(V241),(V242),(*(LnkLI108))(cddr((V240)),(V243))); |
1288 |
VMR19(V243)}} |
VMR19(V245)}} |
1289 |
base[0]=base[0]; |
base[0]=base[0]; |
1290 |
return Cnil; |
return Cnil; |
1291 |
} |
} |
1292 |
/* local entry for function C2PROGV */ |
/* local entry for function C2PROGV */ |
1293 |
|
|
1294 |
static object LI20(V247,V248,V249) |
static object LI20(V249,V250,V251) |
1295 |
|
|
1296 |
object V247;object V248;object V249; |
object V249;object V250;object V251; |
1297 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1298 |
bds_check; |
bds_check; |
1299 |
goto TTL; |
goto TTL; |
1300 |
TTL:; |
TTL:; |
1301 |
{object V250; |
{object V252; |
1302 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
1303 |
V250= symbol_value(VV[51]); |
V252= symbol_value(VV[51]); |
1304 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],symbol_value(VV[52])); |
1305 |
princ_str("\n {object symbols,values;",VV[34]); |
princ_str("\n {object symbols,values;",VV[34]); |
1306 |
princ_str("\n bds_ptr V",VV[34]); |
princ_str("\n bds_ptr V",VV[34]); |
1307 |
(void)((*(LnkLI77))((V250))); |
(void)((*(LnkLI77))((V252))); |
1308 |
princ_str("=bds_top;",VV[34]); |
princ_str("=bds_top;",VV[34]); |
1309 |
(VV[52]->s.s_dbind)= make_cons((V250),(VV[52]->s.s_dbind)); |
(VV[52]->s.s_dbind)= make_cons(V252,(VV[52]->s.s_dbind)); |
1310 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],symbol_value(VV[53])); |
1311 |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
1312 |
bds_bind(VV[49],base[3]); |
bds_bind(VV[49],base[3]); |
1313 |
(void)((*(LnkLI104))((V247))); |
(void)((*(LnkLI104))((V249))); |
1314 |
princ_str("\n symbols= ",VV[34]); |
princ_str("\n symbols= ",VV[34]); |
1315 |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
1316 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1317 |
bds_unwind1; |
bds_unwind1; |
1318 |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
1319 |
bds_bind(VV[49],base[3]); |
bds_bind(VV[49],base[3]); |
1320 |
(void)((*(LnkLI104))((V248))); |
(void)((*(LnkLI104))((V250))); |
1321 |
princ_str("\n values= ",VV[34]); |
princ_str("\n values= ",VV[34]); |
1322 |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
1323 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1324 |
bds_unwind1; |
bds_unwind1; |
1325 |
princ_str("\n while(!endp(symbols)){",VV[34]); |
princ_str("\n while(!endp(symbols)){",VV[34]); |
1326 |
if((symbol_value(VV[37]))==Cnil){ |
if((symbol_value(VV[37]))==Cnil){ |
1327 |
goto T590;} |
goto T594;} |
1328 |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
1329 |
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]); |
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]); |
1330 |
goto T590; |
goto T594; |
1331 |
T590:; |
T594:; |
1332 |
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]); |
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]); |
1333 |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
1334 |
princ_str("\n values=MMcdr(values);}",VV[34]); |
princ_str("\n values=MMcdr(values);}",VV[34]); |
1335 |
princ_str("\n symbols=MMcdr(symbols);}",VV[34]); |
princ_str("\n symbols=MMcdr(symbols);}",VV[34]); |
1336 |
bds_unwind1; |
bds_unwind1; |
1337 |
base[2]= (V249); |
base[2]= (V251); |
1338 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1339 |
(void) (*Lnk110)(); |
(void) (*Lnk110)(); |
1340 |
vs_top=sup; |
vs_top=sup; |
1341 |
princ_char(125,VV[34]); |
princ_char(125,VV[34]); |
1342 |
{object V251 = Cnil; |
{object V254 = Cnil; |
1343 |
bds_unwind1; |
bds_unwind1; |
1344 |
VMR20(V251)}} |
VMR20(V254)}} |
1345 |
base[0]=base[0]; |
base[0]=base[0]; |
1346 |
return Cnil; |
return Cnil; |
1347 |
} |
} |
1348 |
/* local entry for function C1PSETQ */ |
/* local entry for function C1PSETQ */ |
1349 |
|
|
1350 |
static object LI21(V253) |
static object LI21(V256) |
1351 |
|
|
1352 |
object V253; |
object V256; |
1353 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1354 |
goto TTL; |
goto TTL; |
1355 |
TTL:; |
TTL:; |
1356 |
{object V254; |
{object V257; |
1357 |
register object V255; |
register object V258; |
1358 |
object V256; |
object V259; |
1359 |
V254= Cnil; |
V257= Cnil; |
1360 |
V255= Cnil; |
V258= Cnil; |
1361 |
V256= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
1362 |
{register object V257; |
{register object V260; |
1363 |
V257= (V253); |
V260= (V256); |
1364 |
goto T611; |
goto T615; |
1365 |
T611:; |
T615:; |
1366 |
if(!(endp_prop((V257)))){ |
if(!(endp_prop((V260)))){ |
|
goto T612;} |
|
|
goto T609; |
|
|
goto T612; |
|
|
T612:; |
|
|
if(type_of(car((V257)))==t_symbol){ |
|
1367 |
goto T616;} |
goto T616;} |
1368 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V257))))); |
goto T613; |
1369 |
goto T616; |
goto T616; |
1370 |
T616:; |
T616:; |
1371 |
base[1]= car((V257)); |
if(type_of(car((V260)))==t_symbol){ |
1372 |
|
goto T620;} |
1373 |
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260))))); |
1374 |
|
goto T620; |
1375 |
|
T620:; |
1376 |
|
base[1]= car((V260)); |
1377 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1378 |
Lconstantp(); |
Lconstantp(); |
1379 |
vs_top=sup; |
vs_top=sup; |
1380 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
|
goto T619;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V257))))); |
|
|
goto T619; |
|
|
T619:; |
|
|
if(!(endp_prop(cdr((V257))))){ |
|
1381 |
goto T623;} |
goto T623;} |
1382 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V257))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260))))); |
1383 |
goto T623; |
goto T623; |
1384 |
T623:; |
T623:; |
1385 |
{register object V258; |
if(!(endp_prop(cdr((V260))))){ |
1386 |
register object V259; |
goto T627;} |
1387 |
register object V260; |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260))))); |
1388 |
V258= (*(LnkLI72))(car((V257))); |
goto T627; |
1389 |
V259= (*(LnkLI100))(cadr((V257))); |
T627:; |
1390 |
V261= structure_ref(car((V258)),VV[0],5); |
{register object V261; |
1391 |
V262= structure_ref(cadr((V259)),VV[12],2); |
register object V262; |
1392 |
V260= (*(LnkLI102))(/* INLINE-ARGS */V261,/* INLINE-ARGS */V262); |
register object V263; |
1393 |
V263= structure_ref(cadr((V259)),VV[12],2); |
V261= (*(LnkLI72))(car((V260))); |
1394 |
if(equal((V260),/* INLINE-ARGS */V263)){ |
V262= (*(LnkLI100))(cadr((V260))); |
1395 |
goto T630;} |
V264= structure_ref(car((V261)),VV[0],5); |
1396 |
{register object V264; |
V265= structure_ref(cadr((V262)),VV[12],2); |
1397 |
base[4]= cadr((V259)); |
V263= (*(LnkLI102))(/* INLINE-ARGS */V264,/* INLINE-ARGS */V265); |
1398 |
|
V266= structure_ref(cadr((V262)),VV[12],2); |
1399 |
|
if(equal((V263),/* INLINE-ARGS */V266)){ |
1400 |
|
goto T634;} |
1401 |
|
{register object V267; |
1402 |
|
base[4]= cadr((V262)); |
1403 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1404 |
(void) (*Lnk103)(); |
(void) (*Lnk103)(); |
1405 |
vs_top=sup; |
vs_top=sup; |
1406 |
V264= vs_base[0]; |
V267= vs_base[0]; |
1407 |
(void)(structure_set((V264),VV[12],2,(V260))); |
(void)(structure_set((V267),VV[12],2,(V263))); |
1408 |
V259= listA(3,car((V259)),(V264),cddr((V259)));} |
V262= listA(3,car((V262)),(V267),cddr((V262)));} |
1409 |
goto T630; |
goto T634; |
1410 |
T630:; |
T634:; |
1411 |
V254= make_cons((V258),(V254)); |
V257= make_cons(V261,(V257)); |
1412 |
V255= make_cons((V259),(V255)); |
V258= make_cons(V262,(V258)); |
1413 |
{register object V265; |
{object V270; |
1414 |
object V266; |
register object V271; |
1415 |
V265= (V256); |
object V272; |
1416 |
V267= car((V258)); |
V270= car((V261)); |
1417 |
V268= structure_ref((V265),VV[12],0); |
V271= (V259); |
1418 |
V266= make_cons(/* INLINE-ARGS */V267,/* INLINE-ARGS */V268); |
V273= structure_ref((V271),VV[12],0); |
1419 |
(void)(structure_set((V265),VV[12],0,(V266)));} |
V272= make_cons((V270),/* INLINE-ARGS */V273); |
1420 |
(void)((*(LnkLI101))((V256),cadar((V255))));} |
(void)(structure_set((V271),VV[12],0,(V272)));} |
1421 |
V257= cddr((V257)); |
(void)((*(LnkLI101))((V259),cadar((V258))));} |
1422 |
goto T611;} |
V260= cddr((V260)); |
1423 |
goto T609; |
goto T615;} |
1424 |
T609:; |
goto T613; |
1425 |
V269= reverse((V254)); |
T613:; |
1426 |
{object V270 = list(4,VV[59],(V256),/* INLINE-ARGS */V269,reverse((V255))); |
V274= reverse((V257)); |
1427 |
VMR21(V270)}} |
{object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258))); |
1428 |
|
VMR21(V275)}} |
1429 |
base[0]=base[0]; |
base[0]=base[0]; |
1430 |
return Cnil; |
return Cnil; |
1431 |
} |
} |
1432 |
/* local entry for function C2PSETQ */ |
/* local entry for function C2PSETQ */ |
1433 |
|
|
1434 |
static object LI22(V273,V274) |
static object LI22(V278,V279) |
1435 |
|
|
1436 |
object V273;register object V274; |
object V278;register object V279; |
1437 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1438 |
bds_check; |
bds_check; |
1439 |
goto TTL; |
goto TTL; |
1440 |
TTL:; |
TTL:; |
1441 |
{register object V275; |
{register object V280; |
1442 |
object V276; |
object V281; |
1443 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],symbol_value(VV[53])); |
1444 |
V275= Cnil; |
V280= Cnil; |
1445 |
V276= small_fixnum(0); |
V281= small_fixnum(0); |
1446 |
{register object V277; |
{register object V282; |
1447 |
register object V278; |
register object V283; |
1448 |
V277= (V273); |
V282= (V278); |
1449 |
V278= car((V277)); |
V283= car((V282)); |
1450 |
goto T653; |
goto T658; |
1451 |
T653:; |
T658:; |
1452 |
if(!(endp_prop((V277)))){ |
if(!(endp_prop((V282)))){ |
|
goto T654;} |
|
|
goto T649; |
|
|
goto T654; |
|
|
T654:; |
|
|
if(((*(LnkLI111))(car((V278)),cdr((V274))))!=Cnil){ |
|
1453 |
goto T659;} |
goto T659;} |
1454 |
if(((*(LnkLI112))(car((V278)),cdr((V274))))==Cnil){ |
goto T654; |
|
goto T660;} |
|
1455 |
goto T659; |
goto T659; |
1456 |
T659:; |
T659:; |
1457 |
{object V279= caar((V274)); |
if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){ |
1458 |
if((V279!= VV[105]))goto T664; |
goto T664;} |
1459 |
V280= make_cons((V278),caddar((V274))); |
if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){ |
1460 |
V275= make_cons(/* INLINE-ARGS */V280,(V275)); |
goto T665;} |
|
goto T658; |
|
1461 |
goto T664; |
goto T664; |
1462 |
T664:; |
T664:; |
1463 |
V282= structure_ref(car((V278)),VV[0],1); |
{object V284= caar((V279)); |
1464 |
{register object x= /* INLINE-ARGS */V282,V281= VV[60]; |
if((V284!= VV[105]))goto T669; |
1465 |
while(!endp(V281)) |
{object V285; |
1466 |
if(eql(x,V281->c.c_car)){ |
V285= make_cons((V283),caddar((V279))); |
1467 |
goto T668; |
V280= make_cons((V285),(V280)); |
1468 |
}else V281=V281->c.c_cdr; |
goto T663;} |
1469 |
goto T667;} |
goto T669; |
1470 |
goto T668; |
T669:; |
1471 |
T668:; |
V287= structure_ref(car((V283)),VV[0],1); |
1472 |
{object V283; |
{register object x= /* INLINE-ARGS */V287,V286= VV[60]; |
1473 |
object V284; |
while(!endp(V286)) |
1474 |
object V285; |
if(eql(x,V286->c.c_car)){ |
1475 |
V283= structure_ref(car((V278)),VV[0],1); |
goto T674; |
1476 |
|
}else V286=V286->c.c_cdr; |
1477 |
|
goto T673;} |
1478 |
|
goto T674; |
1479 |
|
T674:; |
1480 |
|
{object V288; |
1481 |
|
object V289; |
1482 |
|
object V290; |
1483 |
|
V288= structure_ref(car((V283)),VV[0],1); |
1484 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
1485 |
V284= symbol_value(VV[51]); |
V289= symbol_value(VV[51]); |
1486 |
V286= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V283),VV[16],(V284))); |
V291= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V288),VV[16],(V289))); |
1487 |
V285= list(3,VV[0],/* INLINE-ARGS */V286,Cnil); |
V290= list(3,VV[0],/* INLINE-ARGS */V291,Cnil); |
1488 |
princ_str("\n {",VV[34]); |
princ_str("\n {",VV[34]); |
1489 |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
1490 |
V287= (*(LnkLI113))((V283)); |
V292= (*(LnkLI113))((V288)); |
1491 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V287)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V292)); |
1492 |
princ_char(86,VV[34]); |
princ_char(86,VV[34]); |
1493 |
(void)((*(LnkLI77))((V284))); |
(void)((*(LnkLI77))((V289))); |
1494 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1495 |
V276= number_plus((V276),small_fixnum(1)); |
V281= number_plus((V281),small_fixnum(1)); |
1496 |
bds_bind(VV[49],(V285)); |
bds_bind(VV[49],(V290)); |
1497 |
V288= (*(LnkLI104))(car((V274))); |
V293= (*(LnkLI104))(car((V279))); |
1498 |
bds_unwind1; |
bds_unwind1; |
1499 |
V289= make_cons((V278),(V285)); |
{object V294; |
1500 |
V275= make_cons(/* INLINE-ARGS */V289,(V275)); |
V294= make_cons((V283),(V290)); |
1501 |
goto T658;} |
V280= make_cons((V294),(V280)); |
1502 |
goto T667; |
goto T663;}} |
1503 |
T667:; |
goto T673; |
1504 |
|
T673:; |
1505 |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
1506 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1507 |
(void)((*(LnkLI104))(car((V274)))); |
(void)((*(LnkLI104))(car((V279)))); |
1508 |
V290= make_cons((V278),(VV[49]->s.s_dbind)); |
{object V295; |
1509 |
V275= make_cons(/* INLINE-ARGS */V290,(V275)); |
V295= make_cons((V283),(VV[49]->s.s_dbind)); |
1510 |
|
V280= make_cons((V295),(V280)); |
1511 |
bds_unwind1; |
bds_unwind1; |
1512 |
goto T658;} |
goto T663;}} |
1513 |
goto T660; |
goto T665; |
1514 |
T660:; |
T665:; |
1515 |
base[2]= make_cons(VV[0],(V278)); |
base[2]= make_cons(VV[0],(V283)); |
1516 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1517 |
V291= (*(LnkLI104))(car((V274))); |
V296= (*(LnkLI104))(car((V279))); |
1518 |
bds_unwind1; |
bds_unwind1; |
1519 |
goto T658; |
goto T663; |
1520 |
T658:; |
T663:; |
1521 |
{object V292; |
{object V297; |
1522 |
V292= car((V274)); |
V297= car((V279)); |
1523 |
V274= cdr((V274));} |
V279= cdr((V279));} |
1524 |
V277= cdr((V277)); |
V282= cdr((V282)); |
1525 |
V278= car((V277)); |
V283= car((V282)); |
1526 |
goto T653;} |
goto T658;} |
1527 |
goto T649; |
goto T654; |
1528 |
T649:; |
T654:; |
1529 |
{register object V293; |
{register object V298; |
1530 |
register object V294; |
register object V299; |
1531 |
V293= (V275); |
V298= (V280); |
1532 |
V294= car((V293)); |
V299= car((V298)); |
1533 |
goto T701; |
goto T709; |
1534 |
T701:; |
T709:; |
1535 |
if(!(endp_prop((V293)))){ |
if(!(endp_prop((V298)))){ |
1536 |
goto T702;} |
goto T710;} |
1537 |
goto T697; |
goto T705; |
1538 |
goto T702; |
goto T710; |
1539 |
T702:; |
T710:; |
1540 |
(void)((*(LnkLI42))(cdr((V294)),caar((V294)),cadar((V294)))); |
(void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299)))); |
1541 |
V293= cdr((V293)); |
V298= cdr((V298)); |
1542 |
V294= car((V293)); |
V299= car((V298)); |
1543 |
goto T701;} |
goto T709;} |
1544 |
goto T697; |
goto T705; |
1545 |
T697:; |
T705:; |
1546 |
{object V296; |
{object V301; |
1547 |
V296= small_fixnum(0); |
V301= small_fixnum(0); |
1548 |
goto T715; |
goto T723; |
1549 |
T715:; |
T723:; |
1550 |
if(!(number_compare((V296),V276)>=0)){ |
if(!(number_compare((V301),V281)>=0)){ |
1551 |
goto T716;} |
goto T724;} |
1552 |
goto T712; |
goto T720; |
1553 |
goto T716; |
goto T724; |
1554 |
T716:; |
T724:; |
1555 |
princ_char(125,VV[34]); |
princ_char(125,VV[34]); |
1556 |
V296= one_plus((V296)); |
V301= one_plus((V301)); |
1557 |
goto T715;} |
goto T723;} |
1558 |
goto T712; |
goto T720; |
1559 |
T712:; |
T720:; |
1560 |
{object V297 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
{object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
1561 |
bds_unwind1; |
bds_unwind1; |
1562 |
VMR22(V297)}} |
VMR22(V302)}} |
1563 |
base[0]=base[0]; |
base[0]=base[0]; |
1564 |
return Cnil; |
return Cnil; |
1565 |
} |
} |
1569 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1570 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1571 |
vs_reserve(VM23); |
vs_reserve(VM23); |
1572 |
{register object V298; |
{register object V303; |
1573 |
check_arg(1); |
check_arg(1); |
1574 |
V298=(base[0]); |
V303=(base[0]); |
1575 |
vs_top=sup; |
vs_top=sup; |
1576 |
goto TTL; |
goto TTL; |
1577 |
TTL:; |
TTL:; |
1578 |
base[1]= (V298); |
base[1]= (V303); |
1579 |
base[2]= VV[0]; |
base[2]= VV[0]; |
1580 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1581 |
(void) (*Lnk114)(); |
(void) (*Lnk114)(); |
1582 |
vs_top=sup; |
vs_top=sup; |
1583 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1584 |
goto T726;} |
goto T734;} |
1585 |
{object V299; |
{object V304; |
1586 |
V299= structure_ref((V298),VV[0],4); |
V304= structure_ref((V303),VV[0],4); |
1587 |
V300= structure_ref((V298),VV[0],1); |
V305= structure_ref((V303),VV[0],1); |
1588 |
if(!((/* INLINE-ARGS */V300)==(VV[24]))){ |
if(!((/* INLINE-ARGS */V305)==(VV[24]))){ |
1589 |
goto T731;} |
goto T739;} |
1590 |
princ_str("IDECL(",VV[34]); |
princ_str("IDECL(",VV[34]); |
1591 |
goto T731; |
goto T739; |
1592 |
T731:; |
T739:; |
1593 |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
1594 |
V301= (*(LnkLI69))((V298)); |
V306= (*(LnkLI69))((V303)); |
1595 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V301)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V306)); |
1596 |
V302= structure_ref((V298),VV[0],1); |
V307= structure_ref((V303),VV[0],1); |
1597 |
V303= (*(LnkLI113))(/* INLINE-ARGS */V302); |
V308= (*(LnkLI113))(/* INLINE-ARGS */V307); |
1598 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V303)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V308)); |
1599 |
princ_char(86,VV[34]); |
princ_char(86,VV[34]); |
1600 |
(void)((*(LnkLI77))((V299))); |
(void)((*(LnkLI77))((V304))); |
1601 |
V304= structure_ref((V298),VV[0],1); |
V309= structure_ref((V303),VV[0],1); |
1602 |
if(!(eql(/* INLINE-ARGS */V304,VV[24]))){ |
if(!(eql(/* INLINE-ARGS */V309,VV[24]))){ |
1603 |
goto T741;} |
goto T749;} |
1604 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
1605 |
(void)((*(LnkLI77))((V299))); |
(void)((*(LnkLI77))((V304))); |
1606 |
princ_str("space,V",VV[34]); |
princ_str("space,V",VV[34]); |
1607 |
(void)((*(LnkLI77))((V299))); |
(void)((*(LnkLI77))((V304))); |
1608 |
princ_str("alloc)",VV[34]); |
princ_str("alloc)",VV[34]); |
1609 |
goto T741; |
goto T749; |
1610 |
T741:; |
T749:; |
1611 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1612 |
base[1]= Cnil; |
base[1]= Cnil; |
1613 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1614 |
return;} |
return;} |
1615 |
goto T726; |
goto T734; |
1616 |
T726:; |
T734:; |
1617 |
base[1]= (*(LnkLI79))(); |
base[1]= (*(LnkLI79))(); |
1618 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1619 |
return; |
return; |