1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "setf.h" |
#include "setf.h" |
4 |
init_setf(){do_init(VV);} |
void init_setf(){do_init(VV);} |
5 |
/* macro definition for DEFSETF */ |
/* macro definition for DEFSETF */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
25 |
vs_top=sup; |
vs_top=sup; |
26 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
27 |
goto T2;} |
goto T2;} |
28 |
|
goto T1; |
29 |
T1:; |
T1:; |
30 |
V2= list(2,VV[3],base[2]); |
V2= list(2,VV[3],base[2]); |
31 |
V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]); |
V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]); |
40 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
41 |
Lerror(); |
Lerror(); |
42 |
vs_top=sup; |
vs_top=sup; |
43 |
|
goto T13; |
44 |
T13:; |
T13:; |
45 |
if(endp(cddr(base[3]))){ |
if(endp(cddr(base[3]))){ |
46 |
goto T17;} |
goto T17;} |
48 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
49 |
Lerror(); |
Lerror(); |
50 |
vs_top=sup; |
vs_top=sup; |
51 |
|
goto T17; |
52 |
T17:; |
T17:; |
53 |
V7= cadr(base[3]); |
V7= cadr(base[3]); |
54 |
goto T9; |
goto T9; |
55 |
|
goto T11; |
56 |
T11:; |
T11:; |
57 |
V7= Cnil; |
V7= Cnil; |
58 |
|
goto T9; |
59 |
T9:; |
T9:; |
60 |
V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]); |
V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]); |
61 |
base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2])); |
base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2])); |
62 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
63 |
return; |
return; |
64 |
|
goto T2; |
65 |
T2:; |
T2:; |
66 |
base[4]= cadr(base[3]); |
base[4]= cadr(base[3]); |
67 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
74 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
75 |
Lerror(); |
Lerror(); |
76 |
vs_top=sup; |
vs_top=sup; |
77 |
|
goto T21; |
78 |
T21:; |
T21:; |
79 |
V10= list(2,VV[3],base[2]); |
V10= list(2,VV[3],base[2]); |
80 |
V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]); |
V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]); |
89 |
} |
} |
90 |
/* macro definition for DEFINE-SETF-METHOD */ |
/* macro definition for DEFINE-SETF-METHOD */ |
91 |
|
|
92 |
static L2() |
static void L2() |
93 |
{register object *base=vs_base; |
{register object *base=vs_base; |
94 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
95 |
vs_reserve(VM2); |
vs_reserve(VM2); |
121 |
goto T37;} |
goto T37;} |
122 |
base[4]= make_cons(base[5],base[4]); |
base[4]= make_cons(base[5],base[4]); |
123 |
goto T35; |
goto T35; |
124 |
|
goto T37; |
125 |
T37:; |
T37:; |
126 |
vs_base=vs_top; |
vs_base=vs_top; |
127 |
Lgensym(); |
Lgensym(); |
130 |
base[4]= make_cons(V18,base[4]); |
base[4]= make_cons(V18,base[4]); |
131 |
V19= list(2,VV[17],list(2,VV[18],car(base[4]))); |
V19= list(2,VV[17],list(2,VV[18],car(base[4]))); |
132 |
base[6]= make_cons(/* INLINE-ARGS */V19,base[6]); |
base[6]= make_cons(/* INLINE-ARGS */V19,base[6]); |
133 |
|
goto T35; |
134 |
T35:; |
T35:; |
135 |
V20= list(2,VV[3],base[2]); |
V20= list(2,VV[3],base[2]); |
136 |
V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]); |
V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]); |
145 |
} |
} |
146 |
/* function definition for GET-SETF-METHOD */ |
/* function definition for GET-SETF-METHOD */ |
147 |
|
|
148 |
static L3() |
static void L3() |
149 |
{register object *base=vs_base; |
{register object *base=vs_base; |
150 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
151 |
vs_reserve(VM3); |
vs_reserve(VM3); |
159 |
V28=(base[1]); |
V28=(base[1]); |
160 |
vs_top=sup; |
vs_top=sup; |
161 |
goto T45; |
goto T45; |
162 |
|
goto T44; |
163 |
T44:; |
T44:; |
164 |
V28= Cnil; |
V28= Cnil; |
165 |
|
goto T45; |
166 |
T45:; |
T45:; |
167 |
{object V29; |
{object V29; |
168 |
object V30; |
object V30; |
189 |
V33= vs_base[0]; |
V33= vs_base[0]; |
190 |
vs_top=sup; |
vs_top=sup; |
191 |
goto T55; |
goto T55; |
192 |
|
goto T50; |
193 |
T50:; |
T50:; |
194 |
V29= Cnil; |
V29= Cnil; |
195 |
|
goto T51; |
196 |
T51:; |
T51:; |
197 |
V30= Cnil; |
V30= Cnil; |
198 |
|
goto T52; |
199 |
T52:; |
T52:; |
200 |
V31= Cnil; |
V31= Cnil; |
201 |
|
goto T53; |
202 |
T53:; |
T53:; |
203 |
V32= Cnil; |
V32= Cnil; |
204 |
|
goto T54; |
205 |
T54:; |
T54:; |
206 |
V33= Cnil; |
V33= Cnil; |
207 |
|
goto T55; |
208 |
T55:; |
T55:; |
209 |
base[2]= (V31); |
base[2]= (V31); |
210 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
217 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
218 |
Lerror(); |
Lerror(); |
219 |
vs_top=sup; |
vs_top=sup; |
220 |
|
goto T56; |
221 |
T56:; |
T56:; |
222 |
base[2]= (V29); |
base[2]= (V29); |
223 |
base[3]= (V30); |
base[3]= (V30); |
230 |
} |
} |
231 |
/* function definition for GET-SETF-METHOD-MULTIPLE-VALUE */ |
/* function definition for GET-SETF-METHOD-MULTIPLE-VALUE */ |
232 |
|
|
233 |
static L4() |
static void L4() |
234 |
{register object *base=vs_base; |
{register object *base=vs_base; |
235 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
236 |
vs_reserve(VM4); |
vs_reserve(VM4); |
244 |
V36=(base[1]); |
V36=(base[1]); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
goto T68; |
goto T68; |
247 |
|
goto T67; |
248 |
T67:; |
T67:; |
249 |
V36= Cnil; |
V36= Cnil; |
250 |
|
goto T68; |
251 |
T68:; |
T68:; |
252 |
{register object V37; |
{register object V37; |
253 |
V37= Cnil; |
V37= Cnil; |
265 |
base[6]= (V35); |
base[6]= (V35); |
266 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
267 |
return;} |
return;} |
268 |
|
goto T72; |
269 |
T72:; |
T72:; |
270 |
if(!(type_of((V35))==t_cons)){ |
if(!(type_of((V35))==t_cons)){ |
271 |
goto T80;} |
goto T80;} |
272 |
if(type_of(car((V35)))==t_symbol){ |
if(type_of(car((V35)))==t_symbol){ |
273 |
goto T81;} |
goto T81;} |
274 |
|
goto T80; |
275 |
T80:; |
T80:; |
276 |
base[2]= VV[28]; |
base[2]= VV[28]; |
277 |
base[3]= (V35); |
base[3]= (V35); |
278 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
279 |
Lerror(); |
Lerror(); |
280 |
return; |
return; |
281 |
|
goto T81; |
282 |
T81:; |
T81:; |
283 |
if(((V36))==Cnil){ |
if(((V36))==Cnil){ |
284 |
goto T88;} |
goto T88;} |
289 |
goto T92; |
goto T92; |
290 |
}else V39=V39->c.c_cdr; |
}else V39=V39->c.c_cdr; |
291 |
V37= Cnil;} |
V37= Cnil;} |
292 |
|
goto T92; |
293 |
T92:; |
T92:; |
294 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
295 |
goto T88;} |
goto T88;} |
306 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
307 |
Lerror(); |
Lerror(); |
308 |
vs_top=sup; |
vs_top=sup; |
309 |
|
goto T97; |
310 |
T97:; |
T97:; |
311 |
base[2]= (V37); |
base[2]= (V37); |
312 |
base[3]= (V36); |
base[3]= (V36); |
313 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
314 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
315 |
return; |
return; |
316 |
|
goto T88; |
317 |
T88:; |
T88:; |
318 |
if((get(car((V35)),VV[30],Cnil))==Cnil){ |
if((get(car((V35)),VV[30],Cnil))==Cnil){ |
319 |
goto T105;} |
goto T105;} |
327 |
vs_base=base+3;} |
vs_base=base+3;} |
328 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
329 |
return; |
return; |
330 |
|
goto T105; |
331 |
T105:; |
T105:; |
332 |
if((get(car((V35)),VV[31],Cnil))!=Cnil){ |
if((get(car((V35)),VV[31],Cnil))!=Cnil){ |
333 |
goto T110;} |
goto T110;} |
334 |
V37= get(car((V35)),VV[32],Cnil); |
V37= get(car((V35)),VV[32],Cnil); |
335 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
336 |
goto T111;} |
goto T111;} |
337 |
|
goto T110; |
338 |
T110:; |
T110:; |
339 |
{register object V41; |
{register object V41; |
340 |
object V42; |
object V42; |
344 |
V41= Cnil; |
V41= Cnil; |
345 |
goto T116;} |
goto T116;} |
346 |
base[2]=V43=MMcons(Cnil,Cnil); |
base[2]=V43=MMcons(Cnil,Cnil); |
347 |
|
goto T117; |
348 |
T117:; |
T117:; |
349 |
vs_base=vs_top; |
vs_base=vs_top; |
350 |
Lgensym(); |
Lgensym(); |
355 |
goto T116;} |
goto T116;} |
356 |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
357 |
goto T117;} |
goto T117;} |
358 |
|
goto T116; |
359 |
T116:; |
T116:; |
360 |
vs_base=vs_top; |
vs_base=vs_top; |
361 |
Lgensym(); |
Lgensym(); |
368 |
goto T125;} |
goto T125;} |
369 |
base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42)); |
base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42)); |
370 |
goto T123; |
goto T123; |
371 |
|
goto T125; |
372 |
T125:; |
T125:; |
373 |
V46= get(car((V35)),VV[31],Cnil); |
V46= get(car((V35)),VV[31],Cnil); |
374 |
V47= make_cons((V42),Cnil); |
V47= make_cons((V42),Cnil); |
375 |
V48= append((V41),/* INLINE-ARGS */V47); |
V48= append((V41),/* INLINE-ARGS */V47); |
376 |
base[5]= make_cons(V46,/* INLINE-ARGS */V48); |
base[5]= make_cons(V46,/* INLINE-ARGS */V48); |
377 |
|
goto T123; |
378 |
T123:; |
T123:; |
379 |
base[6]= make_cons(car((V35)),(V41)); |
base[6]= make_cons(car((V35)),(V41)); |
380 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
381 |
return;} |
return;} |
382 |
|
goto T111; |
383 |
T111:; |
T111:; |
384 |
if((get(car((V35)),VV[33],Cnil))==Cnil){ |
if((get(car((V35)),VV[33],Cnil))==Cnil){ |
385 |
goto T130;} |
goto T130;} |
393 |
V49= Cnil; |
V49= Cnil; |
394 |
goto T132;} |
goto T132;} |
395 |
base[6]=V53=MMcons(Cnil,Cnil); |
base[6]=V53=MMcons(Cnil,Cnil); |
396 |
|
goto T133; |
397 |
T133:; |
T133:; |
398 |
vs_base=vs_top; |
vs_base=vs_top; |
399 |
Lgensym(); |
Lgensym(); |
404 |
goto T132;} |
goto T132;} |
405 |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
406 |
goto T133;} |
goto T133;} |
407 |
|
goto T132; |
408 |
T132:; |
T132:; |
409 |
vs_base=vs_top; |
vs_base=vs_top; |
410 |
Lgensym(); |
Lgensym(); |
434 |
base[10]= make_cons(car((V35)),(V49)); |
base[10]= make_cons(car((V35)),(V49)); |
435 |
vs_top=(vs_base=base+6)+5; |
vs_top=(vs_base=base+6)+5; |
436 |
return;} |
return;} |
437 |
|
goto T130; |
438 |
T130:; |
T130:; |
439 |
base[2]= car((V35)); |
base[2]= car((V35)); |
440 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
450 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
451 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
452 |
return; |
return; |
453 |
|
goto T148; |
454 |
T148:; |
T148:; |
455 |
base[2]= VV[34]; |
base[2]= VV[34]; |
456 |
base[3]= (V35); |
base[3]= (V35); |
461 |
} |
} |
462 |
/* macro definition for PUT-AUX */ |
/* macro definition for PUT-AUX */ |
463 |
|
|
464 |
static L5() |
static void L5() |
465 |
{register object *base=vs_base; |
{register object *base=vs_base; |
466 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
467 |
vs_reserve(VM5); |
vs_reserve(VM5); |
486 |
} |
} |
487 |
/* function definition for G1027 */ |
/* function definition for G1027 */ |
488 |
|
|
489 |
static L6() |
static void L6() |
490 |
{register object *base=vs_base; |
{register object *base=vs_base; |
491 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
492 |
vs_reserve(VM6); |
vs_reserve(VM6); |
504 |
V63=(base[3]); |
V63=(base[3]); |
505 |
vs_top=sup; |
vs_top=sup; |
506 |
goto T158; |
goto T158; |
507 |
|
goto T157; |
508 |
T157:; |
T157:; |
509 |
V63= Cnil; |
V63= Cnil; |
510 |
|
goto T158; |
511 |
T158:; |
T158:; |
512 |
{object V64; |
{object V64; |
513 |
object V65; |
object V65; |
534 |
V68= vs_base[0]; |
V68= vs_base[0]; |
535 |
vs_top=sup; |
vs_top=sup; |
536 |
goto T168; |
goto T168; |
537 |
|
goto T163; |
538 |
T163:; |
T163:; |
539 |
V64= Cnil; |
V64= Cnil; |
540 |
|
goto T164; |
541 |
T164:; |
T164:; |
542 |
V65= Cnil; |
V65= Cnil; |
543 |
|
goto T165; |
544 |
T165:; |
T165:; |
545 |
V66= Cnil; |
V66= Cnil; |
546 |
|
goto T166; |
547 |
T166:; |
T166:; |
548 |
V67= Cnil; |
V67= Cnil; |
549 |
|
goto T167; |
550 |
T167:; |
T167:; |
551 |
V68= Cnil; |
V68= Cnil; |
552 |
|
goto T168; |
553 |
T168:; |
T168:; |
554 |
{object V69; |
{object V69; |
555 |
object V70; |
object V70; |
576 |
} |
} |
577 |
/* function definition for G1029 */ |
/* function definition for G1029 */ |
578 |
|
|
579 |
static L7() |
static void L7() |
580 |
{register object *base=vs_base; |
{register object *base=vs_base; |
581 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
582 |
vs_reserve(VM7); |
vs_reserve(VM7); |
588 |
V76=(base[1]); |
V76=(base[1]); |
589 |
V77=(base[2]); |
V77=(base[2]); |
590 |
vs_top=sup; |
vs_top=sup; |
591 |
|
goto TTL; |
592 |
TTL:; |
TTL:; |
593 |
{object V78; |
{object V78; |
594 |
object V79; |
object V79; |
615 |
V82= vs_base[0]; |
V82= vs_base[0]; |
616 |
vs_top=sup; |
vs_top=sup; |
617 |
goto T184; |
goto T184; |
618 |
|
goto T179; |
619 |
T179:; |
T179:; |
620 |
V78= Cnil; |
V78= Cnil; |
621 |
|
goto T180; |
622 |
T180:; |
T180:; |
623 |
V79= Cnil; |
V79= Cnil; |
624 |
|
goto T181; |
625 |
T181:; |
T181:; |
626 |
V80= Cnil; |
V80= Cnil; |
627 |
|
goto T182; |
628 |
T182:; |
T182:; |
629 |
V81= Cnil; |
V81= Cnil; |
630 |
|
goto T183; |
631 |
T183:; |
T183:; |
632 |
V82= Cnil; |
V82= Cnil; |
633 |
|
goto T184; |
634 |
T184:; |
T184:; |
635 |
{object V83; |
{object V83; |
636 |
vs_base=vs_top; |
vs_base=vs_top; |
650 |
} |
} |
651 |
/* function definition for G1031 */ |
/* function definition for G1031 */ |
652 |
|
|
653 |
static L8() |
static void L8() |
654 |
{register object *base=vs_base; |
{register object *base=vs_base; |
655 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
656 |
vs_reserve(VM8); |
vs_reserve(VM8); |
672 |
goto T195;} |
goto T195;} |
673 |
if(!((car((V87)))==(VV[3]))){ |
if(!((car((V87)))==(VV[3]))){ |
674 |
goto T192;} |
goto T192;} |
675 |
|
goto T195; |
676 |
T195:; |
T195:; |
677 |
if(!(type_of(cadr((V87)))==t_symbol)){ |
if(!(type_of(cadr((V87)))==t_symbol)){ |
678 |
goto T192;} |
goto T192;} |
679 |
if((cddr((V87)))==Cnil){ |
if((cddr((V87)))==Cnil){ |
680 |
goto T191;} |
goto T191;} |
681 |
|
goto T192; |
682 |
T192:; |
T192:; |
683 |
base[3]= VV[40]; |
base[3]= VV[40]; |
684 |
base[4]= (V87); |
base[4]= (V87); |
685 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
686 |
Lerror(); |
Lerror(); |
687 |
vs_top=sup; |
vs_top=sup; |
688 |
|
goto T191; |
689 |
T191:; |
T191:; |
690 |
{register object V89; |
{register object V89; |
691 |
object V90; |
object V90; |
712 |
V93= vs_base[0]; |
V93= vs_base[0]; |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
goto T212; |
goto T212; |
715 |
|
goto T207; |
716 |
T207:; |
T207:; |
717 |
V89= Cnil; |
V89= Cnil; |
718 |
|
goto T208; |
719 |
T208:; |
T208:; |
720 |
V90= Cnil; |
V90= Cnil; |
721 |
|
goto T209; |
722 |
T209:; |
T209:; |
723 |
V91= Cnil; |
V91= Cnil; |
724 |
|
goto T210; |
725 |
T210:; |
T210:; |
726 |
V92= Cnil; |
V92= Cnil; |
727 |
|
goto T211; |
728 |
T211:; |
T211:; |
729 |
V93= Cnil; |
V93= Cnil; |
730 |
|
goto T212; |
731 |
T212:; |
T212:; |
732 |
base[3]= (V92); |
base[3]= (V92); |
733 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
749 |
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93))); |
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93))); |
750 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
751 |
return; |
return; |
752 |
|
goto T214; |
753 |
T214:; |
T214:; |
754 |
base[4]= (V92); |
base[4]= (V92); |
755 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
800 |
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93))); |
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93))); |
801 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
802 |
return; |
return; |
803 |
|
goto T226; |
804 |
T226:; |
T226:; |
805 |
base[3]= VV[44]; |
base[3]= VV[44]; |
806 |
base[4]= (V87); |
base[4]= (V87); |
811 |
} |
} |
812 |
/* function definition for G1032 */ |
/* function definition for G1032 */ |
813 |
|
|
814 |
static L9() |
static void L9() |
815 |
{register object *base=vs_base; |
{register object *base=vs_base; |
816 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
817 |
vs_reserve(VM9); |
vs_reserve(VM9); |
823 |
V109=(base[1]); |
V109=(base[1]); |
824 |
V110=(base[2]); |
V110=(base[2]); |
825 |
vs_top=sup; |
vs_top=sup; |
826 |
|
goto TTL; |
827 |
TTL:; |
TTL:; |
828 |
{object V111; |
{object V111; |
829 |
object V112; |
object V112; |
850 |
V115= vs_base[0]; |
V115= vs_base[0]; |
851 |
vs_top=sup; |
vs_top=sup; |
852 |
goto T256; |
goto T256; |
853 |
|
goto T251; |
854 |
T251:; |
T251:; |
855 |
V111= Cnil; |
V111= Cnil; |
856 |
|
goto T252; |
857 |
T252:; |
T252:; |
858 |
V112= Cnil; |
V112= Cnil; |
859 |
|
goto T253; |
860 |
T253:; |
T253:; |
861 |
V113= Cnil; |
V113= Cnil; |
862 |
|
goto T254; |
863 |
T254:; |
T254:; |
864 |
V114= Cnil; |
V114= Cnil; |
865 |
|
goto T255; |
866 |
T255:; |
T255:; |
867 |
V115= Cnil; |
V115= Cnil; |
868 |
|
goto T256; |
869 |
T256:; |
T256:; |
870 |
{object V116; |
{object V116; |
871 |
object V117; |
object V117; |
891 |
} |
} |
892 |
/* function definition for G1034 */ |
/* function definition for G1034 */ |
893 |
|
|
894 |
static L10() |
static void L10() |
895 |
{register object *base=vs_base; |
{register object *base=vs_base; |
896 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
897 |
vs_reserve(VM10); |
vs_reserve(VM10); |
903 |
V121=(base[1]); |
V121=(base[1]); |
904 |
V122=(base[2]); |
V122=(base[2]); |
905 |
vs_top=sup; |
vs_top=sup; |
906 |
|
goto TTL; |
907 |
TTL:; |
TTL:; |
908 |
{object V123; |
{object V123; |
909 |
object V124; |
object V124; |
930 |
V127= vs_base[0]; |
V127= vs_base[0]; |
931 |
vs_top=sup; |
vs_top=sup; |
932 |
goto T273; |
goto T273; |
933 |
|
goto T268; |
934 |
T268:; |
T268:; |
935 |
V123= Cnil; |
V123= Cnil; |
936 |
|
goto T269; |
937 |
T269:; |
T269:; |
938 |
V124= Cnil; |
V124= Cnil; |
939 |
|
goto T270; |
940 |
T270:; |
T270:; |
941 |
V125= Cnil; |
V125= Cnil; |
942 |
|
goto T271; |
943 |
T271:; |
T271:; |
944 |
V126= Cnil; |
V126= Cnil; |
945 |
|
goto T272; |
946 |
T272:; |
T272:; |
947 |
V127= Cnil; |
V127= Cnil; |
948 |
|
goto T273; |
949 |
T273:; |
T273:; |
950 |
{object V128; |
{object V128; |
951 |
object V129; |
object V129; |
971 |
} |
} |
972 |
/* function definition for G1036 */ |
/* function definition for G1036 */ |
973 |
|
|
974 |
static L11() |
static void L11() |
975 |
{register object *base=vs_base; |
{register object *base=vs_base; |
976 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
977 |
vs_reserve(VM11); |
vs_reserve(VM11); |
983 |
V133=(base[1]); |
V133=(base[1]); |
984 |
V134=(base[2]); |
V134=(base[2]); |
985 |
vs_top=sup; |
vs_top=sup; |
986 |
|
goto TTL; |
987 |
TTL:; |
TTL:; |
988 |
{object V135; |
{object V135; |
989 |
object V136; |
object V136; |
1010 |
V139= vs_base[0]; |
V139= vs_base[0]; |
1011 |
vs_top=sup; |
vs_top=sup; |
1012 |
goto T290; |
goto T290; |
1013 |
|
goto T285; |
1014 |
T285:; |
T285:; |
1015 |
V135= Cnil; |
V135= Cnil; |
1016 |
|
goto T286; |
1017 |
T286:; |
T286:; |
1018 |
V136= Cnil; |
V136= Cnil; |
1019 |
|
goto T287; |
1020 |
T287:; |
T287:; |
1021 |
V137= Cnil; |
V137= Cnil; |
1022 |
|
goto T288; |
1023 |
T288:; |
T288:; |
1024 |
V138= Cnil; |
V138= Cnil; |
1025 |
|
goto T289; |
1026 |
T289:; |
T289:; |
1027 |
V139= Cnil; |
V139= Cnil; |
1028 |
|
goto T290; |
1029 |
T290:; |
T290:; |
1030 |
{object V140; |
{object V140; |
1031 |
object V141; |
object V141; |
1055 |
|
|
1056 |
register object V147;register object V148;register object V149; |
register object V147;register object V148;register object V149; |
1057 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1058 |
|
goto TTL; |
1059 |
TTL:; |
TTL:; |
1060 |
{register object V150; |
{register object V150; |
1061 |
V150= Cnil; |
V150= Cnil; |
1068 |
V148= list(3,VV[39],cadr((V147)),(V148)); |
V148= list(3,VV[39],cadr((V147)),(V148)); |
1069 |
V147= (V151);} |
V147= (V151);} |
1070 |
goto TTL; |
goto TTL; |
1071 |
|
goto T300; |
1072 |
T300:; |
T300:; |
1073 |
if(!(type_of((V147))==t_symbol)){ |
if(!(type_of((V147))==t_symbol)){ |
1074 |
goto T309;} |
goto T309;} |
1075 |
{object V152 = list(3,VV[27],(V147),(V148)); |
{object V152 = list(3,VV[27],(V147),(V148)); |
1076 |
VMR12(V152)} |
VMR12(V152)} |
1077 |
|
goto T309; |
1078 |
T309:; |
T309:; |
1079 |
if(!(type_of((V147))==t_cons)){ |
if(!(type_of((V147))==t_cons)){ |
1080 |
goto T312;} |
goto T312;} |
1099 |
if(((V150))==Cnil){ |
if(((V150))==Cnil){ |
1100 |
goto T312;} |
goto T312;} |
1101 |
goto TTL; |
goto TTL; |
1102 |
|
goto T312; |
1103 |
T312:; |
T312:; |
1104 |
if(!(type_of(car((V147)))==t_symbol)){ |
if(!(type_of(car((V147)))==t_symbol)){ |
1105 |
goto T329;} |
goto T329;} |
1111 |
V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154); |
V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154); |
1112 |
{object V156 = make_cons((V150),/* INLINE-ARGS */V155); |
{object V156 = make_cons((V150),/* INLINE-ARGS */V155); |
1113 |
VMR12(V156)} |
VMR12(V156)} |
1114 |
|
goto T329; |
1115 |
T329:; |
T329:; |
1116 |
if(!(type_of(car((V147)))==t_symbol)){ |
if(!(type_of(car((V147)))==t_symbol)){ |
1117 |
goto T335;} |
goto T335;} |
1120 |
goto T335;} |
goto T335;} |
1121 |
{object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148)); |
{object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148)); |
1122 |
VMR12(V157)} |
VMR12(V157)} |
1123 |
|
goto T335; |
1124 |
T335:; |
T335:; |
1125 |
{object V158; |
{object V158; |
1126 |
object V159; |
object V159; |
1147 |
V162= vs_base[0]; |
V162= vs_base[0]; |
1148 |
vs_top=sup; |
vs_top=sup; |
1149 |
goto T349; |
goto T349; |
1150 |
|
goto T344; |
1151 |
T344:; |
T344:; |
1152 |
V158= Cnil; |
V158= Cnil; |
1153 |
|
goto T345; |
1154 |
T345:; |
T345:; |
1155 |
V159= Cnil; |
V159= Cnil; |
1156 |
|
goto T346; |
1157 |
T346:; |
T346:; |
1158 |
V160= Cnil; |
V160= Cnil; |
1159 |
|
goto T347; |
1160 |
T347:; |
T347:; |
1161 |
V161= Cnil; |
V161= Cnil; |
1162 |
|
goto T348; |
1163 |
T348:; |
T348:; |
1164 |
V162= Cnil; |
V162= Cnil; |
1165 |
|
goto T349; |
1166 |
T349:; |
T349:; |
1167 |
V167= append((V158),(V160)); |
V167= append((V158),(V160)); |
1168 |
V168= make_cons((V148),Cnil); |
V168= make_cons((V148),Cnil); |
1174 |
V163= Cnil; |
V163= Cnil; |
1175 |
goto T350;} |
goto T350;} |
1176 |
base[0]=V164=MMcons(Cnil,Cnil); |
base[0]=V164=MMcons(Cnil,Cnil); |
1177 |
|
goto T351; |
1178 |
T351:; |
T351:; |
1179 |
(V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car)); |
(V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car)); |
1180 |
if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){ |
if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){ |
1182 |
goto T350;} |
goto T350;} |
1183 |
V164=MMcdr(V164)=MMcons(Cnil,Cnil); |
V164=MMcdr(V164)=MMcons(Cnil,Cnil); |
1184 |
goto T351;} |
goto T351;} |
1185 |
|
goto T350; |
1186 |
T350:; |
T350:; |
1187 |
{object V170 = list(3,VV[51],V163,(V161)); |
{object V170 = list(3,VV[51],V163,(V161)); |
1188 |
VMR12(V170)}}} |
VMR12(V170)}}} |
1189 |
|
base[0]=base[0]; |
1190 |
|
return Cnil; |
1191 |
} |
} |
1192 |
/* local entry for function SETF-STRUCTURE-ACCESS */ |
/* local entry for function SETF-STRUCTURE-ACCESS */ |
1193 |
|
|
1195 |
|
|
1196 |
object V175;object V176;object V177;object V178; |
object V175;object V176;object V177;object V178; |
1197 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1198 |
|
goto TTL; |
1199 |
TTL:; |
TTL:; |
1200 |
{object V179= (V176); |
{object V179= (V176); |
1201 |
if((V179!= VV[43]))goto T353; |
if((V179!= VV[43]))goto T353; |
1202 |
{object V180 = list(4,VV[52],(V175),(V177),(V178)); |
{object V180 = list(4,VV[52],(V175),(V177),(V178)); |
1203 |
VMR13(V180)} |
VMR13(V180)} |
1204 |
|
goto T353; |
1205 |
T353:; |
T353:; |
1206 |
if((V179!= VV[98]))goto T354; |
if((V179!= VV[98]))goto T354; |
1207 |
{object V181 = list(4,VV[53],(V175),(V177),(V178)); |
{object V181 = list(4,VV[53],(V175),(V177),(V178)); |
1208 |
VMR13(V181)} |
VMR13(V181)} |
1209 |
|
goto T354; |
1210 |
T354:; |
T354:; |
1211 |
{object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178)); |
{object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178)); |
1212 |
VMR13(V182)}} |
VMR13(V182)}} |
1213 |
|
return Cnil; |
1214 |
} |
} |
1215 |
/* local entry for function SETF-EXPAND */ |
/* local entry for function SETF-EXPAND */ |
1216 |
|
|
1218 |
|
|
1219 |
register object V185;object V186; |
register object V185;object V186; |
1220 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1221 |
|
goto TTL; |
1222 |
TTL:; |
TTL:; |
1223 |
if(!(endp((V185)))){ |
if(!(endp((V185)))){ |
1224 |
goto T356;} |
goto T356;} |
1225 |
{object V187 = Cnil; |
{object V187 = Cnil; |
1226 |
VMR14(V187)} |
VMR14(V187)} |
1227 |
|
goto T356; |
1228 |
T356:; |
T356:; |
1229 |
if(!(endp(cdr((V185))))){ |
if(!(endp(cdr((V185))))){ |
1230 |
goto T359;} |
goto T359;} |
1235 |
vs_top=sup; |
vs_top=sup; |
1236 |
{object V188 = vs_base[0]; |
{object V188 = vs_base[0]; |
1237 |
VMR14(V188)} |
VMR14(V188)} |
1238 |
|
goto T359; |
1239 |
T359:; |
T359:; |
1240 |
V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186)); |
V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186)); |
1241 |
V190= (*(LnkLI100))(cddr((V185)),(V186)); |
V190= (*(LnkLI100))(cddr((V185)),(V186)); |
1242 |
{object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190); |
{object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190); |
1243 |
VMR14(V191)} |
VMR14(V191)} |
1244 |
|
base[0]=base[0]; |
1245 |
|
return Cnil; |
1246 |
} |
} |
1247 |
/* local entry for function SETF-HELPER */ |
/* local entry for function SETF-HELPER */ |
1248 |
|
|
1250 |
|
|
1251 |
register object V194;object V195; |
register object V194;object V195; |
1252 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1253 |
|
goto TTL; |
1254 |
TTL:; |
TTL:; |
1255 |
V194= cdr((V194)); |
V194= cdr((V194)); |
1256 |
if(!(endp((V194)))){ |
if(!(endp((V194)))){ |
1257 |
goto T366;} |
goto T366;} |
1258 |
{object V196 = Cnil; |
{object V196 = Cnil; |
1259 |
VMR15(V196)} |
VMR15(V196)} |
1260 |
|
goto T366; |
1261 |
T366:; |
T366:; |
1262 |
if(!(endp(cdr((V194))))){ |
if(!(endp(cdr((V194))))){ |
1263 |
goto T369;} |
goto T369;} |
1268 |
vs_top=sup; |
vs_top=sup; |
1269 |
{object V197 = vs_base[0]; |
{object V197 = vs_base[0]; |
1270 |
VMR15(V197)} |
VMR15(V197)} |
1271 |
|
goto T369; |
1272 |
T369:; |
T369:; |
1273 |
if(!(endp(cddr((V194))))){ |
if(!(endp(cddr((V194))))){ |
1274 |
goto T374;} |
goto T374;} |
1275 |
{object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195)); |
{object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195)); |
1276 |
VMR15(V198)} |
VMR15(V198)} |
1277 |
|
goto T374; |
1278 |
T374:; |
T374:; |
1279 |
V199= (*(LnkLI100))((V194),(V195)); |
V199= (*(LnkLI100))((V194),(V195)); |
1280 |
{object V200 = make_cons(VV[57],/* INLINE-ARGS */V199); |
{object V200 = make_cons(VV[57],/* INLINE-ARGS */V199); |
1281 |
VMR15(V200)} |
VMR15(V200)} |
1282 |
|
base[0]=base[0]; |
1283 |
|
return Cnil; |
1284 |
} |
} |
1285 |
/* macro definition for PSETF */ |
/* macro definition for PSETF */ |
1286 |
|
|
1287 |
static L16() |
static void L16() |
1288 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1289 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1290 |
vs_reserve(VM16); |
vs_reserve(VM16); |
1297 |
base[3]= Cnil; |
base[3]= Cnil; |
1298 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1299 |
return; |
return; |
1300 |
|
goto T377; |
1301 |
T377:; |
T377:; |
1302 |
if(!(endp(cdr(base[2])))){ |
if(!(endp(cdr(base[2])))){ |
1303 |
goto T380;} |
goto T380;} |
1306 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1307 |
Lerror(); |
Lerror(); |
1308 |
return; |
return; |
1309 |
|
goto T380; |
1310 |
T380:; |
T380:; |
1311 |
if(!(endp(cddr(base[2])))){ |
if(!(endp(cddr(base[2])))){ |
1312 |
goto T385;} |
goto T385;} |
1314 |
base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil); |
base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil); |
1315 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1316 |
return; |
return; |
1317 |
|
goto T385; |
1318 |
T385:; |
T385:; |
1319 |
{register object V203; |
{register object V203; |
1320 |
register object V204; |
register object V204; |
1322 |
V203= base[2]; |
V203= base[2]; |
1323 |
V204= Cnil; |
V204= Cnil; |
1324 |
V205= Cnil; |
V205= Cnil; |
1325 |
|
goto T388; |
1326 |
T388:; |
T388:; |
1327 |
if(!(endp((V203)))){ |
if(!(endp((V203)))){ |
1328 |
goto T389;} |
goto T389;} |
1330 |
base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59])); |
base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59])); |
1331 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1332 |
return; |
return; |
1333 |
|
goto T389; |
1334 |
T389:; |
T389:; |
1335 |
if(!(endp(cdr((V203))))){ |
if(!(endp(cdr((V203))))){ |
1336 |
goto T393;} |
goto T393;} |
1339 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1340 |
Lerror(); |
Lerror(); |
1341 |
vs_top=sup; |
vs_top=sup; |
1342 |
|
goto T393; |
1343 |
T393:; |
T393:; |
1344 |
{register object V207; |
{register object V207; |
1345 |
register object V208; |
register object V208; |
1366 |
V211= vs_base[0]; |
V211= vs_base[0]; |
1367 |
vs_top=sup; |
vs_top=sup; |
1368 |
goto T407; |
goto T407; |
1369 |
|
goto T402; |
1370 |
T402:; |
T402:; |
1371 |
V207= Cnil; |
V207= Cnil; |
1372 |
|
goto T403; |
1373 |
T403:; |
T403:; |
1374 |
V208= Cnil; |
V208= Cnil; |
1375 |
|
goto T404; |
1376 |
T404:; |
T404:; |
1377 |
V209= Cnil; |
V209= Cnil; |
1378 |
|
goto T405; |
1379 |
T405:; |
T405:; |
1380 |
V210= Cnil; |
V210= Cnil; |
1381 |
|
goto T406; |
1382 |
T406:; |
T406:; |
1383 |
V211= Cnil; |
V211= Cnil; |
1384 |
|
goto T407; |
1385 |
T407:; |
T407:; |
1386 |
V205= make_cons((V210),(V205)); |
V205= make_cons((V210),(V205)); |
1387 |
V216= append((V207),(V209)); |
V216= append((V207),(V209)); |
1394 |
V212= Cnil; |
V212= Cnil; |
1395 |
goto T411;} |
goto T411;} |
1396 |
base[3]=V213=MMcons(Cnil,Cnil); |
base[3]=V213=MMcons(Cnil,Cnil); |
1397 |
|
goto T412; |
1398 |
T412:; |
T412:; |
1399 |
(V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car)); |
(V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car)); |
1400 |
if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){ |
if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){ |
1402 |
goto T411;} |
goto T411;} |
1403 |
V213=MMcdr(V213)=MMcons(Cnil,Cnil); |
V213=MMcdr(V213)=MMcons(Cnil,Cnil); |
1404 |
goto T412;} |
goto T412;} |
1405 |
|
goto T411; |
1406 |
T411:; |
T411:; |
1407 |
V204= nconc((V204),V212);} |
V204= nconc((V204),V212);} |
1408 |
V203= cddr((V203)); |
V203= cddr((V203)); |
1410 |
} |
} |
1411 |
/* macro definition for SHIFTF */ |
/* macro definition for SHIFTF */ |
1412 |
|
|
1413 |
static L17() |
static void L17() |
1414 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1415 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1416 |
vs_reserve(VM17); |
vs_reserve(VM17); |
1433 |
V222= Cnil; |
V222= Cnil; |
1434 |
V223= Cnil; |
V223= Cnil; |
1435 |
V225= Cnil; |
V225= Cnil; |
1436 |
|
goto T419; |
1437 |
T419:; |
T419:; |
1438 |
if(!(endp(cdr((V220))))){ |
if(!(endp(cdr((V220))))){ |
1439 |
goto T420;} |
goto T420;} |
1450 |
base[5]= Cnil; |
base[5]= Cnil; |
1451 |
goto T432;} |
goto T432;} |
1452 |
base[6]=V228=MMcons(Cnil,Cnil); |
base[6]=V228=MMcons(Cnil,Cnil); |
1453 |
|
goto T433; |
1454 |
T433:; |
T433:; |
1455 |
(V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car)); |
(V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car)); |
1456 |
if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){ |
if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){ |
1458 |
goto T432;} |
goto T432;} |
1459 |
V228=MMcdr(V228)=MMcons(Cnil,Cnil); |
V228=MMcdr(V228)=MMcons(Cnil,Cnil); |
1460 |
goto T433;} |
goto T433;} |
1461 |
|
goto T432; |
1462 |
T432:; |
T432:; |
1463 |
base[7]= (V222); |
base[7]= (V222); |
1464 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1475 |
base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233)); |
base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233)); |
1476 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1477 |
return; |
return; |
1478 |
|
goto T420; |
1479 |
T420:; |
T420:; |
1480 |
{register object V234; |
{register object V234; |
1481 |
register object V235; |
register object V235; |
1502 |
V238= vs_base[0]; |
V238= vs_base[0]; |
1503 |
vs_top=sup; |
vs_top=sup; |
1504 |
goto T448; |
goto T448; |
1505 |
|
goto T443; |
1506 |
T443:; |
T443:; |
1507 |
V234= Cnil; |
V234= Cnil; |
1508 |
|
goto T444; |
1509 |
T444:; |
T444:; |
1510 |
V235= Cnil; |
V235= Cnil; |
1511 |
|
goto T445; |
1512 |
T445:; |
T445:; |
1513 |
V236= Cnil; |
V236= Cnil; |
1514 |
|
goto T446; |
1515 |
T446:; |
T446:; |
1516 |
V237= Cnil; |
V237= Cnil; |
1517 |
|
goto T447; |
1518 |
T447:; |
T447:; |
1519 |
V238= Cnil; |
V238= Cnil; |
1520 |
|
goto T448; |
1521 |
T448:; |
T448:; |
1522 |
{object V240; |
{object V240; |
1523 |
object V241= (V234); |
object V241= (V234); |
1526 |
V239= Cnil; |
V239= Cnil; |
1527 |
goto T451;} |
goto T451;} |
1528 |
base[3]=V240=MMcons(Cnil,Cnil); |
base[3]=V240=MMcons(Cnil,Cnil); |
1529 |
|
goto T452; |
1530 |
T452:; |
T452:; |
1531 |
(V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car)); |
(V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car)); |
1532 |
if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){ |
if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){ |
1534 |
goto T451;} |
goto T451;} |
1535 |
V240=MMcdr(V240)=MMcons(Cnil,Cnil); |
V240=MMcdr(V240)=MMcons(Cnil,Cnil); |
1536 |
goto T452;} |
goto T452;} |
1537 |
|
goto T451; |
1538 |
T451:; |
T451:; |
1539 |
V221= nconc((V221),V239); |
V221= nconc((V221),V239); |
1540 |
V222= make_cons(car((V236)),(V222)); |
V222= make_cons(car((V236)),(V222)); |
1545 |
} |
} |
1546 |
/* macro definition for ROTATEF */ |
/* macro definition for ROTATEF */ |
1547 |
|
|
1548 |
static L18() |
static void L18() |
1549 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1550 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1551 |
vs_reserve(VM18); |
vs_reserve(VM18); |
1563 |
V246= Cnil; |
V246= Cnil; |
1564 |
V247= Cnil; |
V247= Cnil; |
1565 |
V248= Cnil; |
V248= Cnil; |
1566 |
|
goto T463; |
1567 |
T463:; |
T463:; |
1568 |
if(!(endp((V244)))){ |
if(!(endp((V244)))){ |
1569 |
goto T464;} |
goto T464;} |
1578 |
base[4]= Cnil; |
base[4]= Cnil; |
1579 |
goto T475;} |
goto T475;} |
1580 |
base[5]=V250=MMcons(Cnil,Cnil); |
base[5]=V250=MMcons(Cnil,Cnil); |
1581 |
|
goto T476; |
1582 |
T476:; |
T476:; |
1583 |
(V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car)); |
(V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car)); |
1584 |
if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){ |
if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){ |
1586 |
goto T475;} |
goto T475;} |
1587 |
V250=MMcdr(V250)=MMcons(Cnil,Cnil); |
V250=MMcdr(V250)=MMcons(Cnil,Cnil); |
1588 |
goto T476;} |
goto T476;} |
1589 |
|
goto T475; |
1590 |
T475:; |
T475:; |
1591 |
base[6]= (V246); |
base[6]= (V246); |
1592 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1602 |
base[3]= listA(3,VV[51],V249,append((V247),VV[61])); |
base[3]= listA(3,VV[51],V249,append((V247),VV[61])); |
1603 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1604 |
return; |
return; |
1605 |
|
goto T464; |
1606 |
T464:; |
T464:; |
1607 |
{register object V255; |
{register object V255; |
1608 |
register object V256; |
register object V256; |
1629 |
V259= vs_base[0]; |
V259= vs_base[0]; |
1630 |
vs_top=sup; |
vs_top=sup; |
1631 |
goto T491; |
goto T491; |
1632 |
|
goto T486; |
1633 |
T486:; |
T486:; |
1634 |
V255= Cnil; |
V255= Cnil; |
1635 |
|
goto T487; |
1636 |
T487:; |
T487:; |
1637 |
V256= Cnil; |
V256= Cnil; |
1638 |
|
goto T488; |
1639 |
T488:; |
T488:; |
1640 |
V257= Cnil; |
V257= Cnil; |
1641 |
|
goto T489; |
1642 |
T489:; |
T489:; |
1643 |
V258= Cnil; |
V258= Cnil; |
1644 |
|
goto T490; |
1645 |
T490:; |
T490:; |
1646 |
V259= Cnil; |
V259= Cnil; |
1647 |
|
goto T491; |
1648 |
T491:; |
T491:; |
1649 |
{object V261; |
{object V261; |
1650 |
object V262= (V255); |
object V262= (V255); |
1653 |
V260= Cnil; |
V260= Cnil; |
1654 |
goto T494;} |
goto T494;} |
1655 |
base[3]=V261=MMcons(Cnil,Cnil); |
base[3]=V261=MMcons(Cnil,Cnil); |
1656 |
|
goto T495; |
1657 |
T495:; |
T495:; |
1658 |
(V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car)); |
(V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car)); |
1659 |
if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){ |
if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){ |
1661 |
goto T494;} |
goto T494;} |
1662 |
V261=MMcdr(V261)=MMcons(Cnil,Cnil); |
V261=MMcdr(V261)=MMcons(Cnil,Cnil); |
1663 |
goto T495;} |
goto T495;} |
1664 |
|
goto T494; |
1665 |
T494:; |
T494:; |
1666 |
V245= nconc((V245),V260); |
V245= nconc((V245),V260); |
1667 |
V246= make_cons(car((V257)),(V246)); |
V246= make_cons(car((V257)),(V246)); |
1672 |
} |
} |
1673 |
/* macro definition for DEFINE-MODIFY-MACRO */ |
/* macro definition for DEFINE-MODIFY-MACRO */ |
1674 |
|
|
1675 |
static L19() |
static void L19() |
1676 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1677 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1678 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1699 |
register object V267; |
register object V267; |
1700 |
V266= base[3]; |
V266= base[3]; |
1701 |
V267= Cnil; |
V267= Cnil; |
1702 |
|
goto T508; |
1703 |
T508:; |
T508:; |
1704 |
if(((V266))!=Cnil){ |
if(((V266))!=Cnil){ |
1705 |
goto T509;} |
goto T509;} |
1706 |
V268= list(2,VV[3],base[4]); |
V268= list(2,VV[3],base[4]); |
1707 |
V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267))); |
V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267))); |
1708 |
goto T506; |
goto T506; |
1709 |
|
goto T509; |
1710 |
T509:; |
T509:; |
1711 |
if((car((V266)))==(VV[63])){ |
if((car((V266)))==(VV[63])){ |
1712 |
goto T513;} |
goto T513;} |
1717 |
V271= make_cons(cadr((V266)),Cnil); |
V271= make_cons(cadr((V266)),Cnil); |
1718 |
V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271)); |
V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271)); |
1719 |
goto T506; |
goto T506; |
1720 |
|
goto T516; |
1721 |
T516:; |
T516:; |
1722 |
if(!(type_of(car((V266)))==t_symbol)){ |
if(!(type_of(car((V266)))==t_symbol)){ |
1723 |
goto T520;} |
goto T520;} |
1724 |
V267= make_cons(car((V266)),(V267)); |
V267= make_cons(car((V266)),(V267)); |
1725 |
goto T513; |
goto T513; |
1726 |
|
goto T520; |
1727 |
T520:; |
T520:; |
1728 |
V267= make_cons(caar((V266)),(V267)); |
V267= make_cons(caar((V266)),(V267)); |
1729 |
|
goto T513; |
1730 |
T513:; |
T513:; |
1731 |
V266= cdr((V266)); |
V266= cdr((V266)); |
1732 |
goto T508;} |
goto T508;} |
1733 |
|
goto T506; |
1734 |
T506:; |
T506:; |
1735 |
V272= listA(4,VV[67],VV[68],VV[69],base[3]); |
V272= listA(4,VV[67],VV[68],VV[69],base[3]); |
1736 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
1737 |
goto T529;} |
goto T529;} |
1738 |
V273= make_cons(base[5],Cnil); |
V273= make_cons(base[5],Cnil); |
1739 |
goto T527; |
goto T527; |
1740 |
|
goto T529; |
1741 |
T529:; |
T529:; |
1742 |
V273= Cnil; |
V273= Cnil; |
1743 |
|
goto T527; |
1744 |
T527:; |
T527:; |
1745 |
V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265))))); |
V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265))))); |
1746 |
V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83]))); |
V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83]))); |
1750 |
} |
} |
1751 |
/* macro definition for REMF */ |
/* macro definition for REMF */ |
1752 |
|
|
1753 |
static L20() |
static void L20() |
1754 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1755 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1756 |
vs_reserve(VM20); |
vs_reserve(VM20); |
1789 |
V281= vs_base[0]; |
V281= vs_base[0]; |
1790 |
vs_top=sup; |
vs_top=sup; |
1791 |
goto T539; |
goto T539; |
1792 |
|
goto T534; |
1793 |
T534:; |
T534:; |
1794 |
V277= Cnil; |
V277= Cnil; |
1795 |
|
goto T535; |
1796 |
T535:; |
T535:; |
1797 |
V278= Cnil; |
V278= Cnil; |
1798 |
|
goto T536; |
1799 |
T536:; |
T536:; |
1800 |
V279= Cnil; |
V279= Cnil; |
1801 |
|
goto T537; |
1802 |
T537:; |
T537:; |
1803 |
V280= Cnil; |
V280= Cnil; |
1804 |
|
goto T538; |
1805 |
T538:; |
T538:; |
1806 |
V281= Cnil; |
V281= Cnil; |
1807 |
|
goto T539; |
1808 |
T539:; |
T539:; |
1809 |
{object V283; |
{object V283; |
1810 |
object V284= (V277); |
object V284= (V277); |
1813 |
V282= Cnil; |
V282= Cnil; |
1814 |
goto T540;} |
goto T540;} |
1815 |
base[4]=V283=MMcons(Cnil,Cnil); |
base[4]=V283=MMcons(Cnil,Cnil); |
1816 |
|
goto T541; |
1817 |
T541:; |
T541:; |
1818 |
(V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car)); |
(V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car)); |
1819 |
if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){ |
if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){ |
1821 |
goto T540;} |
goto T540;} |
1822 |
V283=MMcdr(V283)=MMcons(Cnil,Cnil); |
V283=MMcdr(V283)=MMcons(Cnil,Cnil); |
1823 |
goto T541;} |
goto T541;} |
1824 |
|
goto T540; |
1825 |
T540:; |
T540:; |
1826 |
V286= list(2,car((V279)),VV[84]); |
V286= list(2,car((V279)),VV[84]); |
1827 |
base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84])); |
base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84])); |
1830 |
} |
} |
1831 |
/* macro definition for INCF */ |
/* macro definition for INCF */ |
1832 |
|
|
1833 |
static L21() |
static void L21() |
1834 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1835 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1836 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1851 |
base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3])); |
base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3])); |
1852 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1853 |
return; |
return; |
1854 |
|
goto T544; |
1855 |
T544:; |
T544:; |
1856 |
{object V289; |
{object V289; |
1857 |
object V290; |
object V290; |
1878 |
V293= vs_base[0]; |
V293= vs_base[0]; |
1879 |
vs_top=sup; |
vs_top=sup; |
1880 |
goto T555; |
goto T555; |
1881 |
|
goto T550; |
1882 |
T550:; |
T550:; |
1883 |
V289= Cnil; |
V289= Cnil; |
1884 |
|
goto T551; |
1885 |
T551:; |
T551:; |
1886 |
V290= Cnil; |
V290= Cnil; |
1887 |
|
goto T552; |
1888 |
T552:; |
T552:; |
1889 |
V291= Cnil; |
V291= Cnil; |
1890 |
|
goto T553; |
1891 |
T553:; |
T553:; |
1892 |
V292= Cnil; |
V292= Cnil; |
1893 |
|
goto T554; |
1894 |
T554:; |
T554:; |
1895 |
V293= Cnil; |
V293= Cnil; |
1896 |
|
goto T555; |
1897 |
T555:; |
T555:; |
1898 |
V298= append((V289),(V291)); |
V298= append((V289),(V291)); |
1899 |
V299= list(3,VV[86],(V293),base[3]); |
V299= list(3,VV[86],(V293),base[3]); |
1906 |
V294= Cnil; |
V294= Cnil; |
1907 |
goto T556;} |
goto T556;} |
1908 |
base[4]=V295=MMcons(Cnil,Cnil); |
base[4]=V295=MMcons(Cnil,Cnil); |
1909 |
|
goto T557; |
1910 |
T557:; |
T557:; |
1911 |
(V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car)); |
(V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car)); |
1912 |
if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){ |
if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){ |
1914 |
goto T556;} |
goto T556;} |
1915 |
V295=MMcdr(V295)=MMcons(Cnil,Cnil); |
V295=MMcdr(V295)=MMcons(Cnil,Cnil); |
1916 |
goto T557;} |
goto T557;} |
1917 |
|
goto T556; |
1918 |
T556:; |
T556:; |
1919 |
base[4]= list(3,VV[51],V294,(V292)); |
base[4]= list(3,VV[51],V294,(V292)); |
1920 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1922 |
} |
} |
1923 |
/* macro definition for DECF */ |
/* macro definition for DECF */ |
1924 |
|
|
1925 |
static L22() |
static void L22() |
1926 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1927 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1928 |
vs_reserve(VM22); |
vs_reserve(VM22); |
1943 |
base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3])); |
base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3])); |
1944 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1945 |
return; |
return; |
1946 |
|
goto T560; |
1947 |
T560:; |
T560:; |
1948 |
{object V304; |
{object V304; |
1949 |
object V305; |
object V305; |
1970 |
V308= vs_base[0]; |
V308= vs_base[0]; |
1971 |
vs_top=sup; |
vs_top=sup; |
1972 |
goto T571; |
goto T571; |
1973 |
|
goto T566; |
1974 |
T566:; |
T566:; |
1975 |
V304= Cnil; |
V304= Cnil; |
1976 |
|
goto T567; |
1977 |
T567:; |
T567:; |
1978 |
V305= Cnil; |
V305= Cnil; |
1979 |
|
goto T568; |
1980 |
T568:; |
T568:; |
1981 |
V306= Cnil; |
V306= Cnil; |
1982 |
|
goto T569; |
1983 |
T569:; |
T569:; |
1984 |
V307= Cnil; |
V307= Cnil; |
1985 |
|
goto T570; |
1986 |
T570:; |
T570:; |
1987 |
V308= Cnil; |
V308= Cnil; |
1988 |
|
goto T571; |
1989 |
T571:; |
T571:; |
1990 |
V313= append((V304),(V306)); |
V313= append((V304),(V306)); |
1991 |
V314= list(3,VV[87],(V308),base[3]); |
V314= list(3,VV[87],(V308),base[3]); |
1998 |
V309= Cnil; |
V309= Cnil; |
1999 |
goto T572;} |
goto T572;} |
2000 |
base[4]=V310=MMcons(Cnil,Cnil); |
base[4]=V310=MMcons(Cnil,Cnil); |
2001 |
|
goto T573; |
2002 |
T573:; |
T573:; |
2003 |
(V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car)); |
(V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car)); |
2004 |
if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){ |
if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){ |
2006 |
goto T572;} |
goto T572;} |
2007 |
V310=MMcdr(V310)=MMcons(Cnil,Cnil); |
V310=MMcdr(V310)=MMcons(Cnil,Cnil); |
2008 |
goto T573;} |
goto T573;} |
2009 |
|
goto T572; |
2010 |
T572:; |
T572:; |
2011 |
base[4]= list(3,VV[51],V309,(V307)); |
base[4]= list(3,VV[51],V309,(V307)); |
2012 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2014 |
} |
} |
2015 |
/* macro definition for PUSH */ |
/* macro definition for PUSH */ |
2016 |
|
|
2017 |
static L23() |
static void L23() |
2018 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2019 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
2020 |
vs_reserve(VM23); |
vs_reserve(VM23); |
2033 |
base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3])); |
base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3])); |
2034 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2035 |
return; |
return; |
2036 |
|
goto T575; |
2037 |
T575:; |
T575:; |
2038 |
{object V318; |
{object V318; |
2039 |
object V319; |
object V319; |
2060 |
V322= vs_base[0]; |
V322= vs_base[0]; |
2061 |
vs_top=sup; |
vs_top=sup; |
2062 |
goto T586; |
goto T586; |
2063 |
|
goto T581; |
2064 |
T581:; |
T581:; |
2065 |
V318= Cnil; |
V318= Cnil; |
2066 |
|
goto T582; |
2067 |
T582:; |
T582:; |
2068 |
V319= Cnil; |
V319= Cnil; |
2069 |
|
goto T583; |
2070 |
T583:; |
T583:; |
2071 |
V320= Cnil; |
V320= Cnil; |
2072 |
|
goto T584; |
2073 |
T584:; |
T584:; |
2074 |
V321= Cnil; |
V321= Cnil; |
2075 |
|
goto T585; |
2076 |
T585:; |
T585:; |
2077 |
V322= Cnil; |
V322= Cnil; |
2078 |
|
goto T586; |
2079 |
T586:; |
T586:; |
2080 |
V327= append((V318),(V320)); |
V327= append((V318),(V320)); |
2081 |
V328= list(3,VV[88],base[2],(V322)); |
V328= list(3,VV[88],base[2],(V322)); |
2088 |
V323= Cnil; |
V323= Cnil; |
2089 |
goto T587;} |
goto T587;} |
2090 |
base[4]=V324=MMcons(Cnil,Cnil); |
base[4]=V324=MMcons(Cnil,Cnil); |
2091 |
|
goto T588; |
2092 |
T588:; |
T588:; |
2093 |
(V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car)); |
(V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car)); |
2094 |
if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){ |
if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){ |
2096 |
goto T587;} |
goto T587;} |
2097 |
V324=MMcdr(V324)=MMcons(Cnil,Cnil); |
V324=MMcdr(V324)=MMcons(Cnil,Cnil); |
2098 |
goto T588;} |
goto T588;} |
2099 |
|
goto T587; |
2100 |
T587:; |
T587:; |
2101 |
base[4]= list(3,VV[51],V323,(V321)); |
base[4]= list(3,VV[51],V323,(V321)); |
2102 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2104 |
} |
} |
2105 |
/* macro definition for PUSHNEW */ |
/* macro definition for PUSHNEW */ |
2106 |
|
|
2107 |
static L24() |
static void L24() |
2108 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2109 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
2110 |
vs_reserve(VM24); |
vs_reserve(VM24); |
2123 |
base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4])); |
base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4])); |
2124 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2125 |
return; |
return; |
2126 |
|
goto T590; |
2127 |
T590:; |
T590:; |
2128 |
{object V332; |
{object V332; |
2129 |
object V333; |
object V333; |
2150 |
V336= vs_base[0]; |
V336= vs_base[0]; |
2151 |
vs_top=sup; |
vs_top=sup; |
2152 |
goto T601; |
goto T601; |
2153 |
|
goto T596; |
2154 |
T596:; |
T596:; |
2155 |
V332= Cnil; |
V332= Cnil; |
2156 |
|
goto T597; |
2157 |
T597:; |
T597:; |
2158 |
V333= Cnil; |
V333= Cnil; |
2159 |
|
goto T598; |
2160 |
T598:; |
T598:; |
2161 |
V334= Cnil; |
V334= Cnil; |
2162 |
|
goto T599; |
2163 |
T599:; |
T599:; |
2164 |
V335= Cnil; |
V335= Cnil; |
2165 |
|
goto T600; |
2166 |
T600:; |
T600:; |
2167 |
V336= Cnil; |
V336= Cnil; |
2168 |
|
goto T601; |
2169 |
T601:; |
T601:; |
2170 |
V341= append((V332),(V334)); |
V341= append((V332),(V334)); |
2171 |
V342= listA(4,VV[89],base[2],(V336),base[4]); |
V342= listA(4,VV[89],base[2],(V336),base[4]); |
2178 |
V337= Cnil; |
V337= Cnil; |
2179 |
goto T602;} |
goto T602;} |
2180 |
base[5]=V338=MMcons(Cnil,Cnil); |
base[5]=V338=MMcons(Cnil,Cnil); |
2181 |
|
goto T603; |
2182 |
T603:; |
T603:; |
2183 |
(V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car)); |
(V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car)); |
2184 |
if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){ |
if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){ |
2186 |
goto T602;} |
goto T602;} |
2187 |
V338=MMcdr(V338)=MMcons(Cnil,Cnil); |
V338=MMcdr(V338)=MMcons(Cnil,Cnil); |
2188 |
goto T603;} |
goto T603;} |
2189 |
|
goto T602; |
2190 |
T602:; |
T602:; |
2191 |
base[5]= list(3,VV[51],V337,(V335)); |
base[5]= list(3,VV[51],V337,(V335)); |
2192 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2194 |
} |
} |
2195 |
/* macro definition for POP */ |
/* macro definition for POP */ |
2196 |
|
|
2197 |
static L25() |
static void L25() |
2198 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2199 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
2200 |
vs_reserve(VM25); |
vs_reserve(VM25); |
2217 |
base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346)); |
base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346)); |
2218 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2219 |
return;} |
return;} |
2220 |
|
goto T605; |
2221 |
T605:; |
T605:; |
2222 |
{object V349; |
{object V349; |
2223 |
object V350; |
object V350; |
2244 |
V353= vs_base[0]; |
V353= vs_base[0]; |
2245 |
vs_top=sup; |
vs_top=sup; |
2246 |
goto T617; |
goto T617; |
2247 |
|
goto T612; |
2248 |
T612:; |
T612:; |
2249 |
V349= Cnil; |
V349= Cnil; |
2250 |
|
goto T613; |
2251 |
T613:; |
T613:; |
2252 |
V350= Cnil; |
V350= Cnil; |
2253 |
|
goto T614; |
2254 |
T614:; |
T614:; |
2255 |
V351= Cnil; |
V351= Cnil; |
2256 |
|
goto T615; |
2257 |
T615:; |
T615:; |
2258 |
V352= Cnil; |
V352= Cnil; |
2259 |
|
goto T616; |
2260 |
T616:; |
T616:; |
2261 |
V353= Cnil; |
V353= Cnil; |
2262 |
|
goto T617; |
2263 |
T617:; |
T617:; |
2264 |
V358= append((V349),(V351)); |
V358= append((V349),(V351)); |
2265 |
V359= list(2,VV[91],(V353)); |
V359= list(2,VV[91],(V353)); |
2272 |
V354= Cnil; |
V354= Cnil; |
2273 |
goto T618;} |
goto T618;} |
2274 |
base[3]=V355=MMcons(Cnil,Cnil); |
base[3]=V355=MMcons(Cnil,Cnil); |
2275 |
|
goto T619; |
2276 |
T619:; |
T619:; |
2277 |
(V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car)); |
(V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car)); |
2278 |
if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){ |
if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){ |
2280 |
goto T618;} |
goto T618;} |
2281 |
V355=MMcdr(V355)=MMcons(Cnil,Cnil); |
V355=MMcdr(V355)=MMcons(Cnil,Cnil); |
2282 |
goto T619;} |
goto T619;} |
2283 |
|
goto T618; |
2284 |
T618:; |
T618:; |
2285 |
base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352))); |
base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352))); |
2286 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2287 |
return;} |
return;} |
2288 |
} |
} |
2289 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* SETF-EXPAND */ |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* SETF-EXPAND */ |
2290 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,3,ap);} /* SETF-EXPAND-1 */ |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],(void **)&LnkLI99,3,ap);} /* SETF-EXPAND-1 */ |
2291 |
static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-SETF-METHOD */ |
static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-SETF-METHOD */ |
2292 |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */ |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */ |
2293 |
static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */ |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */ |
2294 |
static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* GET-&ENVIRONMENT */ |
static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* GET-&ENVIRONMENT */ |
2295 |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */ |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],(void **)&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */ |
2296 |
|
|
2297 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2298 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |