1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "destructuring_bind.h" |
#include "destructuring_bind.h" |
4 |
init_destructuring_bind(){do_init(VV);} |
void init_destructuring_bind(){do_init(VV);} |
5 |
/* function definition for PARSE-DEFMACRO */ |
/* function definition for PARSE-DEFMACRO */ |
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); |
55 |
V12= vs_base[0]; |
V12= vs_base[0]; |
56 |
vs_top=sup; |
vs_top=sup; |
57 |
goto T10; |
goto T10; |
58 |
|
goto T7; |
59 |
T7:; |
T7:; |
60 |
V10= Cnil; |
V10= Cnil; |
61 |
|
goto T8; |
62 |
T8:; |
T8:; |
63 |
V11= Cnil; |
V11= Cnil; |
64 |
|
goto T9; |
65 |
T9:; |
T9:; |
66 |
V12= Cnil; |
V12= Cnil; |
67 |
|
goto T10; |
68 |
T10:; |
T10:; |
69 |
bds_bind(VV[2],Cnil); |
bds_bind(VV[2],Cnil); |
70 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
93 |
V15= vs_base[0]; |
V15= vs_base[0]; |
94 |
vs_top=sup; |
vs_top=sup; |
95 |
goto T23; |
goto T23; |
96 |
|
goto T20; |
97 |
T20:; |
T20:; |
98 |
V13= Cnil; |
V13= Cnil; |
99 |
|
goto T21; |
100 |
T21:; |
T21:; |
101 |
V14= Cnil; |
V14= Cnil; |
102 |
|
goto T22; |
103 |
T22:; |
T22:; |
104 |
V15= Cnil; |
V15= Cnil; |
105 |
|
goto T23; |
106 |
T23:; |
T23:; |
107 |
V16= nreverse((VV[4]->s.s_dbind)); |
V16= nreverse((VV[4]->s.s_dbind)); |
108 |
if(((VV[5]->s.s_dbind))==Cnil){ |
if(((VV[5]->s.s_dbind))==Cnil){ |
110 |
V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind))); |
V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind))); |
111 |
base[20]= make_cons(/* INLINE-ARGS */V18,Cnil); |
base[20]= make_cons(/* INLINE-ARGS */V18,Cnil); |
112 |
goto T26; |
goto T26; |
113 |
|
goto T28; |
114 |
T28:; |
T28:; |
115 |
base[20]= Cnil; |
base[20]= Cnil; |
116 |
|
goto T26; |
117 |
T26:; |
T26:; |
118 |
base[21]= (VV[2]->s.s_dbind); |
base[21]= (VV[2]->s.s_dbind); |
119 |
V19= nreverse((VV[3]->s.s_dbind)); |
V19= nreverse((VV[3]->s.s_dbind)); |
131 |
V21= list(2,VV[7],list(2,VV[9],(V8))); |
V21= list(2,VV[7],list(2,VV[9],(V8))); |
132 |
base[20]= make_cons(/* INLINE-ARGS */V21,Cnil); |
base[20]= make_cons(/* INLINE-ARGS */V21,Cnil); |
133 |
goto T32; |
goto T32; |
134 |
|
goto T34; |
135 |
T34:; |
T34:; |
136 |
base[20]= Cnil; |
base[20]= Cnil; |
137 |
|
goto T32; |
138 |
T32:; |
T32:; |
139 |
base[21]= (V12); |
base[21]= (V12); |
140 |
base[22]= (V14); |
base[22]= (V14); |
150 |
} |
} |
151 |
/* function definition for PARSE-DEFMACRO-LAMBDA-LIST */ |
/* function definition for PARSE-DEFMACRO-LAMBDA-LIST */ |
152 |
|
|
153 |
static L2() |
static void L2() |
154 |
{register object *base=vs_base; |
{register object *base=vs_base; |
155 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
156 |
vs_reserve(VM2); |
vs_reserve(VM2); |
180 |
V29=(base[7]); |
V29=(base[7]); |
181 |
vs_top=sup; |
vs_top=sup; |
182 |
goto T44; |
goto T44; |
183 |
|
goto T41; |
184 |
T41:; |
T41:; |
185 |
V27= Cnil; |
V27= Cnil; |
186 |
|
goto T42; |
187 |
T42:; |
T42:; |
188 |
V28= Cnil; |
V28= Cnil; |
189 |
|
goto T43; |
190 |
T43:; |
T43:; |
191 |
V29= Cnil; |
V29= Cnil; |
192 |
|
goto T44; |
193 |
T44:; |
T44:; |
194 |
{register object V30; |
{register object V30; |
195 |
object V31; |
object V31; |
204 |
goto T50;} |
goto T50;} |
205 |
V30= list(2,VV[10],(V23)); |
V30= list(2,VV[10],(V23)); |
206 |
goto T48; |
goto T48; |
207 |
|
goto T50; |
208 |
T50:; |
T50:; |
209 |
V30= (V23); |
V30= (V23); |
210 |
|
goto T48; |
211 |
T48:; |
T48:; |
212 |
V31= VV[11]; |
V31= VV[11]; |
213 |
V32= small_fixnum(0); |
V32= small_fixnum(0); |
219 |
V38= Cnil; |
V38= Cnil; |
220 |
{object V39; |
{object V39; |
221 |
V39= (V22); |
V39= (V22); |
222 |
|
goto T57; |
223 |
T57:; |
T57:; |
224 |
if(!(type_of((V39))!=t_cons)){ |
if(!(type_of((V39))!=t_cons)){ |
225 |
goto T58;} |
goto T58;} |
226 |
goto T52; |
goto T52; |
227 |
|
goto T58; |
228 |
T58:; |
T58:; |
229 |
if(!((car((V39)))==(VV[12]))){ |
if(!((car((V39)))==(VV[12]))){ |
230 |
goto T62;} |
goto T62;} |
231 |
goto T55; |
goto T55; |
232 |
|
goto T62; |
233 |
T62:; |
T62:; |
234 |
V39= cdr((V39)); |
V39= cdr((V39)); |
235 |
goto T57;} |
goto T57;} |
236 |
|
goto T55; |
237 |
T55:; |
T55:; |
238 |
if((car((V22)))==(VV[12])){ |
if((car((V22)))==(VV[12])){ |
239 |
goto T52;} |
goto T52;} |
242 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
243 |
Lerror(); |
Lerror(); |
244 |
vs_top=sup; |
vs_top=sup; |
245 |
|
goto T52; |
246 |
T52:; |
T52:; |
247 |
{register object V40; |
{register object V40; |
248 |
V40= (V22); |
V40= (V22); |
249 |
|
goto T73; |
250 |
T73:; |
T73:; |
251 |
if(!(type_of((V40))!=t_cons)){ |
if(!(type_of((V40))!=t_cons)){ |
252 |
goto T74;} |
goto T74;} |
253 |
if(((V40))!=Cnil){ |
if(((V40))!=Cnil){ |
254 |
goto T78;} |
goto T78;} |
255 |
goto T71; |
goto T71; |
256 |
|
goto T78; |
257 |
T78:; |
T78:; |
258 |
base[8]= (V40); |
base[8]= (V40); |
259 |
base[9]= (V30); |
base[9]= (V30); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
V36= Ct; |
V36= Ct; |
265 |
goto T71; |
goto T71; |
266 |
|
goto T74; |
267 |
T74:; |
T74:; |
268 |
{register object V41; |
{register object V41; |
269 |
V41= car((V40)); |
V41= car((V40)); |
281 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
282 |
vs_top=sup; |
vs_top=sup; |
283 |
goto T86; |
goto T86; |
284 |
|
goto T92; |
285 |
T92:; |
T92:; |
286 |
base[8]= VV[14]; |
base[8]= VV[14]; |
287 |
base[9]= (V25); |
base[9]= (V25); |
290 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
291 |
vs_top=sup; |
vs_top=sup; |
292 |
goto T86; |
goto T86; |
293 |
|
goto T89; |
294 |
T89:; |
T89:; |
295 |
if(!(((V41))==(VV[15]))){ |
if(!(((V41))==(VV[15]))){ |
296 |
goto T105;} |
goto T105;} |
302 |
Lerror(); |
Lerror(); |
303 |
vs_top=sup; |
vs_top=sup; |
304 |
goto T107; |
goto T107; |
305 |
|
goto T109; |
306 |
T109:; |
T109:; |
307 |
if(((V27))!=Cnil){ |
if(((V27))!=Cnil){ |
308 |
goto T107;} |
goto T107;} |
310 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
311 |
Lerror(); |
Lerror(); |
312 |
vs_top=sup; |
vs_top=sup; |
313 |
|
goto T107; |
314 |
T107:; |
T107:; |
315 |
if((cdr((V40)))==Cnil){ |
if((cdr((V40)))==Cnil){ |
316 |
goto T117;} |
goto T117;} |
325 |
vs_top=sup; |
vs_top=sup; |
326 |
V38= Ct; |
V38= Ct; |
327 |
goto T86; |
goto T86; |
328 |
|
goto T117; |
329 |
T117:; |
T117:; |
330 |
base[8]= VV[18]; |
base[8]= VV[18]; |
331 |
base[9]= (V25); |
base[9]= (V25); |
334 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
goto T86; |
goto T86; |
337 |
|
goto T105; |
338 |
T105:; |
T105:; |
339 |
if(((V41))==(VV[19])){ |
if(((V41))==(VV[19])){ |
340 |
goto T131;} |
goto T131;} |
341 |
if(!(((V41))==(VV[20]))){ |
if(!(((V41))==(VV[20]))){ |
342 |
goto T132;} |
goto T132;} |
343 |
|
goto T131; |
344 |
T131:; |
T131:; |
345 |
if((cdr((V40)))==Cnil){ |
if((cdr((V40)))==Cnil){ |
346 |
goto T137;} |
goto T137;} |
355 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
goto T86; |
goto T86; |
358 |
|
goto T137; |
359 |
T137:; |
T137:; |
360 |
if((cdr((V40)))==Cnil){ |
if((cdr((V40)))==Cnil){ |
361 |
goto T149;} |
goto T149;} |
391 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
392 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
393 |
vs_top=sup; |
vs_top=sup; |
394 |
|
goto T169; |
395 |
T169:; |
T169:; |
396 |
if(((V43))==Cnil){ |
if(((V43))==Cnil){ |
397 |
goto T175;} |
goto T175;} |
401 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
402 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
403 |
vs_top=sup; |
vs_top=sup; |
404 |
|
goto T175; |
405 |
T175:; |
T175:; |
406 |
if(((V44))==Cnil){ |
if(((V44))==Cnil){ |
407 |
goto T86;} |
goto T86;} |
412 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
413 |
vs_top=sup; |
vs_top=sup; |
414 |
goto T86;} |
goto T86;} |
415 |
|
goto T149; |
416 |
T149:; |
T149:; |
417 |
base[8]= symbol_name((V41)); |
base[8]= symbol_name((V41)); |
418 |
base[9]= (V25); |
base[9]= (V25); |
421 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
422 |
vs_top=sup; |
vs_top=sup; |
423 |
goto T86; |
goto T86; |
424 |
|
goto T132; |
425 |
T132:; |
T132:; |
426 |
if(!(((V41))==(VV[26]))){ |
if(!(((V41))==(VV[26]))){ |
427 |
goto T190;} |
goto T190;} |
428 |
V31= VV[27]; |
V31= VV[27]; |
429 |
goto T86; |
goto T86; |
430 |
|
goto T190; |
431 |
T190:; |
T190:; |
432 |
if(!(((V41))==(VV[28]))){ |
if(!(((V41))==(VV[28]))){ |
433 |
goto T194;} |
goto T194;} |
446 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
447 |
vs_top=sup; |
vs_top=sup; |
448 |
goto T86; |
goto T86; |
449 |
|
goto T194; |
450 |
T194:; |
T194:; |
451 |
if(!(((V41))==(VV[31]))){ |
if(!(((V41))==(VV[31]))){ |
452 |
goto T209;} |
goto T209;} |
453 |
V37= Ct; |
V37= Ct; |
454 |
goto T86; |
goto T86; |
455 |
|
goto T209; |
456 |
T209:; |
T209:; |
457 |
if(!(((V41))==(VV[32]))){ |
if(!(((V41))==(VV[32]))){ |
458 |
goto T213;} |
goto T213;} |
459 |
V31= VV[33]; |
V31= VV[33]; |
460 |
goto T86; |
goto T86; |
461 |
|
goto T213; |
462 |
T213:; |
T213:; |
463 |
if(!(type_of((V41))==t_cons||((V41))==Cnil)){ |
if(!(type_of((V41))==t_cons||((V41))==Cnil)){ |
464 |
goto T217;} |
goto T217;} |
491 |
V33= number_plus((V33),small_fixnum(1)); |
V33= number_plus((V33),small_fixnum(1)); |
492 |
V32= number_plus((V32),small_fixnum(1)); |
V32= number_plus((V32),small_fixnum(1)); |
493 |
goto T86; |
goto T86; |
494 |
|
goto T219; |
495 |
T219:; |
T219:; |
496 |
if((V46!= VV[27]))goto T240; |
if((V46!= VV[27]))goto T240; |
497 |
if(!((length((V41)))>(3))){ |
if(!((length((V41)))>(3))){ |
502 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
503 |
Lcerror(); |
Lcerror(); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
|
goto T241; |
506 |
T241:; |
T241:; |
507 |
base[8]= car((V41)); |
base[8]= car((V41)); |
508 |
base[9]= cadr((V41)); |
base[9]= cadr((V41)); |
518 |
V30= list(2,VV[10],(V30)); |
V30= list(2,VV[10],(V30)); |
519 |
V32= number_plus((V32),small_fixnum(1)); |
V32= number_plus((V32),small_fixnum(1)); |
520 |
goto T86; |
goto T86; |
521 |
|
goto T240; |
522 |
T240:; |
T240:; |
523 |
if((V46!= VV[29]))goto T259; |
if((V46!= VV[29]))goto T259; |
524 |
{object V48; |
{object V48; |
530 |
goto T263;} |
goto T263;} |
531 |
V49= cadar((V41)); |
V49= cadar((V41)); |
532 |
goto T261; |
goto T261; |
533 |
|
goto T263; |
534 |
T263:; |
T263:; |
535 |
V49= car((V41)); |
V49= car((V41)); |
536 |
|
goto T261; |
537 |
T261:; |
T261:; |
538 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
539 |
goto T267;} |
goto T267;} |
540 |
V50= caar((V41)); |
V50= caar((V41)); |
541 |
goto T265; |
goto T265; |
542 |
|
goto T267; |
543 |
T267:; |
T267:; |
544 |
base[12]= (V49); |
base[12]= (V49); |
545 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
546 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
547 |
vs_top=sup; |
vs_top=sup; |
548 |
V50= vs_base[0]; |
V50= vs_base[0]; |
549 |
|
goto T265; |
550 |
T265:; |
T265:; |
551 |
V51= caddr((V41)); |
V51= caddr((V41)); |
552 |
base[12]= (V49); |
base[12]= (V49); |
562 |
vs_top=sup; |
vs_top=sup; |
563 |
V34= make_cons((V50),(V34)); |
V34= make_cons((V50),(V34)); |
564 |
goto T86;} |
goto T86;} |
565 |
|
goto T259; |
566 |
T259:; |
T259:; |
567 |
if((V46!= VV[33]))goto T281; |
if((V46!= VV[33]))goto T281; |
568 |
base[8]= car((V41)); |
base[8]= car((V41)); |
572 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
573 |
vs_top=sup; |
vs_top=sup; |
574 |
goto T86; |
goto T86; |
575 |
|
goto T281; |
576 |
T281:; |
T281:; |
577 |
goto T86;} |
goto T86;} |
578 |
|
goto T217; |
579 |
T217:; |
T217:; |
580 |
if(!(type_of((V41))==t_symbol)){ |
if(!(type_of((V41))==t_symbol)){ |
581 |
goto T286;} |
goto T286;} |
591 |
vs_top=sup; |
vs_top=sup; |
592 |
V30= list(2,VV[10],(V30)); |
V30= list(2,VV[10],(V30)); |
593 |
goto T86; |
goto T86; |
594 |
|
goto T288; |
595 |
T288:; |
T288:; |
596 |
if((V52!= VV[27]))goto T298; |
if((V52!= VV[27]))goto T298; |
597 |
V32= number_plus((V32),small_fixnum(1)); |
V32= number_plus((V32),small_fixnum(1)); |
604 |
vs_top=sup; |
vs_top=sup; |
605 |
V30= list(2,VV[10],(V30)); |
V30= list(2,VV[10],(V30)); |
606 |
goto T86; |
goto T86; |
607 |
|
goto T298; |
608 |
T298:; |
T298:; |
609 |
if((V52!= VV[29]))goto T307; |
if((V52!= VV[29]))goto T307; |
610 |
{object V53; |
{object V53; |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
V34= make_cons((V53),(V34)); |
V34= make_cons((V53),(V34)); |
623 |
goto T86;} |
goto T86;} |
624 |
|
goto T307; |
625 |
T307:; |
T307:; |
626 |
if((V52!= VV[33]))goto T315; |
if((V52!= VV[33]))goto T315; |
627 |
base[8]= (V41); |
base[8]= (V41); |
631 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
632 |
vs_top=sup; |
vs_top=sup; |
633 |
goto T86; |
goto T86; |
634 |
|
goto T315; |
635 |
T315:; |
T315:; |
636 |
goto T86;} |
goto T86;} |
637 |
|
goto T286; |
638 |
T286:; |
T286:; |
639 |
base[8]= VV[42]; |
base[8]= VV[42]; |
640 |
base[9]= (V41); |
base[9]= (V41); |
641 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
642 |
Lerror(); |
Lerror(); |
643 |
vs_top=sup;} |
vs_top=sup;} |
644 |
|
goto T86; |
645 |
T86:; |
T86:; |
646 |
V40= cdr((V40)); |
V40= cdr((V40)); |
647 |
goto T73;} |
goto T73;} |
648 |
|
goto T71; |
649 |
T71:; |
T71:; |
650 |
if(((V36))!=Cnil){ |
if(((V36))!=Cnil){ |
651 |
goto T324;} |
goto T324;} |
653 |
goto T330;} |
goto T330;} |
654 |
V54= list(2,VV[10],(V23)); |
V54= list(2,VV[10],(V23)); |
655 |
goto T328; |
goto T328; |
656 |
|
goto T330; |
657 |
T330:; |
T330:; |
658 |
V54= (V23); |
V54= (V23); |
659 |
|
goto T328; |
660 |
T328:; |
T328:; |
661 |
V55= list(2,VV[45],list(3,VV[46],VV[47],V54)); |
V55= list(2,VV[45],list(3,VV[46],VV[47],V54)); |
662 |
if(((V36))!=Cnil){ |
if(((V36))!=Cnil){ |
663 |
goto T334;} |
goto T334;} |
664 |
V56= make_cons((V32),Cnil); |
V56= make_cons((V32),Cnil); |
665 |
goto T332; |
goto T332; |
666 |
|
goto T334; |
667 |
T334:; |
T334:; |
668 |
V56= Cnil; |
V56= Cnil; |
669 |
|
goto T332; |
670 |
T332:; |
T332:; |
671 |
V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56); |
V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56); |
672 |
{object V59; |
{object V59; |
674 |
goto T339;} |
goto T339;} |
675 |
V59= list(2,VV[10],(V23)); |
V59= list(2,VV[10],(V23)); |
676 |
goto T337; |
goto T337; |
677 |
|
goto T339; |
678 |
T339:; |
T339:; |
679 |
V59= (V23); |
V59= (V23); |
680 |
|
goto T337; |
681 |
T337:; |
T337:; |
682 |
if(!(((V26))==(VV[1]))){ |
if(!(((V26))==(VV[1]))){ |
683 |
goto T342;} |
goto T342;} |
688 |
goto T346;} |
goto T346;} |
689 |
V63= (V32); |
V63= (V32); |
690 |
goto T344; |
goto T344; |
691 |
|
goto T346; |
692 |
T346:; |
T346:; |
693 |
V63= Cnil; |
V63= Cnil; |
694 |
|
goto T344; |
695 |
T344:; |
T344:; |
696 |
V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63); |
V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63); |
697 |
goto T336; |
goto T336; |
698 |
|
goto T342; |
699 |
T342:; |
T342:; |
700 |
V64= list(2,VV[40],(V25)); |
V64= list(2,VV[40],(V25)); |
701 |
if(((V24))==Cnil){ |
if(((V24))==Cnil){ |
702 |
goto T350;} |
goto T350;} |
703 |
V65= list(2,VV[51],list(2,VV[40],(V24))); |
V65= list(2,VV[51],list(2,VV[40],(V24))); |
704 |
goto T348; |
goto T348; |
705 |
|
goto T350; |
706 |
T350:; |
T350:; |
707 |
V65= Cnil; |
V65= Cnil; |
708 |
|
goto T348; |
709 |
T348:; |
T348:; |
710 |
V66= list(2,VV[40],(V22)); |
V66= list(2,VV[40],(V22)); |
711 |
if(((V36))!=Cnil){ |
if(((V36))!=Cnil){ |
712 |
goto T354;} |
goto T354;} |
713 |
V67= list(2,VV[55],(V32)); |
V67= list(2,VV[55],(V32)); |
714 |
goto T352; |
goto T352; |
715 |
|
goto T354; |
716 |
T354:; |
T354:; |
717 |
V67= Cnil; |
V67= Cnil; |
718 |
|
goto T352; |
719 |
T352:; |
T352:; |
720 |
V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67); |
V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67); |
721 |
V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));} |
V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));} |
722 |
|
goto T336; |
723 |
T336:; |
T336:; |
724 |
V69= list(3,VV[43],/* INLINE-ARGS */V57,V58); |
V69= list(3,VV[43],/* INLINE-ARGS */V57,V58); |
725 |
setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2]))); |
setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2]))); |
726 |
|
goto T324; |
727 |
T324:; |
T324:; |
728 |
if(((V34))==Cnil){ |
if(((V34))==Cnil){ |
729 |
goto T356;} |
goto T356;} |
747 |
goto T366;} |
goto T366;} |
748 |
V76= list(2,VV[51],list(2,VV[40],(V24))); |
V76= list(2,VV[51],list(2,VV[40],(V24))); |
749 |
goto T364; |
goto T364; |
750 |
|
goto T366; |
751 |
T366:; |
T366:; |
752 |
V76= Cnil; |
V76= Cnil; |
753 |
|
goto T364; |
754 |
T364:; |
T364:; |
755 |
V77= list(4,VV[62],(V70),VV[63],(V71)); |
V77= list(4,VV[62],(V70),VV[63],(V71)); |
756 |
V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77)))); |
V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77)))); |
757 |
setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));} |
setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));} |
758 |
|
goto T356; |
759 |
T356:; |
T356:; |
760 |
base[8]= (V38); |
base[8]= (V38); |
761 |
base[9]= (V33); |
base[9]= (V33); |
763 |
goto T372;} |
goto T372;} |
764 |
base[10]= (V32); |
base[10]= (V32); |
765 |
goto T370; |
goto T370; |
766 |
|
goto T372; |
767 |
T372:; |
T372:; |
768 |
base[10]= Cnil; |
base[10]= Cnil; |
769 |
|
goto T370; |
770 |
T370:; |
T370:; |
771 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
772 |
return;} |
return;} |
774 |
} |
} |
775 |
/* function definition for PUSH-SUB-LIST-BINDING */ |
/* function definition for PUSH-SUB-LIST-BINDING */ |
776 |
|
|
777 |
static L3() |
static void L3() |
778 |
{register object *base=vs_base; |
{register object *base=vs_base; |
779 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
780 |
vs_reserve(VM3); |
vs_reserve(VM3); |
792 |
V83=(base[4]); |
V83=(base[4]); |
793 |
V84=(base[5]); |
V84=(base[5]); |
794 |
vs_top=sup; |
vs_top=sup; |
795 |
|
goto TTL; |
796 |
TTL:; |
TTL:; |
797 |
{register object V85; |
{register object V85; |
798 |
base[6]= VV[64]; |
base[6]= VV[64]; |
808 |
goto T379;} |
goto T379;} |
809 |
V90= list(2,VV[51],list(2,VV[40],(V82))); |
V90= list(2,VV[51],list(2,VV[40],(V82))); |
810 |
goto T377; |
goto T377; |
811 |
|
goto T379; |
812 |
T379:; |
T379:; |
813 |
V90= Cnil; |
V90= Cnil; |
814 |
|
goto T377; |
815 |
T377:; |
T377:; |
816 |
V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81))); |
V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81))); |
817 |
V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91))))); |
V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91))))); |
823 |
} |
} |
824 |
/* function definition for PUSH-LET-BINDING */ |
/* function definition for PUSH-LET-BINDING */ |
825 |
|
|
826 |
static L4() |
static void L4() |
827 |
{register object *base=vs_base; |
{register object *base=vs_base; |
828 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
829 |
vs_reserve(VM4); |
vs_reserve(VM4); |
845 |
V97=(base[4]); |
V97=(base[4]); |
846 |
vs_top=sup; |
vs_top=sup; |
847 |
goto T383; |
goto T383; |
848 |
|
goto T381; |
849 |
T381:; |
T381:; |
850 |
V96= Cnil; |
V96= Cnil; |
851 |
|
goto T382; |
852 |
T382:; |
T382:; |
853 |
V97= symbol_value(VV[0]); |
V97= symbol_value(VV[0]); |
854 |
|
goto T383; |
855 |
T383:; |
T383:; |
856 |
{object V98; |
{object V98; |
857 |
if(((V96))==Cnil){ |
if(((V96))==Cnil){ |
858 |
goto T388;} |
goto T388;} |
859 |
V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97))); |
V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97))); |
860 |
goto T386; |
goto T386; |
861 |
|
goto T388; |
862 |
T388:; |
T388:; |
863 |
V98= list(2,(V93),(V94)); |
V98= list(2,(V93),(V94)); |
864 |
|
goto T386; |
865 |
T386:; |
T386:; |
866 |
if(((V95))==Cnil){ |
if(((V95))==Cnil){ |
867 |
goto T391;} |
goto T391;} |
869 |
base[5]= symbol_value(VV[4]); |
base[5]= symbol_value(VV[4]); |
870 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
871 |
return; |
return; |
872 |
|
goto T391; |
873 |
T391:; |
T391:; |
874 |
setq(VV[3],make_cons((V98),symbol_value(VV[3]))); |
setq(VV[3],make_cons((V98),symbol_value(VV[3]))); |
875 |
base[5]= symbol_value(VV[3]); |
base[5]= symbol_value(VV[3]); |
879 |
} |
} |
880 |
/* function definition for PUSH-OPTIONAL-BINDING */ |
/* function definition for PUSH-OPTIONAL-BINDING */ |
881 |
|
|
882 |
static L5() |
static void L5() |
883 |
{register object *base=vs_base; |
{register object *base=vs_base; |
884 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
885 |
vs_reserve(VM5); |
vs_reserve(VM5); |
901 |
V105=(base[6]); |
V105=(base[6]); |
902 |
V106=(base[7]); |
V106=(base[7]); |
903 |
vs_top=sup; |
vs_top=sup; |
904 |
|
goto TTL; |
905 |
TTL:; |
TTL:; |
906 |
if(((V101))!=Cnil){ |
if(((V101))!=Cnil){ |
907 |
goto T395;} |
goto T395;} |
910 |
Lgensym(); |
Lgensym(); |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
V101= vs_base[0]; |
V101= vs_base[0]; |
913 |
|
goto T395; |
914 |
T395:; |
T395:; |
915 |
base[8]= (V101); |
base[8]= (V101); |
916 |
base[9]= (V102); |
base[9]= (V102); |
943 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
944 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
945 |
return;} |
return;} |
946 |
|
goto T405; |
947 |
T405:; |
T405:; |
948 |
if(!(type_of((V99))==t_symbol)){ |
if(!(type_of((V99))==t_symbol)){ |
949 |
goto T422;} |
goto T422;} |
955 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
956 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
957 |
return; |
return; |
958 |
|
goto T422; |
959 |
T422:; |
T422:; |
960 |
base[8]= VV[72]; |
base[8]= VV[72]; |
961 |
base[9]= (V99); |
base[9]= (V99); |
966 |
} |
} |
967 |
/* function definition for PARSE-BODY */ |
/* function definition for PARSE-BODY */ |
968 |
|
|
969 |
static L6() |
static void L6() |
970 |
{register object *base=vs_base; |
{register object *base=vs_base; |
971 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
972 |
vs_reserve(VM6); |
vs_reserve(VM6); |
982 |
V110=(base[2]); |
V110=(base[2]); |
983 |
vs_top=sup; |
vs_top=sup; |
984 |
goto T432; |
goto T432; |
985 |
|
goto T431; |
986 |
T431:; |
T431:; |
987 |
V110= Ct; |
V110= Ct; |
988 |
|
goto T432; |
989 |
T432:; |
T432:; |
990 |
{register object V111; |
{register object V111; |
991 |
register object V112; |
register object V112; |
993 |
V112= Cnil; |
V112= Cnil; |
994 |
{register object V113; |
{register object V113; |
995 |
V113= (V108); |
V113= (V108); |
996 |
|
goto T435; |
997 |
T435:; |
T435:; |
998 |
if(!(endp((V113)))){ |
if(!(endp((V113)))){ |
999 |
goto T436;} |
goto T436;} |
1002 |
base[5]= (V112); |
base[5]= (V112); |
1003 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1004 |
return; |
return; |
1005 |
|
goto T436; |
1006 |
T436:; |
T436:; |
1007 |
{register object V114; |
{register object V114; |
1008 |
V114= car((V113)); |
V114= car((V113)); |
1015 |
V112= (V114); |
V112= (V114); |
1016 |
V110= Cnil; |
V110= Cnil; |
1017 |
goto T443; |
goto T443; |
1018 |
|
goto T451; |
1019 |
T451:; |
T451:; |
1020 |
base[3]= (V113); |
base[3]= (V113); |
1021 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V111)); |
1022 |
base[5]= (V112); |
base[5]= (V112); |
1023 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1024 |
return; |
return; |
1025 |
|
goto T446; |
1026 |
T446:; |
T446:; |
1027 |
if(!(type_of((V114))==t_cons)){ |
if(!(type_of((V114))==t_cons)){ |
1028 |
goto T459;} |
goto T459;} |
1029 |
if(type_of(car((V114)))==t_symbol){ |
if(type_of(car((V114)))==t_symbol){ |
1030 |
goto T460;} |
goto T460;} |
1031 |
|
goto T459; |
1032 |
T459:; |
T459:; |
1033 |
base[3]= (V113); |
base[3]= (V113); |
1034 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V111)); |
1035 |
base[5]= (V112); |
base[5]= (V112); |
1036 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1037 |
return; |
return; |
1038 |
|
goto T460; |
1039 |
T460:; |
T460:; |
1040 |
if(!((car((V114)))==(VV[7]))){ |
if(!((car((V114)))==(VV[7]))){ |
1041 |
goto T468;} |
goto T468;} |
1042 |
V111= make_cons((V114),(V111)); |
V111= make_cons((V114),(V111)); |
1043 |
goto T443; |
goto T443; |
1044 |
|
goto T468; |
1045 |
T468:; |
T468:; |
1046 |
base[3]= (V113); |
base[3]= (V113); |
1047 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V111)); |
1048 |
base[5]= (V112); |
base[5]= (V112); |
1049 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1050 |
return;} |
return;} |
1051 |
|
goto T443; |
1052 |
T443:; |
T443:; |
1053 |
V113= cdr((V113)); |
V113= cdr((V113)); |
1054 |
goto T435;}} |
goto T435;}} |
1056 |
} |
} |
1057 |
/* macro definition for DESTRUCTURING-BIND */ |
/* macro definition for DESTRUCTURING-BIND */ |
1058 |
|
|
1059 |
static L7() |
static void L7() |
1060 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1061 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
1062 |
vs_reserve(VM7); |
vs_reserve(VM7); |
1096 |
V118= vs_base[0]; |
V118= vs_base[0]; |
1097 |
vs_top=sup; |
vs_top=sup; |
1098 |
goto T491; |
goto T491; |
1099 |
|
goto T489; |
1100 |
T489:; |
T489:; |
1101 |
V117= Cnil; |
V117= Cnil; |
1102 |
|
goto T490; |
1103 |
T490:; |
T490:; |
1104 |
V118= Cnil; |
V118= Cnil; |
1105 |
|
goto T491; |
1106 |
T491:; |
T491:; |
1107 |
V119= list(2,(V116),base[3]); |
V119= list(2,(V116),base[3]); |
1108 |
V120= make_cons(/* INLINE-ARGS */V119,Cnil); |
V120= make_cons(/* INLINE-ARGS */V119,Cnil); |
1111 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1112 |
return;}} |
return;}} |
1113 |
} |
} |
1114 |
static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* PARSE-DEFMACRO */ |
static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PARSE-DEFMACRO */ |
1115 |
static LnkT85(){ call_or_link(VV[85],&Lnk85);} /* MAKE-KEYWORD */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* MAKE-KEYWORD */ |
1116 |
static LnkT84(){ call_or_link(VV[84],&Lnk84);} /* PUSH-OPTIONAL-BINDING */ |
static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* PUSH-OPTIONAL-BINDING */ |
1117 |
static LnkT83(){ call_or_link(VV[83],&Lnk83);} /* PUSH-SUB-LIST-BINDING */ |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-SUB-LIST-BINDING */ |
1118 |
static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */ |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* DEFMACRO-ERROR */ |
1119 |
static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */ |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* PUSH-LET-BINDING */ |
1120 |
static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
1121 |
static LnkT22(){ call_or_link(VV[22],&Lnk22);} /* PARSE-BODY */ |
static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* PARSE-BODY */ |
1122 |
|
|
1123 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1124 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |