/[gcl]/gcl/lsp/gcl_setf.c
ViewVC logotype

Diff of /gcl/lsp/gcl_setf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_setf.h"
4    void init_gcl_setf(){do_init(VV);}
5    /*      macro definition for DEFSETF    */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            if(endp(V1))invalid_macro_call();
15            base[2]= (V1->c.c_car);
16            V1=V1->c.c_cdr;
17            base[3]= V1;}
18            if((car(base[3]))==Cnil){
19            goto T2;}
20            if(type_of(car(base[3]))==t_symbol){
21            goto T1;}
22            base[4]= car(base[3]);
23            vs_top=(vs_base=base+4)+1;
24            Lfunctionp();
25            vs_top=sup;
26            if((vs_base[0])==Cnil){
27            goto T2;}
28            goto T1;
29    T1:;
30            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]);
32            V4= list(3,VV[5],list(2,VV[3],base[2]),VV[6]);
33            V5= list(3,VV[5],list(2,VV[3],base[2]),VV[7]);
34            V6= list(2,VV[3],base[2]);
35            if(endp_prop(cdr(base[3]))){
36            goto T11;}
37            if(type_of(cadr(base[3]))==t_string){
38            goto T13;}
39            base[4]= VV[8];
40            vs_top=(vs_base=base+4)+1;
41            Lerror();
42            vs_top=sup;
43            goto T13;
44    T13:;
45            if(endp_prop(cddr(base[3]))){
46            goto T17;}
47            base[4]= VV[9];
48            vs_top=(vs_base=base+4)+1;
49            Lerror();
50            vs_top=sup;
51            goto T17;
52    T17:;
53            V7= cadr(base[3]);
54            goto T9;
55            goto T11;
56    T11:;
57            V7= Cnil;
58            goto T9;
59    T9:;
60            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]));
62            vs_top=(vs_base=base+4)+1;
63            return;
64            goto T2;
65    T2:;
66            base[4]= cadr(base[3]);
67            vs_top=(vs_base=base+4)+1;
68            Llist_length();
69            vs_top=sup;
70            V9= vs_base[0];
71            if(number_compare(V9,small_fixnum(1))==0){
72            goto T21;}
73            base[4]= VV[11];
74            vs_top=(vs_base=base+4)+1;
75            Lerror();
76            vs_top=sup;
77            goto T21;
78    T21:;
79            V10= list(2,VV[3],base[2]);
80            V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]);
81            V12= list(3,VV[5],list(2,VV[3],base[2]),VV[14]);
82            V13= list(3,VV[5],list(2,VV[3],base[2]),VV[15]);
83            V14= list(2,VV[3],base[2]);
84            V15= (*(LnkLI97))(cddr(base[3]));
85            V16= list(4,VV[2],/* INLINE-ARGS */V14,/* INLINE-ARGS */V15,VV[16]);
86            base[4]= list(7,VV[0],VV[12],/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,/* INLINE-ARGS */V16,list(2,VV[3],base[2]));
87            vs_top=(vs_base=base+4)+1;
88            return;
89    }
90    /*      macro definition for DEFINE-SETF-METHOD */
91    
92    static void L2()
93    {register object *base=vs_base;
94            register object *sup=base+VM2; VC2
95            vs_reserve(VM2);
96            check_arg(2);
97            vs_top=sup;
98            {object V17=base[0]->c.c_cdr;
99            if(endp(V17))invalid_macro_call();
100            base[2]= (V17->c.c_car);
101            V17=V17->c.c_cdr;
102            base[3]= V17;
103            base[4]= Cnil;
104            base[5]= Cnil;
105            base[6]= Cnil;}
106            base[7]= car(base[3]);
107            vs_top=(vs_base=base+7)+1;
108            (void) (*Lnk98)();
109            if(vs_base<vs_top){
110            base[4]= vs_base[0];
111            vs_base++;
112            }else{
113            base[4]= Cnil;}
114            if(vs_base<vs_top){
115            base[5]= vs_base[0];
116            }else{
117            base[5]= Cnil;}
118            vs_top=sup;
119            base[6]= cdr(base[3]);
120            if((base[5])==Cnil){
121            goto T37;}
122            base[4]= make_cons(base[5],base[4]);
123            goto T35;
124            goto T37;
125    T37:;
126            vs_base=vs_top;
127            Lgensym();
128            vs_top=sup;
129            V18= vs_base[0];
130            base[4]= make_cons(V18,base[4]);
131            {object V19;
132            V19= list(2,VV[17],list(2,VV[18],car(base[4])));
133            base[6]= make_cons((V19),base[6]);}
134            goto T35;
135    T35:;
136            V20= list(2,VV[3],base[2]);
137            V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]);
138            V22= list(3,VV[5],list(2,VV[3],base[2]),VV[23]);
139            V23= list(3,VV[5],list(2,VV[3],base[2]),VV[24]);
140            V24= list(2,VV[3],base[2]);
141            V25= (*(LnkLI97))(cdr(base[3]));
142            V26= list(4,VV[2],/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,VV[25]);
143            base[7]= list(7,VV[0],VV[19],/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,/* INLINE-ARGS */V23,/* INLINE-ARGS */V26,list(2,VV[3],base[2]));
144            vs_top=(vs_base=base+7)+1;
145            return;
146    }
147    /*      function definition for GET-SETF-METHOD */
148    
149    static void L3()
150    {register object *base=vs_base;
151            register object *sup=base+VM3; VC3
152            vs_reserve(VM3);
153            {object V27;
154            object V28;
155            if(vs_top-vs_base<1) too_few_arguments();
156            if(vs_top-vs_base>2) too_many_arguments();
157            V27=(base[0]);
158            vs_base=vs_base+1;
159            if(vs_base>=vs_top){vs_top=sup;goto T45;}
160            V28=(base[1]);
161            vs_top=sup;
162            goto T46;
163            goto T45;
164    T45:;
165            V28= Cnil;
166            goto T46;
167    T46:;
168            {object V29;
169            object V30;
170            object V31;
171            object V32;
172            object V33;
173            base[2]= (V27);
174            base[3]= (V28);
175            vs_top=(vs_base=base+2)+2;
176            (void) (*Lnk99)();
177            if(vs_base>=vs_top){vs_top=sup;goto T51;}
178            V29= vs_base[0];
179            vs_base++;
180            if(vs_base>=vs_top){vs_top=sup;goto T52;}
181            V30= vs_base[0];
182            vs_base++;
183            if(vs_base>=vs_top){vs_top=sup;goto T53;}
184            V31= vs_base[0];
185            vs_base++;
186            if(vs_base>=vs_top){vs_top=sup;goto T54;}
187            V32= vs_base[0];
188            vs_base++;
189            if(vs_base>=vs_top){vs_top=sup;goto T55;}
190            V33= vs_base[0];
191            vs_top=sup;
192            goto T56;
193            goto T51;
194    T51:;
195            V29= Cnil;
196            goto T52;
197    T52:;
198            V30= Cnil;
199            goto T53;
200    T53:;
201            V31= Cnil;
202            goto T54;
203    T54:;
204            V32= Cnil;
205            goto T55;
206    T55:;
207            V33= Cnil;
208            goto T56;
209    T56:;
210            base[2]= (V31);
211            vs_top=(vs_base=base+2)+1;
212            Llist_length();
213            vs_top=sup;
214            V34= vs_base[0];
215            if(number_compare(V34,small_fixnum(1))==0){
216            goto T57;}
217            base[2]= VV[26];
218            vs_top=(vs_base=base+2)+1;
219            Lerror();
220            vs_top=sup;
221            goto T57;
222    T57:;
223            base[2]= (V29);
224            base[3]= (V30);
225            base[4]= (V31);
226            base[5]= (V32);
227            base[6]= (V33);
228            vs_top=(vs_base=base+2)+5;
229            return;}
230            }
231    }
232    /*      function definition for GET-SETF-METHOD-MULTIPLE-VALUE  */
233    
234    static void L4()
235    {register object *base=vs_base;
236            register object *sup=base+VM4; VC4
237            vs_reserve(VM4);
238            {register object V35;
239            register object V36;
240            if(vs_top-vs_base<1) too_few_arguments();
241            if(vs_top-vs_base>2) too_many_arguments();
242            V35=(base[0]);
243            vs_base=vs_base+1;
244            if(vs_base>=vs_top){vs_top=sup;goto T68;}
245            V36=(base[1]);
246            vs_top=sup;
247            goto T69;
248            goto T68;
249    T68:;
250            V36= Cnil;
251            goto T69;
252    T69:;
253            {register object V37;
254            V37= Cnil;
255            if(!(type_of((V35))==t_symbol)){
256            goto T73;}
257            {object V38;
258            vs_base=vs_top;
259            Lgensym();
260            vs_top=sup;
261            V38= vs_base[0];
262            base[2]= Cnil;
263            base[3]= Cnil;
264            base[4]= make_cons((V38),Cnil);
265            base[5]= list(3,VV[27],(V35),(V38));
266            base[6]= (V35);
267            vs_top=(vs_base=base+2)+5;
268            return;}
269            goto T73;
270    T73:;
271            if(!(type_of((V35))==t_cons)){
272            goto T81;}
273            if(type_of(car((V35)))==t_symbol){
274            goto T82;}
275            goto T81;
276    T81:;
277            base[2]= VV[28];
278            base[3]= (V35);
279            vs_top=(vs_base=base+2)+2;
280            Lerror();
281            return;
282            goto T82;
283    T82:;
284            if(((V36))==Cnil){
285            goto T89;}
286            {register object x= car((V35)),V39= cadr((V36));
287            while(!endp(V39))
288            if(type_of(V39->c.c_car)==t_cons &&eql(x,V39->c.c_car->c.c_car)){
289            V37= (V39->c.c_car);
290            goto T93;
291            }else V39=V39->c.c_cdr;
292            V37= Cnil;}
293            goto T93;
294    T93:;
295            if(((V37))==Cnil){
296            goto T89;}
297            base[2]= (V35);
298            base[3]= (V36);
299            vs_top=(vs_base=base+2)+2;
300            Lmacroexpand();
301            vs_top=sup;
302            V37= vs_base[0];
303            if(!(((V35))==((V37)))){
304            goto T98;}
305            base[2]= VV[29];
306            base[3]= (V35);
307            vs_top=(vs_base=base+2)+2;
308            Lerror();
309            vs_top=sup;
310            goto T98;
311    T98:;
312            base[2]= (V37);
313            base[3]= (V36);
314            vs_top=(vs_base=base+2)+2;
315            (void) (*Lnk99)();
316            return;
317            goto T89;
318    T89:;
319            if((get(car((V35)),VV[30],Cnil))==Cnil){
320            goto T106;}
321            base[2]= get(car((V35)),VV[30],Cnil);
322            base[3]= (V36);
323            {object V40;
324            V40= cdr((V35));
325             vs_top=base+4;
326             while(!endp(V40))
327             {vs_push(car(V40));V40=cdr(V40);}
328            vs_base=base+3;}
329            super_funcall_no_event(base[2]);
330            return;
331            goto T106;
332    T106:;
333            if((get(car((V35)),VV[31],Cnil))!=Cnil){
334            goto T111;}
335            V37= get(car((V35)),VV[32],Cnil);
336            if(((V37))==Cnil){
337            goto T112;}
338            goto T111;
339    T111:;
340            {register object V41;
341            object V42;
342            {object V43;
343            object V44= cdr((V35));
344            if(endp(V44)){
345            V41= Cnil;
346            goto T117;}
347            base[2]=V43=MMcons(Cnil,Cnil);
348            goto T118;
349    T118:;
350            vs_base=vs_top;
351            Lgensym();
352            vs_top=sup;
353            (V43->c.c_car)= vs_base[0];
354            V44=MMcdr(V44);
355            if(endp(V44)){
356            V41= base[2];
357            goto T117;}
358            V43=MMcdr(V43)=MMcons(Cnil,Cnil);
359            goto T118;}
360            goto T117;
361    T117:;
362            vs_base=vs_top;
363            Lgensym();
364            vs_top=sup;
365            V42= vs_base[0];
366            base[2]= (V41);
367            base[3]= cdr((V35));
368            base[4]= make_cons((V42),Cnil);
369            if(((V37))==Cnil){
370            goto T126;}
371            base[5]= (*(LnkLI100))(car((V41)),car((V37)),cdr((V37)),(V42));
372            goto T124;
373            goto T126;
374    T126:;
375            V46= get(car((V35)),VV[31],Cnil);
376            V47= make_cons((V42),Cnil);
377            V48= append((V41),/* INLINE-ARGS */V47);
378            base[5]= make_cons(V46,/* INLINE-ARGS */V48);
379            goto T124;
380    T124:;
381            base[6]= make_cons(car((V35)),(V41));
382            vs_top=(vs_base=base+2)+5;
383            return;}
384            goto T112;
385    T112:;
386            if((get(car((V35)),VV[33],Cnil))==Cnil){
387            goto T131;}
388            {object V49;
389            object V50;
390            object V51;
391            object V52;
392            {object V53;
393            object V54= cdr((V35));
394            if(endp(V54)){
395            V49= Cnil;
396            goto T133;}
397            base[6]=V53=MMcons(Cnil,Cnil);
398            goto T134;
399    T134:;
400            vs_base=vs_top;
401            Lgensym();
402            vs_top=sup;
403            (V53->c.c_car)= vs_base[0];
404            V54=MMcdr(V54);
405            if(endp(V54)){
406            V49= base[6];
407            goto T133;}
408            V53=MMcdr(V53)=MMcons(Cnil,Cnil);
409            goto T134;}
410            goto T133;
411    T133:;
412            vs_base=vs_top;
413            Lgensym();
414            vs_top=sup;
415            V50= vs_base[0];
416            V51= get(car((V35)),VV[33],Cnil);
417            V56= car((V51));
418            V52= list(3,VV[21],/* INLINE-ARGS */V56,list(2,VV[20],listA(3,VV[21],cadr((V51)),cddr((V51)))));
419            base[6]= (V49);
420            base[7]= cdr((V35));
421            base[8]= make_cons((V50),Cnil);
422            base[11]= (V52);
423            {object V57;
424            V57= (V49);
425             vs_top=base+12;
426             while(!endp(V57))
427             {vs_push(car(V57));V57=cdr(V57);}
428            vs_base=base+12;}
429            super_funcall_no_event(base[11]);
430            vs_top=sup;
431            base[10]= vs_base[0];
432            base[11]= (V50);
433            vs_top=(vs_base=base+11)+1;
434            super_funcall_no_event(base[10]);
435            vs_top=sup;
436            base[9]= vs_base[0];
437            base[10]= make_cons(car((V35)),(V49));
438            vs_top=(vs_base=base+6)+5;
439            return;}
440            goto T131;
441    T131:;
442            base[2]= car((V35));
443            vs_top=(vs_base=base+2)+1;
444            Lmacro_function();
445            vs_top=sup;
446            if((vs_base[0])==Cnil){
447            goto T149;}
448            base[3]= (V35);
449            vs_top=(vs_base=base+3)+1;
450            Lmacroexpand();
451            vs_top=sup;
452            base[2]= vs_base[0];
453            vs_top=(vs_base=base+2)+1;
454            (void) (*Lnk99)();
455            return;
456            goto T149;
457    T149:;
458            base[2]= VV[34];
459            base[3]= (V35);
460            vs_top=(vs_base=base+2)+2;
461            Lerror();
462            return;}
463            }
464    }
465    /*      macro definition for PUT-AUX    */
466    
467    static void L5()
468    {register object *base=vs_base;
469            register object *sup=base+VM5; VC5
470            vs_reserve(VM5);
471            check_arg(2);
472            vs_top=sup;
473            {object V58=base[0]->c.c_cdr;
474            if(endp(V58))invalid_macro_call();
475            base[2]= (V58->c.c_car);
476            V58=V58->c.c_cdr;
477            if(endp(V58))invalid_macro_call();
478            base[3]= (V58->c.c_car);
479            V58=V58->c.c_cdr;
480            base[4]= V58;}
481            base[5]= base[4];
482            vs_top=(vs_base=base+5)+1;
483            Llast();
484            vs_top=sup;
485            V59= vs_base[0];
486            base[5]= list(4,VV[35],base[2],base[3],car(V59));
487            vs_top=(vs_base=base+5)+1;
488            return;
489    }
490    /*      function definition for G1384   */
491    
492    static void L6()
493    {register object *base=vs_base;
494            register object *sup=base+VM6; VC6
495            vs_reserve(VM6);
496            {object V60;
497            object V61;
498            object V62;
499            object V63;
500            if(vs_top-vs_base<3) too_few_arguments();
501            if(vs_top-vs_base>4) too_many_arguments();
502            V60=(base[0]);
503            V61=(base[1]);
504            V62=(base[2]);
505            vs_base=vs_base+3;
506            if(vs_base>=vs_top){vs_top=sup;goto T158;}
507            V63=(base[3]);
508            vs_top=sup;
509            goto T159;
510            goto T158;
511    T158:;
512            V63= Cnil;
513            goto T159;
514    T159:;
515            {object V64;
516            object V65;
517            object V66;
518            object V67;
519            object V68;
520            base[4]= (V61);
521            base[5]= (V60);
522            vs_top=(vs_base=base+4)+2;
523            (void) (*Lnk101)();
524            if(vs_base>=vs_top){vs_top=sup;goto T164;}
525            V64= vs_base[0];
526            vs_base++;
527            if(vs_base>=vs_top){vs_top=sup;goto T165;}
528            V65= vs_base[0];
529            vs_base++;
530            if(vs_base>=vs_top){vs_top=sup;goto T166;}
531            V66= vs_base[0];
532            vs_base++;
533            if(vs_base>=vs_top){vs_top=sup;goto T167;}
534            V67= vs_base[0];
535            vs_base++;
536            if(vs_base>=vs_top){vs_top=sup;goto T168;}
537            V68= vs_base[0];
538            vs_top=sup;
539            goto T169;
540            goto T164;
541    T164:;
542            V64= Cnil;
543            goto T165;
544    T165:;
545            V65= Cnil;
546            goto T166;
547    T166:;
548            V66= Cnil;
549            goto T167;
550    T167:;
551            V67= Cnil;
552            goto T168;
553    T168:;
554            V68= Cnil;
555            goto T169;
556    T169:;
557            {object V69;
558            object V70;
559            vs_base=vs_top;
560            Lgensym();
561            vs_top=sup;
562            V69= vs_base[0];
563            vs_base=vs_top;
564            Lgensym();
565            vs_top=sup;
566            V70= vs_base[0];
567            V71= make_cons((V69),Cnil);
568            base[4]= append((V64),/* INLINE-ARGS */V71);
569            V72= make_cons((V62),Cnil);
570            base[5]= append((V65),/* INLINE-ARGS */V72);
571            base[6]= make_cons((V70),Cnil);
572            V73= car((V66));
573            V74= list(2,/* INLINE-ARGS */V73,list(4,VV[37],(V68),(V70),(V69)));
574            base[7]= list(4,VV[36],make_cons(/* INLINE-ARGS */V74,Cnil),(V67),(V70));
575            base[8]= list(4,VV[38],(V68),(V69),(V63));
576            vs_top=(vs_base=base+4)+5;
577            return;}}
578            }
579    }
580    /*      function definition for G1386   */
581    
582    static void L7()
583    {register object *base=vs_base;
584            register object *sup=base+VM7; VC7
585            vs_reserve(VM7);
586            {object V75;
587            object V76;
588            object V77;
589            check_arg(3);
590            V75=(base[0]);
591            V76=(base[1]);
592            V77=(base[2]);
593            vs_top=sup;
594            goto TTL;
595    TTL:;
596            {object V78;
597            object V79;
598            object V80;
599            object V81;
600            object V82;
601            base[3]= (V77);
602            base[4]= (V75);
603            vs_top=(vs_base=base+3)+2;
604            (void) (*Lnk101)();
605            if(vs_base>=vs_top){vs_top=sup;goto T180;}
606            V78= vs_base[0];
607            vs_base++;
608            if(vs_base>=vs_top){vs_top=sup;goto T181;}
609            V79= vs_base[0];
610            vs_base++;
611            if(vs_base>=vs_top){vs_top=sup;goto T182;}
612            V80= vs_base[0];
613            vs_base++;
614            if(vs_base>=vs_top){vs_top=sup;goto T183;}
615            V81= vs_base[0];
616            vs_base++;
617            if(vs_base>=vs_top){vs_top=sup;goto T184;}
618            V82= vs_base[0];
619            vs_top=sup;
620            goto T185;
621            goto T180;
622    T180:;
623            V78= Cnil;
624            goto T181;
625    T181:;
626            V79= Cnil;
627            goto T182;
628    T182:;
629            V80= Cnil;
630            goto T183;
631    T183:;
632            V81= Cnil;
633            goto T184;
634    T184:;
635            V82= Cnil;
636            goto T185;
637    T185:;
638            {object V83;
639            vs_base=vs_top;
640            Lgensym();
641            vs_top=sup;
642            V83= vs_base[0];
643            base[3]= (V78);
644            base[4]= (V79);
645            base[5]= make_cons((V83),Cnil);
646            V84= car((V80));
647            V85= list(2,/* INLINE-ARGS */V84,list(3,VV[39],(V76),(V83)));
648            base[6]= list(3,VV[36],make_cons(/* INLINE-ARGS */V85,Cnil),(V81));
649            base[7]= list(3,VV[39],(V76),(V82));
650            vs_top=(vs_base=base+3)+5;
651            return;}}
652            }
653    }
654    /*      function definition for G1388   */
655    
656    static void L8()
657    {register object *base=vs_base;
658            register object *sup=base+VM8; VC8
659            vs_reserve(VM8);
660            {object V86;
661            register object V87;
662            object V88;
663            if(vs_top-vs_base<2) too_few_arguments();
664            V86=(base[0]);
665            V87=(base[1]);
666            vs_base=vs_base+2;
667            vs_top[0]=Cnil;
668            {object *p=vs_top;
669             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
670            V88=(base[2]);
671            vs_top=sup;
672            if(!(type_of((V87))==t_cons)){
673            goto T193;}
674            if((car((V87)))==(VV[20])){
675            goto T196;}
676            if(!((car((V87)))==(VV[3]))){
677            goto T193;}
678            goto T196;
679    T196:;
680            if(!(type_of(cadr((V87)))==t_symbol)){
681            goto T193;}
682            if((cddr((V87)))==Cnil){
683            goto T192;}
684            goto T193;
685    T193:;
686            base[3]= VV[40];
687            base[4]= (V87);
688            vs_top=(vs_base=base+3)+2;
689            Lerror();
690            vs_top=sup;
691            goto T192;
692    T192:;
693            {register object V89;
694            object V90;
695            object V91;
696            register object V92;
697            object V93;
698            base[3]= make_cons(cadr((V87)),(V88));
699            base[4]= (V86);
700            vs_top=(vs_base=base+3)+2;
701            (void) (*Lnk101)();
702            if(vs_base>=vs_top){vs_top=sup;goto T208;}
703            V89= vs_base[0];
704            vs_base++;
705            if(vs_base>=vs_top){vs_top=sup;goto T209;}
706            V90= vs_base[0];
707            vs_base++;
708            if(vs_base>=vs_top){vs_top=sup;goto T210;}
709            V91= vs_base[0];
710            vs_base++;
711            if(vs_base>=vs_top){vs_top=sup;goto T211;}
712            V92= vs_base[0];
713            vs_base++;
714            if(vs_base>=vs_top){vs_top=sup;goto T212;}
715            V93= vs_base[0];
716            vs_top=sup;
717            goto T213;
718            goto T208;
719    T208:;
720            V89= Cnil;
721            goto T209;
722    T209:;
723            V90= Cnil;
724            goto T210;
725    T210:;
726            V91= Cnil;
727            goto T211;
728    T211:;
729            V92= Cnil;
730            goto T212;
731    T212:;
732            V93= Cnil;
733            goto T213;
734    T213:;
735            base[3]= (V92);
736            vs_top=(vs_base=base+3)+1;
737            Llast();
738            vs_top=sup;
739            V94= vs_base[0];
740            V95= car(V94);
741            base[3]= (V89);
742            vs_top=(vs_base=base+3)+1;
743            Llast();
744            vs_top=sup;
745            V96= vs_base[0];
746            if(!((/* INLINE-ARGS */V95)==(car(V96)))){
747            goto T215;}
748            base[3]= (V89);
749            base[4]= (V90);
750            base[5]= (V91);
751            base[6]= listA(3,VV[41],list(2,VV[20],car((V92))),cdr((V92)));
752            base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
753            vs_top=(vs_base=base+3)+5;
754            return;
755            goto T215;
756    T215:;
757            base[4]= (V92);
758            vs_top=(vs_base=base+4)+1;
759            Lbutlast();
760            vs_top=sup;
761            base[3]= vs_base[0];
762            vs_top=(vs_base=base+3)+1;
763            Llast();
764            vs_top=sup;
765            V97= vs_base[0];
766            V98= car(V97);
767            base[3]= (V89);
768            vs_top=(vs_base=base+3)+1;
769            Llast();
770            vs_top=sup;
771            V99= vs_base[0];
772            if(!((/* INLINE-ARGS */V98)==(car(V99)))){
773            goto T227;}
774            base[3]= (V89);
775            base[4]= (V90);
776            base[5]= (V91);
777            V100= list(2,VV[20],car((V92)));
778            base[7]= (V92);
779            base[8]= small_fixnum(2);
780            vs_top=(vs_base=base+7)+2;
781            Lbutlast();
782            vs_top=sup;
783            V101= vs_base[0];
784            V102= cdr(V101);
785            base[8]= (V92);
786            vs_top=(vs_base=base+8)+1;
787            Lbutlast();
788            vs_top=sup;
789            base[7]= vs_base[0];
790            vs_top=(vs_base=base+7)+1;
791            Llast();
792            vs_top=sup;
793            V103= vs_base[0];
794            V104= car(V103);
795            base[7]= (V92);
796            vs_top=(vs_base=base+7)+1;
797            Llast();
798            vs_top=sup;
799            V105= vs_base[0];
800            V106= list(3,VV[42],/* INLINE-ARGS */V104,list(2,VV[43],car(V105)));
801            V107= make_cons(/* INLINE-ARGS */V106,Cnil);
802            base[6]= listA(3,VV[41],/* INLINE-ARGS */V100,append(/* INLINE-ARGS */V102,/* INLINE-ARGS */V107));
803            base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
804            vs_top=(vs_base=base+3)+5;
805            return;
806            goto T227;
807    T227:;
808            base[3]= VV[44];
809            base[4]= (V87);
810            vs_top=(vs_base=base+3)+2;
811            Lerror();
812            return;}
813            }
814    }
815    /*      function definition for G1389   */
816    
817    static void L9()
818    {register object *base=vs_base;
819            register object *sup=base+VM9; VC9
820            vs_reserve(VM9);
821            {object V108;
822            object V109;
823            object V110;
824            check_arg(3);
825            V108=(base[0]);
826            V109=(base[1]);
827            V110=(base[2]);
828            vs_top=sup;
829            goto TTL;
830    TTL:;
831            {object V111;
832            object V112;
833            object V113;
834            object V114;
835            object V115;
836            base[3]= (V109);
837            base[4]= (V108);
838            vs_top=(vs_base=base+3)+2;
839            (void) (*Lnk101)();
840            if(vs_base>=vs_top){vs_top=sup;goto T252;}
841            V111= vs_base[0];
842            vs_base++;
843            if(vs_base>=vs_top){vs_top=sup;goto T253;}
844            V112= vs_base[0];
845            vs_base++;
846            if(vs_base>=vs_top){vs_top=sup;goto T254;}
847            V113= vs_base[0];
848            vs_base++;
849            if(vs_base>=vs_top){vs_top=sup;goto T255;}
850            V114= vs_base[0];
851            vs_base++;
852            if(vs_base>=vs_top){vs_top=sup;goto T256;}
853            V115= vs_base[0];
854            vs_top=sup;
855            goto T257;
856            goto T252;
857    T252:;
858            V111= Cnil;
859            goto T253;
860    T253:;
861            V112= Cnil;
862            goto T254;
863    T254:;
864            V113= Cnil;
865            goto T255;
866    T255:;
867            V114= Cnil;
868            goto T256;
869    T256:;
870            V115= Cnil;
871            goto T257;
872    T257:;
873            {object V116;
874            object V117;
875            object V118;
876            vs_base=vs_top;
877            Lgensym();
878            vs_top=sup;
879            V116= vs_base[0];
880            vs_base=vs_top;
881            Lgensym();
882            vs_top=sup;
883            V117= vs_base[0];
884            V118= car((V113));
885            base[3]= make_cons((V116),(V111));
886            base[4]= make_cons((V110),(V112));
887            base[5]= make_cons((V117),Cnil);
888            V119= list(2,(V118),list(4,VV[45],(V115),(V116),(V117)));
889            base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V119,Cnil),(V114),(V117));
890            base[7]= list(3,VV[46],(V115),(V116));
891            vs_top=(vs_base=base+3)+5;
892            return;}}
893            }
894    }
895    /*      function definition for G1391   */
896    
897    static void L10()
898    {register object *base=vs_base;
899            register object *sup=base+VM10; VC10
900            vs_reserve(VM10);
901            {object V120;
902            object V121;
903            object V122;
904            check_arg(3);
905            V120=(base[0]);
906            V121=(base[1]);
907            V122=(base[2]);
908            vs_top=sup;
909            goto TTL;
910    TTL:;
911            {object V123;
912            object V124;
913            object V125;
914            object V126;
915            object V127;
916            base[3]= (V122);
917            base[4]= (V120);
918            vs_top=(vs_base=base+3)+2;
919            (void) (*Lnk101)();
920            if(vs_base>=vs_top){vs_top=sup;goto T269;}
921            V123= vs_base[0];
922            vs_base++;
923            if(vs_base>=vs_top){vs_top=sup;goto T270;}
924            V124= vs_base[0];
925            vs_base++;
926            if(vs_base>=vs_top){vs_top=sup;goto T271;}
927            V125= vs_base[0];
928            vs_base++;
929            if(vs_base>=vs_top){vs_top=sup;goto T272;}
930            V126= vs_base[0];
931            vs_base++;
932            if(vs_base>=vs_top){vs_top=sup;goto T273;}
933            V127= vs_base[0];
934            vs_top=sup;
935            goto T274;
936            goto T269;
937    T269:;
938            V123= Cnil;
939            goto T270;
940    T270:;
941            V124= Cnil;
942            goto T271;
943    T271:;
944            V125= Cnil;
945            goto T272;
946    T272:;
947            V126= Cnil;
948            goto T273;
949    T273:;
950            V127= Cnil;
951            goto T274;
952    T274:;
953            {object V128;
954            object V129;
955            object V130;
956            vs_base=vs_top;
957            Lgensym();
958            vs_top=sup;
959            V128= vs_base[0];
960            vs_base=vs_top;
961            Lgensym();
962            vs_top=sup;
963            V129= vs_base[0];
964            V130= car((V125));
965            base[3]= make_cons((V128),(V123));
966            base[4]= make_cons((V121),(V124));
967            base[5]= make_cons((V129),Cnil);
968            V131= list(2,(V130),list(4,VV[47],(V129),(V128),(V127)));
969            base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V131,Cnil),(V126),(V129));
970            base[7]= list(3,VV[48],(V128),(V127));
971            vs_top=(vs_base=base+3)+5;
972            return;}}
973            }
974    }
975    /*      function definition for G1393   */
976    
977    static void L11()
978    {register object *base=vs_base;
979            register object *sup=base+VM11; VC11
980            vs_reserve(VM11);
981            {object V132;
982            object V133;
983            object V134;
984            check_arg(3);
985            V132=(base[0]);
986            V133=(base[1]);
987            V134=(base[2]);
988            vs_top=sup;
989            goto TTL;
990    TTL:;
991            {object V135;
992            object V136;
993            object V137;
994            object V138;
995            object V139;
996            base[3]= (V134);
997            base[4]= (V132);
998            vs_top=(vs_base=base+3)+2;
999            (void) (*Lnk101)();
1000            if(vs_base>=vs_top){vs_top=sup;goto T286;}
1001            V135= vs_base[0];
1002            vs_base++;
1003            if(vs_base>=vs_top){vs_top=sup;goto T287;}
1004            V136= vs_base[0];
1005            vs_base++;
1006            if(vs_base>=vs_top){vs_top=sup;goto T288;}
1007            V137= vs_base[0];
1008            vs_base++;
1009            if(vs_base>=vs_top){vs_top=sup;goto T289;}
1010            V138= vs_base[0];
1011            vs_base++;
1012            if(vs_base>=vs_top){vs_top=sup;goto T290;}
1013            V139= vs_base[0];
1014            vs_top=sup;
1015            goto T291;
1016            goto T286;
1017    T286:;
1018            V135= Cnil;
1019            goto T287;
1020    T287:;
1021            V136= Cnil;
1022            goto T288;
1023    T288:;
1024            V137= Cnil;
1025            goto T289;
1026    T289:;
1027            V138= Cnil;
1028            goto T290;
1029    T290:;
1030            V139= Cnil;
1031            goto T291;
1032    T291:;
1033            {object V140;
1034            object V141;
1035            object V142;
1036            vs_base=vs_top;
1037            Lgensym();
1038            vs_top=sup;
1039            V140= vs_base[0];
1040            vs_base=vs_top;
1041            Lgensym();
1042            vs_top=sup;
1043            V141= vs_base[0];
1044            V142= car((V137));
1045            base[3]= make_cons((V140),(V135));
1046            base[4]= make_cons((V133),(V136));
1047            base[5]= make_cons((V141),Cnil);
1048            V143= list(2,(V142),list(4,VV[49],(V141),(V140),(V139)));
1049            base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V143,Cnil),(V138),(V141));
1050            base[7]= list(3,VV[50],(V140),(V139));
1051            vs_top=(vs_base=base+3)+5;
1052            return;}}
1053            }
1054    }
1055    /*      local entry for function SETF-EXPAND-1  */
1056    
1057    static object LI12(V147,V148,V149)
1058    
1059    object V147;object V148;object V149;
1060    {        VMB12 VMS12 VMV12
1061            goto TTL;
1062    TTL:;
1063            {object V150;
1064            V150= Cnil;
1065            if(!(type_of((V147))==t_cons)){
1066            goto T301;}
1067            if(!((car((V147)))==(VV[39]))){
1068            goto T301;}
1069            {object V151;
1070            V151= caddr((V147));
1071            V148= list(3,VV[39],cadr((V147)),(V148));
1072            V147= (V151);}
1073            goto TTL;
1074            goto T301;
1075    T301:;
1076            if(!(type_of((V147))==t_cons)){
1077            goto T310;}
1078            if(!((car((V147)))==(VV[51]))){
1079            goto T310;}
1080            {register object V152;
1081            register object V153;
1082            register object V154;
1083            register long V155;
1084            V152= cdr((V147));
1085            vs_base=vs_top;
1086            Lgensym();
1087            vs_top=sup;
1088            V153= vs_base[0];
1089            V155= 0;
1090            V154= Cnil;
1091            goto T319;
1092    T319:;
1093            if(!(endp_prop((V152)))){
1094            goto T320;}
1095            V156= list(2,(V153),list(2,VV[52],(V148)));
1096            V157= make_cons(/* INLINE-ARGS */V156,Cnil);
1097            V158= nreverse((V154));
1098            {object V159 = list(3,VV[36],/* INLINE-ARGS */V157,make_cons(VV[51],/* INLINE-ARGS */V158));
1099            VMR12(V159)}
1100            goto T320;
1101    T320:;
1102            {register object V160;
1103            if(!(type_of(car((V152)))==t_symbol)){
1104            goto T327;}
1105            V160= VV[27];
1106            goto T325;
1107            goto T327;
1108    T327:;
1109            V160= VV[53];
1110            goto T325;
1111    T325:;
1112            {register object V161;
1113            V162= car((V152));
1114            V163 = make_fixnum(V155);
1115            V161= list(3,(V160),/* INLINE-ARGS */V162,list(3,VV[54],V163,(V153)));
1116            V154= make_cons((V161),(V154));}}
1117            V152= cdr((V152));
1118            V155= (long)(V155)+1;
1119            goto T319;}
1120            goto T310;
1121    T310:;
1122            if(!(type_of((V147))==t_symbol)){
1123            goto T335;}
1124            {object V164 = list(3,VV[27],(V147),(V148));
1125            VMR12(V164)}
1126            goto T335;
1127    T335:;
1128            if(!(type_of((V147))==t_cons)){
1129            goto T338;}
1130            if((get(car((V147)),VV[33],Cnil))!=Cnil){
1131            goto T338;}
1132            if((get(car((V147)),VV[31],Cnil))!=Cnil){
1133            goto T338;}
1134            base[0]= (V147);
1135            base[1]= (V149);
1136            vs_top=(vs_base=base+0)+2;
1137            Lmacroexpand();
1138            if(vs_base<vs_top){
1139            V147= vs_base[0];
1140            vs_base++;
1141            }else{
1142            V147= Cnil;}
1143            if(vs_base<vs_top){
1144            V150= vs_base[0];
1145            }else{
1146            V150= Cnil;}
1147            vs_top=sup;
1148            if(((V150))==Cnil){
1149            goto T338;}
1150            goto TTL;
1151            goto T338;
1152    T338:;
1153            if(!(type_of(car((V147)))==t_symbol)){
1154            goto T355;}
1155            V150= get(car((V147)),VV[31],Cnil);
1156            if(((V150))==Cnil){
1157            goto T355;}
1158            V165= cdr((V147));
1159            V166= make_cons((V148),Cnil);
1160            V167= append(/* INLINE-ARGS */V165,/* INLINE-ARGS */V166);
1161            {object V168 = make_cons((V150),/* INLINE-ARGS */V167);
1162            VMR12(V168)}
1163            goto T355;
1164    T355:;
1165            if(!(type_of(car((V147)))==t_symbol)){
1166            goto T361;}
1167            V150= get(car((V147)),VV[32],Cnil);
1168            if(((V150))==Cnil){
1169            goto T361;}
1170            {object V169 = (*(LnkLI100))(cadr((V147)),car((V150)),cdr((V150)),(V148));
1171            VMR12(V169)}
1172            goto T361;
1173    T361:;
1174            {object V170;
1175            object V171;
1176            object V172;
1177            object V173;
1178            object V174;
1179            base[0]= (V147);
1180            base[1]= (V149);
1181            vs_top=(vs_base=base+0)+2;
1182            (void) (*Lnk101)();
1183            if(vs_base>=vs_top){vs_top=sup;goto T370;}
1184            V170= vs_base[0];
1185            vs_base++;
1186            if(vs_base>=vs_top){vs_top=sup;goto T371;}
1187            V171= vs_base[0];
1188            vs_base++;
1189            if(vs_base>=vs_top){vs_top=sup;goto T372;}
1190            V172= vs_base[0];
1191            vs_base++;
1192            if(vs_base>=vs_top){vs_top=sup;goto T373;}
1193            V173= vs_base[0];
1194            vs_base++;
1195            if(vs_base>=vs_top){vs_top=sup;goto T374;}
1196            V174= vs_base[0];
1197            vs_top=sup;
1198            goto T375;
1199            goto T370;
1200    T370:;
1201            V170= Cnil;
1202            goto T371;
1203    T371:;
1204            V171= Cnil;
1205            goto T372;
1206    T372:;
1207            V172= Cnil;
1208            goto T373;
1209    T373:;
1210            V173= Cnil;
1211            goto T374;
1212    T374:;
1213            V174= Cnil;
1214            goto T375;
1215    T375:;
1216            V179= append((V170),(V172));
1217            V180= make_cons((V148),Cnil);
1218            V181= append((V171),/* INLINE-ARGS */V180);
1219            {object V176;
1220            object V177= /* INLINE-ARGS */V179;
1221            object V178= /* INLINE-ARGS */V181;
1222            if(endp(V177)||endp(V178)){
1223            V175= Cnil;
1224            goto T376;}
1225            base[0]=V176=MMcons(Cnil,Cnil);
1226            goto T377;
1227    T377:;
1228            (V176->c.c_car)= list(2,(V177->c.c_car),(V178->c.c_car));
1229            V177=MMcdr(V177);
1230            V178=MMcdr(V178);
1231            if(endp(V177)||endp(V178)){
1232            V175= base[0];
1233            goto T376;}
1234            V176=MMcdr(V176)=MMcons(Cnil,Cnil);
1235            goto T377;}
1236            goto T376;
1237    T376:;
1238            {object V182 = list(3,VV[55],V175,(V173));
1239            VMR12(V182)}}}
1240            base[0]=base[0];
1241            return Cnil;
1242    }
1243    /*      local entry for function SETF-STRUCTURE-ACCESS  */
1244    
1245    static object LI13(V187,V188,V189,V190)
1246    
1247    object V187;object V188;object V189;object V190;
1248    {        VMB13 VMS13 VMV13
1249            goto TTL;
1250    TTL:;
1251            {object V191= (V188);
1252            if((V191!= VV[43]))goto T379;
1253            {object V192 = list(4,VV[56],(V187),(V189),(V190));
1254            VMR13(V192)}
1255            goto T379;
1256    T379:;
1257            if((V191!= VV[102]))goto T380;
1258            {object V193 = list(4,VV[57],(V187),(V189),(V190));
1259            VMR13(V193)}
1260            goto T380;
1261    T380:;
1262            {object V194 = list(5,VV[58],(V187),list(2,VV[3],(V188)),(V189),(V190));
1263            VMR13(V194)}}
1264            return Cnil;
1265    }
1266    /*      local entry for function SETF-EXPAND    */
1267    
1268    static object LI14(V197,V198)
1269    
1270    register object V197;object V198;
1271    {        VMB14 VMS14 VMV14
1272            goto TTL;
1273    TTL:;
1274            if(!(endp_prop((V197)))){
1275            goto T382;}
1276            {object V199 = Cnil;
1277            VMR14(V199)}
1278            goto T382;
1279    T382:;
1280            if(!(endp_prop(cdr((V197))))){
1281            goto T385;}
1282            base[0]= VV[59];
1283            base[1]= (V197);
1284            vs_top=(vs_base=base+0)+2;
1285            Lerror();
1286            vs_top=sup;
1287            {object V200 = vs_base[0];
1288            VMR14(V200)}
1289            goto T385;
1290    T385:;
1291            V201= (*(LnkLI103))(car((V197)),cadr((V197)),(V198));
1292            V202= (*(LnkLI104))(cddr((V197)),(V198));
1293            {object V203 = make_cons(/* INLINE-ARGS */V201,/* INLINE-ARGS */V202);
1294            VMR14(V203)}
1295            base[0]=base[0];
1296            return Cnil;
1297    }
1298    /*      local entry for function SETF-HELPER    */
1299    
1300    static object LI15(V206,V207)
1301    
1302    register object V206;object V207;
1303    {        VMB15 VMS15 VMV15
1304            goto TTL;
1305    TTL:;
1306            V206= cdr((V206));
1307            if(!(endp_prop((V206)))){
1308            goto T392;}
1309            {object V208 = Cnil;
1310            VMR15(V208)}
1311            goto T392;
1312    T392:;
1313            if(!(endp_prop(cdr((V206))))){
1314            goto T395;}
1315            base[0]= VV[60];
1316            base[1]= (V206);
1317            vs_top=(vs_base=base+0)+2;
1318            Lerror();
1319            vs_top=sup;
1320            {object V209 = vs_base[0];
1321            VMR15(V209)}
1322            goto T395;
1323    T395:;
1324            if(!(endp_prop(cddr((V206))))){
1325            goto T400;}
1326            {object V210 = (*(LnkLI103))(car((V206)),cadr((V206)),(V207));
1327            VMR15(V210)}
1328            goto T400;
1329    T400:;
1330            V211= (*(LnkLI104))((V206),(V207));
1331            {object V212 = make_cons(VV[61],/* INLINE-ARGS */V211);
1332            VMR15(V212)}
1333            base[0]=base[0];
1334            return Cnil;
1335    }
1336    /*      macro definition for PSETF      */
1337    
1338    static void L16()
1339    {register object *base=vs_base;
1340            register object *sup=base+VM16; VC16
1341            vs_reserve(VM16);
1342            check_arg(2);
1343            vs_top=sup;
1344            {object V213=base[0]->c.c_cdr;
1345            base[2]= V213;}
1346            if(!(endp_prop(base[2]))){
1347            goto T403;}
1348            base[3]= Cnil;
1349            vs_top=(vs_base=base+3)+1;
1350            return;
1351            goto T403;
1352    T403:;
1353            if(!(endp_prop(cdr(base[2])))){
1354            goto T406;}
1355            base[3]= VV[62];
1356            base[4]= base[2];
1357            vs_top=(vs_base=base+3)+2;
1358            Lerror();
1359            return;
1360            goto T406;
1361    T406:;
1362            if(!(endp_prop(cddr(base[2])))){
1363            goto T411;}
1364            V214= (*(LnkLI103))(car(base[2]),cadr(base[2]),base[1]);
1365            base[3]= list(3,VV[61],/* INLINE-ARGS */V214,Cnil);
1366            vs_top=(vs_base=base+3)+1;
1367            return;
1368            goto T411;
1369    T411:;
1370            {register object V215;
1371            register object V216;
1372            register object V217;
1373            V215= base[2];
1374            V216= Cnil;
1375            V217= Cnil;
1376            goto T414;
1377    T414:;
1378            if(!(endp_prop((V215)))){
1379            goto T415;}
1380            V218= nreverse((V217));
1381            base[3]= listA(3,VV[55],(V216),append(/* INLINE-ARGS */V218,VV[63]));
1382            vs_top=(vs_base=base+3)+1;
1383            return;
1384            goto T415;
1385    T415:;
1386            if(!(endp_prop(cdr((V215))))){
1387            goto T419;}
1388            base[3]= VV[64];
1389            base[4]= base[2];
1390            vs_top=(vs_base=base+3)+2;
1391            Lerror();
1392            vs_top=sup;
1393            goto T419;
1394    T419:;
1395            {register object V219;
1396            register object V220;
1397            register object V221;
1398            register object V222;
1399            register object V223;
1400            base[3]= car((V215));
1401            base[4]= base[1];
1402            vs_top=(vs_base=base+3)+2;
1403            (void) (*Lnk101)();
1404            if(vs_base>=vs_top){vs_top=sup;goto T428;}
1405            V219= vs_base[0];
1406            vs_base++;
1407            if(vs_base>=vs_top){vs_top=sup;goto T429;}
1408            V220= vs_base[0];
1409            vs_base++;
1410            if(vs_base>=vs_top){vs_top=sup;goto T430;}
1411            V221= vs_base[0];
1412            vs_base++;
1413            if(vs_base>=vs_top){vs_top=sup;goto T431;}
1414            V222= vs_base[0];
1415            vs_base++;
1416            if(vs_base>=vs_top){vs_top=sup;goto T432;}
1417            V223= vs_base[0];
1418            vs_top=sup;
1419            goto T433;
1420            goto T428;
1421    T428:;
1422            V219= Cnil;
1423            goto T429;
1424    T429:;
1425            V220= Cnil;
1426            goto T430;
1427    T430:;
1428            V221= Cnil;
1429            goto T431;
1430    T431:;
1431            V222= Cnil;
1432            goto T432;
1433    T432:;
1434            V223= Cnil;
1435            goto T433;
1436    T433:;
1437            V217= make_cons((V222),(V217));
1438            V228= append((V219),(V221));
1439            V229= make_cons(cadr((V215)),Cnil);
1440            V230= append((V220),/* INLINE-ARGS */V229);
1441            {object V225;
1442            object V226= /* INLINE-ARGS */V228;
1443            object V227= /* INLINE-ARGS */V230;
1444            if(endp(V226)||endp(V227)){
1445            V224= Cnil;
1446            goto T437;}
1447            base[3]=V225=MMcons(Cnil,Cnil);
1448            goto T438;
1449    T438:;
1450            (V225->c.c_car)= list(2,(V226->c.c_car),(V227->c.c_car));
1451            V226=MMcdr(V226);
1452            V227=MMcdr(V227);
1453            if(endp(V226)||endp(V227)){
1454            V224= base[3];
1455            goto T437;}
1456            V225=MMcdr(V225)=MMcons(Cnil,Cnil);
1457            goto T438;}
1458            goto T437;
1459    T437:;
1460            V216= nconc((V216),V224);}
1461            V215= cddr((V215));
1462            goto T414;}
1463    }
1464    /*      macro definition for SHIFTF     */
1465    
1466    static void L17()
1467    {register object *base=vs_base;
1468            register object *sup=base+VM17; VC17
1469            vs_reserve(VM17);
1470            check_arg(2);
1471            vs_top=sup;
1472            {object V231=base[0]->c.c_cdr;
1473            base[2]= V231;}
1474            {register object V232;
1475            register object V233;
1476            register object V234;
1477            register object V235;
1478            register object V236;
1479            register object V237;
1480            vs_base=vs_top;
1481            Lgensym();
1482            vs_top=sup;
1483            V236= vs_base[0];
1484            V232= base[2];
1485            V233= Cnil;
1486            V234= Cnil;
1487            V235= Cnil;
1488            V237= Cnil;
1489            goto T445;
1490    T445:;
1491            if(!(endp_prop(cdr((V232))))){
1492            goto T446;}
1493            V234= nreverse((V234));
1494            V235= nreverse((V235));
1495            V237= nreverse((V237));
1496            base[3]= (V233);
1497            V239= list(2,(V236),car((V237)));
1498            base[4]= make_cons(/* INLINE-ARGS */V239,Cnil);
1499            {object V240;
1500            object V241= (V234);
1501            object V242= cdr((V237));
1502            if(endp(V241)||endp(V242)){
1503            base[5]= Cnil;
1504            goto T458;}
1505            base[6]=V240=MMcons(Cnil,Cnil);
1506            goto T459;
1507    T459:;
1508            (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));
1509            V241=MMcdr(V241);
1510            V242=MMcdr(V242);
1511            if(endp(V241)||endp(V242)){
1512            base[5]= base[6];
1513            goto T458;}
1514            V240=MMcdr(V240)=MMcons(Cnil,Cnil);
1515            goto T459;}
1516            goto T458;
1517    T458:;
1518            base[7]= (V234);
1519            vs_top=(vs_base=base+7)+1;
1520            Llast();
1521            vs_top=sup;
1522            V243= vs_base[0];
1523            V244= list(2,car(V243),car((V232)));
1524            base[6]= make_cons(/* INLINE-ARGS */V244,Cnil);
1525            vs_top=(vs_base=base+3)+4;
1526            Lnconc();
1527            vs_top=sup;
1528            V238= vs_base[0];
1529            V245= make_cons((V236),Cnil);
1530            base[3]= listA(3,VV[55],V238,append((V235),/* INLINE-ARGS */V245));
1531            vs_top=(vs_base=base+3)+1;
1532            return;
1533            goto T446;
1534    T446:;
1535            {register object V246;
1536            register object V247;
1537            register object V248;
1538            register object V249;
1539            register object V250;
1540            base[3]= car((V232));
1541            base[4]= base[1];
1542            vs_top=(vs_base=base+3)+2;
1543            (void) (*Lnk101)();
1544            if(vs_base>=vs_top){vs_top=sup;goto T469;}
1545            V246= vs_base[0];
1546            vs_base++;
1547            if(vs_base>=vs_top){vs_top=sup;goto T470;}
1548            V247= vs_base[0];
1549            vs_base++;
1550            if(vs_base>=vs_top){vs_top=sup;goto T471;}
1551            V248= vs_base[0];
1552            vs_base++;
1553            if(vs_base>=vs_top){vs_top=sup;goto T472;}
1554            V249= vs_base[0];
1555            vs_base++;
1556            if(vs_base>=vs_top){vs_top=sup;goto T473;}
1557            V250= vs_base[0];
1558            vs_top=sup;
1559            goto T474;
1560            goto T469;
1561    T469:;
1562            V246= Cnil;
1563            goto T470;
1564    T470:;
1565            V247= Cnil;
1566            goto T471;
1567    T471:;
1568            V248= Cnil;
1569            goto T472;
1570    T472:;
1571            V249= Cnil;
1572            goto T473;
1573    T473:;
1574            V250= Cnil;
1575            goto T474;
1576    T474:;
1577            {object V252;
1578            object V253= (V246);
1579            object V254= (V247);
1580            if(endp(V253)||endp(V254)){
1581            V251= Cnil;
1582            goto T477;}
1583            base[3]=V252=MMcons(Cnil,Cnil);
1584            goto T478;
1585    T478:;
1586            (V252->c.c_car)= list(2,(V253->c.c_car),(V254->c.c_car));
1587            V253=MMcdr(V253);
1588            V254=MMcdr(V254);
1589            if(endp(V253)||endp(V254)){
1590            V251= base[3];
1591            goto T477;}
1592            V252=MMcdr(V252)=MMcons(Cnil,Cnil);
1593            goto T478;}
1594            goto T477;
1595    T477:;
1596            V233= nconc((V233),V251);
1597            V234= make_cons(car((V248)),(V234));
1598            V235= make_cons((V249),(V235));
1599            V237= make_cons((V250),(V237));}
1600            V232= cdr((V232));
1601            goto T445;}
1602    }
1603    /*      macro definition for ROTATEF    */
1604    
1605    static void L18()
1606    {register object *base=vs_base;
1607            register object *sup=base+VM18; VC18
1608            vs_reserve(VM18);
1609            check_arg(2);
1610            vs_top=sup;
1611            {object V255=base[0]->c.c_cdr;
1612            base[2]= V255;}
1613            {register object V256;
1614            register object V257;
1615            register object V258;
1616            register object V259;
1617            register object V260;
1618            V256= base[2];
1619            V257= Cnil;
1620            V258= Cnil;
1621            V259= Cnil;
1622            V260= Cnil;
1623            goto T489;
1624    T489:;
1625            if(!(endp_prop((V256)))){
1626            goto T490;}
1627            V258= nreverse((V258));
1628            V259= nreverse((V259));
1629            V260= nreverse((V260));
1630            base[3]= (V257);
1631            {object V262;
1632            object V263= (V258);
1633            object V264= cdr((V260));
1634            if(endp(V263)||endp(V264)){
1635            base[4]= Cnil;
1636            goto T501;}
1637            base[5]=V262=MMcons(Cnil,Cnil);
1638            goto T502;
1639    T502:;
1640            (V262->c.c_car)= list(2,(V263->c.c_car),(V264->c.c_car));
1641            V263=MMcdr(V263);
1642            V264=MMcdr(V264);
1643            if(endp(V263)||endp(V264)){
1644            base[4]= base[5];
1645            goto T501;}
1646            V262=MMcdr(V262)=MMcons(Cnil,Cnil);
1647            goto T502;}
1648            goto T501;
1649    T501:;
1650            base[6]= (V258);
1651            vs_top=(vs_base=base+6)+1;
1652            Llast();
1653            vs_top=sup;
1654            V265= vs_base[0];
1655            V266= list(2,car(V265),car((V260)));
1656            base[5]= make_cons(/* INLINE-ARGS */V266,Cnil);
1657            vs_top=(vs_base=base+3)+3;
1658            Lnconc();
1659            vs_top=sup;
1660            V261= vs_base[0];
1661            base[3]= listA(3,VV[55],V261,append((V259),VV[65]));
1662            vs_top=(vs_base=base+3)+1;
1663            return;
1664            goto T490;
1665    T490:;
1666            {register object V267;
1667            register object V268;
1668            register object V269;
1669            register object V270;
1670            register object V271;
1671            base[3]= car((V256));
1672            base[4]= base[1];
1673            vs_top=(vs_base=base+3)+2;
1674            (void) (*Lnk101)();
1675            if(vs_base>=vs_top){vs_top=sup;goto T512;}
1676            V267= vs_base[0];
1677            vs_base++;
1678            if(vs_base>=vs_top){vs_top=sup;goto T513;}
1679            V268= vs_base[0];
1680            vs_base++;
1681            if(vs_base>=vs_top){vs_top=sup;goto T514;}
1682            V269= vs_base[0];
1683            vs_base++;
1684            if(vs_base>=vs_top){vs_top=sup;goto T515;}
1685            V270= vs_base[0];
1686            vs_base++;
1687            if(vs_base>=vs_top){vs_top=sup;goto T516;}
1688            V271= vs_base[0];
1689            vs_top=sup;
1690            goto T517;
1691            goto T512;
1692    T512:;
1693            V267= Cnil;
1694            goto T513;
1695    T513:;
1696            V268= Cnil;
1697            goto T514;
1698    T514:;
1699            V269= Cnil;
1700            goto T515;
1701    T515:;
1702            V270= Cnil;
1703            goto T516;
1704    T516:;
1705            V271= Cnil;
1706            goto T517;
1707    T517:;
1708            {object V273;
1709            object V274= (V267);
1710            object V275= (V268);
1711            if(endp(V274)||endp(V275)){
1712            V272= Cnil;
1713            goto T520;}
1714            base[3]=V273=MMcons(Cnil,Cnil);
1715            goto T521;
1716    T521:;
1717            (V273->c.c_car)= list(2,(V274->c.c_car),(V275->c.c_car));
1718            V274=MMcdr(V274);
1719            V275=MMcdr(V275);
1720            if(endp(V274)||endp(V275)){
1721            V272= base[3];
1722            goto T520;}
1723            V273=MMcdr(V273)=MMcons(Cnil,Cnil);
1724            goto T521;}
1725            goto T520;
1726    T520:;
1727            V257= nconc((V257),V272);
1728            V258= make_cons(car((V269)),(V258));
1729            V259= make_cons((V270),(V259));
1730            V260= make_cons((V271),(V260));}
1731            V256= cdr((V256));
1732            goto T489;}
1733    }
1734    /*      macro definition for DEFINE-MODIFY-MACRO        */
1735    
1736    static void L19()
1737    {register object *base=vs_base;
1738            register object *sup=base+VM19; VC19
1739            vs_reserve(VM19);
1740            check_arg(2);
1741            vs_top=sup;
1742            {object V276=base[0]->c.c_cdr;
1743            if(endp(V276))invalid_macro_call();
1744            base[2]= (V276->c.c_car);
1745            V276=V276->c.c_cdr;
1746            if(endp(V276))invalid_macro_call();
1747            base[3]= (V276->c.c_car);
1748            V276=V276->c.c_cdr;
1749            if(endp(V276))invalid_macro_call();
1750            base[4]= (V276->c.c_car);
1751            V276=V276->c.c_cdr;
1752            if(endp(V276)){
1753            base[5]= Cnil;
1754            } else {
1755            base[5]= (V276->c.c_car);
1756            V276=V276->c.c_cdr;}
1757            if(!endp(V276))invalid_macro_call();}
1758            {object V277;
1759            {register object V278;
1760            register object V279;
1761            V278= base[3];
1762            V279= Cnil;
1763            goto T534;
1764    T534:;
1765            if(((V278))!=Cnil){
1766            goto T535;}
1767            V280= list(2,VV[3],base[4]);
1768            V277= listA(4,VV[43],/* INLINE-ARGS */V280,VV[66],nreverse((V279)));
1769            goto T532;
1770            goto T535;
1771    T535:;
1772            if((car((V278)))==(VV[67])){
1773            goto T539;}
1774            if(!((car((V278)))==(VV[68]))){
1775            goto T542;}
1776            V281= list(2,VV[3],base[4]);
1777            V282= nreverse((V279));
1778            V283= make_cons(cadr((V278)),Cnil);
1779            V277= listA(4,VV[69],/* INLINE-ARGS */V281,VV[66],append(/* INLINE-ARGS */V282,/* INLINE-ARGS */V283));
1780            goto T532;
1781            goto T542;
1782    T542:;
1783            if(!(type_of(car((V278)))==t_symbol)){
1784            goto T546;}
1785            V279= make_cons(car((V278)),(V279));
1786            goto T539;
1787            goto T546;
1788    T546:;
1789            V279= make_cons(caar((V278)),(V279));
1790            goto T539;
1791    T539:;
1792            V278= cdr((V278));
1793            goto T534;}
1794            goto T532;
1795    T532:;
1796            V284= listA(4,VV[71],VV[72],VV[73],base[3]);
1797            if((base[5])==Cnil){
1798            goto T555;}
1799            V285= make_cons(base[5],Cnil);
1800            goto T553;
1801            goto T555;
1802    T555:;
1803            V285= Cnil;
1804            goto T553;
1805    T553:;
1806            V286= list(3,VV[74],VV[75],list(3,VV[76],base[2],list(3,VV[36],VV[77],list(4,VV[43],VV[78],VV[73],(V277)))));
1807            V287= list(2,/* INLINE-ARGS */V286,list(4,VV[79],VV[80],VV[81],list(4,VV[43],VV[82],list(4,VV[83],VV[84],VV[85],list(3,VV[42],VV[86],list(2,VV[43],(V277)))),VV[87])));
1808            base[6]= listA(4,VV[70],base[2],/* INLINE-ARGS */V284,append(V285,/* INLINE-ARGS */V287));
1809            vs_top=(vs_base=base+6)+1;
1810            return;}
1811    }
1812    /*      macro definition for REMF       */
1813    
1814    static void L20()
1815    {register object *base=vs_base;
1816            register object *sup=base+VM20; VC20
1817            vs_reserve(VM20);
1818            check_arg(2);
1819            vs_top=sup;
1820            {object V288=base[0]->c.c_cdr;
1821            if(endp(V288))invalid_macro_call();
1822            base[2]= (V288->c.c_car);
1823            V288=V288->c.c_cdr;
1824            if(endp(V288))invalid_macro_call();
1825            base[3]= (V288->c.c_car);
1826            V288=V288->c.c_cdr;
1827            if(!endp(V288))invalid_macro_call();}
1828            {object V289;
1829            object V290;
1830            object V291;
1831            object V292;
1832            object V293;
1833            base[4]= base[2];
1834            base[5]= base[1];
1835            vs_top=(vs_base=base+4)+2;
1836            (void) (*Lnk101)();
1837            if(vs_base>=vs_top){vs_top=sup;goto T560;}
1838            V289= vs_base[0];
1839            vs_base++;
1840            if(vs_base>=vs_top){vs_top=sup;goto T561;}
1841            V290= vs_base[0];
1842            vs_base++;
1843            if(vs_base>=vs_top){vs_top=sup;goto T562;}
1844            V291= vs_base[0];
1845            vs_base++;
1846            if(vs_base>=vs_top){vs_top=sup;goto T563;}
1847            V292= vs_base[0];
1848            vs_base++;
1849            if(vs_base>=vs_top){vs_top=sup;goto T564;}
1850            V293= vs_base[0];
1851            vs_top=sup;
1852            goto T565;
1853            goto T560;
1854    T560:;
1855            V289= Cnil;
1856            goto T561;
1857    T561:;
1858            V290= Cnil;
1859            goto T562;
1860    T562:;
1861            V291= Cnil;
1862            goto T563;
1863    T563:;
1864            V292= Cnil;
1865            goto T564;
1866    T564:;
1867            V293= Cnil;
1868            goto T565;
1869    T565:;
1870            {object V295;
1871            object V296= (V289);
1872            object V297= (V290);
1873            if(endp(V296)||endp(V297)){
1874            V294= Cnil;
1875            goto T566;}
1876            base[4]=V295=MMcons(Cnil,Cnil);
1877            goto T567;
1878    T567:;
1879            (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));
1880            V296=MMcdr(V296);
1881            V297=MMcdr(V297);
1882            if(endp(V296)||endp(V297)){
1883            V294= base[4];
1884            goto T566;}
1885            V295=MMcdr(V295)=MMcons(Cnil,Cnil);
1886            goto T567;}
1887            goto T566;
1888    T566:;
1889            V298= list(2,car((V291)),VV[88]);
1890            base[4]= list(3,VV[55],V294,list(5,VV[79],/* INLINE-ARGS */V298,list(3,VV[89],(V293),base[3]),(V292),VV[88]));
1891            vs_top=(vs_base=base+4)+1;
1892            return;}
1893    }
1894    /*      macro definition for INCF       */
1895    
1896    static void L21()
1897    {register object *base=vs_base;
1898            register object *sup=base+VM21; VC21
1899            vs_reserve(VM21);
1900            check_arg(2);
1901            vs_top=sup;
1902            {object V299=base[0]->c.c_cdr;
1903            if(endp(V299))invalid_macro_call();
1904            base[2]= (V299->c.c_car);
1905            V299=V299->c.c_cdr;
1906            if(endp(V299)){
1907            base[3]= small_fixnum(1);
1908            } else {
1909            base[3]= (V299->c.c_car);
1910            V299=V299->c.c_cdr;}
1911            if(!endp(V299))invalid_macro_call();}
1912            if(!(type_of(base[2])==t_symbol)){
1913            goto T570;}
1914            base[4]= list(3,VV[27],base[2],list(3,VV[90],base[2],base[3]));
1915            vs_top=(vs_base=base+4)+1;
1916            return;
1917            goto T570;
1918    T570:;
1919            {object V301;
1920            object V302;
1921            object V303;
1922            object V304;
1923            object V305;
1924            base[4]= base[2];
1925            base[5]= base[1];
1926            vs_top=(vs_base=base+4)+2;
1927            (void) (*Lnk101)();
1928            if(vs_base>=vs_top){vs_top=sup;goto T576;}
1929            V301= vs_base[0];
1930            vs_base++;
1931            if(vs_base>=vs_top){vs_top=sup;goto T577;}
1932            V302= vs_base[0];
1933            vs_base++;
1934            if(vs_base>=vs_top){vs_top=sup;goto T578;}
1935            V303= vs_base[0];
1936            vs_base++;
1937            if(vs_base>=vs_top){vs_top=sup;goto T579;}
1938            V304= vs_base[0];
1939            vs_base++;
1940            if(vs_base>=vs_top){vs_top=sup;goto T580;}
1941            V305= vs_base[0];
1942            vs_top=sup;
1943            goto T581;
1944            goto T576;
1945    T576:;
1946            V301= Cnil;
1947            goto T577;
1948    T577:;
1949            V302= Cnil;
1950            goto T578;
1951    T578:;
1952            V303= Cnil;
1953            goto T579;
1954    T579:;
1955            V304= Cnil;
1956            goto T580;
1957    T580:;
1958            V305= Cnil;
1959            goto T581;
1960    T581:;
1961            V310= append((V301),(V303));
1962            V311= list(3,VV[90],(V305),base[3]);
1963            V312= make_cons(/* INLINE-ARGS */V311,Cnil);
1964            V313= append((V302),/* INLINE-ARGS */V312);
1965            {object V307;
1966            object V308= /* INLINE-ARGS */V310;
1967            object V309= /* INLINE-ARGS */V313;
1968            if(endp(V308)||endp(V309)){
1969            V306= Cnil;
1970            goto T582;}
1971            base[4]=V307=MMcons(Cnil,Cnil);
1972            goto T583;
1973    T583:;
1974            (V307->c.c_car)= list(2,(V308->c.c_car),(V309->c.c_car));
1975            V308=MMcdr(V308);
1976            V309=MMcdr(V309);
1977            if(endp(V308)||endp(V309)){
1978            V306= base[4];
1979            goto T582;}
1980            V307=MMcdr(V307)=MMcons(Cnil,Cnil);
1981            goto T583;}
1982            goto T582;
1983    T582:;
1984            base[4]= list(3,VV[55],V306,(V304));
1985            vs_top=(vs_base=base+4)+1;
1986            return;}
1987    }
1988    /*      macro definition for DECF       */
1989    
1990    static void L22()
1991    {register object *base=vs_base;
1992            register object *sup=base+VM22; VC22
1993            vs_reserve(VM22);
1994            check_arg(2);
1995            vs_top=sup;
1996            {object V314=base[0]->c.c_cdr;
1997            if(endp(V314))invalid_macro_call();
1998            base[2]= (V314->c.c_car);
1999            V314=V314->c.c_cdr;
2000            if(endp(V314)){
2001            base[3]= small_fixnum(1);
2002            } else {
2003            base[3]= (V314->c.c_car);
2004            V314=V314->c.c_cdr;}
2005            if(!endp(V314))invalid_macro_call();}
2006            if(!(type_of(base[2])==t_symbol)){
2007            goto T586;}
2008            base[4]= list(3,VV[27],base[2],list(3,VV[91],base[2],base[3]));
2009            vs_top=(vs_base=base+4)+1;
2010            return;
2011            goto T586;
2012    T586:;
2013            {object V316;
2014            object V317;
2015            object V318;
2016            object V319;
2017            object V320;
2018            base[4]= base[2];
2019            base[5]= base[1];
2020            vs_top=(vs_base=base+4)+2;
2021            (void) (*Lnk101)();
2022            if(vs_base>=vs_top){vs_top=sup;goto T592;}
2023            V316= vs_base[0];
2024            vs_base++;
2025            if(vs_base>=vs_top){vs_top=sup;goto T593;}
2026            V317= vs_base[0];
2027            vs_base++;
2028            if(vs_base>=vs_top){vs_top=sup;goto T594;}
2029            V318= vs_base[0];
2030            vs_base++;
2031            if(vs_base>=vs_top){vs_top=sup;goto T595;}
2032            V319= vs_base[0];
2033            vs_base++;
2034            if(vs_base>=vs_top){vs_top=sup;goto T596;}
2035            V320= vs_base[0];
2036            vs_top=sup;
2037            goto T597;
2038            goto T592;
2039    T592:;
2040            V316= Cnil;
2041            goto T593;
2042    T593:;
2043            V317= Cnil;
2044            goto T594;
2045    T594:;
2046            V318= Cnil;
2047            goto T595;
2048    T595:;
2049            V319= Cnil;
2050            goto T596;
2051    T596:;
2052            V320= Cnil;
2053            goto T597;
2054    T597:;
2055            V325= append((V316),(V318));
2056            V326= list(3,VV[91],(V320),base[3]);
2057            V327= make_cons(/* INLINE-ARGS */V326,Cnil);
2058            V328= append((V317),/* INLINE-ARGS */V327);
2059            {object V322;
2060            object V323= /* INLINE-ARGS */V325;
2061            object V324= /* INLINE-ARGS */V328;
2062            if(endp(V323)||endp(V324)){
2063            V321= Cnil;
2064            goto T598;}
2065            base[4]=V322=MMcons(Cnil,Cnil);
2066            goto T599;
2067    T599:;
2068            (V322->c.c_car)= list(2,(V323->c.c_car),(V324->c.c_car));
2069            V323=MMcdr(V323);
2070            V324=MMcdr(V324);
2071            if(endp(V323)||endp(V324)){
2072            V321= base[4];
2073            goto T598;}
2074            V322=MMcdr(V322)=MMcons(Cnil,Cnil);
2075            goto T599;}
2076            goto T598;
2077    T598:;
2078            base[4]= list(3,VV[55],V321,(V319));
2079            vs_top=(vs_base=base+4)+1;
2080            return;}
2081    }
2082    /*      macro definition for PUSH       */
2083    
2084    static void L23()
2085    {register object *base=vs_base;
2086            register object *sup=base+VM23; VC23
2087            vs_reserve(VM23);
2088            check_arg(2);
2089            vs_top=sup;
2090            {object V329=base[0]->c.c_cdr;
2091            if(endp(V329))invalid_macro_call();
2092            base[2]= (V329->c.c_car);
2093            V329=V329->c.c_cdr;
2094            if(endp(V329))invalid_macro_call();
2095            base[3]= (V329->c.c_car);
2096            V329=V329->c.c_cdr;
2097            if(!endp(V329))invalid_macro_call();}
2098            {register object V330;
2099            vs_base=vs_top;
2100            Lgensym();
2101            vs_top=sup;
2102            V330= vs_base[0];
2103            if(!(type_of(base[3])==t_symbol)){
2104            goto T602;}
2105            V331= list(2,(V330),base[2]);
2106            V332= make_cons(/* INLINE-ARGS */V331,Cnil);
2107            base[4]= list(3,VV[55],/* INLINE-ARGS */V332,list(3,VV[27],base[3],list(3,VV[92],(V330),base[3])));
2108            vs_top=(vs_base=base+4)+1;
2109            return;
2110            goto T602;
2111    T602:;
2112            {object V333;
2113            object V334;
2114            object V335;
2115            object V336;
2116            object V337;
2117            base[4]= base[3];
2118            base[5]= base[1];
2119            vs_top=(vs_base=base+4)+2;
2120            (void) (*Lnk101)();
2121            if(vs_base>=vs_top){vs_top=sup;goto T608;}
2122            V333= vs_base[0];
2123            vs_base++;
2124            if(vs_base>=vs_top){vs_top=sup;goto T609;}
2125            V334= vs_base[0];
2126            vs_base++;
2127            if(vs_base>=vs_top){vs_top=sup;goto T610;}
2128            V335= vs_base[0];
2129            vs_base++;
2130            if(vs_base>=vs_top){vs_top=sup;goto T611;}
2131            V336= vs_base[0];
2132            vs_base++;
2133            if(vs_base>=vs_top){vs_top=sup;goto T612;}
2134            V337= vs_base[0];
2135            vs_top=sup;
2136            goto T613;
2137            goto T608;
2138    T608:;
2139            V333= Cnil;
2140            goto T609;
2141    T609:;
2142            V334= Cnil;
2143            goto T610;
2144    T610:;
2145            V335= Cnil;
2146            goto T611;
2147    T611:;
2148            V336= Cnil;
2149            goto T612;
2150    T612:;
2151            V337= Cnil;
2152            goto T613;
2153    T613:;
2154            base[5]= make_cons((V330),Cnil);
2155            base[6]= (V333);
2156            base[7]= (V335);
2157            vs_top=(vs_base=base+5)+3;
2158            Lappend();
2159            vs_top=sup;
2160            V342= vs_base[0];
2161            base[5]= make_cons(base[2],Cnil);
2162            base[6]= (V334);
2163            V344= list(3,VV[92],(V330),(V337));
2164            base[7]= make_cons(/* INLINE-ARGS */V344,Cnil);
2165            vs_top=(vs_base=base+5)+3;
2166            Lappend();
2167            vs_top=sup;
2168            V343= vs_base[0];
2169            {object V339;
2170            object V340= V342;
2171            object V341= V343;
2172            if(endp(V340)||endp(V341)){
2173            V338= Cnil;
2174            goto T614;}
2175            base[4]=V339=MMcons(Cnil,Cnil);
2176            goto T615;
2177    T615:;
2178            (V339->c.c_car)= list(2,(V340->c.c_car),(V341->c.c_car));
2179            V340=MMcdr(V340);
2180            V341=MMcdr(V341);
2181            if(endp(V340)||endp(V341)){
2182            V338= base[4];
2183            goto T614;}
2184            V339=MMcdr(V339)=MMcons(Cnil,Cnil);
2185            goto T615;}
2186            goto T614;
2187    T614:;
2188            base[4]= list(3,VV[55],V338,(V336));
2189            vs_top=(vs_base=base+4)+1;
2190            return;}}
2191    }
2192    /*      macro definition for PUSHNEW    */
2193    
2194    static void L24()
2195    {register object *base=vs_base;
2196            register object *sup=base+VM24; VC24
2197            vs_reserve(VM24);
2198            check_arg(2);
2199            vs_top=sup;
2200            {object V345=base[0]->c.c_cdr;
2201            if(endp(V345))invalid_macro_call();
2202            base[2]= (V345->c.c_car);
2203            V345=V345->c.c_cdr;
2204            if(endp(V345))invalid_macro_call();
2205            base[3]= (V345->c.c_car);
2206            V345=V345->c.c_cdr;
2207            base[4]= V345;}
2208            {register object V346;
2209            vs_base=vs_top;
2210            Lgensym();
2211            vs_top=sup;
2212            V346= vs_base[0];
2213            if(!(type_of(base[3])==t_symbol)){
2214            goto T626;}
2215            V347= list(2,(V346),base[2]);
2216            V348= make_cons(/* INLINE-ARGS */V347,Cnil);
2217            base[5]= list(3,VV[55],/* INLINE-ARGS */V348,list(3,VV[27],base[3],listA(4,VV[93],(V346),base[3],base[4])));
2218            vs_top=(vs_base=base+5)+1;
2219            return;
2220            goto T626;
2221    T626:;
2222            {object V349;
2223            object V350;
2224            object V351;
2225            object V352;
2226            object V353;
2227            base[5]= base[3];
2228            base[6]= base[1];
2229            vs_top=(vs_base=base+5)+2;
2230            (void) (*Lnk101)();
2231            if(vs_base>=vs_top){vs_top=sup;goto T632;}
2232            V349= vs_base[0];
2233            vs_base++;
2234            if(vs_base>=vs_top){vs_top=sup;goto T633;}
2235            V350= vs_base[0];
2236            vs_base++;
2237            if(vs_base>=vs_top){vs_top=sup;goto T634;}
2238            V351= vs_base[0];
2239            vs_base++;
2240            if(vs_base>=vs_top){vs_top=sup;goto T635;}
2241            V352= vs_base[0];
2242            vs_base++;
2243            if(vs_base>=vs_top){vs_top=sup;goto T636;}
2244            V353= vs_base[0];
2245            vs_top=sup;
2246            goto T637;
2247            goto T632;
2248    T632:;
2249            V349= Cnil;
2250            goto T633;
2251    T633:;
2252            V350= Cnil;
2253            goto T634;
2254    T634:;
2255            V351= Cnil;
2256            goto T635;
2257    T635:;
2258            V352= Cnil;
2259            goto T636;
2260    T636:;
2261            V353= Cnil;
2262            goto T637;
2263    T637:;
2264            base[6]= make_cons((V346),Cnil);
2265            base[7]= (V349);
2266            base[8]= (V351);
2267            vs_top=(vs_base=base+6)+3;
2268            Lappend();
2269            vs_top=sup;
2270            V358= vs_base[0];
2271            base[6]= make_cons(base[2],Cnil);
2272            base[7]= (V350);
2273            V360= listA(4,VV[93],(V346),(V353),base[4]);
2274            base[8]= make_cons(/* INLINE-ARGS */V360,Cnil);
2275            vs_top=(vs_base=base+6)+3;
2276            Lappend();
2277            vs_top=sup;
2278            V359= vs_base[0];
2279            {object V355;
2280            object V356= V358;
2281            object V357= V359;
2282            if(endp(V356)||endp(V357)){
2283            V354= Cnil;
2284            goto T638;}
2285            base[5]=V355=MMcons(Cnil,Cnil);
2286            goto T639;
2287    T639:;
2288            (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));
2289            V356=MMcdr(V356);
2290            V357=MMcdr(V357);
2291            if(endp(V356)||endp(V357)){
2292            V354= base[5];
2293            goto T638;}
2294            V355=MMcdr(V355)=MMcons(Cnil,Cnil);
2295            goto T639;}
2296            goto T638;
2297    T638:;
2298            base[5]= list(3,VV[55],V354,(V352));
2299            vs_top=(vs_base=base+5)+1;
2300            return;}}
2301    }
2302    /*      macro definition for POP        */
2303    
2304    static void L25()
2305    {register object *base=vs_base;
2306            register object *sup=base+VM25; VC25
2307            vs_reserve(VM25);
2308            check_arg(2);
2309            vs_top=sup;
2310            {object V361=base[0]->c.c_cdr;
2311            if(endp(V361))invalid_macro_call();
2312            base[2]= (V361->c.c_car);
2313            V361=V361->c.c_cdr;
2314            if(!endp(V361))invalid_macro_call();}
2315            if(!(type_of(base[2])==t_symbol)){
2316            goto T649;}
2317            {object V362;
2318            vs_base=vs_top;
2319            Lgensym();
2320            vs_top=sup;
2321            V362= vs_base[0];
2322            V363= list(2,(V362),list(2,VV[94],base[2]));
2323            V364= make_cons(/* INLINE-ARGS */V363,Cnil);
2324            base[3]= list(4,VV[36],/* INLINE-ARGS */V364,list(3,VV[27],base[2],list(2,VV[95],base[2])),(V362));
2325            vs_top=(vs_base=base+3)+1;
2326            return;}
2327            goto T649;
2328    T649:;
2329            {object V365;
2330            object V366;
2331            object V367;
2332            object V368;
2333            object V369;
2334            base[3]= base[2];
2335            base[4]= base[1];
2336            vs_top=(vs_base=base+3)+2;
2337            (void) (*Lnk101)();
2338            if(vs_base>=vs_top){vs_top=sup;goto T656;}
2339            V365= vs_base[0];
2340            vs_base++;
2341            if(vs_base>=vs_top){vs_top=sup;goto T657;}
2342            V366= vs_base[0];
2343            vs_base++;
2344            if(vs_base>=vs_top){vs_top=sup;goto T658;}
2345            V367= vs_base[0];
2346            vs_base++;
2347            if(vs_base>=vs_top){vs_top=sup;goto T659;}
2348            V368= vs_base[0];
2349            vs_base++;
2350            if(vs_base>=vs_top){vs_top=sup;goto T660;}
2351            V369= vs_base[0];
2352            vs_top=sup;
2353            goto T661;
2354            goto T656;
2355    T656:;
2356            V365= Cnil;
2357            goto T657;
2358    T657:;
2359            V366= Cnil;
2360            goto T658;
2361    T658:;
2362            V367= Cnil;
2363            goto T659;
2364    T659:;
2365            V368= Cnil;
2366            goto T660;
2367    T660:;
2368            V369= Cnil;
2369            goto T661;
2370    T661:;
2371            V374= append((V365),(V367));
2372            V375= list(2,VV[95],(V369));
2373            V376= make_cons(/* INLINE-ARGS */V375,Cnil);
2374            V377= append((V366),/* INLINE-ARGS */V376);
2375            {object V371;
2376            object V372= /* INLINE-ARGS */V374;
2377            object V373= /* INLINE-ARGS */V377;
2378            if(endp(V372)||endp(V373)){
2379            V370= Cnil;
2380            goto T662;}
2381            base[3]=V371=MMcons(Cnil,Cnil);
2382            goto T663;
2383    T663:;
2384            (V371->c.c_car)= list(2,(V372->c.c_car),(V373->c.c_car));
2385            V372=MMcdr(V372);
2386            V373=MMcdr(V373);
2387            if(endp(V372)||endp(V373)){
2388            V370= base[3];
2389            goto T662;}
2390            V371=MMcdr(V371)=MMcons(Cnil,Cnil);
2391            goto T663;}
2392            goto T662;
2393    T662:;
2394            base[3]= list(3,VV[55],V370,list(3,VV[96],list(2,VV[94],(V369)),(V368)));
2395            vs_top=(vs_base=base+3)+1;
2396            return;}
2397    }
2398    static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* SETF-EXPAND */
2399    static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */
2400    static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* GET-SETF-METHOD */
2401    static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,4,first,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */
2402    static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
2403    static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-&ENVIRONMENT */
2404    static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
2405    
2406    #ifdef SYSTEM_SPECIAL_INIT
2407    SYSTEM_SPECIAL_INIT
2408    #endif
2409    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26